diff --git a/scripts/plot.nb b/scripts/plot.nb
index 083683d6973830692ead5116d93e1d36b14d36ad..b68e40aa3d411c35c620f9fb5c0add2dc363f56c 100644
--- a/scripts/plot.nb
+++ b/scripts/plot.nb
@@ -10,10 +10,10 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
-NotebookDataLength[ 1686238, 41188]
-NotebookOptionsPosition[ 1542465, 39677]
-NotebookOutlinePosition[ 1542817, 39693]
-CellTagsIndexPosition[ 1542774, 39690]
+NotebookDataLength[ 851556, 20715]
+NotebookOptionsPosition[ 788194, 20016]
+NotebookOutlinePosition[ 788551, 20032]
+CellTagsIndexPosition[ 788508, 20029]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
@@ -54,17 +54,19 @@ Hiren H. Patel\\\\\\\\nFor more information, see the \\\\\\\"\\\", \
TemplateBox[List[\\\"\\\\\\\"guide\\\\\\\"\\\", \\\"paclet:X/guide/PackageX\\\
\"], \\\"HyperlinkPaclet\\\"]], \\\"RowDefault\\\"]\\)\"\>"], "Print",
CellChangeTimes->{3.77963956193819*^9, 3.779640733886427*^9,
- 3.779652767315526*^9, 3.779652799856619*^9, 3.77972107483569*^9},
+ 3.779652767315526*^9, 3.779652799856619*^9, 3.77972107483569*^9,
+ 3.77979550837192*^9},
CellLabel->
"During evaluation of \
-In[1]:=",ExpressionUUID->"d042288d-cedb-4f34-9877-181e60d9b7a5"],
+In[1]:=",ExpressionUUID->"838d0a23-6898-4c1f-9715-1557c1d029a2"],
Cell[BoxData["\<\"helicityvec by J.G. Reyes v1. August 2019\"\>"], "Print",
CellChangeTimes->{3.77963956193819*^9, 3.779640733886427*^9,
- 3.779652767315526*^9, 3.779652799856619*^9, 3.779721074850623*^9},
+ 3.779652767315526*^9, 3.779652799856619*^9, 3.77972107483569*^9,
+ 3.7797955083906403`*^9},
CellLabel->
"During evaluation of \
-In[1]:=",ExpressionUUID->"4c683fb4-9f6e-4b4b-b355-9709eeace5e8"]
+In[1]:=",ExpressionUUID->"0dd636b2-e8e5-4deb-9234-9b33c7354d96"]
}, Open ]]
}, Open ]],
@@ -103,135 +105,6 @@ Cell[BoxData[
CellChangeTimes->{{3.779638797404049*^9, 3.779638797726428*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"5d0ea240-67dd-49bc-b50f-db3cf34e44fc"],
-Cell[BoxData[{
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"StringJoin", "[",
- RowBox[{
- RowBox[{"ParentDirectory", "[", "]"}], ",",
- "\"\</helicities/0jets\>\""}], "]"}], "]"}], ";"}],
- "\[IndentingNewLine]"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"zjetspp", "=",
- RowBox[{"Import", "[", "\"\<ggH_++.m\>\"", "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"zjetspm", "=",
- RowBox[{"Import", "[", "\"\<ggH_+-.m\>\"", "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"zjetsmp", "=",
- RowBox[{"Import", "[", "\"\<ggH_-+.m\>\"", "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"zjetsmm", "=",
- RowBox[{"Import", "[", "\"\<ggH_--.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"zjetsppV", "=",
- RowBox[{"Import", "[", "\"\<ggH_++_vel.m\>\"", "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"zjetspmV", "=",
- RowBox[{"Import", "[", "\"\<ggH_+-_vel.m\>\"", "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"zjetsmpV", "=",
- RowBox[{"Import", "[", "\"\<ggH_-+_vel.m\>\"", "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"zjetsmmV", "=",
- RowBox[{"Import", "[", "\"\<ggH_--_vel.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"StringJoin", "[",
- RowBox[{
- RowBox[{"ParentDirectory", "[", "]"}], ",",
- "\"\</helicities/1jets\>\""}], "]"}], "]"}], ";"}],
- "\[IndentingNewLine]"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ojetsppp", "=",
- RowBox[{"Import", "[", "\"\<ggHg_+++.m\>\"", "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ojetsppm", "=",
- RowBox[{"Import", "[", "\"\<ggHg_++-.m\>\"", "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ojetspmp", "=",
- RowBox[{"Import", "[", "\"\<ggHg_+-+.m\>\"", "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ojetsmpp", "=",
- RowBox[{"Import", "[", "\"\<ggHg_-++.m\>\"", "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ojetspmm", "=",
- RowBox[{"Import", "[", "\"\<ggHg_+--.m\>\"", "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ojetsmpm", "=",
- RowBox[{"Import", "[", "\"\<ggHg_-+-.m\>\"", "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ojetsmmp", "=",
- RowBox[{"Import", "[", "\"\<ggHg_--+.m\>\"", "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"ojetsmmm", "=",
- RowBox[{"Import", "[", "\"\<ggHg_---.m\>\"", "]"}]}], ";"}],
- "\[IndentingNewLine]"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ojetspppV", "=",
- RowBox[{"Import", "[", "\"\<ggHg_+++_vel.m\>\"", "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ojetsppmV", "=",
- RowBox[{"Import", "[", "\"\<ggHg_++-_vel.m\>\"", "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ojetspmpV", "=",
- RowBox[{"Import", "[", "\"\<ggHg_+-+_vel.m\>\"", "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ojetsmppV", "=",
- RowBox[{"Import", "[", "\"\<ggHg_-++_vel.m\>\"", "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ojetspmmV", "=",
- RowBox[{"Import", "[", "\"\<ggHg_+--_vel.m\>\"", "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ojetsmpmV", "=",
- RowBox[{"Import", "[", "\"\<ggHg_-+-_vel.m\>\"", "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ojetsmmpV", "=",
- RowBox[{"Import", "[", "\"\<ggHg_--+_vel.m\>\"", "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ojetsmmmV", "=",
- RowBox[{"Import", "[", "\"\<ggHg_---_vel.m\>\"", "]"}]}], ";"}]}], "Input",\
-
- CellChangeTimes->{{3.7796351899715853`*^9, 3.779635219723063*^9}, {
- 3.779635262192771*^9, 3.779635281649795*^9}, {3.779635379233115*^9,
- 3.779635624139512*^9}, {3.77963573169842*^9, 3.779635839416141*^9}},
- CellLabel->"In[4]:=",ExpressionUUID->"d7b76967-dca2-4367-8a21-339155e2fa1b"],
-
Cell[BoxData[{
RowBox[{
RowBox[{"VelSub", ":=", "\[IndentingNewLine]",
@@ -554,7 +427,7 @@ Cell[BoxData[{
3.779638711862108*^9}, {3.779638813641624*^9, 3.7796388284302998`*^9}, {
3.7796408009027557`*^9, 3.779640811600585*^9}, {3.779640860910718*^9,
3.779640863344008*^9}, {3.779645656896225*^9, 3.779645659004375*^9}},
- CellLabel->"In[4]:=",ExpressionUUID->"cbc22efa-decc-497a-9b30-3d83accfa7ac"],
+ CellLabel->"In[32]:=",ExpressionUUID->"cbc22efa-decc-497a-9b30-3d83accfa7ac"],
Cell[BoxData[
RowBox[{"Kinematics", ":=",
@@ -590,87 +463,216 @@ Cell[BoxData[
3.779638122031776*^9}, {3.779639046841374*^9, 3.7796391364973383`*^9}, {
3.779639187821389*^9, 3.779639212489912*^9}, {3.779639393945671*^9,
3.779639465518195*^9}},
- CellLabel->"In[23]:=",ExpressionUUID->"7ea9f282-595c-4ec8-9993-bd70daad86ee"],
+ CellLabel->"In[51]:=",ExpressionUUID->"7ea9f282-595c-4ec8-9993-bd70daad86ee"],
-Cell[BoxData[
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
RowBox[{
- RowBox[{"(*", " ",
- RowBox[{
- RowBox[{"for", " ", "g", " ", "g"}], " ", "->", " ", "H"}], " ", "*)"}],
- "\[IndentingNewLine]",
RowBox[{
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"SetDirectory", "[",
- RowBox[{"StringJoin", "[",
- RowBox[{
- RowBox[{"ParentDirectory", "[", "]"}], ",", "\"\</plots/0jets\>\""}],
- "]"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]",
- RowBox[{"(*", " ", "++", " ", "*)"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"re", "=",
- RowBox[{
- RowBox[{
- RowBox[{"Re", "[", "zjetspp", "]"}], "//.",
- RowBox[{"S", "\[Rule]", "sqrtS"}]}], "//.", "FundConst"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"im", "=",
- RowBox[{
- RowBox[{
- RowBox[{"Im", "[", "zjetspp", "]"}], "//.",
- RowBox[{"S", "\[Rule]", "sqrtS"}]}], "//.", "FundConst"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"plot01", "=",
- RowBox[{"Plot", "[",
- RowBox[{
- RowBox[{"{",
- RowBox[{"re", ",", "im"}], "}"}], ",",
- RowBox[{"{",
- RowBox[{"sqrtS", ",", "125", ",",
- RowBox[{"4", "*", "173"}]}], "}"}], ",",
- RowBox[{"PlotLabels", "\[Rule]",
- RowBox[{"{",
- RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
- RowBox[{"AxesLabel", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[++]\>\""}],
- "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"Export", "[",
- RowBox[{"\"\<ggH_++.png\>\"", ",", "plot01", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
- "\[IndentingNewLine]", "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"reV", "=",
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"StringJoin", "[",
RowBox[{
- RowBox[{"Re", "[", "zjetsppV", "]"}], "//.", "FundConst"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"imV", "=",
+ RowBox[{"ParentDirectory", "[", "]"}], ",",
+ "\"\</helicities/0jets\>\""}], "]"}], "]"}], ";"}],
+ "\[IndentingNewLine]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"zjetspp", "=",
+ RowBox[{"Import", "[", "\"\<ggH_++.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"zjetspm", "=",
+ RowBox[{"Import", "[", "\"\<ggH_+-.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"zjetsmp", "=",
+ RowBox[{"Import", "[", "\"\<ggH_-+.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"zjetsmm", "=",
+ RowBox[{"Import", "[", "\"\<ggH_--.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"zjetsppV", "=",
+ RowBox[{"Import", "[", "\"\<ggH_++_vel.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"zjetspmV", "=",
+ RowBox[{"Import", "[", "\"\<ggH_+-_vel.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"zjetsmpV", "=",
+ RowBox[{"Import", "[", "\"\<ggH_-+_vel.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"zjetsmmV", "=",
+ RowBox[{"Import", "[", "\"\<ggH_--_vel.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"StringJoin", "[",
RowBox[{
- RowBox[{"Im", "[", "zjetsppV", "]"}], "//.", "FundConst"}]}], ";"}],
- "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"plot01V", "=",
- RowBox[{"Plot", "[",
- RowBox[{
- RowBox[{"{",
- RowBox[{"reV", ",", "imV"}], "}"}], ",",
- RowBox[{"{",
- RowBox[{"\[Beta]", ",", "0", ",", "1"}], "}"}], ",",
- RowBox[{"PlotLabels", "\[Rule]",
- RowBox[{"{",
- RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
- RowBox[{"AxesLabel", "\[Rule]",
- RowBox[{"{",
- RowBox[{"\[Beta]", ",", "\"\<Amp[++]\>\""}], "}"}]}]}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
+ RowBox[{"ParentDirectory", "[", "]"}], ",",
+ "\"\</helicities/1jets\>\""}], "]"}], "]"}], ";"}],
+ "\[IndentingNewLine]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ojetsppp", "=",
+ RowBox[{"Import", "[", "\"\<ggHg_+++.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ojetsppm", "=",
+ RowBox[{"Import", "[", "\"\<ggHg_++-.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ojetspmp", "=",
+ RowBox[{"Import", "[", "\"\<ggHg_+-+.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ojetsmpp", "=",
+ RowBox[{"Import", "[", "\"\<ggHg_-++.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ojetspmm", "=",
+ RowBox[{"Import", "[", "\"\<ggHg_+--.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ojetsmpm", "=",
+ RowBox[{"Import", "[", "\"\<ggHg_-+-.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ojetsmmp", "=",
+ RowBox[{"Import", "[", "\"\<ggHg_--+.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ojetsmmm", "=",
+ RowBox[{"Import", "[", "\"\<ggHg_---.m\>\"", "]"}]}], ";"}],
+ "\[IndentingNewLine]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ojetspppV", "=",
+ RowBox[{"Import", "[", "\"\<ggHg_+++_vel.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ojetsppmV", "=",
+ RowBox[{"Import", "[", "\"\<ggHg_++-_vel.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ojetspmpV", "=",
+ RowBox[{"Import", "[", "\"\<ggHg_+-+_vel.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ojetsmppV", "=",
+ RowBox[{"Import", "[", "\"\<ggHg_-++_vel.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ojetspmmV", "=",
+ RowBox[{"Import", "[", "\"\<ggHg_+--_vel.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ojetsmpmV", "=",
+ RowBox[{"Import", "[", "\"\<ggHg_-+-_vel.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ojetsmmpV", "=",
+ RowBox[{"Import", "[", "\"\<ggHg_--+_vel.m\>\"", "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ojetsmmmV", "=",
+ RowBox[{"Import", "[", "\"\<ggHg_---_vel.m\>\"", "]"}]}], ";"}]}], "Input",\
+
+ CellChangeTimes->{{3.7796351899715853`*^9, 3.779635219723063*^9}, {
+ 3.779635262192771*^9, 3.779635281649795*^9}, {3.779635379233115*^9,
+ 3.779635624139512*^9}, {3.77963573169842*^9, 3.779635839416141*^9}},
+ CellLabel->"In[4]:=",ExpressionUUID->"d7b76967-dca2-4367-8a21-339155e2fa1b"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"for", " ", "g", " ", "g"}], " ", "->", " ", "H"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"SetDirectory", "[",
+ RowBox[{"StringJoin", "[",
+ RowBox[{
+ RowBox[{"ParentDirectory", "[", "]"}], ",", "\"\</plots/0jets\>\""}],
+ "]"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"(*", " ", "++", " ", "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"re", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Re", "[", "zjetspp", "]"}], "//.",
+ RowBox[{"S", "\[Rule]", "sqrtS"}]}], "//.", "FundConst"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"im", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Im", "[", "zjetspp", "]"}], "//.",
+ RowBox[{"S", "\[Rule]", "sqrtS"}]}], "//.", "FundConst"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plot01", "=",
+ RowBox[{"Plot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"re", ",", "im"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"sqrtS", ",", "125", ",",
+ RowBox[{"4", "*", "173"}]}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[++]\>\""}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{"\"\<ggH_++.png\>\"", ",", "plot01", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"reV", "=",
+ RowBox[{
+ RowBox[{"Re", "[", "zjetsppV", "]"}], "//.", "FundConst"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imV", "=",
+ RowBox[{
+ RowBox[{"Im", "[", "zjetsppV", "]"}], "//.", "FundConst"}]}], ";"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plot01V", "=",
+ RowBox[{"Plot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"reV", ",", "imV"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"\[Beta]", ",", "0", ",", "1"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\[Beta]", ",", "\"\<Amp[++]\>\""}], "}"}]}]}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Export", "[",
RowBox[{"\"\<ggH_++_vel.png\>\"", ",", "plot01V", ",",
@@ -1759,7 +1761,7 @@ Cell[BoxData[
CellChangeTimes->{{3.7796465710669193`*^9, 3.779646601015297*^9}, {
3.779646638334919*^9, 3.779646923981855*^9}, {3.779647265643345*^9,
3.779647319825858*^9}, {3.7796474311016073`*^9, 3.77964746458298*^9}},
- CellLabel->"In[24]:=",ExpressionUUID->"9e5ab832-d55b-4a3c-9abe-9348c681e821"],
+ CellLabel->"In[52]:=",ExpressionUUID->"9e5ab832-d55b-4a3c-9abe-9348c681e821"],
Cell[BoxData[
RowBox[{
@@ -2564,7 +2566,7 @@ Cell[BoxData[
CellChangeTimes->{{3.779652440025276*^9, 3.77965244069526*^9}, {
3.779652923832428*^9, 3.7796529263944063`*^9}, {3.779654115212576*^9,
3.779654116375017*^9}},
- CellLabel->"In[58]:=",ExpressionUUID->"35551bf6-1d6e-48c1-8954-443eb44136bd"],
+ CellLabel->"In[86]:=",ExpressionUUID->"35551bf6-1d6e-48c1-8954-443eb44136bd"],
Cell[CellGroupData[{
@@ -3964,7 +3966,47 @@ Cell[BoxData[""], "Input",
Cell[BoxData[
RowBox[{
- RowBox[{"subAll", "[", "ss_", "]"}], ":=", "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"First", " ", "trial"}], " ", "-", " ",
+ RowBox[{"For", " ", "kT3"}]}], " ", "=", " ",
+ RowBox[{"20", " ", "GeV"}]}], ",", " ",
+ RowBox[{"\[Phi]3", " ", "=", " ",
+ RowBox[{"Pi", "/", "3"}]}], ",", " ",
+ RowBox[{"\[Phi]4", " ", "=", " ",
+ RowBox[{"3", " ",
+ RowBox[{"Pi", "/", "2"}]}]}], ",", " ",
+ RowBox[{"S", " ", "is", " ", "in", " ",
+ RowBox[{"(",
+ RowBox[{"150", " ", "-", " ",
+ RowBox[{"4", "*", "MT"}]}], ")"}]}]}], "*)"}], "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Second", " ", "trial"}], " ", "-", " ",
+ RowBox[{"For", " ", "kT3"}]}], " ", "=", " ",
+ RowBox[{"100", " ", "GeV"}]}], ",", " ",
+ RowBox[{"\[Phi]3", " ", "=", " ",
+ RowBox[{"Pi", "/", "3"}]}], ",", " ",
+ RowBox[{"\[Phi]4", " ", "=", " ",
+ RowBox[{"3", " ",
+ RowBox[{"Pi", "/", "2"}]}]}], ",", " ",
+ RowBox[{"S", " ", "is", " ", "in", " ",
+ RowBox[{"(",
+ RowBox[{"262", " ", "-", " ",
+ RowBox[{"4", "MT"}]}], ")"}]}]}], " ", "*)"}]}]], "Input",
+ CellChangeTimes->{{3.779795593445994*^9, 3.779795625039445*^9}, {
+ 3.779796159020555*^9, 3.77979621806664*^9}, {3.779796325174335*^9,
+ 3.7797963663910303`*^9}},ExpressionUUID->"4fa8ef23-de59-4f0c-90aa-\
+1256848d2e3b"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"subAll", "[",
+ RowBox[{"ss_", ",", "tkT3_"}], "]"}], ":=", "\[IndentingNewLine]",
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"output", "=",
@@ -3972,7 +4014,7 @@ Cell[BoxData[
RowBox[{"N", "[",
RowBox[{
RowBox[{"OutputPS", "[",
- RowBox[{"ss", ",", "20.", ",", "0", ",",
+ RowBox[{"ss", ",", "tkT3", ",", "0", ",",
RowBox[{"Pi", "/", "3"}], ",", "0", ",",
RowBox[{"3", "*",
RowBox[{"Pi", "/", "2"}]}], ",", "125."}], "]"}], ",", "10"}],
@@ -3987,7 +4029,7 @@ Cell[BoxData[
RowBox[{
RowBox[{"S", "\[Rule]",
RowBox[{"ss", "^", "2"}]}], ",",
- RowBox[{"kT3", "\[Rule]", "20."}], ",",
+ RowBox[{"kT3", "\[Rule]", "tkT3"}], ",",
RowBox[{"\[Eta]3", "\[Rule]", "0"}], ",",
RowBox[{"\[Phi]3", "\[Rule]",
RowBox[{"Pi", "/", "3"}]}], ",",
@@ -4000,180 +4042,47 @@ Cell[BoxData[
"\[IndentingNewLine]", "}"}]}]], "Input",
CellChangeTimes->{{3.7797264730293083`*^9, 3.7797265403539248`*^9}, {
3.779726614411455*^9, 3.7797266772874393`*^9}, {3.779726835306903*^9,
- 3.779726851534482*^9}, {3.779727289742364*^9, 3.7797272935777617`*^9}},
+ 3.779726851534482*^9}, {3.779727289742364*^9, 3.7797272935777617`*^9}, {
+ 3.779796371739184*^9, 3.7797963720035667`*^9}, {3.7797964664023314`*^9,
+ 3.779796512446917*^9}},
CellLabel->
- "In[322]:=",ExpressionUUID->"e6fb6024-14d6-408a-87d3-37b6fcf81702"],
-
-Cell[CellGroupData[{
+ "In[263]:=",ExpressionUUID->"e6fb6024-14d6-408a-87d3-37b6fcf81702"],
-Cell[BoxData[{
+Cell[BoxData[
RowBox[{
RowBox[{"range", "=",
RowBox[{"Range", "[",
- RowBox[{"150", ",",
- RowBox[{"4", "*", "173"}], ",", "2"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{
- RowBox[{"size", "=",
- RowBox[{"Length", "[", "range", "]"}]}], ";"}],
- "\[IndentingNewLine]"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppppList", "=",
- RowBox[{"Range", "[",
- RowBox[{"150", ",",
- RowBox[{"4", "*", "173"}], ",", "2"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pppmList", "=",
- RowBox[{"Range", "[",
- RowBox[{"150", ",",
- RowBox[{"4", "*", "173"}], ",", "2"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppmpList", "=",
- RowBox[{"Range", "[",
- RowBox[{"150", ",",
- RowBox[{"4", "*", "173"}], ",", "2"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmppList", "=",
- RowBox[{"Range", "[",
- RowBox[{"150", ",",
- RowBox[{"4", "*", "173"}], ",", "2"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppmmList", "=",
- RowBox[{"Range", "[",
- RowBox[{"150", ",",
- RowBox[{"4", "*", "173"}], ",", "2"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmmmList", "=",
- RowBox[{"Range", "[",
- RowBox[{"150", ",",
- RowBox[{"4", "*", "173"}], ",", "2"}], "]"}]}],
- ";"}], "\[IndentingNewLine]",
+ RowBox[{"262", ",",
+ RowBox[{"4", "*", "173"}], ",", "4"}], "]"}]}], ";"}]], "Input",
+ CellLabel->
+ "In[264]:=",ExpressionUUID->"f5941321-f681-4658-b2ae-0bbf629be6c2"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
RowBox[{
- RowBox[{
- RowBox[{"pmpmList", "=",
- RowBox[{"Range", "[",
- RowBox[{"150", ",",
- RowBox[{"4", "*", "173"}], ",", "2"}], "]"}]}], ";"}],
- "\[IndentingNewLine]"}], "\[IndentingNewLine]",
- RowBox[{"Do", "[", "\[IndentingNewLine]",
- RowBox[{
+ RowBox[{"(*", " ",
RowBox[{
- RowBox[{"subAll", "[",
- RowBox[{"range", "[",
- RowBox[{"[", "n", "]"}], "]"}], "]"}], ";", "\[IndentingNewLine]",
- RowBox[{"pppp", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetspppp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppppList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=", "pppp"}], ";",
- "\[IndentingNewLine]", "\[IndentingNewLine]",
- RowBox[{"pppm", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetspppm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pppmList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=", "pppm"}], ";",
- "\[IndentingNewLine]", "\[IndentingNewLine]",
- RowBox[{"ppmp", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetsppmp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
+ "Check", " ", "that", " ", "the", " ", "lower", " ", "limit", " ", "on",
+ " ", "S", " ", "conserves", " ", "momentum"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"output", "=",
RowBox[{
- RowBox[{"ppmpList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=", "ppmp"}], ";",
- "\[IndentingNewLine]", "\[IndentingNewLine]",
- RowBox[{"pmpp", "=",
- RowBox[{"Chop", "[",
+ RowBox[{"N", "[",
RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetspmpp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmppList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=", "pmpp"}], ";",
- "\[IndentingNewLine]", "\[IndentingNewLine]",
- RowBox[{"ppmm", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetsppmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"ppmmList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=", "ppmm"}], ";",
- "\[IndentingNewLine]", "\[IndentingNewLine]",
- RowBox[{"pmmm", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetspmmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmmmList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=", "pmmm"}], ";",
- "\[IndentingNewLine]", "\[IndentingNewLine]",
- RowBox[{"pmpm", "=",
- RowBox[{"Chop", "[",
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{
- RowBox[{"tjetspmpm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
- "FundConst"}], "//", "Simplify"}], ",",
- RowBox[{"10", "^",
- RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
- RowBox[{
- RowBox[{"pmpmList", "[",
- RowBox[{"[", "n", "]"}], "]"}], "=", "pmpm"}], ";"}],
- "\[IndentingNewLine]", "\[IndentingNewLine]", ",",
- RowBox[{"{",
- RowBox[{"n", ",", "1", ",", "size"}], "}"}]}],
- "]"}], "\[IndentingNewLine]"}], "Input",
- CellChangeTimes->{{3.779726989715151*^9, 3.77972709982976*^9}, {
- 3.779727147875164*^9, 3.779727196755348*^9}, {3.779727502231495*^9,
- 3.7797275027819767`*^9}, {3.779727610867655*^9, 3.779727746167663*^9}, {
- 3.779730897497858*^9, 3.779731129929401*^9}},
- CellLabel->
- "In[323]:=",ExpressionUUID->"d4ac6f76-1854-421d-aad8-bdf164ad28b3"],
+ RowBox[{"OutputPS", "[",
+ RowBox[{"262", ",", "20.", ",", "0", ",",
+ RowBox[{"Pi", "/", "3"}], ",", "0", ",",
+ RowBox[{"3", "*",
+ RowBox[{"Pi", "/", "2"}]}], ",", "125."}], "]"}], ",", "10"}],
+ "]"}], "[",
+ RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}]], "Input",
+ CellChangeTimes->{{3.779796230126852*^9, 3.77979632179935*^9}, {
+ 3.779796380065503*^9, 3.7797964188256207`*^9}, {3.779807819470285*^9,
+ 3.7798078202954607`*^9}},
+ CellLabel->
+ "In[265]:=",ExpressionUUID->"a8132637-c3e1-4436-93bd-91c4f1b0f8d4"],
Cell[CellGroupData[{
@@ -4181,15 +4090,16 @@ Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "22.916666666666668`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "101.18129770992365`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 22.916666666666668`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 101.18129770992365`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9},
+ CellChangeTimes->{{3.779796245753159*^9, 3.779796322208068*^9},
+ 3.779796382541615*^9, 3.77979641935826*^9, 3.779807840882118*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"093ed569-ac30-4fe3-86ea-405c16d9ef4a"],
+In[265]:=",ExpressionUUID->"64ced39d-6428-402b-815a-91c9b3d19a50"],
Cell[BoxData[
InterpretationBox[
@@ -4200,12 +4110,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"75.`", ",", "0.`", ",", "0.`", ",", "75.`"}], "}"}]}]},
+ RowBox[{"131.`", ",", "0.`", ",", "0.`", ",", "131.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"75.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "75.`"}]}], "}"}]}]},
+ RowBox[{"131.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "131.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -4215,14 +4125,14 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"12.154593543157478`", ",", "0.`", ",",
- RowBox[{"-", "12.154593543157478`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"75.94190223136785`", ",", "0.`", ",",
+ RowBox[{"-", "75.94190223136785`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"11.255517445120772`", ",",
- RowBox[{"-", "10.`"}], ",",
- RowBox[{"-", "5.1659145325312945`"}], ",", "0.`"}], "}"}]}]}
+ RowBox[{"59.468208756910485`", ",",
+ RowBox[{"-", "10.`"}], ",", "58.62139415567908`", ",", "0.`"}],
+ "}"}]}]}
},
GridBoxAlignment->{
"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
@@ -4238,16 +4148,17 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {75., 0., 0., 75.}, $CellContext`p2 -> {75.,
- 0., 0., -75.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {12.154593543157478`,
- 0., -12.154593543157478`, 0.}, $CellContext`p5 -> {
- 11.255517445120772`, -10., -5.1659145325312945`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {131., 0., 0., 131.}, $CellContext`p2 -> {
+ 131., 0., 0., -131.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {75.94190223136785,
+ 0., -75.94190223136785, 0.}, $CellContext`p5 -> {
+ 59.468208756910485`, -10., 58.62139415567908, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731144335422*^9},
+ CellChangeTimes->{{3.779796245753159*^9, 3.779796322208068*^9},
+ 3.779796382541615*^9, 3.77979641935826*^9, 3.7798078408960743`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d6f4cf28-7d5f-4848-9247-eb61ce583fbc"],
+In[265]:=",ExpressionUUID->"57eea8d9-a7e0-410a-bbbf-69f5ac408d9f"],
Cell[BoxData[
InterpretationBox[
@@ -4256,21143 +4167,255 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.2266891068084842755392094518802078917500484225335542713778765434`\
-44.61161325396839*^-13"}], ",", "0``58.69897000433602", ",",
- "0``58.46040937697619", ",", "0``57.823908740944326"}], "}"}]}],
+ "-", "3.985169515061360051931986433176072622456486882658638822414662126`\
+43.88111551249745*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.81848853296706", ",", "0``57.58169870868025"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.2266891068084842755392094518802078917500484225335542713778765434`44.\
-61161325396839*^-13, 0``58.69897000433602, 0``58.46040937697619,
- 0``57.823908740944326}],
+{-3.985169515061360051931986433176072622456486882658638822414662126`43.\
+88111551249745*^-14, 0``58.69897000433602, 0``57.81848853296706,
+ 0``57.58169870868025}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731144348896*^9},
+ CellChangeTimes->{{3.779796245753159*^9, 3.779796322208068*^9},
+ 3.779796382541615*^9, 3.77979641935826*^9, 3.779807840907927*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"b7f6e23d-f97e-4566-87a6-1415e645a34e"],
+In[265]:=",ExpressionUUID->"faf45695-42b6-4c3a-9f45-c2fd12eee54d"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731144357709*^9},
+ CellChangeTimes->{{3.779796245753159*^9, 3.779796322208068*^9},
+ 3.779796382541615*^9, 3.77979641935826*^9, 3.779807840915066*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"7662925b-ef50-4342-8aba-281bcf17c510"],
+In[265]:=",ExpressionUUID->"8df984ec-bb66-499b-bb30-fc1f23067576"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "12.1545935431574783081`10."}], ",",
- RowBox[{"S", "\[Rule]", "22500.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "75.9419022313678482305`10."}], ",",
+ RowBox[{"S", "\[Rule]", "68644.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "3363.483351758244096333`10."}]}], ",",
+ RowBox[{"-", "17541.5509210710663549283`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "3363.483351758244096333`10."}]}], ",",
+ RowBox[{"-", "17541.5509210710663549283`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "1823.1890314736217462155`10."}]}], ",",
+ RowBox[{"-", "19896.7783846183762364035`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "1823.1890314736217462155`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "19123.344766463734446501`10."}], ",",
+ RowBox[{"-", "19896.7783846183762364035`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "37482.6586113788899224813`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "150.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "262.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "138.2871822204203221015`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "193.6043868598511120072`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- "1.93576566879437061904279954738627207096`10."}], ",",
- RowBox[{"kT5", "\[Rule]", "11.2555174451207717141`10."}], ",",
+ RowBox[{"-", "0.17058618519790403534658483863109341926`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "59.4682087569104846089`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "137.3084918606737981999`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "169.8541822586751400411`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731144366498*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"db45e876-9ba1-46d6-bc2b-e4e95cda352c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "24.601973684210524`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 24.601973684210524`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797311548585033`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"16dda6c3-6f2f-49ef-826f-5fcf6e8dec2f"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"76.`", ",", "0.`", ",", "0.`", ",", "76.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"76.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "76.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"15.184536440860843`", ",", "0.`", ",",
- RowBox[{"-", "15.184536440860843`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"10.225574547417349`", ",",
- RowBox[{"-", "10.`"}], ",",
- RowBox[{"-", "2.1359716348279303`"}], ",", "0.`"}], "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {76., 0., 0., 76.}, $CellContext`p2 -> {76.,
- 0., 0., -76.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {15.184536440860843`,
- 0., -15.184536440860843`, 0.}, $CellContext`p5 -> {
- 10.225574547417349`, -10., -2.1359716348279303`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731154868538*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2e370511-a8d6-42eb-9467-12e5ad916846"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.8214488978639239188936583187361786028250771356742131823000650539`\
-44.77754340767764*^-13"}], ",", "0``58.69897000433602", ",",
- "0``58.46040937697618", ",", "0``57.81815641205523"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.8214488978639239188936583187361786028250771356742131823000650539`44.\
-77754340767764*^-13, 0``58.69897000433602, 0``58.46040937697618,
- 0``57.81815641205523}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797311548785057`*^9},
+ CellChangeTimes->{{3.779796245753159*^9, 3.779796322208068*^9},
+ 3.779796382541615*^9, 3.77979641935826*^9, 3.779807840925302*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"8ac30807-ab2c-463e-881e-2bc9882c353c"],
+In[265]:=",ExpressionUUID->"96cc5957-701c-4300-a4a5-342707f05c9c"]
+}, Open ]]
+}, Closed]],
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797311548873663`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c0db70c8-e2ab-46d2-a3a0-34936e357fc9"],
+Cell[CellGroupData[{
-Cell[BoxData[
- RowBox[{"{",
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"range", "=",
+ RowBox[{"Range", "[",
+ RowBox[{"262", ",",
+ RowBox[{"4", "*", "173"}], ",", "4"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "15.1845364408608425322`10."}], ",",
- RowBox[{"S", "\[Rule]", "23104.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "3616.6631297816873509507`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "3616.6631297816873509507`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "2308.0495390108480648905`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "2308.0495390108480648905`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "19995.4253375850745567548`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "152.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "141.4051814382523769221`10."}], ",",
+ RowBox[{"size", "=",
+ RowBox[{"Length", "[", "range", "]"}]}], ";"}], "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- "4.6817101111951704226`10."}], ",",
- RowBox[{"kT5", "\[Rule]", "10.225574547417348014`10."}], ",",
+ "Initialize", " ", "where", " ", "the", " ", "scattering", " ",
+ "amplitude", " ", "will", " ", "be", " ", "saved", " ", "for", " ",
+ "each", " ", "S"}], " ", "*)"}]}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ppppList", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pppmList", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ppmpList", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pmppList", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ppmmList", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"pmmmList", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"pmpmList", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}], "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{"Initialize", " ", "where", " ", "the", " ", "sqrt",
+ RowBox[{"(", "S34", ")"}], " ", "will", " ", "be", " ", "saved", " ",
+ "for", " ", "each", " ", "S"}], " ", "*)"}]}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"S34List", "=",
+ RowBox[{"Range", "[", "size", "]"}]}], ";"}],
+ "\[IndentingNewLine]"}], "\[IndentingNewLine]",
+ RowBox[{"Do", "[", "\[IndentingNewLine]",
+ RowBox[{
RowBox[{
- SqrtBox["S35"], "\[Rule]", "135.970220717546288867`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731154897005*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"57b4d524-c4c6-411a-ab82-cbb9eda89251"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "26.26948051948052`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 26.26948051948052}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731165010335*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"68f9dc53-3090-4814-84a8-d1684a20fd4d"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"77.`", ",", "0.`", ",", "0.`", ",", "77.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"77.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "77.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"17.409713119203793`", ",", "0.`", ",",
- RowBox[{"-", "17.409713119203793`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"10.000397869074435`", ",",
- RowBox[{"-", "10.`"}], ",", "0.08920504351502057`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {77., 0., 0., 77.}, $CellContext`p2 -> {77.,
- 0., 0., -77.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {17.409713119203793`,
- 0., -17.409713119203793`, 0.}, $CellContext`p5 -> {
- 10.000397869074435`, -10., 0.08920504351502057, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731165020075*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"807f9006-0a2d-4bd7-837c-3f2a0675c1fd"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
+ RowBox[{"subAll", "[",
RowBox[{
- "-", "1.4337855817232022578245619723681868430603296421150821953402460196`\
-44.66793349226715*^-13"}], ",", "0``58.69897000433602", ",",
- "0``58.45817838955259", ",", "0``57.81247927916353"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.4337855817232022578245619723681868430603296421150821953402460196`44.\
-66793349226715*^-13, 0``58.69897000433602, 0``58.45817838955259,
- 0``57.81247927916353}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973116502894*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"df9edb69-8e8f-48e1-9027-e1bed12e701f"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731165039344*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c665cc9b-3e80-4241-8314-55f57883ed09"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "17.4097131192037934966`10."}], ",",
- RowBox[{"S", "\[Rule]", "23716.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "3869.8429078051306055685`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "3869.8429078051306055685`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "2681.0958203573841984735`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "2681.0958203573841984735`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "20635.8774563250324757692`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "154.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "143.651931613623046596`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "112.101284926969132381`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "10.000397869074435816`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "135.476228022798126747`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731165048402*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c34d6111-35ae-4a7c-9e52-61f9dc97062f"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "27.919871794871796`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 27.919871794871796`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731175214842*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"fdfe0891-9f15-4113-b34f-881989505d4c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"78.`", ",", "0.`", ",", "0.`", ",", "78.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"78.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "78.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"19.229524398136533`", ",", "0.`", ",",
- RowBox[{"-", "19.229524398136533`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"10.18058659014165`", ",",
- RowBox[{"-", "10.`"}], ",", "1.90901632244776`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {78., 0., 0., 78.}, $CellContext`p2 -> {78.,
- 0., 0., -78.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {19.229524398136533`,
- 0., -19.229524398136533`, 0.}, $CellContext`p5 -> {
- 10.18058659014165, -10., 1.90901632244776, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973117522377*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c847b5b8-5dfc-4dbf-b1af-31b08b4c847d"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
+ RowBox[{"range", "[",
+ RowBox[{"[", "n", "]"}], "]"}], ",", "20."}], "]"}], ";",
+ "\[IndentingNewLine]",
RowBox[{
- RowBox[{
- "-", "1.9041566149641504709691018141740870015164524326713259971959797691`\
-44.78554807178288*^-13"}], ",", "0``58.69897000433602", ",",
- "0``58.41500146132578", ",", "0``57.806875401645534"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.9041566149641504709691018141740870015164524326713259971959797691`44.\
-78554807178288*^-13, 0``58.69897000433602, 0``58.41500146132578,
- 0``57.806875401645534}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797311752322693`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"94e0bc35-a014-4d64-b56c-70fad24b45a1"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731175240574*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ecaaf9c3-3517-4f0d-98f4-b7dce022a5f9"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "19.2295243981365331365`10."}], ",",
- RowBox[{"S", "\[Rule]", "24336.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "4123.0226858285738601863`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "4123.0226858285738601863`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "2999.8058061092991692931`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "2999.8058061092991692931`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "21159.656983875749936045`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "156.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "145.463593327938073235`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "5.238299894250195827`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "10.1805865901416491389`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "135.4119211435291230908`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973117524911*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"4dbe994b-a725-49d4-80dd-ef8f41dce6a8"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "29.55379746835443`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 29.55379746835443}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731185498604*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"51faeea1-8e85-4ac9-967d-d1a820eb460d"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"79.`", ",", "0.`", ",", "0.`", ",", "79.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"79.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "79.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"20.816593481559995`", ",", "0.`", ",",
- RowBox[{"-", "20.816593481559995`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"10.593517506718236`", ",",
- RowBox[{"-", "10.`"}], ",", "3.496085405871222`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {79., 0., 0., 79.}, $CellContext`p2 -> {79.,
- 0., 0., -79.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {20.816593481559995`,
- 0., -20.816593481559995`, 0.}, $CellContext`p5 -> {
- 10.593517506718236`, -10., 3.496085405871222, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797311855070066`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2c3d14ae-32c4-43c0-b1f7-c5665e38593c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
+ RowBox[{"S34List", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=",
+ RowBox[{"KinRules", "[",
+ RowBox[{"[",
+ RowBox[{"10", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
+ RowBox[{"pppp", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"tjetspppp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{
- RowBox[{
- "-", "1.4230713683943549482222899264370408189761344974408721288211334405`\
-44.65353959829695*^-13"}], ",", "0``58.69897000433602", ",",
- "0``58.38056034319632", ",", "0``57.80134291304559"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.4230713683943549482222899264370408189761344974408721288211334405`44.\
-65353959829695*^-13, 0``58.69897000433602, 0``58.38056034319632,
- 0``57.80134291304559}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731185515181*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"42ca4596-cc4a-40be-b20a-3e67b5b98110"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731185523106*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"826e3de0-619d-43d2-b7f0-f75af37aafea"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "20.8165934815599946717`10."}], ",",
- RowBox[{"S", "\[Rule]", "24964.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "4376.2024638520171148041`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "4376.2024638520171148041`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "3289.0217700864791581239`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "3289.0217700864791581239`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "21616.4484678769955609222`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "158.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "147.025332741935991719`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "2.86034202231052414941566905404179976813`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "10.5935175067182357123`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "135.5948246056131842932`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731185531123*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0251a2de-c734-4d01-afa9-14f2ac7eda4a"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "31.171875`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 31.171875}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731195490836*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ad8dd0cc-f516-4859-b0ce-19003548f4ac"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"80.`", ",", "0.`", ",", "0.`", ",", "80.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"80.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "80.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"22.25771264027417`", ",", "0.`", ",",
- RowBox[{"-", "22.25771264027417`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"11.152398348004024`", ",",
- RowBox[{"-", "10.`"}], ",", "4.937204564585398`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {80., 0., 0., 80.}, $CellContext`p2 -> {80.,
- 0., 0., -80.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {22.25771264027417,
- 0., -22.25771264027417, 0.}, $CellContext`p5 -> {
- 11.152398348004024`, -10., 4.937204564585398, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731195500052*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2c31ece3-5d37-45c2-8567-8f4e92a4045a"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
+ RowBox[{"ppppList", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=", "pppp"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"pppm", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"tjetspppm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{
- RowBox[{
- "-", "1.7714274992672487346478049286157753563797135757416938853187302581`\
-44.743173403970225*^-13"}], ",", "0``58.69897000433602", ",",
- "0``58.35148947321195", ",", "0``57.795880017344075"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.7714274992672487346478049286157753563797135757416938853187302581`44.\
-743173403970225*^-13, 0``58.69897000433602, 0``58.35148947321195,
- 0``57.795880017344075}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731195508749*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"45090c40-ac8d-4030-bfdc-044e0c8c9e63"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731195517486*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"3b9ff638-95c8-45e0-b184-818fce59b1ff"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "22.2577126402741711786`10."}], ",",
- RowBox[{"S", "\[Rule]", "25600.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "4629.3822418754603694218`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "4629.3822418754603694218`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "3561.2340224438673885743`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "3561.2340224438673885743`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "22031.2325286386594671253`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "160.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "148.4292172338002308955`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "2.02543764779974232378884872699430329175`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "11.1523983480040243698`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "135.9320858190302927817`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731195526544*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8a250bad-55bc-43e9-9cd9-4700eb5490a0"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "32.77469135802469`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 32.77469135802469}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797312055759974`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"80d6d6ea-538b-45bc-b3fe-bae26d824017"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"81.`", ",", "0.`", ",", "0.`", ",", "81.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"81.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "81.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"23.601290872115495`", ",", "0.`", ",",
- RowBox[{"-", "23.601290872115495`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"11.808820116162744`", ",",
- RowBox[{"-", "10.`"}], ",", "6.280782796426722`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {81., 0., 0., 81.}, $CellContext`p2 -> {81.,
- 0., 0., -81.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {23.601290872115495`,
- 0., -23.601290872115495`, 0.}, $CellContext`p5 -> {
- 11.808820116162744`, -10., 6.280782796426722, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797312055844593`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"bf358510-a1e8-406d-8d93-6bad0a9de60e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
+ RowBox[{"pppmList", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=", "pppm"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"ppmp", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"tjetsppmp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{
- RowBox[{
- "-", "1.339721753292157730952945243069647718828927486181575857685315369`\
-44.616469598936035*^-13"}], ",", "0``58.69897000433602", ",",
- "0``58.326034246988584", ",", "0``57.79048498545736"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.339721753292157730952945243069647718828927486181575857685315369`44.\
-616469598936035*^-13, 0``58.69897000433602, 0``58.326034246988584,
- 0``57.79048498545736}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731205593094*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2fe42762-ef19-44b9-8a9a-dab737bb9373"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973120560159*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c1df84c2-6469-4926-b003-e0486b5106be"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "23.6012908721154950342`10."}], ",",
- RowBox[{"S", "\[Rule]", "26244.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "4882.5620198989036240396`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "4882.5620198989036240396`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "3823.409121282710195544`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "3823.409121282710195544`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "22417.9422823632308032739`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "162.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "149.7262244310035048286`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "1.59215822678810415267982999180202241753`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "11.8088201161627436847`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "136.3714843999087021955`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731205610304*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"98917a23-5fa9-48f8-9b30-004a15fb7d60"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "34.362804878048784`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 34.362804878048784`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731217095743*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e82daa1e-410e-48b8-a24b-0cf7d8c17665"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"82.`", ",", "0.`", ",", "0.`", ",", "82.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"82.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "82.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"24.87645994060277`", ",", "0.`", ",",
- RowBox[{"-", "24.87645994060277`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"12.533651047675507`", ",",
- RowBox[{"-", "10.`"}], ",", "7.5559518649139985`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {82., 0., 0., 82.}, $CellContext`p2 -> {82.,
- 0., 0., -82.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {24.87645994060277,
- 0., -24.87645994060277, 0.}, $CellContext`p5 -> {
- 12.533651047675507`, -10., 7.5559518649139985`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731217107205*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1297d86f-f33e-4aa3-929e-4ea3a7fee9bd"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
+ RowBox[{"ppmpList", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=", "ppmp"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"pmpp", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"tjetspmpp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{
- RowBox[{
- "-", "9.452746836743029394229237617667105559656353514499505587953691496`\
-44.459684183072504*^-14"}], ",", "0``58.69897000433602", ",",
- "0``58.303181426454245", ",", "0``57.78515615195231"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-9.452746836743029394229237617667105559656353514499505587953691496`44.\
-459684183072504*^-14, 0``58.69897000433602, 0``58.303181426454245,
- 0``57.78515615195231}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797312171177063`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0133d6d6-3a28-4c42-be89-918fc4b000e8"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731217127438*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"31d9d331-9e17-439f-924b-fd863f0540fb"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "24.8764599406027713258`10."}], ",",
- RowBox[{"S", "\[Rule]", "26896.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "5135.7417979223468786574`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "5135.7417979223468786574`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "4079.7394302588544974242`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "4079.7394302588544974242`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "22784.9624563624051217117`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "164.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "150.9468862095618225532`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "1.3234599927025633175475664520763087319`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "12.5336510476755068379`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "136.8814126880719503014`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731217135138*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"479bcc9d-1bba-4fcf-a77b-5fa35d590923"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "35.93674698795181`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 35.93674698795181}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731227374648*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2f2c5849-eb5b-4999-830b-fe1dbe2282d9"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"83.`", ",", "0.`", ",", "0.`", ",", "83.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"83.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "83.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"26.10180121099402`", ",", "0.`", ",",
- RowBox[{"-", "26.10180121099402`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"13.30830977728423`", ",",
- RowBox[{"-", "10.`"}], ",", "8.781293135305246`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {83., 0., 0., 83.}, $CellContext`p2 -> {83.,
- 0., 0., -83.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {26.10180121099402,
- 0., -26.10180121099402, 0.}, $CellContext`p5 -> {
- 13.30830977728423, -10., 8.781293135305246, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797312273821087`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d34aca8d-f0fa-49c4-81e1-bb8653f78941"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.2387128176894197008270421727429303337718974100038572144601079386`\
-44.571832547813784*^-13"}], ",", "0``58.69897000433602", ",",
- "0``58.28229952653779", ",", "0``57.77989191195994"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.2387128176894197008270421727429303337718974100038572144601079386`44.\
-571832547813784*^-13, 0``58.69897000433602, 0``58.28229952653779,
- 0``57.77989191195994}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731227388496*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"656179f5-f4d8-455f-8a56-56ed6142f1a4"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797312273951073`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"3dfb1d84-bb71-48e3-b184-8966905dd67c"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "26.1018012109940187315`10."}], ",",
- RowBox[{"S", "\[Rule]", "27556.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "5388.9215759457901332752`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "5388.9215759457901332752`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "4332.8990010250071094333`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "4332.8990010250071094333`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "23137.6411539415977824517`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "166.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "152.1106214369713163932`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "1.13878444164390041585276524803060489756`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "13.3083097772842300883`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "137.4416312401375390573`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797312274014797`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e76c108b-7b5a-453d-8b6b-30642b7f9773"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "37.49702380952381`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 37.49702380952381}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797312377762957`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"af84e8cc-8b55-498c-aa41-8a5bc29e6a58"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"84.`", ",", "0.`", ",", "0.`", ",", "84.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"84.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "84.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"27.28972529834432`", ",", "0.`", ",",
- RowBox[{"-", "27.28972529834432`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"14.120385689933967`", ",",
- RowBox[{"-", "10.`"}], ",", "9.969217222655546`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {84., 0., 0., 84.}, $CellContext`p2 -> {84.,
- 0., 0., -84.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {27.28972529834432,
- 0., -27.28972529834432, 0.}, $CellContext`p5 -> {
- 14.120385689933967`, -10., 9.969217222655546, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731237782785*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"36997acc-54d0-4521-b7cd-2b0b1fa138da"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "8.678328129813397586292368023289487711698940045015409748590795957`\
-44.412096789499586*^-14"}], ",", "0``58.69897000433602", ",",
- "0``58.26297084030458", ",", "0``57.77469071827414"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-8.678328129813397586292368023289487711698940045015409748590795957`44.\
-412096789499586*^-14, 0``58.69897000433602, 0``58.26297084030458,
- 0``57.77469071827414}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731237788657*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"21f818d8-bc2a-4c78-bebb-c9f418b3ea2f"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731237794404*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"06ef9b87-44d9-4f7c-a403-f6a9354c1656"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "27.2897252983443188157`10."}], ",",
- RowBox[{"S", "\[Rule]", "28224.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "5642.1013539692333878929`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "5642.1013539692333878929`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "4584.6738501218455610342`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "4584.6738501218455610342`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "23479.5504081821603486811`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "168.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "153.2303834367784917626`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "1.00308778278744881945042706992749981848`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "14.1203856899339670921`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "138.0385898933927985065`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731237800466*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"39b362e0-da68-4018-8881-554e2aad7808"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "39.044117647058826`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 39.044117647058826`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797312480178957`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6cfa24e6-0f6b-401c-90f3-c83e182a8d38"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"85.`", ",", "0.`", ",", "0.`", ",", "85.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"85.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "85.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"28.448837281810913`", ",", "0.`", ",",
- RowBox[{"-", "28.448837281810913`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"14.961273706467342`", ",",
- RowBox[{"-", "10.`"}], ",", "11.12832920612214`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {85., 0., 0., 85.}, $CellContext`p2 -> {85.,
- 0., 0., -85.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {28.448837281810913`,
- 0., -28.448837281810913`, 0.}, $CellContext`p5 -> {
- 14.961273706467342`, -10., 11.12832920612214, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731248025177*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2471a3c4-6122-48a6-8927-112fa8d5bb04"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.1753442531991786513704594716433832746963922103487153197004648784`\
-44.538686171154964*^-13"}], ",", "0``58.69897000433602", ",",
- "0``58.24490548307462", ",", "0``57.76955107862173"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.1753442531991786513704594716433832746963922103487153197004648784`44.\
-538686171154964*^-13, 0``58.69897000433602, 0``58.24490548307462,
- 0``57.76955107862173}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731248031851*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"4aa3f06b-ec1a-446d-a818-33a94e8cbb9b"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731248037979*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5fdea64e-5002-4988-9f3c-7fb3f009514b"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "28.4488372818109134244`10."}], ",",
- RowBox[{"S", "\[Rule]", "28900.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "5895.2811319926766425107`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "5895.2811319926766425107`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "4836.3023379078552821397`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "4836.3023379078552821397`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "23813.1669398010673662303`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "170.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "154.3151546018765694391`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.89860749217399128418790273452805548964`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "14.9612737064673417323`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "138.6628837295123332654`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731248044189*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f2df0408-1ced-4937-b4cc-8b4b4bbda447"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "40.57848837209302`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 40.57848837209302}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731258230739*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cb166f33-da59-4c29-a788-61cae5f7411d"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"86.`", ",", "0.`", ",", "0.`", ",", "86.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"86.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "86.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"29.585291489165616`", ",", "0.`", ",",
- RowBox[{"-", "29.585291489165616`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"15.824819499112673`", ",",
- RowBox[{"-", "10.`"}], ",", "12.264783413476843`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {86., 0., 0., 86.}, $CellContext`p2 -> {86.,
- 0., 0., -86.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {29.585291489165616`,
- 0., -29.585291489165616`, 0.}, $CellContext`p5 -> {
- 15.824819499112673`, -10., 12.264783413476843`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731258237061*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e5bf0324-1989-49bb-9dbd-463dcf99ea6f"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "8.289624693321230774066426522359092510984606437287001157918463494`\
-44.38197642605965*^-14"}], ",", "0``58.69897000433602", ",",
- "0``58.227894151814326", ",", "0``57.76447155309245"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-8.289624693321230774066426522359092510984606437287001157918463494`44.\
-38197642605965*^-14, 0``58.69897000433602, 0``58.227894151814326,
- 0``57.76447155309245}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731258243198*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2f52fc6a-bce3-41fc-9ff0-b5b48ca345c0"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731258248962*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6f295155-dc45-49c7-9828-db63256abb14"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "29.5852914891656162411`10."}], ",",
- RowBox[{"S", "\[Rule]", "29584.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "6148.4609100161198971285`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "6148.4609100161198971285`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "5088.6701361364859934611`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "5088.6701361364859934611`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "24140.2620923052144048154`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "172.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "155.371368315739610097`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.81534256764874918013365919395264678105`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "15.8248194991126735538`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "139.3077877497414155308`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731258254944*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6e3944be-f419-4597-bf56-c31c7aa51d51"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "42.10057471264368`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 42.10057471264368}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797312685804157`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a714019d-e8bc-4e54-b3cd-b9dbc546ee8d"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"87.`", ",", "0.`", ",", "0.`", ",", "87.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"87.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "87.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"30.703605981250387`", ",", "0.`", ",",
- RowBox[{"-", "30.703605981250387`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"16.706505007027882`", ",",
- RowBox[{"-", "10.`"}], ",", "13.383097905561614`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {87., 0., 0., 87.}, $CellContext`p2 -> {87.,
- 0., 0., -87.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {30.703605981250387`,
- 0., -30.703605981250387`, 0.}, $CellContext`p5 -> {
- 16.706505007027882`, -10., 13.383097905561614`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797312685870543`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f342d9dc-b61f-4af0-b074-d98fbae82fe6"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.042406612999306368884793900926078884398799877815631910888100997`\
-44.47645791391911*^-13"}], ",", "0``58.69897000433602", ",",
- "0``58.21178062020109", ",", "0``57.759450751717395"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.042406612999306368884793900926078884398799877815631910888100997`44.\
-47645791391911*^-13, 0``58.69897000433602, 0``58.21178062020109,
- 0``57.759450751717395}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731268593658*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"423ebca4-4488-4e1c-93f4-f449939ccb34"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731268599617*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2e67059c-3988-4db3-9603-309d73c1d4e9"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "30.7036059812503872024`10."}], ",",
- RowBox[{"S", "\[Rule]", "30276.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "6401.6406880395631517462`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "6401.6406880395631517462`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "5342.427440737567373219`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "5342.427440737567373219`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "24462.1362575542645329248`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "174.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "156.4037603689702357437`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.74721115175017137085015989685347314165`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "16.7065050070278812481`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "139.9683718506607312566`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797312686062403`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1d9a413c-777f-4c4d-a2f2-a114396abc11"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "43.61079545454545`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 43.61079545454545}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797312787156076`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2371c68f-2cc0-413b-95f3-5689a1d31708"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"88.`", ",", "0.`", ",", "0.`", ",", "88.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"88.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "88.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"31.807172457610957`", ",", "0.`", ",",
- RowBox[{"-", "31.807172457610957`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"17.60293853066734`", ",",
- RowBox[{"-", "10.`"}], ",", "14.486664381922184`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {88., 0., 0., 88.}, $CellContext`p2 -> {88.,
- 0., 0., -88.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {31.807172457610957`,
- 0., -31.807172457610957`, 0.}, $CellContext`p5 -> {
- 17.60293853066734, -10., 14.486664381922184`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731278722105*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ff68dc83-e07d-4680-99f2-7e4d39aebe53"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "7.61436093219633578304428371099586214326214435538718981757740354`\
-44.33509079570182*^-14"}], ",", "0``58.69897000433602", ",",
- "0``58.196444940718656", ",", "0``57.75448733218584"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-7.61436093219633578304428371099586214326214435538718981757740354`44.\
-33509079570182*^-14, 0``58.69897000433602, 0``58.196444940718656,
- 0``57.75448733218584}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731278728095*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1d4cdfea-36b8-4fe5-a13c-3a8079962d11"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797312787341423`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5ba847b3-9965-4a3a-90ed-6c9179b907d8"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "31.807172457610956684`10."}], ",",
- RowBox[{"S", "\[Rule]", "30976.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "6654.820466063006406364`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "6654.820466063006406364`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "5598.0623525395283763828`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "5598.0623525395283763828`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "24779.7656372050722461962`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "176.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "157.4159002045380174568`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.69029003063527421356677493312729489516`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "17.6029385306673398635`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "140.640944589123551892`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731278739987*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"17d8a6bc-fdd2-4a8f-9fdb-faaf86676448"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "45.109550561797754`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 45.109550561797754`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731289170372*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"99f7907b-3fac-4a34-936e-407cc4b1c869"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"89.`", ",", "0.`", ",", "0.`", ",", "89.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"89.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "89.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"32.89858666846977`", ",", "0.`", ",",
- RowBox[{"-", "32.89858666846977`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"18.511524319808498`", ",",
- RowBox[{"-", "10.`"}], ",", "15.578078592780995`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {89., 0., 0., 89.}, $CellContext`p2 -> {89.,
- 0., 0., -89.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {32.89858666846977,
- 0., -32.89858666846977, 0.}, $CellContext`p5 -> {
- 18.511524319808498`, -10., 15.578078592780995`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731289180216*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f5aca828-a9ab-4793-8f36-036854bc3eef"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.0522611378117553428187447717387576931503493384718095276192670097`\
-44.47067353332491*^-13"}], ",", "0``58.69897000433602", ",",
- "0``58.18179276338512", ",", "0``57.74957999769111"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.0522611378117553428187447717387576931503493384718095276192670097`44.\
-47067353332491*^-13, 0``58.69897000433602, 0``58.18179276338512,
- 0``57.74957999769111}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973128918937*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f94f4db7-390a-40a9-8870-ea13b679a2e8"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731289198681*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6c5454c8-7673-4782-8585-4cf1d9b5b8b5"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "32.8985866684697683127`10."}], ",",
- RowBox[{"S", "\[Rule]", "31684.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "6908.0002440864496609818`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "6908.0002440864496609818`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "5855.9484269876187596537`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "5855.9484269876187596537`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "25093.8973421481407370626`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "178.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "158.4105341893276387201`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.64192768963395004046588665863962038085`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "18.5115243198084991523`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "141.322691546774369888`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797312892091513`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"43cd95ba-70fc-4443-9499-f730d5fd3440"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "46.59722222222222`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 46.59722222222222}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797312994738607`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a6ebee72-1d68-44ee-8113-8c1b44dad8d5"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"90.`", ",", "0.`", ",", "0.`", ",", "90.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"90.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "90.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"33.97986896282288`", ",", "0.`", ",",
- RowBox[{"-", "33.97986896282288`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"19.43024202545541`", ",",
- RowBox[{"-", "10.`"}], ",", "16.659360887134103`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {90., 0., 0., 90.}, $CellContext`p2 -> {90.,
- 0., 0., -90.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {33.97986896282288,
- 0., -33.97986896282288, 0.}, $CellContext`p5 -> {
- 19.43024202545541, -10., 16.659360887134103`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797312994812183`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c8d39b8a-bf2d-4a4e-b94d-e0523b2a8713"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "8.41199600662008643198135252456931744526761970691749432731149317`\
-44.36859655707684*^-14"}], ",", "0``58.69897000433602", ",",
- "0``58.167748304577344", ",", "0``57.744727494896686"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-8.41199600662008643198135252456931744526761970691749432731149317`44.\
-36859655707684*^-14, 0``58.69897000433602, 0``58.167748304577344,
- 0``57.744727494896686}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797312994874268`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a7d6f063-f4e1-4612-a93e-939b41b027aa"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731299493843*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"bd6101f4-472a-4cd4-90c4-29aaa7d1ceae"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "33.9798689628228771653`10."}], ",",
- RowBox[{"S", "\[Rule]", "32400.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "7161.1800221098929155996`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "7161.1800221098929155996`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "6116.3764133081178897555`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "6116.3764133081178897555`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "25405.1128708360248796525`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "180.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "159.3898142003936990588`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.60026312340246634432719299867776315759`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "19.4302420254554114058`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "142.0114332488188771117`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731299499661*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8fd74201-ac2d-46a0-93c8-50cb571b9a23"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "48.074175824175825`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 48.074175824175825`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731309673956*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c7b5faac-cc96-4fe0-a516-de44e525618b"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"91.`", ",", "0.`", ",", "0.`", ",", "91.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"91.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "91.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"35.052615353607784`", ",", "0.`", ",",
- RowBox[{"-", "35.052615353607784`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"20.3574956346705`", ",",
- RowBox[{"-", "10.`"}], ",", "17.73210727791901`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {91., 0., 0., 91.}, $CellContext`p2 -> {91.,
- 0., 0., -91.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {35.052615353607784`,
- 0., -35.052615353607784`, 0.}, $CellContext`p5 -> {
- 20.3574956346705, -10., 17.73210727791901, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731309680677*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"55b68698-52b1-4ea3-a38b-314cf11b4aa4"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "9.077310999882215792168359392517642707912223220876080857640773226`\
-44.396855831516405*^-14"}], ",", "0``58.69897000433602", ",",
- "0``58.15424957714702", ",", "0``57.73992861201492"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-9.077310999882215792168359392517642707912223220876080857640773226`44.\
-396855831516405*^-14, 0``58.69897000433602, 0``58.15424957714702,
- 0``57.73992861201492}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731309686983*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f148cbd7-2f37-43d8-8d60-9c79dd413978"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973130969287*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"969940fc-7059-4b7a-8ad8-16eb693f5fb7"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "35.0526153536077842432`10."}], ",",
- RowBox[{"S", "\[Rule]", "33124.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "7414.3598001333361702173`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "7414.3598001333361702173`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "6379.5759943566167322615`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "6379.5759943566167322615`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "25713.8715889799095007841`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "182.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "160.3554538797477555279`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.563948764987032663770922231525380487`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "20.3574956346704976748`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "142.7054589400375386275`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731309698838*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c93d81e9-79a0-479a-b58d-a6a6b804e79e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "49.54076086956522`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 49.54076086956522}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797313199764833`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a3b7235d-7e4b-48ec-ac98-e396914e4b65"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"92.`", ",", "0.`", ",", "0.`", ",", "92.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"92.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "92.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"36.11810336461344`", ",", "0.`", ",",
- RowBox[{"-", "36.11810336461344`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"21.292007623664865`", ",",
- RowBox[{"-", "10.`"}], ",", "18.797595288924665`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {92., 0., 0., 92.}, $CellContext`p2 -> {92.,
- 0., 0., -92.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {36.11810336461344,
- 0., -36.11810336461344, 0.}, $CellContext`p5 -> {
- 21.292007623664865`, -10., 18.797595288924665`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797313199832087`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d76ce001-5689-4fb2-97b3-80eccedaf2e4"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "6.612390308476521468575712509880717999934728893880811221483890746`\
-44.25451066201154*^-14"}], ",", "0``58.69897000433602", ",",
- "0``58.14124506778617", ",", "0``57.73518217699047"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-6.612390308476521468575712509880717999934728893880811221483890746`44.\
-25451066201154*^-14, 0``58.69897000433602, 0``58.14124506778617,
- 0``57.73518217699047}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731319989502*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"88f7fef6-cf49-45a0-a61b-1b88a96d8ca0"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731319995101*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a3b5a5bf-faac-409e-9dbd-ad68ab28a765"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "36.1181033646134395099`10."}], ",",
- RowBox[{"S", "\[Rule]", "33856.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "7667.5395781567794248351`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "7667.5395781567794248351`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "6645.7310190888728698155`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "6645.7310190888728698155`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "26020.5411944913074051226`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "184.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "161.3088379305092737705`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.53198293964185346798917038049159613515`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "21.2920076236648670574`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "143.4034098681835204823`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731320001519*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f68949d5-6b39-43ef-ae0a-2271c1c4cefe"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "50.99731182795699`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 50.99731182795699}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731330222568*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2e114a7d-e685-40fa-aaf1-65da1f61aab0"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"93.`", ",", "0.`", ",", "0.`", ",", "93.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"93.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "93.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"37.17736769979664`", ",", "0.`", ",",
- RowBox[{"-", "37.17736769979664`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"22.232743288481636`", ",",
- RowBox[{"-", "10.`"}], ",", "19.856859624107866`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {93., 0., 0., 93.}, $CellContext`p2 -> {93.,
- 0., 0., -93.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {37.17736769979664,
- 0., -37.17736769979664, 0.}, $CellContext`p5 -> {
- 22.232743288481636`, -10., 19.856859624107866`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731330229102*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"3494c501-099e-400d-95f1-9102e0dcea00"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "9.595217875277366526181006496203199118979906854233090125552241837`\
-44.41151190067541*^-14"}], ",", "0``58.69897000433602", ",",
- "0``58.12869136752638", ",", "0``57.73048705578208"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-9.595217875277366526181006496203199118979906854233090125552241837`44.\
-41151190067541*^-14, 0``58.69897000433602, 0``58.12869136752638,
- 0``57.73048705578208}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973133023503*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e48dc9f0-4cd1-4f6d-8125-bc6207c37f31"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731330240889*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f913ad7c-5af1-49e6-991f-f788653a17b0"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "37.1773676997966404656`10."}], ",",
- RowBox[{"S", "\[Rule]", "34596.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "7920.7193561802226794529`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "7920.7193561802226794529`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "6914.9903921621751266002`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "6914.9903921621751266002`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "26325.4194966847998786666`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "186.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "162.2511001401371080351`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.50360430547936059918586943816779360851`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "22.2327432884816362733`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "144.1041956907418472792`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731330246872*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"22fd9083-d253-44cc-b1d5-f55ad3d36e62"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "52.44414893617021`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 52.44414893617021}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731340585149*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"06274b47-3701-4a73-861f-8b273a59eca0"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"94.`", ",", "0.`", ",", "0.`", ",", "94.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"94.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "94.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"38.231255317453`", ",", "0.`", ",",
- RowBox[{"-", "38.231255317453`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"23.1788556708253`", ",",
- RowBox[{"-", "10.`"}], ",", "20.910747241764224`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {94., 0., 0., 94.}, $CellContext`p2 -> {94.,
- 0., 0., -94.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {38.231255317453,
- 0., -38.231255317453, 0.}, $CellContext`p5 -> {23.1788556708253, -10.,
- 20.910747241764224`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731340593709*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"546cd37e-5d88-4199-a461-a25a444db629"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "7.496953558825079788374563100491637488390002059179072517300148044`\
-44.29969697561453*^-14"}], ",", "0``58.69897000433602", ",",
- "0``58.11655144608963", ",", "0``57.72584215073632"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-7.496953558825079788374563100491637488390002059179072517300148044`44.\
-29969697561453*^-14, 0``58.69897000433602, 0``58.11655144608963,
- 0``57.72584215073632}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797313406022863`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1ac14c33-3666-49a6-84b5-b05ae325a89b"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731340610415*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"89c56bf8-9cac-4803-8dcf-67115f99ec33"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "38.2312553174529980993`10."}], ",",
- RowBox[{"S", "\[Rule]", "35344.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "8173.8991342036659340707`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "8173.8991342036659340707`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "7187.4759996811636426628`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "7187.4759996811636426628`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "26628.750267769662628883`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "188.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "163.1831801006760090677`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.47822298669592196614729207433092575354`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "23.1788556708252996223`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "144.8069335378580905695`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973134061868*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9a77f830-7231-42b1-ab93-1d3efa194ceb"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "53.88157894736842`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 53.88157894736842}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731350603302*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8e1fac5f-a431-4de2-8de6-0a4b7c702473"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"95.`", ",", "0.`", ",", "0.`", ",", "95.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"95.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "95.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"39.28046616514379`", ",", "0.`", ",",
- RowBox[{"-", "39.28046616514379`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"24.129644823134488`", ",",
- RowBox[{"-", "10.`"}], ",", "21.959958089455018`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {95., 0., 0., 95.}, $CellContext`p2 -> {95.,
- 0., 0., -95.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {39.28046616514379,
- 0., -39.28046616514379, 0.}, $CellContext`p5 -> {
- 24.129644823134488`, -10., 21.959958089455018`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731350611745*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d8de70e6-fee4-40f0-8f45-f380a30b4ec9"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "9.305098982152855555360928793869576389319865908223076996757467411`\
-44.388937400643*^-14"}], ",", "0``58.69897000433602", ",",
- "0``58.1047933711542", ",", "0``57.72124639904717"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-9.305098982152855555360928793869576389319865908223076996757467411`44.\
-388937400643*^-14, 0``58.69897000433602, 0``58.1047933711542,
- 0``57.72124639904717}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731350620327*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"15af4581-dbd2-4519-a99b-62424ca94b41"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731350628368*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c7912f5d-a490-4479-a29b-4a3924c3e11c"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "39.2804661651437925229`10."}], ",",
- RowBox[{"S", "\[Rule]", "36100.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "8427.0789122271091886884`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "8427.0789122271091886884`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "7463.2885713773205793586`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "7463.2885713773205793586`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "26930.7349672088640266688`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "190.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "164.1058651212956008975`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.45537427527249757425672850677740772143`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "24.1296448231344871172`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "145.5109028810052116092`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731350636585*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"187177e8-a919-4342-bcba-4be562a9b41c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "55.30989583333333`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 55.30989583333333}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731362994137*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"de59a9b7-06d5-4e78-bcf7-89ca895f9c6d"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"96.`", ",", "0.`", ",", "0.`", ",", "96.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"96.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "96.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"40.3255837498663`", ",", "0.`", ",",
- RowBox[{"-", "40.3255837498663`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"25.08452723841202`", ",",
- RowBox[{"-", "10.`"}], ",", "23.005075674177522`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {96., 0., 0., 96.}, $CellContext`p2 -> {96.,
- 0., 0., -96.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {40.3255837498663,
- 0., -40.3255837498663, 0.}, $CellContext`p5 -> {25.08452723841202, -10.,
- 23.005075674177522`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797313630254297`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e7680037-583e-48ed-b933-8d7c6cd0ecab"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "5.764362186578306499150913110069273882047109832043430334068885037`\
-44.17642003623567*^-14"}], ",", "0``58.69897000433602", ",",
- "0``58.09338934141796", ",", "0``57.71669877129646"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.764362186578306499150913110069273882047109832043430334068885037`44.\
-17642003623567*^-14, 0``58.69897000433602, 0``58.09338934141796,
- 0``57.71669877129646}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731363053739*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"bdf21c64-8cb7-4d6a-b478-0078c0e2ae78"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731363076874*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5a9f2279-02de-493f-af40-c46417db42f2"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "40.325583749866297012`10."}], ",",
- RowBox[{"S", "\[Rule]", "36864.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "8680.2586902505524433062`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "8680.2586902505524433062`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "7742.5120799743290262995`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "7742.5120799743290262995`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "27231.5415404497658311375`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "192.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "165.0198216592472439918`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.43468668139286698215235641056527418877`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "25.0845272384120180355`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "146.2155116259944715079`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731363103592*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"93ff3854-9c9e-4925-8a76-cf005b49e4c1"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "56.72938144329897`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 56.72938144329897}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731380582116*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d747d0c8-abc8-4110-9e82-22e6b804a77d"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"97.`", ",", "0.`", ",", "0.`", ",", "97.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"97.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "97.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"41.367098384507415`", ",", "0.`", ",",
- RowBox[{"-", "41.367098384507415`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"26.04301260377091`", ",",
- RowBox[{"-", "10.`"}], ",", "24.04659030881864`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {97., 0., 0., 97.}, $CellContext`p2 -> {97.,
- 0., 0., -97.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {41.367098384507415`,
- 0., -41.367098384507415`, 0.}, $CellContext`p5 -> {
- 26.04301260377091, -10., 24.04659030881864, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731380598091*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"da1c7d02-d4f0-42ad-bb31-1a197d5a5455"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.511253569728011571795039394715354796500550456332707265395736844`\
-44.06546551312812*^-14"}], ",", "0``58.69897000433602", ",",
- "0``58.08231494512268", ",", "0``57.71219827006978"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.511253569728011571795039394715354796500550456332707265395736844`44.\
-06546551312812*^-14, 0``58.69897000433602, 0``58.08231494512268,
- 0``57.71219827006978}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973138061681*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1579a959-63ba-4396-9ff0-be777c13f73f"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731380636533*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e36759b7-0ef5-4a7f-bf5e-9182b9d2a182"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "41.3670983845074147212`10."}], ",",
- RowBox[{"S", "\[Rule]", "37636.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "8933.438468273995697924`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "8933.438468273995697924`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "8025.2170865944384559043`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "8025.2170865944384559043`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "27531.3111097368706573892`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "194.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "165.9256192085383499877`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.41585937430524963635701299953608989999`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "26.0430126037709128574`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "146.9202703060782873023`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797313806542664`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"141ceccf-74b9-4a6a-a2a4-15b79a477cf5"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "58.140306122448976`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 58.140306122448976`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731395051084*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d4b87258-9b06-4a7d-9fa3-e079cdef8b6e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"98.`", ",", "0.`", ",", "0.`", ",", "98.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"98.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "98.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"42.40542507895932`", ",", "0.`", ",",
- RowBox[{"-", "42.40542507895932`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"27.004685909318994`", ",",
- RowBox[{"-", "10.`"}], ",", "25.084917003270544`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {98., 0., 0., 98.}, $CellContext`p2 -> {98.,
- 0., 0., -98.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {42.40542507895932,
- 0., -42.40542507895932, 0.}, $CellContext`p5 -> {
- 27.004685909318994`, -10., 25.084917003270544`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731395060957*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"883d9356-4b56-4b71-a806-ddbd96e2ce1b"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "6.223313169774130398723440487742022974555014049404630859680322935`\
-44.200735589095395*^-14"}], ",", "0``58.69897000433602", ",",
- "0``58.07154858332964", ",", "0``57.70774392864352"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-6.223313169774130398723440487742022974555014049404630859680322935`44.\
-200735589095395*^-14, 0``58.69897000433602, 0``58.07154858332964,
- 0``57.70774392864352}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731395070656*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f14e760d-822b-477f-ba29-26bdde61c9ef"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731395079808*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8fd4a685-2c9e-42a1-9148-56b89a6993bf"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "42.4054250789593183413`10."}], ",",
- RowBox[{"S", "\[Rule]", "38416.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "9186.6182462974389525417`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "9186.6182462974389525417`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "8311.4633154760263948901`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "8311.4633154760263948901`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "27830.1631235469340560361`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "196.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "166.8237486796976818734`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.39864592729950872047331380459837844136`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "27.0046859093189921167`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "147.6247722065911541262`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731395089086*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f860bd33-4e16-4921-8cf3-c580845b8d8e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "59.5429292929293`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 59.5429292929293}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731407088006*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"01b81a01-d301-4258-b79f-31b50e88885d"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"99.`", ",", "0.`", ",", "0.`", ",", "99.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"99.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "99.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"43.440917462017694`", ",", "0.`", ",",
- RowBox[{"-", "43.440917462017694`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"27.96919352626064`", ",",
- RowBox[{"-", "10.`"}], ",", "26.12040938632892`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {99., 0., 0., 99.}, $CellContext`p2 -> {99.,
- 0., 0., -99.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {43.440917462017694`,
- 0., -43.440917462017694`, 0.}, $CellContext`p5 -> {
- 27.96919352626064, -10., 26.12040938632892, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731407097501*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"558f0765-15fb-4c11-ad68-2fee4fdb8e78"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.011521802628446412084106094931832798374307728430959729776075626`\
-44.00561397101073*^-14"}], ",", "0``58.69897000433602", ",",
- "0``58.06107101546048", ",", "0``57.70333480973847"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.011521802628446412084106094931832798374307728430959729776075626`44.\
-00561397101073*^-14, 0``58.69897000433602, 0``58.06107101546048,
- 0``57.70333480973847}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731407120489*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5974ac54-8d74-4066-ad91-9d757023251e"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973140716096*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1e1843ca-1a93-43e1-ae9d-808dd132dd09"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "43.4409174620176941062`10."}], ",",
- RowBox[{"S", "\[Rule]", "39204.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "9439.7980243208822071595`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "9439.7980243208822071595`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "8601.3016574795034330236`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "8601.3016574795034330236`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "28128.1993636007735243469`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "198.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "167.7146367005598397315`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.38284239163701119153165491895966927485`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "27.9691935262606384697`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "148.3286778915020894403`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797314071963453`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"bfa3815f-2ec3-41aa-a616-d7c60d046274"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "60.9375`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 60.9375}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797314187115793`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"77a89964-da84-474f-a788-edc4514f2ff1"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"100.`", ",", "0.`", ",", "0.`", ",", "100.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"100.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "100.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"44.473878724781706`", ",", "0.`", ",",
- RowBox[{"-", "44.473878724781706`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"28.9362322634966`", ",",
- RowBox[{"-", "10.`"}], ",", "27.15337064909293`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {100., 0., 0., 100.}, $CellContext`p2 -> {
- 100., 0., 0., -100.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {44.473878724781706`,
- 0., -44.473878724781706`, 0.}, $CellContext`p5 -> {
- 28.9362322634966, -10., 27.15337064909293, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731418723781*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f9c24438-2095-498a-b564-e2e01522f1b3"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "6.700404821943895358702916925431192008561322550792476405063208585`\
-44.22404105116767*^-14"}], ",", "0``58.69897000433602", ",",
- "0``58.050864996872434", ",", "0``57.69897000433602"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-6.700404821943895358702916925431192008561322550792476405063208585`44.\
-22404105116767*^-14, 0``58.69897000433602, 0``58.050864996872434,
- 0``57.69897000433602}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731418734281*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"bfbf2afc-c5b8-4009-8b53-a36ee4500696"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731418743483*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"db634bed-c344-48e5-a713-d0026d9b6817"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "44.4738787247817057846`10."}], ",",
- RowBox[{"S", "\[Rule]", "40000.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "9692.9778023443254617773`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "9692.9778023443254617773`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "8894.7757449563411569216`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "8894.7757449563411569216`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "28425.5070946013371150871`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "200.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "168.5986568588295044816`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.36827840378387989346627665999354856839`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "28.9362322634965999025`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "149.0317030369286790041`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731418754137*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2ab06710-b5b5-4a11-8f10-55bffea289fd"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "62.32425742574257`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 62.32425742574257}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731429325025*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"bd9b9f3c-cce6-4c0d-85ea-b8a282d1d264"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"101.`", ",", "0.`", ",", "0.`", ",", "101.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"101.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "101.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"45.50457030339495`", ",", "0.`", ",",
- RowBox[{"-", "45.50457030339495`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"29.905540684883363`", ",",
- RowBox[{"-", "10.`"}], ",", "28.184062227706175`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {101., 0., 0., 101.}, $CellContext`p2 -> {
- 101., 0., 0., -101.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {45.50457030339495,
- 0., -45.50457030339495, 0.}, $CellContext`p5 -> {
- 29.905540684883363`, -10., 28.184062227706175`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797314293340683`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"3cec74bd-0ba4-4681-9eb5-00d551974601"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "6.108858636625354547142156739600633128496428147803517943122467506`\
-44.17957871025157*^-14"}], ",", "0``58.69897000433602", ",",
- "0``58.04091498662691", ",", "0``57.69464863055337"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-6.108858636625354547142156739600633128496428147803517943122467506`44.\
-17957871025157*^-14, 0``58.69897000433602, 0``58.04091498662691,
- 0``57.69464863055337}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731429342475*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5651857c-24ec-4aaf-a10d-2cad77badf4f"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797314293506804`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ab7d71ff-0f28-48b9-af41-d0ba3e2c0f99"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "45.5045703033949493488`10."}], ",",
- RowBox[{"S", "\[Rule]", "40804.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "9946.1575803677687163951`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "9946.1575803677687163951`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "9191.9232012857797684546`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "9191.9232012857797684546`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "28722.1615633071006234738`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "202.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "169.4761386251973249255`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.35481045703090872699476356119625294483`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "29.9055406848833622538`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "149.733608777149364954`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731429359304*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b6eb2721-affa-4c70-8435-8aaafac1dfe8"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "63.70343137254902`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 63.70343137254902}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797314423812313`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8ff575df-7dbe-4f41-a6b6-2d9e50e6ee13"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"102.`", ",", "0.`", ",", "0.`", ",", "102.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"102.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "102.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"46.53321882782739`", ",", "0.`", ",",
- RowBox[{"-", "46.53321882782739`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"30.876892160450915`", ",",
- RowBox[{"-", "10.`"}], ",", "29.212710752138616`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {102., 0., 0., 102.}, $CellContext`p2 -> {
- 102., 0., 0., -102.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {46.53321882782739,
- 0., -46.53321882782739, 0.}, $CellContext`p5 -> {
- 30.876892160450915`, -10., 29.212710752138616`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731442396702*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e8c05d77-c858-490a-8ea4-d0abcd4a0650"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "6.70608537289197121099612960650638772217775653197815649345989526`\
-44.215808914893444*^-14"}], ",", "0``58.69897000433602", ",",
- "0``58.031206909447", ",", "0``57.69036983257409"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-6.70608537289197121099612960650638772217775653197815649345989526`44.\
-215808914893444*^-14, 0``58.69897000433602, 0``58.031206909447,
- 0``57.69036983257409}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797314424130783`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c4c2102c-369a-44cf-8f84-7b33e97ff6a4"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731442428581*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"677b298a-2dce-41c1-8a91-38c06bb87d81"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "46.5332188278273903848`10."}], ",",
- RowBox[{"S", "\[Rule]", "41616.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "10199.3373583912119710128`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "10199.3373583912119710128`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "9492.77664087678763849`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "9492.77664087678763849`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "29018.2279985360033602671`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "204.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "170.3473744985111396896`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.34231674303857321560233566032140852036`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "30.8768921604509152455`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "150.4341939794487136444`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797314424440393`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"59b5ae48-342c-4e12-82b1-b22ee472bf24"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "65.0752427184466`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 65.0752427184466}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731454024363*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c7277698-37da-4a12-b78c-d4526962cb59"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"103.`", ",", "0.`", ",", "0.`", ",", "103.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"103.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "103.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"47.56002172767288`", ",", "0.`", ",",
- RowBox[{"-", "47.56002172767288`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"31.85008926060543`", ",",
- RowBox[{"-", "10.`"}], ",", "30.239513651984108`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {103., 0., 0., 103.}, $CellContext`p2 -> {
- 103., 0., 0., -103.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {47.56002172767288,
- 0., -47.56002172767288, 0.}, $CellContext`p5 -> {
- 31.85008926060543, -10., 30.239513651984108`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731454034041*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f331ab4a-764a-4deb-81ce-dca54a76ccae"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "5.988479874369719681046247680815002863654153711480419659263514353`\
-44.162419378316635*^-14"}], ",", "0``58.69897000433602", ",",
- "0``58.021727959983", ",", "0``57.686132779630846"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.988479874369719681046247680815002863654153711480419659263514353`44.\
-162419378316635*^-14, 0``58.69897000433602, 0``58.021727959983,
- 0``57.686132779630846}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731454043322*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e00cd70a-06d4-4642-89fb-e50d661c1bb8"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731454052136*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"23d30dcc-83c6-4ec9-809a-0dc730c99921"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "47.5600217276728827187`10."}], ",",
- RowBox[{"S", "\[Rule]", "42436.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "10452.5171364146552256306`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "10452.5171364146552256306`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "9797.3644759006138400537`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "9797.3644759006138400537`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "29313.7632246305419460409`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "206.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "171.212625774592166746`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.33069314920492672961188155190645770052`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "31.8500892606054300876`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "151.1332890140314300425`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797314540611477`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1a024aac-4e00-4fca-a34f-b965e6f2c313"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "66.43990384615385`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 66.43990384615385}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797314638910418`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c4cb3afb-fc7b-4b9a-a5ee-bf474a535fa5"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"104.`", ",", "0.`", ",", "0.`", ",", "104.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"104.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "104.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"48.58515178832903`", ",", "0.`", ",",
- RowBox[{"-", "48.58515178832903`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"32.8249591999493`", ",",
- RowBox[{"-", "10.`"}], ",", "31.264643712640254`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {104., 0., 0., 104.}, $CellContext`p2 -> {
- 104., 0., 0., -104.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {48.58515178832903,
- 0., -48.58515178832903, 0.}, $CellContext`p5 -> {32.8249591999493, -10.,
- 31.264643712640254`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797314638999567`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0e424522-aaf1-4add-aa52-a83d1a819f41"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.920084084639358115427713130038167563162806293830372927284426748`\
-44.07287919433225*^-14"}], ",", "0``58.69897000433602", ",",
- "0``58.01246644045776", ",", "0``57.68193666503725"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.920084084639358115427713130038167563162806293830372927284426748`44.\
-07287919433225*^-14, 0``58.69897000433602, 0``58.01246644045776,
- 0``57.68193666503725}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731463908676*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8cf78b2b-166a-4a6d-8589-ad53a10ba289"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797314639175053`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b56e9d01-91cd-4cd8-8cde-21ec583f2066"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "48.5851517883290284772`10."}], ",",
- RowBox[{"S", "\[Rule]", "43264.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "10705.6969144380984802484`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "10705.6969144380984802484`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "10105.7115719724379232503`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "10105.7115719724379232503`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "29608.8169728210760370284`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "208.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "172.0721272397742981916`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.31985011861680076544674455230823903481`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "32.8249591999492950131`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "151.8307506931817434423`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797314639260693`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e5b463ee-c265-4fd0-9f4c-b093a7c31ad2"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "67.79761904761905`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 67.79761904761905}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731474802494*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"4e3c9a96-29cf-4021-94ed-b32a4564fe75"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"105.`", ",", "0.`", ",", "0.`", ",", "105.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"105.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "105.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"49.60876087990389`", ",", "0.`", ",",
- RowBox[{"-", "49.60876087990389`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"33.80135010837445`", ",",
- RowBox[{"-", "10.`"}], ",", "32.28825280421512`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {105., 0., 0., 105.}, $CellContext`p2 -> {
- 105., 0., 0., -105.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {49.60876087990389,
- 0., -49.60876087990389, 0.}, $CellContext`p5 -> {
- 33.80135010837445, -10., 32.28825280421512, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731474814569*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c8ef1428-eb29-4ad0-83f2-2bb11a04cefa"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.300554146707432062872138744805858376063812655178911638714141257`\
-43.89533757149604*^-14"}], ",", "0``58.69897000433602", ",",
- "0``58.00341162490597", ",", "0``57.67778070526607"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.300554146707432062872138744805858376063812655178911638714141257`43.\
-89533757149604*^-14, 0``58.69897000433602, 0``58.00341162490597,
- 0``57.67778070526607}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797314748242607`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9d4565f2-3d84-4368-9eb4-6d8369c5ec9b"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731474836781*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"34d3f74d-e21d-4f40-bd3a-34567d503138"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "49.608760879903890384`10."}], ",",
- RowBox[{"S", "\[Rule]", "44100.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "10958.8766924615417348661`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "10958.8766924615417348661`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "10417.839784779816980631`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "10417.839784779816980631`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "29903.4329544827196622581`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "210.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "172.9260910171820187099`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.30971016179279094634048493665740129869`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "33.8013501083744493016`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "152.5264581324838718591`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731474848282*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"10219fd2-331a-4c10-a7b9-81abdb341818"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "69.14858490566037`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 69.14858490566037}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731485621706*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d21ecb1c-65b3-4cd9-85e8-2ae54d853499"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"106.`", ",", "0.`", ",", "0.`", ",", "106.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"106.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "106.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"50.630983028946254`", ",", "0.`", ",",
- RowBox[{"-", "50.630983028946254`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"34.77912795933207`", ",",
- RowBox[{"-", "10.`"}], ",", "33.31047495325748`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {106., 0., 0., 106.}, $CellContext`p2 -> {
- 106., 0., 0., -106.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {50.630983028946254`,
- 0., -50.630983028946254`, 0.}, $CellContext`p5 -> {
- 34.77912795933207, -10., 33.31047495325748, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731485630714*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"34224f9d-9b05-47a4-bb89-9f1eb049fd49"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.499160464049843401983655227645227925609865511726886058663665399`\
-44.02576562610575*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.99455364479626", ",", "0``57.67366413907124"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.499160464049843401983655227645227925609865511726886058663665399`44.\
-02576562610575*^-14, 0``58.69897000433602, 0``57.99455364479626,
- 0``57.67366413907124}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731485639182*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"794c97f0-7d31-49ba-8722-8e471e1fd213"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731485647162*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8c02ce05-f7b9-4bbd-944f-c8ce0601fabe"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "50.6309830289462539099`10."}], ",",
- RowBox[{"S", "\[Rule]", "44944.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "11212.0564704849849894839`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "11212.0564704849849894839`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "10733.7684021366058289004`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "10733.7684021366058289004`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "30197.6497452431847663063`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "212.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "173.7747097400631101578`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.30020586659398818031853986986402405442`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "34.7791279593320737896`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "153.2203093448344850381`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731485656085*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0858fb46-30f1-446f-9092-1231a98b6637"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "70.4929906542056`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 70.4929906542056}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973149542741*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cd0cf86a-5eb9-41b3-a3bf-09357ce52f7a"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"107.`", ",", "0.`", ",", "0.`", ",", "107.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"107.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "107.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"51.651936964266824`", ",", "0.`", ",",
- RowBox[{"-", "51.651936964266824`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"35.75817402401151`", ",",
- RowBox[{"-", "10.`"}], ",", "34.33142888857805`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {107., 0., 0., 107.}, $CellContext`p2 -> {
- 107., 0., 0., -107.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {51.651936964266824`,
- 0., -51.651936964266824`, 0.}, $CellContext`p5 -> {
- 35.75817402401151, -10., 34.33142888857805, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731495436309*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"33a32ea7-b6ad-48de-bd0a-6ef805f95446"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.84139002476835518126659351875253032539279861586066355963704545`\
-43.95304463526353*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.985883391992104", ",", "0``57.669586226650814"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.84139002476835518126659351875253032539279861586066355963704545`43.\
-95304463526353*^-14, 0``58.69897000433602, 0``57.985883391992104,
- 0``57.669586226650814}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731495444789*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ad95c674-7541-4328-a213-609c9cd6b58a"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731495453341*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f6185d43-7936-46aa-b169-a5f1a8c00284"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "51.651936964266823793`10."}], ",",
- RowBox[{"S", "\[Rule]", "45796.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "11465.2362485084282441017`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "11465.2362485084282441017`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "11053.5145103531002916952`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "11053.5145103531002916952`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "30491.5015177230598188157`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "214.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "174.6181591866179873766`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.29127829291506610865047995129079407381`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "35.7581740240115104842`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "153.9122184210655412895`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731495462105*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"76488873-1845-40fc-bbbc-4e75688b1d1c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "71.83101851851852`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 71.83101851851852}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731505258251*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"12e1548c-7a48-4faa-b67c-4095e8e5ffe7"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"108.`", ",", "0.`", ",", "0.`", ",", "108.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"108.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "108.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"52.67172823898314`", ",", "0.`", ",",
- RowBox[{"-", "52.67172823898314`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"36.73838274929519`", ",",
- RowBox[{"-", "10.`"}], ",", "35.35122016329437`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {108., 0., 0., 108.}, $CellContext`p2 -> {
- 108., 0., 0., -108.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {52.67172823898314,
- 0., -52.67172823898314, 0.}, $CellContext`p5 -> {
- 36.73838274929519, -10., 35.35122016329437, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731505267426*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7687b7ba-70cb-446b-ab7d-e5ebdf1c4163"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.035156727378375422508468408095855976240075311768329138002343341`\
-43.97037666077198*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.97739243588664", ",", "0``57.665546248849076"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.035156727378375422508468408095855976240075311768329138002343341`43.\
-97037666077198*^-14, 0``58.69897000433602, 0``57.97739243588664,
- 0``57.665546248849076}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797315052762938`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"86d6810d-8250-429b-b10d-a49a8e323924"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797315052847958`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8e2a17af-72a7-48cc-8909-eb4bd51e9262"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "52.6717282389831424894`10."}], ",",
- RowBox[{"S", "\[Rule]", "46656.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "11718.4160265318714987195`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "11718.4160265318714987195`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "11377.0932996203587777018`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "11377.0932996203587777018`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "30785.0186523044635177451`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "216.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "175.4566004808723732436`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.28287566748214053761971203406083092573`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "36.7383827492951898502`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "154.6021131833561622469`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731505293318*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"071abe3e-c4ab-42fa-ac78-a43ae5788820"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "73.16284403669725`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 73.16284403669725}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731515282001*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2d292d36-4f59-4984-9663-1365933c3127"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"109.`", ",", "0.`", ",", "0.`", ",", "109.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"109.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "109.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"53.69045100886541`", ",", "0.`", ",",
- RowBox[{"-", "53.69045100886541`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"37.719659979412924`", ",",
- RowBox[{"-", "10.`"}], ",", "36.36994293317664`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {109., 0., 0., 109.}, $CellContext`p2 -> {
- 109., 0., 0., -109.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {53.69045100886541,
- 0., -53.69045100886541, 0.}, $CellContext`p5 -> {
- 37.719659979412924`, -10., 36.36994293317664, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797315152908287`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"42b3d905-f9cf-479f-a861-d2aae2528bd8"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.735415078469958213254287521971140026564704328684115552290926405`\
-43.93285237826787*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.96907295221038", ",", "0``57.66154350639539"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.735415078469958213254287521971140026564704328684115552290926405`43.\
-93285237826787*^-14, 0``58.69897000433602, 0``57.96907295221038,
- 0``57.66154350639539}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731515299314*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"994fe935-cba7-4367-b455-a35aecf64873"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731515307685*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"4583cca5-1eab-4ec7-b117-64f75147a494"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "53.6904510088654092215`10."}], ",",
- RowBox[{"S", "\[Rule]", "47524.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "11971.5958045553147533372`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "11971.5958045553147533372`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "11704.5183199326592102807`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "11704.5183199326592102807`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "31078.2282489759507452076`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "218.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "176.2901819415248965532`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.2749523148379209320830273568457065154`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "37.7196599794129261155`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "155.2899332221334600447`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797315153161583`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b9075ff4-7fb0-4fce-9138-7e0d82659d6e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "74.48863636363636`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 74.48863636363636}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731525183895*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"4396e6b4-c686-4c46-9b7d-6d4b8b34881c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"110.`", ",", "0.`", ",", "0.`", ",", "110.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"110.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "110.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"54.708189530221425`", ",", "0.`", ",",
- RowBox[{"-", "54.708189530221425`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"38.701921458056894`", ",",
- RowBox[{"-", "10.`"}], ",", "37.387681454532654`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {110., 0., 0., 110.}, $CellContext`p2 -> {
- 110., 0., 0., -110.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {54.708189530221425`,
- 0., -54.708189530221425`, 0.}, $CellContext`p5 -> {
- 38.701921458056894`, -10., 37.387681454532654`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797315251930637`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f9e3adb8-fba2-4022-9d66-586aed317a0e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "5.191784129382963257986517430054316703733070257217661028217963729`\
-44.07186395003208*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.96091766152061", ",", "0``57.657577319177804"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.191784129382963257986517430054316703733070257217661028217963729`44.\
-07186395003208*^-14, 0``58.69897000433602, 0``57.96091766152061,
- 0``57.657577319177804}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797315252016993`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c1fb3839-d5d1-4199-b6d5-b386493eac58"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731525210219*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a9cc6b31-aacd-417e-8824-f3374b6e6abd"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "54.7081895302214249455`10."}], ",",
- RowBox[{"S", "\[Rule]", "48400.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "12224.775582578758007955`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "12224.775582578758007955`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "12035.8016966487134880026`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "12035.8016966487134880026`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "31371.1545584549470105557`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "220.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "177.1190406434467649456`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.26746777577424934566182563048947212317`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "38.7019214580568958278`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "155.9756282458979418257`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731525218816*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"25532e88-5871-4530-aa49-e3ee3ac73e3f"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "75.80855855855856`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 75.80855855855856}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731534951027*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"870413ad-c32f-4e9c-a508-3643d32125d1"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"111.`", ",", "0.`", ",", "0.`", ",", "111.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"111.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "111.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"55.725019427602206`", ",", "0.`", ",",
- RowBox[{"-", "55.725019427602206`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"39.68509156067613`", ",",
- RowBox[{"-", "10.`"}], ",", "38.404511351913435`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {111., 0., 0., 111.}, $CellContext`p2 -> {
- 111., 0., 0., -111.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {55.725019427602206`,
- 0., -55.725019427602206`, 0.}, $CellContext`p5 -> {
- 39.68509156067613, -10., 38.404511351913435`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731534960067*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"adcec7c2-37a8-4e21-875a-44fd02b239ef"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.78557904932217897085190007803007588569858066283632685200152105`\
-43.930749349306964*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.95291977577415", ",", "0``57.65364702554936"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.78557904932217897085190007803007588569858066283632685200152105`43.\
-930749349306964*^-14, 0``58.69897000433602, 0``57.95291977577415,
- 0``57.65364702554936}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731534968779*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"97a301e3-411a-4d83-b97c-f501f258befd"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731534977254*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e6b9bf3f-6da5-4025-ac68-51a27627c15a"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "55.7250194276022057238`10."}], ",",
- RowBox[{"S", "\[Rule]", "49284.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "12477.9553606022012625728`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "12477.9553606022012625728`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "12370.954312927689670687`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "12370.954312927689670687`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "31663.8193470597848711405`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "222.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "177.943303743242288019`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.26038607569737425509727808530705118476`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "39.6850915606761291115`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "156.6591566878380973678`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731534987501*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a0877e1c-c66b-4460-ac9b-0813300e4f61"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "77.12276785714285`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 77.12276785714285}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731544794155*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c23dc164-47b0-4d77-9fd2-c8dfc2a7f730"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"112.`", ",", "0.`", ",", "0.`", ",", "112.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"112.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "112.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"56.74100877156438`", ",", "0.`", ",",
- RowBox[{"-", "56.74100877156438`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"40.66910221671397`", ",",
- RowBox[{"-", "10.`"}], ",", "39.42050069587561`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {112., 0., 0., 112.}, $CellContext`p2 -> {
- 112., 0., 0., -112.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {56.74100877156438,
- 0., -56.74100877156438, 0.}, $CellContext`p5 -> {
- 40.66910221671397, -10., 39.42050069587561, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973154480317*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"00028180-e452-4394-a354-518529367fee"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.95103507605776130817864579478122014345581424899249377798246924`\
-43.63898706329048*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.94507295169131", ",", "0``57.649751981665844"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.95103507605776130817864579478122014345581424899249377798246924`43.\
-63898706329048*^-14, 0``58.69897000433602, 0``57.94507295169131,
- 0``57.649751981665844}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731544811617*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"12b0b354-9a07-41af-98a2-7f5a7e9dd58f"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731544820239*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"fad541a5-5606-4aa3-b066-e4547e871bdd"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "56.7410087715643811634`10."}], ",",
- RowBox[{"S", "\[Rule]", "50176.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "12731.1351386256445171906`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "12731.1351386256445171906`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "12709.9859648304213806114`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "12709.9859648304213806114`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "31956.2422069121333825408`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "224.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "178.7630896099978838765`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.25367511379799028154065748999867173507`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "40.6691022167139720173`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "157.3404845242925731604`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797315448288918`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"13d02f17-14fe-42f3-94cc-af0a10abf613"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "78.43141592920354`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 78.43141592920354}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731554609371*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"fb49ab8c-a027-4e4d-a6fe-687366def7ac"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"113.`", ",", "0.`", ",", "0.`", ",", "113.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"113.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "113.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"57.75621899888351`", ",", "0.`", ",",
- RowBox[{"-", "57.75621899888351`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"41.65389198939482`", ",",
- RowBox[{"-", "10.`"}], ",", "40.43571092319474`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {113., 0., 0., 113.}, $CellContext`p2 -> {
- 113., 0., 0., -113.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {57.75621899888351,
- 0., -57.75621899888351, 0.}, $CellContext`p5 -> {
- 41.65389198939482, -10., 40.43571092319474, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731554618651*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"73f672c1-81ef-4600-9096-89818bf6ea04"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.706188859542097463787371973948644225594003285947209387288035178`\
-43.913789111463224*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.93737124985873", ",", "0``57.6458915608526"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.706188859542097463787371973948644225594003285947209387288035178`43.\
-913789111463224*^-14, 0``58.69897000433602, 0``57.93737124985873,
- 0``57.6458915608526}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731554627241*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c1e406a7-2058-4db2-8d3f-5eb1ebaef80e"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797315546355333`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d6d9662f-0df2-4992-86b1-2f50785ee748"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "57.7562189988835115173`10."}], ",",
- RowBox[{"S", "\[Rule]", "51076.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "12984.3149166490877718083`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "12984.3149166490877718083`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "13052.9054937476736029112`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "13052.9054937476736029112`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "32248.4408207935258369828`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "226.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "179.5785087943251795088`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.24730615022435029071833548472547406008`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "41.6538919893948241119`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "158.0195842688640929817`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973155464408*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7f7a5397-40fd-4370-ae7e-a3551d36d345"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "79.73464912280701`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 79.73464912280701}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731564404707*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e2b5dc72-e4c9-4584-bdae-cd1d0560a219"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"114.`", ",", "0.`", ",", "0.`", ",", "114.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"114.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "114.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"58.77070570144846`", ",", "0.`", ",",
- RowBox[{"-", "58.77070570144846`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"42.63940528682986`", ",",
- RowBox[{"-", "10.`"}], ",", "41.45019762575969`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {114., 0., 0., 114.}, $CellContext`p2 -> {
- 114., 0., 0., -114.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {58.77070570144846,
- 0., -58.77070570144846, 0.}, $CellContext`p5 -> {
- 42.63940528682986, -10., 41.45019762575969, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797315644135923`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c2be72ab-d86d-46a4-ae5b-457c311360cf"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.875254735804744538706886822116766587248577507779030786270088652`\
-44.02903247018327*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.929809098709164", ",", "0``57.64206515299956"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.875254735804744538706886822116766587248577507779030786270088652`44.\
-02903247018327*^-14, 0``58.69897000433602, 0``57.929809098709164,
- 0``57.64206515299956}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731564422132*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0c92152b-90f6-4749-b21b-ba34f5907d1a"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731564430505*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"56ae5eb9-f4d7-4e0a-8496-346db752e76d"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "58.7707057014484632873`10."}], ",",
- RowBox[{"S", "\[Rule]", "51984.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "13237.4946946725310264261`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "13237.4946946725310264261`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "13399.7208999302496295059`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "13399.7208999302496295059`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "32540.4311892055654694232`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "228.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "180.3896648625013812474`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.24125337327186560404077716574791863337`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "42.6394052868298606513`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "158.696434112866834259`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973156443906*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c171c0b9-8db9-44cd-9078-5850a73c3d2b"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "81.03260869565217`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 81.03260869565217}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731574129938*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"37abf6bf-bb5b-424c-8ae4-81ce9763c39c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"115.`", ",", "0.`", ",", "0.`", ",", "115.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"115.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "115.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"59.78451930519197`", ",", "0.`", ",",
- RowBox[{"-", "59.78451930519197`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"43.625591683086355`", ",",
- RowBox[{"-", "10.`"}], ",", "42.4640112295032`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {115., 0., 0., 115.}, $CellContext`p2 -> {
- 115., 0., 0., -115.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {59.78451930519197,
- 0., -59.78451930519197, 0.}, $CellContext`p5 -> {
- 43.625591683086355`, -10., 42.4640112295032, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797315741389523`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6d54d121-62c2-4c15-8bda-484ec1224292"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.303013239611300387601048240241217337793442223585363170184045051`\
-43.97101485065041*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.9223812626672", ",", "0``57.638272163982414"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.303013239611300387601048240241217337793442223585363170184045051`43.\
-97101485065041*^-14, 0``58.69897000433602, 0``57.9223812626672,
- 0``57.638272163982414}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797315741477327`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e0c134b0-a247-484d-9c48-4c88153acea9"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731574156147*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ac36db69-fab9-4c4a-8e3c-8a4136ae9c75"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "59.7845193051919707727`10."}], ",",
- RowBox[{"S", "\[Rule]", "52900.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "13490.6744726959742810439`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "13490.6744726959742810439`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "13750.43944019415327773`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "13750.43944019415327773`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "32832.2278257802588719778`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "230.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "181.1966551175276493326`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.23549353229852642199644956155117050882`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "43.6255916830863588883`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "159.3710171882318093017`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731574164751*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c32ea398-811d-4877-ac24-664f10dfbc36"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "82.32543103448276`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 82.32543103448276}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731583984296*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"90a853ac-95be-40f3-bd9e-a809b140fda6"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"116.`", ",", "0.`", ",", "0.`", ",", "116.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"116.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "116.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"60.797705656533985`", ",", "0.`", ",",
- RowBox[{"-", "60.797705656533985`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"44.61240533174436`", ",",
- RowBox[{"-", "10.`"}], ",", "43.477197580845214`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {116., 0., 0., 116.}, $CellContext`p2 -> {
- 116., 0., 0., -116.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {60.797705656533985`,
- 0., -60.797705656533985`, 0.}, $CellContext`p5 -> {
- 44.61240533174436, -10., 43.477197580845214`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731583993359*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0518cd35-3157-4840-8845-96de959bf7e8"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "2.576515756346148405056562764521318896878531265267576472900957945`\
-43.7445148221216*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.91508281387098", ",", "0``57.63451201510911"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.576515756346148405056562764521318896878531265267576472900957945`43.\
-7445148221216*^-14, 0``58.69897000433602, 0``57.91508281387098,
- 0``57.63451201510911}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731584001841*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cf62441a-8ce8-473c-a676-4ec03ae38db7"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731584010333*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2c4cb8d6-a26c-4e3f-a246-1c4d913dbc86"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "60.7977056565339850636`10."}], ",",
- RowBox[{"S", "\[Rule]", "53824.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "13743.8542507194175356616`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "13743.8542507194175356616`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "14105.0677123158845347461`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "14105.0677123158845347461`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "33123.8439260706064397069`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "232.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "181.9995712249636219997`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.23000562493489021369051431809567253625`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "44.6124053317443618624`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "160.0433209333279928125`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797315840189867`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"885100fe-53ac-4b89-8842-44c827cd3563"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "83.61324786324788`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 83.61324786324788}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797315937431993`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"26488d23-0bc0-4b4f-9ce9-f8381c938eac"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"117.`", ",", "0.`", ",", "0.`", ",", "117.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"117.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "117.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"61.81030653071033`", ",", "0.`", ",",
- RowBox[{"-", "61.81030653071033`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"45.599804457568`", ",",
- RowBox[{"-", "10.`"}], ",", "44.48979845502156`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {117., 0., 0., 117.}, $CellContext`p2 -> {
- 117., 0., 0., -117.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {61.81030653071033,
- 0., -61.81030653071033, 0.}, $CellContext`p5 -> {45.599804457568, -10.,
- 44.48979845502156, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973159375463*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"31170c81-0c69-49bc-8ab9-413e86487676"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.597282027245433854580293873585632553887899503090884528177788306`\
-43.992255293947764*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.90790910697835", ",", "0``57.63078414258986"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.597282027245433854580293873585632553887899503090884528177788306`43.\
-992255293947764*^-14, 0``58.69897000433602, 0``57.90790910697835,
- 0``57.63078414258986}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797315937655478`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"63756f3d-a840-4b75-888a-77d76a994895"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731593775792*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f8f2009d-ebcd-40d8-af16-2fb8ace2b8b5"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "61.8103065307103278769`10."}], ",",
- RowBox[{"S", "\[Rule]", "54756.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "13997.0340287428607902794`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "13997.0340287428607902794`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "14463.6117281862167232021`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "14463.6117281862167232021`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "33415.2915138581592196662`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "234.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "182.7984997582260225363`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.22477062938619138507844445884461808097`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "45.5998044575679988414`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "160.7133365456257047138`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973159378609*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"dca26f8f-442a-4e2a-ad88-9d7765b61442"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "84.89618644067797`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 84.89618644067797}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797316034974413`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"930bc9a6-db39-4557-ad3a-90f2220150b5"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"118.`", ",", "0.`", ",", "0.`", ",", "118.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"118.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "118.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"62.82236007386222`", ",", "0.`", ",",
- RowBox[{"-", "62.82236007386222`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"46.587750914416134`", ",",
- RowBox[{"-", "10.`"}], ",", "45.50185199817345`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {118., 0., 0., 118.}, $CellContext`p2 -> {
- 118., 0., 0., -118.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {62.82236007386222,
- 0., -62.82236007386222, 0.}, $CellContext`p5 -> {
- 46.587750914416134`, -10., 45.50185199817345, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731603506385*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a6e6f9c1-2bc0-4705-b340-4e621aa48561"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "2.116736999752322643783318458322171669922437177562886600303365528`\
-43.65172490253517*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.90085575664472", ",", "0``57.627087997029896"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.116736999752322643783318458322171669922437177562886600303365528`43.\
-65172490253517*^-14, 0``58.69897000433602, 0``57.90085575664472,
- 0``57.627087997029896}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731603515029*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"4adc6c79-4f11-40d5-a8bc-b33fe3203a38"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797316035234118`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ccec93ce-6b7a-486c-b4be-afb9f0869eac"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "62.822360073862220986`10."}], ",",
- RowBox[{"S", "\[Rule]", "55696.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "14250.2138067663040448972`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "14250.2138067663040448972`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "14826.076977431484152703`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "14826.076977431484152703`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "33706.5815683955783674807`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "236.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "183.5935226754897754813`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.21977127437365458552313943459961620543`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "46.5877509144161305377`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "161.3810585079210104856`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731603532084*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cbd1d0af-9958-481f-8c83-5e7c59daa2d2"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "86.17436974789915`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 86.17436974789915}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731613292433*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"243db4e0-4e24-476b-8bed-9fd94d818a74"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"119.`", ",", "0.`", ",", "0.`", ",", "119.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"119.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "119.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"63.833901188742374`", ",", "0.`", ",",
- RowBox[{"-", "63.833901188742374`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"47.57620979953597`", ",",
- RowBox[{"-", "10.`"}], ",", "46.5133931130536`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {119., 0., 0., 119.}, $CellContext`p2 -> {
- 119., 0., 0., -119.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {63.833901188742374`,
- 0., -63.833901188742374`, 0.}, $CellContext`p5 -> {
- 47.57620979953597, -10., 46.5133931130536, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731613303755*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"90b071f8-f9c0-4cfd-8610-584f4d724390"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.23413502212097602444536291409322897047465340791735415800620019`\
-43.83215119461797*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.89391861732482", ",", "0``57.6234230429435"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.23413502212097602444536291409322897047465340791735415800620019`43.\
-83215119461797*^-14, 0``58.69897000433602, 0``57.89391861732482,
- 0``57.6234230429435}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731613312401*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1e1fa63f-371a-45d9-ae98-db63b655a1cc"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731613320881*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"863f11dc-0d21-4695-bd34-43e5f3701d5a"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "63.8339011887423737335`10."}], ",",
- RowBox[{"S", "\[Rule]", "56644.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "14503.393584789747299515`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "14503.393584789747299515`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "15192.4684829206849485672`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "15192.4684829206849485672`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "33997.7241354208675735221`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "238.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "184.384717738268286163`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.21499184064457302164342104607678518439`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "47.5762097995359666163`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "162.0464841770984515961`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731613329611*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ebca2822-658d-4899-ac9b-e99c8d72dda4"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "87.44791666666667`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 87.44791666666667}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731623084237*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"fa9db930-666f-4a86-9054-2608574477e4"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"120.`", ",", "0.`", ",", "0.`", ",", "120.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"120.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "120.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"64.84496187225305`", ",", "0.`", ",",
- RowBox[{"-", "64.84496187225305`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"48.565149116025296`", ",",
- RowBox[{"-", "10.`"}], ",", "47.52445379656428`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {120., 0., 0., 120.}, $CellContext`p2 -> {
- 120., 0., 0., -120.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {64.84496187225305,
- 0., -64.84496187225305, 0.}, $CellContext`p5 -> {
- 48.565149116025296`, -10., 47.52445379656428, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731623093279*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ef70d9d6-1a80-43ed-83f5-9cb3291fda75"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "2.202219918753693603007623227144702573362601389656291221437336523`\
-43.66161944907311*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.88709376510447", ",", "0``57.6197887582884"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.202219918753693603007623227144702573362601389656291221437336523`43.\
-66161944907311*^-14, 0``58.69897000433602, 0``57.88709376510447,
- 0``57.6197887582884}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731623101878*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0997c9f0-5b52-4528-ba11-f28d8b41fbce"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731623110384*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"152ff8f8-f9c3-4cbd-b3cb-8a06cc0368a0"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "64.8449618722530516379`10."}], ",",
- RowBox[{"S", "\[Rule]", "57600.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "14756.5733628131905541327`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "14756.5733628131905541327`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "15562.7908493407323931024`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "15562.7908493407323931024`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "34288.728424307848033493`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "240.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "185.17215888007529528`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.21041798908003310006326450741661041844`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "48.565149116025299031`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "162.7096134262463531196`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731623119165*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"4eb2f223-c39d-4eae-af81-953144fbf4c6"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "88.71694214876034`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 88.71694214876034}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797316328392344`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a7a8d5fc-9c99-4ce0-9adb-1ff1d37234bf"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"121.`", ",", "0.`", ",", "0.`", ",", "121.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"121.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "121.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"65.85557151169046`", ",", "0.`", ",",
- RowBox[{"-", "65.85557151169046`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"49.55453947658789`", ",",
- RowBox[{"-", "10.`"}], ",", "48.535063436001685`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {121., 0., 0., 121.}, $CellContext`p2 -> {
- 121., 0., 0., -121.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {65.85557151169046,
- 0., -65.85557151169046, 0.}, $CellContext`p5 -> {
- 49.55453947658789, -10., 48.535063436001685`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731632849225*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1246e333-2f3d-4f14-becf-7420f6947e2b"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "2.654200156833134031120134020772968097735394370523891377419517707`\
-43.73908830885476*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.88037748131118", ",", "0``57.61618463401957"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.654200156833134031120134020772968097735394370523891377419517707`43.\
-73908830885476*^-14, 0``58.69897000433602, 0``57.88037748131118,
- 0``57.61618463401957}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797316328581963`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"df9bbab4-2b66-45f4-bb3b-846d140f0d25"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731632866631*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cb19c14b-c661-4590-8c52-87f777c1fbc9"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "65.8555715116904565321`10."}], ",",
- RowBox[{"S", "\[Rule]", "58564.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "15009.7531408366338087505`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "15009.7531408366338087505`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "15937.0483058290904807563`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "15937.0483058290904807563`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "34579.602893331451209567`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "242.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "185.9559165322024681547`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.2060366113085645028809630457403528577`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "49.5545394765878896171`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "163.3704483324380477231`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731632875286*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"241f38f6-e637-4b46-ab45-e410c1a8ef41"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "89.98155737704919`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 89.98155737704919}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731642593642*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"57dcef4e-158e-4afe-b602-16c7aedaa695"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"122.`", ",", "0.`", ",", "0.`", ",", "122.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"122.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "122.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"66.86575714547178`", ",", "0.`", ",",
- RowBox[{"-", "66.86575714547178`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"50.54435384280655`", ",",
- RowBox[{"-", "10.`"}], ",", "49.545249069783004`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {122., 0., 0., 122.}, $CellContext`p2 -> {
- 122., 0., 0., -122.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {66.86575714547178,
- 0., -66.86575714547178, 0.}, $CellContext`p5 -> {
- 50.54435384280655, -10., 49.545249069783004`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731642602919*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8a4d0ead-22c5-48c1-8cda-4436025fe2cb"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.518069859485515986652742983539434106002116921228254175491479499`\
-43.966533119799536*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.87376623769018", ",", "0``57.61261017366127"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.518069859485515986652742983539434106002116921228254175491479499`43.\
-966533119799536*^-14, 0``58.69897000433602, 0``57.87376623769018,
- 0``57.61261017366127}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797316426116447`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f2fceae8-aea9-4206-b40f-6aae8230ce12"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731642620326*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a1585e57-e1d3-4203-82e7-357adc9226be"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "66.8657571454717754023`10."}], ",",
- RowBox[{"S", "\[Rule]", "59536.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "15262.9329188600770633683`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "15262.9329188600770633683`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "16315.2447434951131981506`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "16315.2447434951131981506`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "34870.3553247103850902963`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "244.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "186.7360579125263238733`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.20183569944143986213396376538564768664`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "50.5443538428065521082`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "164.0289929037234490257`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731642629109*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"624d8539-051d-423a-ab3f-c5cf0aade193"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "91.2418699186992`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 91.2418699186992}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731652404709*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6e049461-8ab9-4318-816f-de9c775cea15"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"123.`", ",", "0.`", ",", "0.`", ",", "123.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"123.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "123.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"67.87554369321533`", ",", "0.`", ",",
- RowBox[{"-", "67.87554369321533`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"51.53456729506302`", ",",
- RowBox[{"-", "10.`"}], ",", "50.55503561752656`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {123., 0., 0., 123.}, $CellContext`p2 -> {
- 123., 0., 0., -123.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {67.87554369321533,
- 0., -67.87554369321533, 0.}, $CellContext`p5 -> {
- 51.53456729506302, -10., 50.55503561752656, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731652413768*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7d7c2979-8a1f-430b-a1ac-db9987e5c25d"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.625488054292816224524909962991471650097297791919287970512796682`\
-43.51901867944756*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.867256682961695", ",", "0``57.60906489289661"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.625488054292816224524909962991471650097297791919287970512796682`43.\
-51901867944756*^-14, 0``58.69897000433602, 0``57.867256682961695,
- 0``57.60906489289661}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797316524224033`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"bd31bbcd-f2ea-437f-8ea2-9320bed123f3"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731652430972*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"aae09dd3-6350-4d4f-9c55-6a7fa0b639de"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "67.8755436932153344287`10."}], ",",
- RowBox[{"S", "\[Rule]", "60516.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "15516.112696883520317986`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "15516.112696883520317986`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "16697.3837485309722694637`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "16697.3837485309722694637`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "35160.9928908289868502761`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "246.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "187.5126472823339637741`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.19780423211754541741691841705978060019`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "51.5345672950630220075`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "164.6852528398886409236`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797316524398003`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"03500180-2c74-47e4-a74f-799d582298c7"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "92.49798387096774`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 92.49798387096774}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797316621216793`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ea1d58d1-57fd-421b-888b-47a80583bf79"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"124.`", ",", "0.`", ",", "0.`", ",", "124.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"124.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "124.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"68.88495415929577`", ",", "0.`", ",",
- RowBox[{"-", "68.88495415929577`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"52.52515682898256`", ",",
- RowBox[{"-", "10.`"}], ",", "51.564446083607`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {124., 0., 0., 124.}, $CellContext`p2 -> {
- 124., 0., 0., -124.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {68.88495415929577,
- 0., -68.88495415929577, 0.}, $CellContext`p5 -> {
- 52.52515682898256, -10., 51.564446083607, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731662130703*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"437930b7-0b9a-4107-b872-2f7295b296b5"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.846211265863042863477718413682294673436961720547137450093735952`\
-43.889551459126935*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.8608456306019", ",", "0``57.605548319173785"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.846211265863042863477718413682294673436961720547137450093735952`43.\
-889551459126935*^-14, 0``58.69897000433602, 0``57.8608456306019,
- 0``57.605548319173785}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731662139431*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b835f7bd-6983-4472-8604-6931ba9b2477"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797316621478977`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cd8c51a9-2e4f-4432-a0d7-8165b12f7762"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "68.8849541592957734792`10."}], ",",
- RowBox[{"S", "\[Rule]", "61504.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "15769.2924749069635726039`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "15769.2924749069635726039`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "17083.4686315053518228524`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "17083.4686315053518228524`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "35451.5222128246348313694`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "248.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "188.2857461753933056637`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.19393207451091244034451758465340680837`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "52.5251568289825607498`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "165.3392353223797953102`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731662156547*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e91f6cc2-9743-4538-a447-f20bb90b17fa"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "93.75`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 93.75}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731671859826*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ffe16950-d4cd-4be6-bd00-bd5faaaa7039"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"125.`", ",", "0.`", ",", "0.`", ",", "125.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"125.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "125.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"69.89400981337496`", ",", "0.`", ",",
- RowBox[{"-", "69.89400981337496`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"53.51610117490336`", ",",
- RowBox[{"-", "10.`"}], ",", "52.57350173768619`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {125., 0., 0., 125.}, $CellContext`p2 -> {
- 125., 0., 0., -125.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {69.89400981337496,
- 0., -69.89400981337496, 0.}, $CellContext`p5 -> {
- 53.51610117490336, -10., 52.57350173768619, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731671868904*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c3dc5277-d9f6-48cd-a1b7-361dd052d22a"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.65275814134192155458346469023042740456277128838641528864276179`\
-43.968740473383015*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.85453004771013", ",", "0``57.602059991327955"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.65275814134192155458346469023042740456277128838641528864276179`43.\
-968740473383015*^-14, 0``58.69897000433602, 0``57.85453004771013,
- 0``57.602059991327955}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731671877572*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"12255a9b-7d9c-4366-8cbb-f19e53574935"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731671886146*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"70b2f28b-3607-4411-aa54-fa78868f018e"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "69.8940098133749643239`10."}], ",",
- RowBox[{"S", "\[Rule]", "62500.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "16022.4722529304068272216`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "16022.4722529304068272216`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "17473.5024533437410809711`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "17473.5024533437410809711`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "35741.9494125483007963349`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "250.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "189.0554136028595738565`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.19020989033400667828953322627703386815`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "53.5161011749033618396`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "165.9909488294843776367`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797316718950243`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"bb0a2227-b060-464d-bac9-6a02dbe0cd50"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "94.99801587301587`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 94.99801587301587}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731681747099*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"dad06ed8-e154-4b37-8990-bc40ae29f616"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"126.`", ",", "0.`", ",", "0.`", ",", "126.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"126.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "126.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"70.90273035089032`", ",", "0.`", ",",
- RowBox[{"-", "70.90273035089032`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"54.507380637388046`", ",",
- RowBox[{"-", "10.`"}], ",", "53.58222227520155`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {126., 0., 0., 126.}, $CellContext`p2 -> {
- 126., 0., 0., -126.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {70.90273035089032,
- 0., -70.90273035089032, 0.}, $CellContext`p5 -> {
- 54.507380637388046`, -10., 53.58222227520155, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731681756366*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cc4c3237-5764-4e87-8d04-f3a1f1879946"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.42653544075840408112666557610851939624708288069486303848564577`\
-42.94363340927361*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.84830704484415", ",", "0``57.59859945921846"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.42653544075840408112666557610851939624708288069486303848564577`42.\
-94363340927361*^-15, 0``58.69897000433602, 0``57.84830704484415,
- 0``57.59859945921846}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731681765164*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2830c846-46d5-4c60-8f85-34f56387069b"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731681773687*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"60ddfba3-7efc-4998-b1c9-8e7122a3b3ad"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "70.9027303508903230522`10."}], ",",
- RowBox[{"S", "\[Rule]", "63504.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "16275.6520309538500818394`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "16275.6520309538500818394`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "17867.4880484243614091611`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "17867.4880484243614091611`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "36032.2801587564234645586`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "252.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "189.821706237080335292`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.18662906418176148499969108981954589896`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "54.5073806373880452123`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "166.6404029734424147357`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731681782493*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f2453074-0404-4a6e-b35f-66faa3db2304"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "96.24212598425197`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 96.24212598425197}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731691528891*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9bf7ccf2-22f1-427f-aba2-8f6b7d7f1577"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"127.`", ",", "0.`", ",", "0.`", ",", "127.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"127.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "127.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"71.91113403604959`", ",", "0.`", ",",
- RowBox[{"-", "71.91113403604959`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"55.49897695222877`", ",",
- RowBox[{"-", "10.`"}], ",", "54.59062596036082`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {127., 0., 0., 127.}, $CellContext`p2 -> {
- 127., 0., 0., -127.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {71.91113403604959,
- 0., -71.91113403604959, 0.}, $CellContext`p5 -> {
- 55.49897695222877, -10., 54.59062596036082, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731691537888*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"3030cb17-832b-4f7d-accd-df371eaebd56"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.363917667837886321843252513311862609293244610446136143118960432`\
-43.42892444287313*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.842173866720024", ",", "0``57.59516628338007"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.363917667837886321843252513311862609293244610446136143118960432`43.\
-42892444287313*^-14, 0``58.69897000433602, 0``57.842173866720024,
- 0``57.59516628338007}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973169154666*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"3ef9f85a-7080-4024-95ef-7d3c840c74cb"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731691554943*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0b95653d-b864-404d-bda0-c69d746ad5b8"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "71.911134036049588758`10."}], ",",
- RowBox[{"S", "\[Rule]", "64516.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "16528.8318089772933364571`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "16528.8318089772933364571`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "18265.4280451565955445403`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "18265.4280451565955445403`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "36322.5197082677792759157`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "254.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "190.584678576919659153`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.18318163281844708066139936584557018693`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "55.4989769522287702939`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "167.2876083566466794619`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731691563686*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d3a9bd58-3655-4c45-be33-79e05aff3c89"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "97.482421875`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 97.482421875}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731701265493*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"59066fb0-3f90-4b27-98c3-04f0f5c1849a"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"128.`", ",", "0.`", ",", "0.`", ",", "128.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"128.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "128.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"72.91923782951717`", ",", "0.`", ",",
- RowBox[{"-", "72.91923782951717`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"56.49087315876117`", ",",
- RowBox[{"-", "10.`"}], ",", "55.5987297538284`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {128., 0., 0., 128.}, $CellContext`p2 -> {
- 128., 0., 0., -128.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {72.91923782951717,
- 0., -72.91923782951717, 0.}, $CellContext`p5 -> {
- 56.49087315876117, -10., 55.5987297538284, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731701274823*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"952719ef-0e8d-4427-b483-f0447b7612fa"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "2.948647157944983446657563884596853391337011000591537652060215225`\
-43.76035284598578*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.83612788368611", ",", "0``57.59176003468815"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.948647157944983446657563884596853391337011000591537652060215225`43.\
-76035284598578*^-14, 0``58.69897000433602, 0``57.83612788368611,
- 0``57.59176003468815}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731701284089*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8a860d13-6cb8-469a-8ada-0d265e5bb232"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731701292666*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d8419ab9-52b6-4817-8dcd-9de67d0d0e54"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "72.9192378295171721447`10."}], ",",
- RowBox[{"S", "\[Rule]", "65536.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "16782.0115870007365910749`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "16782.0115870007365910749`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "18667.3248843563960690517`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "18667.3248843563960690517`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "36612.6729427142686516863`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "256.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "191.3443830968504511635`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.17986022422232449042190901427964421687`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "56.4908731587611710599`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "167.9325764444980968657`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731701301401*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a1d1732b-e58c-428d-8d1c-7a2d02337513"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "98.71899224806201`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 98.71899224806201}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797317110248337`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5f35bb8c-b7b2-42c7-99af-0ab0fd7c8767"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"129.`", ",", "0.`", ",", "0.`", ",", "129.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"129.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "129.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"73.92705750267018`", ",", "0.`", ",",
- RowBox[{"-", "73.92705750267018`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"57.48305348560817`", ",",
- RowBox[{"-", "10.`"}], ",", "56.60654942698141`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {129., 0., 0., 129.}, $CellContext`p2 -> {
- 129., 0., 0., -129.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {73.92705750267018,
- 0., -73.92705750267018, 0.}, $CellContext`p5 -> {
- 57.48305348560817, -10., 56.60654942698141, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731711035859*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"758d04f7-818f-4b5f-8c1b-545ba1de8e26"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "2.598413421746006116181210830607432446624022982649575293151626475`\
-43.70205854922789*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.83016658389239", ",", "0``57.588380294036774"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.598413421746006116181210830607432446624022982649575293151626475`43.\
-70205854922789*^-14, 0``58.69897000433602, 0``57.83016658389239,
- 0``57.588380294036774}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731711044551*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"48baa0de-d4c6-47f8-9803-e09f65deaf73"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797317110532*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7cfa1581-c74f-4b4d-b554-76224d16ebcd"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "73.9270575026701806109`10."}], ",",
- RowBox[{"S", "\[Rule]", "66564.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "17035.1913650241798456927`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "17035.1913650241798456927`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "19073.1808356889065976247`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "19073.1808356889065976247`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "36902.7444014261758739296`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "258.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "192.1008703817506805883`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.17665800337996787332234861079879011242`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "57.483053485608166096`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "168.5753194528255290851`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731711061976*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"22e7cd68-8bc3-4fad-971c-b3d86c6c06a5"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "99.95192307692308`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 99.95192307692308}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731720770184*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"01b0aac9-1d44-4418-b179-509da8748c6c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"130.`", ",", "0.`", ",", "0.`", ",", "130.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"130.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "130.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"74.93460774004404`", ",", "0.`", ",",
- RowBox[{"-", "74.93460774004404`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"58.47550324823432`", ",",
- RowBox[{"-", "10.`"}], ",", "57.61409966435527`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {130., 0., 0., 130.}, $CellContext`p2 -> {
- 130., 0., 0., -130.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {74.93460774004404,
- 0., -74.93460774004404, 0.}, $CellContext`p5 -> {
- 58.47550324823432, -10., 57.61409966435527, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731720779482*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5789ab54-930f-4a67-bf82-021fa62ae869"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.25558279267819520921472226175136695721873012527373107141612621`\
-43.382842011580436*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.82428756608532", ",", "0``57.585026652029185"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.25558279267819520921472226175136695721873012527373107141612621`43.\
-382842011580436*^-14, 0``58.69897000433602, 0``57.82428756608532,
- 0``57.585026652029185}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731720788739*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"17ca8d56-9fb1-4757-b20a-f5e00065ae9d"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731720797279*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c6ff741f-a493-457e-ada4-c9751d8c3d4b"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "74.9346077400440435667`10."}], ",",
- RowBox[{"S", "\[Rule]", "67600.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "17288.3711430476231003105`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "17288.3711430476231003105`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "19482.9980124114513273526`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "19482.9980124114513273526`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "37192.7383109181503237428`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "260.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "192.8541892490752981821`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.17356862396978159546371749622782553158`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "58.4755032482343165685`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "169.2158502480695296465`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731720805935*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6670c8ad-d17d-4ff2-85a1-aa59b09f37a9"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "101.18129770992365`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 101.18129770992365`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731730571768*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5e73e45d-bbfb-450a-ae05-016d07d39907"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"131.`", ",", "0.`", ",", "0.`", ",", "131.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"131.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "131.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"75.94190223136785`", ",", "0.`", ",",
- RowBox[{"-", "75.94190223136785`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"59.468208756910485`", ",",
- RowBox[{"-", "10.`"}], ",", "58.62139415567908`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {131., 0., 0., 131.}, $CellContext`p2 -> {
- 131., 0., 0., -131.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {75.94190223136785,
- 0., -75.94190223136785, 0.}, $CellContext`p5 -> {
- 59.468208756910485`, -10., 58.62139415567908, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797317305808973`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"3cf5e4fe-f5b8-4d26-81df-432e603e7031"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.985169515061360051931986433176072622456486882658638822414662126`\
-43.88111551249745*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.81848853296706", ",", "0``57.58169870868025"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.985169515061360051931986433176072622456486882658638822414662126`43.\
-88111551249745*^-14, 0``58.69897000433602, 0``57.81848853296706,
- 0``57.58169870868025}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731730589858*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ce5fbe6b-fe1f-401c-aace-9687ce0146ca"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797317305983477`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"59f619ce-3d5d-461c-a8e1-6bf17be26e71"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "75.9419022313678482305`10."}], ",",
- RowBox[{"S", "\[Rule]", "68644.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "17541.5509210710663549283`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "17541.5509210710663549283`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "19896.7783846183762364035`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "19896.7783846183762364035`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "37482.6586113788899224813`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "262.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "193.6043868598511120072`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.17058618519790403534658483863109341926`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "59.4682087569104846089`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "169.8541822586751400411`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731730607233*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"81a54262-d81c-4f87-9db9-fdb90b833abc"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "102.40719696969697`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 102.40719696969697`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731740273836*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e7a47d0a-eaf7-4258-b02b-3b78843c4949"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"132.`", ",", "0.`", ",", "0.`", ",", "132.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"132.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "132.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"76.94895375440309`", ",", "0.`", ",",
- RowBox[{"-", "76.94895375440309`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"60.46115723387524`", ",",
- RowBox[{"-", "10.`"}], ",", "59.62844567871432`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {132., 0., 0., 132.}, $CellContext`p2 -> {
- 132., 0., 0., -132.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {76.94895375440309,
- 0., -76.94895375440309, 0.}, $CellContext`p5 -> {
- 60.46115723387524, -10., 59.62844567871432, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731740283074*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"46fd9c0f-ff27-4a57-b9ae-e6357886a2b6"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.921779692986392239971838548168384124775944909782484072975558428`\
-43.87084927087555*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.812767285064936", ",", "0``57.578396073130165"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.921779692986392239971838548168384124775944909782484072975558428`43.\
-87084927087555*^-14, 0``58.69897000433602, 0``57.812767285064936,
- 0``57.578396073130165}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731740291936*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"071d953e-0bf1-462e-b5ec-c7f817fef659"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973174030054*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"66e01984-87d0-48e2-bb4f-733f24bf9086"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "76.9489537544030923755`10."}], ",",
- RowBox[{"S", "\[Rule]", "69696.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "17794.730699094509609546`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "17794.730699094509609546`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "20314.5237911624163871238`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "20314.5237911624163871238`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "37772.5089805138567356464`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "264.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "194.351508819751272688`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.16770519315363806589526475496351485101`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "60.4611572338752410979`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "170.4903293963477347657`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731740309223*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2557ca56-e6f7-4a84-965a-10d555e15c49"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "103.62969924812029`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 103.62969924812029`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973175036619*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"58322468-135c-4f1e-b181-ea75abf7c555"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"133.`", ",", "0.`", ",", "0.`", ",", "133.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"133.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "133.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"77.95577424964017`", ",", "0.`", ",",
- RowBox[{"-", "77.95577424964017`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"61.45433673863818`", ",",
- RowBox[{"-", "10.`"}], ",", "60.6352661739514`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {133., 0., 0., 133.}, $CellContext`p2 -> {
- 133., 0., 0., -133.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {77.95577424964017,
- 0., -77.95577424964017, 0.}, $CellContext`p5 -> {
- 61.45433673863818, -10., 60.6352661739514, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731750377099*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b841b86a-3d4d-4d07-9123-2ea6822faac0"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.834381371320645646823107176578745102362219920423736019378816426`\
-43.53757799906174*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.80712171506287", ",", "0``57.57511836336894"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.834381371320645646823107176578745102362219920423736019378816426`43.\
-53757799906174*^-14, 0``58.69897000433602, 0``57.80712171506287,
- 0``57.57511836336894}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797317503860064`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d89972ab-17a2-4684-a0ad-4625c75431b7"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731750398224*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0f8771f0-d61f-429d-810d-042b7736d9eb"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "77.9557742496401715471`10."}], ",",
- RowBox[{"S", "\[Rule]", "70756.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "18047.9104771179528641638`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "18047.9104771179528641638`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "20736.2359504042856315209`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "20736.2359504042856315209`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "38062.2928550444792459832`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "266.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "195.0955992713430715891`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.16492052613922471814155970309606183571`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "61.4543367386381828002`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "171.1243059860037002513`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731750406925*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"73462437-e3b3-4a4a-b3b4-f7ebfb16e3d0"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "104.84888059701493`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 104.84888059701493`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731760076783*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1a9690ea-2ab2-44fa-a67a-a4dbcce71338"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"134.`", ",", "0.`", ",", "0.`", ",", "134.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"134.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "134.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"78.96237488777152`", ",", "0.`", ",",
- RowBox[{"-", "78.96237488777152`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"62.447736100506866`", ",",
- RowBox[{"-", "10.`"}], ",", "61.641866812082746`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {134., 0., 0., 134.}, $CellContext`p2 -> {
- 134., 0., 0., -134.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {78.96237488777152,
- 0., -78.96237488777152, 0.}, $CellContext`p5 -> {
- 62.447736100506866`, -10., 61.641866812082746`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731760086493*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ce6876c5-c25f-4cc8-872f-3d7594f6a35c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "7.30237764272490567071225626483879028133195153706090045212591261`43.\
-1342994990566*^-15", ",", "0``58.69897000433602", ",",
- "0``57.801549802552564", ",", "0``57.571865205971214"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 7.30237764272490567071225626483879028133195153706090045212591261`43.\
-1342994990566*^-15, 0``58.69897000433602, 0``57.801549802552564,
- 0``57.571865205971214}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731760098671*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7b32159a-d781-4c41-b36e-cee798530153"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797317601069736`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e7e37312-456b-4b11-8ec5-be89cd5e252e"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "78.9623748877715172512`10."}], ",",
- RowBox[{"S", "\[Rule]", "71824.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "18301.0902551413961187815`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "18301.0902551413961187815`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "21161.9164699227666233128`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "21161.9164699227666233128`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "38352.0134501283245721548`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "268.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "195.8367009784640049969`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.1622274035029686635389583082081694284`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "62.4477361005068627423`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "171.7561267034002182241`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731760115431*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7b292965-3836-415c-b64d-f1bb0f34deec"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "106.06481481481482`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 106.06481481481482`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731774024284*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"689fe1c5-79ff-44ac-806a-2356424863c6"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"135.`", ",", "0.`", ",", "0.`", ",", "135.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"135.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "135.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"79.96876613074323`", ",", "0.`", ",",
- RowBox[{"-", "79.96876613074323`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"63.44134485753511`", ",",
- RowBox[{"-", "10.`"}], ",", "62.64825805505446`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {135., 0., 0., 135.}, $CellContext`p2 -> {
- 135., 0., 0., -135.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {79.96876613074323,
- 0., -79.96876613074323, 0.}, $CellContext`p5 -> {
- 63.44134485753511, -10., 62.64825805505446, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731774034643*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a8292541-fdb6-4b9b-959e-837ad88dd541"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.251764790261454625220591458449020482263223962948208775606047848`\
-43.77972536443427*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.79604960916586", ",", "0``57.56863623584101"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.251764790261454625220591458449020482263223962948208775606047848`43.\
-77972536443427*^-14, 0``58.69897000433602, 0``57.79604960916586,
- 0``57.56863623584101}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731774044142*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ce828323-dcf6-4745-a57e-4976c6458787"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797317740535727`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8643e536-6969-4f0c-93cf-e6da9097f5a3"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "79.9687661307432335889`10."}], ",",
- RowBox[{"S", "\[Rule]", "72900.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "18554.2700331648393733994`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "18554.2700331648393733994`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "21591.5668553006730689958`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "21591.5668553006730689958`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "38641.6737769310290107169`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "270.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "196.5748554035612892805`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.1596213575677097398352955940110445512`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "63.4413448575351065846`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "172.3858065195584526064`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797317740638742`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"607065a3-bf45-4d13-8343-029885c52d95"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "107.27757352941177`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 107.27757352941177`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731787265543*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d12d8dd5-6dbb-4543-99b2-cf78617ec39a"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"136.`", ",", "0.`", ",", "0.`", ",", "136.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"136.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "136.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"80.97495778708729`", ",", "0.`", ",",
- RowBox[{"-", "80.97495778708729`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"64.43515320119106`", ",",
- RowBox[{"-", "10.`"}], ",", "63.65444971139852`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {136., 0., 0., 136.}, $CellContext`p2 -> {
- 136., 0., 0., -136.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {80.97495778708729,
- 0., -80.97495778708729, 0.}, $CellContext`p5 -> {
- 64.43515320119106, -10., 63.65444971139852, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731787275321*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"dc719073-7a5e-4625-913e-7e63dd8e6ea7"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.841332089525519307182180533700462614927577529183296709030607074`\
-43.529533222125764*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.79061927405504", ",", "0``57.565431095965806"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.841332089525519307182180533700462614927577529183296709030607074`43.\
-529533222125764*^-14, 0``58.69897000433602, 0``57.79061927405504,
- 0``57.565431095965806}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973178728587*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2860fda4-6f51-4710-9cf3-8a14126b26f5"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797317872948933`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"519dd11c-03a0-4672-8c55-37afc4da5690"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "80.9749577870872911944`10."}], ",",
- RowBox[{"S", "\[Rule]", "73984.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "18807.4498111882826280171`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "18807.4498111882826280171`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "22025.1885180877432048874`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "22025.1885180877432048874`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "38931.2766585520540387393`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "272.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "197.3101027787276128222`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.15709820830026456428869920885185868522`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "64.4351532011910630834`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "173.0133606512066644199`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731787304524*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9dd08ccc-f611-4b3e-9b0c-f99e16fe1eee"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "108.48722627737226`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 108.48722627737226`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973179781131*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f8337edf-04cb-4aeb-95f1-dd570654ad1e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"137.`", ",", "0.`", ",", "0.`", ",", "137.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"137.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "137.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"81.98095906214935`", ",", "0.`", ",",
- RowBox[{"-", "81.98095906214935`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"65.42915192612901`", ",",
- RowBox[{"-", "10.`"}], ",", "64.66045098646057`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {137., 0., 0., 137.}, $CellContext`p2 -> {
- 137., 0., 0., -137.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {81.98095906214935,
- 0., -81.98095906214935, 0.}, $CellContext`p5 -> {
- 65.42915192612901, -10., 64.66045098646057, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797317978200483`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5775c058-b8b8-43a7-997d-77e772453bfb"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.441691910492800484683802128226629428576721934241307509203671955`\
-43.420091903099745*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.78525700968998", ",", "0``57.56224943717962"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.441691910492800484683802128226629428576721934241307509203671955`43.\
-420091903099745*^-14, 0``58.69897000433602, 0``57.78525700968998,
- 0``57.56224943717962}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731797828548*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0f555b6a-c55e-416f-bc77-351c2ffd8b56"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731797839485*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"29c3d3c4-8c0c-445f-89fa-966caf442daa"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "81.9809590621493526896`10."}], ",",
- RowBox[{"S", "\[Rule]", "75076.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "19060.6295892117258826349`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "19060.6295892117258826349`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "22462.7827830289226369587`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "22462.7827830289226369587`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "39220.8247444812989257607`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "274.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "198.0424821710768674786`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.15465404041326476435869657887403999299`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "65.4291519261290055846`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "173.6388045165657928702`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731797848443*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"03f3f5aa-618b-498d-bd81-7ffd69732c04"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "109.69384057971014`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 109.69384057971014`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731808681476*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"953082c2-5572-43e2-9ff6-671801a1ba9f"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"138.`", ",", "0.`", ",", "0.`", ",", "138.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"138.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "138.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"82.98677860375383`", ",", "0.`", ",",
- RowBox[{"-", "82.98677860375383`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"66.42333238452454`", ",",
- RowBox[{"-", "10.`"}], ",", "65.66627052806506`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {138., 0., 0., 138.}, $CellContext`p2 -> {
- 138., 0., 0., -138.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {82.98677860375383,
- 0., -82.98677860375383, 0.}, $CellContext`p5 -> {
- 66.42333238452454, -10., 65.66627052806506, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973180869109*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9a11ab30-c911-46f1-80e8-b16fdbe0d862"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "2.79668526883497829102268147068580652235974997231722179958303994`\
-42.70470451710171*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.77996109794564", ",", "0``57.559090917934775"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.79668526883497829102268147068580652235974997231722179958303994`42.\
-70470451710171*^-15, 0``58.69897000433602, 0``57.77996109794564,
- 0``57.559090917934775}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731808700025*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9b58aebd-680f-4145-8798-c3ae04064c13"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797318087086153`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b189e543-e746-446b-8721-eaa14c6a55ab"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "82.9867786037538337496`10."}], ",",
- RowBox[{"S", "\[Rule]", "76176.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "19313.8093672351691372527`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "19313.8093672351691372527`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "22904.3508946360581148838`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "22904.3508946360581148838`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "39510.3205237424548758032`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "276.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "198.7720315430278407251`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.15228518263003998511489193932174294058`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "66.4233323845245361449`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "174.2621536958839571045`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731808717491*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"fa425807-82e6-4dbd-886e-2aa3ec9c87ec"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "110.8974820143885`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 110.8974820143885}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797318186163673`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9500183d-1b7c-41c7-b249-c040a359e7f1"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"139.`", ",", "0.`", ",", "0.`", ",", "139.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"139.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "139.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"83.99242454378209`", ",", "0.`", ",",
- RowBox[{"-", "83.99242454378209`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"67.41768644449625`", ",",
- RowBox[{"-", "10.`"}], ",", "66.67191646809331`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {139., 0., 0., 139.}, $CellContext`p2 -> {
- 139., 0., 0., -139.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {83.99242454378209,
- 0., -83.99242454378209, 0.}, $CellContext`p5 -> {
- 67.41768644449625, -10., 66.67191646809331, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731818625721*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"eb9df199-df9d-4ef0-a840-3f0455697218"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.117603540762503625305529540486065872054631867808370420430507133`\
-43.748746094445046*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.77472988645502", ",", "0``57.55595520408193"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.117603540762503625305529540486065872054631867808370420430507133`43.\
-748746094445046*^-14, 0``58.69897000433602, 0``57.77472988645502,
- 0``57.55595520408193}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731818634492*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9ad95d34-210a-4be8-836c-fe820a72fc71"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797318186432056`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7ecbda30-306b-4666-a33b-4c4712b4fc57"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "83.9924245437820928828`10."}], ",",
- RowBox[{"S", "\[Rule]", "77284.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "19566.9891452586123918704`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "19566.9891452586123918704`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "23349.8940231714218214165`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "23349.8940231714218214165`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "39799.7663368600726302062`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "278.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "199.4987878079966495669`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.14998818887688079514177099236880463667`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "67.4176864444962486323`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "174.8834238961976186194`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731818652026*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1dfe6795-96d5-4846-a29a-703b400dc174"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "112.09821428571428`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 112.09821428571428`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731828561131*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9bd9191c-53c4-4e7f-923c-3fea9d18acd4"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"140.`", ",", "0.`", ",", "0.`", ",", "140.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"140.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "140.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"84.99790453608453`", ",", "0.`", ",",
- RowBox[{"-", "84.99790453608453`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"68.41220645219381`", ",",
- RowBox[{"-", "10.`"}], ",", "67.67739646039576`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {140., 0., 0., 140.}, $CellContext`p2 -> {
- 140., 0., 0., -140.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {84.99790453608453,
- 0., -84.99790453608453, 0.}, $CellContext`p5 -> {
- 68.41220645219381, -10., 67.67739646039576, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731828570311*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e69cf388-4443-47b4-b2fc-a52756a2ce16"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "2.76724932233187520155615587733006017488285595965270793188905003`\
-43.69386026275816*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.769561785205646", ",", "0``57.55284196865779"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.76724932233187520155615587733006017488285595965270793188905003`43.\
-69386026275816*^-14, 0``58.69897000433602, 0``57.769561785205646,
- 0``57.55284196865779}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731828579111*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"907842a1-1ab8-47cd-a5cf-cc9ca62b6400"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731828587756*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5790939d-3e9a-4226-8674-62bd06029aa2"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "84.9979045360845333335`10."}], ",",
- RowBox[{"S", "\[Rule]", "78400.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "19820.1689232820556464882`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "19820.1689232820556464882`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "23799.4132701036693333663`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "23799.4132701036693333663`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "40089.1643867714537459816`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "280.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "200.222786881941721079`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.14775982119601653651333407211128100458`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "68.4122064521938116852`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "175.5026309198601459554`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731828596758*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8a26fa47-5607-4804-8e5d-ba23ad61a3d9"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "113.29609929078013`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 113.29609929078013`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797318384117393`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e9bccd57-4ba2-4e7c-acf6-2febbbe9d8a4"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"141.`", ",", "0.`", ",", "0.`", ",", "141.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"141.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "141.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"86.00322579109795`", ",", "0.`", ",",
- RowBox[{"-", "86.00322579109795`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"69.40688519718042`", ",",
- RowBox[{"-", "10.`"}], ",", "68.68271771540917`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {141., 0., 0., 141.}, $CellContext`p2 -> {
- 141., 0., 0., -141.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {86.00322579109795,
- 0., -86.00322579109795, 0.}, $CellContext`p5 -> {
- 69.40688519718042, -10., 68.68271771540917, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731838420521*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"64fdd57a-7388-4fc5-860d-d926d1a9fddb"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.567834217810967577006381107073351872942300703859653132186977727`\
-43.44402103466081*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.76445526335989", ",", "0``57.549750891680645"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.567834217810967577006381107073351872942300703859653132186977727`43.\
-44402103466081*^-14, 0``58.69897000433602, 0``57.76445526335989,
- 0``57.549750891680645}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731838428768*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9763b1ec-451d-40ad-b072-bd6d0c55cae1"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731838437027*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"60165c10-267e-4974-a809-8d691a6a61d6"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "86.0032257910979467397`10."}], ",",
- RowBox[{"S", "\[Rule]", "79524.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "20073.3487013054989011059`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "20073.3487013054989011059`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "24252.9096730896209805906`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "24252.9096730896209805906`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "40378.5167487902419397628`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "282.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "200.9440637311544019222`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.14559703419767954223863756627934379117`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "69.4068851971804102731`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "176.119790636432315437`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731838445373*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"49f0de69-5e03-4942-8b82-1ef43f2a84cd"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "114.49119718309859`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 114.49119718309859`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797318481722383`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"97e5f231-f4ff-4b22-b6ef-015c2a2a294b"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"142.`", ",", "0.`", ",", "0.`", ",", "142.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"142.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "142.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"87.00839510749769`", ",", "0.`", ",",
- RowBox[{"-", "87.00839510749769`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"70.40171588078064`", ",",
- RowBox[{"-", "10.`"}], ",", "69.68788703180891`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {142., 0., 0., 142.}, $CellContext`p2 -> {
- 142., 0., 0., -142.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {87.00839510749769,
- 0., -87.00839510749769, 0.}, $CellContext`p5 -> {
- 70.40171588078064, -10., 69.68788703180891, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731848181616*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e57b4991-c450-470f-9da5-21730b0d53f3"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.754810779396179347070781787110915249091148197512417316153971235`\
-43.82023972026706*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.75940884628104", ",", "0``57.54668165995296"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.754810779396179347070781787110915249091148197512417316153971235`43.\
-82023972026706*^-14, 0``58.69897000433602, 0``57.75940884628104,
- 0``57.54668165995296}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731848190625*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"23e04291-c668-440c-bc4e-d90abecbd353"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731848199445*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6489e4c0-7e12-47ad-877b-7538f37c202c"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "87.0083951074976909013`10."}], ",",
- RowBox[{"S", "\[Rule]", "80656.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "20326.5284793289421557238`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "20326.5284793289421557238`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "24710.3842105293442159564`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "24710.3842105293442159564`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "40667.8253797165780302627`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "284.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "201.662652416645006376`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.14349696089128828002263174564734559258`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "70.4017158807806442417`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "176.7349189575769624026`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797318482083063`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"95381391-9122-4086-84dc-4c8c080a749d"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "115.68356643356644`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 115.68356643356644`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731858015826*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"74d0dd35-911e-44c8-bb6a-b4c85373c81a"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"143.`", ",", "0.`", ",", "0.`", ",", "143.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"143.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "143.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"88.01341890117676`", ",", "0.`", ",",
- RowBox[{"-", "88.01341890117676`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"71.39669208710161`", ",",
- RowBox[{"-", "10.`"}], ",", "70.69291082548798`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {143., 0., 0., 143.}, $CellContext`p2 -> {
- 143., 0., 0., -143.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {88.01341890117676,
- 0., -88.01341890117676, 0.}, $CellContext`p5 -> {
- 71.39669208710161, -10., 70.69291082548798, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731858025223*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0575132d-c8cb-445f-8fba-284cb2b87024"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.57002401104258664013673459828581403594570957450379123255365135`\
-42.795275108279455*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.754421112748936", ",", "0``57.543633966870956"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.57002401104258664013673459828581403594570957450379123255365135`42.\
-795275108279455*^-15, 0``58.69897000433602, 0``57.754421112748936,
- 0``57.543633966870956}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731858034018*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"adb5559c-b209-4062-83c9-5c869a56f6c8"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973185804289*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9e866bc4-6fab-424a-86d7-d30704220106"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "88.0134189011767631428`10."}], ",",
- RowBox[{"S", "\[Rule]", "81796.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "20579.7082573523854103415`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "20579.7082573523854103415`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "25171.8378057365542588286`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "25171.8378057365542588286`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "40957.0921261778798481161`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "286.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "202.3785861354354848338`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.14145689975457267384545940963790414608`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "71.3966920871016059783`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "177.3480318146409260249`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731858051888*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"67f35bfd-350a-4e93-be87-1a1ca1c9b386"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "116.87326388888889`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 116.87326388888889`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731867843155*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9d548cab-4d73-4eb8-8c5c-3c1435bc3cd4"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"144.`", ",", "0.`", ",", "0.`", ",", "144.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"144.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "144.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"89.0183032318112`", ",", "0.`", ",",
- RowBox[{"-", "89.0183032318112`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"72.39180775646712`", ",",
- RowBox[{"-", "10.`"}], ",", "71.69779515612242`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {144., 0., 0., 144.}, $CellContext`p2 -> {
- 144., 0., 0., -144.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {89.0183032318112,
- 0., -89.0183032318112, 0.}, $CellContext`p5 -> {72.39180775646712, -10.,
- 71.69779515612242, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731867854334*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"91496764-fb82-4fed-a999-14781d8ddaea"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "5.098392234823624358690554647036525817347902839525148024984032539`\
-43.94701076059092*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.74949069235047", ",", "0``57.54060751224077"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.098392234823624358690554647036525817347902839525148024984032539`43.\
-94701076059092*^-14, 0``58.69897000433602, 0``57.74949069235047,
- 0``57.54060751224077}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731867863297*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8afd6fc0-4282-47cb-945b-340cc25fedf1"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731867872027*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"243103c3-9d39-4843-8481-8f4b48b2d669"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "89.018303231811202636`10."}], ",",
- RowBox[{"S", "\[Rule]", "82944.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "20832.8880353758286649593`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "20832.8880353758286649593`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "25637.2713307616263591626`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "25637.2713307616263591626`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "41246.3187322749174298804`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "288.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "203.0918972590362045877`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.13947430291580003189739540204478159606`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "72.3918077564671190712`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "177.9591451386433441583`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731867880952*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ea2c482b-3c9c-4d2c-903e-4cfe64293085"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "118.0603448275862`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 118.0603448275862}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797318776656103`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2b2a4c27-a555-4995-b95f-d67903e2fcc1"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"145.`", ",", "0.`", ",", "0.`", ",", "145.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"145.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "145.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"90.0230538272438`", ",", "0.`", ",",
- RowBox[{"-", "90.0230538272438`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"73.38705716103455`", ",",
- RowBox[{"-", "10.`"}], ",", "72.70254575155502`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {145., 0., 0., 145.}, $CellContext`p2 -> {
- 145., 0., 0., -145.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {90.0230538272438,
- 0., -90.0230538272438, 0.}, $CellContext`p5 -> {73.38705716103455, -10.,
- 72.70254575155502, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731877675128*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6686b9f5-50f7-480f-bc34-ea10425a3ae7"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "2.681807256124894446480014001554702496057437120645839444492452683`\
-43.664999567943184*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.744616263031666", ",", "0``57.537602002101046"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.681807256124894446480014001554702496057437120645839444492452683`43.\
-664999567943184*^-14, 0``58.69897000433602, 0``57.744616263031666,
- 0``57.537602002101046}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731877684148*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ecd3ccec-bf6f-4ff4-abfa-2a4203879fab"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731877693338*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e8fb66e2-96a2-44f8-9166-3d8fb8f9932e"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "90.0230538272437996739`10."}], ",",
- RowBox[{"S", "\[Rule]", "84100.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "21086.0678133992719195771`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "21086.0678133992719195771`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "26106.685609900701905417`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "26106.685609900701905417`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "41535.506846599951586187`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "290.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "203.8026173693555673276`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.13754676533849038019543946132928078401`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "73.3870571610345461992`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "178.5682748424215063912`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797318777024937`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"638adbb5-3f17-4216-8a91-5541d085e9ea"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "119.24486301369862`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 119.24486301369862`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731887453837*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"738834b4-4d35-42be-956f-7367b51480c1"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"146.`", ",", "0.`", ",", "0.`", ",", "146.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"146.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "146.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"91.02767610589144`", ",", "0.`", ",",
- RowBox[{"-", "91.02767610589144`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"74.38243488238692`", ",",
- RowBox[{"-", "10.`"}], ",", "73.70716803020267`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {146., 0., 0., 146.}, $CellContext`p2 -> {
- 146., 0., 0., -146.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {91.02767610589144,
- 0., -91.02767610589144, 0.}, $CellContext`p5 -> {
- 74.38243488238692, -10., 73.70716803020267, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731887463263*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6ef0c1af-d916-483f-bb0e-671b760f581b"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "5.98432384856991757641538810365768747282271473249564345766888408`\
-43.01060224072548*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.739796548798836", ",", "0``57.534617148551575"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.98432384856991757641538810365768747282271473249564345766888408`43.\
-01060224072548*^-15, 0``58.69897000433602, 0``57.739796548798836,
- 0``57.534617148551575}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731887472274*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"256364b9-14f5-4d74-961f-1570662e21fb"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797318874810963`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0bff2f23-78de-46f7-b6fd-5709cb524b42"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "91.0276761058914445357`10."}], ",",
- RowBox[{"S", "\[Rule]", "85264.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "21339.2475914227151741948`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "21339.2475914227151741948`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "26580.0814229203018044245`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "26580.0814229203018044245`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "41824.6580286860348474959`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "292.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "204.5107772922640740886`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.13567201491044049729724889911780747391`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "74.3824348823869221711`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "179.1754368047121407262`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973188749014*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"aba953b8-4618-4c0d-b503-436a0ac59697"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "120.42687074829932`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 120.42687074829932`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731897653143*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"91716b3f-79aa-4d56-ae2d-c00c369c2850"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"147.`", ",", "0.`", ",", "0.`", ",", "147.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"147.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "147.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"92.03217519736133`", ",", "0.`", ",",
- RowBox[{"-", "92.03217519736133`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"75.37793579091701`", ",",
- RowBox[{"-", "10.`"}], ",", "74.71166712167255`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {147., 0., 0., 147.}, $CellContext`p2 -> {
- 147., 0., 0., -147.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {92.03217519736133,
- 0., -92.03217519736133, 0.}, $CellContext`p5 -> {
- 75.37793579091701, -10., 74.71166712167255, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731897662283*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1e829729-1df8-4365-b323-e9724a26e35f"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.676975027193165765431051439688166103111001414811331385922601653`\
-43.79611335421725*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.73503031755832", ",", "0``57.53165266958784"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.676975027193165765431051439688166103111001414811331385922601653`43.\
-79611335421725*^-14, 0``58.69897000433602, 0``57.73503031755832,
- 0``57.53165266958784}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797318976711493`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d401ca0c-c74a-4461-ac96-fd97c2467801"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731897679755*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d4a67a76-6b15-4432-ac95-2571b56849dd"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "92.0321751973613260134`10."}], ",",
- RowBox[{"S", "\[Rule]", "86436.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "21592.4273694461584288126`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "21592.4273694461584288126`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "27057.4595080242298479334`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "27057.4595080242298479334`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "42113.7737549407820967477`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "294.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "205.2164071290129133781`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.13384790334974568129078262582760913924`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "75.377935790917009908`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "179.7806468559714729216`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731897688574*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0de435d0-0490-48d2-87cb-383bb669c4f2"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "121.60641891891892`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 121.60641891891892`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731907419726*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1ad91b39-9b34-49f0-b533-725463ae7f12"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"148.`", ",", "0.`", ",", "0.`", ",", "148.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"148.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "148.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"93.03655596144044`", ",", "0.`", ",",
- RowBox[{"-", "93.03655596144044`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"76.37355502683792`", ",",
- RowBox[{"-", "10.`"}], ",", "75.71604788575166`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {148., 0., 0., 148.}, $CellContext`p2 -> {
- 148., 0., 0., -148.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {93.03655596144044,
- 0., -93.03655596144044, 0.}, $CellContext`p5 -> {
- 76.37355502683792, -10., 75.71604788575166, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731907429306*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5977b943-9d72-4dbc-b78b-68a9470dfd11"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.055305815180351687347319404829361817109799743353310161204267993`\
-43.25105662456908*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.730316379084094", ",", "0``57.528708288941054"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.055305815180351687347319404829361817109799743353310161204267993`43.\
-25105662456908*^-14, 0``58.69897000433602, 0``57.730316379084094,
- 0``57.528708288941054}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797319074390383`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"13ed0b1f-d321-44ca-b360-6011ab2de075"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797319074481173`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"67ff1dda-e711-4f59-92c6-f5a3321e129e"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "93.0365559614404418198`10."}], ",",
- RowBox[{"S", "\[Rule]", "87616.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "21845.6071474696016834304`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "21845.6071474696016834304`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "27538.8205645863707786702`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "27538.8205645863707786702`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "42402.8554241119465361504`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "296.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "205.9195362856859838071`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.13207239785004430026224196586783527924`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "76.3735550268379203182`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "180.3839207657579832296`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797319074570627`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cc6c3494-3d0c-4bef-9a8a-b36e3b599b24"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "122.78355704697987`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 122.78355704697987`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731917179455*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b14e5fd2-8bf7-4e8e-bc87-a75ed4a4114b"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"149.`", ",", "0.`", ",", "0.`", ",", "149.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"149.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "149.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"94.04082300560603`", ",", "0.`", ",",
- RowBox[{"-", "94.04082300560603`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"77.36928798267233`", ",",
- RowBox[{"-", "10.`"}], ",", "76.72031492991725`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {149., 0., 0., 149.}, $CellContext`p2 -> {
- 149., 0., 0., -149.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {94.04082300560603,
- 0., -94.04082300560603, 0.}, $CellContext`p5 -> {
- 77.36928798267233, -10., 76.72031492991725, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731917188925*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"96e0f4da-eb72-46a1-b03f-b67cba97449b"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.619275811460566993749561269090905982040488572178919578630023517`\
-43.43407456874965*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.72565358310442", ",", "0``57.52578373592374"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.619275811460566993749561269090905982040488572178919578630023517`43.\
-43407456874965*^-14, 0``58.69897000433602, 0``57.72565358310442,
- 0``57.52578373592374}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731917197974*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d9287d20-0e0b-4e4c-8554-d575aaf15739"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731917206813*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cafcff0e-9d34-4f34-894a-2f15f32388ad"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "94.0408230056060290281`10."}], ",",
- RowBox[{"S", "\[Rule]", "88804.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "22098.7869254930449380482`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "22098.7869254930449380482`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "28024.1652556705966503614`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "28024.1652556705966503614`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "42691.9043623272856824634`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "298.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "206.620193500846585773`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.13034357339558414579286000587009393554`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "77.3692879826723274703`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "180.9852742315208364421`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797319172157097`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"76f9e8a6-fe68-4795-b2a0-4d245a3bd4c7"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "123.95833333333334`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 123.95833333333334`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973192701152*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"82a72115-f980-4026-aa1f-11dde59f6eb4"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"150.`", ",", "0.`", ",", "0.`", ",", "150.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"150.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "150.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"95.04498070119013`", ",", "0.`", ",",
- RowBox[{"-", "95.04498070119013`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"78.3651302870882`", ",",
- RowBox[{"-", "10.`"}], ",", "77.72447262550135`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {150., 0., 0., 150.}, $CellContext`p2 -> {
- 150., 0., 0., -150.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {95.04498070119013,
- 0., -95.04498070119013, 0.}, $CellContext`p5 -> {78.3651302870882, -10.,
- 77.72447262550135, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797319270209208`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e46eb5c4-ce80-4dad-bc68-4ad86e866bc1"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.887221955939928966560590155849714544348308363744058289341178206`\
-43.811488088675176*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.72104081749894", ",", "0``57.522878745280345"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.887221955939928966560590155849714544348308363744058289341178206`43.\
-811488088675176*^-14, 0``58.69897000433602, 0``57.72104081749894,
- 0``57.522878745280345}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731927030562*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6b0266a7-d440-4df9-98c5-9033b4d6a63f"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731927039486*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b3e8f517-0b19-4998-995e-9ec0b1674d77"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "95.0449807011901270926`10."}], ",",
- RowBox[{"S", "\[Rule]", "90000.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "22351.9667035164881926659`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "22351.9667035164881926659`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "28513.4942103570381277677`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "28513.4942103570381277677`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "42980.9218277470587333204`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "300.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "207.3184068715246970733`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.12865960568407904294629727505559632487`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "78.3651302870882067263`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "181.5847228686540904465`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731927048592*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"eed80122-c0ae-400f-8b77-06a166122918"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "125.13079470198676`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 125.13079470198676`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731936846716*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e3d0318f-1780-49c8-8d68-8edc0751ee64"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"151.`", ",", "0.`", ",", "0.`", ",", "151.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"151.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "151.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"96.04903319831699`", ",", "0.`", ",",
- RowBox[{"-", "96.04903319831699`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"79.36107778996139`", ",",
- RowBox[{"-", "10.`"}], ",", "78.72852512262821`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {151., 0., 0., 151.}, $CellContext`p2 -> {
- 151., 0., 0., -151.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {96.04903319831699,
- 0., -96.04903319831699, 0.}, $CellContext`p5 -> {
- 79.36107778996139, -10., 78.72852512262821, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731936856183*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9aa6896b-a18a-4723-9fac-4643e317be6e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "4.75290518014014908204859201701295911031071816931252205202060774`42.\
-89592221163982*^-15", ",", "0``58.69897000433602", ",",
- "0``57.716477006598474", ",", "0``57.51999305704285"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 4.75290518014014908204859201701295911031071816931252205202060774`42.\
-89592221163982*^-15, 0``58.69897000433602, 0``57.716477006598474,
- 0``57.51999305704285}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797319368651648`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0bbf94e2-166a-4536-a0e1-27054e430195"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731936874013*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"39684e04-c54e-4fc7-a827-6ed4e78c733d"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "96.0490331983169909336`10."}], ",",
- RowBox[{"S", "\[Rule]", "91204.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "22605.1464815399314472837`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "22605.1464815399314472837`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "29006.808025891731261936`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "29006.808025891731261936`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "43269.909014863324664048`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "302.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "208.0142038776759221911`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.12701876460182526275621303226051119992`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "79.3610777899613865105`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "182.1822822016908960257`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973193688309*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2e1efed3-be0e-421a-ae4a-bed8bc11562a"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "126.30098684210526`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 126.30098684210526`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731946670775*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7a643a1e-b729-4f94-989a-32f46a3cd491"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"152.`", ",", "0.`", ",", "0.`", ",", "152.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"152.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "152.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"97.0529844397207`", ",", "0.`", ",",
- RowBox[{"-", "97.0529844397207`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"80.35712654855766`", ",",
- RowBox[{"-", "10.`"}], ",", "79.73247636403192`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {152., 0., 0., 152.}, $CellContext`p2 -> {
- 152., 0., 0., -152.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {97.0529844397207,
- 0., -97.0529844397207, 0.}, $CellContext`p5 -> {80.35712654855766, -10.,
- 79.73247636403192, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731946680099*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"55d2fb5f-6bc7-4fbd-9a5d-2e36d59e1d38"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "9.43085839169407722242913095067797848531275249362667191702553977`\
-43.19064764451546*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.71196110958047", ",", "0``57.51712641639125"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-9.43085839169407722242913095067797848531275249362667191702553977`43.\
-19064764451546*^-15, 0``58.69897000433602, 0``57.71196110958047,
- 0``57.51712641639125}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731946689042*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"bb6c09e0-cde9-4e44-958f-4d57beda4cf1"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731946698007*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9f446963-39c4-4df6-9192-b3d38014a23a"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "97.0529844397207028805`10."}], ",",
- RowBox[{"S", "\[Rule]", "92416.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "22858.3262595633747019015`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "22858.3262595633747019015`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "29504.1072696750936756871`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "29504.1072696750936756871`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "43558.8670584769382708505`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "304.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "208.7076114052310701469`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.1254194082012871490393847057759588745`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "80.3571265485576603797`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "182.7779676565253002136`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731946706975*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d5ec2336-d2b1-49ed-8cf9-e46f58d05d57"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "127.46895424836602`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 127.46895424836602`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731956592394*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"aa6379c3-03c5-443c-bef3-256b10fd03a7"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"153.`", ",", "0.`", ",", "0.`", ",", "153.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"153.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "153.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"98.05683817354016`", ",", "0.`", ",",
- RowBox[{"-", "98.05683817354016`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"81.3532728147382`", ",",
- RowBox[{"-", "10.`"}], ",", "80.73633009785138`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {153., 0., 0., 153.}, $CellContext`p2 -> {
- 153., 0., 0., -153.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {98.05683817354016,
- 0., -98.05683817354016, 0.}, $CellContext`p5 -> {81.3532728147382, -10.,
- 80.73633009785138, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731956603435*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"3160caf0-e168-4328-94ed-cc3b35d869ba"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.85546965254823324433507921883280955963850424570165572882758987`\
-42.79932586687863*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.70749211895352", ",", "0``57.51427857351842"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.85546965254823324433507921883280955963850424570165572882758987`42.\
-79932586687863*^-15, 0``58.69897000433602, 0``57.70749211895352,
- 0``57.51427857351842}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797319566143312`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f4d41b27-e4b1-4000-be91-993bb9198e80"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731956632712*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6aa7c578-027d-470a-a7e9-daa9adcf252c"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "98.0568381735401572996`10."}], ",",
- RowBox[{"S", "\[Rule]", "93636.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "23111.5060375868179565193`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "23111.5060375868179565193`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "30005.3924811032881336814`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "30005.3924811032881336814`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "43847.7970373802128077115`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "306.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "209.3986557678444429792`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.12385997713644068004904390554080359092`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "81.353272814738211536`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "183.3717945535611049941`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731956646223*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5b77c32a-d165-4829-891a-a4117d1021f0"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "128.63474025974025`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 128.63474025974025`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731967562984*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"bb1df350-7707-438f-8ac3-7bed75fb8beb"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"154.`", ",", "0.`", ",", "0.`", ",", "154.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"154.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "154.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"99.06059796517799`", ",", "0.`", ",",
- RowBox[{"-", "99.06059796517799`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"82.34951302310037`", ",",
- RowBox[{"-", "10.`"}], ",", "81.74008988948921`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {154., 0., 0., 154.}, $CellContext`p2 -> {
- 154., 0., 0., -154.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {99.06059796517799,
- 0., -99.06059796517799, 0.}, $CellContext`p5 -> {
- 82.34951302310037, -10., 81.74008988948921, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731967576599*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"27c9c023-1fd2-413b-8157-ff422e522c6e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.252185428855971904048034220766753357265672720431287962632755831`\
-43.30808793361572*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.703069059124935", ",", "0``57.51144928349955"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.252185428855971904048034220766753357265672720431287962632755831`43.\
-30808793361572*^-14, 0``58.69897000433602, 0``57.703069059124935,
- 0``57.51144928349955}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797319675894823`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2f8504ad-d81d-4adf-82eb-d72f4a2a0ab6"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731967606935*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"38390dc4-805c-4e8d-a8bf-fc5b934582d4"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "99.0605979651779904316`10."}], ",",
- RowBox[{"S", "\[Rule]", "94864.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "23364.685815610261211137`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "23364.685815610261211137`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "30510.664173274821052928`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "30510.664173274821052928`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "44136.6999777701665904673`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "308.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "210.0873627274381456161`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.12233898951566822916499384015500150585`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "82.3495130231003697377`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "183.9637781016968368936`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731967622415*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"3dea0df2-c53d-4c8f-907a-5b37cad3453e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "129.7983870967742`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 129.7983870967742}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797319784803057`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1a09ed1b-8a32-4b4a-b02a-1c0bb2d7c491"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"155.`", ",", "0.`", ",", "0.`", ",", "155.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"155.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "155.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"100.06426720830291`", ",", "0.`", ",",
- RowBox[{"-", "100.06426720830291`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"83.34584377997541`", ",",
- RowBox[{"-", "10.`"}], ",", "82.74375913261413`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {155., 0., 0., 155.}, $CellContext`p2 -> {
- 155., 0., 0., -155.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {100.06426720830291`,
- 0., -100.06426720830291`, 0.}, $CellContext`p5 -> {
- 83.34584377997541, -10., 82.74375913261413, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731978495178*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f1b8bd2b-0a8e-4ea9-addf-f1615b353eff"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "5.798544610675157123465611696424417056534299503158204543759852266`\
-43.97092731322533*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.698690985046035", ",", "0``57.50863830616573"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.798544610675157123465611696424417056534299503158204543759852266`43.\
-97092731322533*^-14, 0``58.69897000433602, 0``57.698690985046035,
- 0``57.50863830616573}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797319785096893`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"324f09ba-4b13-4220-a97f-e970644f7a73"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797319785269117`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0bd124e8-29fd-4fd7-b163-fa7f346cee77"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "100.0642672083029083296`10."}], ",",
- RowBox[{"S", "\[Rule]", "96100.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "23617.8655936337044657548`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "23617.8655936337044657548`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "31019.9228345739015821891`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "31019.9228345739015821891`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "44425.5768564152217615797`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "310.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "210.7737575136317148291`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.12085503613599321581184351047099920758`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "83.345843779975406376`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "184.553933393065812731`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973197854314*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"3a9960cf-27d8-4cb7-b151-20c0b1270bec"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "130.95993589743588`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 130.95993589743588`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731989123253*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"80923af9-45dc-425e-a85c-5c566e7b6a6b"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"156.`", ",", "0.`", ",", "0.`", ",", "156.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"156.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "156.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"101.06784913506657`", ",", "0.`", ",",
- RowBox[{"-", "101.06784913506657`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"84.3422618532118`", ",",
- RowBox[{"-", "10.`"}], ",", "83.74734105937779`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {156., 0., 0., 156.}, $CellContext`p2 -> {
- 156., 0., 0., -156.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {101.06784913506657`,
- 0., -101.06784913506657`, 0.}, $CellContext`p5 -> {
- 84.3422618532118, -10., 83.74734105937779, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731989134225*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2e94ba09-a09c-45fb-96ec-e01a43510d98"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.017579917639271191489432343876321049373115201585759847913536962`\
-43.212383937725185*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.694356980929804", ",", "0``57.50584540598155"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.017579917639271191489432343876321049373115201585759847913536962`43.\
-212383937725185*^-14, 0``58.69897000433602, 0``57.694356980929804,
- 0``57.50584540598155}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731989143908*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f6bd7cac-ff51-49c3-b47c-6380ead2adcd"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731989153441*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b8258aa8-8cad-4a45-bd95-b9fd0a8bf90d"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "101.0678491350665666459`10."}], ",",
- RowBox[{"S", "\[Rule]", "97344.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "23871.0453716571477203726`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "23871.0453716571477203726`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "31533.1689301407687935352`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "31533.1689301407687935352`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "44714.4286035958347443155`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "312.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "211.4578648421378408398`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.1194067760659993859756896856612486895`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "84.3422618532117958694`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "185.142275398457977686`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779731989163126*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cd048507-b6cd-4130-bf7e-377c0b368b30"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "132.11942675159236`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 132.11942675159236`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732000121853*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6388fd3f-29bf-4c9d-8367-847073eec5e9"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"157.`", ",", "0.`", ",", "0.`", ",", "157.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"157.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "157.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"102.07134682559936`", ",", "0.`", ",",
- RowBox[{"-", "102.07134682559936`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"85.338764162679`", ",",
- RowBox[{"-", "10.`"}], ",", "84.75083874991059`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {157., 0., 0., 157.}, $CellContext`p2 -> {
- 157., 0., 0., -157.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {102.07134682559936`,
- 0., -102.07134682559936`, 0.}, $CellContext`p5 -> {
- 85.338764162679, -10., 84.75083874991059, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732000131987*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"447e7bf9-37c6-4da3-96b4-61923a30c314"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.40524298746586691234288109154313174681373025961576029673934461`\
-42.84601022478956*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.69006615903635", ",", "0``57.50307035192678"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.40524298746586691234288109154313174681373025961576029673934461`42.\
-84601022478956*^-15, 0``58.69897000433602, 0``57.69006615903635,
- 0``57.50307035192678}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732000144014*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"3bd2ef56-19e4-4676-99f0-0b6ca52e839c"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732000152763*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"75397881-2392-4bbf-84fa-a23ca93b016d"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "102.0713468255993632283`10."}], ",",
- RowBox[{"S", "\[Rule]", "98596.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "24124.2251496805909749903`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "24124.2251496805909749903`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "32050.4029032382000536927`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "32050.4029032382000536927`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "45003.2561058375828092421`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "314.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "212.139708932197752295`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.1179929325479454291951974797816580628`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "85.3387641626790050576`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "185.7288189633574287253`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797320001614313`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"749e0106-0166-4247-a983-9ee3b5fea6f3"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "133.27689873417722`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 133.27689873417722`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973201088694*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f6db08a0-7085-46be-b657-e9782dbaa95f"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"158.`", ",", "0.`", ",", "0.`", ",", "158.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"158.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "158.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"103.07476321684447`", ",", "0.`", ",",
- RowBox[{"-", "103.07476321684447`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"86.33534777143386`", ",",
- RowBox[{"-", "10.`"}], ",", "85.7542551411557`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {158., 0., 0., 158.}, $CellContext`p2 -> {
- 158., 0., 0., -158.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {103.07476321684447`,
- 0., -103.07476321684447`, 0.}, $CellContext`p5 -> {
- 86.33534777143386, -10., 85.7542551411557, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797320108965282`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a3608b85-157c-437b-ad15-d40af3c1defb"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.240959830126906186757673438828795038280800040353837803478619235`\
-43.82674708061052*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.685817658521955", ",", "0``57.500312917381606"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.240959830126906186757673438828795038280800040353837803478619235`43.\
-82674708061052*^-14, 0``58.69897000433602, 0``57.685817658521955,
- 0``57.500312917381606}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732010905717*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ca095d97-aeb7-4d6d-a3fd-d49196ce435e"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732010914522*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8afff9ba-54f8-444e-88b2-4dba76490823"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "103.0747632168444738454`10."}], ",",
- RowBox[{"S", "\[Rule]", "99856.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "24377.4049277040342296081`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "24377.4049277040342296081`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "32571.6251765228537351504`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "32571.6251765228537351504`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "45292.0602084537832524119`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "316.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "212.8193135231240784495`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.11661228919240812697060793488578076758`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "86.3353477714338564361`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "186.3135788045366125229`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732010923353*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"388d7836-fe39-4903-8f35-708519cf714f"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "134.43238993710693`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 134.43238993710693`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973202140203*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f1a772c4-7017-4676-ba4d-c37ab34db620"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"159.`", ",", "0.`", ",", "0.`", ",", "159.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"159.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "159.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"104.07810111078277`", ",", "0.`", ",",
- RowBox[{"-", "104.07810111078277`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"87.33200987749561`", ",",
- RowBox[{"-", "10.`"}], ",", "86.75759303509399`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {159., 0., 0., 159.}, $CellContext`p2 -> {
- 159., 0., 0., -159.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {104.07810111078277`,
- 0., -104.07810111078277`, 0.}, $CellContext`p5 -> {
- 87.33200987749561, -10., 86.75759303509399, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797320214116373`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5c94f1a6-e1cc-4fbb-add6-e35857ebe546"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "1.34982384906502841718028716092735908644313404561425420184909417`42.\
-32681998146103*^-15", ",", "0``58.69897000433602", ",",
- "0``57.681610644347366", ",", "0``57.49757288001557"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.34982384906502841718028716092735908644313404561425420184909417`42.\
-32681998146103*^-15, 0``58.69897000433602, 0``57.681610644347366,
- 0``57.49757288001557}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797320214203*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"13943621-44c9-454d-8791-c3ad2a4c86bb"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732021428811*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"30b531e2-e09b-4fa9-9c24-02a1c4717a50"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "104.0781011107827680462`10."}], ",",
- RowBox[{"S", "\[Rule]", "101124.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "24630.5847057274774842259`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "24630.5847057274774842259`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "33096.8361532289202386892`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "33096.8361532289202386892`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "45580.8417179127952100644`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "318.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "213.4967018900123318953`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.11526368644131167575801964329982782721`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "87.3320098774956059947`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "186.8965695071532341585`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973202143764*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"aaa18800-d888-41f1-b3e8-1f815a0a5da4"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "135.5859375`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 135.5859375}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732032541*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"74b04c5e-320c-44d9-8c7e-3649f2ead2aa"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"160.`", ",", "0.`", ",", "0.`", ",", "160.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"160.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "160.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"105.08136318209702`", ",", "0.`", ",",
- RowBox[{"-", "105.08136318209702`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"88.32874780618133`", ",",
- RowBox[{"-", "10.`"}], ",", "87.76085510640824`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {160., 0., 0., 160.}, $CellContext`p2 -> {
- 160., 0., 0., -160.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {105.08136318209702`,
- 0., -105.08136318209702`, 0.}, $CellContext`p5 -> {
- 88.32874780618133, -10., 87.76085510640824, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797320325623693`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8c70d692-d013-4fe5-9e29-63a889d77812"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "2.315647236212468485324966756393451641943982677217856680465741455`\
-43.55849242604768*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.67744430624194", ",", "0``57.494850021680094"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.315647236212468485324966756393451641943982677217856680465741455`43.\
-55849242604768*^-14, 0``58.69897000433602, 0``57.67744430624194,
- 0``57.494850021680094}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732032579035*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"897a2bc3-08c9-40ae-a8d2-7cba69f4ca08"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797320325962753`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e734434c-59ef-4984-a876-0ed238039ea4"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "105.0813631820970215358`10."}], ",",
- RowBox[{"S", "\[Rule]", "102400.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "24883.7644837509207388437`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "24883.7644837509207388437`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "33626.0362182710468914593`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "33626.0362182710468914593`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "45869.6014040439393513703`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "320.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "214.1718968586773743041`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.11394601827745643271241178234875140925`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "88.3287478061813279988`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "187.4778055223014825429`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732032615674*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"55d612ef-9d43-4d3a-8d64-a90410685b34"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "136.73757763975155`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 136.73757763975155`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732043725327*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c9424817-7f05-4e2d-b9aa-9c09972b5e9c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"161.`", ",", "0.`", ",", "0.`", ",", "161.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"161.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "161.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"106.08455198532013`", ",", "0.`", ",",
- RowBox[{"-", "106.08455198532013`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"89.32555900295819`", ",",
- RowBox[{"-", "10.`"}], ",", "88.76404390963135`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {161., 0., 0., 161.}, $CellContext`p2 -> {
- 161., 0., 0., -161.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {106.08455198532013`,
- 0., -106.08455198532013`, 0.}, $CellContext`p5 -> {
- 89.32555900295819, -10., 88.76404390963135, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732043735991*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ad3dab4c-d792-4908-864c-d54b450452b8"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "5.536256662938171148660148826591031798192890993799241544596192038`\
-43.9343303486109*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.67331785772015", ",", "0``57.492144128304176"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.536256662938171148660148826591031798192890993799241544596192038`43.\
-9343303486109*^-14, 0``58.69897000433602, 0``57.67331785772015,
- 0``57.492144128304176}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732043745224*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"496cdfee-a075-4f4c-b2af-6091777f9c9e"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732043754035*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"45195f2b-1687-4cbf-a94f-1d6d9657dcb0"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "106.0845519853201324167`10."}], ",",
- RowBox[{"S", "\[Rule]", "103684.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "25136.9442617743639934614`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "25136.9442617743639934614`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "34159.2257392730826381921`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "34159.2257392730826381921`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "46158.3400020949031538916`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "322.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "214.844920819866959111`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.11265822916068099615285225308525588311`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "89.3255590029581849118`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "188.057301164974211209`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732043763029*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"10ce226c-70a3-44e4-92e1-7a8fea40fa1e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "137.88734567901233`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 137.88734567901233`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797320540080557`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"4aa34a7f-6b5f-4243-9416-daf7f6d943a4"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"162.`", ",", "0.`", ",", "0.`", ",", "162.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"162.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "162.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"107.08766996150669`", ",", "0.`", ",",
- RowBox[{"-", "107.08766996150669`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"90.32244102677164`", ",",
- RowBox[{"-", "10.`"}], ",", "89.76716188581791`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {162., 0., 0., 162.}, $CellContext`p2 -> {
- 162., 0., 0., -162.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {107.08766996150669`,
- 0., -107.08766996150669`, 0.}, $CellContext`p5 -> {
- 90.32244102677164, -10., 89.76716188581791, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973205401755*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6d45ab4a-3017-4b42-9f6b-237be7280cbd"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.933764143613869401713577913133380219450489822584644689943636533`\
-43.783233311533344*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.669230535146994", ",", "0``57.48945498979339"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.933764143613869401713577913133380219450489822584644689943636533`43.\
-783233311533344*^-14, 0``58.69897000433602, 0``57.669230535146994,
- 0``57.48945498979339}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797320540267677`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7b3d6b90-201f-4fd5-b453-0658d0775acf"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732054035655*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f9b2ef8c-c3f8-494e-a5b4-799560928c66"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "107.087669961506691152`10."}], ",",
- RowBox[{"S", "\[Rule]", "104976.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "25390.1240397978072480792`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "25390.1240397978072480792`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "34696.4050675281679332329`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "34696.4050675281679332329`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "46447.0582146519574687678`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "324.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "215.5157957427992271216`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.11139931117260680758645595021587329451`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "90.3224410267716422015`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "188.6350706123960584128`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732054044661*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a700d899-bc6e-4514-831c-0330affd0c4b"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "139.03527607361963`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 139.03527607361963`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732063866879*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"499fd5f4-ffee-46be-b4f4-ce04d49c3588"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"163.`", ",", "0.`", ",", "0.`", ",", "163.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"163.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "163.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"108.09071944446494`", ",", "0.`", ",",
- RowBox[{"-", "108.09071944446494`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"91.31939154381342`", ",",
- RowBox[{"-", "10.`"}], ",", "90.77021136877616`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {163., 0., 0., 163.}, $CellContext`p2 -> {
- 163., 0., 0., -163.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {108.09071944446494`,
- 0., -108.09071944446494`, 0.}, $CellContext`p5 -> {
- 91.31939154381342, -10., 90.77021136877616, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797320638792553`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"13e9a373-340c-4407-8ff6-b4d5daa65075"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.627914165692559747835279139821195375961973831149872631177224826`\
-43.3973839065726*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.665181596849685", ",", "0``57.48678239993206"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.627914165692559747835279139821195375961973831149872631177224826`43.\
-3973839065726*^-14, 0``58.69897000433602, 0``57.665181596849685,
- 0``57.48678239993206}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732063888051*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"46f9b31b-c2aa-468b-82e4-b35541fca63e"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732063897172*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b56f9810-1b3e-4841-9708-ddaf957aaef4"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "108.0907194444649377374`10."}], ",",
- RowBox[{"S", "\[Rule]", "106276.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "25643.303817821250502697`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "25643.303817821250502697`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "35237.5745388955697023903`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "35237.5745388955697023903`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "46735.7567134336433833771`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "326.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "216.1845431880680117542`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.1101683013535415968579915729918790254`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "91.3193915438134186746`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "189.2111279026919534326`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732063906678*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9b51c6d2-c3fc-4b28-a68e-3fdf900e54b2"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "140.1814024390244`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 140.1814024390244}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732073638773*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"988be67c-29e6-413b-a8a6-b5ab71f701a1"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"164.`", ",", "0.`", ",", "0.`", ",", "164.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"164.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "164.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"109.09370266658259`", ",", "0.`", ",",
- RowBox[{"-", "109.09370266658259`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"92.31640832169577`", ",",
- RowBox[{"-", "10.`"}], ",", "91.77319459089381`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {164., 0., 0., 164.}, $CellContext`p2 -> {
- 164., 0., 0., -164.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {109.09370266658259`,
- 0., -109.09370266658259`, 0.}, $CellContext`p5 -> {
- 92.31640832169577, -10., 91.77319459089381, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732073648199*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"094d6588-73b8-4a27-af3b-900e4c4ce922"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "7.3177621074302744915935058135276469281331342488425370256492663`43.\
-04747444755825*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.66117032227277", ",", "0``57.484126156288326"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-7.3177621074302744915935058135276469281331342488425370256492663`43.\
-04747444755825*^-15, 0``58.69897000433602, 0``57.66117032227277,
- 0``57.484126156288326}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732073657053*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"559c97f8-2e9b-45f1-9962-fc8fbbac327d"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732073666038*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"718bad13-8339-4b12-97e7-44e498be0e31"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "109.0937026665825868577`10."}], ",",
- RowBox[{"S", "\[Rule]", "107584.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "25896.4835958446937573147`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "25896.4835958446937573147`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "35782.7344746390884893117`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "35782.7344746390884893117`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "47024.4361409675658443519`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "328.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "216.8511843199560804381`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.10896427921658345543045539851017563192`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "92.3164083216957785157`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "189.7854869338586169479`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732073675097*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"71a03849-9cc8-4b0d-ba91-9206f915ea9f"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "141.32575757575756`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 141.32575757575756`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732083411359*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"186fc374-2771-4696-bdf4-e55399999a41"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"165.`", ",", "0.`", ",", "0.`", ",", "165.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"165.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "165.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"110.09662176427692`", ",", "0.`", ",",
- RowBox[{"-", "110.09662176427692`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"93.31348922400144`", ",",
- RowBox[{"-", "10.`"}], ",", "92.77611368858814`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {165., 0., 0., 165.}, $CellContext`p2 -> {
- 165., 0., 0., -165.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {110.09662176427692`,
- 0., -110.09662176427692`, 0.}, $CellContext`p5 -> {
- 93.31348922400144, -10., 92.77611368858814, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732083420862*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6fc98708-6e68-4b7a-83bf-801fdc4071fa"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.608922410266737868290049163607647665020758462409887673440837738`\
-43.3869911653592*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.657196011173916", ",", "0``57.48148606012211"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.608922410266737868290049163607647665020758462409887673440837738`43.\
-3869911653592*^-14, 0``58.69897000433602, 0``57.657196011173916,
- 0``57.48148606012211}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732083429935*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"275b227f-470e-4ba4-9e9d-195736dc3fac"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797320834388323`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"07c10ec0-1a5b-46c9-8292-c5c653fdc998"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "110.0966217642769180429`10."}], ",",
- RowBox[{"S", "\[Rule]", "108900.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "26149.6633738681370119325`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "26149.6633738681370119325`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "36331.8851822113829541649`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "36331.8851822113829541649`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "47313.0971121590429348782`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "330.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "217.5157399181931453057`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.10778636442528678963403670052967910275`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "93.313489224001438559`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "190.3581614630095838159`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797320834478073`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f814e990-660b-4426-b181-548ce484cddb"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "142.46837349397592`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 142.46837349397592`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973209362887*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e17260ae-b43b-40e0-a6c7-7ccdde3f00cd"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"166.`", ",", "0.`", ",", "0.`", ",", "166.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"166.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "166.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"111.09947878309717`", ",", "0.`", ",",
- RowBox[{"-", "111.09947878309717`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"94.31063220518121`", ",",
- RowBox[{"-", "10.`"}], ",", "93.77897070740839`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {166., 0., 0., 166.}, $CellContext`p2 -> {
- 166., 0., 0., -166.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {111.09947878309717`,
- 0., -111.09947878309717`, 0.}, $CellContext`p5 -> {
- 94.31063220518121, -10., 93.77897070740839, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732093638439*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"3d834568-bc00-4f23-ae00-0990b7402e5e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.515062329771573199693652807292743641792630679760056848584234`41.\
-83249567069435*^-16"}], ",", "0``58.69897000433602", ",",
- "0``57.65325798285829", ",", "0``57.47886191629596"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.515062329771573199693652807292743641792630679760056848584234`41.\
-83249567069435*^-16, 0``58.69897000433602, 0``57.65325798285829,
- 0``57.47886191629596}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732093647418*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"098e7401-3ac7-4672-9129-4ab21e753254"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732093656208*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"407689a4-c6f1-4862-a08d-e223848aa11c"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "111.0994787830971688436`10."}], ",",
- RowBox[{"S", "\[Rule]", "110224.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "26402.8431518915802665503`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "26402.8431518915802665503`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "36885.0269559882600560741`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "36885.0269559882600560741`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "47601.7402157596807304124`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "332.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "218.1782303891927727595`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.10663371462244056411787767503571291882`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "94.310632205181203396`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "190.929165105867154128`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732093665285*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9952fcbc-82ec-43b0-8023-110117d755a4"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "143.60928143712576`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 143.60928143712576`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732103472805*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9fd101ee-90ac-4285-9110-68f5b60c68b5"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"167.`", ",", "0.`", ",", "0.`", ",", "167.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"167.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "167.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"112.10227568250474`", ",", "0.`", ",",
- RowBox[{"-", "112.10227568250474`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"95.30783530577362`", ",",
- RowBox[{"-", "10.`"}], ",", "94.78176760681596`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {167., 0., 0., 167.}, $CellContext`p2 -> {
- 167., 0., 0., -167.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {112.10227568250474`,
- 0., -112.10227568250474`, 0.}, $CellContext`p5 -> {
- 95.30783530577362, -10., 94.78176760681596, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732103484138*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e1ea6ea2-8fa5-4b10-a431-ceda86293d51"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.349361664056711205363163153662514190559378520653897000595066735`\
-43.305351905026605*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.64935557544915", ",", "0``57.476253533188434"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.349361664056711205363163153662514190559378520653897000595066735`43.\
-305351905026605*^-14, 0``58.69897000433602, 0``57.64935557544915,
- 0``57.476253533188434}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732103494094*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"fd7762cd-c770-4bd2-8b0c-d772dde2437e"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732103507255*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cb2177ec-e1f7-47d0-937f-e8a5df23ee21"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "112.1022756825047395068`10."}], ",",
- RowBox[{"S", "\[Rule]", "111556.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "26656.0229299150235211681`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "26656.0229299150235211681`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "37442.1600779565829952844`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "37442.1600779565829952844`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "47890.3660157432156049997`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "334.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "218.838675776799599069`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.10550552339858323004518201782406361373`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "95.3078353057736196907`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "191.4985113364770468315`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732103516424*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"56a36336-fde3-4608-94a7-c63326662a5e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "144.7485119047619`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 144.7485119047619}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797321136670732`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"30739532-f1f6-4431-81f3-c27a1023a90c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"168.`", ",", "0.`", ",", "0.`", ",", "168.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"168.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "168.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"113.10501434035493`", ",", "0.`", ",",
- RowBox[{"-", "113.10501434035493`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"96.30509664792342`", ",",
- RowBox[{"-", "10.`"}], ",", "95.78450626466615`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {168., 0., 0., 168.}, $CellContext`p2 -> {
- 168., 0., 0., -168.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {113.10501434035493`,
- 0., -113.10501434035493`, 0.}, $CellContext`p5 -> {
- 96.30509664792342, -10., 95.78450626466615, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732113677846*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8fd64e7f-bb45-47c7-ad81-202a48799407"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.091281817592265160689751664291593267629255745387148449562594502`\
-43.66276932639514*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.64548814519241", ",", "0``57.473660722610155"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.091281817592265160689751664291593267629255745387148449562594502`43.\
-66276932639514*^-14, 0``58.69897000433602, 0``57.64548814519241,
- 0``57.473660722610155}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732113687446*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"20cdab9f-96da-4744-bb93-8b70038ef358"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732113696424*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5f112382-df5c-4479-bb50-666fac722960"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "113.1050143403549270715`10."}], ",",
- RowBox[{"S", "\[Rule]", "112896.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "26909.2027079384667757858`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "26909.2027079384667757858`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "38003.2848183592554960342`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "38003.2848183592554960342`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "48178.9750525954504977639`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "336.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "219.4970957725761129114`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.10440101838984881307265079540689255004`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "96.3050966479234147068`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "192.0662134871239534202`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732113705703*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8c4463c7-a7fc-4789-b9e1-a22e3cf9ca72"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "145.8860946745562`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 145.8860946745562}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973212347162*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5ad011e3-1ef3-419d-83c5-cb160d51ec4c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"169.`", ",", "0.`", ",", "0.`", ",", "169.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"169.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "169.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"114.10769655710146`", ",", "0.`", ",",
- RowBox[{"-", "114.10769655710146`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"97.30241443117691`", ",",
- RowBox[{"-", "10.`"}], ",", "96.78718848141268`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {169., 0., 0., 169.}, $CellContext`p2 -> {
- 169., 0., 0., -169.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {114.10769655710146`,
- 0., -114.10769655710146`, 0.}, $CellContext`p5 -> {
- 97.30241443117691, -10., 96.78718848141268, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732123481378*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f479392c-8251-498c-a917-01fddfccb79b"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "3.05024027470863849020310962104625764334925938852391737317416194`42.\
-654387355165824*^-15", ",", "0``58.69897000433602", ",",
- "0``57.641655065793806", ",", "0``57.471083299722345"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 3.05024027470863849020310962104625764334925938852391737317416194`42.\
-654387355165824*^-15, 0``58.69897000433602, 0``57.641655065793806,
- 0``57.471083299722345}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732123490546*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cf38b2d3-376c-45da-8ec7-c63daef932dc"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732123499464*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"84f6927b-e34e-4eaf-a0b8-46b7b15950e4"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "114.1076965571014625311`10."}], ",",
- RowBox[{"S", "\[Rule]", "114244.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "27162.3824859619100304036`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "27162.3824859619100304036`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "38568.4014363002943355241`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "38568.4014363002943355241`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "48467.5678445244081382639`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "338.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "220.1535097256557664309`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.10331945949561734469054047154436719059`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "97.3024144311769132102`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "192.6322847484279118412`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732123508883*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"fa7816a4-db3f-4119-bd9a-22d3dded1648"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "147.02205882352942`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 147.02205882352942`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732133358461*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ff2aec10-ea9c-405a-b2d0-ee83329963fa"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"170.`", ",", "0.`", ",", "0.`", ",", "170.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"170.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "170.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"115.11032405974366`", ",", "0.`", ",",
- RowBox[{"-", "115.11032405974366`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"98.29978692853467`", ",",
- RowBox[{"-", "10.`"}], ",", "97.78981598405488`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {170., 0., 0., 170.}, $CellContext`p2 -> {
- 170., 0., 0., -170.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {115.11032405974366`,
- 0., -115.11032405974366`, 0.}, $CellContext`p5 -> {
- 98.29978692853467, -10., 97.78981598405488, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797321333680696`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e2ebd718-177e-40ca-83ae-86a567381b75"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.506421982188818096642193333088953966131680307633327727362005252`\
-43.71235526759348*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.63785572778611", ",", "0``57.46852108295775"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.506421982188818096642193333088953966131680307633327727362005252`43.\
-71235526759348*^-14, 0``58.69897000433602, 0``57.63785572778611,
- 0``57.46852108295775}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732133377264*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"13c4940f-7f89-4ae2-8809-9b952305f91a"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797321333865356`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"dc818708-6094-433a-9837-93f6daf26e29"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "115.110324059743660996`10."}], ",",
- RowBox[{"S", "\[Rule]", "115600.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "27415.5622639853532850214`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "27415.5622639853532850214`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "39137.5101803128447386371`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "39137.5101803128447386371`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "48756.1448885964029409276`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "340.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "220.8079366521873980915`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.10226013720723791253166746773743084087`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "98.2997869285346766309`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "193.1967381696034089427`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732133395707*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"31cacc7c-cc4d-428f-9954-d577f196a0ce"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "148.156432748538`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 148.156432748538}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732143187169*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"18c449ce-5c0e-4d07-ad6f-482088da349c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"171.`", ",", "0.`", ",", "0.`", ",", "171.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"171.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "171.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"116.11289850553476`", ",", "0.`", ",",
- RowBox[{"-", "116.11289850553476`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"99.29721248274356`", ",",
- RowBox[{"-", "10.`"}], ",", "98.79239042984598`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {171., 0., 0., 171.}, $CellContext`p2 -> {
- 171., 0., 0., -171.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {116.11289850553476`,
- 0., -116.11289850553476`, 0.}, $CellContext`p5 -> {
- 99.29721248274356, -10., 98.79239042984598, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797321431979427`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6151ee65-fa62-42a4-84c3-9b7d4be5b460"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.823646425656561924475283095979448241548253059448456221727353062`\
-43.84831936469763*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.63408953792536", ",", "0``57.46597389394386"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.823646425656561924475283095979448241548253059448456221727353062`43.\
-84831936469763*^-14, 0``58.69897000433602, 0``57.63408953792536,
- 0``57.46597389394386}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732143208303*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"31ade8bf-693d-4512-ad3f-61c0a0102ab6"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732143217149*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cf3a2cd5-253f-44b1-bc29-9f15a3e5cbce"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "116.1128985055347584421`10."}], ",",
- RowBox[{"S", "\[Rule]", "116964.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "27668.7420420087965396392`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "27668.7420420087965396392`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "39710.6112888928873871919`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "39710.6112888928873871919`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "49044.706661803377433155`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "342.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "221.4603952443943811566`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.10122237103981359460030919582280302647`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "99.2972124827435660126`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "193.7595866588649683622`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973214322591*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"05a5e07e-fdbb-4365-99ec-7d94cbf235b1"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "149.28924418604652`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 149.28924418604652`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732153024415*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2819ff6c-e37d-42da-9e45-978082a40ab1"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"172.`", ",", "0.`", ",", "0.`", ",", "172.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"172.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "172.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"117.11542148546751`", ",", "0.`", ",",
- RowBox[{"-", "117.11542148546751`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"100.29468950281084`", ",",
- RowBox[{"-", "10.`"}], ",", "99.79491340977873`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {172., 0., 0., 172.}, $CellContext`p2 -> {
- 172., 0., 0., -172.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {117.11542148546751`,
- 0., -117.11542148546751`, 0.}, $CellContext`p5 -> {
- 100.29468950281084`, -10., 99.79491340977873, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732153034268*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"217c2a3e-1fe1-4415-ad4a-f29da73b21a9"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "2.216338252893632696721797620491766846442368654411651076665769198`\
-43.50804760399178*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.63035591861405", ",", "0``57.463441557428474"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.216338252893632696721797620491766846442368654411651076665769198`43.\
-50804760399178*^-14, 0``58.69897000433602, 0``57.63035591861405,
- 0``57.463441557428474}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732153043507*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"58856342-5200-41ff-bf1c-93448951c1b1"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732153052393*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6d02ba6d-11bd-429d-a4fc-301e4dc44394"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "117.115421485467507523`10."}], ",",
- RowBox[{"S", "\[Rule]", "118336.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "27921.9218200322397942569`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "27921.9218200322397942569`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "40287.704991000822587921`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "40287.704991000822587921`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "49333.253622066129210095`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "344.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "222.1109038792695769576`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.10020550805969352073663350961930660787`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "100.2946895028108430047`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "194.3208429839638812364`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732153061488*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"924ba63a-a608-435d-b2fa-77d24536f759"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "150.42052023121386`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 150.42052023121386`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797321631639853`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9691bd2c-99be-401f-b719-f67d079e7647"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"173.`", ",", "0.`", ",", "0.`", ",", "173.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"173.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "173.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"118.11789452755293`", ",", "0.`", ",",
- RowBox[{"-", "118.11789452755293`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"101.2922164607254`", ",",
- RowBox[{"-", "10.`"}], ",", "100.79738645186416`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {173., 0., 0., 173.}, $CellContext`p2 -> {
- 173., 0., 0., -173.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {118.11789452755293`,
- 0., -118.11789452755293`, 0.}, $CellContext`p5 -> {
- 101.2922164607254, -10., 100.79738645186416`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797321631752777`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"097159ad-9934-4a51-8e10-353615a1db99"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.26002809618944131673606052586658151201734281244954788499221158`\
-43.78930636896047*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.62665430735024", ",", "0``57.460923901207224"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.26002809618944131673606052586658151201734281244954788499221158`43.\
-78930636896047*^-14, 0``58.69897000433602, 0``57.62665430735024,
- 0``57.460923901207224}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797321631866617`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"844cc629-f604-4de4-aa31-76e33ed31819"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732163197486*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c6b37652-42ef-4223-8897-170ee85fd51e"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "118.1178945275529343917`10."}], ",",
- RowBox[{"S", "\[Rule]", "119716.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "28175.1015980556830488747`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "28175.1015980556830488747`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "40868.7915065333152995208`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "40868.7915065333152995208`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "49621.7862091780053269448`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "346.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "222.759480626926416182`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.09920892150091118312330573333061730191`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "101.2922164607253956992`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "194.8805197728427395762`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732163207862*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2a8638ac-5352-4185-8c80-cde13cef1de5"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "151.55028735632183`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 151.55028735632183`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797321742376537`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b41fde67-91e1-4a51-9f35-c12282824f69"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"174.`", ",", "0.`", ",", "0.`", ",", "174.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"174.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "174.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"119.12031909990648`", ",", "0.`", ",",
- RowBox[{"-", "119.12031909990648`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"102.28979188837192`", ",",
- RowBox[{"-", "10.`"}], ",", "101.7998110242177`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {174., 0., 0., 174.}, $CellContext`p2 -> {
- 174., 0., 0., -174.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {119.12031909990648`,
- 0., -119.12031909990648`, 0.}, $CellContext`p5 -> {
- 102.28979188837192`, -10., 101.7998110242177, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732174264154*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5065eebd-a3b8-4847-a33b-d1479ed6a387"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "2.639558829638819367840881131490801279365675127913102762038366506`43.\
-578922106250104*^-14", ",", "0``58.69897000433602", ",",
- "0``57.622984156200836", ",", "0``57.458420756053414"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 2.639558829638819367840881131490801279365675127913102762038366506`43.\
-578922106250104*^-14, 0``58.69897000433602, 0``57.622984156200836,
- 0``57.458420756053414}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732174299732*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e2ab3da5-e115-4fb3-a08d-0469714d2045"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797321743170643`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0f3ce07d-d00b-406e-aab3-dc77fbae1fc0"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "119.1203190999064815969`10."}], ",",
- RowBox[{"S", "\[Rule]", "121104.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "28428.2813760791263034925`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "28428.2813760791263034925`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "41453.8710467674555957274`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "41453.8710467674555957274`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "49910.3048456931583984412`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "348.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "223.4061432586247356044`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.09823200946435004494796740521616076745`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "102.2897918883719174898`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "195.4386295143953901426`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732174334496*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"982f9488-3677-4eed-9c58-0a94e41ee11b"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "152.67857142857142`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 152.67857142857142`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797321885443773`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"591b2c9d-3301-4ab3-bdf2-dc8856237e92"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"175.`", ",", "0.`", ",", "0.`", ",", "175.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"175.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "175.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"120.12269661365401`", ",", "0.`", ",",
- RowBox[{"-", "120.12269661365401`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"103.28741437462433`", ",",
- RowBox[{"-", "10.`"}], ",", "102.80218853796524`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {175., 0., 0., 175.}, $CellContext`p2 -> {
- 175., 0., 0., -175.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {120.12269661365401`,
- 0., -120.12269661365401`, 0.}, $CellContext`p5 -> {
- 103.28741437462433`, -10., 102.80218853796524`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732188575173*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e3442c85-56ba-447f-b7d1-a83d4d94f1a9"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.16431009216937713133550040690197115995678615888482562993169278`\
-43.65518099635347*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.61934493129788", ",", "0``57.455931955649724"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.16431009216937713133550040690197115995678615888482562993169278`43.\
-65518099635347*^-14, 0``58.69897000433602, 0``57.61934493129788,
- 0``57.455931955649724}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732188584661*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1286031f-9388-4ac0-968d-00ada20f064f"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797321886012897`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"93fcf523-62b0-4cd3-9f27-80320c685c04"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "120.1226966136540141861`10."}], ",",
- RowBox[{"S", "\[Rule]", "122500.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "28681.4611541025695581102`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "28681.4611541025695581102`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "42042.9438147789049651237`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "42042.9438147789049651237`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "50198.8099377629555831361`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "350.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "224.0509092544883103294`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.09727419369391111521846896188281508563`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "103.2874143746243268619`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "195.9951845593206800654`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732188631613*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c79bee69-2eb7-475d-ba0d-77266e45b827"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "153.80539772727272`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 153.80539772727272`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732202992298*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"da75ae05-b0d3-4790-8eb3-ebacee6334fb"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"176.`", ",", "0.`", ",", "0.`", ",", "176.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"176.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "176.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"121.1250284256709`", ",", "0.`", ",",
- RowBox[{"-", "121.1250284256709`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"104.28508256260746`", ",",
- RowBox[{"-", "10.`"}], ",", "103.80452034998213`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {176., 0., 0., 176.}, $CellContext`p2 -> {
- 176., 0., 0., -176.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {121.1250284256709,
- 0., -121.1250284256709, 0.}, $CellContext`p5 -> {
- 104.28508256260746`, -10., 103.80452034998213`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797322030137873`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a8227982-4cdb-45c5-b15b-ed516a383eff"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "7.18228294062468747519235388419227600710247563982699084475690313`\
-43.00868985068882*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.61573611235677", ",", "0``57.45345733652187"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-7.18228294062468747519235388419227600710247563982699084475690313`43.\
-00868985068882*^-15, 0``58.69897000433602, 0``57.61573611235677,
- 0``57.45345733652187}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732203071496*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"3165ad9f-29b2-46aa-a7da-2647041397ff"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732203099284*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e1d18c84-5504-4a47-bc10-36bf409e6aec"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "121.1250284256709051078`10."}], ",",
- RowBox[{"S", "\[Rule]", "123904.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "28934.640932126012812728`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "28934.640932126012812728`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "42636.0100058361585979583`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "42636.0100058361585979583`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "50487.3018759243443193825`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "352.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "224.6937958109309797847`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.09633491842440483176606388622714468481`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "104.285082562607460401`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "196.5501971210603479401`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732203134061*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"fb10deb9-3d59-44dc-b23a-723278e8ce27"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "154.930790960452`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 154.930790960452}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732215281106*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2b7a4cdd-b63d-4981-a2df-5a6d5676a899"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"177.`", ",", "0.`", ",", "0.`", ",", "177.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"177.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "177.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"122.12731584116393`", ",", "0.`", ",",
- RowBox[{"-", "122.12731584116393`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"105.28279514711444`", ",",
- RowBox[{"-", "10.`"}], ",", "104.80680776547516`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {177., 0., 0., 177.}, $CellContext`p2 -> {
- 177., 0., 0., -177.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {122.12731584116393`,
- 0., -122.12731584116393`, 0.}, $CellContext`p5 -> {
- 105.28279514711444`, -10., 104.80680776547516`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732215313429*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"dc591a05-dca0-4678-8efa-d25efd590568"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "5.07865873784661405891565302658968622938173126263613055914781308`42.\
-85571577355792*^-15", ",", "0``58.69897000433602", ",", "0``57.6121571922151",
- ",", "0``57.450996737974215"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 5.07865873784661405891565302658968622938173126263613055914781308`42.\
-85571577355792*^-15, 0``58.69897000433602, 0``57.6121571922151,
- 0``57.450996737974215}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797322153313704`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c45992f3-06e0-4e9d-95b5-a63972c526d3"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732215348732*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"019a3736-adff-4758-91d1-c5634bb2f749"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "122.1273158411639343512`10."}], ",",
- RowBox[{"S", "\[Rule]", "125316.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "29187.8207101494560673458`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "29187.8207101494560673458`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "43233.0698077720327603402`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "43233.0698077720327603402`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "50775.7810358429765859811`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "354.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "225.3348198478055379165`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.09541364929630211331241578383950344757`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "105.2827951471144434185`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "197.1036792768109055892`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973221536567*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"dbf5bddf-03ef-4e82-a73b-76c9f675da7d"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "156.05477528089887`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 156.05477528089887`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732225324926*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"51df1b2d-806e-40a4-841c-53f982367141"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"178.`", ",", "0.`", ",", "0.`", ",", "178.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"178.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "178.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"123.12956011610763`", ",", "0.`", ",",
- RowBox[{"-", "123.12956011610763`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"106.2805508721707`", ",",
- RowBox[{"-", "10.`"}], ",", "105.80905204041885`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {178., 0., 0., 178.}, $CellContext`p2 -> {
- 178., 0., 0., -178.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {123.12956011610763`,
- 0., -123.12956011610763`, 0.}, $CellContext`p5 -> {
- 106.2805508721707, -10., 105.80905204041885`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973222533853*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0422f8fe-6fb7-4c7f-bd1d-05771036078f"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.179970180367513162503785542042990207403523471157475220085935307`\
-43.768693189920945*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.60860767639106", ",", "0``57.448550002027126"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.179970180367513162503785542042990207403523471157475220085935307`43.\
-768693189920945*^-14, 0``58.69897000433602, 0``57.60860767639106,
- 0``57.448550002027126}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732225352632*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c0d240b8-18fe-443b-8244-325033466329"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732225364543*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"bfe94385-cd19-49f2-9c63-c2f0cda3fe7b"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "123.1295601161076262997`10."}], ",",
- RowBox[{"S", "\[Rule]", "126736.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "29441.0004881728993219636`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "29441.0004881728993219636`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "43834.1234013343149626962`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "43834.1234013343149626962`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "51064.2477790144374543103`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "356.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "225.9739980152903287883`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.09450987233285125103178416136486429052`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "106.2805508721707045917`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "197.6556429686017100099`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797322253763657`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6c28e756-fda0-47d1-9588-96bf43e561d1"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "157.177374301676`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 157.177374301676}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732235744473*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"73c40a87-9b8f-467b-8829-ecc8d3bfa30e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"179.`", ",", "0.`", ",", "0.`", ",", "179.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"179.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "179.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"124.13176245954394`", ",", "0.`", ",",
- RowBox[{"-", "124.13176245954394`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"107.27834852873444`", ",",
- RowBox[{"-", "10.`"}], ",", "106.81125438385516`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {179., 0., 0., 179.}, $CellContext`p2 -> {
- 179., 0., 0., -179.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {124.13176245954394`,
- 0., -124.13176245954394`, 0.}, $CellContext`p5 -> {
- 107.27834852873444`, -10., 106.81125438385516`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732235754959*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"054ceadc-5b83-4234-96b6-ff25d020d4cd"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "2.33558122191398030549546063408895832171402131265127321280283972`42.\
-51348195255538*^-15", ",", "0``58.69897000433602", ",",
- "0``57.60508708266047", ",", "0``57.446116973356126"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 2.33558122191398030549546063408895832171402131265127321280283972`42.\
-51348195255538*^-15, 0``58.69897000433602, 0``57.60508708266047,
- 0``57.446116973356126}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797322357670307`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8684565f-6425-40de-8f67-8c2a29375354"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797322357773037`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5e3224d4-3bf2-4d98-aced-840427d3410c"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "124.1317624595439355062`10."}], ",",
- RowBox[{"S", "\[Rule]", "128164.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "29694.1802661963425765813`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "29694.1802661963425765813`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "44439.170960516728911216`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "44439.170960516728911216`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "51352.70245342614247448`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "358.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "226.6113467005263231254`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.09362309297541149011818074059532574982`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "107.2783485287344395205`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "198.2061000044311029529`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973223578728*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cb23182c-a787-440b-8f0f-c6acb9aa0e18"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "158.29861111111111`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 158.29861111111111`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732246273597*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"23605e88-248d-49b5-80f3-55fd2f2b61f7"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"180.`", ",", "0.`", ",", "0.`", ",", "180.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"180.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "180.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"125.1339240357539`", ",", "0.`", ",",
- RowBox[{"-", "125.1339240357539`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"108.27618695252445`", ",",
- RowBox[{"-", "10.`"}], ",", "107.81341596006513`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {180., 0., 0., 180.}, $CellContext`p2 -> {
- 180., 0., 0., -180.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {125.1339240357539,
- 0., -125.1339240357539, 0.}, $CellContext`p5 -> {
- 108.27618695252445`, -10., 107.81341596006513`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732246283781*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8adb131b-66b5-41d8-af33-5606e24fdff4"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "9.3268854149248249474018816661842718715386545750526678620883626`43.\
-11240414485699*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.60159494065158", ",", "0``57.443697499232705"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-9.3268854149248249474018816661842718715386545750526678620883626`43.\
-11240414485699*^-15, 0``58.69897000433602, 0``57.60159494065158,
- 0``57.443697499232705}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732246292492*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c7425f9e-1637-46bc-99ac-efa54e0507cd"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732246301188*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e2c1902d-778a-4b70-bf3f-0d40c9fd33eb"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "125.1339240357539068782`10."}], ",",
- RowBox[{"S", "\[Rule]", "129600.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "29947.3600442197858311991`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "29947.3600442197858311991`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "45048.2126528714064761516`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "45048.2126528714064761516`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "51641.1453941823866344606`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "360.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "227.2468820340168861663`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.09275283517316687237750101301906531409`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "108.276186952524456486`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "198.7550620594534258026`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732246310236*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c950a035-f839-4dca-8473-008d1d95659b"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "159.4185082872928`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 159.4185082872928}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973225635526*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"261aba29-a7a1-4401-8889-ecc1e00fafb2"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"181.`", ",", "0.`", ",", "0.`", ",", "181.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"181.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "181.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"126.13604596631033`", ",", "0.`", ",",
- RowBox[{"-", "126.13604596631033`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"109.27406502196803`", ",",
- RowBox[{"-", "10.`"}], ",", "108.81553789062156`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {181., 0., 0., 181.}, $CellContext`p2 -> {
- 181., 0., 0., -181.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {126.13604596631033`,
- 0., -126.13604596631033`, 0.}, $CellContext`p5 -> {
- 109.27406502196803`, -10., 108.81553789062156`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732256366102*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"4b96ac29-1aaf-469d-a4de-08d229b716e2"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "9.37439908581088477006775054777811779311345347542885543082310941`\
-43.112204872114*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.598130791456484", ",", "0``57.44129142946683"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-9.37439908581088477006775054777811779311345347542885543082310941`43.\
-112204872114*^-15, 0``58.69897000433602, 0``57.598130791456484,
- 0``57.44129142946683}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732256376194*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"84639cd1-5351-40f5-97e6-756a78bd67b0"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797322563870573`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cb96e066-e471-48ac-8c1e-85d842782d31"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "126.1360459663103341654`10."}], ",",
- RowBox[{"S", "\[Rule]", "131044.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "30200.5398222432290858169`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "30200.5398222432290858169`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "45661.2486398043409678849`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "45661.2486398043409678849`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "51929.5769240951421561609`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "362.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "227.8806198958023331367`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.09189864052366978901074189949556323995`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "109.2740650219680291513`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "199.302540677210920602`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732256397317*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"292b42a9-6bb6-4c60-aa14-1ebdbe3e21bc"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "160.5370879120879`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 160.5370879120879}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732266117464*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"fdaf4fa9-184b-4cc0-ae7a-1ea111d34cff"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"182.`", ",", "0.`", ",", "0.`", ",", "182.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"182.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "182.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"127.1381293320181`", ",", "0.`", ",",
- RowBox[{"-", "127.1381293320181`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"110.27198165626024`", ",",
- RowBox[{"-", "10.`"}], ",", "109.81762125632932`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {182., 0., 0., 182.}, $CellContext`p2 -> {
- 182., 0., 0., -182.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {127.1381293320181,
- 0., -127.1381293320181, 0.}, $CellContext`p5 -> {
- 110.27198165626024`, -10., 109.81762125632932`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732266127529*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2bc5474d-f9cd-4b04-8f62-d15ec517799b"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.104353976563913108403908180852189539161720239561071741657327382`\
-43.75111342976905*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.59469418725856", ",", "0``57.43889861635094"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.104353976563913108403908180852189539161720239561071741657327382`43.\
-75111342976905*^-14, 0``58.69897000433602, 0``57.59469418725856,
- 0``57.43889861635094}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732266136684*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1aa70c00-fa61-4827-a871-88c4848f0ac9"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797322661455603`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"82819c5f-68fc-453a-8645-e3ff9d351ebb"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "127.1381293320180958517`10."}], ",",
- RowBox[{"S", "\[Rule]", "132496.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "30453.7196002666723404346`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "30453.7196002666723404346`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "46278.2790768545868900219`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "46278.2790768545868900219`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "52217.997354242527512818`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "364.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "228.5125759214195360229`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.09106006746092810153860001701693423826`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "110.2719816562602357959`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "199.8485472709041404821`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732266154698*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7cc03ad3-047f-4036-bea1-8689bba95763"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "161.65437158469945`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 161.65437158469945`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797322759038343`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"bb279966-b62c-402d-adf2-2d3807da3e0e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"183.`", ",", "0.`", ",", "0.`", ",", "183.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"183.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "183.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"128.14017517474994`", ",", "0.`", ",",
- RowBox[{"-", "128.14017517474994`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"111.26993581352845`", ",",
- RowBox[{"-", "10.`"}], ",", "110.81966709906116`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {183., 0., 0., 183.}, $CellContext`p2 -> {
- 183., 0., 0., -183.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {128.14017517474994`,
- 0., -128.14017517474994`, 0.}, $CellContext`p5 -> {
- 111.26993581352845`, -10., 110.81966709906116`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732275915432*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0c73d478-408e-4ac5-a22a-9d2237e4c480"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "1.610341071354823788207957438323284208055000153773999756755047686`43.\
-34240678858817*^-14", ",", "0``58.69897000433602", ",",
- "0``57.591284690975044", ",", "0``57.43651891460559"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.610341071354823788207957438323284208055000153773999756755047686`43.\
-34240678858817*^-14, 0``58.69897000433602, 0``57.591284690975044,
- 0``57.43651891460559}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732275924789*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c541783e-c502-4eb9-a3af-1390577378b8"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797322759339867`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"729d3788-8cfc-4d44-a64e-2f83d1190d58"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "128.1401751747499417888`10."}], ",",
- RowBox[{"S", "\[Rule]", "133956.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "30706.8993782901155950524`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "30706.8993782901155950524`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "46899.3041139584786947125`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "46899.3041139584786947125`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "52506.406984497184995879`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "366.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "229.1427655076572235177`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.09023669048798935631870352384854264688`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "111.2699358135284470057`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "200.3930931246959176775`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732275943123*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"4c72f50e-c3f7-4491-8368-2a20cceca8f7"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "162.7703804347826`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 162.7703804347826}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797322856780987`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2bb4cad4-4c84-46aa-9486-285b656cdb89"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"184.`", ",", "0.`", ",", "0.`", ",", "184.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"184.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "184.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"129.14218449918363`", ",", "0.`", ",",
- RowBox[{"-", "129.14218449918363`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"112.26792648909476`", ",",
- RowBox[{"-", "10.`"}], ",", "111.82167642349485`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {184., 0., 0., 184.}, $CellContext`p2 -> {
- 184., 0., 0., -184.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {129.14218449918363`,
- 0., -129.14218449918363`, 0.}, $CellContext`p5 -> {
- 112.26792648909476`, -10., 111.82167642349485`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797322856875277`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c7d60a34-7c82-4bc6-8b45-24f96caf69d2"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "1.651452318943039303457625690704289353364806864167593669638964013`43.\
-350988224835035*^-14", ",", "0``58.69897000433602", ",",
- "0``57.58790187591404", ",", "0``57.43415218132648"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.651452318943039303457625690704289353364806864167593669638964013`43.\
-350988224835035*^-14, 0``58.69897000433602, 0``57.58790187591404,
- 0``57.43415218132648}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732285696383*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b7e7a1de-f11f-4c80-9fdb-07019208f980"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732285705118*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"65d8ff0b-4419-44f7-90e1-ace231bcc6b0"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "129.1421844991836280769`10."}], ",",
- RowBox[{"S", "\[Rule]", "135424.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "30960.0791563135588496702`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "30960.0791563135588496702`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "47524.323895699575132312`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "47524.323895699575132312`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "52794.8061040262642558619`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "368.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "229.771203818116129606`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.08942809945119817357522732768206980094`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "112.2679264890947611287`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "200.9361893950436635099`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732285714058*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9f99cc37-b504-4f95-a86e-959147f9197e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "163.88513513513516`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 163.88513513513516`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732295512506*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5dc867e9-a6d6-4e00-978e-aaa6970c08a4"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"185.`", ",", "0.`", ",", "0.`", ",", "185.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"185.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "185.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"130.14415827444728`", ",", "0.`", ",",
- RowBox[{"-", "130.14415827444728`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"113.26595271383108`", ",",
- RowBox[{"-", "10.`"}], ",", "112.8236501987585`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {185., 0., 0., 185.}, $CellContext`p2 -> {
- 185., 0., 0., -185.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {130.14415827444728`,
- 0., -130.14415827444728`, 0.}, $CellContext`p5 -> {
- 113.26595271383108`, -10., 112.8236501987585, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732295522296*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5bceee5d-2521-44e7-9a03-94e2d50e4bce"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "5.97750690671065495877468642544235768570612631218831305148357505`\
-42.9072883668627*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.5845453254452", ",", "0``57.431798275933005"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.97750690671065495877468642544235768570612631218831305148357505`42.\
-9072883668627*^-15, 0``58.69897000433602, 0``57.5845453254452,
- 0``57.431798275933005}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732295531405*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"889115fb-1fe9-4a1c-b8b1-8be02d7d4d14"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797322955404177`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2574ddb6-0bc7-4912-9c93-07fb84cedfa5"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "130.1441582744472782451`10."}], ",",
- RowBox[{"S", "\[Rule]", "136900.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "31213.258934337002104288`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "31213.258934337002104288`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "48153.3385615454929506996`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "48153.3385615454929506996`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "53083.1949917649914640711`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "370.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "230.3979057885834852583`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.08863389885350508288015910765924317557`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "113.2659527138310884685`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "201.4778471120559974481`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732295549572*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1fa54062-9878-4706-98d4-ab4ffe87f6c9"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "164.9986559139785`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 164.9986559139785}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732305321529*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"224a01d0-4767-40f4-9581-9af6c94936ec"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"186.`", ",", "0.`", ",", "0.`", ",", "186.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"186.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "186.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"131.1460974356779`", ",", "0.`", ",",
- RowBox[{"-", "131.1460974356779`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"114.26401355260049`", ",",
- RowBox[{"-", "10.`"}], ",", "113.82558935998911`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {186., 0., 0., 186.}, $CellContext`p2 -> {
- 186., 0., 0., -186.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {131.1460974356779,
- 0., -131.1460974356779, 0.}, $CellContext`p5 -> {
- 114.26401355260049`, -10., 113.82558935998911`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732305332512*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0385b6a9-2fb0-404b-a42e-46d99be103fa"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "6.1033502854925920011057904606306078770124831248727487718990976`41.\
-91399536029814*^-16"}], ",", "0``58.69897000433602", ",",
- "0``57.58121463268351", ",", "0``57.429457060118104"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-6.1033502854925920011057904606306078770124831248727487718990976`41.\
-91399536029814*^-16, 0``58.69897000433602, 0``57.58121463268351,
- 0``57.429457060118104}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732305344017*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"38072617-cee0-494c-9f52-d52bc68d8429"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732305353465*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b8045ab2-0d55-4a2e-b43c-fecb87dac7c7"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "131.1460974356778876881`10."}], ",",
- RowBox[{"S", "\[Rule]", "138384.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "31466.4387123604453589057`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "31466.4387123604453589057`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "48786.3482460721742199894`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "48786.3482460721742199894`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "53371.573916865239297269`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "372.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "231.0228861322298503357`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.08785370720439339624882297782614955985`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "114.2640135526004843927`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "202.0180771808692650641`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732305362783*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c0899192-6c29-406d-a312-7175cfdf1a95"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "166.1109625668449`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 166.1109625668449}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732315107993*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2de90cc7-bc00-4355-b4f2-9e798d9c0663"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"187.`", ",", "0.`", ",", "0.`", ",", "187.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"187.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "187.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"132.14800288549858`", ",", "0.`", ",",
- RowBox[{"-", "132.14800288549858`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"115.2621081027798`", ",",
- RowBox[{"-", "10.`"}], ",", "114.8274948098098`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {187., 0., 0., 187.}, $CellContext`p2 -> {
- 187., 0., 0., -187.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {132.14800288549858`,
- 0., -132.14800288549858`, 0.}, $CellContext`p5 -> {
- 115.2621081027798, -10., 114.8274948098098, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797323151178713`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"3f65189e-2c55-48d4-a3c2-d24055906d8c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "2.245496858930953222995097146659503332317333867420630112907632212`43.\
-47741085403041*^-14", ",", "0``58.69897000433602", ",",
- "0``57.57790940018544", ",", "0``57.427128397799514"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 2.245496858930953222995097146659503332317333867420630112907632212`43.\
-47741085403041*^-14, 0``58.69897000433602, 0``57.57790940018544,
- 0``57.427128397799514}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732315126899*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"74302180-04ee-4599-8512-19008741e70e"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797323151358347`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d1833b11-b7db-4063-9e2d-b4547c31cdbe"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "132.1480028854985846465`10."}], ",",
- RowBox[{"S", "\[Rule]", "139876.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "31719.6184903838886135235`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "31719.6184903838886135235`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "49423.3530791764706577851`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "49423.3530791764706577851`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "53659.9431391207133662032`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "374.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "231.6461593446364768937`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.08708715640416193590257178891503261595`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "115.2621081027798104996`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "202.5568903830404618655`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732315144783*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"909a3c34-349e-45b5-990f-7b9f9ccd5015"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "167.2220744680851`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 167.2220744680851}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732324898089*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"61de55c9-8426-42a9-b550-b98a3fbf37e0"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"188.`", ",", "0.`", ",", "0.`", ",", "188.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"188.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "188.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"133.14987549541956`", ",", "0.`", ",",
- RowBox[{"-", "133.14987549541956`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"116.26023549285884`", ",",
- RowBox[{"-", "10.`"}], ",", "115.82936741973079`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {188., 0., 0., 188.}, $CellContext`p2 -> {
- 188., 0., 0., -188.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {133.14987549541956`,
- 0., -133.14987549541956`, 0.}, $CellContext`p5 -> {
- 116.26023549285884`, -10., 115.82936741973079`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732324907909*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9cdd432e-63c7-4cc9-b9c4-fbb25c6ed327"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "2.619156068725515308129670683229701108505910387146509703169929739`43.\
-54194353708782*^-14", ",", "0``58.69897000433602", ",",
- "0``57.574629239657014", ",", "0``57.42481215507234"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 2.619156068725515308129670683229701108505910387146509703169929739`43.\
-54194353708782*^-14, 0``58.69897000433602, 0``57.574629239657014,
- 0``57.42481215507234}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973232491707*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ac716e5a-1d7f-45c9-bfae-08e8f3fdabe5"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732324925931*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"418095ce-8574-4e9a-86e4-02c9d142af03"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "133.149875495419564686`10."}], ",",
- RowBox[{"S", "\[Rule]", "141376.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "31972.7982684073318681413`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "31972.7982684073318681413`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "50064.3531862777563219424`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "50064.3531862777563219424`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "53948.3029093701702900934`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "376.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "232.2677397086607253449`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.08633389116046026141451306153782244172`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "116.2602354928588341966`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "203.0942973779532296136`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797323249353743`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9bed9c78-5797-444f-b094-c8fcd8ca8eba"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "168.33201058201058`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 168.33201058201058`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732334748632*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"881d7d57-14f2-4ab8-bd2f-0a82f0683e55"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"189.`", ",", "0.`", ",", "0.`", ",", "189.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"189.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "189.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"134.1517161071672`", ",", "0.`", ",",
- RowBox[{"-", "134.1517161071672`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"117.25839488111113`", ",",
- RowBox[{"-", "10.`"}], ",", "116.83120803147843`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {189., 0., 0., 189.}, $CellContext`p2 -> {
- 189., 0., 0., -189.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {134.1517161071672,
- 0., -134.1517161071672, 0.}, $CellContext`p5 -> {
- 117.25839488111113`, -10., 116.83120803147843`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732334758492*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"20681b70-d06e-4159-aebc-469af8a6df72"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.36821925623752058406594979428926619025682126290373083063402265`\
-43.64887855890442*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.571373771673144", ",", "0``57.422508200162774"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.36821925623752058406594979428926619025682126290373083063402265`43.\
-64887855890442*^-14, 0``58.69897000433602, 0``57.571373771673144,
- 0``57.422508200162774}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732334767808*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f7d7a11f-70ac-4f0b-b053-4b3be0c82386"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732334776911*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"384baa6e-08e1-4438-a700-0af3ecb5841e"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "134.1517161071672035177`10."}], ",",
- RowBox[{"S", "\[Rule]", "142884.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "32225.9780464307751227591`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "32225.9780464307751227591`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "50709.3486885092029297084`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "50709.3486885092029297084`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "54236.6534698799640039746`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "378.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "232.8876412991465805489`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.08559356843511922600088991142750846796`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "117.2583948811111354912`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "203.6303087042338540733`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732334786483*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"86e9ca8c-4c55-47a0-b6d4-ca0f02dd7a9b"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "169.44078947368422`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 169.44078947368422`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732344574149*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"13fc7508-1305-468a-8f5c-aa5883dc62bf"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"190.`", ",", "0.`", ",", "0.`", ",", "190.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"190.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "190.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"135.1535255339457`", ",", "0.`", ",",
- RowBox[{"-", "135.1535255339457`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"118.25658545433265`", ",",
- RowBox[{"-", "10.`"}], ",", "117.83301745825692`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {190., 0., 0., 190.}, $CellContext`p2 -> {
- 190., 0., 0., -190.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {135.1535255339457,
- 0., -135.1535255339457, 0.}, $CellContext`p5 -> {
- 118.25658545433265`, -10., 117.83301745825692`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732344588861*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7c821d48-82b9-4c1c-8ee7-4f3ff499ee49"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "2.394241012643721559652036359843014919659633636655203059803680426`\
-43.498354273586095*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.56814262540769", ",", "0``57.420216403383186"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.394241012643721559652036359843014919659633636655203059803680426`43.\
-498354273586095*^-14, 0``58.69897000433602, 0``57.56814262540769,
- 0``57.420216403383186}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797323445986233`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7900a994-9b71-4ce5-9371-5912ed278f4b"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732344610239*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"17339eda-6538-4101-8f71-fcac9f4e46e1"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "135.1535255339456966794`10."}], ",",
- RowBox[{"S", "\[Rule]", "144400.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "32479.1578244542183773768`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "32479.1578244542183773768`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "51358.3397028993647381867`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "51358.3397028993647381867`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "54524.9950547071718938225`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "380.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "233.5058779874870128401`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.08486585691945436207560101605078341859`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "118.2565854543326520693`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "204.1649347811745531898`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732344620221*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"509ebc9d-f2cd-409e-a371-781d6a1b5c47"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "170.54842931937173`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 170.54842931937173`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732354465296*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"4232fd4f-acf0-45ac-81b2-8790ee531e7d"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"191.`", ",", "0.`", ",", "0.`", ",", "191.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"191.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "191.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"136.15530456163484`", ",", "0.`", ",",
- RowBox[{"-", "136.15530456163484`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"119.25480642664353`", ",",
- RowBox[{"-", "10.`"}], ",", "118.83479648594606`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {191., 0., 0., 191.}, $CellContext`p2 -> {
- 191., 0., 0., -191.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {136.15530456163484`,
- 0., -136.15530456163484`, 0.}, $CellContext`p5 -> {
- 119.25480642664353`, -10., 118.83479648594606`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732354475131*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8dbedace-d4c8-4e3a-ab08-06b3dc69ad5f"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "8.28079295966602278620690972699589760279944456365619396683575892`\
-43.03497856776452*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.5649354383738", ",", "0``57.41793663708829"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-8.28079295966602278620690972699589760279944456365619396683575892`43.\
-03497856776452*^-15, 0``58.69897000433602, 0``57.5649354383738,
- 0``57.41793663708829}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732354484519*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d6c84805-8050-45b7-8392-ba8c171824d5"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797323544936647`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c60afc31-af61-48f8-a153-a7cf676ec9be"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "136.1553045616348356361`10."}], ",",
- RowBox[{"S", "\[Rule]", "145924.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "32732.3376024776616319946`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "32732.3376024776616319946`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "52011.326342544507213006`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "52011.326342544507213006`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "54813.32789004433966505`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "382.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "234.1224634460442791132`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.08415043653634434387891144991339345357`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "119.2548064266435287742`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "204.6981859101613570096`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797323545028667`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"3cba981f-b491-40de-8808-cfdc790c3f37"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "171.65494791666666`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 171.65494791666666`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732364315823*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a4b1e78d-ffd9-4500-a5e8-9cd3d0aa72b0"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"192.`", ",", "0.`", ",", "0.`", ",", "192.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"192.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "192.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"137.1570539499282`", ",", "0.`", ",",
- RowBox[{"-", "137.1570539499282`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"120.25305703835015`", ",",
- RowBox[{"-", "10.`"}], ",", "119.83654587423943`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {192., 0., 0., 192.}, $CellContext`p2 -> {
- 192., 0., 0., -192.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {137.1570539499282,
- 0., -137.1570539499282, 0.}, $CellContext`p5 -> {
- 120.25305703835015`, -10., 119.83654587423943`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797323643267*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8d4bb487-4955-4e73-8cb7-6ff4c5172fa7"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.499523790513702925768654888856582708471608488890594628216580823`\
-43.290592140365376*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.561751856174176", ",", "0``57.41566877563247"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.499523790513702925768654888856582708471608488890594628216580823`43.\
-290592140365376*^-14, 0``58.69897000433602, 0``57.561751856174176,
- 0``57.41566877563247}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732364336123*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"50771606-2211-4b26-8e73-4a7f681810b2"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732364345159*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"25b22062-a737-45ea-88ec-0aafe0a10c3f"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "137.1570539499282119777`10."}], ",",
- RowBox[{"S", "\[Rule]", "147456.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "32985.5173805011048866124`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "32985.5173805011048866124`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "52668.3087167724333994556`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "52668.3087167724333994556`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "55101.6521945470801785824`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "384.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "234.7374111524344987245`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.08344699796750100987235073458108760224`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "120.2530570383501457181`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "205.2300722761046191172`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973236435452*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a2bfa9e6-4fdb-4624-a858-db0a40fc7bb6"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "172.7603626943005`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 172.7603626943005}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732374129437*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"356eb56f-434f-40d1-bd44-3c53d4d38fa4"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"193.`", ",", "0.`", ",", "0.`", ",", "193.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"193.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "193.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"138.15877443341492`", ",", "0.`", ",",
- RowBox[{"-", "138.15877443341492`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"121.25133655486347`", ",",
- RowBox[{"-", "10.`"}], ",", "120.83826635772614`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {193., 0., 0., 193.}, $CellContext`p2 -> {
- 193., 0., 0., -193.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {138.15877443341492`,
- 0., -138.15877443341492`, 0.}, $CellContext`p5 -> {
- 121.25133655486347`, -10., 120.83826635772614`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797323741392107`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7a1fc800-970f-4493-9590-428333ca5017"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "1.738752095261439995386543477549848255050489378445646732940692049`43.\
-3526203660058*^-14", ",", "0``58.69897000433602", ",",
- "0``57.558591532260444", ",", "0``57.41341269532825"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.738752095261439995386543477549848255050489378445646732940692049`43.\
-3526203660058*^-14, 0``58.69897000433602, 0``57.558591532260444,
- 0``57.41341269532825}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732374148525*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d52309e1-5077-4653-ac90-518b73c76ce2"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732374157797*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a0815103-1785-42b8-8820-e064bdf5935f"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "138.1587744334149192582`10."}], ",",
- RowBox[{"S", "\[Rule]", "148996.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "33238.6971585245481412301`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "33238.6971585245481412301`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "53329.2869312981588336697`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "53329.2869312981588336697`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "55389.9681796454097332795`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "386.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "235.3507343936819113092`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.08275524220445439127849810495782921375`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "121.2513365548634708204`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "205.7606039488698889821`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732374167263*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"dae98de0-ddf3-4d10-acc3-e5d940b066ac"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "173.86469072164948`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 173.86469072164948`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732384210661*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"94eb6b78-44b1-41b4-a6ea-46732dbdd53f"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"194.`", ",", "0.`", ",", "0.`", ",", "194.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"194.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "194.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"139.1604667226079`", ",", "0.`", ",",
- RowBox[{"-", "139.1604667226079`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"122.24964426567043`", ",",
- RowBox[{"-", "10.`"}], ",", "121.83995864691913`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {194., 0., 0., 194.}, $CellContext`p2 -> {
- 194., 0., 0., -194.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {139.1604667226079,
- 0., -139.1604667226079, 0.}, $CellContext`p5 -> {
- 122.24964426567043`, -10., 121.83995864691913`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797323842210484`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"211e9fe4-c45e-4182-9210-88b7f965673c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.486232368149037786220854811190816082252801957681659819921636834`\
-43.76202004321642*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.55545412770173", ",", "0``57.41116827440579"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.486232368149037786220854811190816082252801957681659819921636834`43.\
-76202004321642*^-14, 0``58.69897000433602, 0``57.55545412770173,
- 0``57.41116827440579}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732384230483*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"fb3cb240-f03f-4e04-a66c-045f513a57b9"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732384240117*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2853f571-4ecb-4762-b1bb-8ef6d12dcf6e"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "139.1604667226079072861`10."}], ",",
- RowBox[{"S", "\[Rule]", "150544.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "33491.876936547991395848`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "33491.876936547991395848`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "53994.2610883718680270249`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "53994.2610883718680270249`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "55678.2760498397298145519`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "388.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "235.9624462702481176634`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.08207488012187421797704102402287269415`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "122.2496442656704205427`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "206.2897908847072383859`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732384249441*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f67453e4-b33b-49c5-868e-8a61d8224a4e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "174.96794871794873`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 174.96794871794873`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973239401917*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cfb9341c-5a6f-4d0f-9980-cc4916a2facd"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"195.`", ",", "0.`", ",", "0.`", ",", "195.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"195.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "195.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"140.16213150492257`", ",", "0.`", ",",
- RowBox[{"-", "140.16213150492257`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"123.24797948335576`", ",",
- RowBox[{"-", "10.`"}], ",", "122.84162342923379`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {195., 0., 0., 195.}, $CellContext`p2 -> {
- 195., 0., 0., -195.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {140.16213150492257`,
- 0., -140.16213150492257`, 0.}, $CellContext`p5 -> {
- 123.24797948335576`, -10., 122.84162342923379`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797323940308533`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6abd1505-50e5-4ae7-b820-c3c0cac588dc"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.515988256078900152723922502675472783178446955234038201311955858`\
-43.76265820117211*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.552339310961585", ",", "0``57.4089353929735"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.515988256078900152723922502675472783178446955234038201311955858`43.\
-76265820117211*^-14, 0``58.69897000433602, 0``57.552339310961585,
- 0``57.4089353929735}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973239404027*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2d936dcd-1caa-4d14-a07e-369d8547017d"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732394049387*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"bf772950-a0f7-4c9e-ad68-a09750925ef5"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "140.1621315049225700022`10."}], ",",
- RowBox[{"S", "\[Rule]", "152100.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "33745.0567145714346504657`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "33745.0567145714346504657`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "54663.2312869198023008721`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "54663.2312869198023008721`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "55966.5760029824850344042`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "390.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "236.5725596999417112119`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.08140563207193991114172428899867074449`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "123.247979483355757529`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "206.8176429276776494057`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732394058714*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cf235c80-1126-4a34-9daa-f7596d11fc65"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "176.0701530612245`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 176.0701530612245}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797324039638157`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a48fa32c-cdb7-4b2e-af37-a3347cc91c3d"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"196.`", ",", "0.`", ",", "0.`", ",", "196.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"196.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "196.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"141.16376944560753`", ",", "0.`", ",",
- RowBox[{"-", "141.16376944560753`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"124.24634154267083`", ",",
- RowBox[{"-", "10.`"}], ",", "123.84326136991875`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {196., 0., 0., 196.}, $CellContext`p2 -> {
- 196., 0., 0., -196.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {141.16376944560753`,
- 0., -141.16376944560753`, 0.}, $CellContext`p5 -> {
- 124.24634154267083`, -10., 123.84326136991875`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732403974884*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"31159048-216d-4e3d-bf43-6bd3ff7bc1b7"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.574724912642312596832603068547851931063951872982159280105651998`\
-43.3028886355327*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.54924675768315", ",", "0``57.406713932979535"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.574724912642312596832603068547851931063951872982159280105651998`43.\
-3028886355327*^-14, 0``58.69897000433602, 0``57.54924675768315,
- 0``57.406713932979535}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797324039840403`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cc84e712-adfc-4353-907e-9761094380d6"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732403993072*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"930a943d-27b4-4d86-be64-dbd39050e591"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "141.1637694456075280414`10."}], ",",
- RowBox[{"S", "\[Rule]", "153664.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "33998.2364925948779050835`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "33998.2364925948779050835`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "55336.1976226781509922148`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "55336.1976226781509922148`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "56254.8682305460617076727`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "392.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "237.1810874217125721535`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.08074722749855630921625866729506162622`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "124.2463415426708289025`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "207.3441698110744808497`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797324040022993`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b49b6c57-d2dc-4859-aebc-ae8fa938599d"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "177.1713197969543`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 177.1713197969543}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797324138725*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9c37718e-c9e5-45c2-8c4c-d62ae6859536"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"197.`", ",", "0.`", ",", "0.`", ",", "197.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"197.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "197.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"142.16538118863105`", ",", "0.`", ",",
- RowBox[{"-", "142.16538118863105`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"125.24472979964729`", ",",
- RowBox[{"-", "10.`"}], ",", "124.84487311294227`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {197., 0., 0., 197.}, $CellContext`p2 -> {
- 197., 0., 0., -197.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {142.16538118863105`,
- 0., -142.16538118863105`, 0.}, $CellContext`p5 -> {
- 125.24472979964729`, -10., 124.84487311294227`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732413882599*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"52a53eed-d859-4646-9869-25104e665d1e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "4.432723035992045612457827955406117127620440394640883225700160675`\
-43.75014437920611*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.54617615048209", ",", "0``57.40450377817443"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.432723035992045612457827955406117127620440394640883225700160675`43.\
-75014437920611*^-14, 0``58.69897000433602, 0``57.54617615048209,
- 0``57.40450377817443}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732413891831*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"268dcca2-49d9-460d-bbc6-312479f745ad"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732413901325*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0b0a8f57-fca5-42e2-9b55-c40b55a716ae"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "142.1653811886310450063`10."}], ",",
- RowBox[{"S", "\[Rule]", "155236.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "34251.4162706183211597012`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "34251.4162706183211597012`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "56013.1601883206317324948`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "56013.1601883206317324948`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "56543.1529178779168878961`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "394.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "237.7880419993358641809`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.08009940457028933223627592409094123815`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "125.2447297996472833575`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "207.8693811588390576473`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732413910725*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7ed51606-a186-42ef-b7b6-bcb757183e95"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "178.27146464646466`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 178.27146464646466`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732423673141*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8f39012b-eb6e-43b3-95c6-7d862b821574"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"198.`", ",", "0.`", ",", "0.`", ",", "198.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"198.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "198.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"143.16696735752532`", ",", "0.`", ",",
- RowBox[{"-", "143.16696735752532`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"126.24314363075305`", ",",
- RowBox[{"-", "10.`"}], ",", "125.84645928183654`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {198., 0., 0., 198.}, $CellContext`p2 -> {
- 198., 0., 0., -198.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {143.16696735752532`,
- 0., -143.16696735752532`, 0.}, $CellContext`p5 -> {
- 126.24314363075305`, -10., 125.84645928183654`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973242368329*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"bcb0b250-204a-4c14-91a1-1a89641ede24"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "1.38571204515775062427398667857668275532610980899646765294768995`42.\
-24294781045271*^-15", ",", "0``58.69897000433602", ",",
- "0``57.54312717874702", ",", "0``57.40230481407448"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.38571204515775062427398667857668275532610980899646765294768995`42.\
-24294781045271*^-15, 0``58.69897000433602, 0``57.54312717874702,
- 0``57.40230481407448}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732423692807*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ded87c84-5054-45ae-ab99-3684661cf1dd"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797324237020073`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e398c812-8a07-4962-b063-e35553e0e3c7"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "143.1669673575253227682`10."}], ",",
- RowBox[{"S", "\[Rule]", "156816.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "34504.596048641764414319`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "34504.596048641764414319`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "56694.119073580027816206`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "56694.119073580027816206`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "56831.4302444435841111768`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "396.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "238.3934358249899130623`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.07946190983096893882492896426532324467`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "126.2431436307530513086`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "208.3932864869690207562`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797324237116003`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"464b6444-0242-4aac-b4ad-a3ea2cbaef47"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "179.37060301507537`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 179.37060301507537`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732433568221*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"fa342b49-82ab-4707-8483-2d72037d9e78"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"199.`", ",", "0.`", ",", "0.`", ",", "199.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"199.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "199.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"144.16852855619055`", ",", "0.`", ",",
- RowBox[{"-", "144.16852855619055`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"127.24158243208781`", ",",
- RowBox[{"-", "10.`"}], ",", "126.84802048050177`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {199., 0., 0., 199.}, $CellContext`p2 -> {
- 199., 0., 0., -199.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {144.16852855619055`,
- 0., -144.16852855619055`, 0.}, $CellContext`p5 -> {
- 127.24158243208781`, -10., 126.84802048050177`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732433578006*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9e0c6b22-3a2f-4359-8d39-2232a6756fb7"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "5.18505893573252753907346428405562353761277164110772822509426617`\
-42.813840629403586*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.540099538447045", ",", "0``57.40011692792631"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.18505893573252753907346428405562353761277164110772822509426617`42.\
-813840629403586*^-15, 0``58.69897000433602, 0``57.540099538447045,
- 0``57.40011692792631}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797324335875273`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"de5661d4-fcf0-4582-9dd4-b05c331ffe44"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732433596818*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"129cba15-0eeb-44db-97d7-7643d3587ea6"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "144.1685285561905516261`10."}], ",",
- RowBox[{"S", "\[Rule]", "158404.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "34757.7758266652076689368`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "34757.7758266652076689368`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "57379.0743653638395471717`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "57379.0743653638395471717`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "57119.7003840580957517271`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "398.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "238.9972811227318036657`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.07883449786697406512710301606899311588`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "127.24158243208781588`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "208.915895204918092114`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732433606328*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8c4e8efe-34e7-42dc-8485-b81436b0b1ae"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "180.46875`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 180.46875}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797324438853083`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a4dae41f-1e0a-4b14-bf8d-646daa059fb7"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"200.`", ",", "0.`", ",", "0.`", ",", "200.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"200.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "200.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"145.17006536966173`", ",", "0.`", ",",
- RowBox[{"-", "145.17006536966173`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"128.24004561861662`", ",",
- RowBox[{"-", "10.`"}], ",", "127.84955729397295`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {200., 0., 0., 200.}, $CellContext`p2 -> {
- 200., 0., 0., -200.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {145.17006536966173`,
- 0., -145.17006536966173`, 0.}, $CellContext`p5 -> {
- 128.24004561861662`, -10., 127.84955729397295`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797324438967667`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"18420c57-ddda-4022-bd76-ec029375434b"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.886324500412347572470674555333478218976146161689912077164571647`\
-43.37252641859702*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.53709293194614", ",", "0``57.39794000867204"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.886324500412347572470674555333478218976146161689912077164571647`43.\
-37252641859702*^-14, 0``58.69897000433602, 0``57.53709293194614,
- 0``57.39794000867204}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797324439074497`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"bd2ddebe-6e14-4c7f-a4c5-59edf6170ced"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732443917894*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"109903ec-be1a-476b-ba5d-ca6c31a2fb20"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "145.1700653696617280275`10."}], ",",
- RowBox[{"S", "\[Rule]", "160000.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "35010.9556046886509235546`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "35010.9556046886509235546`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "58068.026147864691210998`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "58068.026147864691210998`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "57407.9635051066891071519`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "400.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "239.5995899518751035944`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.07821693099027584161706817100099761167`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "128.2400456186166258004`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "209.4372166169866953911`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732443930698*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"17c9c5a8-4993-4e93-b7b3-7698dcc4a7d8"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "181.56592039800995`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 181.56592039800995`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732453809585*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9462a008-7f06-416b-b2f8-2254b0084e1b"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"201.`", ",", "0.`", ",", "0.`", ",", "201.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"201.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "201.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"146.17157836483952`", ",", "0.`", ",",
- RowBox[{"-", "146.17157836483952`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"129.23853262343883`", ",",
- RowBox[{"-", "10.`"}], ",", "128.85107028915075`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {201., 0., 0., 201.}, $CellContext`p2 -> {
- 201., 0., 0., -201.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {146.17157836483952`,
- 0., -146.17157836483952`, 0.}, $CellContext`p5 -> {
- 129.23853262343883`, -10., 128.85107028915075`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732453820859*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8581e3d5-57dc-4ee4-9490-d8bdfca7b41c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.097476056796877937193654182499869503033211900951851302092173032`\
-43.1351390054373*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.53410706782403", ",", "0``57.395773946915526"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.097476056796877937193654182499869503033211900951851302092173032`43.\
-1351390054373*^-14, 0``58.69897000433602, 0``57.53410706782403,
- 0``57.395773946915526}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732453830875*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b0a5e0a6-8614-4284-8194-48b29a30ab7d"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797324538402*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7951aa0c-ea59-4842-9cfd-c4a93e02e2f4"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "146.1715783648395188266`10."}], ",",
- RowBox[{"S", "\[Rule]", "161604.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "35264.1353827120941781724`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "35264.1353827120941781724`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "58760.9745026654865682758`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "58760.9745026654865682758`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "57696.2197707551643296202`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "402.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "240.2003742102729621175`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.07760897893637441934076699185380118671`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "129.2385326234388428898`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "209.9572599237021411937`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732453849552*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1a2508fd-3058-4534-b9a1-9ed30c7c53b8"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "182.6621287128713`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 182.6621287128713}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797324635980253`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7f22a845-0485-4f26-b924-05c1636c40c3"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"202.`", ",", "0.`", ",", "0.`", ",", "202.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"202.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "202.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"147.1730680911875`", ",", "0.`", ",",
- RowBox[{"-", "147.1730680911875`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"130.23704289709093`", ",",
- RowBox[{"-", "10.`"}], ",", "129.85256001549874`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {202., 0., 0., 202.}, $CellContext`p2 -> {
- 202., 0., 0., -202.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {147.1730680911875,
- 0., -147.1730680911875, 0.}, $CellContext`p5 -> {
- 130.23704289709093`, -10., 129.85256001549874`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797324636080236`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"37e4311c-9c61-4dd9-8fe9-b6b9a59924d0"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "4.615472534971894500462212540817291261961631387893842651333570237`43.\
-75680481020493*^-14", ",", "0``58.69897000433602", ",",
- "0``57.53114166070348", ",", "0``57.39361863488939"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 4.615472534971894500462212540817291261961631387893842651333570237`43.\
-75680481020493*^-14, 0``58.69897000433602, 0``57.53114166070348,
- 0``57.39361863488939}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732463617474*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"96308ace-d843-475a-8953-32b413885afb"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973246362671*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"232f6234-870b-4f73-8198-86d4e4a20208"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "147.1730680911875026595`10."}], ",",
- RowBox[{"S", "\[Rule]", "163216.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "35517.3151607355374327901`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "35517.3151607355374327901`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "59457.9195088397510744471`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "59457.9195088397510744471`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "57984.4693391505649923646`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "404.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "240.7996456375103659018`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.07701041857631791268908701002976116898`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "130.2370428970909161863`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "210.4760342231877989226`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732463636136*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f2c4bfce-50fb-4899-92f7-f693fa2d62dd"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "183.75738916256157`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 183.75738916256157`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732473377864*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ccfd9535-0b0e-45d8-9458-0b3ccd082120"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"203.`", ",", "0.`", ",", "0.`", ",", "203.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"203.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "203.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"148.17453508139738`", ",", "0.`", ",",
- RowBox[{"-", "148.17453508139738`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"131.23557590688097`", ",",
- RowBox[{"-", "10.`"}], ",", "130.85402700570862`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {203., 0., 0., 203.}, $CellContext`p2 -> {
- 203., 0., 0., -203.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {148.17453508139738`,
- 0., -148.17453508139738`, 0.}, $CellContext`p5 -> {
- 131.23557590688097`, -10., 130.85402700570862`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732473387507*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"698adb12-c7c9-472a-9505-9eee7226ba03"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "2.062266105431236158443587260552373609951462208267989317356402125`\
-43.40478867470529*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.5281964310833", ",", "0``57.3914739664228"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.062266105431236158443587260552373609951462208267989317356402125`43.\
-40478867470529*^-14, 0``58.69897000433602, 0``57.5281964310833,
- 0``57.3914739664228}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732473396854*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b5e64703-54ca-4cf5-9b10-d1ccde66fe00"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797324734059353`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"753a498a-8abc-4e00-8278-639f6b093d0d"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "148.1745350813973800541`10."}], ",",
- RowBox[{"S", "\[Rule]", "164836.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "35770.4949387589806874079`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "35770.4949387589806874079`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "60158.8612430473363019701`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "60158.8612430473363019701`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "58272.7123636126393916095`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "406.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "241.3974158180087879617`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0764210336420425360185667186365260739`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "131.2355759068809720143`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "210.9935485125204409077`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732473414998*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e57733b4-ca36-4bc2-a1c8-7afc76b9201d"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "184.8517156862745`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 184.8517156862745}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797324832152557`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f560ae66-2425-45d4-b89e-ff2f3859cb60"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"204.`", ",", "0.`", ",", "0.`", ",", "204.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"204.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "204.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"149.17597985202434`", ",", "0.`", ",",
- RowBox[{"-", "149.17597985202434`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"132.23413113625404`", ",",
- RowBox[{"-", "10.`"}], ",", "131.85547177633558`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {204., 0., 0., 204.}, $CellContext`p2 -> {
- 204., 0., 0., -204.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {149.17597985202434`,
- 0., -149.17597985202434`, 0.}, $CellContext`p5 -> {
- 132.23413113625404`, -10., 131.85547177633558`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732483225095*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"74d9a9f5-7638-434a-9ebf-9722201e6f88"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "9.60633311602993696395343637181214911245552971178105067676158441`\
-43.07086748371411*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.52527110517749", ",", "0``57.389339836910125"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-9.60633311602993696395343637181214911245552971178105067676158441`43.\
-07086748371411*^-15, 0``58.69897000433602, 0``57.52527110517749,
- 0``57.389339836910125}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797324832347*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"adba9671-276c-452f-a4ab-fc63ad560fe4"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973248324395*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"923d8d34-5b9e-41b1-9d47-7127d5462963"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "149.1759798520243407438`10."}], ",",
- RowBox[{"S", "\[Rule]", "166464.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "36023.6747167824239420257`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "36023.6747167824239420257`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "60863.7997796259310234745`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "60863.7997796259310234745`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "58560.9489928167124715707`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "408.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "241.9936961840467291299`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.07584061446431929629142527536944774649`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "132.234131136254022341`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "211.5098116890753911778`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732483253139*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d7748f22-aed9-4e94-a4e4-88eeb55708fc"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "185.9451219512195`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 185.9451219512195}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732492988495*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7e0acd42-fb39-421d-b2f9-6d211a71ed40"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"205.`", ",", "0.`", ",", "0.`", ",", "205.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"205.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "205.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"150.17740290409319`", ",", "0.`", ",",
- RowBox[{"-", "150.17740290409319`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"133.23270808418522`", ",",
- RowBox[{"-", "10.`"}], ",", "132.85689482840442`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {205., 0., 0., 205.}, $CellContext`p2 -> {
- 205., 0., 0., -205.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {150.17740290409319`,
- 0., -150.17740290409319`, 0.}, $CellContext`p5 -> {
- 133.23270808418522`, -10., 132.85689482840442`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973249299784*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1b2fe879-cd79-478a-a980-ca1264486022"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "2.239922691743123484216280624221296081919976368381523463402770007`43.\
-43641917705368*^-14", ",", "0``58.69897000433602", ",",
- "0``57.522365414759484", ",", "0``57.38721614328027"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 2.239922691743123484216280624221296081919976368381523463402770007`43.\
-43641917705368*^-14, 0``58.69897000433602, 0``57.522365414759484,
- 0``57.38721614328027}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797324930072603`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1f7c4730-bd72-4e1f-a74d-c42d70805b4e"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797324930164824`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c9d440ab-b215-4c90-ad7a-263af0795d53"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "150.1774029040931850432`10."}], ",",
- RowBox[{"S", "\[Rule]", "168100.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "36276.8544948058671966434`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "36276.8544948058671966434`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "61572.7351906782058676981`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "61572.7351906782058676981`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "58849.1793709681401600638`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "410.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "242.5884980186986115057`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.07526895772263698508415493914310951142`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "133.2327080841852100472`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "212.0248325518584153381`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732493026043*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1bfde587-01a7-4da1-b824-f3d44637da8c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "187.0376213592233`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 187.0376213592233}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973250280194*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e5bd1963-3a67-4750-84c1-c74405b56267"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"206.`", ",", "0.`", ",", "0.`", ",", "206.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"206.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "206.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"151.17880472367773`", ",", "0.`", ",",
- RowBox[{"-", "151.17880472367773`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"134.23130626460062`", ",",
- RowBox[{"-", "10.`"}], ",", "133.85829664798896`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {206., 0., 0., 206.}, $CellContext`p2 -> {
- 206., 0., 0., -206.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {151.17880472367773`,
- 0., -151.17880472367773`, 0.}, $CellContext`p5 -> {
- 134.23130626460062`, -10., 133.85829664798896`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732502811585*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f0b36ee1-f661-4712-8d74-97b5ad87be17"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.757993511047056618890262710487314249301937319096346004665844595`\
-43.32909005601352*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.51947909701203", ",", "0``57.385102783966865"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.757993511047056618890262710487314249301937319096346004665844595`43.\
-32909005601352*^-14, 0``58.69897000433602, 0``57.51947909701203,
- 0``57.385102783966865}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797325028209467`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ae1b06c9-5a59-439c-b9eb-8c848bbe4722"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732502831204*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"24572c2d-76d6-4e5a-931c-cc27b3a549ff"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "151.1788047236777288163`10."}], ",",
- RowBox[{"S", "\[Rule]", "169744.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "36530.0342728293104512612`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "36530.0342728293104512612`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "62285.6675461552242722973`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "62285.6675461552242722973`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "59137.4036379690741666724`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "412.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "243.1818324586955532851`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.07470586620639055317674673793576929017`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "134.2313062646006262949`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "212.5386198028244049154`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732502840639*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a8b20eb2-2ba9-4612-9e84-51d7da10658b"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "188.12922705314008`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 188.12922705314008`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732512494464*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cffb5ce7-74e1-4b52-b272-512ea627fdcd"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"207.`", ",", "0.`", ",", "0.`", ",", "207.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"207.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "207.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"152.1801857824545`", ",", "0.`", ",",
- RowBox[{"-", "152.1801857824545`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"135.2299252058239`", ",",
- RowBox[{"-", "10.`"}], ",", "134.85967770676572`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {207., 0., 0., 207.}, $CellContext`p2 -> {
- 207., 0., 0., -207.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {152.1801857824545,
- 0., -152.1801857824545, 0.}, $CellContext`p5 -> {
- 135.2299252058239, -10., 134.85967770676572`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732512504628*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"4e267710-bad9-49cb-8ef9-d4975cfdc56c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "3.97642686023181357704972873255077393295438530458924560408922708`\
-42.68146266195163*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.51661189438193", ",", "0``57.3829996588791"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.97642686023181357704972873255077393295438530458924560408922708`42.\
-68146266195163*^-15, 0``58.69897000433602, 0``57.51661189438193,
- 0``57.3829996588791}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732512514045*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"3f37e200-55ae-4d4a-8446-fcc0015bf2a1"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732512523364*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b165c668-b52f-40e6-94e3-a11c439d35b0"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "152.1801857824544867981`10."}], ",",
- RowBox[{"S", "\[Rule]", "171396.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "36783.214050852753705879`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "36783.214050852753705879`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "63002.5969139361575344083`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "63002.5969139361575344083`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "59425.6219295778235560383`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "414.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "243.7737104972105550447`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.07415114858678261950245553689062592402`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "135.2299252058238819166`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "213.0511820481822223513`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732512532806*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a36b796a-e694-48a6-9b7a-9f70036835f8"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "189.21995192307693`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 189.21995192307693`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732522296885*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2ab3d75a-07da-4e7e-b828-b310cd949e5a"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"208.`", ",", "0.`", ",", "0.`", ",", "208.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"208.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "208.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"153.18154653823163`", ",", "0.`", ",",
- RowBox[{"-", "153.18154653823163`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"136.22856445004678`", ",",
- RowBox[{"-", "10.`"}], ",", "135.86103846254287`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {208., 0., 0., 208.}, $CellContext`p2 -> {
- 208., 0., 0., -208.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {153.18154653823163`,
- 0., -153.18154653823163`, 0.}, $CellContext`p5 -> {
- 136.22856445004678`, -10., 135.86103846254287`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732522306428*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f3bfdd7e-5eab-41e9-bf6d-160de03d41ef"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "3.62043291057640872848718560229012836602495984489778565907797248`43.\
-63863717778759*^-14", ",", "0``58.69897000433602", ",",
- "0``57.51376355443975", ",", "0``57.38090666937325"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 3.62043291057640872848718560229012836602495984489778565907797248`43.\
-63863717778759*^-14, 0``58.69897000433602, 0``57.51376355443975,
- 0``57.38090666937325}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732522315617*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"74523f3b-28b7-4733-aae8-fdfa2dd5f1d5"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732522324851*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c3cd6cb2-7ed2-4d12-8887-674bb6fe4fb8"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "153.1815465382316290288`10."}], ",",
- RowBox[{"S", "\[Rule]", "173056.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "37036.3938288761969604968`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "37036.3938288761969604968`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "63723.5233599043576759868`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "63723.5233599043576759868`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "59713.8343775610994088396`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "416.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "244.364142986570555093`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0736046191988810597345218588834513071`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "136.2285644500467798666`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "213.5625277996851761331`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732522334167*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2383f051-23ea-49cf-a002-21515d8cf9d6"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "190.30980861244018`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 190.30980861244018`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797325321184683`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8474c12d-9ed1-48b3-bc72-c599c66f6820"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"209.`", ",", "0.`", ",", "0.`", ",", "209.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"209.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "209.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"154.18288743545503`", ",", "0.`", ",",
- RowBox[{"-", "154.18288743545503`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"137.2272235528234`", ",",
- RowBox[{"-", "10.`"}], ",", "136.86237935976627`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {209., 0., 0., 209.}, $CellContext`p2 -> {
- 209., 0., 0., -209.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {154.18288743545503`,
- 0., -154.18288743545503`, 0.}, $CellContext`p5 -> {
- 137.2272235528234, -10., 136.86237935976627`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732532128337*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f161e8e5-d2bf-4d3a-b1eb-8369e12d17cd"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "6.881636069647611856499096288748991510530110019257148637143997876`43.\
-91548542410323*^-14", ",", "0``58.69897000433602", ",",
- "0``57.510933829744076", ",", "0``57.378823718224965"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 6.881636069647611856499096288748991510530110019257148637143997876`43.\
-91548542410323*^-14, 0``58.69897000433602, 0``57.510933829744076,
- 0``57.378823718224965}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732532137658*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a47ea919-d889-4618-85d8-f187d6005351"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732532146809*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"527159e9-61f7-4c15-bdac-4efa001628ed"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "154.1828874354550293901`10."}], ",",
- RowBox[{"S", "\[Rule]", "174724.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "37289.5736068996402151145`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "37289.5736068996402151145`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "64448.446948020202285079`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "64448.446948020202285079`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "60002.0411098396661134308`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "418.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "244.9531406408982258866`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.07306609783330803791409852938356744967`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "137.2272235528234121173`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "214.0726654759071096565`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732532156246*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"394b5eeb-b809-4976-8a39-002c5766c2df"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "191.39880952380955`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 191.39880952380955`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732541943181*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"06569e55-e864-4dc4-b90a-2f25aa6689c5"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"210.`", ",", "0.`", ",", "0.`", ",", "210.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"210.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "210.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"155.18420890569223`", ",", "0.`", ",",
- RowBox[{"-", "155.18420890569223`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"138.22590208258615`", ",",
- RowBox[{"-", "10.`"}], ",", "137.86370083000347`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {210., 0., 0., 210.}, $CellContext`p2 -> {
- 210., 0., 0., -210.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {155.18420890569223`,
- 0., -155.18420890569223`, 0.}, $CellContext`p5 -> {
- 138.22590208258615`, -10., 137.86370083000347`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797325419532013`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"12da7882-8b52-48ec-bf3d-d5aaf2ecc7ea"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "1.453654361579060748769997376229502506723074240156278449834192991`43.\
-23818186963349*^-14", ",", "0``58.69897000433602", ",",
- "0``57.50812247771046", ",", "0``57.3767507096021"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.453654361579060748769997376229502506723074240156278449834192991`43.\
-23818186963349*^-14, 0``58.69897000433602, 0``57.50812247771046,
- 0``57.3767507096021}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732541963172*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"3593c211-cf6d-4875-8fbc-2a5a3c371c5c"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732541972044*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5650013a-3601-4a38-8d45-2988a3e180d1"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "155.1842089056922304735`10."}], ",",
- RowBox[{"S", "\[Rule]", "176400.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "37542.7533849230834697323`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "37542.7533849230834697323`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "65177.3677403907367988722`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "65177.3677403907367988722`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "60290.2422506276365185554`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "420.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "245.5407140386857238614`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0725354095370671125922395115741934374`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "138.2259020825861567541`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "214.5816034035036613517`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797325419811563`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"077bed31-a8a0-4f3b-bb44-e8be3d510679"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "192.48696682464455`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 192.48696682464455`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732551875956*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"3500e032-9a58-4f06-a85e-3daf7c94616a"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"211.`", ",", "0.`", ",", "0.`", ",", "211.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"211.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "211.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"156.18551136809566`", ",", "0.`", ",",
- RowBox[{"-", "156.18551136809566`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"139.2245996201827`", ",",
- RowBox[{"-", "10.`"}], ",", "138.8650032924069`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {211., 0., 0., 211.}, $CellContext`p2 -> {
- 211., 0., 0., -211.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {156.18551136809566`,
- 0., -156.18551136809566`, 0.}, $CellContext`p5 -> {
- 139.2245996201827, -10., 138.8650032924069, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732551886376*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d50baea9-a41b-4ca5-8a0e-c3ac1ab17851"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.590446787330551623918652040008630013845555040891394592493654362`\
-43.27517669657233*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.505329260484444", ",", "0``57.37468754903833"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.590446787330551623918652040008630013845555040891394592493654362`43.\
-27517669657233*^-14, 0``58.69897000433602, 0``57.505329260484444,
- 0``57.37468754903833}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732551896106*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"42e6619e-45ef-43c4-b814-8d38462160f4"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732551905497*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"be1bdd03-678a-43d2-9fb1-62ac0f37565e"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "156.1855113680956606004`10."}], ",",
- RowBox[{"S", "\[Rule]", "178084.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "37795.9331629465267243501`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "37795.9331629465267243501`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "65910.2857973363687733581`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "65910.2857973363687733581`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "60578.4379205657954240027`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "422.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "246.1268736253028413379`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.07201238442304345607881576225803881346`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "139.2245996201826961863`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "215.0893498184585939867`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973255191506*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5ce16abd-58f2-402e-8f23-c13d86c45e27"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "193.57429245283018`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 193.57429245283018`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732561710025*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d7138dda-e4ae-4559-a356-dbcf805e1f10"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"212.`", ",", "0.`", ",", "0.`", ",", "212.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"212.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "212.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"157.18679522984579`", ",", "0.`", ",",
- RowBox[{"-", "157.18679522984579`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"140.22331575843265`", ",",
- RowBox[{"-", "10.`"}], ",", "139.86628715415702`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {212., 0., 0., 212.}, $CellContext`p2 -> {
- 212., 0., 0., -212.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {157.18679522984579`,
- 0., -157.18679522984579`, 0.}, $CellContext`p5 -> {
- 140.22331575843265`, -10., 139.86628715415702`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732561720092*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d67664f0-13b3-4fe3-9cc0-8440ecc16b2c"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "6.417695700744836920180769354736408427140978070874782450764167647`43.\
-87898326863297*^-14", ",", "0``58.69897000433602", ",",
- "0``57.502553944818935", ",", "0``57.37263414340727"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 6.417695700744836920180769354736408427140978070874782450764167647`43.\
-87898326863297*^-14, 0``58.69897000433602, 0``57.502553944818935,
- 0``57.37263414340727}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732561729837*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5c871143-e628-47da-8cad-e44a462fd279"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732561739092*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2fd7c658-a9b8-4994-bc5b-f248c59ab350"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "157.1867952298457851157`10."}], ",",
- RowBox[{"S", "\[Rule]", "179776.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "38049.1129409699699789679`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "38049.1129409699699789679`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "66647.2011774546128890506`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "66647.2011774546128890506`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "60866.6282368491477378255`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "424.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "246.7116297154415615852`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.07149685748773940119967187006138703096`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "140.2233157584326517524`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "215.5959128673148304319`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797325617485733`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"438fcc46-b505-4180-9b30-f072bea7e4ef"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "194.66079812206573`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 194.66079812206573`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732571504401*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"62b72bf9-b4b6-4aaf-997b-e957f360894a"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"213.`", ",", "0.`", ",", "0.`", ",", "213.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"213.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "213.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"158.18806088657536`", ",", "0.`", ",",
- RowBox[{"-", "158.18806088657536`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"141.22205010170302`", ",",
- RowBox[{"-", "10.`"}], ",", "140.8675528108866`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {213., 0., 0., 213.}, $CellContext`p2 -> {
- 213., 0., 0., -213.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {158.18806088657536`,
- 0., -158.18806088657536`, 0.}, $CellContext`p5 -> {
- 141.22205010170302`, -10., 140.8675528108866, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732571514427*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"256a54d4-c52f-4000-bf1b-2e5adbb56dd5"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "1.467426224793141320743933053082938729183041220830627705857861439`43.\
-23611668144213*^-14", ",", "0``58.69897000433602", ",", "0``57.4997963019553",
- ",", "0``57.370590400897285"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.467426224793141320743933053082938729183041220830627705857861439`43.\
-23611668144213*^-14, 0``58.69897000433602, 0``57.4997963019553,
- 0``57.370590400897285}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732571524135*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"4e8c2fe3-ffba-4c62-9ca5-793e9bcc77c4"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797325715335827`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8ad75135-f258-4794-bbd9-b9ea2e13fcb2"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "158.1880608865753572445`10."}], ",",
- RowBox[{"S", "\[Rule]", "181476.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "38302.2927189934132335856`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "38302.2927189934132335856`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "67388.1139376811021861613`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "67388.1139376811021861613`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "61154.813313349026694835`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "426.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "247.2949924954992425591`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.07098866843683235956706455014828212515`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "141.2220501017030301209`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "216.101300608390146467`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732571543096*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b1d42fbc-9559-4156-88f8-b077d1b60abc"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "195.7464953271028`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 195.7464953271028}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732581292021*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"94d5408b-2cd1-4e1d-98dc-3e8410356d0a"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"214.`", ",", "0.`", ",", "0.`", ",", "214.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"214.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "214.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"159.18930872277627`", ",", "0.`", ",",
- RowBox[{"-", "159.18930872277627`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"142.22080226550213`", ",",
- RowBox[{"-", "10.`"}], ",", "141.8688006470875`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {214., 0., 0., 214.}, $CellContext`p2 -> {
- 214., 0., 0., -214.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {159.18930872277627`,
- 0., -159.18930872277627`, 0.}, $CellContext`p5 -> {
- 142.22080226550213`, -10., 141.8688006470875, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797325813019648`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"2df9fca4-8775-4d0d-a139-d4d6d8e948f1"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "3.010583482964391281960498329241566392767020399002680917177803429`43.\
-54617690994459*^-14", ",", "0``58.69897000433602", ",",
- "0``57.49705610750861", ",", "0``57.368556230986826"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 3.010583482964391281960498329241566392767020399002680917177803429`43.\
-54617690994459*^-14, 0``58.69897000433602, 0``57.49705610750861,
- 0``57.368556230986826}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732581311379*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6a538ff1-df3f-42bc-b04a-80121f884a9a"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732581320649*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d5b34743-0d6d-4d0d-bf8b-f05e73656b96"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "159.1893087227762748626`10."}], ",",
- RowBox[{"S", "\[Rule]", "183184.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "38555.4724970168564882034`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "38555.4724970168564882034`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "68133.024133348245641173`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "68133.024133348245641173`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "61442.9932607301956954008`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "428.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "247.8769720259027928071`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.07048766151816548241413677650547481508`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "142.2208022655021279344`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "216.6055210129777022236`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732581330285*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"dda4d1bd-8507-4856-9a0e-329f4b1940a8"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "196.83139534883722`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 196.83139534883722`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732591679929*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"17fd4168-9397-4c3b-a3d5-d7206fea9b4f"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"215.`", ",", "0.`", ",", "0.`", ",", "215.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"215.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "215.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"160.19053911218865`", ",", "0.`", ",",
- RowBox[{"-", "160.19053911218865`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"143.21957187608976`", ",",
- RowBox[{"-", "10.`"}], ",", "142.87003103649988`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {215., 0., 0., 215.}, $CellContext`p2 -> {
- 215., 0., 0., -215.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {160.19053911218865`,
- 0., -160.19053911218865`, 0.}, $CellContext`p5 -> {
- 143.21957187608976`, -10., 142.87003103649988`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732591687599*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a14fea95-0308-4c38-96f6-b6ca710a4a8e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "1.80978887981847983440149229495342366920239317747480297368403574`43.\
-323129464135235*^-14", ",", "0``58.69897000433602", ",",
- "0``57.49433314135622", ",", "0``57.36653154442041"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.80978887981847983440149229495342366920239317747480297368403574`43.\
-323129464135235*^-14, 0``58.69897000433602, 0``57.49433314135622,
- 0``57.36653154442041}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797325916946783`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cf220ff5-2697-46ff-9a66-717d3b5a12a9"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797325917019053`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7a7b1637-4bd2-4d5a-9146-bf0bc26b03c8"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "160.1905391121886452765`10."}], ",",
- RowBox[{"S", "\[Rule]", "184900.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "38808.6522750402997428212`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "38808.6522750402997428212`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "68881.931818241117468915`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "68881.931818241117468915`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "61731.1681865628292395286`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "430.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "248.4575782433750384146`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06999368536180439003053741827675679905`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "143.2195718760897455124`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "217.1085819665306893005`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732591709029*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c46755d2-9256-4b3b-b340-9f24951244fe"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "197.91550925925924`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 197.91550925925924`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797326022471247`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"82e83a70-b383-4fab-970b-c756be31cd77"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"216.`", ",", "0.`", ",", "0.`", ",", "216.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"216.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "216.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"161.1917524181742`", ",", "0.`", ",",
- RowBox[{"-", "161.1917524181742`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"144.2183585701042`", ",",
- RowBox[{"-", "10.`"}], ",", "143.87124434248543`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {216., 0., 0., 216.}, $CellContext`p2 -> {
- 216., 0., 0., -216.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {161.1917524181742,
- 0., -161.1917524181742, 0.}, $CellContext`p5 -> {
- 144.2183585701042, -10., 143.87124434248543`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732602255362*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5f215e0e-7407-4713-ba98-24a2b998e828"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "2.20823036963017572605571881866616249645321977076369009788644365`\
-42.40753063592624*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.49162718753016", ",", "0``57.364516253185094"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.20823036963017572605571881866616249645321977076369009788644365`42.\
-40753063592624*^-15, 0``58.69897000433602, 0``57.49162718753016,
- 0``57.364516253185094}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732602262801*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5ab0ea8f-ed68-4f51-b81d-6416c7f6a6f3"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732602270338*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c8e494ef-f3d2-4453-b752-173bd41ac2e5"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "161.1917524181741896427`10."}], ",",
- RowBox[{"S", "\[Rule]", "186624.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "39061.8320530637429974389`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "39061.8320530637429974389`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "69634.8370446512499256642`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "69634.8370446512499256642`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "62019.3381954299864831409`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "432.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "249.0368209631459025928`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06950659282681260191086464642021422558`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "144.2183585701041808402`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "217.6104912698317009906`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732602278055*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c1643572-d3f4-47a9-a9bd-1811938e55b8"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "198.99884792626727`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 198.99884792626727`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797326132885647`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ef9231d1-6a51-4693-ab28-429b55a19f22"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"217.`", ",", "0.`", ",", "0.`", ",", "217.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"217.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "217.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"162.19294899407396`", ",", "0.`", ",",
- RowBox[{"-", "162.19294899407396`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"145.21716199420442`", ",",
- RowBox[{"-", "10.`"}], ",", "144.8724409183852`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {217., 0., 0., 217.}, $CellContext`p2 -> {
- 217., 0., 0., -217.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {162.19294899407396`,
- 0., -162.19294899407396`, 0.}, $CellContext`p5 -> {
- 145.21716199420442`, -10., 144.8724409183852, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732613323546*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5a7545ea-a428-4e75-9324-2cae5b07124e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "2.29215827621249047540673630992091825154865650036637863510627351`\
-42.421724877696704*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.48893803411271", ",", "0``57.36251027048749"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.29215827621249047540673630992091825154865650036637863510627351`42.\
-421724877696704*^-15, 0``58.69897000433602, 0``57.48893803411271,
- 0``57.36251027048749}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732613336946*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d9e11f9d-64cc-49ea-9a74-548043a81b4e"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732613343707*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"69568202-3fac-487f-b99e-46a3c72aa4b9"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "162.1929489940739586018`10."}], ",",
- RowBox[{"S", "\[Rule]", "188356.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "39315.0118310871862520567`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "39315.0118310871862520567`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "70391.7398634280980331823`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "70391.7398634280980331823`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "62307.5033890305692361995`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "434.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "249.614709881109709484`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06902624085441870777528276711825249841`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "145.2171619942044117971`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "218.1112566401463899639`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732613353973*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c741d9e2-5770-469d-b72f-03b13209d3c8"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "200.08142201834863`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 200.08142201834863`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732624486681*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"3ebd8ce9-17c6-4790-934e-56a4aa248b1d"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"218.`", ",", "0.`", ",", "0.`", ",", "218.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"218.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "218.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"163.1941291835514`", ",", "0.`", ",",
- RowBox[{"-", "163.1941291835514`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"146.21598180472705`", ",",
- RowBox[{"-", "10.`"}], ",", "145.87362110786265`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {218., 0., 0., 218.}, $CellContext`p2 -> {
- 218., 0., 0., -218.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {163.1941291835514,
- 0., -163.1941291835514, 0.}, $CellContext`p5 -> {
- 146.21598180472705`, -10., 145.87362110786265`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797326244966784`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cb9b268a-c8ba-4bfd-bed7-cc81052d62db"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "7.556243270885371607814480856763744441417183640356733681964990949`43.\
-937789446517115*^-14", ",", "0``58.69897000433602", ",",
- "0``57.48626547313539", ",", "0``57.36051351073141"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 7.556243270885371607814480856763744441417183640356733681964990949`43.\
-937789446517115*^-14, 0``58.69897000433602, 0``57.48626547313539,
- 0``57.36051351073141}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732624507288*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e1dfa275-461b-4c51-85c9-a87942b6232a"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732624516321*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7f335dde-5351-418c-8985-91986292c81e"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "163.1941291835514107333`10."}], ",",
- RowBox[{"S", "\[Rule]", "190096.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "39568.1916091106295066745`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "39568.1916091106295066745`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "71152.6403240284150797379`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "71152.6403240284150797379`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "62595.6638662780670759542`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "436.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "250.191254575930505437`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06855249032726587054197050260508771291`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "146.2159818047270375202`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "218.6108857123615678167`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732624524351*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0d28450b-d783-4640-8afc-8e92362cc053"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "201.1632420091324`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 201.1632420091324}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732635103713*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"27b61f5a-ef4b-4944-b7bf-8214303eb6b4"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"219.`", ",", "0.`", ",", "0.`", ",", "219.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"219.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "219.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"164.19529332092134`", ",", "0.`", ",",
- RowBox[{"-", "164.19529332092134`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"147.21481766735707`", ",",
- RowBox[{"-", "10.`"}], ",", "146.87478524523257`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {219., 0., 0., 219.}, $CellContext`p2 -> {
- 219., 0., 0., -219.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {164.19529332092134`,
- 0., -164.19529332092134`, 0.}, $CellContext`p5 -> {
- 147.21481766735707`, -10., 146.87478524523257`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797326351126947`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1b9f2538-9721-44ef-9cf5-b94b342fea0a"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "2.748511498670481533197596784861970703255423666045712766546800532`43.\
-49659345205151*^-14", ",", "0``58.69897000433602", ",",
- "0``57.48360930048104", ",", "0``57.3585258894959"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 2.748511498670481533197596784861970703255423666045712766546800532`43.\
-49659345205151*^-14, 0``58.69897000433602, 0``57.48360930048104,
- 0``57.3585258894959}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797326351215343`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a3a20756-f90b-40bf-9a6f-a29c5dede57c"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732635129795*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a612c2a1-7ce0-4f21-8f83-9ade9573b8a9"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "164.1952933209213369992`10."}], ",",
- RowBox[{"S", "\[Rule]", "191844.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "39821.3713871340727612923`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "39821.3713871340727612923`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "71917.5384745635456056334`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "71917.5384745635456056334`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "62883.819723395228641419`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "438.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "250.7664645110969152163`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06808520593445151510435622218639190849`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "147.2148176673570631771`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "219.1093860401076561783`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797326351396437`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"dc5345fd-8c42-47f0-bd3f-6a4fa04118ff"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "202.24431818181816`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 202.24431818181816`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732645446904*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e6a86ef3-2c96-4089-92ad-ee138afec414"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"220.`", ",", "0.`", ",", "0.`", ",", "220.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"220.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "220.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"165.1964417314659`", ",", "0.`", ",",
- RowBox[{"-", "165.1964417314659`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"148.2136692568125`", ",",
- RowBox[{"-", "10.`"}], ",", "147.87593365577715`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {220., 0., 0., 220.}, $CellContext`p2 -> {
- 220., 0., 0., -220.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {165.1964417314659,
- 0., -165.1964417314659, 0.}, $CellContext`p5 -> {
- 148.2136692568125, -10., 147.87593365577715`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732645455339*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"aaffec28-065f-4495-997a-dcdfb3d37b3a"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "1.936544294448554840685984545033080579404499093798268664095320931`43.\
-34254476287427*^-14", ",", "0``58.69897000433602", ",",
- "0``57.480969315788904", ",", "0``57.35654732351381"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.936544294448554840685984545033080579404499093798268664095320931`43.\
-34254476287427*^-14, 0``58.69897000433602, 0``57.480969315788904,
- 0``57.35654732351381}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732645462741*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e3bdfea6-b051-4a9e-9d7a-cd052347554a"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732645470697*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"77399f66-d8c0-4635-8d68-52dcfbf2e2fb"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "165.1964417314659101521`10."}], ",",
- RowBox[{"S", "\[Rule]", "193600.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "40074.55116515751601591`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "40074.55116515751601591`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "72686.4343618450004669285`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "72686.4343618450004669285`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "63171.9710540050272252303`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "440.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "251.3403490369284643268`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06762425604208062015274701315861198249`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "148.2136692568124819045`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "219.6067650968658335733`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732645477594*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"36df6363-c808-40f5-8660-650d4b0ce4a8"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "203.32466063348417`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 203.32466063348417`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797326551822443`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"66bc7336-3921-47bf-83a4-1aa7eb8b4159"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"221.`", ",", "0.`", ",", "0.`", ",", "221.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"221.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "221.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"166.19757473173743`", ",", "0.`", ",",
- RowBox[{"-", "166.19757473173743`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"149.21253625654097`", ",",
- RowBox[{"-", "10.`"}], ",", "148.87706665604867`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {221., 0., 0., 221.}, $CellContext`p2 -> {
- 221., 0., 0., -221.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {166.19757473173743`,
- 0., -166.19757473173743`, 0.}, $CellContext`p5 -> {
- 149.21253625654097`, -10., 148.87706665604867`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732655189913*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"17502234-28e5-44d7-8e44-a36fe2455a0d"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "3.741454754686821426246125256767138854575006894338775350599475847`43.\
-62658823266607*^-14", ",", "0``58.69897000433602", ",",
- "0``57.478345322362706", ",", "0``57.35457773065091"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 3.741454754686821426246125256767138854575006894338775350599475847`43.\
-62658823266607*^-14, 0``58.69897000433602, 0``57.478345322362706,
- 0``57.35457773065091}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732655197184*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9f92d565-2e84-41f9-a00e-31d24d2e84e5"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797326552041693`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f1683701-c140-4ac7-b873-e5596c95e186"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "166.1975747317374327849`10."}], ",",
- RowBox[{"S", "\[Rule]", "195364.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "40327.7309431809592705278`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "40327.7309431809592705278`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "73459.3280314279452909432`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "73459.3280314279452909432`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "63460.1179492177979575029`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "442.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "251.9129173925342756509`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06716951256907179576137825361844365746`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "149.2125362565409773207`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "220.1030302770594070863`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732655211349*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"76be098c-caa1-4ae0-afdc-947c476e291a"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "204.40427927927928`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 204.40427927927928`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732665049487*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0035d210-f612-4e86-92ce-ca3c62accf22"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"222.`", ",", "0.`", ",", "0.`", ",", "222.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"222.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "222.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"167.1986926298493`", ",", "0.`", ",",
- RowBox[{"-", "167.1986926298493`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"150.21141835842906`", ",",
- RowBox[{"-", "10.`"}], ",", "149.87818455416053`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {222., 0., 0., 222.}, $CellContext`p2 -> {
- 222., 0., 0., -222.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {167.1986926298493,
- 0., -167.1986926298493, 0.}, $CellContext`p5 -> {
- 150.21141835842906`, -10., 149.87818455416053`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797326650574303`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c7e1aabd-3cbc-4760-90e7-b08a5a4aeab8"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.744901048546569712356811457614876625175055053876271719033396813`\
-43.293357837844*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.47573712708148", ",", "0``57.35261702988538"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.744901048546569712356811457614876625175055053876271719033396813`43.\
-293357837844*^-14, 0``58.69897000433602, 0``57.47573712708148,
- 0``57.35261702988538}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732665064637*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5f85dbcc-aece-48c6-a91c-671c172150d5"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732665071619*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5db185b4-a737-4533-9efa-89136fdaf024"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "167.1986926298492903697`10."}], ",",
- RowBox[{"S", "\[Rule]", "197136.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "40580.9107212044025251456`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "40580.9107212044025251456`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "74236.2195276530849241681`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "74236.2195276530849241681`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "63748.2604977149801407085`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "444.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "252.484178707726120644`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06672085086796847471369317903418107835`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "150.2114183584290648724`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "220.5981888971299340115`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732665078763*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"4d1fb91d-abd3-4ad5-b0d1-20b45cea5fc5"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "205.48318385650225`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 205.48318385650225`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797326748346987`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0f4c54dd-b23e-4b18-9faf-c0e9ac8b6227"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"223.`", ",", "0.`", ",", "0.`", ",", "223.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"223.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "223.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"168.19979572575548`", ",", "0.`", ",",
- RowBox[{"-", "168.19979572575548`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"151.21031526252293`", ",",
- RowBox[{"-", "10.`"}], ",", "150.87928765006671`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {223., 0., 0., 223.}, $CellContext`p2 -> {
- 223., 0., 0., -223.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {168.19979572575548`,
- 0., -168.19979572575548`, 0.}, $CellContext`p5 -> {
- 151.21031526252293`, -10., 150.87928765006671`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732674842081*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b7a7f1b1-aea2-4fa7-8f22-1d26b3ab51db"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "2.493984003478425513111582470128669387920422430301144183019237087`43.\
-4465288091917*^-14", ",", "0``58.69897000433602", ",", "0``57.47314454031307",
- ",", "0``57.35066514128786"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 2.493984003478425513111582470128669387920422430301144183019237087`43.\
-4465288091917*^-14, 0``58.69897000433602, 0``57.47314454031307,
- 0``57.35066514128786}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732674848844*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"546847d3-8128-48d1-9c9d-b117cabb6adc"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732674856604*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"647e9acd-d51b-4e09-9cff-cc4aa737a164"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "168.1997957257554787702`10."}], ",",
- RowBox[{"S", "\[Rule]", "198916.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "40834.0904992278457797633`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "40834.0904992278457797633`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "75017.1088936869435315202`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "75017.1088936869435315202`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "64036.398785829571080245`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "446.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "253.0541420048871104434`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0662781496105213011369309159471006302`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "151.2103152625229188607`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "221.0922481965980796281`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732674863743*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"30aabbcb-d674-4975-84aa-17dcece6d54b"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "206.56138392857142`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 206.56138392857142`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732684655389*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d58f46a8-b7ed-463a-995d-ad286c7c990a"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"224.`", ",", "0.`", ",", "0.`", ",", "224.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"224.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "224.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"169.20088431151865`", ",", "0.`", ",",
- RowBox[{"-", "169.20088431151865`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"152.20922667675976`", ",",
- RowBox[{"-", "10.`"}], ",", "151.88037623582989`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {224., 0., 0., 224.}, $CellContext`p2 -> {
- 224., 0., 0., -224.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {169.20088431151865`,
- 0., -169.20088431151865`, 0.}, $CellContext`p5 -> {
- 152.20922667675976`, -10., 151.88037623582989`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797326846629667`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"11885655-5e60-49a0-826c-c17809e604d3"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "4.226488559607924963950862983912956914691750847060485814298782261`43.\
-673671688089186*^-14", ",", "0``58.69897000433602", ",",
- "0``57.47056737583036", ",", "0``57.348721986001856"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 4.226488559607924963950862983912956914691750847060485814298782261`43.\
-673671688089186*^-14, 0``58.69897000433602, 0``57.47056737583036,
- 0``57.348721986001856}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732684669984*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8682de5e-2172-425b-b638-4cfc42dc5880"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732684676813*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e1d7bb71-165c-4dad-ab54-1f980443010e"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "169.2008843115186493833`10."}], ",",
- RowBox[{"S", "\[Rule]", "200704.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "41087.2702772512890343811`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "41087.2702772512890343811`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "75801.996171560354923713`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "75801.996171560354923713`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "64324.5328976232750499772`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "448.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "253.6228162007970351722`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06584129067782039566633592672721478617`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "152.2092266767597655727`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "221.5852153391090163764`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732684683717*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c0ab5618-5768-43a2-81fb-f361e533cfd6"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "207.63888888888889`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 207.63888888888889`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732694389037*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f13d7c90-a790-4e98-8beb-77ae41e91fc9"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"225.`", ",", "0.`", ",", "0.`", ",", "225.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"225.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "225.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"170.20195867156812`", ",", "0.`", ",",
- RowBox[{"-", "170.20195867156812`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"153.20815231671028`", ",",
- RowBox[{"-", "10.`"}], ",", "152.88145059587936`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {225., 0., 0., 225.}, $CellContext`p2 -> {
- 225., 0., 0., -225.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {170.20195867156812`,
- 0., -170.20195867156812`, 0.}, $CellContext`p5 -> {
- 153.20815231671028`, -10., 152.88145059587936`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732694396755*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b6420b48-d636-47c6-86b3-a2bebc706bf2"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "3.02284991097175327795790023519202466001211411128996309167036244`43.\
-52617407490191*^-14", ",", "0``58.69897000433602", ",",
- "0``57.468005450729876", ",", "0``57.346787486224656"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 3.02284991097175327795790023519202466001211411128996309167036244`43.\
-52617407490191*^-14, 0``58.69897000433602, 0``57.468005450729876,
- 0``57.346787486224656}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732694404381*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"eced28e0-2ac3-45d7-96ef-49d9ced03644"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732694411364*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8e2073db-7561-4ec4-bb8f-df4fb5535662"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "170.2019586715681214173`10."}], ",",
- RowBox[{"S", "\[Rule]", "202500.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "41340.4500552747322889989`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "41340.4500552747322889989`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "76590.8814022056546377826`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "76590.8814022056546377826`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "64612.6629149607645910579`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "450.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "254.1902101084161828642`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06541015905476718750600558698856411314`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "153.2081523167102815023`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "222.0770974134629391099`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732694418456*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"04991ebc-9cac-4a8a-bdfd-182a21555f62"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "208.71570796460176`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 208.71570796460176`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732704104632*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8563d433-1218-4e92-ab82-54db089b0165"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"226.`", ",", "0.`", ",", "0.`", ",", "226.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"226.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "226.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"171.2030190829476`", ",", "0.`", ",",
- RowBox[{"-", "171.2030190829476`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"154.2070919053308`", ",",
- RowBox[{"-", "10.`"}], ",", "153.88251100725884`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {226., 0., 0., 226.}, $CellContext`p2 -> {
- 226., 0., 0., -226.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {171.2030190829476,
- 0., -171.2030190829476, 0.}, $CellContext`p5 -> {
- 154.2070919053308, -10., 153.88251100725884`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732704111891*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"873391fa-7cb8-4c84-b35b-9867e810089f"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "1.928825873947412516918271348432168389803312569451655378414166721`43.\
-32912459271175*^-14", ",", "0``58.69897000433602", ",",
- "0``57.46545858535293", ",", "0``57.344861565188616"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.928825873947412516918271348432168389803312569451655378414166721`43.\
-32912459271175*^-14, 0``58.69897000433602, 0``57.46545858535293,
- 0``57.344861565188616}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732704118936*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"adc4c956-97c7-46a4-8616-0e3cb3701460"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797327041255608`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"52252aa1-5332-4550-a898-1d3e86352da8"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "171.2030190829476055114`10."}], ",",
- RowBox[{"S", "\[Rule]", "204304.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "41593.6298332981755436167`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "41593.6298332981755436167`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "77383.7646254923176911689`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "77383.7646254923176911689`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "64900.7889175809805207985`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "452.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "254.7563324386284622916`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06498464272868726036327036445938877148`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "154.2070919053307864679`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "222.5679014346304507336`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732704132718*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f83ffdf5-2458-4eaf-9b12-f3cff1424ac9"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "209.79185022026434`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 209.79185022026434`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797327138992167`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8bdc598a-20fd-4eb8-abde-4729f3f70175"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"227.`", ",", "0.`", ",", "0.`", ",", "227.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"227.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "227.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"172.20406581555335`", ",", "0.`", ",",
- RowBox[{"-", "172.20406581555335`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"155.20604517272503`", ",",
- RowBox[{"-", "10.`"}], ",", "154.88355773986459`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {227., 0., 0., 227.}, $CellContext`p2 -> {
- 227., 0., 0., -227.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {172.20406581555335`,
- 0., -172.20406581555335`, 0.}, $CellContext`p5 -> {
- 155.20604517272503`, -10., 154.88355773986459`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732713907057*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0ad4282f-68af-4930-8e21-c6ed0955ceea"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "1.142019599932291044406278863840285107780339237910529989218459097`43.\
-099587709039696*^-14", ",", "0``58.69897000433602", ",", "0``57.462926603209",
- ",", "0``57.342944147142894"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.142019599932291044406278863840285107780339237910529989218459097`43.\
-099587709039696*^-14, 0``58.69897000433602, 0``57.462926603209,
- 0``57.342944147142894}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732713914384*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"b3583bfc-8058-41f4-a7ce-ec64e2e7bb29"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797327139214087`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5dc8c56c-0caa-421b-b10e-5b570b844444"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "172.2040658155533492391`10."}], ",",
- RowBox[{"S", "\[Rule]", "206116.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "41846.8096113216187982344`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "41846.8096113216187982344`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "78180.6458802612205545302`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "78180.6458802612205545302`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "65188.9109831656751605623`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "454.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "255.3211918019451732807`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06456463259189557134969491467485544092`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "155.2060451727250348723`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "223.0576343447530722226`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797327139285593`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"46958bac-6bf9-4d22-a62a-969d320b2d70"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "210.8673245614035`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 210.8673245614035}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797327237026157`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7bd644c0-080a-465c-aef0-fa0f54f9a439"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"228.`", ",", "0.`", ",", "0.`", ",", "228.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"228.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "228.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"173.20509913236316`", ",", "0.`", ",",
- RowBox[{"-", "173.20509913236316`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"156.2050118559152`", ",",
- RowBox[{"-", "10.`"}], ",", "155.8845910566744`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {228., 0., 0., 228.}, $CellContext`p2 -> {
- 228., 0., 0., -228.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {173.20509913236316`,
- 0., -173.20509913236316`, 0.}, $CellContext`p5 -> {
- 156.2050118559152, -10., 155.8845910566744, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732723710458*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f7d8d3de-c86c-4bb0-9932-5e7e52c47009"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "1.387217567618385232835756960925449290548070546962050835557012188`\
-43.18214974171102*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.46040933090153", ",", "0``57.34103515733556"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.387217567618385232835756960925449290548070546962050835557012188`43.\
-18214974171102*^-14, 0``58.69897000433602, 0``57.46040933090153,
- 0``57.34103515733556}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973272371767*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cfb34a16-b81e-475c-a7c5-14e875de8bd7"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797327237247257`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8e537388-f10a-468b-acf2-618bb81166af"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "173.2050991323631592422`10."}], ",",
- RowBox[{"S", "\[Rule]", "207936.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "42099.9893893450620528522`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "42099.9893893450620528522`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "78981.5252043576006144576`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "78981.5252043576006144576`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "65477.0291874053296684264`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "456.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "255.8847967101705901356`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06415002234803526444667974834586529117`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "156.2050118559151995767`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "223.5463030141290234733`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732723732188*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7190208d-f1cf-43c1-b41f-5894ed8f1486"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "211.94213973799125`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 211.94213973799125`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732733524427*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"f232c1df-2aee-43d1-9a02-7003263bb1fd"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"229.`", ",", "0.`", ",", "0.`", ",", "229.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"229.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "229.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"174.20611928965673`", ",", "0.`", ",",
- RowBox[{"-", "174.20611928965673`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"157.20399169862165`", ",",
- RowBox[{"-", "10.`"}], ",", "156.88561121396796`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {229., 0., 0., 229.}, $CellContext`p2 -> {
- 229., 0., 0., -229.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {174.20611928965673`,
- 0., -174.20611928965673`, 0.}, $CellContext`p5 -> {
- 157.20399169862165`, -10., 156.88561121396796`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797327335325403`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"da0a7311-24df-4658-9718-53fddc40def7"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "1.191155698045093013823161792734547596792751351514535980892678209`43.\
-1140730589168*^-14", ",", "0``58.69897000433602", ",",
- "0``57.457906598055565", ",", "0``57.33913452199613"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.191155698045093013823161792734547596792751351514535980892678209`43.\
-1140730589168*^-14, 0``58.69897000433602, 0``57.457906598055565,
- 0``57.33913452199613}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732733539749*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e13b2837-056d-4ad8-b43c-e992909366da"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732733546793*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"af372319-2bc2-4dc0-b0d0-0f8b0ae6941a"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "174.2061192896567263233`10."}], ",",
- RowBox[{"S", "\[Rule]", "209764.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "42353.16916736850530747`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "42353.16916736850530747`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "79786.4026346627806560718`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "79786.4026346627806560718`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "65765.143604062568181995`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "458.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "256.4471555780304773665`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06374070842202049410023542676943825837`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "157.2039916986216582794`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "224.0339142421844252341`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797327335541573`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"fe7a7799-1968-4819-95f3-94a4b7e31205"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "213.0163043478261`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 213.0163043478261}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797327437388906`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"25e2ab7e-1d61-4edf-bcc2-ef359f4462e1"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"230.`", ",", "0.`", ",", "0.`", ",", "230.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"230.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "230.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"175.20712653722742`", ",", "0.`", ",",
- RowBox[{"-", "175.20712653722742`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"158.20298445105098`", ",",
- RowBox[{"-", "10.`"}], ",", "157.88661846153866`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {230., 0., 0., 230.}, $CellContext`p2 -> {
- 230., 0., 0., -230.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {175.20712653722742`,
- 0., -175.20712653722742`, 0.}, $CellContext`p5 -> {
- 158.20298445105098`, -10., 157.88661846153866`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732743749116*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e4cbc629-0138-4ba7-83d1-74549b13cef2"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "2.962108601180817656806943482264579950923354693654296541886918446`43.\
-507813149874394*^-14", ",", "0``58.69897000433602", ",",
- "0``57.45541823724798", ",", "0``57.33724216831843"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 2.962108601180817656806943482264579950923354693654296541886918446`43.\
-507813149874394*^-14, 0``58.69897000433602, 0``57.45541823724798,
- 0``57.33724216831843}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732743758811*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9524a21f-2461-4e3f-8877-7f3b7a59cf76"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973274376842*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ac967fa4-497b-49dd-b8e6-eb2714f34652"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "175.2071265372274240235`10."}], ",",
- RowBox[{"S", "\[Rule]", "211600.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "42606.3489453919485620878`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "42606.3489453919485620878`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "80595.2782071246150508159`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "80595.2782071246150508159`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "66053.2543050331178535189`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "460.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "257.0082767247644844873`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06333658987342243118597695696189899774`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "158.2029844510509782887`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "224.5204747584299643758`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797327437783327`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"35be8194-04ea-425e-ab75-ab5300e4f518"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "214.08982683982683`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 214.08982683982683`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732754099524*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"dcd51e30-448a-4849-8e4e-28dd4ea5df82"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"231.`", ",", "0.`", ",", "0.`", ",", "231.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"231.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "231.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"176.20812111858632`", ",", "0.`", ",",
- RowBox[{"-", "176.20812111858632`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"159.2019898696921`", ",",
- RowBox[{"-", "10.`"}], ",", "158.88761304289756`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {231., 0., 0., 231.}, $CellContext`p2 -> {
- 231., 0., 0., -231.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {176.20812111858632`,
- 0., -176.20812111858632`, 0.}, $CellContext`p5 -> {
- 159.2019898696921, -10., 158.88761304289756`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797327541078873`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"599d76a4-5a60-4649-92d7-771851436bc6"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "4.876332113313250436748738579227070935711554596587138814022282916`43.\
-722421305313496*^-14", ",", "0``58.69897000433602", ",",
- "0``57.45294408393926", ",", "0``57.33535802444388"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 4.876332113313250436748738579227070935711554596587138814022282916`43.\
-722421305313496*^-14, 0``58.69897000433602, 0``57.45294408393926,
- 0``57.33535802444388}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797327541159887`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e7f3a471-92d1-4622-be50-07e4f528bac4"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797327541236753`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"fa33fa85-aad1-4e83-9e90-005ef45da8ee"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "176.2081211185863196533`10."}], ",",
- RowBox[{"S", "\[Rule]", "213444.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "42859.5287234153918167055`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "42859.5287234153918167055`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "81408.1519567868796798393`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "81408.1519567868796798393`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "66341.3613604045274666542`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "462.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "257.5681683756836584821`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06293756831314554850141721529998992105`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "159.2019898696921018011`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "225.0059912234033569861`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732754131689*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"afb9ec85-39a4-4055-a036-ed6af09813a3"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "215.16271551724137`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 215.16271551724137`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732764156844*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ffaffd0f-c2e4-4c02-a6f6-a2e31cd367e4"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"232.`", ",", "0.`", ",", "0.`", ",", "232.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"232.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "232.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"177.20910327115837`", ",", "0.`", ",",
- RowBox[{"-", "177.20910327115837`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"160.20100771712`", ",",
- RowBox[{"-", "10.`"}], ",", "159.8885951954696`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {232., 0., 0., 232.}, $CellContext`p2 -> {
- 232., 0., 0., -232.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {177.20910327115837`,
- 0., -177.20910327115837`, 0.}, $CellContext`p5 -> {
- 160.20100771712, -10., 159.8885951954696, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732764164456*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"47a06e43-a135-48b2-8151-2c8d32c13135"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "1.39633556373326946546411333185564951906965971142709113719057593`42.\
-177441823132135*^-15", ",", "0``58.69897000433602", ",",
- "0``57.45048397640754", ",", "0``57.33348201944512"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.39633556373326946546411333185564951906965971142709113719057593`42.\
-177441823132135*^-15, 0``58.69897000433602, 0``57.45048397640754,
- 0``57.33348201944512}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732764171479*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7d946498-1ce5-477d-9311-09aefaec5343"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973276417846*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8bab179f-cbbb-48d5-912e-71949d61b066"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "177.2091032711583693526`10."}], ",",
- RowBox[{"S", "\[Rule]", "215296.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "43112.7085014388350713233`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "43112.7085014388350713233`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "82225.023917817483379622`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "82225.023917817483379622`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "66629.4648385126364545019`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "464.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "258.1268386636938542865`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06254354782324929397546873203433159739`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "160.2010077171200047348`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "225.4904702295975834122`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973276418536*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"bb557c46-a780-4229-90c2-b04fa6f3c545"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "216.23497854077254`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 216.23497854077254`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732774089368*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"522773e2-03fb-4c84-9766-17fff383e749"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"233.`", ",", "0.`", ",", "0.`", ",", "233.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"233.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "233.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"178.2100732264715`", ",", "0.`", ",",
- RowBox[{"-", "178.2100732264715`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"161.20003776180687`", ",",
- RowBox[{"-", "10.`"}], ",", "160.88956515078274`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {233., 0., 0., 233.}, $CellContext`p2 -> {
- 233., 0., 0., -233.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {178.2100732264715,
- 0., -178.2100732264715, 0.}, $CellContext`p5 -> {
- 161.20003776180687`, -10., 160.88956515078274`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797327740970373`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"612d3051-9ca7-4b91-be43-4237bb637017"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "9.37445218816107126060117879585878256204390526007898505438719526`43.\
-0025299860607*^-15", ",", "0``58.69897000433602", ",", "0``57.44803775568438",
- ",", "0``57.331614083309994"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 9.37445218816107126060117879585878256204390526007898505438719526`43.\
-0025299860607*^-15, 0``58.69897000433602, 0``57.44803775568438,
- 0``57.331614083309994}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732774104183*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"1100485b-08b0-43d3-a792-bc277ad08d05"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797327741116943`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"350e69e3-e587-4041-bbc6-e695b4aa0d4d"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "178.2100732264715077235`10."}], ",",
- RowBox[{"S", "\[Rule]", "217156.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "43365.8882794622783259411`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "43365.8882794622783259411`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "83045.894123535722599172`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "83045.894123535722599172`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "66917.5648059959988279021`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "466.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "258.6842956307862126497`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06215443487977722066442105834003876223`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "161.200037761806874342`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "225.9739183023752416108`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973277411884*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5417508d-2c45-44c8-bab1-6ab7ee8d9ede"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "217.30662393162396`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 217.30662393162396`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732783947501*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"23681509-062f-4bfe-8997-8a45166a3263"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"234.`", ",", "0.`", ",", "0.`", ",", "234.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"234.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "234.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"179.21103121033843`", ",", "0.`", ",",
- RowBox[{"-", "179.21103121033843`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"162.19907977793997`", ",",
- RowBox[{"-", "10.`"}], ",", "161.89052313464967`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {234., 0., 0., 234.}, $CellContext`p2 -> {
- 234., 0., 0., -234.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {179.21103121033843`,
- 0., -179.21103121033843`, 0.}, $CellContext`p5 -> {
- 162.19907977793997`, -10., 161.89052313464967`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732783955529*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"83655b12-3f35-4c7c-8e94-d5213fa297e1"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- "3.630179396613808556864657470448624418725231310698299810621086712`43.\
-5886522388419*^-14", ",", "0``58.69897000433602", ",", "0``57.44560526549246",
- ",", "0``57.32975414692588"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 3.630179396613808556864657470448624418725231310698299810621086712`43.\
-5886522388419*^-14, 0``58.69897000433602, 0``57.44560526549246,
- 0``57.32975414692588}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732783962508*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"a49cd89a-8663-4dfe-926c-b45c79f54017"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797327839697657`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"28ab2da9-bb06-47c9-a9cc-a1aead2ac5fe"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "179.211031210338433084`10."}], ",",
- RowBox[{"S", "\[Rule]", "219024.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "43619.0680574857215805588`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "43619.0680574857215805588`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "83870.7626064383866832941`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "83870.7626064383866832941`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "67205.6613278482047514707`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "468.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "259.2405472294953414421`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06177013827846285896221089146441799666`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "162.1990797779399759089`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "226.4563419008689356792`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732783976932*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0e20ca25-6098-4214-b911-3e8b10383f3f"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "218.37765957446808`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 218.37765957446808`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732793789155*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"e15af2bb-9ba4-46ec-9dcb-bac04ae5173d"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"235.`", ",", "0.`", ",", "0.`", ",", "235.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"235.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "235.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"180.2119774430319`", ",", "0.`", ",",
- RowBox[{"-", "180.2119774430319`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"163.19813354524644`", ",",
- RowBox[{"-", "10.`"}], ",", "162.89146936734315`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {235., 0., 0., 235.}, $CellContext`p2 -> {
- 235., 0., 0., -235.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {180.2119774430319,
- 0., -180.2119774430319, 0.}, $CellContext`p5 -> {
- 163.19813354524644`, -10., 162.89146936734315`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732793799171*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"17af50c1-17d5-494c-8471-4eda6e2a4fa2"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{
- RowBox[{
- "-", "2.913758809530085472281171704219943912216377225393075893504471841`\
-43.49132574598754*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.443186352184924", ",", "0``57.32790214206428"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.913758809530085472281171704219943912216377225393075893504471841`43.\
-49132574598754*^-14, 0``58.69897000433602, 0``57.443186352184924,
- 0``57.32790214206428}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732793808427*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"5b5b8f78-cf52-43bd-8a9a-c338a8c0748f"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732793817224*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ff89301c-cd6d-4672-9b49-a621543253c4"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "180.2119774430319125713`10."}], ",",
- RowBox[{"S", "\[Rule]", "220900.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "43872.2478355091648351766`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "43872.2478355091648351766`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "84699.6293982249989085176`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "84699.6293982249989085176`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "67493.7544674683369977884`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "470.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "259.7956013243263843652`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06139056906318768367351095823215175003`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "163.1981335452464309822`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "226.9377474188681227193`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732793826355*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"6aaf854e-269a-4c59-8560-c4ded7196189"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "219.448093220339`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 219.448093220339}, "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732803746955*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"953be425-ca47-4f73-b5c8-17488c189978"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"236.`", ",", "0.`", ",", "0.`", ",", "236.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"236.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "236.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"181.21291213945383`", ",", "0.`", ",",
- RowBox[{"-", "181.21291213945383`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"164.19719884882457`", ",",
- RowBox[{"-", "10.`"}], ",", "163.89240406376507`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {236., 0., 0., 236.}, $CellContext`p2 -> {
- 236., 0., 0., -236.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {181.21291213945383`,
- 0., -181.21291213945383`, 0.}, $CellContext`p5 -> {
- 164.19719884882457`, -10., 163.89240406376507`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732803755014*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8cb1cece-35bc-43a4-a8e4-879b366079d2"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
+ RowBox[{"pmppList", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=", "pmpp"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"ppmm", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"tjetsppmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{
- "2.496053520623975737651915528362788396038136245786969938350735136`43.\
-42228189899695*^-14", ",", "0``58.69897000433602", ",",
- "0``57.44078086468659", ",", "0``57.326058001365915"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 2.496053520623975737651915528362788396038136245786969938350735136`43.\
-42228189899695*^-14, 0``58.69897000433602, 0``57.44078086468659,
- 0``57.326058001365915}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732803762527*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"35fd26b0-50d6-4ad2-adba-de1230fea42e"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797328037697563`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"d13cf3b4-eefc-4c54-bee7-d15af87bb603"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "181.2129121394538344703`10."}], ",",
- RowBox[{"S", "\[Rule]", "222784.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "44125.4276135326080897944`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "44125.4276135326080897944`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "85532.4945298222098699625`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "85532.4945298222098699625`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "67781.8442867096277226139`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "472.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "260.3494656931518031776`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06101564045707288503534439818496084394`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "164.1971988488245631814`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "227.4181411856925603442`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732803777289*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"c44d6498-a6ba-4f08-8022-e6560589653e"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "220.51793248945145`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 220.51793248945145`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732813618273*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"38b6c2d1-393a-4b06-8af1-cd9899a91f04"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"237.`", ",", "0.`", ",", "0.`", ",", "237.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"237.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "237.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"182.21383550929758`", ",", "0.`", ",",
- RowBox[{"-", "182.21383550929758`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"165.19627547898085`", ",",
- RowBox[{"-", "10.`"}], ",", "164.89332743360882`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {237., 0., 0., 237.}, $CellContext`p2 -> {
- 237., 0., 0., -237.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {182.21383550929758`,
- 0., -182.21383550929758`, 0.}, $CellContext`p5 -> {
- 165.19627547898085`, -10., 164.89332743360882`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732813626061*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9b17697b-a92b-4b4d-975a-b4c080f28722"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
+ RowBox[{"ppmmList", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=", "ppmm"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"pmmm", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"tjetspmmm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{
- "5.15657383827816350231410922811442147750615241303502002300290684`43.\
-73555290356411*^-14", ",", "0``58.69897000433602", ",", "0``57.4383886544366",
- ",", "0``57.32422165832591"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 5.15657383827816350231410922811442147750615241303502002300290684`43.\
-73555290356411*^-14, 0``58.69897000433602, 0``57.4383886544366,
- 0``57.32422165832591}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797328136338882`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"7dd342c5-7420-4541-9627-b35226b1017d"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732813641111*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"ea32b32f-82a7-4194-9fd9-a7703583c0af"],
-
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "182.2138355092975814387`10."}], ",",
- RowBox[{"S", "\[Rule]", "224676.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "44378.6073915560513444122`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "44378.6073915560513444122`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "86369.3580314070536019244`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "86369.3580314070536019244`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "68069.9308459261928557373`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "474.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "260.902148028578317521`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.06064526779609266838049531510701530187`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "165.1962754789808428182`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "227.8975294670521935987`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797328136485643`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"76f8b2af-d0ae-4b6d-8611-25647b1889e7"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
- RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "221.58718487394958`"}], "}"}],
- "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 221.58718487394958`}, "\n"],
-
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732823860711*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"cd9fcb7b-0db5-4401-a477-b65f9fd0fed5"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Four Momenta : \\n\"\>", "\[InvisibleSpace]",
- TagBox[
- RowBox[{"(", "\[NoBreak]",
- TagBox[GridBox[{
- {
- RowBox[{"p1", "\[Rule]",
- RowBox[{"{",
- RowBox[{"238.`", ",", "0.`", ",", "0.`", ",", "238.`"}], "}"}]}]},
- {
- RowBox[{"p2", "\[Rule]",
- RowBox[{"{",
- RowBox[{"238.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "238.`"}]}], "}"}]}]},
- {
- RowBox[{"p3", "\[Rule]",
- RowBox[{"{",
- RowBox[{
- "126.58988901172162`", ",", "10.`", ",", "17.320508075688775`",
- ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p4", "\[Rule]",
- RowBox[{"{",
- RowBox[{"183.21474775720512`", ",", "0.`", ",",
- RowBox[{"-", "183.21474775720512`"}], ",", "0.`"}], "}"}]}]},
- {
- RowBox[{"p5", "\[Rule]",
- RowBox[{"{",
- RowBox[{"166.19536323107332`", ",",
- RowBox[{"-", "10.`"}], ",", "165.89423968151635`", ",", "0.`"}],
- "}"}]}]}
- },
- GridBoxAlignment->{
- "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
- "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
- GridBoxSpacings->{"Columns" -> {
- Offset[0.27999999999999997`], {
- Offset[0.5599999999999999]},
- Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
- Offset[0.2], {
- Offset[0.4]},
- Offset[0.2]}, "RowsIndexed" -> {}}],
- Column], "\[NoBreak]", ")"}],
- Function[BoxForm`e$,
- MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {238., 0., 0., 238.}, $CellContext`p2 -> {
- 238., 0., 0., -238.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {183.21474775720512`,
- 0., -183.21474775720512`, 0.}, $CellContext`p5 -> {
- 166.19536323107332`, -10., 165.89423968151635`, 0.}}], "\n"],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797328238687572`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"9a279257-d169-4a92-b3db-ed8494ae2ccc"],
-
-Cell[BoxData[
- InterpretationBox[
- RowBox[{"\<\"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : \"\>",
- "\[InvisibleSpace]",
- RowBox[{"{",
+ RowBox[{"pmmmList", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=", "pmmm"}], ";",
+ "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{"pmpm", "=",
+ RowBox[{"Chop", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"tjetspmpm", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
+ "FundConst"}], "//", "Simplify"}], ",",
+ RowBox[{"10", "^",
+ RowBox[{"-", "10"}]}]}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{
- "4.789064562354260786433697844697439094872452687994695475558649962`43.\
-701613743509924*^-14", ",", "0``58.69897000433602", ",",
- "0``57.43600957533285", ",", "0``57.322393047279505"}], "}"}]}],
- SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 4.789064562354260786433697844697439094872452687994695475558649962`43.\
-701613743509924*^-14, 0``58.69897000433602, 0``57.43600957533285,
- 0``57.322393047279505}],
- Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732823876112*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"0e28f50c-5590-495a-96b5-93f8d51f1c64"],
-
-Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973282388319*^9},
+ RowBox[{"pmpmList", "[",
+ RowBox[{"[", "n", "]"}], "]"}], "=", "pmpm"}], ";"}],
+ "\[IndentingNewLine]", "\[IndentingNewLine]", ",",
+ RowBox[{"{",
+ RowBox[{"n", ",", "1", ",", "size"}], "}"}]}],
+ "]"}], "\[IndentingNewLine]"}], "Input",
+ CellChangeTimes->{{3.779726989715151*^9, 3.77972709982976*^9}, {
+ 3.779727147875164*^9, 3.779727196755348*^9}, {3.779727502231495*^9,
+ 3.7797275027819767`*^9}, {3.779727610867655*^9, 3.779727746167663*^9}, {
+ 3.779730897497858*^9, 3.779731129929401*^9}, {3.779796426176527*^9,
+ 3.77979642793825*^9}, {3.779796528984577*^9, 3.779796533540606*^9}, {
+ 3.779796841082293*^9, 3.7797970134691257`*^9}, {3.7798015953525887`*^9,
+ 3.7798016667376423`*^9}, {3.779807801518634*^9, 3.779807801688882*^9}},
CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8ae0e9d1-e9f0-4f84-a046-f650823a1485"],
+ "In[266]:=",ExpressionUUID->"d4ac6f76-1854-421d-aad8-bdf164ad28b3"],
-Cell[BoxData[
- RowBox[{"{",
- RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "183.2147477572051172956`10."}], ",",
- RowBox[{"S", "\[Rule]", "226576.`10."}], ",",
- RowBox[{"T", "\[Rule]",
- RowBox[{"-", "44631.7871695794945990299`10."}]}], ",",
- RowBox[{"U", "\[Rule]",
- RowBox[{"-", "44631.7871695794945990299`10."}]}], ",",
- RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "87210.2199324296358327047`10."}]}], ",",
- RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "87210.2199324296358327047`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "68358.0142040182449450627`10."}], ",",
- RowBox[{
- SqrtBox["S"], "\[Rule]", "476.`10."}], ",",
- RowBox[{
- SqrtBox["S34"], "\[Rule]", "261.4536559392854329437`10."}], ",",
- RowBox[{
- RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0602793684651015829628357414172570322`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "166.1953632310733032862`10."}], ",",
- RowBox[{
- SqrtBox["S35"], "\[Rule]", "228.3759184658942020342`10."}]}],
- "}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797328238921328`*^9},
- CellLabel->
- "During evaluation of \
-In[323]:=",ExpressionUUID->"8af5faf0-4a01-43f8-adf3-3dc20fa91b24"],
+Cell[CellGroupData[{
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "222.65585774058576`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "101.18129770992365`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 222.65585774058576`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 101.18129770992365`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732834188053*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807845791016*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"538f3d0a-4d79-4b36-8df6-cc86f423ae81"],
+In[266]:=",ExpressionUUID->"cbfa551e-d0ce-4654-900d-45016d58f1c8"],
Cell[BoxData[
InterpretationBox[
@@ -25403,12 +4426,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"239.`", ",", "0.`", ",", "0.`", ",", "239.`"}], "}"}]}]},
+ RowBox[{"131.`", ",", "0.`", ",", "0.`", ",", "131.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"239.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "239.`"}]}], "}"}]}]},
+ RowBox[{"131.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "131.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -25418,13 +4441,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"184.21564908291813`", ",", "0.`", ",",
- RowBox[{"-", "184.21564908291813`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"75.94190223136785`", ",", "0.`", ",",
+ RowBox[{"-", "75.94190223136785`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"167.19446190536027`", ",",
- RowBox[{"-", "10.`"}], ",", "166.89514100722937`", ",", "0.`"}],
+ RowBox[{"59.468208756910485`", ",",
+ RowBox[{"-", "10.`"}], ",", "58.62139415567908`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -25441,16 +4464,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {239., 0., 0., 239.}, $CellContext`p2 -> {
- 239., 0., 0., -239.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {184.21564908291813`,
- 0., -184.21564908291813`, 0.}, $CellContext`p5 -> {
- 167.19446190536027`, -10., 166.89514100722937`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {131., 0., 0., 131.}, $CellContext`p2 -> {
+ 131., 0., 0., -131.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {75.94190223136785,
+ 0., -75.94190223136785, 0.}, $CellContext`p5 -> {
+ 59.468208756910485`, -10., 58.62139415567908, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732834201034*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980784580446*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"3880e6d1-8f95-4828-8330-754d983ed3b9"],
+In[266]:=",ExpressionUUID->"c3fe3e0a-58fa-4aae-ae16-de4eb46495a3"],
Cell[BoxData[
InterpretationBox[
@@ -25458,70 +4483,79 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "4.543270904019189036616238295354401257052494750715939030279414482`43.\
-676910741217576*^-14", ",", "0``58.69897000433602", ",",
- "0``57.43364348367781", ",", "0``57.32057210338788"}], "}"}]}],
+ RowBox[{
+ "-", "3.985169515061360051931986433176072622456486882658638822414662126`\
+43.88111551249745*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.81848853296706", ",", "0``57.58169870868025"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 4.543270904019189036616238295354401257052494750715939030279414482`43.\
-676910741217576*^-14, 0``58.69897000433602, 0``57.43364348367781,
- 0``57.32057210338788}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-3.985169515061360051931986433176072622456486882658638822414662126`43.\
+88111551249745*^-14, 0``58.69897000433602, 0``57.81848853296706,
+ 0``57.58169870868025}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732834213937*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807845814904*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"4a63efba-8049-4e7d-9dbb-4b591b3638da"],
+In[266]:=",ExpressionUUID->"cee8a021-5488-4715-9ae9-37caf440baf5"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797328342285433`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807845822003*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"17f3d501-156b-4ca5-b204-eebfd0fcc70f"],
+In[266]:=",ExpressionUUID->"30a77df9-2dac-4b98-9188-5c5919a46782"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "184.2156490829181336721`10."}], ",",
- RowBox[{"S", "\[Rule]", "228484.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "75.9419022313678482305`10."}], ",",
+ RowBox[{"S", "\[Rule]", "68644.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "44884.9669476029378536477`10."}]}], ",",
+ RowBox[{"-", "17541.5509210710663549283`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "44884.9669476029378536477`10."}]}], ",",
+ RowBox[{"-", "17541.5509210710663549283`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "88055.0802616348678952818`10."}]}], ",",
+ RowBox[{"-", "19896.7783846183762364035`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "88055.0802616348678952818`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "68646.0944184755963056643`10."}], ",",
+ RowBox[{"-", "19896.7783846183762364035`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "37482.6586113788899224813`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "478.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "262.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "262.0039969513358326806`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "193.6043868598511120072`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0599178618361743207503253165784702644`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "167.1944619053602844517`10."}], ",",
+ RowBox[{"-", "0.17058618519790403534658483863109341926`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "59.4682087569104846089`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "228.853314323236950809`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "169.8541822586751400411`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732834238687*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798078458303843`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"48b304c7-260e-4652-bc0b-d430978943c1"],
+In[266]:=",ExpressionUUID->"53ab5f46-0ebe-4784-b1ba-3cf5583fcb93"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "223.72395833333334`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "103.62969924812029`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 223.72395833333334`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 103.62969924812029`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732845109174*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807855877387*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"293c9299-3ac2-4a5c-abe3-55ffcda0ecda"],
+In[266]:=",ExpressionUUID->"a0d36ca1-69ea-4e07-a78c-0cfbf8dcf949"],
Cell[BoxData[
InterpretationBox[
@@ -25532,12 +4566,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"240.`", ",", "0.`", ",", "0.`", ",", "240.`"}], "}"}]}]},
+ RowBox[{"133.`", ",", "0.`", ",", "0.`", ",", "133.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"240.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "240.`"}]}], "}"}]}]},
+ RowBox[{"133.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "133.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -25547,13 +4581,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"185.2165396814238`", ",", "0.`", ",",
- RowBox[{"-", "185.2165396814238`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"77.95577424964017`", ",", "0.`", ",",
+ RowBox[{"-", "77.95577424964017`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"168.19357130685458`", ",",
- RowBox[{"-", "10.`"}], ",", "167.89603160573503`", ",", "0.`"}],
+ RowBox[{"61.45433673863818`", ",",
+ RowBox[{"-", "10.`"}], ",", "60.6352661739514`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -25570,16 +4604,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {240., 0., 0., 240.}, $CellContext`p2 -> {
- 240., 0., 0., -240.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {185.2165396814238,
- 0., -185.2165396814238, 0.}, $CellContext`p5 -> {
- 168.19357130685458`, -10., 167.89603160573503`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {133., 0., 0., 133.}, $CellContext`p2 -> {
+ 133., 0., 0., -133.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {77.95577424964017,
+ 0., -77.95577424964017, 0.}, $CellContext`p5 -> {
+ 61.45433673863818, -10., 60.6352661739514, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732845117072*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807855885355*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"fed4c5d5-60da-484b-8978-498e1d2723d7"],
+In[266]:=",ExpressionUUID->"ded8f0a4-4b6a-4176-ba57-9b72ad9bec07"],
Cell[BoxData[
InterpretationBox[
@@ -25588,70 +4624,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "2.99750501366478842079570918250019634241787599127044377429934265`\
-42.49448868513837*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.43129023812594", ",", "0``57.31875876262442"}], "}"}]}],
+ "-", "1.834381371320645646823107176578745102362219920423736019378816426`\
+43.53757799906174*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.80712171506287", ",", "0``57.57511836336894"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.99750501366478842079570918250019634241787599127044377429934265`42.\
-49448868513837*^-15, 0``58.69897000433602, 0``57.43129023812594,
- 0``57.31875876262442}],
+{-1.834381371320645646823107176578745102362219920423736019378816426`43.\
+53757799906174*^-14, 0``58.69897000433602, 0``57.80712171506287,
+ 0``57.57511836336894}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732845124279*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807855892593*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"ab9c9e16-62fa-4195-bda9-da643eae8600"],
+In[266]:=",ExpressionUUID->"d7b31cab-3b81-4c5e-adcb-56d7e52c4a4d"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732845131394*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807855899866*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"a6882267-ce77-4b06-abb1-47ca2ec739c6"],
+In[266]:=",ExpressionUUID->"e8c154cc-d494-42eb-bbba-36dfc216351e"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "185.2165396814237965373`10."}], ",",
- RowBox[{"S", "\[Rule]", "230400.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "77.9557742496401715471`10."}], ",",
+ RowBox[{"S", "\[Rule]", "70756.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "45138.1467256263811082655`10."}]}], ",",
+ RowBox[{"-", "18047.9104771179528641638`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "45138.1467256263811082655`10."}]}], ",",
+ RowBox[{"-", "18047.9104771179528641638`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "88903.9390470834223378915`10."}]}], ",",
+ RowBox[{"-", "20736.2359504042856315209`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "88903.9390470834223378915`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "68934.1715454196079006362`10."}], ",",
+ RowBox[{"-", "20736.2359504042856315209`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "38062.2928550444792459832`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "480.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "266.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "262.5531785094585517474`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "195.0955992713430715891`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0595606692091608564042711637363739033`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "168.1935713068545731563`10."}], ",",
+ RowBox[{"-", "0.16492052613922471814155970309606183571`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "61.4543367386381828002`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "229.3297231189911709413`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "171.1243059860037002513`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732845138726*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807855907548*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"674bccc8-58f9-4709-b233-272968fe3d19"],
+In[266]:=",ExpressionUUID->"298794a1-fe6b-465c-819b-4d73abbe846e"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "224.79149377593362`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "106.06481481481482`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 224.79149377593362`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 106.06481481481482`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732855053581*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807866254672*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"63f0ac84-1a22-464e-8b4c-d30cb51c2f47"],
+In[266]:=",ExpressionUUID->"5525ea46-2d85-45d6-8440-1aff7661733c"],
Cell[BoxData[
InterpretationBox[
@@ -25662,12 +4706,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"241.`", ",", "0.`", ",", "0.`", ",", "241.`"}], "}"}]}]},
+ RowBox[{"135.`", ",", "0.`", ",", "0.`", ",", "135.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"241.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "241.`"}]}], "}"}]}]},
+ RowBox[{"135.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "135.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -25677,13 +4721,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"186.2174197430955`", ",", "0.`", ",",
- RowBox[{"-", "186.2174197430955`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"79.96876613074323`", ",", "0.`", ",",
+ RowBox[{"-", "79.96876613074323`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"169.19269124518289`", ",",
- RowBox[{"-", "10.`"}], ",", "168.89691166740673`", ",", "0.`"}],
+ RowBox[{"63.44134485753511`", ",",
+ RowBox[{"-", "10.`"}], ",", "62.64825805505446`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -25700,16 +4744,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {241., 0., 0., 241.}, $CellContext`p2 -> {
- 241., 0., 0., -241.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {186.2174197430955,
- 0., -186.2174197430955, 0.}, $CellContext`p5 -> {
- 169.19269124518289`, -10., 168.89691166740673`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {135., 0., 0., 135.}, $CellContext`p2 -> {
+ 135., 0., 0., -135.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {79.96876613074323,
+ 0., -79.96876613074323, 0.}, $CellContext`p5 -> {
+ 63.44134485753511, -10., 62.64825805505446, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732855061535*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807866261427*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"de0221f3-31ed-4faf-9007-7383c44114e2"],
+In[266]:=",ExpressionUUID->"dbecc138-a52e-4183-b86a-b5099a627599"],
Cell[BoxData[
InterpretationBox[
@@ -25717,70 +4763,79 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "9.13731324916441142434302614909111993967877394033006889047153345`42.\
-976741479927796*^-15", ",", "0``58.69897000433602", ",",
- "0``57.42894969963246", ",", "0``57.316952961761146"}], "}"}]}],
+ RowBox[{
+ "-", "3.251764790261454625220591458449020482263223962948208775606047848`\
+43.77972536443427*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.79604960916586", ",", "0``57.56863623584101"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 9.13731324916441142434302614909111993967877394033006889047153345`42.\
-976741479927796*^-15, 0``58.69897000433602, 0``57.42894969963246,
- 0``57.316952961761146}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-3.251764790261454625220591458449020482263223962948208775606047848`43.\
+77972536443427*^-14, 0``58.69897000433602, 0``57.79604960916586,
+ 0``57.56863623584101}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732855069174*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807866267605*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"228c49af-c420-4b59-8f0b-18c00bf608f4"],
+In[266]:=",ExpressionUUID->"b25da53b-a43f-418f-b012-b57d7c2fb5db"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732855076295*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807866273592*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"de8cebed-53ee-4293-b15b-158a9df7ef5c"],
+In[266]:=",ExpressionUUID->"26c234b8-9529-40fb-845a-ddd816873b82"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "186.217419743095490503`10."}], ",",
- RowBox[{"S", "\[Rule]", "232324.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "79.9687661307432335889`10."}], ",",
+ RowBox[{"S", "\[Rule]", "72900.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "45391.3265036498243628833`10."}]}], ",",
+ RowBox[{"-", "18554.2700331648393733994`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "45391.3265036498243628833`10."}]}], ",",
+ RowBox[{"-", "18554.2700331648393733994`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "89756.7963161720264224641`10."}]}], ",",
+ RowBox[{"-", "21591.5668553006730689958`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "89756.7963161720264224641`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "69222.2456396436984787615`10."}], ",",
+ RowBox[{"-", "21591.5668553006730689958`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "38641.6737769310290107169`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "482.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "270.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "263.1012079783057523596`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "196.5748554035612892805`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05920771375436448395736437821127379302`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "169.1926912451828913254`10."}], ",",
+ RowBox[{"-", "0.1596213575677097398352955940110445512`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "63.4413448575351065846`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "229.8051508727686298559`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "172.3858065195584526064`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732855083637*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798078662797956`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"0ffbdc01-b26a-4b5a-959f-71c8ddbd6db1"],
+In[266]:=",ExpressionUUID->"b5e9064c-8f48-4914-b57d-8f1568774062"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "225.85847107438016`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "108.48722627737226`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 225.85847107438016`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 108.48722627737226`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732864994359*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807877156293*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"71ae2e7f-d599-4328-933e-ea4d44da58d8"],
+In[266]:=",ExpressionUUID->"11b11edb-35c2-4eb0-bae6-0cff8bc62a6e"],
Cell[BoxData[
InterpretationBox[
@@ -25791,12 +4846,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"242.`", ",", "0.`", ",", "0.`", ",", "242.`"}], "}"}]}]},
+ RowBox[{"137.`", ",", "0.`", ",", "0.`", ",", "137.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"242.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "242.`"}]}], "}"}]}]},
+ RowBox[{"137.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "137.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -25806,13 +4861,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"187.2182894538283`", ",", "0.`", ",",
- RowBox[{"-", "187.2182894538283`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"81.98095906214935`", ",", "0.`", ",",
+ RowBox[{"-", "81.98095906214935`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"170.19182153445004`", ",",
- RowBox[{"-", "10.`"}], ",", "169.89778137813954`", ",", "0.`"}],
+ RowBox[{"65.42915192612901`", ",",
+ RowBox[{"-", "10.`"}], ",", "64.66045098646057`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -25829,16 +4884,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {242., 0., 0., 242.}, $CellContext`p2 -> {
- 242., 0., 0., -242.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {187.2182894538283,
- 0., -187.2182894538283, 0.}, $CellContext`p5 -> {
- 170.19182153445004`, -10., 169.89778137813954`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {137., 0., 0., 137.}, $CellContext`p2 -> {
+ 137., 0., 0., -137.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {81.98095906214935,
+ 0., -81.98095906214935, 0.}, $CellContext`p5 -> {
+ 65.42915192612901, -10., 64.66045098646057, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973286500224*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807877163455*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"87ce12a3-ccc1-4a84-abd9-2f26dab30e6e"],
+In[266]:=",ExpressionUUID->"8d4f92a3-1b7c-4de8-a725-afcf283357fb"],
Cell[BoxData[
InterpretationBox[
@@ -25847,70 +4904,77 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.69251611898443030900394669664853223694564833354363357689437631`\
-43.2426574561508*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.42662173140357", ",", "0``57.31515463835559"}], "}"}]}],
+ "-", "1.441691910492800484683802128226629428576721934241307509203671955`\
+43.420091903099745*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.78525700968998", ",", "0``57.56224943717962"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.69251611898443030900394669664853223694564833354363357689437631`43.\
-2426574561508*^-14, 0``58.69897000433602, 0``57.42662173140357,
- 0``57.31515463835559}],
+{-1.441691910492800484683802128226629428576721934241307509203671955`43.\
+420091903099745*^-14, 0``58.69897000433602, 0``57.78525700968998,
+ 0``57.56224943717962}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732865009575*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807877171899*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"17db951b-e058-4b9e-84b9-20927aaa1211"],
+In[266]:=",ExpressionUUID->"9b402df4-a17b-4fc9-9155-7861cbce0e3d"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797328650167723`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807877179031*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"6ccabce8-fa6a-42c4-abc5-c7cb3753554a"],
+In[266]:=",ExpressionUUID->"d24ecb08-526b-425e-861f-0cbe9eadb31b"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "187.2182894538283051133`10."}], ",",
- RowBox[{"S", "\[Rule]", "234256.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "81.9809590621493526896`10."}], ",",
+ RowBox[{"S", "\[Rule]", "75076.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "45644.506281673267617501`10."}]}], ",",
+ RowBox[{"-", "19060.6295892117258826349`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "45644.506281673267617501`10."}]}], ",",
+ RowBox[{"-", "19060.6295892117258826349`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "90613.6520956528996748602`10."}]}], ",",
+ RowBox[{"-", "22462.7827830289226369587`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "90613.6520956528996748602`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "69510.3167546523403457705`10."}], ",",
+ RowBox[{"-", "22462.7827830289226369587`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "39220.8247444812989257607`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "484.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "274.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "263.6480926436835430075`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "198.0424821710768674786`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0588589204572549146700580402918701764`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "170.1918215344500506526`10."}], ",",
+ RowBox[{"-", "0.15465404041326476435869657887403999299`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "65.4291519261290055846`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "230.2796035446782477462`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "173.6388045165657928702`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797328650241413`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798078771869583`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d7a59a8a-e37b-45b1-a650-ae5e6644c393"],
+In[266]:=",ExpressionUUID->"238ed20d-7900-4a1b-a0fc-60e20f7be273"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "226.92489711934158`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "110.8974820143885`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 226.92489711934158`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 110.8974820143885}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973287489428*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807888466461*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"4313b999-7ba8-4be2-9735-9045b6bc1640"],
+In[266]:=",ExpressionUUID->"d3b26297-5c63-4011-9d6b-af4ff1d7eab9"],
Cell[BoxData[
InterpretationBox[
@@ -25921,12 +4985,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"243.`", ",", "0.`", ",", "0.`", ",", "243.`"}], "}"}]}]},
+ RowBox[{"139.`", ",", "0.`", ",", "0.`", ",", "139.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"243.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "243.`"}]}], "}"}]}]},
+ RowBox[{"139.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "139.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -25936,13 +5000,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"188.21914899517012`", ",", "0.`", ",",
- RowBox[{"-", "188.21914899517012`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"83.99242454378209`", ",", "0.`", ",",
+ RowBox[{"-", "83.99242454378209`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"171.19096199310823`", ",",
- RowBox[{"-", "10.`"}], ",", "170.89864091948135`", ",", "0.`"}],
+ RowBox[{"67.41768644449625`", ",",
+ RowBox[{"-", "10.`"}], ",", "66.67191646809331`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -25959,16 +5023,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {243., 0., 0., 243.}, $CellContext`p2 -> {
- 243., 0., 0., -243.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {188.21914899517012`,
- 0., -188.21914899517012`, 0.}, $CellContext`p5 -> {
- 171.19096199310823`, -10., 170.89864091948135`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {139., 0., 0., 139.}, $CellContext`p2 -> {
+ 139., 0., 0., -139.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {83.99242454378209,
+ 0., -83.99242454378209, 0.}, $CellContext`p5 -> {
+ 67.41768644449625, -10., 66.67191646809331, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732874902288*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807888473588*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"9602251f-653f-443f-ae06-18c68033db08"],
+In[266]:=",ExpressionUUID->"b825dc3f-2b05-4555-9cf6-bb3e3da9b1ae"],
Cell[BoxData[
InterpretationBox[
@@ -25977,69 +5043,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "3.770442963108012688780747454613935300058952908069863827435315881`\
-43.588726110513626*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.42430619884796", ",", "0``57.313363730737706"}], "}"}]}],
+ "-", "3.117603540762503625305529540486065872054631867808370420430507133`\
+43.748746094445046*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.77472988645502", ",", "0``57.55595520408193"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.770442963108012688780747454613935300058952908069863827435315881`43.\
-588726110513626*^-14, 0``58.69897000433602, 0``57.42430619884796,
- 0``57.313363730737706}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-3.117603540762503625305529540486065872054631867808370420430507133`43.\
+748746094445046*^-14, 0``58.69897000433602, 0``57.77472988645502,
+ 0``57.55595520408193}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797328749098186`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807888480054*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"8d88bcb4-b168-4663-bb28-7269da75eb55"],
+In[266]:=",ExpressionUUID->"485d0e60-4c86-4fb9-86d4-757c10180b16"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973287491705*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807888486484*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"70de6c9e-5092-444b-bd46-0bc1b18fe2d0"],
+In[266]:=",ExpressionUUID->"14a3a755-14e8-4a0e-8a96-9f7964a8a0d2"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "188.2191489951701157679`10."}], ",",
- RowBox[{"S", "\[Rule]", "236196.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "83.9924245437820928828`10."}], ",",
+ RowBox[{"S", "\[Rule]", "77284.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "45897.6860596967108721188`10."}]}], ",",
+ RowBox[{"-", "19566.9891452586123918704`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "45897.6860596967108721188`10."}]}], ",",
+ RowBox[{"-", "19566.9891452586123918704`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "91474.506411652676263202`10."}]}], ",",
+ RowBox[{"-", "23349.8940231714218214165`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "91474.506411652676263202`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "69798.3849426987871799568`10."}], ",",
+ RowBox[{"-", "23349.8940231714218214165`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "39799.7663368600726302062`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "486.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "278.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "264.1938397137578739497`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "199.4987878079966495669`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05851421606513235001538574269160702111`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "171.1909619931082192188`10."}], ",",
+ RowBox[{"-", "0.14998818887688079514177099236880463667`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "67.4176864444962486323`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "230.7530870361101475036`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "174.8834238961976186194`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797328749245033`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798078884926767`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"294567f1-9f54-45b7-8c0a-c67762850cb5"],
+In[266]:=",ExpressionUUID->"c4cfa965-00a0-41e1-88a7-4785114b6edb"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "227.9907786885246`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "113.29609929078013`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 227.9907786885246}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 113.29609929078013`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732884977928*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798078996217613`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e5041cf5-736e-4c52-98ee-41c4f5b3b6fd"],
+In[266]:=",ExpressionUUID->"834a39c5-7e96-428a-9fcf-e49ceb6a90dc"],
Cell[BoxData[
InterpretationBox[
@@ -26050,12 +5125,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"244.`", ",", "0.`", ",", "0.`", ",", "244.`"}], "}"}]}]},
+ RowBox[{"141.`", ",", "0.`", ",", "0.`", ",", "141.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"244.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "244.`"}]}], "}"}]}]},
+ RowBox[{"141.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "141.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -26065,13 +5140,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"189.21999854444786`", ",", "0.`", ",",
- RowBox[{"-", "189.21999854444786`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"86.00322579109795`", ",", "0.`", ",",
+ RowBox[{"-", "86.00322579109795`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"172.19011244383051`", ",",
- RowBox[{"-", "10.`"}], ",", "171.8994904687591`", ",", "0.`"}],
+ RowBox[{"69.40688519718042`", ",",
+ RowBox[{"-", "10.`"}], ",", "68.68271771540917`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -26088,16 +5163,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {244., 0., 0., 244.}, $CellContext`p2 -> {
- 244., 0., 0., -244.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {189.21999854444786`,
- 0., -189.21999854444786`, 0.}, $CellContext`p5 -> {
- 172.19011244383051`, -10., 171.8994904687591, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {141., 0., 0., 141.}, $CellContext`p2 -> {
+ 141., 0., 0., -141.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {86.00322579109795,
+ 0., -86.00322579109795, 0.}, $CellContext`p5 -> {
+ 69.40688519718042, -10., 68.68271771540917, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973288498631*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807899628948*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"adb9ac38-cbee-448d-8dc0-d9fd876e87d4"],
+In[266]:=",ExpressionUUID->"6c9499e2-cf9d-4a70-a879-ea012afbc21b"],
Cell[BoxData[
InterpretationBox[
@@ -26105,69 +5182,79 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "4.61840911404083393347719809482170202966820108867573024087205575`42.\
-67504258386825*^-15", ",", "0``58.69897000433602", ",",
- "0``57.422002969529686", ",", "0``57.311580177997286"}], "}"}]}],
+ RowBox[{
+ "-", "1.567834217810967577006381107073351872942300703859653132186977727`\
+43.44402103466081*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.76445526335989", ",", "0``57.549750891680645"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 4.61840911404083393347719809482170202966820108867573024087205575`42.\
-67504258386825*^-15, 0``58.69897000433602, 0``57.422002969529686,
- 0``57.311580177997286}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-1.567834217810967577006381107073351872942300703859653132186977727`43.\
+44402103466081*^-14, 0``58.69897000433602, 0``57.76445526335989,
+ 0``57.549750891680645}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732884993856*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807899635438*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"744a5713-aa54-491b-b33c-7947ea589bec"],
+In[266]:=",ExpressionUUID->"3d927461-cf7d-4455-8758-06d1b6abb078"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732885001217*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807899641861*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"ea5ec983-02a0-48bf-b936-e5c8930c483d"],
+In[266]:=",ExpressionUUID->"795142e9-2a45-4c03-8a8b-3836bb17e41c"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "189.2199985444478613772`10."}], ",",
- RowBox[{"S", "\[Rule]", "238144.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "86.0032257910979467397`10."}], ",",
+ RowBox[{"S", "\[Rule]", "79524.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "46150.8658377201541267366`10."}]}], ",",
+ RowBox[{"-", "20073.3487013054989011059`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "46150.8658377201541267366`10."}]}], ",",
+ RowBox[{"-", "20073.3487013054989011059`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "92339.3592896905563520704`10."}]}], ",",
+ RowBox[{"-", "24252.9096730896209805906`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "92339.3592896905563520704`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "70086.4502548214193671252`10."}], ",",
+ RowBox[{"-", "24252.9096730896209805906`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "40378.5167487902419397628`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "488.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "282.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "264.738456320235839225`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "200.9440637311544019222`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05817352903566281411185798903253236487`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "172.1901124438305159323`10."}], ",",
+ RowBox[{"-", "0.14559703419767954223863756627934379117`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "69.4068851971804102731`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "231.2256071905075353945`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "176.119790636432315437`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732885008518*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798078996484203`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"6b4cf7e7-0631-48cf-9bdb-779cdb6201c2"],
+In[266]:=",ExpressionUUID->"968cd1a0-c950-41e7-a1e7-4986df0928e1"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "229.0561224489796`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "115.68356643356644`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 229.0561224489796}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 115.68356643356644`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732895660657*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798079109417057`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1d0589b7-0ab1-449b-a320-cf4b6aa619c0"],
+In[266]:=",ExpressionUUID->"d9658b3d-013b-4f2c-a5fe-83cf423e9539"],
Cell[BoxData[
InterpretationBox[
@@ -26178,12 +5265,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"245.`", ",", "0.`", ",", "0.`", ",", "245.`"}], "}"}]}]},
+ RowBox[{"143.`", ",", "0.`", ",", "0.`", ",", "143.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"245.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "245.`"}]}], "}"}]}]},
+ RowBox[{"143.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "143.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -26193,13 +5280,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"190.2208382748894`", ",", "0.`", ",",
- RowBox[{"-", "190.2208382748894`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"88.01341890117676`", ",", "0.`", ",",
+ RowBox[{"-", "88.01341890117676`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"173.18927271338893`", ",",
- RowBox[{"-", "10.`"}], ",", "172.90033019920062`", ",", "0.`"}],
+ RowBox[{"71.39669208710161`", ",",
+ RowBox[{"-", "10.`"}], ",", "70.69291082548798`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -26216,16 +5303,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {245., 0., 0., 245.}, $CellContext`p2 -> {
- 245., 0., 0., -245.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {190.2208382748894,
- 0., -190.2208382748894, 0.}, $CellContext`p5 -> {
- 173.18927271338893`, -10., 172.90033019920062`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {143., 0., 0., 143.}, $CellContext`p2 -> {
+ 143., 0., 0., -143.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {88.01341890117676,
+ 0., -88.01341890117676, 0.}, $CellContext`p5 -> {
+ 71.39669208710161, -10., 70.69291082548798, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797328956692*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807910988944*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"50f94cef-7afc-460a-9781-62cbaa5fe834"],
+In[266]:=",ExpressionUUID->"12d7cf78-56b4-47b0-955f-ebc5986e3bb3"],
Cell[BoxData[
InterpretationBox[
@@ -26234,70 +5323,77 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "5.188151436885577835073268085849232706652672178769581553956471316`\
-43.72378656852061*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.419711913122235", ",", "0``57.309803919971486"}], "}"}]}],
+ "-", "3.57002401104258664013673459828581403594570957450379123255365135`\
+42.795275108279455*^-15"}], ",", "0``58.69897000433602", ",",
+ "0``57.754421112748936", ",", "0``57.543633966870956"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.188151436885577835073268085849232706652672178769581553956471316`43.\
-72378656852061*^-14, 0``58.69897000433602, 0``57.419711913122235,
- 0``57.309803919971486}],
+{-3.57002401104258664013673459828581403594570957450379123255365135`42.\
+795275108279455*^-15, 0``58.69897000433602, 0``57.754421112748936,
+ 0``57.543633966870956}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732895682248*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807911012532*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"63a3db84-1615-40af-abd1-bb772f6b345b"],
+In[266]:=",ExpressionUUID->"b37479a1-e1ce-4914-b632-1a27882d32c4"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732895695262*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980791103046*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"099ff8e9-04d6-4c84-94a0-04403593191c"],
+In[266]:=",ExpressionUUID->"a47d3fc2-adee-4c1a-92e0-ba997601ac43"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "190.2208382748893882308`10."}], ",",
- RowBox[{"S", "\[Rule]", "240100.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "88.0134189011767631428`10."}], ",",
+ RowBox[{"S", "\[Rule]", "81796.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "46404.0456157435973813543`10."}]}], ",",
+ RowBox[{"-", "20579.7082573523854103415`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "46404.0456157435973813543`10."}]}], ",",
+ RowBox[{"-", "20579.7082573523854103415`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "93208.2107546958002330939`10."}]}], ",",
+ RowBox[{"-", "25171.8378057365542588286`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "93208.2107546958002330939`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "70374.51274087881319954`10."}], ",",
+ RowBox[{"-", "25171.8378057365542588286`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "40957.0921261778798481161`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "490.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "286.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "265.2819495195231205302`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "202.3785861354354848338`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05783678948720847408116609260368431049`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "173.1892727133889325788`10."}], ",",
+ RowBox[{"-", "0.14145689975457267384545940963790414608`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "71.3966920871016059783`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "231.6971697941266792025`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "177.3480318146409260249`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732895709581*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807911053862*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"0b45590d-2c63-42f3-b460-f108c528da86"],
+In[266]:=",ExpressionUUID->"78e7ac62-1749-483a-9971-e2b16dc42f55"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "230.12093495934963`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "118.0603448275862`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 230.12093495934963`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 118.0603448275862}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732905636422*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807921883473*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c666ae4f-cc96-4343-a40a-d66e4b639083"],
+In[266]:=",ExpressionUUID->"f45abf84-18cf-49a3-b6fa-95b6f227d2aa"],
Cell[BoxData[
InterpretationBox[
@@ -26308,12 +5404,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"246.`", ",", "0.`", ",", "0.`", ",", "246.`"}], "}"}]}]},
+ RowBox[{"145.`", ",", "0.`", ",", "0.`", ",", "145.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"246.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "246.`"}]}], "}"}]}]},
+ RowBox[{"145.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "145.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -26323,13 +5419,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"191.22166835574149`", ",", "0.`", ",",
- RowBox[{"-", "191.22166835574149`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"90.0230538272438`", ",", "0.`", ",",
+ RowBox[{"-", "90.0230538272438`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"174.18844263253686`", ",",
- RowBox[{"-", "10.`"}], ",", "173.90116028005272`", ",", "0.`"}],
+ RowBox[{"73.38705716103455`", ",",
+ RowBox[{"-", "10.`"}], ",", "72.70254575155502`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -26346,16 +5442,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {246., 0., 0., 246.}, $CellContext`p2 -> {
- 246., 0., 0., -246.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {191.22166835574149`,
- 0., -191.22166835574149`, 0.}, $CellContext`p5 -> {
- 174.18844263253686`, -10., 173.90116028005272`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {145., 0., 0., 145.}, $CellContext`p2 -> {
+ 145., 0., 0., -145.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {90.0230538272438,
+ 0., -90.0230538272438, 0.}, $CellContext`p5 -> {73.38705716103455, -10.,
+ 72.70254575155502, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797329056448298`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807921890134*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"984a1c85-3c1b-45f4-bed5-96dd12c32233"],
+In[266]:=",ExpressionUUID->"5540dbc0-52b9-4d7a-9601-47f2deec4785"],
Cell[BoxData[
InterpretationBox[
@@ -26364,70 +5462,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "3.170080905691502348010001020300383415973000511695603507551961369`\
-43.50807524783908*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.417432901363846", ",", "0``57.308034897232645"}], "}"}]}],
+ "-", "2.681807256124894446480014001554702496057437120645839444492452683`\
+43.664999567943184*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.744616263031666", ",", "0``57.537602002101046"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.170080905691502348010001020300383415973000511695603507551961369`43.\
-50807524783908*^-14, 0``58.69897000433602, 0``57.417432901363846,
- 0``57.308034897232645}],
+{-2.681807256124894446480014001554702496057437120645839444492452683`43.\
+664999567943184*^-14, 0``58.69897000433602, 0``57.744616263031666,
+ 0``57.537602002101046}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732905652197*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807921896215*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"dc3fc037-8235-4306-a1a7-f577581dd343"],
+In[266]:=",ExpressionUUID->"8007277e-3399-4338-87c5-8902bf2bbb29"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732905659445*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807921902451*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f49ccd42-bfea-4b4c-935f-7b07847ecaf1"],
+In[266]:=",ExpressionUUID->"e998488d-32a1-48c0-a0fd-03730e499497"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "191.2216683557414853567`10."}], ",",
- RowBox[{"S", "\[Rule]", "242064.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "90.0230538272437996739`10."}], ",",
+ RowBox[{"S", "\[Rule]", "84100.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "46657.2253937670406359721`10."}]}], ",",
+ RowBox[{"-", "21086.0678133992719195771`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "46657.2253937670406359721`10."}]}], ",",
+ RowBox[{"-", "21086.0678133992719195771`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "94081.0608310248107954976`10."}]}], ",",
+ RowBox[{"-", "26106.685609900701905417`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "94081.0608310248107954976`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "70662.5724495837139067686`10."}], ",",
+ RowBox[{"-", "26106.685609900701905417`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "41535.506846599951586187`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "492.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "290.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "265.824326293858429308`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "203.8026173693555673276`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05750392915088012447074187292989850135`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "174.1884426325368556336`10."}], ",",
+ RowBox[{"-", "0.13754676533849038019543946132928078401`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "73.3870571610345461992`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "232.167780576785372644`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "178.5682748424215063912`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732905667425*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807921908847*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e9e00c63-d97b-4bbf-b041-4753ff80513a"],
+In[266]:=",ExpressionUUID->"73b24749-f814-459c-8355-498666d13e16"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "231.18522267206478`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "120.42687074829932`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 231.18522267206478`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 120.42687074829932`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797329155055*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807931814974*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"dcd6fea4-16fa-4529-8ac6-373e34d368fb"],
+In[266]:=",ExpressionUUID->"1e5e14b2-d98c-431f-9cc5-8f7bcaa497d7"],
Cell[BoxData[
InterpretationBox[
@@ -26438,12 +5544,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"247.`", ",", "0.`", ",", "0.`", ",", "247.`"}], "}"}]}]},
+ RowBox[{"147.`", ",", "0.`", ",", "0.`", ",", "147.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"247.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "247.`"}]}], "}"}]}]},
+ RowBox[{"147.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "147.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -26453,13 +5559,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"192.22248895238334`", ",", "0.`", ",",
- RowBox[{"-", "192.22248895238334`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"92.03217519736133`", ",", "0.`", ",",
+ RowBox[{"-", "92.03217519736133`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"175.1876220358951`", ",",
- RowBox[{"-", "10.`"}], ",", "174.90198087669458`", ",", "0.`"}],
+ RowBox[{"75.37793579091701`", ",",
+ RowBox[{"-", "10.`"}], ",", "74.71166712167255`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -26476,16 +5582,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {247., 0., 0., 247.}, $CellContext`p2 -> {
- 247., 0., 0., -247.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {192.22248895238334`,
- 0., -192.22248895238334`, 0.}, $CellContext`p5 -> {
- 175.1876220358951, -10., 174.90198087669458`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {147., 0., 0., 147.}, $CellContext`p2 -> {
+ 147., 0., 0., -147.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {92.03217519736133,
+ 0., -92.03217519736133, 0.}, $CellContext`p5 -> {
+ 75.37793579091701, -10., 74.71166712167255, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797329155134153`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980793182158*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f5287332-66a6-47da-a741-96094c44cd96"],
+In[266]:=",ExpressionUUID->"aeacc1b9-90d9-497a-bfd5-75a48bffe367"],
Cell[BoxData[
InterpretationBox[
@@ -26493,70 +5601,79 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "5.705283606916079035437703768412344860586779234832152982420417038`43.\
-76152029327393*^-14", ",", "0``58.69897000433602", ",",
- "0``57.41516580801406", ",", "0``57.30627305107635"}], "}"}]}],
+ RowBox[{
+ "-", "3.676975027193165765431051439688166103111001414811331385922601653`\
+43.79611335421725*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.73503031755832", ",", "0``57.53165266958784"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 5.705283606916079035437703768412344860586779234832152982420417038`43.\
-76152029327393*^-14, 0``58.69897000433602, 0``57.41516580801406,
- 0``57.30627305107635}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-3.676975027193165765431051439688166103111001414811331385922601653`43.\
+79611335421725*^-14, 0``58.69897000433602, 0``57.73503031755832,
+ 0``57.53165266958784}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732915520792*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807931829607*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f86c28f8-ccd1-400a-977a-01b54e4551e1"],
+In[266]:=",ExpressionUUID->"87d1f2bc-48aa-493b-a9fc-2925b14354ff"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732915527952*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798079318357363`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"895d898e-e106-488e-8548-d42937b80997"],
+In[266]:=",ExpressionUUID->"eff99bf6-dd82-4786-af89-3aa6f82147df"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "192.2224889523833439853`10."}], ",",
- RowBox[{"S", "\[Rule]", "244036.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "92.0321751973613260134`10."}], ",",
+ RowBox[{"S", "\[Rule]", "86436.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "46910.4051717904838905899`10."}]}], ",",
+ RowBox[{"-", "21592.4273694461584288126`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "46910.4051717904838905899`10."}]}], ",",
+ RowBox[{"-", "21592.4273694461584288126`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "94957.9095424773719287259`10."}]}], ",",
+ RowBox[{"-", "27057.4595080242298479334`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "94957.9095424773719287259`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "70950.6294285356916487303`10."}], ",",
+ RowBox[{"-", "27057.4595080242298479334`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "42113.7737549407820967477`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "494.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "294.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "266.3655935524250317562`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "205.2164071290129133781`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05717488132424282413845882743223460801`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "175.1876220358950857587`10."}], ",",
+ RowBox[{"-", "0.13384790334974568129078262582760913924`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "75.377935790917009908`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "232.6374452125996215525`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "179.7806468559714729216`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732915535343*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798079318422413`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"a1904af8-88ba-4be2-9eb8-d8541b866b50"],
+In[266]:=",ExpressionUUID->"a945a70e-a739-4e02-9ed4-9ab576e08841"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "232.24899193548387`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "122.78355704697987`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 232.24899193548387`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 122.78355704697987`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732925346942*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807942405541*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"4c6d6d3a-b5dd-4b2e-875f-dafd3bf1c6cf"],
+In[266]:=",ExpressionUUID->"8b4b9605-3243-434f-8247-cbfe2e797ea0"],
Cell[BoxData[
InterpretationBox[
@@ -26567,12 +5684,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"248.`", ",", "0.`", ",", "0.`", ",", "248.`"}], "}"}]}]},
+ RowBox[{"149.`", ",", "0.`", ",", "0.`", ",", "149.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"248.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "248.`"}]}], "}"}]}]},
+ RowBox[{"149.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "149.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -26582,13 +5699,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"193.2233002264364`", ",", "0.`", ",",
- RowBox[{"-", "193.2233002264364`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"94.04082300560603`", ",", "0.`", ",",
+ RowBox[{"-", "94.04082300560603`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"176.186810761842`", ",",
- RowBox[{"-", "10.`"}], ",", "175.90279215074764`", ",", "0.`"}],
+ RowBox[{"77.36928798267233`", ",",
+ RowBox[{"-", "10.`"}], ",", "76.72031492991725`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -26605,16 +5722,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {248., 0., 0., 248.}, $CellContext`p2 -> {
- 248., 0., 0., -248.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {193.2233002264364,
- 0., -193.2233002264364, 0.}, $CellContext`p5 -> {176.186810761842, -10.,
- 175.90279215074764`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {149., 0., 0., 149.}, $CellContext`p2 -> {
+ 149., 0., 0., -149.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {94.04082300560603,
+ 0., -94.04082300560603, 0.}, $CellContext`p5 -> {
+ 77.36928798267233, -10., 76.72031492991725, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797329253554296`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807942413501*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"512b03d8-fcaf-442e-aa42-f5affeee8944"],
+In[266]:=",ExpressionUUID->"518b366a-dc26-49c1-8f3d-d5635c1c24ed"],
Cell[BoxData[
InterpretationBox[
@@ -26622,69 +5741,79 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "3.372524739376282534769542466349893151422155350526114630718586842`43.\
-531443471997086*^-14", ",", "0``58.69897000433602", ",",
- "0``57.412910508811294", ",", "0``57.304518323509804"}], "}"}]}],
+ RowBox[{
+ "-", "1.619275811460566993749561269090905982040488572178919578630023517`\
+43.43407456874965*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.72565358310442", ",", "0``57.52578373592374"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 3.372524739376282534769542466349893151422155350526114630718586842`43.\
-531443471997086*^-14, 0``58.69897000433602, 0``57.412910508811294,
- 0``57.304518323509804}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-1.619275811460566993749561269090905982040488572178919578630023517`43.\
+43407456874965*^-14, 0``58.69897000433602, 0``57.72565358310442,
+ 0``57.52578373592374}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732925362813*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807942428096*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"05fa7d17-b303-4a79-a30d-122533b04f23"],
+In[266]:=",ExpressionUUID->"adb035f9-1cca-4c34-a7e8-998ab8626acf"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732925370174*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807942443726*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"074fc820-2fcd-4702-82f5-cc4debb9cfd6"],
+In[266]:=",ExpressionUUID->"8242b651-e47c-4ddb-9055-4f30541f4ee9"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "193.2233002264364074563`10."}], ",",
- RowBox[{"S", "\[Rule]", "246016.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "94.0408230056060290281`10."}], ",",
+ RowBox[{"S", "\[Rule]", "88804.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "47163.5849498139271452077`10."}]}], ",",
+ RowBox[{"-", "22098.7869254930449380482`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "47163.5849498139271452077`10."}]}], ",",
+ RowBox[{"-", "22098.7869254930449380482`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "95838.7569123124580983131`10."}]}], ",",
+ RowBox[{"-", "28024.1652556705966503614`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "95838.7569123124580983131`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "71238.6837242527586031539`10."}], ",",
+ RowBox[{"-", "28024.1652556705966503614`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "42691.9043623272856824634`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "496.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "298.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "266.9057581324403698058`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "206.620193500846585773`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05684958082660825626280168370722579847`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "176.1868107618419989601`10."}], ",",
+ RowBox[{"-", "0.13034357339558414579286000587009393554`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "77.3692879826723274703`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "233.1061693207091081381`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "180.9852742315208364421`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732925377564*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980794245304*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"2bedf229-f626-4746-bb03-aaf8c49dc760"],
+In[266]:=",ExpressionUUID->"0f88080a-eae1-4da3-9b4e-c3819745d7f7"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "233.3122489959839`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "125.13079470198676`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 233.3122489959839}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 125.13079470198676`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732935244617*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807953353447*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"a26cf25b-5392-45b1-bd3d-c0c464f72908"],
+In[266]:=",ExpressionUUID->"1fba4f3f-cf7d-450d-b762-73544ff2b86f"],
Cell[BoxData[
InterpretationBox[
@@ -26695,12 +5824,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"249.`", ",", "0.`", ",", "0.`", ",", "249.`"}], "}"}]}]},
+ RowBox[{"151.`", ",", "0.`", ",", "0.`", ",", "151.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"249.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "249.`"}]}], "}"}]}]},
+ RowBox[{"151.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "151.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -26710,13 +5839,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"194.22410233587075`", ",", "0.`", ",",
- RowBox[{"-", "194.22410233587075`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"96.04903319831699`", ",", "0.`", ",",
+ RowBox[{"-", "96.04903319831699`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"177.18600865240768`", ",",
- RowBox[{"-", "10.`"}], ",", "176.903594260182`", ",", "0.`"}],
+ RowBox[{"79.36107778996139`", ",",
+ RowBox[{"-", "10.`"}], ",", "78.72852512262821`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -26733,16 +5862,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {249., 0., 0., 249.}, $CellContext`p2 -> {
- 249., 0., 0., -249.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {194.22410233587075`,
- 0., -194.22410233587075`, 0.}, $CellContext`p5 -> {
- 177.18600865240768`, -10., 176.903594260182, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {151., 0., 0., 151.}, $CellContext`p2 -> {
+ 151., 0., 0., -151.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {96.04903319831699,
+ 0., -96.04903319831699, 0.}, $CellContext`p5 -> {
+ 79.36107778996139, -10., 78.72852512262821, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732935252657*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807953362329*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"fc24e05b-0852-490c-978e-63c6aa21ec9d"],
+In[266]:=",ExpressionUUID->"8c0b8238-be10-4d3c-85dc-b58295e98d1d"],
Cell[BoxData[
InterpretationBox[
@@ -26750,69 +5881,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "6.606878481900183485088853539990340592370723704137901224984354142`43.\
-821736980625346*^-14", ",", "0``58.69897000433602", ",",
- "0``57.41066688143161", ",", "0``57.30277065724028"}], "}"}]}],
+ "4.75290518014014908204859201701295911031071816931252205202060774`42.\
+89592221163982*^-15", ",", "0``58.69897000433602", ",",
+ "0``57.716477006598474", ",", "0``57.51999305704285"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 6.606878481900183485088853539990340592370723704137901224984354142`43.\
-821736980625346*^-14, 0``58.69897000433602, 0``57.41066688143161,
- 0``57.30277065724028}],
+ 4.75290518014014908204859201701295911031071816931252205202060774`42.\
+89592221163982*^-15, 0``58.69897000433602, 0``57.716477006598474,
+ 0``57.51999305704285}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732935259966*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807953368525*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"42cfc865-d45e-419a-9933-f6452ae7184c"],
+In[266]:=",ExpressionUUID->"f38ae927-a6c7-40f4-912e-5dadc4e39a11"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797329352669783`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807953375556*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"60882851-f290-447e-b978-f05c4a05eee8"],
+In[266]:=",ExpressionUUID->"3b656c13-8cae-4d95-af99-b333432c03b4"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "194.2241023358707536772`10."}], ",",
- RowBox[{"S", "\[Rule]", "248004.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "96.0490331983169909336`10."}], ",",
+ RowBox[{"S", "\[Rule]", "91204.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "47416.7647278373703998254`10."}]}], ",",
+ RowBox[{"-", "22605.1464815399314472837`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "47416.7647278373703998254`10."}]}], ",",
+ RowBox[{"-", "22605.1464815399314472837`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "96723.6029632636353312591`10."}]}], ",",
+ RowBox[{"-", "29006.808025891731261936`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "96723.6029632636353312591`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "71526.7353822019880492406`10."}], ",",
+ RowBox[{"-", "29006.808025891731261936`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "43269.909014863324664048`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "498.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "302.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "267.4448268002243262857`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "208.0142038776759221911`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05652796395585067859422381859704034102`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "177.1860086524076850827`10."}], ",",
+ RowBox[{"-", "0.12701876460182526275621303226051119992`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "79.3610777899613865105`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "233.5739584659916009569`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "182.1822822016908960257`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732935274534*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798079533825827`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1651f5a5-fe59-4369-9df9-ff8ab032aab7"],
+In[266]:=",ExpressionUUID->"08c6fab5-da91-40b6-b44c-8077d206d311"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "234.375`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "127.46895424836602`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 234.375}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 127.46895424836602`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732945132023*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807964336294*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"9a8c63dd-b39a-4ebf-ab19-19aa7368d8a7"],
+In[266]:=",ExpressionUUID->"d54bb780-8a15-4189-a906-0cfeafeafdfc"],
Cell[BoxData[
InterpretationBox[
@@ -26823,12 +5963,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"250.`", ",", "0.`", ",", "0.`", ",", "250.`"}], "}"}]}]},
+ RowBox[{"153.`", ",", "0.`", ",", "0.`", ",", "153.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"250.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "250.`"}]}], "}"}]}]},
+ RowBox[{"153.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "153.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -26838,13 +5978,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"195.2248954351073`", ",", "0.`", ",",
- RowBox[{"-", "195.2248954351073`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"98.05683817354016`", ",", "0.`", ",",
+ RowBox[{"-", "98.05683817354016`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"178.18521555317105`", ",",
- RowBox[{"-", "10.`"}], ",", "177.90438735941854`", ",", "0.`"}],
+ RowBox[{"81.3532728147382`", ",",
+ RowBox[{"-", "10.`"}], ",", "80.73633009785138`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -26861,16 +6001,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {250., 0., 0., 250.}, $CellContext`p2 -> {
- 250., 0., 0., -250.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {195.2248954351073,
- 0., -195.2248954351073, 0.}, $CellContext`p5 -> {
- 178.18521555317105`, -10., 177.90438735941854`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {153., 0., 0., 153.}, $CellContext`p2 -> {
+ 153., 0., 0., -153.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {98.05683817354016,
+ 0., -98.05683817354016, 0.}, $CellContext`p5 -> {81.3532728147382, -10.,
+ 80.73633009785138, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732945140127*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807964348881*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"5c4a6013-0338-412a-820a-269a60f2a4d4"],
+In[266]:=",ExpressionUUID->"a008ac6e-0a20-4667-a93c-ba611212f427"],
Cell[BoxData[
InterpretationBox[
@@ -26879,70 +6021,77 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.133411185703668337240941341642941935979042236416828599381294722`\
-43.054387494405184*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.40843480544857", ",", "0``57.30102999566398"}], "}"}]}],
+ "-", "3.85546965254823324433507921883280955963850424570165572882758987`\
+42.79932586687863*^-15"}], ",", "0``58.69897000433602", ",",
+ "0``57.70749211895352", ",", "0``57.51427857351842"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.133411185703668337240941341642941935979042236416828599381294722`43.\
-054387494405184*^-14, 0``58.69897000433602, 0``57.40843480544857,
- 0``57.30102999566398}],
+{-3.85546965254823324433507921883280955963850424570165572882758987`42.\
+79932586687863*^-15, 0``58.69897000433602, 0``57.70749211895352,
+ 0``57.51427857351842}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797329451477327`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807964356035*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"10ed75b4-8b5a-43e0-856e-62bbce457278"],
+In[266]:=",ExpressionUUID->"b4f1ac48-5098-4917-a9d9-961a3d09092e"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797329451552477`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807964370089*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"6d94bf17-0a53-4852-a0b7-89b0c75ebb71"],
+In[266]:=",ExpressionUUID->"f2785632-cd19-40de-a47c-b2adb14c7cea"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "195.2248954351072995905`10."}], ",",
- RowBox[{"S", "\[Rule]", "250000.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "98.0568381735401572996`10."}], ",",
+ RowBox[{"S", "\[Rule]", "93636.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "47669.9445058608136544432`10."}]}], ",",
+ RowBox[{"-", "23111.5060375868179565193`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "47669.9445058608136544432`10."}]}], ",",
+ RowBox[{"-", "23111.5060375868179565193`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "97612.4477175536497952635`10."}]}], ",",
+ RowBox[{"-", "30005.3924811032881336814`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "97612.4477175536497952635`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "71814.7844468289309385557`10."}], ",",
+ RowBox[{"-", "30005.3924811032881336814`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "43847.7970373802128077115`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "500.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "306.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "267.9828062522462110404`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "209.3986557678444429792`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05620996844668645499761465916788424625`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "178.1852155531710617665`10."}], ",",
+ RowBox[{"-", "0.12385997713644068004904390554080359092`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "81.353272814738211536`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "234.0408181597660829301`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "183.3717945535611049941`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797329451623783`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807964382699*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"6e169ea6-5724-4b8e-bb39-80a688c7300c"],
+In[266]:=",ExpressionUUID->"3584388a-4830-42e7-8649-927cd5da0979"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "235.43725099601593`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "129.7983870967742`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 235.43725099601593`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 129.7983870967742}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797329551390667`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798079748124323`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"14cc0e2c-bb36-45bd-81f5-f1f5d90f0334"],
+In[266]:=",ExpressionUUID->"97b94049-d846-48a4-a6ef-ba3a9b0285cc"],
Cell[BoxData[
InterpretationBox[
@@ -26953,12 +6102,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"251.`", ",", "0.`", ",", "0.`", ",", "251.`"}], "}"}]}]},
+ RowBox[{"155.`", ",", "0.`", ",", "0.`", ",", "155.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"251.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "251.`"}]}], "}"}]}]},
+ RowBox[{"155.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "155.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -26968,13 +6117,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"196.22567967511728`", ",", "0.`", ",",
- RowBox[{"-", "196.22567967511728`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"100.06426720830291`", ",", "0.`", ",",
+ RowBox[{"-", "100.06426720830291`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"179.18443131316113`", ",",
- RowBox[{"-", "10.`"}], ",", "178.9051715994285`", ",", "0.`"}],
+ RowBox[{"83.34584377997541`", ",",
+ RowBox[{"-", "10.`"}], ",", "82.74375913261413`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -26991,16 +6140,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {251., 0., 0., 251.}, $CellContext`p2 -> {
- 251., 0., 0., -251.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {196.22567967511728`,
- 0., -196.22567967511728`, 0.}, $CellContext`p5 -> {
- 179.18443131316113`, -10., 178.9051715994285, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {155., 0., 0., 155.}, $CellContext`p2 -> {
+ 155., 0., 0., -155.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {100.06426720830291`,
+ 0., -100.06426720830291`, 0.}, $CellContext`p5 -> {
+ 83.34584377997541, -10., 82.74375913261413, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732955147023*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807974825368*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"8c11cba9-7c11-4db1-9406-8616d211a42a"],
+In[266]:=",ExpressionUUID->"4aefc1c4-e14f-4396-b172-d71a759aae75"],
Cell[BoxData[
InterpretationBox[
@@ -27008,70 +6159,79 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "3.608502185279077788674681416240163593394098712402634752621010813`43.\
-55559325983002*^-14", ",", "0``58.69897000433602", ",",
- "0``57.40621416229406", ",", "0``57.29929628285498"}], "}"}]}],
+ RowBox[{
+ "-", "5.798544610675157123465611696424417056534299503158204543759852266`\
+43.97092731322533*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.698690985046035", ",", "0``57.50863830616573"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 3.608502185279077788674681416240163593394098712402634752621010813`43.\
-55559325983002*^-14, 0``58.69897000433602, 0``57.40621416229406,
- 0``57.29929628285498}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-5.798544610675157123465611696424417056534299503158204543759852266`43.\
+97092731322533*^-14, 0``58.69897000433602, 0``57.698690985046035,
+ 0``57.50863830616573}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973295515434*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798079748402023`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e3a9b541-3d17-4f84-81af-7517d68d245e"],
+In[266]:=",ExpressionUUID->"27acec2e-4608-46dc-b472-c012d0c0876b"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732955161605*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807974847746*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"4e340a06-f29f-4e5b-bf2e-ebd37027a189"],
+In[266]:=",ExpressionUUID->"44b1aa4b-209d-4baa-a24f-5086c84dd298"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "196.2256796751172771565`10."}], ",",
- RowBox[{"S", "\[Rule]", "252004.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "100.0642672083029083296`10."}], ",",
+ RowBox[{"S", "\[Rule]", "96100.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "47923.124283884256909061`10."}]}], ",",
+ RowBox[{"-", "23617.8655936337044657548`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "47923.124283884256909061`10."}]}], ",",
+ RowBox[{"-", "23617.8655936337044657548`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "98505.2911969088731325428`10."}]}], ",",
+ RowBox[{"-", "31019.9228345739015821891`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "98505.2911969088731325428`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "72102.8309615862471514593`10."}], ",",
+ RowBox[{"-", "31019.9228345739015821891`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "44425.5768564152217615797`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "502.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "310.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "268.5197031161516965814`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "210.7737575136317148291`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05589553343035917057531302232086538114`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "179.1844313131611316197`10."}], ",",
+ RowBox[{"-", "0.12085503613599321581184351047099920758`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "83.345843779975406376`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "234.5067538604853824022`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "184.553933393065812731`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732955169242*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798079748611393`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"bbfc0772-212b-4f8b-a8f9-9f7d9135b1f4"],
+In[266]:=",ExpressionUUID->"7d28ae1c-9c4e-4461-ae44-84ea961865eb"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "236.49900793650792`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "132.11942675159236`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 236.49900793650792`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 132.11942675159236`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732965061411*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980798572584*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"14bd8b5d-cc69-425a-bf84-43793f9b452d"],
+In[266]:=",ExpressionUUID->"2f03467d-55a9-4ef2-8f46-8f365c9550ba"],
Cell[BoxData[
InterpretationBox[
@@ -27082,12 +6242,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"252.`", ",", "0.`", ",", "0.`", ",", "252.`"}], "}"}]}]},
+ RowBox[{"157.`", ",", "0.`", ",", "0.`", ",", "157.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"252.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "252.`"}]}], "}"}]}]},
+ RowBox[{"157.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "157.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -27097,13 +6257,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"197.22645520351762`", ",", "0.`", ",",
- RowBox[{"-", "197.22645520351762`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"102.07134682559936`", ",", "0.`", ",",
+ RowBox[{"-", "102.07134682559936`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"180.18365578476076`", ",",
- RowBox[{"-", "10.`"}], ",", "179.90594712782885`", ",", "0.`"}],
+ RowBox[{"85.338764162679`", ",",
+ RowBox[{"-", "10.`"}], ",", "84.75083874991059`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -27120,16 +6280,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {252., 0., 0., 252.}, $CellContext`p2 -> {
- 252., 0., 0., -252.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {197.22645520351762`,
- 0., -197.22645520351762`, 0.}, $CellContext`p5 -> {
- 180.18365578476076`, -10., 179.90594712782885`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {157., 0., 0., 157.}, $CellContext`p2 -> {
+ 157., 0., 0., -157.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {102.07134682559936`,
+ 0., -102.07134682559936`, 0.}, $CellContext`p5 -> {
+ 85.338764162679, -10., 84.75083874991059, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732965069471*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798079857335443`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"145deafe-86b7-4095-9c4a-9fe664c231cc"],
+In[266]:=",ExpressionUUID->"71bc2fa4-c8a4-4f96-9517-5b80860f0e1b"],
Cell[BoxData[
InterpretationBox[
@@ -27138,70 +6300,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "2.52953732959564332081492287326689672793204345832708680382097153`\
-42.399580560774346*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.404004835220164", ",", "0``57.29756946355448"}], "}"}]}],
+ "-", "4.40524298746586691234288109154313174681373025961576029673934461`\
+42.84601022478956*^-15"}], ",", "0``58.69897000433602", ",",
+ "0``57.69006615903635", ",", "0``57.50307035192678"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.52953732959564332081492287326689672793204345832708680382097153`42.\
-399580560774346*^-15, 0``58.69897000433602, 0``57.404004835220164,
- 0``57.29756946355448}],
+{-4.40524298746586691234288109154313174681373025961576029673934461`42.\
+84601022478956*^-15, 0``58.69897000433602, 0``57.69006615903635,
+ 0``57.50307035192678}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732965076449*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807985741209*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e7930df0-50d3-4c37-9fcb-388956be3c58"],
+In[266]:=",ExpressionUUID->"c6b5c1eb-2e88-4746-afc3-c6a28a0776f9"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732965083721*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980798574796*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"bb511371-6aea-47b0-bdc5-7a4734c9600e"],
+In[266]:=",ExpressionUUID->"c29a0cf5-44e0-434f-8ef9-915c6aa7b78b"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "197.22645520351761661`10."}], ",",
- RowBox[{"S", "\[Rule]", "254016.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "102.0713468255993632283`10."}], ",",
+ RowBox[{"S", "\[Rule]", "98596.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "48176.3040619077001636787`10."}]}], ",",
+ RowBox[{"-", "24124.2251496805909749903`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "48176.3040619077001636787`10."}]}], ",",
+ RowBox[{"-", "24124.2251496805909749903`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "99402.1334225728787714615`10."}]}], ",",
+ RowBox[{"-", "32050.4029032382000536927`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "99402.1334225728787714615`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "72390.8749689611587818432`10."}], ",",
+ RowBox[{"-", "32050.4029032382000536927`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "45003.2561058375828092421`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "504.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "314.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "269.0555239517694027711`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "212.139708932197752295`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05558459939567581350229371025600989353`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "180.1836557847607535516`10."}], ",",
+ RowBox[{"-", "0.1179929325479454291951974797816580628`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "85.3387641626790050576`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "234.9717709744177778369`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "185.7288189633574287253`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732965091258*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980798575454*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d2295971-afef-4bf4-98ed-ed9bcaec0425"],
+In[266]:=",ExpressionUUID->"1ff70608-ee41-4d91-94d0-47ec3d8eeef5"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "237.56027667984188`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "134.43238993710693`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 237.56027667984188`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 134.43238993710693`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797329749938726`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807995984888*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"01e1f038-5499-4034-9d9e-0cf6f867ce3d"],
+In[266]:=",ExpressionUUID->"015e02cd-5970-4642-812e-f86957fa6352"],
Cell[BoxData[
InterpretationBox[
@@ -27212,12 +6382,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"253.`", ",", "0.`", ",", "0.`", ",", "253.`"}], "}"}]}]},
+ RowBox[{"159.`", ",", "0.`", ",", "0.`", ",", "159.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"253.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "253.`"}]}], "}"}]}]},
+ RowBox[{"159.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "159.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -27227,13 +6397,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"198.227222164664`", ",", "0.`", ",",
- RowBox[{"-", "198.227222164664`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"104.07810111078277`", ",", "0.`", ",",
+ RowBox[{"-", "104.07810111078277`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"181.18288882361443`", ",",
- RowBox[{"-", "10.`"}], ",", "180.90671408897524`", ",", "0.`"}],
+ RowBox[{"87.33200987749561`", ",",
+ RowBox[{"-", "10.`"}], ",", "86.75759303509399`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -27250,16 +6420,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {253., 0., 0., 253.}, $CellContext`p2 -> {
- 253., 0., 0., -253.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {198.227222164664,
- 0., -198.227222164664, 0.}, $CellContext`p5 -> {
- 181.18288882361443`, -10., 180.90671408897524`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {159., 0., 0., 159.}, $CellContext`p2 -> {
+ 159., 0., 0., -159.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {104.07810111078277`,
+ 0., -104.07810111078277`, 0.}, $CellContext`p5 -> {
+ 87.33200987749561, -10., 86.75759303509399, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732975002101*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807995991562*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"05cdd8b4-a799-4470-ae6d-368a97c49248"],
+In[266]:=",ExpressionUUID->"bf41335d-1484-4819-89b6-9a77fc51cffb"],
Cell[BoxData[
InterpretationBox[
@@ -27267,70 +6439,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "5.886735655419459715586288049646543409346644894066335721211933367`43.\
-76469402169971*^-14", ",", "0``58.69897000433602", ",",
- "0``57.401806709262004", ",", "0``57.2958494831602"}], "}"}]}],
+ "1.34982384906502841718028716092735908644313404561425420184909417`42.\
+32681998146103*^-15", ",", "0``58.69897000433602", ",",
+ "0``57.681610644347366", ",", "0``57.49757288001557"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 5.886735655419459715586288049646543409346644894066335721211933367`43.\
-76469402169971*^-14, 0``58.69897000433602, 0``57.401806709262004,
- 0``57.2958494831602}],
+ 1.34982384906502841718028716092735908644313404561425420184909417`42.\
+32681998146103*^-15, 0``58.69897000433602, 0``57.681610644347366,
+ 0``57.49757288001557}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732975009507*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798079959977493`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c176b5a6-0010-43c6-8ab3-5946b4b27a0e"],
+In[266]:=",ExpressionUUID->"8ba2ca15-2445-4bf3-9bf5-1648c068b58d"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732975016438*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779807996003828*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"9c675c80-d4fe-4039-84ad-6cf424df5c31"],
+In[266]:=",ExpressionUUID->"f98245ed-6d42-440c-b3b0-af7b0e9b1310"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "198.2272221646639991377`10."}], ",",
- RowBox[{"S", "\[Rule]", "256036.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "104.0781011107827680462`10."}], ",",
+ RowBox[{"S", "\[Rule]", "101124.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "48429.4838399311434182966`10."}]}], ",",
+ RowBox[{"-", "24630.5847057274774842259`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "48429.4838399311434182966`10."}]}], ",",
+ RowBox[{"-", "24630.5847057274774842259`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "100302.9744153199835636769`10."}]}], ",",
+ RowBox[{"-", "33096.8361532289202386892`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "100302.9744153199835636769`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "72678.9165105022326324315`10."}], ",",
+ RowBox[{"-", "33096.8361532289202386892`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "45580.8417179127952100644`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "506.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "318.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "269.5902752520984994152`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "213.4967018900123318953`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05527710815134095464482549279633974581`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "181.1828888236144324207`10."}], ",",
+ RowBox[{"-", "0.11526368644131167575801964329982782721`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "87.3320098774956059947`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "235.4358748563185072953`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "186.8965695071532341585`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732975023732*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798079960101767`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"796c2442-31a5-418b-824a-2ba5b593daf6"],
+In[266]:=",ExpressionUUID->"52ff58b7-bcbb-4732-86a6-5cedca09e51a"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "238.62106299212599`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "136.73757763975155`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 238.62106299212599`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 136.73757763975155`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732984904131*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808005997459*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"15710fec-7ebd-451b-ae77-35b561df9b32"],
+In[266]:=",ExpressionUUID->"e9f1939d-01ac-4b90-8e73-5ab9ca262aa6"],
Cell[BoxData[
InterpretationBox[
@@ -27341,12 +6521,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"254.`", ",", "0.`", ",", "0.`", ",", "254.`"}], "}"}]}]},
+ RowBox[{"161.`", ",", "0.`", ",", "0.`", ",", "161.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"254.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "254.`"}]}], "}"}]}]},
+ RowBox[{"161.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "161.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -27356,13 +6536,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"199.22798069974007`", ",", "0.`", ",",
- RowBox[{"-", "199.22798069974007`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"106.08455198532013`", ",", "0.`", ",",
+ RowBox[{"-", "106.08455198532013`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"182.1821302885384`", ",",
- RowBox[{"-", "10.`"}], ",", "181.9074726240513`", ",", "0.`"}],
+ RowBox[{"89.32555900295819`", ",",
+ RowBox[{"-", "10.`"}], ",", "88.76404390963135`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -27379,16 +6559,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {254., 0., 0., 254.}, $CellContext`p2 -> {
- 254., 0., 0., -254.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {199.22798069974007`,
- 0., -199.22798069974007`, 0.}, $CellContext`p5 -> {
- 182.1821302885384, -10., 181.9074726240513, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {161., 0., 0., 161.}, $CellContext`p2 -> {
+ 161., 0., 0., -161.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {106.08455198532013`,
+ 0., -106.08455198532013`, 0.}, $CellContext`p5 -> {
+ 89.32555900295819, -10., 88.76404390963135, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732984911853*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808006006246*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"440ac9df-6eda-4880-9624-62034d378cad"],
+In[266]:=",ExpressionUUID->"14f7a739-8c55-4e31-a4c7-ed6262c9f924"],
Cell[BoxData[
InterpretationBox[
@@ -27396,69 +6578,79 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "7.895766618058556773030779039853409947599160792237591205291561884`43.\
-890500595089144*^-14", ",", "0``58.69897000433602", ",",
- "0``57.399619671201556", ",", "0``57.294136287716086"}], "}"}]}],
+ RowBox[{
+ "-", "5.536256662938171148660148826591031798192890993799241544596192038`\
+43.9343303486109*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.67331785772015", ",", "0``57.492144128304176"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 7.895766618058556773030779039853409947599160792237591205291561884`43.\
-890500595089144*^-14, 0``58.69897000433602, 0``57.399619671201556,
- 0``57.294136287716086}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-5.536256662938171148660148826591031798192890993799241544596192038`43.\
+9343303486109*^-14, 0``58.69897000433602, 0``57.67331785772015,
+ 0``57.492144128304176}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732984919133*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798080060124693`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f5b63227-647c-4bef-ba6c-1381132a8434"],
+In[266]:=",ExpressionUUID->"844c8e48-6342-4a74-b4cc-fcdf912daf81"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732984926155*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808006018647*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c3756552-9d11-4072-b2de-3754ec136fb3"],
+In[266]:=",ExpressionUUID->"91717aa5-cf17-49fe-a66f-1db4728624ff"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "199.2279806997400726232`10."}], ",",
- RowBox[{"S", "\[Rule]", "258064.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "106.0845519853201324167`10."}], ",",
+ RowBox[{"S", "\[Rule]", "103684.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "48682.6636179545866729143`10."}]}], ",",
+ RowBox[{"-", "25136.9442617743639934614`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "48682.6636179545866729143`10."}]}], ",",
+ RowBox[{"-", "25136.9442617743639934614`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "101207.8141954679568925712`10."}]}], ",",
+ RowBox[{"-", "34159.2257392730826381921`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "101207.8141954679568925712`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "72966.9556268450583616195`10."}], ",",
+ RowBox[{"-", "34159.2257392730826381921`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "46158.3400020949031538916`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "508.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "322.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "270.123963444276928449`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "214.844920819866959111`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05497300278953921233890630247989662963`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "182.1821302885383790256`10."}], ",",
+ RowBox[{"-", "0.11265822916068099615285225308525588311`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "89.3255590029581849118`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "235.8990708100905915365`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "188.057301164974211209`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732984933446*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808006024911*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c4acf745-a5aa-4dba-9538-ba5089eab16d"],
+In[266]:=",ExpressionUUID->"b0799bcc-5929-48be-a1bb-7e57e7696cf5"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "239.6813725490196`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "139.03527607361963`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 239.6813725490196}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 139.03527607361963`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732994782082*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798080161663017`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"60c27dc7-bee7-451d-b3ae-93edfd3ea7ec"],
+In[266]:=",ExpressionUUID->"8e2d1172-2152-4f6d-9afc-128e71524f01"],
Cell[BoxData[
InterpretationBox[
@@ -27469,12 +6661,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"255.`", ",", "0.`", ",", "0.`", ",", "255.`"}], "}"}]}]},
+ RowBox[{"163.`", ",", "0.`", ",", "0.`", ",", "163.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"255.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "255.`"}]}], "}"}]}]},
+ RowBox[{"163.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "163.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -27484,13 +6676,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"200.2287309468443`", ",", "0.`", ",",
- RowBox[{"-", "200.2287309468443`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"108.09071944446494`", ",", "0.`", ",",
+ RowBox[{"-", "108.09071944446494`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"183.1813800414341`", ",",
- RowBox[{"-", "10.`"}], ",", "182.90822287115554`", ",", "0.`"}],
+ RowBox[{"91.31939154381342`", ",",
+ RowBox[{"-", "10.`"}], ",", "90.77021136877616`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -27507,16 +6699,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {255., 0., 0., 255.}, $CellContext`p2 -> {
- 255., 0., 0., -255.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {200.2287309468443,
- 0., -200.2287309468443, 0.}, $CellContext`p5 -> {
- 183.1813800414341, -10., 182.90822287115554`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {163., 0., 0., 163.}, $CellContext`p2 -> {
+ 163., 0., 0., -163.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {108.09071944446494`,
+ 0., -108.09071944446494`, 0.}, $CellContext`p5 -> {
+ 91.31939154381342, -10., 90.77021136877616, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732994790146*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798080161739693`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"53ecad83-d705-4e45-8dc4-5c94090abb81"],
+In[266]:=",ExpressionUUID->"eb0170b0-4c82-43d8-99b1-a3fa4b532864"],
Cell[BoxData[
InterpretationBox[
@@ -27524,69 +6718,79 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.843500018677066577035041785216950462993836543366240578087207553`43.\
-25704297458019*^-14", ",", "0``58.69897000433602", ",", "0``57.3974436095323",
- ",", "0``57.29242982390206"}], "}"}]}],
+ RowBox[{
+ "-", "1.627914165692559747835279139821195375961973831149872631177224826`\
+43.3973839065726*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.665181596849685", ",", "0``57.48678239993206"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.843500018677066577035041785216950462993836543366240578087207553`43.\
-25704297458019*^-14, 0``58.69897000433602, 0``57.3974436095323,
- 0``57.29242982390206}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-1.627914165692559747835279139821195375961973831149872631177224826`43.\
+3973839065726*^-14, 0``58.69897000433602, 0``57.665181596849685,
+ 0``57.48678239993206}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732994797762*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808016180361*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"20a6dbf1-f4f2-405e-8f53-d7dcb6b14f1d"],
+In[266]:=",ExpressionUUID->"6bbd950a-f602-4ee1-afe1-c578f08c04b9"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732994805081*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798080161866703`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"653edb9b-677f-4823-bdf5-b88f911180fc"],
+In[266]:=",ExpressionUUID->"c6a16f31-324f-4a94-b14b-61aaa71c1e09"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "200.2287309468443083915`10."}], ",",
- RowBox[{"S", "\[Rule]", "260100.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "108.0907194444649377374`10."}], ",",
+ RowBox[{"S", "\[Rule]", "106276.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "48935.8433959780299275321`10."}]}], ",",
+ RowBox[{"-", "25643.303817821250502697`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "48935.8433959780299275321`10."}]}], ",",
+ RowBox[{"-", "25643.303817821250502697`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "102116.6527828905972796747`10."}]}], ",",
+ RowBox[{"-", "35237.5745388955697023903`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "102116.6527828905972796747`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "73254.992357737247660516`10."}], ",",
+ RowBox[{"-", "35237.5745388955697023903`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "46735.7567134336433833771`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "510.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "326.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "270.6565948905314364288`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "216.1845431880680117542`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05467222765071756176359006858501958503`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "183.1813800414340827346`10."}], ",",
+ RowBox[{"-", "0.1101683013535415968579915729918790254`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "91.3193915438134186746`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "236.3613640894357693204`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "189.2111279026919534326`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779732994812565*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798080161929903`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e88610a5-7b2b-499d-b325-738fea1e3954"],
+In[266]:=",ExpressionUUID->"fc291cc6-3449-4d31-9660-047e450d5b0c"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "240.7412109375`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "141.32575757575756`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 240.7412109375}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 141.32575757575756`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733004738564*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808026115034*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"af98e0e4-6695-46d7-b4db-b00f7afe94b1"],
+In[266]:=",ExpressionUUID->"1b41cd17-d54f-4e00-80e8-778e552a5bf6"],
Cell[BoxData[
InterpretationBox[
@@ -27597,12 +6801,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"256.`", ",", "0.`", ",", "0.`", ",", "256.`"}], "}"}]}]},
+ RowBox[{"165.`", ",", "0.`", ",", "0.`", ",", "165.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"256.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "256.`"}]}], "}"}]}]},
+ RowBox[{"165.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "165.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -27612,13 +6816,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"201.22947304107382`", ",", "0.`", ",",
- RowBox[{"-", "201.22947304107382`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"110.09662176427692`", ",", "0.`", ",",
+ RowBox[{"-", "110.09662176427692`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"184.1806379472045`", ",",
- RowBox[{"-", "10.`"}], ",", "183.90896496538505`", ",", "0.`"}],
+ RowBox[{"93.31348922400144`", ",",
+ RowBox[{"-", "10.`"}], ",", "92.77611368858814`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -27635,16 +6839,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {256., 0., 0., 256.}, $CellContext`p2 -> {
- 256., 0., 0., -256.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {201.22947304107382`,
- 0., -201.22947304107382`, 0.}, $CellContext`p5 -> {
- 184.1806379472045, -10., 183.90896496538505`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {165., 0., 0., 165.}, $CellContext`p2 -> {
+ 165., 0., 0., -165.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {110.09662176427692`,
+ 0., -110.09662176427692`, 0.}, $CellContext`p5 -> {
+ 93.31348922400144, -10., 92.77611368858814, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733004746644*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808026121718*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"fe8a7e78-dde8-405c-b5f1-e2c0b955c3f1"],
+In[266]:=",ExpressionUUID->"f08a789b-191e-4369-93f5-0eb954d9b45d"],
Cell[BoxData[
InterpretationBox[
@@ -27653,70 +6859,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "6.33429830999465020912448471392613164648752145750964541939953688`\
-43.791398555716874*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.39527841442487", ",", "0``57.29073003902417"}], "}"}]}],
+ "-", "1.608922410266737868290049163607647665020758462409887673440837738`\
+43.3869911653592*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.657196011173916", ",", "0``57.48148606012211"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-6.33429830999465020912448471392613164648752145750964541939953688`43.\
-791398555716874*^-14, 0``58.69897000433602, 0``57.39527841442487,
- 0``57.29073003902417}],
+{-1.608922410266737868290049163607647665020758462409887673440837738`43.\
+3869911653592*^-14, 0``58.69897000433602, 0``57.657196011173916,
+ 0``57.48148606012211}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797330047541313`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808026127975*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"249c161d-f218-47f7-aee8-fe8d682e73cc"],
+In[266]:=",ExpressionUUID->"3caec7b6-c37d-4c29-b0e6-37f91e096e2e"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733004761557*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798080261341267`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1a8c3c2c-9e15-4144-9d82-a482576f9b73"],
+In[266]:=",ExpressionUUID->"80cd2451-e3eb-4644-a342-d9ebaf984af0"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "201.2294730410738168302`10."}], ",",
- RowBox[{"S", "\[Rule]", "262144.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "110.0966217642769180429`10."}], ",",
+ RowBox[{"S", "\[Rule]", "108900.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "49189.0231740014731821498`10."}]}], ",",
+ RowBox[{"-", "26149.6633738681370119325`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "49189.0231740014731821498`10."}]}], ",",
+ RowBox[{"-", "26149.6633738681370119325`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "103029.4901970297942170873`10."}]}], ",",
+ RowBox[{"-", "36331.8851822113829541649`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "103029.4901970297942170873`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "73543.0267420625581315764`10."}], ",",
+ RowBox[{"-", "36331.8851822113829541649`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "47313.0971121590429348782`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "512.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "330.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "271.1881758891094391211`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "217.5157399181931453057`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05437472828952182310940905545664635692`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "184.1806379472044925179`10."}], ",",
+ RowBox[{"-", "0.10778636442528678963403670052967910275`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "93.313489224001438559`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "236.8227598984953392682`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "190.3581614630095838159`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797330047690897`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808026140689*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f51ddc27-ab6b-44a0-a88f-15f42a1f99f8"],
+In[266]:=",ExpressionUUID->"83f39111-b73d-40ad-9887-9ecaeed8279a"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "241.80058365758754`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "143.60928143712576`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 241.80058365758754`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 143.60928143712576`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733014686716*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808036430111*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"82a0950d-1272-4170-aef9-c002b918c9a4"],
+In[266]:=",ExpressionUUID->"b88b6f11-908c-443f-b390-82298db77fa5"],
Cell[BoxData[
InterpretationBox[
@@ -27727,12 +6941,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"257.`", ",", "0.`", ",", "0.`", ",", "257.`"}], "}"}]}]},
+ RowBox[{"167.`", ",", "0.`", ",", "0.`", ",", "167.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"257.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "257.`"}]}], "}"}]}]},
+ RowBox[{"167.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "167.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -27742,13 +6956,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"202.2302071146054`", ",", "0.`", ",",
- RowBox[{"-", "202.2302071146054`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"112.10227568250474`", ",", "0.`", ",",
+ RowBox[{"-", "112.10227568250474`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"185.17990387367288`", ",",
- RowBox[{"-", "10.`"}], ",", "184.90969903891664`", ",", "0.`"}],
+ RowBox[{"95.30783530577362`", ",",
+ RowBox[{"-", "10.`"}], ",", "94.78176760681596`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -27765,16 +6979,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {257., 0., 0., 257.}, $CellContext`p2 -> {
- 257., 0., 0., -257.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {202.2302071146054,
- 0., -202.2302071146054, 0.}, $CellContext`p5 -> {
- 185.17990387367288`, -10., 184.90969903891664`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {167., 0., 0., 167.}, $CellContext`p2 -> {
+ 167., 0., 0., -167.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {112.10227568250474`,
+ 0., -112.10227568250474`, 0.}, $CellContext`p5 -> {
+ 95.30783530577362, -10., 94.78176760681596, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733014695013*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980803643894*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"fbd1d117-575e-4d49-ac4d-d7043a5a8763"],
+In[266]:=",ExpressionUUID->"67dc7748-cf1b-45de-bf9d-a817896c79de"],
Cell[BoxData[
InterpretationBox[
@@ -27783,69 +6999,77 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "8.997560462884839704139135680205803121628960234388265291487792821`\
-43.942131659099594*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.39312397769349", ",", "0``57.289036881004726"}], "}"}]}],
+ "-", "1.349361664056711205363163153662514190559378520653897000595066735`\
+43.305351905026605*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.64935557544915", ",", "0``57.476253533188434"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-8.997560462884839704139135680205803121628960234388265291487792821`43.\
-942131659099594*^-14, 0``58.69897000433602, 0``57.39312397769349,
- 0``57.289036881004726}],
+{-1.349361664056711205363163153662514190559378520653897000595066735`43.\
+305351905026605*^-14, 0``58.69897000433602, 0``57.64935557544915,
+ 0``57.476253533188434}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733014702497*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798080364454412`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"b09a72c1-ced8-4312-89f6-fb7c78fe37f2"],
+In[266]:=",ExpressionUUID->"1565cc7e-e17a-43d6-a0c4-08d4db388bf9"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797330147098417`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808036451742*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"86d86bd1-3581-4431-98fc-6cd6eae673bd"],
+In[266]:=",ExpressionUUID->"7ff6d5f1-6010-4688-8e73-b55e33ca4e99"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "202.2302071146054061046`10."}], ",",
- RowBox[{"S", "\[Rule]", "264196.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "112.1022756825047395068`10."}], ",",
+ RowBox[{"S", "\[Rule]", "111556.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "49442.2029520249164367676`10."}]}], ",",
+ RowBox[{"-", "26656.0229299150235211681`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "49442.2029520249164367676`10."}]}], ",",
+ RowBox[{"-", "26656.0229299150235211681`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "103946.3264569071787377652`10."}]}], ",",
+ RowBox[{"-", "37442.1600779565829952844`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "103946.3264569071787377652`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "73831.0588178642236724133`10."}], ",",
+ RowBox[{"-", "37442.1600779565829952844`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "47890.3660157432156049997`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "514.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "334.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "271.718712675193247671`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "218.838675776799599069`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05408045144184335571064974203954161384`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "185.1799038736728766109`10."}], ",",
+ RowBox[{"-", "0.10550552339858323004518201782406361373`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "95.3078353057736196907`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "237.2832633924811529313`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "191.4985113364770468315`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797330147172823`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798080364581537`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d5b2f4c3-ae61-42b1-a376-2a425174d705"],
+In[266]:=",ExpressionUUID->"b96f086f-c5e9-418c-936b-5da2dbbd2049"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "242.859496124031`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "145.8860946745562`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 242.859496124031}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 145.8860946745562}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733024566605*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808046684003*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c93a8f9a-1759-422a-b7b9-b340278cf6bc"],
+In[266]:=",ExpressionUUID->"3b25356b-39ec-4310-9e74-0915ffa6556d"],
Cell[BoxData[
InterpretationBox[
@@ -27856,12 +7080,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"258.`", ",", "0.`", ",", "0.`", ",", "258.`"}], "}"}]}]},
+ RowBox[{"169.`", ",", "0.`", ",", "0.`", ",", "169.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"258.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "258.`"}]}], "}"}]}]},
+ RowBox[{"169.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "169.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -27871,13 +7095,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"203.23093329677405`", ",", "0.`", ",",
- RowBox[{"-", "203.23093329677405`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"114.10769655710146`", ",", "0.`", ",",
+ RowBox[{"-", "114.10769655710146`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"186.17917769150432`", ",",
- RowBox[{"-", "10.`"}], ",", "185.9104252210853`", ",", "0.`"}],
+ RowBox[{"97.30241443117691`", ",",
+ RowBox[{"-", "10.`"}], ",", "96.78718848141268`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -27894,16 +7118,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {258., 0., 0., 258.}, $CellContext`p2 -> {
- 258., 0., 0., -258.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {203.23093329677405`,
- 0., -203.23093329677405`, 0.}, $CellContext`p5 -> {
- 186.17917769150432`, -10., 185.9104252210853, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {169., 0., 0., 169.}, $CellContext`p2 -> {
+ 169., 0., 0., -169.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {114.10769655710146`,
+ 0., -114.10769655710146`, 0.}, $CellContext`p5 -> {
+ 97.30241443117691, -10., 96.78718848141268, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733024574752*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798080466987333`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"cd670e08-dc00-49d7-9565-1786a12a4f84"],
+In[266]:=",ExpressionUUID->"adbc6861-3376-4a17-a2dc-98aff4a6157e"],
Cell[BoxData[
InterpretationBox[
@@ -27911,70 +7137,77 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "8.53219724052682125926928527229364874529402560452660797939851454`42.\
-917381189275496*^-15", ",", "0``58.69897000433602", ",",
- "0``57.390980192763244", ",", "0``57.28735029837279"}], "}"}]}],
+ "3.05024027470863849020310962104625764334925938852391737317416194`42.\
+654387355165824*^-15", ",", "0``58.69897000433602", ",",
+ "0``57.641655065793806", ",", "0``57.471083299722345"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 8.53219724052682125926928527229364874529402560452660797939851454`42.\
-917381189275496*^-15, 0``58.69897000433602, 0``57.390980192763244,
- 0``57.28735029837279}],
+ 3.05024027470863849020310962104625764334925938852391737317416194`42.\
+654387355165824*^-15, 0``58.69897000433602, 0``57.641655065793806,
+ 0``57.471083299722345}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973302458221*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808046710622*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"054cd626-ae92-42d9-8042-4c6554225d37"],
+In[266]:=",ExpressionUUID->"6406a1eb-22e1-4186-9f7b-16d73f0a7161"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733024589738*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808046717111*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e98b64fd-d743-4112-9482-1db6ce256561"],
+In[266]:=",ExpressionUUID->"e3a20f1b-6dd6-442d-8949-5ed9b009620e"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "203.2309332967740544973`10."}], ",",
- RowBox[{"S", "\[Rule]", "266256.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "114.1076965571014625311`10."}], ",",
+ RowBox[{"S", "\[Rule]", "114244.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "49695.3827300483596913854`10."}]}], ",",
+ RowBox[{"-", "27162.3824859619100304036`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "49695.3827300483596913854`10."}]}], ",",
+ RowBox[{"-", "27162.3824859619100304036`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "104867.1615811354121206023`10."}]}], ",",
+ RowBox[{"-", "38568.4014363002943355241`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "104867.1615811354121206023`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "74119.0886223675404469404`10."}], ",",
+ RowBox[{"-", "38568.4014363002943355241`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "48467.5678445244081382639`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "516.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "338.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "272.2482114217971137908`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "220.1535097256557664309`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05378934499293392243711318320718384628`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "186.179177691504326726`10."}], ",",
+ RowBox[{"-", "0.10331945949561734469054047154436719059`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "97.3024144311769132102`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "237.7428796782969504545`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "192.6322847484279118412`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733024597261*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798080467288237`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"ff196bb4-de55-456f-8b6f-edb5a9453fef"],
+In[266]:=",ExpressionUUID->"30c24c95-84b8-4017-83a7-04efa39d7984"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "243.91795366795367`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "148.156432748538`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 243.91795366795367`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 148.156432748538}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797330345745373`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808056950225*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"7a82b92e-1c47-4809-a0dd-b7a6563cbea5"],
+In[266]:=",ExpressionUUID->"1292d6ae-e52f-4597-9820-dd9c1542875e"],
Cell[BoxData[
InterpretationBox[
@@ -27985,12 +7218,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"259.`", ",", "0.`", ",", "0.`", ",", "259.`"}], "}"}]}]},
+ RowBox[{"171.`", ",", "0.`", ",", "0.`", ",", "171.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"259.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "259.`"}]}], "}"}]}]},
+ RowBox[{"171.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "171.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -28000,13 +7233,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"204.23165171414874`", ",", "0.`", ",",
- RowBox[{"-", "204.23165171414874`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"116.11289850553476`", ",", "0.`", ",",
+ RowBox[{"-", "116.11289850553476`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"187.17845927412966`", ",",
- RowBox[{"-", "10.`"}], ",", "186.91114363845998`", ",", "0.`"}],
+ RowBox[{"99.29721248274356`", ",",
+ RowBox[{"-", "10.`"}], ",", "98.79239042984598`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -28023,16 +7256,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {259., 0., 0., 259.}, $CellContext`p2 -> {
- 259., 0., 0., -259.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {204.23165171414874`,
- 0., -204.23165171414874`, 0.}, $CellContext`p5 -> {
- 187.17845927412966`, -10., 186.91114363845998`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {171., 0., 0., 171.}, $CellContext`p2 -> {
+ 171., 0., 0., -171.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {116.11289850553476`,
+ 0., -116.11289850553476`, 0.}, $CellContext`p5 -> {
+ 99.29721248274356, -10., 98.79239042984598, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733034587453*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808056957116*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"ec0d7e26-4eff-4a3e-9d03-f016df1ea016"],
+In[266]:=",ExpressionUUID->"4ce84bba-ed5b-4912-a87e-d017019db3b0"],
Cell[BoxData[
InterpretationBox[
@@ -28040,70 +7275,79 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "2.126631587902720356618789827460214919370319763361349118594822212`43.\
-31233250496881*^-14", ",", "0``58.69897000433602", ",",
- "0``57.388846954638225", ",", "0``57.28567024025477"}], "}"}]}],
+ RowBox[{
+ "-", "4.823646425656561924475283095979448241548253059448456221727353062`\
+43.84831936469763*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.63408953792536", ",", "0``57.46597389394386"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 2.126631587902720356618789827460214919370319763361349118594822212`43.\
-31233250496881*^-14, 0``58.69897000433602, 0``57.388846954638225,
- 0``57.28567024025477}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-4.823646425656561924475283095979448241548253059448456221727353062`43.\
+84831936469763*^-14, 0``58.69897000433602, 0``57.63408953792536,
+ 0``57.46597389394386}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733034595161*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808056963648*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"a046af61-a864-4999-9f93-40ec8da1541c"],
+In[266]:=",ExpressionUUID->"7663382a-1639-4c1d-96f6-516910e22016"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733034604643*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808056970017*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f6c310f6-418c-490f-b65c-e92303cba8d7"],
+In[266]:=",ExpressionUUID->"9720bfa9-5fef-4b33-a27c-8bd0ac8d03fc"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "204.2316517141487395293`10."}], ",",
- RowBox[{"S", "\[Rule]", "268324.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "116.1128985055347584421`10."}], ",",
+ RowBox[{"S", "\[Rule]", "116964.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "49948.5625080718029460032`10."}]}], ",",
+ RowBox[{"-", "27668.7420420087965396392`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "49948.5625080718029460032`10."}]}], ",",
+ RowBox[{"-", "27668.7420420087965396392`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "105791.9955879290470761589`10."}]}], ",",
+ RowBox[{"-", "39710.6112888928873871919`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "105791.9955879290470761589`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "74407.1161920016920831316`10."}], ",",
+ RowBox[{"-", "39710.6112888928873871919`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "49044.706661803377433155`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "518.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "342.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "272.7766782406474207909`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "221.4603952443943811566`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05350135794654856287895854958063884767`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "187.1784592741296544282`10."}], ",",
+ RowBox[{"-", "0.10122237103981359460030919582280302647`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "99.2972124827435660126`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "238.2016138151501256387`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "193.7595866588649683622`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797330346155777`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808056976659*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c219e82d-43a0-4388-aa55-551a5b54ac00"],
+In[266]:=",ExpressionUUID->"3006a0a1-3369-445b-8ab3-dc86fef9f3c4"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "244.97596153846155`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "150.42052023121386`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 244.97596153846155`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 150.42052023121386`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797330444528723`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808067173811*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"2187d312-8005-456a-a37c-a9ec6dcc1fbe"],
+In[266]:=",ExpressionUUID->"5960055f-053d-4f00-9839-7eb8669cb960"],
Cell[BoxData[
InterpretationBox[
@@ -28114,12 +7358,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"260.`", ",", "0.`", ",", "0.`", ",", "260.`"}], "}"}]}]},
+ RowBox[{"173.`", ",", "0.`", ",", "0.`", ",", "173.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"260.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "260.`"}]}], "}"}]}]},
+ RowBox[{"173.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "173.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -28129,13 +7373,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"205.23236249060622`", ",", "0.`", ",",
- RowBox[{"-", "205.23236249060622`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"118.11789452755293`", ",", "0.`", ",",
+ RowBox[{"-", "118.11789452755293`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"188.1777484976721`", ",",
- RowBox[{"-", "10.`"}], ",", "187.91185441491746`", ",", "0.`"}],
+ RowBox[{"101.2922164607254`", ",",
+ RowBox[{"-", "10.`"}], ",", "100.79738645186416`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -28152,16 +7396,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {260., 0., 0., 260.}, $CellContext`p2 -> {
- 260., 0., 0., -260.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {205.23236249060622`,
- 0., -205.23236249060622`, 0.}, $CellContext`p5 -> {
- 188.1777484976721, -10., 187.91185441491746`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {173., 0., 0., 173.}, $CellContext`p2 -> {
+ 173., 0., 0., -173.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {118.11789452755293`,
+ 0., -118.11789452755293`, 0.}, $CellContext`p5 -> {
+ 101.2922164607254, -10., 100.79738645186416`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973304446087*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808067181486*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"16656446-70e8-430f-93a8-6f82db38a5e6"],
+In[266]:=",ExpressionUUID->"ec044b45-14cd-484f-87cf-b7be0430bec7"],
Cell[BoxData[
InterpretationBox[
@@ -28170,70 +7416,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "6.360373241827288974098655013347079771582113602143394584404408899`\
-43.78644926253042*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.38672415987041", ",", "0``57.283996656365204"}], "}"}]}],
+ "-", "4.26002809618944131673606052586658151201734281244954788499221158`\
+43.78930636896047*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.62665430735024", ",", "0``57.460923901207224"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-6.360373241827288974098655013347079771582113602143394584404408899`43.\
-78644926253042*^-14, 0``58.69897000433602, 0``57.38672415987041,
- 0``57.283996656365204}],
+{-4.26002809618944131673606052586658151201734281244954788499221158`43.\
+78930636896047*^-14, 0``58.69897000433602, 0``57.62665430735024,
+ 0``57.460923901207224}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797330444684553`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808067205522*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"b5914c15-c8de-4939-9d84-3e444dedd9cb"],
+In[266]:=",ExpressionUUID->"26dae4f4-955d-4c75-9c77-71bc02358aac"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797330444758053`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808067212056*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"875a0215-8256-4896-96b4-a55090f50933"],
+In[266]:=",ExpressionUUID->"58570d09-48bd-47d7-ac76-6d9f2b805e5e"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "205.2323624906062207174`10."}], ",",
- RowBox[{"S", "\[Rule]", "270400.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "118.1178945275529343917`10."}], ",",
+ RowBox[{"S", "\[Rule]", "119716.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "50201.742286095246200621`10."}]}], ",",
+ RowBox[{"-", "28175.1015980556830488747`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "50201.742286095246200621`10."}]}], ",",
+ RowBox[{"-", "28175.1015980556830488747`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "106720.8284951152347730385`10."}]}], ",",
+ RowBox[{"-", "40868.7915065333152995208`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "106720.8284951152347730385`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "74695.1415624209858849333`10."}], ",",
+ RowBox[{"-", "40868.7915065333152995208`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "49621.7862091780053269448`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "520.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "346.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "273.3041191830466829727`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "222.759480626926416182`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05321644039507784522857009597978212829`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "188.17774849767208837`10."}], ",",
+ RowBox[{"-", "0.09920892150091118312330573333061730191`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "101.2922164607253956992`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "238.6594708151543069895`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "194.8805197728427395762`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797330444836807`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798080672239122`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"ca3bf8bc-ced1-43bd-baf6-b0481bd7ad72"],
+In[266]:=",ExpressionUUID->"a776d78a-3b50-4601-8993-92cca9d0a0e9"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "246.03352490421454`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "152.67857142857142`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 246.03352490421454`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 152.67857142857142`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973305437111*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808077355487*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1d1b9293-961e-4095-bd76-3553a3738cf8"],
+In[266]:=",ExpressionUUID->"c65d4891-a863-455d-99b8-e8bed2da03c2"],
Cell[BoxData[
InterpretationBox[
@@ -28244,12 +7498,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"261.`", ",", "0.`", ",", "0.`", ",", "261.`"}], "}"}]}]},
+ RowBox[{"175.`", ",", "0.`", ",", "0.`", ",", "175.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"261.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "261.`"}]}], "}"}]}]},
+ RowBox[{"175.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "175.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -28259,13 +7513,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"206.23306574740226`", ",", "0.`", ",",
- RowBox[{"-", "206.23306574740226`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"120.12269661365401`", ",", "0.`", ",",
+ RowBox[{"-", "120.12269661365401`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"189.17704524087608`", ",",
- RowBox[{"-", "10.`"}], ",", "188.9125576717135`", ",", "0.`"}],
+ RowBox[{"103.28741437462433`", ",",
+ RowBox[{"-", "10.`"}], ",", "102.80218853796524`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -28282,16 +7536,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {261., 0., 0., 261.}, $CellContext`p2 -> {
- 261., 0., 0., -261.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {206.23306574740226`,
- 0., -206.23306574740226`, 0.}, $CellContext`p5 -> {
- 189.17704524087608`, -10., 188.9125576717135, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {175., 0., 0., 175.}, $CellContext`p2 -> {
+ 175., 0., 0., -175.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {120.12269661365401`,
+ 0., -120.12269661365401`, 0.}, $CellContext`p5 -> {
+ 103.28741437462433`, -10., 102.80218853796524`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733054379142*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808077362421*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"7c3a4593-62b6-43bf-b873-8c0b756bebc4"],
+In[266]:=",ExpressionUUID->"5c6dfbd4-6420-4b19-880c-5f9bf3be7e3a"],
Cell[BoxData[
InterpretationBox[
@@ -28300,69 +7556,77 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "2.614084479237328493709326205697671519258199639133075326548256116`\
-43.39861911987811*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.384611706529306", ",", "0``57.28232949699774"}], "}"}]}],
+ "-", "3.16431009216937713133550040690197115995678615888482562993169278`\
+43.65518099635347*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.61934493129788", ",", "0``57.455931955649724"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.614084479237328493709326205697671519258199639133075326548256116`43.\
-39861911987811*^-14, 0``58.69897000433602, 0``57.384611706529306,
- 0``57.28232949699774}],
+{-3.16431009216937713133550040690197115995678615888482562993169278`43.\
+65518099635347*^-14, 0``58.69897000433602, 0``57.61934493129788,
+ 0``57.455931955649724}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733054386898*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980807736939*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"3cdfa9f7-98cc-480e-8279-7db61972439b"],
+In[266]:=",ExpressionUUID->"8a24e389-459e-45bc-9ef4-a24988f1992f"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733054394581*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808077377268*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"72d56d6f-dc15-4453-97f1-26a01599bf73"],
+In[266]:=",ExpressionUUID->"db872d3f-faf9-4ca7-adea-02d5070e6ef6"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "206.2330657474022643783`10."}], ",",
- RowBox[{"S", "\[Rule]", "272484.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "120.1226966136540141861`10."}], ",",
+ RowBox[{"S", "\[Rule]", "122500.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "50454.9220641186894552387`10."}]}], ",",
+ RowBox[{"-", "28681.4611541025695581102`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "50454.9220641186894552387`10."}]}], ",",
+ RowBox[{"-", "28681.4611541025695581102`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "107653.6603201439820054475`10."}]}], ",",
+ RowBox[{"-", "42042.9438147789049651237`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "107653.6603201439820054475`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "74983.1647685253528118679`10."}], ",",
+ RowBox[{"-", "42042.9438147789049651237`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "50198.8099377629555831361`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "522.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "350.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "273.830540240721419813`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "224.0509092544883103294`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05293454349063282740896303462377878271`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "189.177045240876082172`10."}], ",",
+ RowBox[{"-", "0.09727419369391111521846896188281508563`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "103.2874143746243268619`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "239.1164556439226318942`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "195.9951845593206800654`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733054402804*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808077383881*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"55ac5783-aa52-4f3d-b7e5-d9dcb35f2744"],
+In[266]:=",ExpressionUUID->"d128c7bb-a005-40be-97b6-4240102f0121"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "247.0906488549618`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "154.930790960452`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 247.0906488549618}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 154.930790960452}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797330642276077`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798080873467007`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"84a01057-5e01-4e2d-b410-c8080ca342b0"],
+In[266]:=",ExpressionUUID->"2401ebf9-e724-4db5-93ea-6c72c32201f1"],
Cell[BoxData[
InterpretationBox[
@@ -28373,12 +7637,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"262.`", ",", "0.`", ",", "0.`", ",", "262.`"}], "}"}]}]},
+ RowBox[{"177.`", ",", "0.`", ",", "0.`", ",", "177.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"262.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "262.`"}]}], "}"}]}]},
+ RowBox[{"177.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "177.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -28388,13 +7652,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"207.2337616032403`", ",", "0.`", ",",
- RowBox[{"-", "207.2337616032403`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"122.12731584116393`", ",", "0.`", ",",
+ RowBox[{"-", "122.12731584116393`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"190.17634938503807`", ",",
- RowBox[{"-", "10.`"}], ",", "189.91325352755155`", ",", "0.`"}],
+ RowBox[{"105.28279514711444`", ",",
+ RowBox[{"-", "10.`"}], ",", "104.80680776547516`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -28411,16 +7675,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {262., 0., 0., 262.}, $CellContext`p2 -> {
- 262., 0., 0., -262.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {207.2337616032403,
- 0., -207.2337616032403, 0.}, $CellContext`p5 -> {
- 190.17634938503807`, -10., 189.91325352755155`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {177., 0., 0., 177.}, $CellContext`p2 -> {
+ 177., 0., 0., -177.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {122.12731584116393`,
+ 0., -122.12731584116393`, 0.}, $CellContext`p5 -> {
+ 105.28279514711444`, -10., 104.80680776547516`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797330642357473`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808087354896*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"b9b2b1dc-e5b6-454f-b10e-093536432290"],
+In[266]:=",ExpressionUUID->"e06d10cd-48cd-4d1b-906c-b35cf680eafd"],
Cell[BoxData[
InterpretationBox[
@@ -28428,71 +7694,77 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "1.11856659875670478925104129026121496880725309928931717128315871`\
-42.028300564176966*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.38250949417233", ",", "0``57.280668713016276"}], "}"}]}],
+ "5.07865873784661405891565302658968622938173126263613055914781308`42.\
+85571577355792*^-15", ",", "0``58.69897000433602", ",", "0``57.6121571922151",
+ ",", "0``57.450996737974215"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.11856659875670478925104129026121496880725309928931717128315871`42.\
-028300564176966*^-15, 0``58.69897000433602, 0``57.38250949417233,
- 0``57.280668713016276}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 5.07865873784661405891565302658968622938173126263613055914781308`42.\
+85571577355792*^-15, 0``58.69897000433602, 0``57.6121571922151,
+ 0``57.450996737974215}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733064243435*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798080873613977`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c75ec2f3-465f-4d61-9ce7-c26a85f273dd"],
+In[266]:=",ExpressionUUID->"e3142b9e-973a-4a5c-87d5-5f70dd0df856"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733064251025*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798080873678417`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f92fb48c-13bf-4160-8027-4af9991dde19"],
+In[266]:=",ExpressionUUID->"87a5e5cc-38a6-4833-b32d-9bab517cb4cf"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "207.2337616032403104782`10."}], ",",
- RowBox[{"S", "\[Rule]", "274576.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "122.1273158411639343512`10."}], ",",
+ RowBox[{"S", "\[Rule]", "125316.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "50708.1018421421327098565`10."}]}], ",",
+ RowBox[{"-", "29187.8207101494560673458`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "50708.1018421421327098565`10."}]}], ",",
+ RowBox[{"-", "29187.8207101494560673458`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "108590.4910800979226905838`10."}]}], ",",
+ RowBox[{"-", "43233.0698077720327603402`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "108590.4910800979226905838`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "75271.1858444801112263304`10."}], ",",
+ RowBox[{"-", "43233.0698077720327603402`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "50775.7810358429765859811`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "524.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "354.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "274.3559473466542354669`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "225.3348198478055379165`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0526556194170474612230499992831538256`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "190.1763493850380610943`10."}], ",",
+ RowBox[{"-", "0.09541364929630211331241578383950344757`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "105.2827951471144434185`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "239.5725732211518278874`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "197.1036792768109055892`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797330642585697`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808087374318*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"8c666713-60f8-4aaa-9ded-972ebdada4a1"],
+In[266]:=",ExpressionUUID->"ff760149-a9fc-4861-a745-801f8e982515"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "248.14733840304183`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "157.177374301676`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 248.14733840304183`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 157.177374301676}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973307407279*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798080973020353`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d94c507e-2828-4d85-8003-9dac7b14fd87"],
+In[266]:=",ExpressionUUID->"1fb90b11-7bb8-4a6c-beb3-e1f9d1802020"],
Cell[BoxData[
InterpretationBox[
@@ -28503,12 +7775,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"263.`", ",", "0.`", ",", "0.`", ",", "263.`"}], "}"}]}]},
+ RowBox[{"179.`", ",", "0.`", ",", "0.`", ",", "179.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"263.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "263.`"}]}], "}"}]}]},
+ RowBox[{"179.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "179.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -28518,13 +7790,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"208.2344501743385`", ",", "0.`", ",",
- RowBox[{"-", "208.2344501743385`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"124.13176245954394`", ",", "0.`", ",",
+ RowBox[{"-", "124.13176245954394`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"191.17566081393986`", ",",
- RowBox[{"-", "10.`"}], ",", "190.91394209864973`", ",", "0.`"}],
+ RowBox[{"107.27834852873444`", ",",
+ RowBox[{"-", "10.`"}], ",", "106.81125438385516`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -28541,16 +7813,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {263., 0., 0., 263.}, $CellContext`p2 -> {
- 263., 0., 0., -263.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {208.2344501743385,
- 0., -208.2344501743385, 0.}, $CellContext`p5 -> {
- 191.17566081393986`, -10., 190.91394209864973`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {179., 0., 0., 179.}, $CellContext`p2 -> {
+ 179., 0., 0., -179.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {124.13176245954394`,
+ 0., -124.13176245954394`, 0.}, $CellContext`p5 -> {
+ 107.27834852873444`, -10., 106.81125438385516`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733074080954*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808097309023*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"28edfe48-9084-45cc-ba4d-00af5d820589"],
+In[266]:=",ExpressionUUID->"2b50558a-e6fc-4e0b-bfa8-827a6a241ee0"],
Cell[BoxData[
InterpretationBox[
@@ -28558,70 +7832,77 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "3.058361143957171969007673667481280141338647514340069689753385693`\
-43.46347302757874*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.38041742381599", ",", "0``57.279014255846256"}], "}"}]}],
+ "2.33558122191398030549546063408895832171402131265127321280283972`42.\
+51348195255538*^-15", ",", "0``58.69897000433602", ",",
+ "0``57.60508708266047", ",", "0``57.446116973356126"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.058361143957171969007673667481280141338647514340069689753385693`43.\
-46347302757874*^-14, 0``58.69897000433602, 0``57.38041742381599,
- 0``57.279014255846256}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 2.33558122191398030549546063408895832171402131265127321280283972`42.\
+51348195255538*^-15, 0``58.69897000433602, 0``57.60508708266047,
+ 0``57.446116973356126}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797330740885468`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798080973153954`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"a36d058a-cfb0-4915-8bef-0a1a79339c68"],
+In[266]:=",ExpressionUUID->"0d2fc467-8b7f-475f-ae57-3f6699404950"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733074095848*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808097321575*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"77182456-8503-4b24-8064-1dae266ab3d6"],
+In[266]:=",ExpressionUUID->"88b53acb-fda1-4a89-844e-54876cfa7595"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "208.2344501743384910242`10."}], ",",
- RowBox[{"S", "\[Rule]", "276676.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "124.1317624595439355062`10."}], ",",
+ RowBox[{"S", "\[Rule]", "128164.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "50961.2816201655759644742`10."}]}], ",",
+ RowBox[{"-", "29694.1802661963425765813`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "50961.2816201655759644742`10."}]}], ",",
+ RowBox[{"-", "29694.1802661963425765813`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "109531.320791702046278715`10."}]}], ",",
+ RowBox[{"-", "44439.170960516728911216`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "109531.320791702046278715`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "75559.2048237352561800628`10."}], ",",
+ RowBox[{"-", "44439.170960516728911216`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "51352.70245342614247448`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "526.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "358.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "274.8803463759009020579`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "226.6113467005263231254`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05237962136276440784487098779161790211`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "191.1756608139398510833`10."}], ",",
+ RowBox[{"-", "0.09362309297541149011818074059532574982`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "107.2783485287344395205`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "240.027828421197628444`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "198.2061000044311029529`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733074103332*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808097327969*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"22cbda3d-fa05-4a3c-8787-f3732a049a75"],
+In[266]:=",ExpressionUUID->"d7799aab-7bb1-477e-b87d-bdea1aa4fea6"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "249.2035984848485`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "159.4185082872928`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 249.2035984848485}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 159.4185082872928}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733083921342*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808107588163*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e360320d-9537-45bf-b258-5e91aeb8c573"],
+In[266]:=",ExpressionUUID->"9b858de6-c7db-40a9-a340-eee6def99d2d"],
Cell[BoxData[
InterpretationBox[
@@ -28632,12 +7913,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"264.`", ",", "0.`", ",", "0.`", ",", "264.`"}], "}"}]}]},
+ RowBox[{"181.`", ",", "0.`", ",", "0.`", ",", "181.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"264.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "264.`"}]}], "}"}]}]},
+ RowBox[{"181.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "181.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -28647,13 +7928,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"209.23513157449437`", ",", "0.`", ",",
- RowBox[{"-", "209.23513157449437`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"126.13604596631033`", ",", "0.`", ",",
+ RowBox[{"-", "126.13604596631033`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"192.174979413784`", ",",
- RowBox[{"-", "10.`"}], ",", "191.9146234988056`", ",", "0.`"}],
+ RowBox[{"109.27406502196803`", ",",
+ RowBox[{"-", "10.`"}], ",", "108.81553789062156`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -28670,16 +7951,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {264., 0., 0., 264.}, $CellContext`p2 -> {
- 264., 0., 0., -264.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {209.23513157449437`,
- 0., -209.23513157449437`, 0.}, $CellContext`p5 -> {
- 192.174979413784, -10., 191.9146234988056, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {181., 0., 0., 181.}, $CellContext`p2 -> {
+ 181., 0., 0., -181.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {126.13604596631033`,
+ 0., -126.13604596631033`, 0.}, $CellContext`p5 -> {
+ 109.27406502196803`, -10., 108.81553789062156`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797330839352827`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808107598113*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"4034c300-860b-42bc-b00e-36adbf821839"],
+In[266]:=",ExpressionUUID->"93aa74b9-2238-46f3-91ee-65687218c169"],
Cell[BoxData[
InterpretationBox[
@@ -28687,70 +7970,79 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.006413889261132683722501297146314917772963667802211267348495215`42.\
-97911270353202*^-14", ",", "0``58.69897000433602", ",",
- "0``57.37833539790764", ",", "0``57.27736607746618"}], "}"}]}],
+ RowBox[{
+ "-", "9.37439908581088477006775054777811779311345347542885543082310941`\
+43.112204872114*^-15"}], ",", "0``58.69897000433602", ",",
+ "0``57.598130791456484", ",", "0``57.44129142946683"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.006413889261132683722501297146314917772963667802211267348495215`42.\
-97911270353202*^-14, 0``58.69897000433602, 0``57.37833539790764,
- 0``57.27736607746618}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-9.37439908581088477006775054777811779311345347542885543082310941`43.\
+112204872114*^-15, 0``58.69897000433602, 0``57.598130791456484,
+ 0``57.44129142946683}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733083943412*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808107604765*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"3abc83fc-85b8-45dd-bc12-b4003a6ae241"],
+In[266]:=",ExpressionUUID->"384d6884-32ca-444f-abc2-70bfcef2ff3d"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733083950601*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808107611156*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"a56282e9-e9d0-4928-b6e3-8828e3ef823d"],
+In[266]:=",ExpressionUUID->"ed54ee22-77bc-4963-90b0-aa1b0a458134"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "209.2351315744943747177`10."}], ",",
- RowBox[{"S", "\[Rule]", "278784.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "126.1360459663103341654`10."}], ",",
+ RowBox[{"S", "\[Rule]", "131044.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "51214.4613981890192190921`10."}]}], ",",
+ RowBox[{"-", "30200.5398222432290858169`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "51214.4613981890192190921`10."}]}], ",",
+ RowBox[{"-", "30200.5398222432290858169`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "110476.1494713330298509391`10."}]}], ",",
+ RowBox[{"-", "45661.2486398043409678849`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "110476.1494713330298509391`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "75847.2217390440942719108`10."}], ",",
+ RowBox[{"-", "45661.2486398043409678849`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "51929.5769240951421561609`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "528.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "362.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "275.4037431463924280261`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "227.8806198958023331367`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05210650349457208462750937924877807654`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "192.1749794137840080376`10."}], ",",
+ RowBox[{"-", "0.09189864052366978901074189949556323995`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "109.2740650219680291513`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "240.4822260736413482568`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "199.302540677210920602`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733083958145*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808107618541*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"99b6fa90-c5c6-4996-a555-06f4b5aa5741"],
+In[266]:=",ExpressionUUID->"b643ce6e-aec4-497c-a322-44bd40e64125"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "250.25943396226415`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "161.65437158469945`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 250.25943396226415`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 161.65437158469945`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797330938145103`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808117626692*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"20a15a9f-2192-40d2-bc64-86f615b5b758"],
+In[266]:=",ExpressionUUID->"bb0b1000-c2dd-472b-8c10-a39f9d97450d"],
Cell[BoxData[
InterpretationBox[
@@ -28761,12 +8053,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"265.`", ",", "0.`", ",", "0.`", ",", "265.`"}], "}"}]}]},
+ RowBox[{"183.`", ",", "0.`", ",", "0.`", ",", "183.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"265.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "265.`"}]}], "}"}]}]},
+ RowBox[{"183.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "183.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -28776,13 +8068,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"210.23580591514747`", ",", "0.`", ",",
- RowBox[{"-", "210.23580591514747`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"128.14017517474994`", ",", "0.`", ",",
+ RowBox[{"-", "128.14017517474994`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"193.17430507313094`", ",",
- RowBox[{"-", "10.`"}], ",", "192.9152978394587`", ",", "0.`"}],
+ RowBox[{"111.26993581352845`", ",",
+ RowBox[{"-", "10.`"}], ",", "110.81966709906116`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -28799,16 +8091,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {265., 0., 0., 265.}, $CellContext`p2 -> {
- 265., 0., 0., -265.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {210.23580591514747`,
- 0., -210.23580591514747`, 0.}, $CellContext`p5 -> {
- 193.17430507313094`, -10., 192.9152978394587, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {183., 0., 0., 183.}, $CellContext`p2 -> {
+ 183., 0., 0., -183.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {128.14017517474994`,
+ 0., -128.14017517474994`, 0.}, $CellContext`p5 -> {
+ 111.26993581352845`, -10., 110.81966709906116`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797330938223953`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980811763387*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"9ab312cc-8406-4b17-b466-61a57a6a45db"],
+In[266]:=",ExpressionUUID->"f56a5aa4-6d4a-4987-97a6-e99822498cde"],
Cell[BoxData[
InterpretationBox[
@@ -28816,70 +8110,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.80195811728710267194764958082504825972226263781023841334654998`43.\
-23043882723704*^-14", ",", "0``58.69897000433602", ",",
- "0``57.376263320298015", ",", "0``57.27572413039921"}], "}"}]}],
+ "1.610341071354823788207957438323284208055000153773999756755047686`43.\
+34240678858817*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.591284690975044", ",", "0``57.43651891460559"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.80195811728710267194764958082504825972226263781023841334654998`43.\
-23043882723704*^-14, 0``58.69897000433602, 0``57.376263320298015,
- 0``57.27572413039921}],
+ 1.610341071354823788207957438323284208055000153773999756755047686`43.\
+34240678858817*^-14, 0``58.69897000433602, 0``57.591284690975044,
+ 0``57.43651891460559}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733093829918*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980811764042*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1ceb9f63-a822-4a54-8c90-05ca363352f1"],
+In[266]:=",ExpressionUUID->"54d604c2-10f3-4401-8b49-13b6cffe7616"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733093837511*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798081176485577`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e197a5dc-0f4e-49e0-ac81-2a49aa0a5bdc"],
+In[266]:=",ExpressionUUID->"30b6e98a-4352-4ea0-b069-e7d7f4e3b8dc"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "210.235805915147466294`10."}], ",",
- RowBox[{"S", "\[Rule]", "280900.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "128.1401751747499417888`10."}], ",",
+ RowBox[{"S", "\[Rule]", "133956.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "51467.6411762124624737098`10."}]}], ",",
+ RowBox[{"-", "30706.8993782901155950524`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "51467.6411762124624737098`10."}]}], ",",
+ RowBox[{"-", "30706.8993782901155950524`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "111424.9771350281571358209`10."}]}], ",",
+ RowBox[{"-", "46899.3041139584786947125`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "111424.9771350281571358209`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "76135.2366224812322572214`10."}], ",",
+ RowBox[{"-", "46899.3041139584786947125`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "52506.406984497184995879`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "530.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "366.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "275.9261434197224310874`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "229.1427655076572235177`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05183622093216192030450049728488438185`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "193.1743050731309244167`10."}], ",",
+ RowBox[{"-", "0.09023669048798935631870352384854264688`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "111.2699358135284470057`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "240.9357709638477431628`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "200.3930931246959176775`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733093845265*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808117657147*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"455e54c1-9080-4d1c-9adc-c3c10857f200"],
+In[266]:=",ExpressionUUID->"39da1548-6161-4737-8af5-1de4e8af054c"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "251.31484962406014`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "163.88513513513516`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 251.31484962406014`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 163.88513513513516`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973310362421*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808127597698*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d464b479-ff3f-44f4-b449-884250179ab6"],
+In[266]:=",ExpressionUUID->"1c97c664-6efe-4dac-8b2a-026825a6e37c"],
Cell[BoxData[
InterpretationBox[
@@ -28890,12 +8192,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"266.`", ",", "0.`", ",", "0.`", ",", "266.`"}], "}"}]}]},
+ RowBox[{"185.`", ",", "0.`", ",", "0.`", ",", "185.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"266.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "266.`"}]}], "}"}]}]},
+ RowBox[{"185.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "185.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -28905,13 +8207,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"211.2364733054401`", ",", "0.`", ",",
- RowBox[{"-", "211.2364733054401`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"130.14415827444728`", ",", "0.`", ",",
+ RowBox[{"-", "130.14415827444728`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"194.1736376828382`", ",",
- RowBox[{"-", "10.`"}], ",", "193.91596522975132`", ",", "0.`"}],
+ RowBox[{"113.26595271383108`", ",",
+ RowBox[{"-", "10.`"}], ",", "112.8236501987585`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -28928,16 +8230,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {266., 0., 0., 266.}, $CellContext`p2 -> {
- 266., 0., 0., -266.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {211.2364733054401,
- 0., -211.2364733054401, 0.}, $CellContext`p5 -> {
- 194.1736376828382, -10., 193.91596522975132`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {185., 0., 0., 185.}, $CellContext`p2 -> {
+ 185., 0., 0., -185.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {130.14415827444728`,
+ 0., -130.14415827444728`, 0.}, $CellContext`p5 -> {
+ 113.26595271383108`, -10., 112.8236501987585, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733103632523*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980812760623*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"07ef1b60-306a-4253-bbc2-689346a2f278"],
+In[266]:=",ExpressionUUID->"970cf1b8-318a-49c8-8662-8abd16b4bfb2"],
Cell[BoxData[
InterpretationBox[
@@ -28946,69 +8250,77 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "9.425522851014328580489243003575092275176716828640932987028142899`\
-43.947363822697284*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.37420109621437", ",", "0``57.27408836770495"}], "}"}]}],
+ "-", "5.97750690671065495877468642544235768570612631218831305148357505`\
+42.9072883668627*^-15"}], ",", "0``58.69897000433602", ",",
+ "0``57.5845453254452", ",", "0``57.431798275933005"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-9.425522851014328580489243003575092275176716828640932987028142899`43.\
-947363822697284*^-14, 0``58.69897000433602, 0``57.37420109621437,
- 0``57.27408836770495}],
+{-5.97750690671065495877468642544235768570612631218831305148357505`42.\
+9072883668627*^-15, 0``58.69897000433602, 0``57.5845453254452,
+ 0``57.431798275933005}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733103641707*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808127612742*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"b091bc0a-9a43-46cf-970e-de09082f7c87"],
+In[266]:=",ExpressionUUID->"0b494e4e-a8bd-4b86-8db2-503ae4cfd6ea"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797331036527033`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808127618947*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"9c88dd99-08fc-4e7a-9696-95be8a746ec0"],
+In[266]:=",ExpressionUUID->"c5b10636-876f-4715-bd71-f1b166b0e1b8"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "211.2364733054400858236`10."}], ",",
- RowBox[{"S", "\[Rule]", "283024.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "130.1441582744472782451`10."}], ",",
+ RowBox[{"S", "\[Rule]", "136900.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "51720.8209542359057283276`10."}]}], ",",
+ RowBox[{"-", "31213.258934337002104288`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "51720.8209542359057283276`10."}]}], ",",
+ RowBox[{"-", "31213.258934337002104288`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "112377.8037984941256581806`10."}]}], ",",
+ RowBox[{"-", "48153.3385615454929506996`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "112377.8037984941256581806`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "76423.2495054600993767775`10."}], ",",
+ RowBox[{"-", "48153.3385615454929506996`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "53083.1949917649914640711`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "532.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "370.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "276.4475529019204383537`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "230.3979057885834852583`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05156872972347592237723042268414495594`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "194.1736376828381926122`10."}], ",",
+ RowBox[{"-", "0.08863389885350508288015910765924317557`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "113.2659527138310884685`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "241.3884678335145492299`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "201.4778471120559974481`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797331036599607`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808127625383*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c9088f23-12ff-4f29-9e19-3b29d0307550"],
+In[266]:=",ExpressionUUID->"58fffe59-2249-4a39-b079-311e16767b72"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "252.3698501872659`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "166.1109625668449`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 252.3698501872659}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 166.1109625668449}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733113495391*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798081375247383`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f7a0ee9c-54ea-44cc-9347-c68a2aa77c99"],
+In[266]:=",ExpressionUUID->"b69a63ab-aed2-4b96-8b51-2369a6246c3e"],
Cell[BoxData[
InterpretationBox[
@@ -29019,12 +8331,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"267.`", ",", "0.`", ",", "0.`", ",", "267.`"}], "}"}]}]},
+ RowBox[{"187.`", ",", "0.`", ",", "0.`", ",", "187.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"267.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "267.`"}]}], "}"}]}]},
+ RowBox[{"187.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "187.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -29034,13 +8346,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"212.23713385227646`", ",", "0.`", ",",
- RowBox[{"-", "212.23713385227646`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"132.14800288549858`", ",", "0.`", ",",
+ RowBox[{"-", "132.14800288549858`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"195.17297713600192`", ",",
- RowBox[{"-", "10.`"}], ",", "194.9166257765877`", ",", "0.`"}],
+ RowBox[{"115.2621081027798`", ",",
+ RowBox[{"-", "10.`"}], ",", "114.8274948098098`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -29057,16 +8369,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {267., 0., 0., 267.}, $CellContext`p2 -> {
- 267., 0., 0., -267.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {212.23713385227646`,
- 0., -212.23713385227646`, 0.}, $CellContext`p5 -> {
- 195.17297713600192`, -10., 194.9166257765877, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {187., 0., 0., 187.}, $CellContext`p2 -> {
+ 187., 0., 0., -187.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {132.14800288549858`,
+ 0., -132.14800288549858`, 0.}, $CellContext`p5 -> {
+ 115.2621081027798, -10., 114.8274948098098, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797331135036*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798081375325003`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"86326734-9ed5-4ea6-989d-a90f080a2217"],
+In[266]:=",ExpressionUUID->"774d2dba-f68c-49af-894e-1d5cf00b9143"],
Cell[BoxData[
InterpretationBox[
@@ -29074,70 +8388,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "5.007748019702122540142975111904793606238553290150334926851251`41.\
-67107121519233*^-16", ",", "0``58.69897000433602", ",",
- "0``57.37214863223427", ",", "0``57.272458742971445"}], "}"}]}],
+ "2.245496858930953222995097146659503332317333867420630112907632212`43.\
+47741085403041*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.57790940018544", ",", "0``57.427128397799514"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 5.007748019702122540142975111904793606238553290150334926851251`41.\
-67107121519233*^-16, 0``58.69897000433602, 0``57.37214863223427,
- 0``57.272458742971445}],
+ 2.245496858930953222995097146659503332317333867420630112907632212`43.\
+47741085403041*^-14, 0``58.69897000433602, 0``57.57790940018544,
+ 0``57.427128397799514}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733113511249*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808137539288*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f7dcb9ad-130e-4e22-86e4-54aa64b2967d"],
+In[266]:=",ExpressionUUID->"1f423c08-297d-4b7d-9cb8-4d27d3f287c0"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733113518796*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808137545741*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"aa9235b4-478d-4ed8-93f2-e26fb3a1a135"],
+In[266]:=",ExpressionUUID->"86c7bc57-2731-411f-925e-ce57db33b41f"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "212.2371338522764574464`10."}], ",",
- RowBox[{"S", "\[Rule]", "285156.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "132.1480028854985846465`10."}], ",",
+ RowBox[{"S", "\[Rule]", "139876.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "51974.0007322593489829454`10."}]}], ",",
+ RowBox[{"-", "31719.6184903838886135235`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "51974.0007322593489829454`10."}]}], ",",
+ RowBox[{"-", "31719.6184903838886135235`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "113334.6294771156282763513`10."}]}], ",",
+ RowBox[{"-", "49423.3530791764706577851`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "113334.6294771156282763513`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "76711.260418749954323118`10."}], ",",
+ RowBox[{"-", "49423.3530791764706577851`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "53659.9431391207133662032`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "534.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "374.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "276.9679772442113105074`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "231.6461593446364768937`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05130398682081610877797437643817090703`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "195.1729771360019157455`10."}], ",",
+ RowBox[{"-", "0.08708715640416193590257178891503261595`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "115.2621081027798104996`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "241.8403213812137319819`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "202.5568903830404618655`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733113526432*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808137552574*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f80a4116-ca2e-4575-956f-91e6218b1aef"],
+In[266]:=",ExpressionUUID->"7a43d904-6a67-4914-bb6c-22ea864bc2aa"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "253.42444029850745`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "168.33201058201058`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 253.42444029850745`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 168.33201058201058`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733123378624*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808147499158*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"7a4682eb-8c6e-41fc-9829-97c143de7e41"],
+In[266]:=",ExpressionUUID->"0defb15a-48f0-4616-ac55-ac58a02b5986"],
Cell[BoxData[
InterpretationBox[
@@ -29148,12 +8470,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"268.`", ",", "0.`", ",", "0.`", ",", "268.`"}], "}"}]}]},
+ RowBox[{"189.`", ",", "0.`", ",", "0.`", ",", "189.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"268.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "268.`"}]}], "}"}]}]},
+ RowBox[{"189.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "189.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -29163,13 +8485,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"213.23778766037927`", ",", "0.`", ",",
- RowBox[{"-", "213.23778766037927`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"134.1517161071672`", ",", "0.`", ",",
+ RowBox[{"-", "134.1517161071672`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"196.1723233278991`", ",",
- RowBox[{"-", "10.`"}], ",", "195.9172795846905`", ",", "0.`"}],
+ RowBox[{"117.25839488111113`", ",",
+ RowBox[{"-", "10.`"}], ",", "116.83120803147843`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -29186,16 +8508,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {268., 0., 0., 268.}, $CellContext`p2 -> {
- 268., 0., 0., -268.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {213.23778766037927`,
- 0., -213.23778766037927`, 0.}, $CellContext`p5 -> {
- 196.1723233278991, -10., 195.9172795846905, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {189., 0., 0., 189.}, $CellContext`p2 -> {
+ 189., 0., 0., -189.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {134.1517161071672,
+ 0., -134.1517161071672, 0.}, $CellContext`p5 -> {
+ 117.25839488111113`, -10., 116.83120803147843`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733123387141*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798081475061693`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"0f41da14-c4fa-4ef1-9c04-352d79b3af6f"],
+In[266]:=",ExpressionUUID->"66711ca8-b7c5-4d4b-8209-8bd75a7b6952"],
Cell[BoxData[
InterpretationBox[
@@ -29204,69 +8528,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "9.60824516359660422401214024337065929940373632648288466962036775`\
-42.95244929061998*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.370105836260024", ",", "0``57.27083521030723"}], "}"}]}],
+ "-", "3.36821925623752058406594979428926619025682126290373083063402265`\
+43.64887855890442*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.571373771673144", ",", "0``57.422508200162774"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-9.60824516359660422401214024337065929940373632648288466962036775`42.\
-95244929061998*^-15, 0``58.69897000433602, 0``57.370105836260024,
- 0``57.27083521030723}],
+{-3.36821925623752058406594979428926619025682126290373083063402265`43.\
+64887855890442*^-14, 0``58.69897000433602, 0``57.571373771673144,
+ 0``57.422508200162774}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797331233946247`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808147512775*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"484b31b9-106d-49b0-97f4-46641cd36f45"],
+In[266]:=",ExpressionUUID->"28db79ae-9b32-4bfc-9f29-84514b25dc18"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733123402071*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808147519002*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"5e73ba3e-52af-4d75-9ec9-772c24410879"],
+In[266]:=",ExpressionUUID->"5fe588d4-322e-4277-beb8-32cce15818f2"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "213.2377876603792685728`10."}], ",",
- RowBox[{"S", "\[Rule]", "287296.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "134.1517161071672035177`10."}], ",",
+ RowBox[{"S", "\[Rule]", "142884.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "52227.1805102827922375631`10."}]}], ",",
+ RowBox[{"-", "32225.9780464307751227591`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "52227.1805102827922375631`10."}]}], ",",
+ RowBox[{"-", "32225.9780464307751227591`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "114295.454185963287955019`10."}]}], ",",
+ RowBox[{"-", "50709.3486885092029297084`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "114295.454185963287955019`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "76999.2693924921641549079`10."}], ",",
+ RowBox[{"-", "50709.3486885092029297084`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "54236.6534698799640039746`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "536.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "378.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "277.4874220437606864807`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "232.8876412991465805489`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05104195005768866829997345402857437943`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "196.1723233278990945101`10."}], ",",
+ RowBox[{"-", "0.08559356843511922600088991142750846796`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "117.2583948811111354912`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "242.2913362629242215629`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "203.6303087042338540733`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797331234097357`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808147525569*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"0cf9f705-311b-4721-976c-e05620060f6c"],
+In[266]:=",ExpressionUUID->"426ee5a5-ba37-45f7-83e3-ea3e19517ba7"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "254.478624535316`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "170.54842931937173`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 254.478624535316}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 170.54842931937173`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733133297585*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808157641193*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"8154b4ef-9708-4ca1-9caa-b1050afd3e51"],
+In[266]:=",ExpressionUUID->"02c0c823-594d-4d34-9d61-11dcd21d29df"],
Cell[BoxData[
InterpretationBox[
@@ -29277,12 +8610,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"269.`", ",", "0.`", ",", "0.`", ",", "269.`"}], "}"}]}]},
+ RowBox[{"191.`", ",", "0.`", ",", "0.`", ",", "191.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"269.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "269.`"}]}], "}"}]}]},
+ RowBox[{"191.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "191.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -29292,13 +8625,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"214.23843483234555`", ",", "0.`", ",",
- RowBox[{"-", "214.23843483234555`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"136.15530456163484`", ",", "0.`", ",",
+ RowBox[{"-", "136.15530456163484`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"197.1716761559328`", ",",
- RowBox[{"-", "10.`"}], ",", "196.91792675665678`", ",", "0.`"}],
+ RowBox[{"119.25480642664353`", ",",
+ RowBox[{"-", "10.`"}], ",", "118.83479648594606`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -29315,16 +8648,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {269., 0., 0., 269.}, $CellContext`p2 -> {
- 269., 0., 0., -269.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {214.23843483234555`,
- 0., -214.23843483234555`, 0.}, $CellContext`p5 -> {
- 197.1716761559328, -10., 196.91792675665678`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {191., 0., 0., 191.}, $CellContext`p2 -> {
+ 191., 0., 0., -191.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {136.15530456163484`,
+ 0., -136.15530456163484`, 0.}, $CellContext`p5 -> {
+ 119.25480642664353`, -10., 118.83479648594606`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733133311607*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808157650427*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"b4d47704-e4f5-426e-9b1b-daa6608d6f9f"],
+In[266]:=",ExpressionUUID->"d37d0978-0ad0-40b4-8b12-6de88ee8911a"],
Cell[BoxData[
InterpretationBox[
@@ -29333,70 +8668,77 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.867304782552919600812767299957621353394847448202765404407397032`\
-43.239402938197685*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.3680726174937", ",", "0``57.269217724333615"}], "}"}]}],
+ "-", "8.28079295966602278620690972699589760279944456365619396683575892`\
+43.03497856776452*^-15"}], ",", "0``58.69897000433602", ",",
+ "0``57.5649354383738", ",", "0``57.41793663708829"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.867304782552919600812767299957621353394847448202765404407397032`43.\
-239402938197685*^-14, 0``58.69897000433602, 0``57.3680726174937,
- 0``57.269217724333615}],
+{-8.28079295966602278620690972699589760279944456365619396683575892`43.\
+03497856776452*^-15, 0``58.69897000433602, 0``57.5649354383738,
+ 0``57.41793663708829}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733133321334*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798081576595907`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"a2b0a66c-37e1-4db1-9fa2-16752e8efef5"],
+In[266]:=",ExpressionUUID->"fe855364-d529-4a1a-b610-249fae9a2b5a"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733133332164*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808157666037*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"2afaded4-4d50-4b92-9b4e-88dae09ef26e"],
+In[266]:=",ExpressionUUID->"5098cb8b-ab5d-4206-bf96-038ebf59f98f"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "214.2384348323455469654`10."}], ",",
- RowBox[{"S", "\[Rule]", "289444.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "136.1553045616348356361`10."}], ",",
+ RowBox[{"S", "\[Rule]", "145924.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "52480.3602883062354921809`10."}]}], ",",
+ RowBox[{"-", "32732.3376024776616319946`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "52480.3602883062354921809`10."}]}], ",",
+ RowBox[{"-", "32732.3376024776616319946`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "115260.2779398019042673695`10."}]}], ",",
+ RowBox[{"-", "52011.326342544507213006`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "115260.2779398019042673695`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "77287.2764562162868826931`10."}], ",",
+ RowBox[{"-", "52011.326342544507213006`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "54813.32789004433966505`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "538.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "382.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "278.0058928444076828589`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "234.1224634460442791132`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05078257812635614625547102332677976699`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "197.1716761559328070527`10."}], ",",
+ RowBox[{"-", "0.08415043653634434387891144991339345357`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "119.2548064266435287742`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "242.741517092557076599`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "204.6981859101613570096`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733133339974*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808157673964*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"aa6010da-6b54-498f-b6ef-f0cc113469de"],
+In[266]:=",ExpressionUUID->"90292d55-f805-415c-831d-29236e286db9"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "255.53240740740742`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "172.7603626943005`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 255.53240740740742`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 172.7603626943005}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733143208416*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798081676858597`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c7ab4607-6cc5-485b-b313-8a63a06074b5"],
+In[266]:=",ExpressionUUID->"6f241a6f-2354-449d-9946-fa0d6655f4b2"],
Cell[BoxData[
InterpretationBox[
@@ -29407,12 +8749,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"270.`", ",", "0.`", ",", "0.`", ",", "270.`"}], "}"}]}]},
+ RowBox[{"193.`", ",", "0.`", ",", "0.`", ",", "193.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"270.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "270.`"}]}], "}"}]}]},
+ RowBox[{"193.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "193.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -29422,13 +8764,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"215.23907546870007`", ",", "0.`", ",",
- RowBox[{"-", "215.23907546870007`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"138.15877443341492`", ",", "0.`", ",",
+ RowBox[{"-", "138.15877443341492`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"198.17103551957828`", ",",
- RowBox[{"-", "10.`"}], ",", "197.9185673930113`", ",", "0.`"}],
+ RowBox[{"121.25133655486347`", ",",
+ RowBox[{"-", "10.`"}], ",", "120.83826635772614`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -29445,16 +8787,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {270., 0., 0., 270.}, $CellContext`p2 -> {
- 270., 0., 0., -270.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {215.23907546870007`,
- 0., -215.23907546870007`, 0.}, $CellContext`p5 -> {
- 198.17103551957828`, -10., 197.9185673930113, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {193., 0., 0., 193.}, $CellContext`p2 -> {
+ 193., 0., 0., -193.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {138.15877443341492`,
+ 0., -138.15877443341492`, 0.}, $CellContext`p5 -> {
+ 121.25133655486347`, -10., 120.83826635772614`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733143216117*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798081676927967`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"7628a22d-3048-476b-b4eb-de3416dd8a03"],
+In[266]:=",ExpressionUUID->"5df0a41d-060f-44a2-aa4e-5f8178e2165f"],
Cell[BoxData[
InterpretationBox[
@@ -29462,70 +8806,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "3.665831845517155200200429999137621788249359296223915690484707932`\
-43.53074878417936*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.36604888641271", ",", "0``57.26760624017703"}], "}"}]}],
+ "1.738752095261439995386543477549848255050489378445646732940692049`43.\
+3526203660058*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.558591532260444", ",", "0``57.41341269532825"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.665831845517155200200429999137621788249359296223915690484707932`43.\
-53074878417936*^-14, 0``58.69897000433602, 0``57.36604888641271,
- 0``57.26760624017703}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 1.738752095261439995386543477549848255050489378445646732940692049`43.\
+3526203660058*^-14, 0``58.69897000433602, 0``57.558591532260444,
+ 0``57.41341269532825}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733143223259*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808167699334*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"2ff7f0ba-604e-4cde-b6cc-e9a7520b6f59"],
+In[266]:=",ExpressionUUID->"780440ad-f855-4a92-a2b6-b820fc050aa2"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733143230463*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798081677058563`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e402e31e-5105-4a89-8079-2f9079058433"],
+In[266]:=",ExpressionUUID->"585886fe-7144-42fd-8bd5-b8a6ee58d826"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "215.2390754687000651302`10."}], ",",
- RowBox[{"S", "\[Rule]", "291600.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "138.1587744334149192582`10."}], ",",
+ RowBox[{"S", "\[Rule]", "148996.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "52733.5400663296787467986`10."}]}], ",",
+ RowBox[{"-", "33238.6971585245481412301`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "52733.5400663296787467986`10."}]}], ",",
+ RowBox[{"-", "33238.6971585245481412301`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "116229.1007530980351702965`10."}]}], ",",
+ RowBox[{"-", "53329.2869312981588336697`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "116229.1007530980351702965`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "77575.2816388554423634242`10."}], ",",
+ RowBox[{"-", "53329.2869312981588336697`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "55389.9681796454097332795`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "540.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "386.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "278.5233951373841815775`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "235.3507343936819113092`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05052583055607298351112748235227024372`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "198.1710355195782709026`10."}], ",",
+ RowBox[{"-", "0.08275524220445439127849810495782921375`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "121.2513365548634708204`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "243.1908684424723745245`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "205.7606039488698889821`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733143237932*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798081677123613`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"505d3a38-9fdd-4d26-b669-e49d3b267754"],
+In[266]:=",ExpressionUUID->"9a8cf8fd-0a8f-4d84-b01b-53f80907880a"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "256.5857933579336`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "174.96794871794873`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 256.5857933579336}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 174.96794871794873`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797331530797377`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808177807897*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"385f0f14-3cf7-40e2-a9b4-e0a6238a2b55"],
+In[266]:=",ExpressionUUID->"62321fd3-2c57-4f7f-9f7b-f9eeaa9cd818"],
Cell[BoxData[
InterpretationBox[
@@ -29536,12 +8888,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"271.`", ",", "0.`", ",", "0.`", ",", "271.`"}], "}"}]}]},
+ RowBox[{"195.`", ",", "0.`", ",", "0.`", ",", "195.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"271.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "271.`"}]}], "}"}]}]},
+ RowBox[{"195.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "195.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -29551,13 +8903,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"216.2397096679475`", ",", "0.`", ",",
- RowBox[{"-", "216.2397096679475`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"140.16213150492257`", ",", "0.`", ",",
+ RowBox[{"-", "140.16213150492257`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"199.17040132033088`", ",",
- RowBox[{"-", "10.`"}], ",", "198.91920159225873`", ",", "0.`"}],
+ RowBox[{"123.24797948335576`", ",",
+ RowBox[{"-", "10.`"}], ",", "122.84162342923379`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -29574,16 +8926,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {271., 0., 0., 271.}, $CellContext`p2 -> {
- 271., 0., 0., -271.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {216.2397096679475,
- 0., -216.2397096679475, 0.}, $CellContext`p5 -> {
- 199.17040132033088`, -10., 198.91920159225873`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {195., 0., 0., 195.}, $CellContext`p2 -> {
+ 195., 0., 0., -195.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {140.16213150492257`,
+ 0., -140.16213150492257`, 0.}, $CellContext`p5 -> {
+ 123.24797948335576`, -10., 122.84162342923379`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733153087983*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808177817423*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"55cef685-c83b-4b5c-bafc-4f04c88a17ab"],
+In[266]:=",ExpressionUUID->"ff2bfc76-6d39-48cb-86a7-bb078c12d7b8"],
Cell[BoxData[
InterpretationBox[
@@ -29591,70 +8945,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.106193998098870755592157609020073757139740417735863636752477252`43.\
-00880201557604*^-14", ",", "0``58.69897000433602", ",",
- "0``57.36403455474604", ",", "0``57.26600071346161"}], "}"}]}],
+ RowBox[{
+ "-", "4.515988256078900152723922502675472783178446955234038201311955858`\
+43.76265820117211*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.552339310961585", ",", "0``57.4089353929735"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.106193998098870755592157609020073757139740417735863636752477252`43.\
-00880201557604*^-14, 0``58.69897000433602, 0``57.36403455474604,
- 0``57.26600071346161}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-4.515988256078900152723922502675472783178446955234038201311955858`43.\
+76265820117211*^-14, 0``58.69897000433602, 0``57.552339310961585,
+ 0``57.4089353929735}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797331530956707`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808177825674*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"51bf478a-6954-4055-9961-b34ef412d4e6"],
+In[266]:=",ExpressionUUID->"f0c10542-7687-4934-b588-f935153251f4"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733153103241*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798081778334703`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"6302778f-a4bc-4898-adad-2bc9809825a7"],
+In[266]:=",ExpressionUUID->"2a85ae2d-73f3-481a-9490-b308325c720e"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "216.2397096679474941539`10."}], ",",
- RowBox[{"S", "\[Rule]", "293764.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "140.1621315049225700022`10."}], ",",
+ RowBox[{"S", "\[Rule]", "152100.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "52986.7198443531220014165`10."}]}], ",",
+ RowBox[{"-", "33745.0567145714346504657`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "52986.7198443531220014165`10."}]}], ",",
+ RowBox[{"-", "33745.0567145714346504657`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "117201.9226400275418313868`10."}]}], ",",
+ RowBox[{"-", "54663.2312869198023008721`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "117201.9226400275418313868`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "77863.2849687613232591844`10."}], ",",
+ RowBox[{"-", "54663.2312869198023008721`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "55966.5760029824850344042`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "542.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "390.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "279.0399343620216006934`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "236.5725596999417112119`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05027166769197995310278150449323916288`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "199.1704013203308895992`10."}], ",",
+ RowBox[{"-", "0.08140563207193991114172428899867074449`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "123.247979483355757529`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "243.639394843988486591`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "206.8176429276776494057`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797331531111*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808177840839*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"be9d9b98-ab8d-4734-8f46-d879d3148e53"],
+In[266]:=",ExpressionUUID->"468e1df9-453e-431b-aee5-30b4fa03376c"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "257.63878676470586`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "177.1713197969543`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 257.63878676470586`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 177.1713197969543}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733162923871*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808188164467*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"7398d7bc-a8e7-40df-addc-01837f5e7024"],
+In[266]:=",ExpressionUUID->"0665d3af-eb7a-44a9-b46e-3455e5195176"],
Cell[BoxData[
InterpretationBox[
@@ -29665,12 +9027,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"272.`", ",", "0.`", ",", "0.`", ",", "272.`"}], "}"}]}]},
+ RowBox[{"197.`", ",", "0.`", ",", "0.`", ",", "197.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"272.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "272.`"}]}], "}"}]}]},
+ RowBox[{"197.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "197.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -29680,13 +9042,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"217.24033752662274`", ",", "0.`", ",",
- RowBox[{"-", "217.24033752662274`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"142.16538118863105`", ",", "0.`", ",",
+ RowBox[{"-", "142.16538118863105`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"200.1697734616556`", ",",
- RowBox[{"-", "10.`"}], ",", "199.91982945093397`", ",", "0.`"}],
+ RowBox[{"125.24472979964729`", ",",
+ RowBox[{"-", "10.`"}], ",", "124.84487311294227`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -29703,16 +9065,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {272., 0., 0., 272.}, $CellContext`p2 -> {
- 272., 0., 0., -272.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {217.24033752662274`,
- 0., -217.24033752662274`, 0.}, $CellContext`p5 -> {
- 200.1697734616556, -10., 199.91982945093397`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {197., 0., 0., 197.}, $CellContext`p2 -> {
+ 197., 0., 0., -197.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {142.16538118863105`,
+ 0., -142.16538118863105`, 0.}, $CellContext`p5 -> {
+ 125.24472979964729`, -10., 124.84487311294227`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797331629320183`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808188173572*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"475872c6-a6f5-4046-a24b-9d69acd1d10e"],
+In[266]:=",ExpressionUUID->"c96d4594-d2d4-4900-8803-21703d05aa60"],
Cell[BoxData[
InterpretationBox[
@@ -29721,70 +9085,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "3.096734135620686649226907680965079708751190105467908360449797301`\
-43.454275026045906*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.36202953545095", ",", "0``57.264401100301825"}], "}"}]}],
+ "-", "4.432723035992045612457827955406117127620440394640883225700160675`\
+43.75014437920611*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.54617615048209", ",", "0``57.40450377817443"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.096734135620686649226907680965079708751190105467908360449797301`43.\
-454275026045906*^-14, 0``58.69897000433602, 0``57.36202953545095,
- 0``57.264401100301825}],
+{-4.432723035992045612457827955406117127620440394640883225700160675`43.\
+75014437920611*^-14, 0``58.69897000433602, 0``57.54617615048209,
+ 0``57.40450377817443}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733162939755*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798081881799726`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1f63ecf0-3515-4c70-9899-bc9f5a34eac7"],
+In[266]:=",ExpressionUUID->"fe7b86cd-d098-49da-a5fb-37b5102a2fb5"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797331629477053`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808188187101*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"59ae776a-bc41-4ac1-a769-cce37dc5780a"],
+In[266]:=",ExpressionUUID->"dfae6690-74a9-4684-a2ec-5e73d1beaba2"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "217.2403375266227385509`10."}], ",",
- RowBox[{"S", "\[Rule]", "295936.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "142.1653811886310450063`10."}], ",",
+ RowBox[{"S", "\[Rule]", "155236.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "53239.8996223765652560342`10."}]}], ",",
+ RowBox[{"-", "34251.4162706183211597012`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "53239.8996223765652560342`10."}]}], ",",
+ RowBox[{"-", "34251.4162706183211597012`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "118178.7436144827697717119`10."}]}], ",",
+ RowBox[{"-", "56013.1601883206317324948`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "118178.7436144827697717119`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "78151.2864737186824529436`10."}], ",",
+ RowBox[{"-", "56013.1601883206317324948`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "56543.1529178779168878961`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "544.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "394.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "279.5555159064451056015`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "237.7880419993358641809`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.05002005067463448155005413315810553938`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "200.1697734616556031728`10."}], ",",
+ RowBox[{"-", "0.08009940457028933223627592409094123815`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "125.2447297996472833575`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "244.0871007878835866338`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "207.8693811588390576473`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733162955611*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808188193771*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f43df338-3820-41f4-8f70-24329e1cb865"],
+In[266]:=",ExpressionUUID->"48c3bbb4-fb6f-4d11-b42f-50291d554526"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "258.69139194139194`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "179.37060301507537`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 258.69139194139194`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 179.37060301507537`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733172785234*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798081990689774`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"90456c8d-3631-4f01-9310-4404a71893c7"],
+In[266]:=",ExpressionUUID->"a5796798-c574-4e07-81bb-851a5dbd267e"],
Cell[BoxData[
InterpretationBox[
@@ -29795,12 +9167,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"273.`", ",", "0.`", ",", "0.`", ",", "273.`"}], "}"}]}]},
+ RowBox[{"199.`", ",", "0.`", ",", "0.`", ",", "199.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"273.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "273.`"}]}], "}"}]}]},
+ RowBox[{"199.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "199.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -29810,13 +9182,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"218.2409591393402`", ",", "0.`", ",",
- RowBox[{"-", "218.2409591393402`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"144.16852855619055`", ",", "0.`", ",",
+ RowBox[{"-", "144.16852855619055`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"201.16915184893818`", ",",
- RowBox[{"-", "10.`"}], ",", "200.92045106365143`", ",", "0.`"}],
+ RowBox[{"127.24158243208781`", ",",
+ RowBox[{"-", "10.`"}], ",", "126.84802048050177`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -29833,16 +9205,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {273., 0., 0., 273.}, $CellContext`p2 -> {
- 273., 0., 0., -273.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {218.2409591393402,
- 0., -218.2409591393402, 0.}, $CellContext`p5 -> {
- 201.16915184893818`, -10., 200.92045106365143`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {199., 0., 0., 199.}, $CellContext`p2 -> {
+ 199., 0., 0., -199.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {144.16852855619055`,
+ 0., -144.16852855619055`, 0.}, $CellContext`p5 -> {
+ 127.24158243208781`, -10., 126.84802048050177`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797331727935543`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808199076713*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"68dab623-686d-496e-9ffd-7e13ba9af720"],
+In[266]:=",ExpressionUUID->"0b40341e-909a-4742-88ab-2d35103b6d00"],
Cell[BoxData[
InterpretationBox[
@@ -29851,69 +9225,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "9.75061173917355183029204120639607108324730362755763299571572974`\
-42.95080922518759*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.36003374269025", ",", "0``57.262807357295266"}], "}"}]}],
+ "-", "5.18505893573252753907346428405562353761277164110772822509426617`\
+42.813840629403586*^-15"}], ",", "0``58.69897000433602", ",",
+ "0``57.540099538447045", ",", "0``57.40011692792631"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-9.75061173917355183029204120639607108324730362755763299571572974`42.\
-95080922518759*^-15, 0``58.69897000433602, 0``57.36003374269025,
- 0``57.262807357295266}],
+{-5.18505893573252753907346428405562353761277164110772822509426617`42.\
+813840629403586*^-15, 0``58.69897000433602, 0``57.540099538447045,
+ 0``57.40011692792631}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733172800832*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808199083653*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c6aa42b1-dbfe-4278-8edc-0648a626f916"],
+In[266]:=",ExpressionUUID->"e9486ea0-6e76-4fd0-a20c-77001cf19ac6"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733172808106*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808199090311*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"25f968d4-d861-4797-b684-27364d428b16"],
+In[266]:=",ExpressionUUID->"44ec4fac-4b5c-4362-8549-f94d7c35c812"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "218.2409591393401910864`10."}], ",",
- RowBox[{"S", "\[Rule]", "298116.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "144.1685285561905516261`10."}], ",",
+ RowBox[{"S", "\[Rule]", "158404.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "53493.079400400008510652`10."}]}], ",",
+ RowBox[{"-", "34757.7758266652076689368`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "53493.079400400008510652`10."}]}], ",",
+ RowBox[{"-", "34757.7758266652076689368`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "119159.5636900797443331612`10."}]}], ",",
+ RowBox[{"-", "57379.0743653638395471717`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "119159.5636900797443331612`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "78439.286180959509610671`10."}], ",",
+ RowBox[{"-", "57379.0743653638395471717`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "57119.7003840580957517271`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "546.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "398.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "280.0701451082558881793`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "238.9972811227318036657`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04977094142015443214335497486627980074`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "201.1691518489381718541`10."}], ",",
+ RowBox[{"-", "0.07883449786697406512710301606899311588`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "127.24158243208781588`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "244.533990724889829051`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "208.915895204918092114`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733172815716*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808199099012*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"fe5c3e44-0280-47a8-a9a2-923749ebb66c"],
+In[266]:=",ExpressionUUID->"2b617cb8-b6ec-457c-b828-b103912f85f4"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "259.7436131386861`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "181.56592039800995`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 259.7436131386861}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 181.56592039800995`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733182702231*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808209622055*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"44d2a36e-419a-4532-a04e-793103f62154"],
+In[266]:=",ExpressionUUID->"8233ed81-aeb0-4ba7-8e7c-3f9254dbc4e0"],
Cell[BoxData[
InterpretationBox[
@@ -29924,12 +9307,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"274.`", ",", "0.`", ",", "0.`", ",", "274.`"}], "}"}]}]},
+ RowBox[{"201.`", ",", "0.`", ",", "0.`", ",", "201.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"274.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "274.`"}]}], "}"}]}]},
+ RowBox[{"201.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "201.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -29939,13 +9322,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"219.24157459884097`", ",", "0.`", ",",
- RowBox[{"-", "219.24157459884097`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"146.17157836483952`", ",", "0.`", ",",
+ RowBox[{"-", "146.17157836483952`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"202.16853638943735`", ",",
- RowBox[{"-", "10.`"}], ",", "201.9210665231522`", ",", "0.`"}],
+ RowBox[{"129.23853262343883`", ",",
+ RowBox[{"-", "10.`"}], ",", "128.85107028915075`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -29962,16 +9345,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {274., 0., 0., 274.}, $CellContext`p2 -> {
- 274., 0., 0., -274.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {219.24157459884097`,
- 0., -219.24157459884097`, 0.}, $CellContext`p5 -> {
- 202.16853638943735`, -10., 201.9210665231522, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {201., 0., 0., 201.}, $CellContext`p2 -> {
+ 201., 0., 0., -201.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {146.17157836483952`,
+ 0., -146.17157836483952`, 0.}, $CellContext`p5 -> {
+ 129.23853262343883`, -10., 128.85107028915075`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733182710474*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798082096293583`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"255e0003-0b5a-4a28-9614-7d7b1e42be2e"],
+In[266]:=",ExpressionUUID->"b67020f4-c616-4f24-ae44-7859d44eb9a2"],
Cell[BoxData[
InterpretationBox[
@@ -29980,70 +9365,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "5.110555982088074241592953820596998267526123324888594540164232402`\
-43.66865759585291*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.3580470918101", ",", "0``57.261219441515635"}], "}"}]}],
+ "-", "1.097476056796877937193654182499869503033211900951851302092173032`\
+43.1351390054373*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.53410706782403", ",", "0``57.395773946915526"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.110555982088074241592953820596998267526123324888594540164232402`43.\
-66865759585291*^-14, 0``58.69897000433602, 0``57.3580470918101,
- 0``57.261219441515635}],
+{-1.097476056796877937193654182499869503033211900951851302092173032`43.\
+1351390054373*^-14, 0``58.69897000433602, 0``57.53410706782403,
+ 0``57.395773946915526}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733182718369*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808209636401*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"a2d9a4ca-c74a-4bda-8781-4329cf294499"],
+In[266]:=",ExpressionUUID->"3a2fe4a8-3f98-4d96-8b09-7a6ff9da9dfd"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797331827264977`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798082096428823`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"160abf41-e2e4-4558-974c-d59861886da3"],
+In[266]:=",ExpressionUUID->"8cad7e81-de34-4edf-be04-58379dbd58d0"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "219.2415745988409696565`10."}], ",",
- RowBox[{"S", "\[Rule]", "300304.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "146.1715783648395188266`10."}], ",",
+ RowBox[{"S", "\[Rule]", "161604.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "53746.2591784234517652698`10."}]}], ",",
+ RowBox[{"-", "35264.1353827120941781724`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "53746.2591784234517652698`10."}]}], ",",
+ RowBox[{"-", "35264.1353827120941781724`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "120144.3828801648513717737`10."}]}], ",",
+ RowBox[{"-", "58760.9745026654865682758`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "120144.3828801648513717737`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "78727.2841171766269379594`10."}], ",",
+ RowBox[{"-", "58760.9745026654865682758`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "57696.2197707551643296202`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "548.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "402.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "280.5838272552012698024`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "240.2003742102729621175`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04952430260095423774765051189846749369`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "202.168536389437351929`10."}], ",",
+ RowBox[{"-", "0.07760897893637441934076699185380118671`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "129.2385326234388428898`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "244.9800690661798790034`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "209.9572599237021411937`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733182734599*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808209649596*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"37a0a9fb-cae8-4ee2-9c74-ab5e4f6c925e"],
+In[266]:=",ExpressionUUID->"cc93ed39-fa85-4861-b1be-79650deb580c"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "260.79545454545456`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "183.75738916256157`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 260.79545454545456`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 183.75738916256157`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733192647314*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798082201037292`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"17cace8e-8c82-4c09-8bf1-4b84400c3ca2"],
+In[266]:=",ExpressionUUID->"ad19c3de-4f9c-4b34-a278-02c043092db4"],
Cell[BoxData[
InterpretationBox[
@@ -30054,12 +9447,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"275.`", ",", "0.`", ",", "0.`", ",", "275.`"}], "}"}]}]},
+ RowBox[{"203.`", ",", "0.`", ",", "0.`", ",", "203.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"275.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "275.`"}]}], "}"}]}]},
+ RowBox[{"203.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "203.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -30069,13 +9462,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"220.24218399603933`", ",", "0.`", ",",
- RowBox[{"-", "220.24218399603933`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"148.17453508139738`", ",", "0.`", ",",
+ RowBox[{"-", "148.17453508139738`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"203.16792699223905`", ",",
- RowBox[{"-", "10.`"}], ",", "202.92167592035057`", ",", "0.`"}],
+ RowBox[{"131.23557590688097`", ",",
+ RowBox[{"-", "10.`"}], ",", "130.85402700570862`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -30092,16 +9485,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {275., 0., 0., 275.}, $CellContext`p2 -> {
- 275., 0., 0., -275.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {220.24218399603933`,
- 0., -220.24218399603933`, 0.}, $CellContext`p5 -> {
- 203.16792699223905`, -10., 202.92167592035057`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {203., 0., 0., 203.}, $CellContext`p2 -> {
+ 203., 0., 0., -203.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {148.17453508139738`,
+ 0., -148.17453508139738`, 0.}, $CellContext`p5 -> {
+ 131.23557590688097`, -10., 130.85402700570862`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733192655704*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798082201108923`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"47ee1581-7a8c-4689-a4bf-f406dbf48da0"],
+In[266]:=",ExpressionUUID->"18371f68-5061-4961-83af-c009e10f7e38"],
Cell[BoxData[
InterpretationBox[
@@ -30109,70 +9504,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.296535748861395319313636941343275196935028569922347183292216922`43.\
-0713918107402*^-14", ",", "0``58.69897000433602", ",", "0``57.35606949931833",
- ",", "0``57.25963731050576"}], "}"}]}],
+ RowBox[{
+ "-", "2.062266105431236158443587260552373609951462208267989317356402125`\
+43.40478867470529*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.5281964310833", ",", "0``57.3914739664228"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.296535748861395319313636941343275196935028569922347183292216922`43.\
-0713918107402*^-14, 0``58.69897000433602, 0``57.35606949931833,
- 0``57.25963731050576}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-2.062266105431236158443587260552373609951462208267989317356402125`43.\
+40478867470529*^-14, 0``58.69897000433602, 0``57.5281964310833,
+ 0``57.3914739664228}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733192663455*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808220117772*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"3de3c0c3-e947-4440-89b1-84f31edef4a0"],
+In[266]:=",ExpressionUUID->"baa9a5b1-6c5a-4b7f-9a01-85af5d08530d"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733192671371*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808220124371*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"db152814-5028-4ff6-b282-26580073c31b"],
+In[266]:=",ExpressionUUID->"26f3f20e-c025-4361-8954-5d9cf6efb797"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "220.2421839960393299407`10."}], ",",
- RowBox[{"S", "\[Rule]", "302500.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "148.1745350813973800541`10."}], ",",
+ RowBox[{"S", "\[Rule]", "164836.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "53999.4389564468950198875`10."}]}], ",",
+ RowBox[{"-", "35770.4949387589806874079`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "53999.4389564468950198875`10."}]}], ",",
+ RowBox[{"-", "35770.4949387589806874079`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "121133.2011978216314673773`10."}]}], ",",
+ RowBox[{"-", "60158.8612430473363019701`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "121133.2011978216314673773`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "79015.2803085370477062401`10."}], ",",
+ RowBox[{"-", "60158.8612430473363019701`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "58272.7123636126393916095`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "550.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "406.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "281.0965675858334768689`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "241.3974158180087879617`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04928009762705257927553130648701718556`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "203.1679269922390557158`10."}], ",",
+ RowBox[{"-", "0.0764210336420425360185667186365260739`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "131.2355759068809720143`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "245.4253401838464308174`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "210.9935485125204409077`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797331926790457`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808220131248*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"58073454-cbdf-447f-aa8b-935c0495255b"],
+In[266]:=",ExpressionUUID->"67fbcdce-0105-4ffd-8198-f68a2121ca63"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "261.84692028985506`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "185.9451219512195`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 261.84692028985506`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 185.9451219512195}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733202534357*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808230038834*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"3e319f16-3608-498f-8252-94c038e61bdb"],
+In[266]:=",ExpressionUUID->"99f93606-c18a-45dd-92cb-628a5ceb2675"],
Cell[BoxData[
InterpretationBox[
@@ -30183,12 +9586,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"276.`", ",", "0.`", ",", "0.`", ",", "276.`"}], "}"}]}]},
+ RowBox[{"205.`", ",", "0.`", ",", "0.`", ",", "205.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"276.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "276.`"}]}], "}"}]}]},
+ RowBox[{"205.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "205.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -30198,13 +9601,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"221.2427874200671`", ",", "0.`", ",",
- RowBox[{"-", "221.2427874200671`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"150.17740290409319`", ",", "0.`", ",",
+ RowBox[{"-", "150.17740290409319`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"204.16732356821123`", ",",
- RowBox[{"-", "10.`"}], ",", "203.92227934437832`", ",", "0.`"}],
+ RowBox[{"133.23270808418522`", ",",
+ RowBox[{"-", "10.`"}], ",", "132.85689482840442`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -30221,16 +9624,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {276., 0., 0., 276.}, $CellContext`p2 -> {
- 276., 0., 0., -276.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {221.2427874200671,
- 0., -221.2427874200671, 0.}, $CellContext`p5 -> {
- 204.16732356821123`, -10., 203.92227934437832`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {205., 0., 0., 205.}, $CellContext`p2 -> {
+ 205., 0., 0., -205.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {150.17740290409319`,
+ 0., -150.17740290409319`, 0.}, $CellContext`p5 -> {
+ 133.23270808418522`, -10., 132.85689482840442`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733202542746*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808230045966*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"3316334d-2567-477e-89fe-6ac45a1326da"],
+In[266]:=",ExpressionUUID->"d603b266-cf12-43de-9709-a166af915ec9"],
Cell[BoxData[
InterpretationBox[
@@ -30238,70 +9643,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "4.864752532505358155130493995571958769017833346951043267082606502`\
-43.644091679433*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.35410088286321", ",", "0``57.25806092227079"}], "}"}]}],
+ "2.239922691743123484216280624221296081919976368381523463402770007`43.\
+43641917705368*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.522365414759484", ",", "0``57.38721614328027"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.864752532505358155130493995571958769017833346951043267082606502`43.\
-644091679433*^-14, 0``58.69897000433602, 0``57.35410088286321,
- 0``57.25806092227079}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 2.239922691743123484216280624221296081919976368381523463402770007`43.\
+43641917705368*^-14, 0``58.69897000433602, 0``57.522365414759484,
+ 0``57.38721614328027}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733202550662*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798082300541697`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"b1979334-517e-40ef-bbf3-3e1573a3da69"],
+In[266]:=",ExpressionUUID->"fcff42eb-e47d-44b3-8797-e9ca57f5536d"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733202558599*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798082300608*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"7f806123-2ad9-4ab7-8338-4ddc39539c2d"],
+In[266]:=",ExpressionUUID->"8ddb3e43-43ff-490a-95ad-07c2d6fa24ba"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "221.242787420067088533`10."}], ",",
- RowBox[{"S", "\[Rule]", "304704.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "150.1774029040931850432`10."}], ",",
+ RowBox[{"S", "\[Rule]", "168100.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "54252.6187344703382745053`10."}]}], ",",
+ RowBox[{"-", "36276.8544948058671966434`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "54252.6187344703382745053`10."}]}], ",",
+ RowBox[{"-", "36276.8544948058671966434`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "122126.0186558770328701939`10."}]}], ",",
+ RowBox[{"-", "61572.7351906782058676981`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "122126.0186558770328701939`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "79303.2747806947621538686`10."}], ",",
+ RowBox[{"-", "61572.7351906782058676981`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "58849.1793709681401600638`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "552.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "410.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "281.6083712901567174466`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "242.5884980186986115057`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04903829062793220388520146230553467021`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "204.1673235682112355106`10."}], ",",
+ RowBox[{"-", "0.07526895772263698508415493914310951142`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "133.2327080841852100472`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "245.8698084113742951094`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "212.0248325518584153381`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733202566358*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798082300683947`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"669229e3-e5e7-4f17-b22a-aa41cec4e208"],
+In[266]:=",ExpressionUUID->"bb09aaef-0e30-4452-a37a-0b099f1fcb1d"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "262.8980144404332`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "188.12922705314008`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 262.8980144404332}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 188.12922705314008`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733212320963*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798082400885878`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"66abd4e0-34df-4c0b-a686-957b8b0fc843"],
+In[266]:=",ExpressionUUID->"5b27663a-2ee2-4a53-8c77-50faffbc81f3"],
Cell[BoxData[
InterpretationBox[
@@ -30312,12 +9725,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"277.`", ",", "0.`", ",", "0.`", ",", "277.`"}], "}"}]}]},
+ RowBox[{"207.`", ",", "0.`", ",", "0.`", ",", "207.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"277.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "277.`"}]}], "}"}]}]},
+ RowBox[{"207.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "207.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -30327,13 +9740,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"222.2433849583175`", ",", "0.`", ",",
- RowBox[{"-", "222.2433849583175`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"152.1801857824545`", ",", "0.`", ",",
+ RowBox[{"-", "152.1801857824545`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"205.16672602996084`", ",",
- RowBox[{"-", "10.`"}], ",", "204.92287688262874`", ",", "0.`"}],
+ RowBox[{"135.2299252058239`", ",",
+ RowBox[{"-", "10.`"}], ",", "134.85967770676572`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -30350,16 +9763,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {277., 0., 0., 277.}, $CellContext`p2 -> {
- 277., 0., 0., -277.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {222.2433849583175,
- 0., -222.2433849583175, 0.}, $CellContext`p5 -> {
- 205.16672602996084`, -10., 204.92287688262874`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {207., 0., 0., 207.}, $CellContext`p2 -> {
+ 207., 0., 0., -207.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {152.1801857824545,
+ 0., -152.1801857824545, 0.}, $CellContext`p5 -> {
+ 135.2299252058239, -10., 134.85967770676572`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733212329028*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808240095839*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"a60a8481-ca63-4eeb-baed-a39d4bce07f6"],
+In[266]:=",ExpressionUUID->"9d228ab5-6179-45e9-8e49-b4d60c2178d9"],
Cell[BoxData[
InterpretationBox[
@@ -30368,70 +9783,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.994942809248291145318867422805038753010114854493747129577985481`\
-43.255390689513106*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.3521411612128", ",", "0``57.25649023527157"}], "}"}]}],
+ "-", "3.97642686023181357704972873255077393295438530458924560408922708`\
+42.68146266195163*^-15"}], ",", "0``58.69897000433602", ",",
+ "0``57.51661189438193", ",", "0``57.3829996588791"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.994942809248291145318867422805038753010114854493747129577985481`43.\
-255390689513106*^-14, 0``58.69897000433602, 0``57.3521411612128,
- 0``57.25649023527157}],
+{-3.97642686023181357704972873255077393295438530458924560408922708`42.\
+68146266195163*^-15, 0``58.69897000433602, 0``57.51661189438193,
+ 0``57.3829996588791}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733212336607*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808240102689*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"dea00dd9-da9e-4b38-a7f1-bcdaccfab787"],
+In[266]:=",ExpressionUUID->"04e08135-eb87-4a09-ac1e-d2f6c0bd1fa7"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797332123442297`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808240109139*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"0aed1533-5d13-43db-aa60-ef187a32d614"],
+In[266]:=",ExpressionUUID->"fdea92c4-535a-4bb4-9bac-aa4aaa97bf4c"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "222.2433849583175060616`10."}], ",",
- RowBox[{"S", "\[Rule]", "306916.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "152.1801857824544867981`10."}], ",",
+ RowBox[{"S", "\[Rule]", "171396.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "54505.7985124937815291231`10."}]}], ",",
+ RowBox[{"-", "36783.214050852753705879`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "54505.7985124937815291231`10."}]}], ",",
+ RowBox[{"-", "36783.214050852753705879`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "123122.835266907898358113`10."}]}], ",",
+ RowBox[{"-", "63002.5969139361575344083`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "123122.835266907898358113`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "79591.2675588033679603899`10."}], ",",
+ RowBox[{"-", "63002.5969139361575344083`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "59425.6219295778235560383`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "554.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "414.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "282.1192435102635248104`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "243.7737104972105550447`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04879884643493260358648542302832135176`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "205.1667260299608466801`10."}], ",",
+ RowBox[{"-", "0.07415114858678261950245553689062592402`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "135.2299252058238819166`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "246.3134780441058000998`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "213.0511820481822223513`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733212351893*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808240117919*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"dbcea1ff-5259-49ee-bc50-1b8426697c0f"],
+In[266]:=",ExpressionUUID->"2dd4105e-d326-4ce2-80ad-39167d449189"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "263.94874100719426`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "190.30980861244018`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 263.94874100719426`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 190.30980861244018`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733222208479*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808250851513*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"9d36f73b-df44-4746-86e0-76f012af0a2b"],
+In[266]:=",ExpressionUUID->"218c1570-d79a-47c6-af5c-2a7ff46adba4"],
Cell[BoxData[
InterpretationBox[
@@ -30442,12 +9865,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"278.`", ",", "0.`", ",", "0.`", ",", "278.`"}], "}"}]}]},
+ RowBox[{"209.`", ",", "0.`", ",", "0.`", ",", "209.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"278.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "278.`"}]}], "}"}]}]},
+ RowBox[{"209.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "209.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -30457,13 +9880,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"223.24397669648712`", ",", "0.`", ",",
- RowBox[{"-", "223.24397669648712`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"154.18288743545503`", ",", "0.`", ",",
+ RowBox[{"-", "154.18288743545503`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"206.1661342917913`", ",",
- RowBox[{"-", "10.`"}], ",", "205.92346862079836`", ",", "0.`"}],
+ RowBox[{"137.2272235528234`", ",",
+ RowBox[{"-", "10.`"}], ",", "136.86237935976627`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -30480,16 +9903,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {278., 0., 0., 278.}, $CellContext`p2 -> {
- 278., 0., 0., -278.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {223.24397669648712`,
- 0., -223.24397669648712`, 0.}, $CellContext`p5 -> {
- 206.1661342917913, -10., 205.92346862079836`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {209., 0., 0., 209.}, $CellContext`p2 -> {
+ 209., 0., 0., -209.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {154.18288743545503`,
+ 0., -154.18288743545503`, 0.}, $CellContext`p5 -> {
+ 137.2272235528234, -10., 136.86237935976627`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733222216354*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798082508596*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"21e8788d-95d2-4d07-a728-e018c94e3d40"],
+In[266]:=",ExpressionUUID->"38d8a894-fd3a-4f43-b693-97d99fefb4e3"],
Cell[BoxData[
InterpretationBox[
@@ -30497,69 +9922,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "4.767896418113905302571241868299164647390293500931820446550793891`43.\
-63222202460145*^-14", ",", "0``58.69897000433602", ",",
- "0``57.35019025423463", ",", "0``57.25492520841794"}], "}"}]}],
+ "6.881636069647611856499096288748991510530110019257148637143997876`43.\
+91548542410323*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.510933829744076", ",", "0``57.378823718224965"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 4.767896418113905302571241868299164647390293500931820446550793891`43.\
-63222202460145*^-14, 0``58.69897000433602, 0``57.35019025423463,
- 0``57.25492520841794}],
+ 6.881636069647611856499096288748991510530110019257148637143997876`43.\
+91548542410323*^-14, 0``58.69897000433602, 0``57.510933829744076,
+ 0``57.378823718224965}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733222223856*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798082508686113`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d379f697-cde4-4a9c-b2c9-67ad5259675f"],
+In[266]:=",ExpressionUUID->"bded28f3-c23a-4e46-bdd5-dc8d763b8184"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973322223133*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798082508760347`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"2b58eb61-9322-4a30-ac4e-ddd71ebe6dbe"],
+In[266]:=",ExpressionUUID->"987429aa-843d-4ba0-938a-72601fec30fd"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "223.2439766964871239452`10."}], ",",
- RowBox[{"S", "\[Rule]", "309136.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "154.1828874354550293901`10."}], ",",
+ RowBox[{"S", "\[Rule]", "174724.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "54758.9782905172247837409`10."}]}], ",",
+ RowBox[{"-", "37289.5736068996402151145`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "54758.9782905172247837409`10."}]}], ",",
+ RowBox[{"-", "37289.5736068996402151145`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "124123.6510432468409135254`10."}]}], ",",
+ RowBox[{"-", "64448.446948020202285079`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "124123.6510432468409135254`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "79879.258667528111734957`10."}], ",",
+ RowBox[{"-", "64448.446948020202285079`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "60002.0411098396661134308`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "556.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "418.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "282.6291893409598125739`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "244.9531406408982258866`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04856173056415773720158541893086034782`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "206.1661342917912964249`10."}], ",",
+ RowBox[{"-", "0.07306609783330803791409852938356744967`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "137.2272235528234121173`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "246.7563533396989353066`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "214.0726654759071096565`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797332222390757`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808250883396*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d63537bb-7602-472d-b762-ad300b53ff46"],
+In[266]:=",ExpressionUUID->"263ac1b5-fd60-4ce5-9cba-44240fce01e3"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "264.9991039426523`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "192.48696682464455`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 264.9991039426523}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 192.48696682464455`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973323208239*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808261784731*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"9e379964-bb83-4c06-9951-fd6145d8e037"],
+In[266]:=",ExpressionUUID->"b7264267-6579-4fc2-bb80-b6a7d6889a28"],
Cell[BoxData[
InterpretationBox[
@@ -30570,12 +10004,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"279.`", ",", "0.`", ",", "0.`", ",", "279.`"}], "}"}]}]},
+ RowBox[{"211.`", ",", "0.`", ",", "0.`", ",", "211.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"279.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "279.`"}]}], "}"}]}]},
+ RowBox[{"211.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "211.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -30585,13 +10019,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"224.2445627186168`", ",", "0.`", ",",
- RowBox[{"-", "224.2445627186168`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"156.18551136809566`", ",", "0.`", ",",
+ RowBox[{"-", "156.18551136809566`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"207.16554826966154`", ",",
- RowBox[{"-", "10.`"}], ",", "206.92405464292804`", ",", "0.`"}],
+ RowBox[{"139.2245996201827`", ",",
+ RowBox[{"-", "10.`"}], ",", "138.8650032924069`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -30608,16 +10042,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {279., 0., 0., 279.}, $CellContext`p2 -> {
- 279., 0., 0., -279.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {224.2445627186168,
- 0., -224.2445627186168, 0.}, $CellContext`p5 -> {
- 207.16554826966154`, -10., 206.92405464292804`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {211., 0., 0., 211.}, $CellContext`p2 -> {
+ 211., 0., 0., -211.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {156.18551136809566`,
+ 0., -156.18551136809566`, 0.}, $CellContext`p5 -> {
+ 139.2245996201827, -10., 138.8650032924069, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733232090575*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798082617981987`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"b5faa05d-b64f-433c-9635-e25f3a7e789f"],
+In[266]:=",ExpressionUUID->"4aed7980-d5ef-469c-8c64-7fcecdf06967"],
Cell[BoxData[
InterpretationBox[
@@ -30626,69 +10062,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "2.562465619196408513119923322290874780556452625246868415225027376`\
-43.36099385253798*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.34824808287598", ",", "0``57.25336580106242"}], "}"}]}],
+ "-", "1.590446787330551623918652040008630013845555040891394592493654362`\
+43.27517669657233*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.505329260484444", ",", "0``57.37468754903833"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.562465619196408513119923322290874780556452625246868415225027376`43.\
-36099385253798*^-14, 0``58.69897000433602, 0``57.34824808287598,
- 0``57.25336580106242}],
+{-1.590446787330551623918652040008630013845555040891394592493654362`43.\
+27517669657233*^-14, 0``58.69897000433602, 0``57.505329260484444,
+ 0``57.37468754903833}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797332320986423`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808261805254*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"81e1255d-239b-47c1-8511-1a298dc10966"],
+In[266]:=",ExpressionUUID->"34bcfc16-3fb6-4c68-8da7-71c02440454d"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733232106143*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808261818487*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"973d3fd9-1b85-4fd7-a49f-d2cacdbe618c"],
+In[266]:=",ExpressionUUID->"74ba5aa5-1c53-4c07-8dd0-ce38a6cc2bcc"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "224.2445627186168053413`10."}], ",",
- RowBox[{"S", "\[Rule]", "311364.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "156.1855113680956606004`10."}], ",",
+ RowBox[{"S", "\[Rule]", "178084.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "55012.1580685406680383586`10."}]}], ",",
+ RowBox[{"-", "37795.9331629465267243501`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "55012.1580685406680383586`10."}]}], ",",
+ RowBox[{"-", "37795.9331629465267243501`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "125128.4659969881773804445`10."}]}], ",",
+ RowBox[{"-", "65910.2857973363687733581`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "125128.4659969881773804445`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "80167.2481310577014546982`10."}], ",",
+ RowBox[{"-", "65910.2857973363687733581`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "60578.4379205657954240027`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "558.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "422.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "283.1382138303794934334`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "246.1268736253028413379`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04832690919988101217007821352172812211`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "207.1655482696615417252`10."}], ",",
+ RowBox[{"-", "0.07201238442304345607881576225803881346`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "139.2245996201826961863`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "247.1984385185788913954`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "215.0893498184585939867`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973323211414*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808261826088*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"8dd91ab7-30cc-47c7-8b74-87cebb5d2be4"],
+In[266]:=",ExpressionUUID->"ef721b3f-d718-46c4-968c-8bef8fa28a96"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "266.0491071428571`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "194.66079812206573`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 266.0491071428571}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 194.66079812206573`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733241963167*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798082723496523`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"90545944-6dc3-43d2-a686-ef11def5233f"],
+In[266]:=",ExpressionUUID->"9d18f9d6-ff4d-41cc-879b-1660eb241cdb"],
Cell[BoxData[
InterpretationBox[
@@ -30699,12 +10144,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"280.`", ",", "0.`", ",", "0.`", ",", "280.`"}], "}"}]}]},
+ RowBox[{"213.`", ",", "0.`", ",", "0.`", ",", "213.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"280.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "280.`"}]}], "}"}]}]},
+ RowBox[{"213.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "213.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -30714,13 +10159,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"225.24514310713178`", ",", "0.`", ",",
- RowBox[{"-", "225.24514310713178`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"158.18806088657536`", ",", "0.`", ",",
+ RowBox[{"-", "158.18806088657536`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"208.16496788114657`", ",",
- RowBox[{"-", "10.`"}], ",", "207.92463503144302`", ",", "0.`"}],
+ RowBox[{"141.22205010170302`", ",",
+ RowBox[{"-", "10.`"}], ",", "140.8675528108866`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -30737,16 +10182,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {280., 0., 0., 280.}, $CellContext`p2 -> {
- 280., 0., 0., -280.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {225.24514310713178`,
- 0., -225.24514310713178`, 0.}, $CellContext`p5 -> {
- 208.16496788114657`, -10., 207.92463503144302`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {213., 0., 0., 213.}, $CellContext`p2 -> {
+ 213., 0., 0., -213.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {158.18806088657536`,
+ 0., -158.18806088657536`, 0.}, $CellContext`p5 -> {
+ 141.22205010170302`, -10., 140.8675528108866, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733241971249*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808272356955*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"96486074-2118-4652-a731-fb4fc2bd93ed"],
+In[266]:=",ExpressionUUID->"216ed6ea-0e67-476c-8965-9dd6ea6046b9"],
Cell[BoxData[
InterpretationBox[
@@ -30754,71 +10201,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "3.581188361392918591372314708680722310835119713656294907194842683`\
-43.50480914172685*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.34631456914447", ",", "0``57.251811972993806"}], "}"}]}],
+ "1.467426224793141320743933053082938729183041220830627705857861439`43.\
+23611668144213*^-14", ",", "0``58.69897000433602", ",", "0``57.4997963019553",
+ ",", "0``57.370590400897285"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.581188361392918591372314708680722310835119713656294907194842683`43.\
-50480914172685*^-14, 0``58.69897000433602, 0``57.34631456914447,
- 0``57.251811972993806}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 1.467426224793141320743933053082938729183041220830627705857861439`43.\
+23611668144213*^-14, 0``58.69897000433602, 0``57.4997963019553,
+ 0``57.370590400897285}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797332419790773`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808272363708*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"7ead141e-5afd-4d2c-841a-d16e2018dbd0"],
+In[266]:=",ExpressionUUID->"b830340d-1a33-4434-b49e-d08189ca5a37"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733241987095*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798082723703213`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"8b44b5c1-6105-430c-b9c8-e9e7d3b61d98"],
+In[266]:=",ExpressionUUID->"b01f86af-e64c-4cda-9e16-8a42bb73a918"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "225.2451431071317813348`10."}], ",",
- RowBox[{"S", "\[Rule]", "313600.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "158.1880608865753572445`10."}], ",",
+ RowBox[{"S", "\[Rule]", "181476.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "55265.3378465641112929764`10."}]}], ",",
+ RowBox[{"-", "38302.2927189934132335856`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "55265.3378465641112929764`10."}]}], ",",
+ RowBox[{"-", "38302.2927189934132335856`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "126137.2801399937975475041`10."}]}], ",",
+ RowBox[{"-", "67388.1139376811021861613`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "126137.2801399937975475041`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "80455.2359731158325905201`10."}], ",",
+ RowBox[{"-", "67388.1139376811021861613`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "61154.813313349026694835`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "560.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "426.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "283.6463219805887639716`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "247.2949924954992425591`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04809434917843077601079596280528346878`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "208.1649678811465555444`10."}], ",",
+ RowBox[{"-", "0.07098866843683235956706455014828212515`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "141.2220501017030301209`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "247.6397377643830023619`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "216.101300608390146467`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733241995088*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798082723769817`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"a27b4424-9bc6-4460-bc26-6307679633d6"],
+In[266]:=",ExpressionUUID->"41fc3e43-34c2-4e28-957a-ccc584e64255"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "267.09875444839855`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "196.83139534883722`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 267.09875444839855`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 196.83139534883722`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733251847537*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798082822450457`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c7d7b613-c332-4e25-b889-f78187fa55c7"],
+In[266]:=",ExpressionUUID->"4f7346ee-ef7d-442d-bfbb-e05bd1f35d89"],
Cell[BoxData[
InterpretationBox[
@@ -30829,12 +10283,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"281.`", ",", "0.`", ",", "0.`", ",", "281.`"}], "}"}]}]},
+ RowBox[{"215.`", ",", "0.`", ",", "0.`", ",", "215.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"281.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "281.`"}]}], "}"}]}]},
+ RowBox[{"215.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "215.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -30844,13 +10298,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"226.24571794288`", ",", "0.`", ",",
- RowBox[{"-", "226.24571794288`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"160.19053911218865`", ",", "0.`", ",",
+ RowBox[{"-", "160.19053911218865`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"209.16439304539838`", ",",
- RowBox[{"-", "10.`"}], ",", "208.92520986719123`", ",", "0.`"}],
+ RowBox[{"143.21957187608976`", ",",
+ RowBox[{"-", "10.`"}], ",", "142.87003103649988`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -30867,16 +10321,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {281., 0., 0., 281.}, $CellContext`p2 -> {
- 281., 0., 0., -281.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {226.24571794288,
- 0., -226.24571794288, 0.}, $CellContext`p5 -> {
- 209.16439304539838`, -10., 208.92520986719123`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {215., 0., 0., 215.}, $CellContext`p2 -> {
+ 215., 0., 0., -215.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {160.19053911218865`,
+ 0., -160.19053911218865`, 0.}, $CellContext`p5 -> {
+ 143.21957187608976`, -10., 142.87003103649988`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973325185704*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798082822521257`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"4576947b-41ca-4599-852e-a4b60b570a99"],
+In[266]:=",ExpressionUUID->"3f6a4c85-599e-475b-81b9-a8e9f78b3db3"],
Cell[BoxData[
InterpretationBox[
@@ -30884,70 +10340,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "8.38056417936999505662251587410955037450871498151138131658222532`\
-42.872506945074996*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.344389636089176", ",", "0``57.250263684430934"}], "}"}]}],
+ "1.80978887981847983440149229495342366920239317747480297368403574`43.\
+323129464135235*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.49433314135622", ",", "0``57.36653154442041"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-8.38056417936999505662251587410955037450871498151138131658222532`42.\
-872506945074996*^-15, 0``58.69897000433602, 0``57.344389636089176,
- 0``57.250263684430934}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 1.80978887981847983440149229495342366920239317747480297368403574`43.\
+323129464135235*^-14, 0``58.69897000433602, 0``57.49433314135622,
+ 0``57.36653154442041}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733251865*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798082822588367`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e774bb9e-8a7b-4e7b-be0e-e9ba1ac5923f"],
+In[266]:=",ExpressionUUID->"9e3665de-e164-4657-a827-68751eaab653"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733251872621*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808282265308*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"604715f7-6846-4e4f-a71e-02d2458a5609"],
+In[266]:=",ExpressionUUID->"63d9b424-c48d-4d56-aa38-8c1c68f415af"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "226.2457179428799918242`10."}], ",",
- RowBox[{"S", "\[Rule]", "315844.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "160.1905391121886452765`10."}], ",",
+ RowBox[{"S", "\[Rule]", "184900.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "55518.5176245875545475942`10."}]}], ",",
+ RowBox[{"-", "38808.6522750402997428212`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "55518.5176245875545475942`10."}]}], ",",
+ RowBox[{"-", "38808.6522750402997428212`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "127150.093483898555405176`10."}]}], ",",
+ RowBox[{"-", "68881.931818241117468915`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "127150.093483898555405176`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "80743.2222169722234113716`10."}], ",",
+ RowBox[{"-", "68881.931818241117468915`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "61731.1681865628292395286`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "562.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "430.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "284.1535187481798955796`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "248.4575782433750384146`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04786401797254032620579258665335241206`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "209.1643930453983724864`10."}], ",",
+ RowBox[{"-", "0.06999368536180439003053741827675679905`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "143.2195718760897455124`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "248.0802552243988714694`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "217.1085819665306893005`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733251880313*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808282272258*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"2f9e8a2b-669a-480b-83f9-6edc23effea5"],
+In[266]:=",ExpressionUUID->"3ded7508-b71d-4231-90a0-8a8453c79292"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "268.1480496453901`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "198.99884792626727`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 268.1480496453901}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 198.99884792626727`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733261725111*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808292217374*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"8d87d43e-3533-4db1-b29c-30c6d8e1304c"],
+In[266]:=",ExpressionUUID->"0563a748-8b42-4219-be67-129934a0fdb9"],
Cell[BoxData[
InterpretationBox[
@@ -30958,12 +10422,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"282.`", ",", "0.`", ",", "0.`", ",", "282.`"}], "}"}]}]},
+ RowBox[{"217.`", ",", "0.`", ",", "0.`", ",", "217.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"282.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "282.`"}]}], "}"}]}]},
+ RowBox[{"217.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "217.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -30973,13 +10437,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"227.24628730516974`", ",", "0.`", ",",
- RowBox[{"-", "227.24628730516974`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"162.19294899407396`", ",", "0.`", ",",
+ RowBox[{"-", "162.19294899407396`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"210.16382368310866`", ",",
- RowBox[{"-", "10.`"}], ",", "209.92577922948098`", ",", "0.`"}],
+ RowBox[{"145.21716199420442`", ",",
+ RowBox[{"-", "10.`"}], ",", "144.8724409183852`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -30996,16 +10460,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {282., 0., 0., 282.}, $CellContext`p2 -> {
- 282., 0., 0., -282.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {227.24628730516974`,
- 0., -227.24628730516974`, 0.}, $CellContext`p5 -> {
- 210.16382368310866`, -10., 209.92577922948098`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {217., 0., 0., 217.}, $CellContext`p2 -> {
+ 217., 0., 0., -217.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {162.19294899407396`,
+ 0., -162.19294899407396`, 0.}, $CellContext`p5 -> {
+ 145.21716199420442`, -10., 144.8724409183852, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733261733573*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808292226453*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"655b555c-248a-4246-a3c7-1fb1582db9d1"],
+In[266]:=",ExpressionUUID->"4023ea12-1d39-4249-af13-0917a45be150"],
Cell[BoxData[
InterpretationBox[
@@ -31013,69 +10479,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "3.140230490930551470246488406628349780366432171653657302138312758`43.\
-444652426535924*^-14", ",", "0``58.69897000433602", ",",
- "0``57.34247320778216", ",", "0``57.24872089601666"}], "}"}]}],
+ RowBox[{
+ "-", "2.29215827621249047540673630992091825154865650036637863510627351`\
+42.421724877696704*^-15"}], ",", "0``58.69897000433602", ",",
+ "0``57.48893803411271", ",", "0``57.36251027048749"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 3.140230490930551470246488406628349780366432171653657302138312758`43.\
-444652426535924*^-14, 0``58.69897000433602, 0``57.34247320778216,
- 0``57.24872089601666}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-2.29215827621249047540673630992091825154865650036637863510627351`42.\
+421724877696704*^-15, 0``58.69897000433602, 0``57.48893803411271,
+ 0``57.36251027048749}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973326174156*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980829223326*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1c63b16d-6867-45dd-ad5f-82499c80b138"],
+In[266]:=",ExpressionUUID->"c9bc975e-e352-493d-8c05-f4d3dd0e6f3a"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797332617491083`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798082922397957`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"3a6b5923-1627-408b-b655-daf2780f736c"],
+In[266]:=",ExpressionUUID->"6747fd88-d5ed-47de-a52e-54bd2616efc7"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "227.2462873051697442861`10."}], ",",
- RowBox[{"S", "\[Rule]", "318096.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "162.1929489940739586018`10."}], ",",
+ RowBox[{"S", "\[Rule]", "188356.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "55771.697402610997802212`10."}]}], ",",
+ RowBox[{"-", "39315.0118310871862520567`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "55771.697402610997802212`10."}]}], ",",
+ RowBox[{"-", "39315.0118310871862520567`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "128166.9060401157357773627`10."}]}], ",",
+ RowBox[{"-", "70391.7398634280980331823`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "128166.9060401157357773627`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "81031.2068854534539598924`10."}], ",",
+ RowBox[{"-", "70391.7398634280980331823`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "62307.5033890305692361995`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "564.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "434.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "284.6598090448552485291`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "249.614709881109709484`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04763588367614665916205905850528455858`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "210.1638236831086598073`10."}], ",",
+ RowBox[{"-", "0.06902624085441870777528276711825249841`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "145.2171619942044117971`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "248.5199950099962270538`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "218.1112566401463899639`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733261756824*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808292246829*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"ff053286-2d3d-4232-8a01-959793911f5b"],
+In[266]:=",ExpressionUUID->"c943feb1-32ad-4a3c-8be8-dee0776e5552"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "269.1969964664311`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "201.1632420091324`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 269.1969964664311}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 201.1632420091324}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797332715889997`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798083022090893`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1f514df0-1053-4454-a0ee-b4de091a9a3e"],
+In[266]:=",ExpressionUUID->"f1382c0b-97e6-4fef-817b-c7dd634a0820"],
Cell[BoxData[
InterpretationBox[
@@ -31086,12 +10561,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"283.`", ",", "0.`", ",", "0.`", ",", "283.`"}], "}"}]}]},
+ RowBox[{"219.`", ",", "0.`", ",", "0.`", ",", "219.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"283.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "283.`"}]}], "}"}]}]},
+ RowBox[{"219.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "219.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -31101,13 +10576,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"228.24685127180615`", ",", "0.`", ",",
- RowBox[{"-", "228.24685127180615`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"164.19529332092134`", ",", "0.`", ",",
+ RowBox[{"-", "164.19529332092134`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"211.1632597164722`", ",",
- RowBox[{"-", "10.`"}], ",", "210.9263431961174`", ",", "0.`"}],
+ RowBox[{"147.21481766735707`", ",",
+ RowBox[{"-", "10.`"}], ",", "146.87478524523257`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -31124,16 +10599,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {283., 0., 0., 283.}, $CellContext`p2 -> {
- 283., 0., 0., -283.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {228.24685127180615`,
- 0., -228.24685127180615`, 0.}, $CellContext`p5 -> {
- 211.1632597164722, -10., 210.9263431961174, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {219., 0., 0., 219.}, $CellContext`p2 -> {
+ 219., 0., 0., -219.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {164.19529332092134`,
+ 0., -164.19529332092134`, 0.}, $CellContext`p5 -> {
+ 147.21481766735707`, -10., 146.87478524523257`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733271597417*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808302216928*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"6af6a127-70cc-45d0-9c62-728632e957db"],
+In[266]:=",ExpressionUUID->"046d9eef-0299-4987-b9d2-b85084d79fe7"],
Cell[BoxData[
InterpretationBox[
@@ -31141,70 +10618,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "2.106843084818273860810469793076737755729197122044870449596824396`\
-43.269785764220835*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.34056520930038", ",", "0``57.24718356881173"}], "}"}]}],
+ "2.748511498670481533197596784861970703255423666045712766546800532`43.\
+49659345205151*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.48360930048104", ",", "0``57.3585258894959"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.106843084818273860810469793076737755729197122044870449596824396`43.\
-269785764220835*^-14, 0``58.69897000433602, 0``57.34056520930038,
- 0``57.24718356881173}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 2.748511498670481533197596784861970703255423666045712766546800532`43.\
+49659345205151*^-14, 0``58.69897000433602, 0``57.48360930048104,
+ 0``57.3585258894959}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733271605218*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808302224038*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"178222e1-29b0-4633-8c9a-d90ac6473551"],
+In[266]:=",ExpressionUUID->"882ba43d-8a2f-42a5-90e5-a1b1bef3642c"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733271612812*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808302230568*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"9cd5265e-15c1-4ea5-b6f8-8bf085a77227"],
+In[266]:=",ExpressionUUID->"dd77aa24-7bcb-4272-b478-cc83ff90b769"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "228.2468512718061504074`10."}], ",",
- RowBox[{"S", "\[Rule]", "320356.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "164.1952933209213369992`10."}], ",",
+ RowBox[{"S", "\[Rule]", "191844.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "56024.8771806344410568297`10."}]}], ",",
+ RowBox[{"-", "39821.3713871340727612923`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "56024.8771806344410568297`10."}]}], ",",
+ RowBox[{"-", "39821.3713871340727612923`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "129187.7178198422811306045`10."}]}], ",",
+ RowBox[{"-", "71917.5384745635456056334`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "129187.7178198422811306045`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "81319.1900009534532726256`10."}], ",",
+ RowBox[{"-", "71917.5384745635456056334`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "62883.819723395228641419`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "566.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "438.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "285.1651977380014254124`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "250.7664645110969152163`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04740991498962313970454294890054068545`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "211.1632597164722012152`10."}], ",",
+ RowBox[{"-", "0.06808520593445151510435622218639190849`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "147.2148176673570631771`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "248.9589611970523617106`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "219.1093860401076561783`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733271620479*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808302239045*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"21094872-95e3-46e8-b00b-ccb3593f9004"],
+In[266]:=",ExpressionUUID->"92f20278-4e1f-4858-acfe-eb0af00d0fc5"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "270.2455985915493`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "203.32466063348417`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 270.2455985915493}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 203.32466063348417`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733281452272*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808312321311*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"57944f53-5899-445d-877b-4f563eb8c802"],
+In[266]:=",ExpressionUUID->"64cfc2b6-aa90-46e9-82d5-baea246dfd65"],
Cell[BoxData[
InterpretationBox[
@@ -31215,12 +10700,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"284.`", ",", "0.`", ",", "0.`", ",", "284.`"}], "}"}]}]},
+ RowBox[{"221.`", ",", "0.`", ",", "0.`", ",", "221.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"284.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "284.`"}]}], "}"}]}]},
+ RowBox[{"221.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "221.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -31230,13 +10715,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"229.24740991912674`", ",", "0.`", ",",
- RowBox[{"-", "229.24740991912674`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"166.19757473173743`", ",", "0.`", ",",
+ RowBox[{"-", "166.19757473173743`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"212.1627010691516`", ",",
- RowBox[{"-", "10.`"}], ",", "211.92690184343797`", ",", "0.`"}],
+ RowBox[{"149.21253625654097`", ",",
+ RowBox[{"-", "10.`"}], ",", "148.87706665604867`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -31253,16 +10738,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {284., 0., 0., 284.}, $CellContext`p2 -> {
- 284., 0., 0., -284.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {229.24740991912674`,
- 0., -229.24740991912674`, 0.}, $CellContext`p5 -> {
- 212.1627010691516, -10., 211.92690184343797`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {221., 0., 0., 221.}, $CellContext`p2 -> {
+ 221., 0., 0., -221.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {166.19757473173743`,
+ 0., -166.19757473173743`, 0.}, $CellContext`p5 -> {
+ 149.21253625654097`, -10., 148.87706665604867`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733281460801*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808312328258*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"68060c10-432f-4d59-96b6-20ba51bc4df7"],
+In[266]:=",ExpressionUUID->"9ce70bb2-fc79-46a9-b3ab-6ce0e2603951"],
Cell[BoxData[
InterpretationBox[
@@ -31270,70 +10757,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "1.373000400486445178827098416537169622971479249601469865827594076`\
-43.08229233253984*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.33866556670797", ",", "0``57.24565166428898"}], "}"}]}],
+ "3.741454754686821426246125256767138854575006894338775350599475847`43.\
+62658823266607*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.478345322362706", ",", "0``57.35457773065091"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.373000400486445178827098416537169622971479249601469865827594076`43.\
-08229233253984*^-14, 0``58.69897000433602, 0``57.33866556670797,
- 0``57.24565166428898}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 3.741454754686821426246125256767138854575006894338775350599475847`43.\
+62658823266607*^-14, 0``58.69897000433602, 0``57.478345322362706,
+ 0``57.35457773065091}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733281468708*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798083123377857`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"7bd8c471-3161-4288-af26-5c59aae178b8"],
+In[266]:=",ExpressionUUID->"e78548dd-2850-4a96-ac83-89ece1f2d110"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973328147579*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808312344791*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"2ad4dc03-cfdb-416f-a0ff-0c5558f3fe8a"],
+In[266]:=",ExpressionUUID->"f6f7c70f-f596-4494-afb1-c8717865025c"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "229.2474099191267384867`10."}], ",",
- RowBox[{"S", "\[Rule]", "322624.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "166.1975747317374327849`10."}], ",",
+ RowBox[{"S", "\[Rule]", "195364.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "56278.0569586578843114475`10."}]}], ",",
+ RowBox[{"-", "40327.7309431809592705278`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "56278.0569586578843114475`10."}]}], ",",
+ RowBox[{"-", "40327.7309431809592705278`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "130212.5288340639874604676`10."}]}], ",",
+ RowBox[{"-", "73459.3280314279452909432`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "130212.5288340639874604676`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "81607.1715854437493698197`10."}], ",",
+ RowBox[{"-", "73459.3280314279452909432`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "63460.1179492177979575029`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "568.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "442.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "285.6696896512539521575`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "251.9129173925342756509`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04718608120543162033848911024890264375`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "212.1627010691516204743`10."}], ",",
+ RowBox[{"-", "0.06716951256907179576137825361844365746`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "149.2125362565409773207`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "249.3971578263714210945`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "220.1030302770594070863`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733281483487*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808312351474*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"04d7a411-1413-4420-9bda-9b19e9f54535"],
+In[266]:=",ExpressionUUID->"40f491fe-6c8d-4a0f-ac38-55d02fecd33c"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "271.2938596491228`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "205.48318385650225`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 271.2938596491228}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 205.48318385650225`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733291343114*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798083225595303`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"ed0f06a7-8eae-44cc-9ff1-ff4f1468136c"],
+In[266]:=",ExpressionUUID->"455dba1b-a039-4263-b795-be6f3f63e6f7"],
Cell[BoxData[
InterpretationBox[
@@ -31344,12 +10839,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"285.`", ",", "0.`", ",", "0.`", ",", "285.`"}], "}"}]}]},
+ RowBox[{"223.`", ",", "0.`", ",", "0.`", ",", "223.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"285.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "285.`"}]}], "}"}]}]},
+ RowBox[{"223.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "223.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -31359,13 +10854,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"230.24796332203567`", ",", "0.`", ",",
- RowBox[{"-", "230.24796332203567`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"168.19979572575548`", ",", "0.`", ",",
+ RowBox[{"-", "168.19979572575548`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"213.1621476662427`", ",",
- RowBox[{"-", "10.`"}], ",", "212.9274552463469`", ",", "0.`"}],
+ RowBox[{"151.21031526252293`", ",",
+ RowBox[{"-", "10.`"}], ",", "150.87928765006671`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -31382,16 +10877,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {285., 0., 0., 285.}, $CellContext`p2 -> {
- 285., 0., 0., -285.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {230.24796332203567`,
- 0., -230.24796332203567`, 0.}, $CellContext`p5 -> {
- 213.1621476662427, -10., 212.9274552463469, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {223., 0., 0., 223.}, $CellContext`p2 -> {
+ 223., 0., 0., -223.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {168.19979572575548`,
+ 0., -168.19979572575548`, 0.}, $CellContext`p5 -> {
+ 151.21031526252293`, -10., 150.87928765006671`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733291351749*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808322566429*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"cb511f6b-9693-4a28-9a63-d5d0c49327d6"],
+In[266]:=",ExpressionUUID->"3eb0399e-db3d-42e2-b0a0-92c2e5069e57"],
Cell[BoxData[
InterpretationBox[
@@ -31399,69 +10896,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "9.71399158215401782909042014500412701318371795596477035166766863`42.\
-93049287145448*^-15", ",", "0``58.69897000433602", ",",
- "0``57.336774207038964", ",", "0``57.24412514432751"}], "}"}]}],
+ "2.493984003478425513111582470128669387920422430301144183019237087`43.\
+4465288091917*^-14", ",", "0``58.69897000433602", ",", "0``57.47314454031307",
+ ",", "0``57.35066514128786"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 9.71399158215401782909042014500412701318371795596477035166766863`42.\
-93049287145448*^-15, 0``58.69897000433602, 0``57.336774207038964,
- 0``57.24412514432751}],
+ 2.493984003478425513111582470128669387920422430301144183019237087`43.\
+4465288091917*^-14, 0``58.69897000433602, 0``57.47314454031307,
+ 0``57.35066514128786}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797332913592243`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798083225756493`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"bc04b2be-09c9-41c0-894c-ed85b31255a9"],
+In[266]:=",ExpressionUUID->"53f99260-084f-46ee-8a03-abf9d5db427f"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733291366209*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808322583207*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"863beb88-e3b6-44ff-be18-31ee8cbb52c7"],
+In[266]:=",ExpressionUUID->"18ec9fd9-8026-4865-a7e5-066190c9f4d8"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "230.2479633220356731726`10."}], ",",
- RowBox[{"S", "\[Rule]", "324900.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "168.1997957257554787702`10."}], ",",
+ RowBox[{"S", "\[Rule]", "198916.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "56531.2367366813275660653`10."}]}], ",",
+ RowBox[{"-", "40834.0904992278457797633`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "56531.2367366813275660653`10."}]}], ",",
+ RowBox[{"-", "40834.0904992278457797633`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "131241.3390935603337084103`10."}]}], ",",
+ RowBox[{"-", "75017.1088936869435315202`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "131241.3390935603337084103`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "81895.1516604833184076405`10."}], ",",
+ RowBox[{"-", "75017.1088936869435315202`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "64036.398785829571080245`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "570.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "446.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "286.1732895650523817552`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "253.0541420048871104434`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04696435219418030152714364954892959178`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "213.1621476662427092325`10."}], ",",
+ RowBox[{"-", "0.0662781496105213011369309159471006302`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "151.2103152625229188607`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "249.8345889040973829582`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "221.0922481965980796281`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733291373917*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808322589939*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"ef0c5fca-1b8e-419a-b41c-162b46c3f728"],
+In[266]:=",ExpressionUUID->"41b8d430-9e96-4e1a-88dd-611206fb3ff2"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "272.3417832167832`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "207.63888888888889`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 272.3417832167832}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 207.63888888888889`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973330124009*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808332582361*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"6b28b967-f853-4605-a353-4d28462e27b4"],
+In[266]:=",ExpressionUUID->"56d958aa-2e18-4f5f-9d62-15d77b4cedd6"],
Cell[BoxData[
InterpretationBox[
@@ -31472,12 +10978,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"286.`", ",", "0.`", ",", "0.`", ",", "286.`"}], "}"}]}]},
+ RowBox[{"225.`", ",", "0.`", ",", "0.`", ",", "225.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"286.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "286.`"}]}], "}"}]}]},
+ RowBox[{"225.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "225.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -31487,13 +10993,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"231.2485115540373`", ",", "0.`", ",",
- RowBox[{"-", "231.2485115540373`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"170.20195867156812`", ",", "0.`", ",",
+ RowBox[{"-", "170.20195867156812`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"214.161599434241`", ",",
- RowBox[{"-", "10.`"}], ",", "213.92800347834853`", ",", "0.`"}],
+ RowBox[{"153.20815231671028`", ",",
+ RowBox[{"-", "10.`"}], ",", "152.88145059587936`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -31510,16 +11016,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {286., 0., 0., 286.}, $CellContext`p2 -> {
- 286., 0., 0., -286.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {231.2485115540373,
- 0., -231.2485115540373, 0.}, $CellContext`p5 -> {214.161599434241, -10.,
- 213.92800347834853`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {225., 0., 0., 225.}, $CellContext`p2 -> {
+ 225., 0., 0., -225.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {170.20195867156812`,
+ 0., -170.20195867156812`, 0.}, $CellContext`p5 -> {
+ 153.20815231671028`, -10., 152.88145059587936`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797333012487097`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808332589814*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1faa1b42-f362-4d90-a956-9b55812e93ad"],
+In[266]:=",ExpressionUUID->"c7698683-bdfc-416e-942b-a7a11e5adf47"],
Cell[BoxData[
InterpretationBox[
@@ -31527,71 +11035,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "7.605434641095772389713588894622815242066269880788709461111500786`\
-43.82269801402874*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.3348910582804", ",", "0``57.242603971206975"}], "}"}]}],
+ "3.02284991097175327795790023519202466001211411128996309167036244`43.\
+52617407490191*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.468005450729876", ",", "0``57.346787486224656"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-7.605434641095772389713588894622815242066269880788709461111500786`43.\
-82269801402874*^-14, 0``58.69897000433602, 0``57.3348910582804,
- 0``57.242603971206975}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 3.02284991097175327795790023519202466001211411128996309167036244`43.\
+52617407490191*^-14, 0``58.69897000433602, 0``57.468005450729876,
+ 0``57.346787486224656}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733301256878*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798083325964212`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"97a12f4c-5bac-48c3-b2ed-7b5dad8da8f3"],
+In[266]:=",ExpressionUUID->"4060d096-dfe1-44f9-ac0e-6e92579ae7e3"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733301264529*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808332602923*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"23e28c09-0bee-4076-b77f-ada2c061b92d"],
+In[266]:=",ExpressionUUID->"80d5a0fe-cfab-4d8a-a66d-b55909f2eff7"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "231.2485115540372930809`10."}], ",",
- RowBox[{"S", "\[Rule]", "327184.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "170.2019586715681214173`10."}], ",",
+ RowBox[{"S", "\[Rule]", "202500.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "56784.416514704770820683`10."}]}], ",",
+ RowBox[{"-", "41340.4500552747322889989`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "56784.416514704770820683`10."}]}], ",",
+ RowBox[{"-", "41340.4500552747322889989`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "132274.1486089093316422804`10."}]}], ",",
+ RowBox[{"-", "76590.8814022056546377826`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "132274.1486089093316422804`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "82183.1302472282375017679`10."}], ",",
+ RowBox[{"-", "76590.8814022056546377826`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "64612.6629149607645910579`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "572.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "450.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "286.6760022171863577451`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "254.1902101084161828642`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04674469839107385441248548039596020242`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "214.1615994342410035558`10."}], ",",
+ RowBox[{"-", "0.06541015905476718750600558698856411314`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "153.2081523167102815023`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "250.2712584021211271541`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "222.0770974134629391099`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797333012723227`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798083326096687`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d4ee61d3-5ad0-42a6-9c47-270d2f8765ef"],
+In[266]:=",ExpressionUUID->"d9f5e193-c687-46ad-b963-92990dd8c830"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "273.38937282229966`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "209.79185022026434`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 273.38937282229966`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 209.79185022026434`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733311177177*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798083431947517`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"83515d63-2791-48d6-8ebb-3212213f1700"],
+In[266]:=",ExpressionUUID->"7b2be49a-0d72-4c7b-9f8c-b65b2cc08825"],
Cell[BoxData[
InterpretationBox[
@@ -31602,12 +11117,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"287.`", ",", "0.`", ",", "0.`", ",", "287.`"}], "}"}]}]},
+ RowBox[{"227.`", ",", "0.`", ",", "0.`", ",", "227.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"287.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "287.`"}]}], "}"}]}]},
+ RowBox[{"227.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "227.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -31617,13 +11132,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"232.2490546872689`", ",", "0.`", ",",
- RowBox[{"-", "232.2490546872689`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"172.20406581555335`", ",", "0.`", ",",
+ RowBox[{"-", "172.20406581555335`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"215.1610563010095`", ",",
- RowBox[{"-", "10.`"}], ",", "214.92854661158015`", ",", "0.`"}],
+ RowBox[{"155.20604517272503`", ",",
+ RowBox[{"-", "10.`"}], ",", "154.88355773986459`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -31640,16 +11155,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {287., 0., 0., 287.}, $CellContext`p2 -> {
- 287., 0., 0., -287.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {232.2490546872689,
- 0., -232.2490546872689, 0.}, $CellContext`p5 -> {
- 215.1610563010095, -10., 214.92854661158015`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {227., 0., 0., 227.}, $CellContext`p2 -> {
+ 227., 0., 0., -227.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {172.20406581555335`,
+ 0., -172.20406581555335`, 0.}, $CellContext`p5 -> {
+ 155.20604517272503`, -10., 154.88355773986459`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797333111908216`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808343207942*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"8df3ae74-355d-43bf-854d-89f7f74ead6f"],
+In[266]:=",ExpressionUUID->"dd1f46c7-af2c-43bc-8c48-b4721997d34c"],
Cell[BoxData[
InterpretationBox[
@@ -31657,70 +11174,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "2.633886520093981334361400907838123626295532969485453901626857427`43.\
-360655171569626*^-14", ",", "0``58.69897000433602", ",",
- "0``57.333016049355756", ",", "0``57.241088107602025"}], "}"}]}],
+ "1.142019599932291044406278863840285107780339237910529989218459097`43.\
+099587709039696*^-14", ",", "0``58.69897000433602", ",", "0``57.462926603209",
+ ",", "0``57.342944147142894"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 2.633886520093981334361400907838123626295532969485453901626857427`43.\
-360655171569626*^-14, 0``58.69897000433602, 0``57.333016049355756,
- 0``57.241088107602025}],
+ 1.142019599932291044406278863840285107780339237910529989218459097`43.\
+099587709039696*^-14, 0``58.69897000433602, 0``57.462926603209,
+ 0``57.342944147142894}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797333112028522`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808343216096*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"8978b8cf-6b6f-4457-bd9b-dff792e88707"],
+In[266]:=",ExpressionUUID->"3e5763e2-06d3-4a48-8553-0739a3d906c1"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733311213091*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808343228339*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"23c01cbe-e1f1-4e14-9c66-095a3e521c98"],
+In[266]:=",ExpressionUUID->"d697590d-958c-4150-8679-6cd5240980a0"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "232.2490546872689094471`10."}], ",",
- RowBox[{"S", "\[Rule]", "329476.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "172.2040658155533492391`10."}], ",",
+ RowBox[{"S", "\[Rule]", "206116.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "57037.5962927282140753008`10."}]}], ",",
+ RowBox[{"-", "41846.8096113216187982344`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "57037.5962927282140753008`10."}]}], ",",
+ RowBox[{"-", "41846.8096113216187982344`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "133310.9573904923540226264`10."}]}], ",",
+ RowBox[{"-", "78180.6458802612205545302`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "133310.9573904923540226264`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "82471.1073664411248616583`10."}], ",",
+ RowBox[{"-", "78180.6458802612205545302`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "65188.9109831656751605623`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "574.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "454.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "287.1778323033327808701`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "255.3211918019451732807`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04652709078274300272609049022831720185`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "215.1610563010094895829`10."}], ",",
+ RowBox[{"-", "0.06456463259189557134969491467485544092`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "155.2060451727250348723`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "250.7071702584816578852`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "223.0576343447530722226`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733311223414*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808343240799*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"409762b3-c56f-40cc-9c4c-d2abe755ef43"],
+In[266]:=",ExpressionUUID->"b11723ca-3586-4bc6-b52e-b5b9c0dabaee"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "274.43663194444446`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "211.94213973799125`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 274.43663194444446`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 211.94213973799125`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733321250959*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808353439617*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"7e741844-6f74-436b-a9a2-9fbca8f0dc56"],
+In[266]:=",ExpressionUUID->"031d565a-643f-44b9-a215-6336e1985d61"],
Cell[BoxData[
InterpretationBox[
@@ -31731,12 +11256,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"288.`", ",", "0.`", ",", "0.`", ",", "288.`"}], "}"}]}]},
+ RowBox[{"229.`", ",", "0.`", ",", "0.`", ",", "229.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"288.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "288.`"}]}], "}"}]}]},
+ RowBox[{"229.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "229.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -31746,13 +11271,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"233.2495927925319`", ",", "0.`", ",",
- RowBox[{"-", "233.2495927925319`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"174.20611928965673`", ",", "0.`", ",",
+ RowBox[{"-", "174.20611928965673`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"216.16051819574642`", ",",
- RowBox[{"-", "10.`"}], ",", "215.92908471684314`", ",", "0.`"}],
+ RowBox[{"157.20399169862165`", ",",
+ RowBox[{"-", "10.`"}], ",", "156.88561121396796`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -31769,16 +11294,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {288., 0., 0., 288.}, $CellContext`p2 -> {
- 288., 0., 0., -288.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {233.2495927925319,
- 0., -233.2495927925319, 0.}, $CellContext`p5 -> {
- 216.16051819574642`, -10., 215.92908471684314`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {229., 0., 0., 229.}, $CellContext`p2 -> {
+ 229., 0., 0., -229.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {174.20611928965673`,
+ 0., -174.20611928965673`, 0.}, $CellContext`p5 -> {
+ 157.20399169862165`, -10., 156.88561121396796`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733321259446*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980835344923*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"7996b165-cd8f-4c85-8aa8-0d79250b5b38"],
+In[266]:=",ExpressionUUID->"9a006a8e-837f-409e-84e5-308c84b5e5f7"],
Cell[BoxData[
InterpretationBox[
@@ -31786,71 +11313,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "6.07102235913307699367670277657038813801139139590387672126738799`\
-43.72180935326363*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.33114911010874", ",", "0``57.23957751657679"}], "}"}]}],
+ "1.191155698045093013823161792734547596792751351514535980892678209`43.\
+1140730589168*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.457906598055565", ",", "0``57.33913452199613"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-6.07102235913307699367670277657038813801139139590387672126738799`43.\
-72180935326363*^-14, 0``58.69897000433602, 0``57.33114911010874,
- 0``57.23957751657679}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 1.191155698045093013823161792734547596792751351514535980892678209`43.\
+1140730589168*^-14, 0``58.69897000433602, 0``57.457906598055565,
+ 0``57.33913452199613}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733321267191*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808353456091*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"0c2de0cd-5101-4ec1-9b59-b774fd6f719b"],
+In[266]:=",ExpressionUUID->"5bf91de8-eb71-46d4-89d5-86d197b6f39c"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733321274585*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808353462532*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"0f6f4125-26ac-4856-bfb9-ca70d57dce83"],
+In[266]:=",ExpressionUUID->"fd682804-3865-422f-8206-b80f34a1b282"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "233.2495927925318994767`10."}], ",",
- RowBox[{"S", "\[Rule]", "331776.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "174.2061192896567263233`10."}], ",",
+ RowBox[{"S", "\[Rule]", "209764.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "57290.7760707516573299186`10."}]}], ",",
+ RowBox[{"-", "42353.16916736850530747`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "57290.7760707516573299186`10."}]}], ",",
+ RowBox[{"-", "42353.16916736850530747`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "134351.7654484983740985626`10."}]}], ",",
+ RowBox[{"-", "79786.4026346627806560718`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "134351.7654484983740985626`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "82759.0830385000891032692`10."}], ",",
+ RowBox[{"-", "79786.4026346627806560718`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "65765.143604062568181995`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "576.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "458.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "287.6787844775837638329`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "256.4471555780304773665`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04631150089444143107652839911236366863`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "216.1605181957464125042`10."}], ",",
+ RowBox[{"-", "0.06374070842202049410023542676943825837`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "157.2039916986216582794`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "251.1423283777611435601`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "224.0339142421844252341`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733321281911*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980835346926*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"2d8de64a-cee6-4b38-8aa8-335029e0d3a6"],
+In[266]:=",ExpressionUUID->"e41e97f2-a869-401c-a1db-f661cdd6669d"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "275.48356401384086`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "214.08982683982683`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 275.48356401384086`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 214.08982683982683`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797333311904697`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808363459908*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"23e88e77-1626-4ba4-a82d-6e7ee25cc4c8"],
+In[266]:=",ExpressionUUID->"965556e9-7c1b-4fa1-beab-8d4fb537a809"],
Cell[BoxData[
InterpretationBox[
@@ -31861,12 +11395,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"289.`", ",", "0.`", ",", "0.`", ",", "289.`"}], "}"}]}]},
+ RowBox[{"231.`", ",", "0.`", ",", "0.`", ",", "231.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"289.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "289.`"}]}], "}"}]}]},
+ RowBox[{"231.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "231.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -31876,13 +11410,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"234.25012593932314`", ",", "0.`", ",",
- RowBox[{"-", "234.25012593932314`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"176.20812111858632`", ",", "0.`", ",",
+ RowBox[{"-", "176.20812111858632`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"217.15998504895518`", ",",
- RowBox[{"-", "10.`"}], ",", "216.92961786363438`", ",", "0.`"}],
+ RowBox[{"159.2019898696921`", ",",
+ RowBox[{"-", "10.`"}], ",", "158.88761304289756`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -31899,16 +11433,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {289., 0., 0., 289.}, $CellContext`p2 -> {
- 289., 0., 0., -289.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {234.25012593932314`,
- 0., -234.25012593932314`, 0.}, $CellContext`p5 -> {
- 217.15998504895518`, -10., 216.92961786363438`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {231., 0., 0., 231.}, $CellContext`p2 -> {
+ 231., 0., 0., -231.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {176.20812111858632`,
+ 0., -176.20812111858632`, 0.}, $CellContext`p5 -> {
+ 159.2019898696921, -10., 158.88761304289756`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733331203434*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808363473342*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c45b3461-8bb2-43fa-a813-1582aee6b8c4"],
+In[266]:=",ExpressionUUID->"45579c0a-58c0-4c92-a76f-9ca13d1e82b7"],
Cell[BoxData[
InterpretationBox[
@@ -31916,70 +11452,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "5.720066711996830642407283567435660072708456947227273652288473738`\
-43.69444325982795*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.329290171287454", ",", "0``57.23807216157947"}], "}"}]}],
+ "4.876332113313250436748738579227070935711554596587138814022282916`43.\
+722421305313496*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.45294408393926", ",", "0``57.33535802444388"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.720066711996830642407283567435660072708456947227273652288473738`43.\
-69444325982795*^-14, 0``58.69897000433602, 0``57.329290171287454,
- 0``57.23807216157947}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 4.876332113313250436748738579227070935711554596587138814022282916`43.\
+722421305313496*^-14, 0``58.69897000433602, 0``57.45294408393926,
+ 0``57.33535802444388}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733331215*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808363485869*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"37b0d445-169e-4e84-bf92-ddd9907361cb"],
+In[266]:=",ExpressionUUID->"fa02ee06-0755-4ff7-b9ba-dbbcf2627977"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733331227078*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808363492744*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"6469dbef-4462-434c-a592-4a9dbfd5a937"],
+In[266]:=",ExpressionUUID->"c903e3f6-503d-43c6-8cfa-d33576bb2a08"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
- RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "234.2501259393231407557`10."}], ",",
- RowBox[{"S", "\[Rule]", "334084.`10."}], ",",
+ RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
+ RowBox[{"kkT4", "\[Rule]", "176.2081211185863196533`10."}], ",",
+ RowBox[{"S", "\[Rule]", "213444.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "57543.9558487751005845364`10."}]}], ",",
+ RowBox[{"-", "42859.5287234153918167055`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "57543.9558487751005845364`10."}]}], ",",
+ RowBox[{"-", "42859.5287234153918167055`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "135396.5727929287753568133`10."}]}], ",",
+ RowBox[{"-", "81408.1519567868796798393`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "135396.5727929287753568133`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "83047.0572834077767260913`10."}], ",",
+ RowBox[{"-", "81408.1519567868796798393`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "66341.3613604045274666542`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "578.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "462.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "288.1788633529665664645`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "257.5681683756836584821`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04609790077759768784402190979274861945`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "217.1599850489551747347`10."}], ",",
+ RowBox[{"-", "0.06293756831314554850141721529998992105`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "159.2019898696921018011`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "251.5767366314747512309`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "225.0059912234033569861`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733331240346*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808363505481*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"b5995c65-17ce-42f8-b16c-e2e683cd2941"],
+In[266]:=",ExpressionUUID->"e546243e-9f19-456f-9040-a7191bb0a655"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "276.5301724137931`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "216.23497854077254`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 276.5301724137931}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 216.23497854077254`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733341187915*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808373398472*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"b65961bc-8b10-47c5-8077-ae9d94d87227"],
+In[266]:=",ExpressionUUID->"bfb25cbf-6d8a-428f-a622-f37a9841ec30"],
Cell[BoxData[
InterpretationBox[
@@ -31990,12 +11534,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"290.`", ",", "0.`", ",", "0.`", ",", "290.`"}], "}"}]}]},
+ RowBox[{"233.`", ",", "0.`", ",", "0.`", ",", "233.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"290.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "290.`"}]}], "}"}]}]},
+ RowBox[{"233.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "233.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -32005,13 +11549,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"235.25065419586443`", ",", "0.`", ",",
- RowBox[{"-", "235.25065419586443`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"178.2100732264715`", ",", "0.`", ",",
+ RowBox[{"-", "178.2100732264715`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"218.15945679241392`", ",",
- RowBox[{"-", "10.`"}], ",", "217.93014612017566`", ",", "0.`"}],
+ RowBox[{"161.20003776180687`", ",",
+ RowBox[{"-", "10.`"}], ",", "160.88956515078274`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -32028,16 +11572,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {290., 0., 0., 290.}, $CellContext`p2 -> {
- 290., 0., 0., -290.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {235.25065419586443`,
- 0., -235.25065419586443`, 0.}, $CellContext`p5 -> {
- 218.15945679241392`, -10., 217.93014612017566`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {233., 0., 0., 233.}, $CellContext`p2 -> {
+ 233., 0., 0., -233.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {178.2100732264715,
+ 0., -178.2100732264715, 0.}, $CellContext`p5 -> {
+ 161.20003776180687`, -10., 160.88956515078274`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733341200189*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798083734061203`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e2988ede-c54d-4206-90eb-eb4505543f7e"],
+In[266]:=",ExpressionUUID->"7034b823-c255-41a5-9029-a43429fcdbab"],
Cell[BoxData[
InterpretationBox[
@@ -32045,70 +11591,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "3.426623585426426816243667421403196156521471276926899151949872381`\
-43.4704084105777*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.32743916452893", ",", "0``57.23657200643707"}], "}"}]}],
+ "9.37445218816107126060117879585878256204390526007898505438719526`43.\
+0025299860607*^-15", ",", "0``58.69897000433602", ",", "0``57.44803775568438",
+ ",", "0``57.331614083309994"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.426623585426426816243667421403196156521471276926899151949872381`43.\
-4704084105777*^-14, 0``58.69897000433602, 0``57.32743916452893,
- 0``57.23657200643707}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 9.37445218816107126060117879585878256204390526007898505438719526`43.\
+0025299860607*^-15, 0``58.69897000433602, 0``57.44803775568438,
+ 0``57.331614083309994}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733341211499*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798083734130907`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"fcdd1e52-e71e-4b4f-b923-2d6f4bd75383"],
+In[266]:=",ExpressionUUID->"09ed33b4-be0f-4b01-a4cb-823febbf999d"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973334122267*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808373421664*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"7c0044c8-59ec-4cc5-9a35-709cbcf1c6ef"],
+In[266]:=",ExpressionUUID->"f56d8086-6dd6-4db8-9878-4d0c88b72831"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "235.2506541958644277202`10."}], ",",
- RowBox[{"S", "\[Rule]", "336400.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "178.2100732264715077235`10."}], ",",
+ RowBox[{"S", "\[Rule]", "217156.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "57797.1356267985438391541`10."}]}], ",",
+ RowBox[{"-", "43365.8882794622783259411`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "57797.1356267985438391541`10."}]}], ",",
+ RowBox[{"-", "43365.8882794622783259411`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "136445.3794336013680776887`10."}]}], ",",
+ RowBox[{"-", "83045.894123535722599172`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "136445.3794336013680776887`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "83335.0301207998387846924`10."}], ",",
+ RowBox[{"-", "83045.894123535722599172`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "66917.5648059959988279021`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "580.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "466.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "288.6780735019544895132`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "258.6842956307862126497`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04588626299771114868439965312912250832`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "218.1594567924139107047`10."}], ",",
+ RowBox[{"-", "0.06215443487977722066442105834003876223`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "161.200037761806874342`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "252.0103988584543314779`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "225.9739183023752416108`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733341233399*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808373428555*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"004aa918-fb00-4299-94fa-66046a7ecfbd"],
+In[266]:=",ExpressionUUID->"47842431-004e-45a3-96ef-b6816dec2184"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "277.5764604810997`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "218.37765957446808`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 277.5764604810997}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 218.37765957446808`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733351211061*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808383851713*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"deaeb059-1a27-4dc2-9138-bf5da443170a"],
+In[266]:=",ExpressionUUID->"9911c0d5-31b6-457d-9321-60d9eadb94a3"],
Cell[BoxData[
InterpretationBox[
@@ -32119,12 +11673,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"291.`", ",", "0.`", ",", "0.`", ",", "291.`"}], "}"}]}]},
+ RowBox[{"235.`", ",", "0.`", ",", "0.`", ",", "235.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"291.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "291.`"}]}], "}"}]}]},
+ RowBox[{"235.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "235.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -32134,13 +11688,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"236.25117762913175`", ",", "0.`", ",",
- RowBox[{"-", "236.25117762913175`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"180.2119774430319`", ",", "0.`", ",",
+ RowBox[{"-", "180.2119774430319`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"219.15893335914654`", ",",
- RowBox[{"-", "10.`"}], ",", "218.93066955344298`", ",", "0.`"}],
+ RowBox[{"163.19813354524644`", ",",
+ RowBox[{"-", "10.`"}], ",", "162.89146936734315`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -32157,16 +11711,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {291., 0., 0., 291.}, $CellContext`p2 -> {
- 291., 0., 0., -291.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {236.25117762913175`,
- 0., -236.25117762913175`, 0.}, $CellContext`p5 -> {
- 219.15893335914654`, -10., 218.93066955344298`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {235., 0., 0., 235.}, $CellContext`p2 -> {
+ 235., 0., 0., -235.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {180.2119774430319,
+ 0., -180.2119774430319, 0.}, $CellContext`p5 -> {
+ 163.19813354524644`, -10., 162.89146936734315`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733351219623*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808383866147*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"366af2c5-39fb-47f6-9b79-31d0e9b0b2ca"],
+In[266]:=",ExpressionUUID->"aab49015-37d2-4815-bc9e-121d8fc4fc1b"],
Cell[BoxData[
InterpretationBox[
@@ -32175,69 +11731,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "6.86896154620717753244724973003512880247714210127020548707972671`\
-43.77093810480375*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.32559602234388", ",", "0``57.23507701535011"}], "}"}]}],
+ "-", "2.913758809530085472281171704219943912216377225393075893504471841`\
+43.49132574598754*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.443186352184924", ",", "0``57.32790214206428"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-6.86896154620717753244724973003512880247714210127020548707972671`43.\
-77093810480375*^-14, 0``58.69897000433602, 0``57.32559602234388,
- 0``57.23507701535011}],
+{-2.913758809530085472281171704219943912216377225393075893504471841`43.\
+49132574598754*^-14, 0``58.69897000433602, 0``57.443186352184924,
+ 0``57.32790214206428}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797333512274647`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808383880066*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e3871e80-c1bf-4ca2-bd39-98093e7f2896"],
+In[266]:=",ExpressionUUID->"5c8dc4e5-18de-4f63-b71a-d99715773167"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733351235384*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808383887803*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"ac7d17f2-23eb-4ef7-82a0-75b9c5731db7"],
+In[266]:=",ExpressionUUID->"91aadabb-f6dc-47f2-8020-c3f79f1d4ea1"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "236.2511776291317460164`10."}], ",",
- RowBox[{"S", "\[Rule]", "338724.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "180.2119774430319125713`10."}], ",",
+ RowBox[{"S", "\[Rule]", "220900.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "58050.3154048219870937719`10."}]}], ",",
+ RowBox[{"-", "43872.2478355091648351766`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "58050.3154048219870937719`10."}]}], ",",
+ RowBox[{"-", "43872.2478355091648351766`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "137498.1853801546761815189`10."}]}], ",",
+ RowBox[{"-", "84699.6293982249989085176`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "137498.1853801546761815189`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "83623.0015699533566584673`10."}], ",",
+ RowBox[{"-", "84699.6293982249989085176`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "67493.7544674683369977884`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "582.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "470.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "289.1764194569698254851`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "259.7956013243263843652`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04567656062258060559309192746827804127`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "219.1589333591465579852`10."}], ",",
+ RowBox[{"-", "0.06139056906318768367351095823215175003`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "163.1981335452464309822`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "252.4433188652268533993`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "226.9377474188681227193`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733351243565*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798083839017467`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"a716ee1b-adb9-490a-b300-8bf77f21c68d"],
+In[266]:=",ExpressionUUID->"2b89223e-d4d6-415a-8ea8-98589bb766d6"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "278.6224315068493`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "220.51793248945145`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 278.6224315068493}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 220.51793248945145`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733361050346*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808394415492*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"7c53f10d-209e-4fc9-8310-e769df8051a8"],
+In[266]:=",ExpressionUUID->"012d991d-176f-4c32-8cb1-83e3015e2e05"],
Cell[BoxData[
InterpretationBox[
@@ -32248,12 +11813,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"292.`", ",", "0.`", ",", "0.`", ",", "292.`"}], "}"}]}]},
+ RowBox[{"237.`", ",", "0.`", ",", "0.`", ",", "237.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"292.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "292.`"}]}], "}"}]}]},
+ RowBox[{"237.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "237.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -32263,13 +11828,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"237.2516963048837`", ",", "0.`", ",",
- RowBox[{"-", "237.2516963048837`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"182.21383550929758`", ",", "0.`", ",",
+ RowBox[{"-", "182.21383550929758`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"220.15841468339465`", ",",
- RowBox[{"-", "10.`"}], ",", "219.93118822919493`", ",", "0.`"}],
+ RowBox[{"165.19627547898085`", ",",
+ RowBox[{"-", "10.`"}], ",", "164.89332743360882`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -32286,16 +11851,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {292., 0., 0., 292.}, $CellContext`p2 -> {
- 292., 0., 0., -292.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {237.2516963048837,
- 0., -237.2516963048837, 0.}, $CellContext`p5 -> {
- 220.15841468339465`, -10., 219.93118822919493`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {237., 0., 0., 237.}, $CellContext`p2 -> {
+ 237., 0., 0., -237.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {182.21383550929758`,
+ 0., -182.21383550929758`, 0.}, $CellContext`p5 -> {
+ 165.19627547898085`, -10., 164.89332743360882`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733361059636*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808394422927*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d70eb64f-938c-432e-b39f-25e98aa6137b"],
+In[266]:=",ExpressionUUID->"89f0618f-cae3-4a11-bde5-934886142605"],
Cell[BoxData[
InterpretationBox[
@@ -32303,71 +11870,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "1.561535926737404880439781651352524244253025320897442968344132093`\
-43.126109137851515*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.32376067810195", ",", "0``57.2335871528876"}], "}"}]}],
+ "5.15657383827816350231410922811442147750615241303502002300290684`43.\
+73555290356411*^-14", ",", "0``58.69897000433602", ",", "0``57.4383886544366",
+ ",", "0``57.32422165832591"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.561535926737404880439781651352524244253025320897442968344132093`43.\
-126109137851515*^-14, 0``58.69897000433602, 0``57.32376067810195,
- 0``57.2335871528876}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 5.15657383827816350231410922811442147750615241303502002300290684`43.\
+73555290356411*^-14, 0``58.69897000433602, 0``57.4383886544366,
+ 0``57.32422165832591}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733361067416*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808394429721*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"47fccf0b-aaa7-4ffd-b68d-7d256ebb57e3"],
+In[266]:=",ExpressionUUID->"a1115776-1b45-4716-b244-b39ad02c3cdd"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733361075128*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808394436274*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"2e1dbbf6-3c1a-4511-a2f5-2d5c3b4a1384"],
+In[266]:=",ExpressionUUID->"763f65c2-d11e-4fac-acdc-c304b25b3270"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "237.2516963048836942107`10."}], ",",
- RowBox[{"S", "\[Rule]", "341056.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "182.2138355092975814387`10."}], ",",
+ RowBox[{"S", "\[Rule]", "224676.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "58303.4951828454303483897`10."}]}], ",",
+ RowBox[{"-", "44378.6073915560513444122`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "58303.4951828454303483897`10."}]}], ",",
+ RowBox[{"-", "44378.6073915560513444122`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "138554.9906420520774190663`10."}]}], ",",
+ RowBox[{"-", "86369.3580314070536019244`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "138554.9906420520774190663`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "83910.9716497950224106175`10."}], ",",
+ RowBox[{"-", "86369.3580314070536019244`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "68069.9308459261928557373`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "584.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "474.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "289.6739057108786635532`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "260.902148028578317521`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04546876721085501288073827011857142845`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "220.158414683394662865`10."}], ",",
+ RowBox[{"-", "0.06064526779609266838049531510701530187`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "165.1962754789808428182`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "252.8755004263873608769`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "227.8975294670521935987`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733361083088*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808394443269*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"685f8a7e-3298-40c8-9800-2b6676b6ec07"],
+In[266]:=",ExpressionUUID->"71e1a5c0-c1f4-467c-a41d-9b345d838ef7"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "279.66808873720134`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "222.65585774058576`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 279.66808873720134`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 222.65585774058576`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733370949992*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808405105878*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1ff5a700-9268-443d-84ea-ef8b37ecc8c3"],
+In[266]:=",ExpressionUUID->"94211f21-767d-4a44-9a61-9344275ef92e"],
Cell[BoxData[
InterpretationBox[
@@ -32378,12 +11952,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"293.`", ",", "0.`", ",", "0.`", ",", "293.`"}], "}"}]}]},
+ RowBox[{"239.`", ",", "0.`", ",", "0.`", ",", "239.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"293.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "293.`"}]}], "}"}]}]},
+ RowBox[{"239.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "239.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -32393,13 +11967,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"238.2522102876888`", ",", "0.`", ",",
- RowBox[{"-", "238.2522102876888`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"184.21564908291813`", ",", "0.`", ",",
+ RowBox[{"-", "184.21564908291813`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"221.1579007005896`", ",",
- RowBox[{"-", "10.`"}], ",", "220.93170221200003`", ",", "0.`"}],
+ RowBox[{"167.19446190536027`", ",",
+ RowBox[{"-", "10.`"}], ",", "166.89514100722937`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -32416,16 +11990,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {293., 0., 0., 293.}, $CellContext`p2 -> {
- 293., 0., 0., -293.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {238.2522102876888,
- 0., -238.2522102876888, 0.}, $CellContext`p5 -> {
- 221.1579007005896, -10., 220.93170221200003`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {239., 0., 0., 239.}, $CellContext`p2 -> {
+ 239., 0., 0., -239.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {184.21564908291813`,
+ 0., -184.21564908291813`, 0.}, $CellContext`p5 -> {
+ 167.19446190536027`, -10., 166.89514100722937`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973337095885*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808405119047*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c334cdad-525b-4024-8207-114f5fc35d55"],
+In[266]:=",ExpressionUUID->"7b8a16a8-b34c-4ffc-926a-ee29f09123a8"],
Cell[BoxData[
InterpretationBox[
@@ -32433,70 +12009,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "3.897281616267572018601905490305382690303530199874379360751698865`43.\
-52183417721867*^-14", ",", "0``58.69897000433602", ",",
- "0``57.321933066017074", ",", "0``57.23210238398191"}], "}"}]}],
+ "4.543270904019189036616238295354401257052494750715939030279414482`43.\
+676910741217576*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.43364348367781", ",", "0``57.32057210338788"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 3.897281616267572018601905490305382690303530199874379360751698865`43.\
-52183417721867*^-14, 0``58.69897000433602, 0``57.321933066017074,
- 0``57.23210238398191}],
+ 4.543270904019189036616238295354401257052494750715939030279414482`43.\
+676910741217576*^-14, 0``58.69897000433602, 0``57.43364348367781,
+ 0``57.32057210338788}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733370966955*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798084051333933`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f0499bd0-158b-4dbe-8ea1-d6d673c038a3"],
+In[266]:=",ExpressionUUID->"57fd96d7-c55f-4aa6-8d1a-232548810b6c"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733370974574*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808405140656*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f949353e-4e4a-4775-a0e8-4bac9a647cbb"],
+In[266]:=",ExpressionUUID->"3ea11052-9614-4045-a6e0-9c602c42a54b"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "238.2522102876887970524`10."}], ",",
- RowBox[{"S", "\[Rule]", "343396.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "184.2156490829181336721`10."}], ",",
+ RowBox[{"S", "\[Rule]", "228484.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "58556.6749608688736030074`10."}]}], ",",
+ RowBox[{"-", "44884.9669476029378536477`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "58556.6749608688736030074`10."}]}], ",",
+ RowBox[{"-", "44884.9669476029378536477`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "139615.7952285856350727045`10."}]}], ",",
+ RowBox[{"-", "88055.0802616348678952818`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "139615.7952285856350727045`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "84198.9403789090001131314`10."}], ",",
+ RowBox[{"-", "88055.0802616348678952818`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "68646.0944184755963056643`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "586.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "478.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "290.170536717477572565`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "262.0039969513358326806`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04526285680089620305645477248159513166`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "221.1579007005896146115`10."}], ",",
+ RowBox[{"-", "0.0599178618361743207503253165784702644`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "167.1944619053602844517`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "253.306947284966420362`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "228.853314323236950809`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733370982527*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808405157515*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"3ae1a364-8368-430d-adbd-eee7b18c95a2"],
+In[266]:=",ExpressionUUID->"295f0629-a41a-41cd-a03a-bfadfa37f798"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "280.71343537414964`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "224.79149377593362`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 280.71343537414964`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 224.79149377593362`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733380780058*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808415671784*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"98c292f0-8547-49df-82dd-39309390d947"],
+In[266]:=",ExpressionUUID->"91adfea2-4a7c-4fbc-9d7c-cd671922d2b2"],
Cell[BoxData[
InterpretationBox[
@@ -32507,12 +12091,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"294.`", ",", "0.`", ",", "0.`", ",", "294.`"}], "}"}]}]},
+ RowBox[{"241.`", ",", "0.`", ",", "0.`", ",", "241.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"294.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "294.`"}]}], "}"}]}]},
+ RowBox[{"241.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "241.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -32522,13 +12106,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"239.25271964095242`", ",", "0.`", ",",
- RowBox[{"-", "239.25271964095242`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"186.2174197430955`", ",", "0.`", ",",
+ RowBox[{"-", "186.2174197430955`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"222.15739134732598`", ",",
- RowBox[{"-", "10.`"}], ",", "221.93221156526366`", ",", "0.`"}],
+ RowBox[{"169.19269124518289`", ",",
+ RowBox[{"-", "10.`"}], ",", "168.89691166740673`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -32545,16 +12129,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {294., 0., 0., 294.}, $CellContext`p2 -> {
- 294., 0., 0., -294.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {239.25271964095242`,
- 0., -239.25271964095242`, 0.}, $CellContext`p5 -> {
- 222.15739134732598`, -10., 221.93221156526366`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {241., 0., 0., 241.}, $CellContext`p2 -> {
+ 241., 0., 0., -241.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {186.2174197430955,
+ 0., -186.2174197430955, 0.}, $CellContext`p5 -> {
+ 169.19269124518289`, -10., 168.89691166740673`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797333807886477`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808415679037*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"6d451dba-1e5b-4753-ad90-2a905331bb2a"],
+In[266]:=",ExpressionUUID->"b23fc0db-0617-485d-983b-869ad3379e03"],
Cell[BoxData[
InterpretationBox[
@@ -32562,70 +12148,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.793095183240770700607313006626159450952183796179773095879765388`43.\
-18319602217736*^-14", ",", "0``58.69897000433602", ",",
- "0``57.32011312113334", ",", "0``57.23062267392386"}], "}"}]}],
+ "9.13731324916441142434302614909111993967877394033006889047153345`42.\
+976741479927796*^-15", ",", "0``58.69897000433602", ",",
+ "0``57.42894969963246", ",", "0``57.316952961761146"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.793095183240770700607313006626159450952183796179773095879765388`43.\
-18319602217736*^-14, 0``58.69897000433602, 0``57.32011312113334,
- 0``57.23062267392386}],
+ 9.13731324916441142434302614909111993967877394033006889047153345`42.\
+976741479927796*^-15, 0``58.69897000433602, 0``57.42894969963246,
+ 0``57.316952961761146}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733380796619*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798084156856833`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"0174a1ab-349f-47ea-82b7-7d16d482fd61"],
+In[266]:=",ExpressionUUID->"8cb3dbc6-5611-4f14-b56f-1928d07989aa"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973338080431*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808415692227*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"2c1cb5ba-9f31-4922-8402-f9faa6a65463"],
+In[266]:=",ExpressionUUID->"1b5ca2be-2214-4c51-854c-8c17755a99f7"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "239.252719640952420832`10."}], ",",
- RowBox[{"S", "\[Rule]", "345744.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "186.217419743095490503`10."}], ",",
+ RowBox[{"S", "\[Rule]", "232324.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "58809.8547388923168576252`10."}]}], ",",
+ RowBox[{"-", "45391.3265036498243628833`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "58809.8547388923168576252`10."}]}], ",",
+ RowBox[{"-", "45391.3265036498243628833`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "140680.5991488800234492373`10."}]}], ",",
+ RowBox[{"-", "89756.7963161720264224641`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "140680.5991488800234492373`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "84486.9077755446726467382`10."}], ",",
+ RowBox[{"-", "89756.7963161720264224641`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "69222.2456396436984787615`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "588.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "482.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "290.6663168919726629954`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "263.1012079783057523596`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04505880389994355590704707095755435509`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "222.15739134732596979`10."}], ",",
+ RowBox[{"-", "0.05920771375436448395736437821127379302`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "169.1926912451828913254`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "253.7376631527924464743`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "229.8051508727686298559`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733380812114*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808415699106*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"8a67a529-905e-497a-86aa-03e148ab55a7"],
+In[266]:=",ExpressionUUID->"f636dd1e-b9f9-42da-b580-69f5c7d8e0c2"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "281.75847457627117`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "226.92489711934158`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 281.75847457627117`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 226.92489711934158`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733390625636*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808425596332*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"15a9fabd-215b-4049-97e4-9224d7ad4530"],
+In[266]:=",ExpressionUUID->"7b44a048-197c-40ed-bb4a-a62f423b399b"],
Cell[BoxData[
InterpretationBox[
@@ -32636,12 +12230,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"295.`", ",", "0.`", ",", "0.`", ",", "295.`"}], "}"}]}]},
+ RowBox[{"243.`", ",", "0.`", ",", "0.`", ",", "243.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"295.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "295.`"}]}], "}"}]}]},
+ RowBox[{"243.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "243.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -32651,13 +12245,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"240.25322442694286`", ",", "0.`", ",",
- RowBox[{"-", "240.25322442694286`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"188.21914899517012`", ",", "0.`", ",",
+ RowBox[{"-", "188.21914899517012`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"223.1568865613354`", ",",
- RowBox[{"-", "10.`"}], ",", "222.9327163512541`", ",", "0.`"}],
+ RowBox[{"171.19096199310823`", ",",
+ RowBox[{"-", "10.`"}], ",", "170.89864091948135`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -32674,16 +12268,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {295., 0., 0., 295.}, $CellContext`p2 -> {
- 295., 0., 0., -295.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {240.25322442694286`,
- 0., -240.25322442694286`, 0.}, $CellContext`p5 -> {
- 223.1568865613354, -10., 222.9327163512541, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {243., 0., 0., 243.}, $CellContext`p2 -> {
+ 243., 0., 0., -243.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {188.21914899517012`,
+ 0., -188.21914899517012`, 0.}, $CellContext`p5 -> {
+ 171.19096199310823`, -10., 170.89864091948135`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733390634326*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808425605216*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"0ac74549-65ca-4656-bc38-cd38f97a0040"],
+In[266]:=",ExpressionUUID->"272cc8d4-2562-4db3-926d-87b8bf9ea458"],
Cell[BoxData[
InterpretationBox[
@@ -32692,69 +12288,77 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.1409643732876621471598784630089027144651248928891282713496134874`\
-43.98539007644063*^-13"}], ",", "0``58.69897000433602", ",",
- "0``57.31830077931102", ",", "0``57.22914798835786"}], "}"}]}],
+ "-", "3.770442963108012688780747454613935300058952908069863827435315881`\
+43.588726110513626*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.42430619884796", ",", "0``57.313363730737706"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.1409643732876621471598784630089027144651248928891282713496134874`43.\
-98539007644063*^-13, 0``58.69897000433602, 0``57.31830077931102,
- 0``57.22914798835786}],
+{-3.770442963108012688780747454613935300058952908069863827435315881`43.\
+588726110513626*^-14, 0``58.69897000433602, 0``57.42430619884796,
+ 0``57.313363730737706}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797333906422567`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808425612288*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"7178167b-8388-438f-9d21-eac8e74e37ec"],
+In[266]:=",ExpressionUUID->"cb5bd963-3311-4d09-b3a7-0a220377f362"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733390650813*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808425618795*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"3a072c99-0abb-4ff1-8454-9a02cfeca9ff"],
+In[266]:=",ExpressionUUID->"cb682ce7-6941-48db-82ea-c9a3b0f89747"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "240.2532244269428645111`10."}], ",",
- RowBox[{"S", "\[Rule]", "348100.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "188.2191489951701157679`10."}], ",",
+ RowBox[{"S", "\[Rule]", "236196.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "59063.034516915760112243`10."}]}], ",",
+ RowBox[{"-", "45897.6860596967108721188`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "59063.034516915760112243`10."}]}], ",",
+ RowBox[{"-", "45897.6860596967108721188`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "141749.402411896290061577`10."}]}], ",",
+ RowBox[{"-", "91474.506411652676263202`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "141749.402411896290061577`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "84774.8738576241512704514`10."}], ",",
+ RowBox[{"-", "91474.506411652676263202`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "69798.3849426987871799568`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "590.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "486.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "291.1612506114509586983`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "264.1938397137578739497`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0448565834735711985888757108094605926`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "223.1568865613353940836`10."}], ",",
+ RowBox[{"-", "0.05851421606513235001538574269160702111`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "171.1909619931082192188`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "254.1676517108487983032`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "230.7530870361101475036`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733390658861*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808425626463*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"b8c1f126-f24a-4d4b-a642-96f0c53f4b4b"],
+In[266]:=",ExpressionUUID->"971a3235-2c0b-4f9d-a891-b0bda4d6ca99"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "282.8032094594595`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "229.0561224489796`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 282.8032094594595}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 229.0561224489796}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733400532921*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808435787848*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"dc95de3f-aea7-4f1c-973a-d0526dbeae50"],
+In[266]:=",ExpressionUUID->"11fb7afa-fedb-4776-b12d-afb57acf0712"],
Cell[BoxData[
InterpretationBox[
@@ -32765,12 +12369,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"296.`", ",", "0.`", ",", "0.`", ",", "296.`"}], "}"}]}]},
+ RowBox[{"245.`", ",", "0.`", ",", "0.`", ",", "245.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"296.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "296.`"}]}], "}"}]}]},
+ RowBox[{"245.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "245.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -32780,13 +12384,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"241.2537247068169`", ",", "0.`", ",",
- RowBox[{"-", "241.2537247068169`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"190.2208382748894`", ",", "0.`", ",",
+ RowBox[{"-", "190.2208382748894`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"224.15638628146147`", ",",
- RowBox[{"-", "10.`"}], ",", "223.93321663112815`", ",", "0.`"}],
+ RowBox[{"173.18927271338893`", ",",
+ RowBox[{"-", "10.`"}], ",", "172.90033019920062`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -32803,16 +12407,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {296., 0., 0., 296.}, $CellContext`p2 -> {
- 296., 0., 0., -296.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {241.2537247068169,
- 0., -241.2537247068169, 0.}, $CellContext`p5 -> {
- 224.15638628146147`, -10., 223.93321663112815`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {245., 0., 0., 245.}, $CellContext`p2 -> {
+ 245., 0., 0., -245.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {190.2208382748894,
+ 0., -190.2208382748894, 0.}, $CellContext`p5 -> {
+ 173.18927271338893`, -10., 172.90033019920062`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733400541144*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808435795267*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"01d9f810-f0aa-40cb-a7bc-4158f4d96e63"],
+In[266]:=",ExpressionUUID->"92a412ab-f0b2-4861-a2c9-eb4b2d9b9fcf"],
Cell[BoxData[
InterpretationBox[
@@ -32821,69 +12427,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.33255785085846685955195555457429131195693789278879603756073372`\
-42.05133436991825*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.31649597721291", ",", "0``57.22767829327708"}], "}"}]}],
+ "-", "5.188151436885577835073268085849232706652672178769581553956471316`\
+43.72378656852061*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.419711913122235", ",", "0``57.309803919971486"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.33255785085846685955195555457429131195693789278879603756073372`42.\
-05133436991825*^-15, 0``58.69897000433602, 0``57.31649597721291,
- 0``57.22767829327708}],
+{-5.188151436885577835073268085849232706652672178769581553956471316`43.\
+72378656852061*^-14, 0``58.69897000433602, 0``57.419711913122235,
+ 0``57.309803919971486}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733400549047*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798084358021*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"a8148218-abcc-4642-9a14-89165f9af6b4"],
+In[266]:=",ExpressionUUID->"66ca4b38-4d96-463f-ab55-485494f33654"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733400556807*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808435808938*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1cd49e5b-3c43-4e5d-9652-4babcb147586"],
+In[266]:=",ExpressionUUID->"463d25a0-f1d6-4965-8ee6-4abd395a4855"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "241.2537247068169108388`10."}], ",",
- RowBox[{"S", "\[Rule]", "350464.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "190.2208382748893882308`10."}], ",",
+ RowBox[{"S", "\[Rule]", "240100.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "59316.2142949392033668608`10."}]}], ",",
+ RowBox[{"-", "46404.0456157435973813543`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "59316.2142949392033668608`10."}]}], ",",
+ RowBox[{"-", "46404.0456157435973813543`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "142822.2050264356112165842`10."}]}], ",",
+ RowBox[{"-", "93208.2107546958002330939`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "142822.2050264356112165842`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "85062.8386427496297642927`10."}], ",",
+ RowBox[{"-", "93208.2107546958002330939`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "70374.51274087881319954`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "592.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "490.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "291.6553422153443596413`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "265.2819495195231205302`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04465617093542850736185722969968356022`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "224.1563862814614605197`10."}], ",",
+ RowBox[{"-", "0.05783678948720847408116609260368431049`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "173.1892727133889325788`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "254.5969166096258453115`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "231.6971697941266792025`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733400564714*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808435815713*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"ceb928d7-f331-4251-a0bb-327aab8083b4"],
+In[266]:=",ExpressionUUID->"49092413-749e-406a-b55a-64517d877fb5"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "283.8476430976431`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "231.18522267206478`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 283.8476430976431}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 231.18522267206478`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733410414171*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798084467307796`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"23368991-4c64-47f9-8a04-ba86d0e7ae69"],
+In[266]:=",ExpressionUUID->"f978c92f-a79c-4829-acfe-28174a21c569"],
Cell[BoxData[
InterpretationBox[
@@ -32894,12 +12509,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"297.`", ",", "0.`", ",", "0.`", ",", "297.`"}], "}"}]}]},
+ RowBox[{"247.`", ",", "0.`", ",", "0.`", ",", "247.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"297.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "297.`"}]}], "}"}]}]},
+ RowBox[{"247.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "247.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -32909,13 +12524,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"242.25422054064396`", ",", "0.`", ",",
- RowBox[{"-", "242.25422054064396`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"192.22248895238334`", ",", "0.`", ",",
+ RowBox[{"-", "192.22248895238334`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"225.1558904476344`", ",",
- RowBox[{"-", "10.`"}], ",", "224.9337124649552`", ",", "0.`"}],
+ RowBox[{"175.1876220358951`", ",",
+ RowBox[{"-", "10.`"}], ",", "174.90198087669458`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -32932,16 +12547,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {297., 0., 0., 297.}, $CellContext`p2 -> {
- 297., 0., 0., -297.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {242.25422054064396`,
- 0., -242.25422054064396`, 0.}, $CellContext`p5 -> {
- 225.1558904476344, -10., 224.9337124649552, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {247., 0., 0., 247.}, $CellContext`p2 -> {
+ 247., 0., 0., -247.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {192.22248895238334`,
+ 0., -192.22248895238334`, 0.}, $CellContext`p5 -> {
+ 175.1876220358951, -10., 174.90198087669458`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733410422525*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808446738365*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"5c825c44-83ae-4039-8ed2-39b78391de3c"],
+In[266]:=",ExpressionUUID->"e042dc5d-80b6-41ee-bb38-63c3ed048738"],
Cell[BoxData[
InterpretationBox[
@@ -32949,70 +12566,77 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "3.581524577096960532026536572737377361246662317356462134299319664`\
-43.479251495070315*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.31469865229105", ",", "0``57.2262135550188"}], "}"}]}],
+ "5.705283606916079035437703768412344860586779234832152982420417038`43.\
+76152029327393*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.41516580801406", ",", "0``57.30627305107635"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.581524577096960532026536572737377361246662317356462134299319664`43.\
-479251495070315*^-14, 0``58.69897000433602, 0``57.31469865229105,
- 0``57.2262135550188}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 5.705283606916079035437703768412344860586779234832152982420417038`43.\
+76152029327393*^-14, 0``58.69897000433602, 0``57.41516580801406,
+ 0``57.30627305107635}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733410430245*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808446745552*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"af5dee69-6cff-419a-b72a-717a6a2d8ee6"],
+In[266]:=",ExpressionUUID->"9338fb08-882e-4bc8-9d69-900989f6e66c"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733410438451*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808446752447*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"b2d6a658-03a7-4383-b9d2-e1489508b1d9"],
+In[266]:=",ExpressionUUID->"97265acc-8c9b-4c51-b3d2-54e02ec5fe35"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "242.2542205406439563831`10."}], ",",
- RowBox[{"S", "\[Rule]", "352836.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "192.2224889523833439853`10."}], ",",
+ RowBox[{"S", "\[Rule]", "244036.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "59569.3940729626466214785`10."}]}], ",",
+ RowBox[{"-", "46910.4051717904838905899`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "59569.3940729626466214785`10."}]}], ",",
+ RowBox[{"-", "46910.4051717904838905899`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "143899.0070011425100915403`10."}]}], ",",
+ RowBox[{"-", "94957.9095424773719287259`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "143899.0070011425100915403`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "85350.8021482103295540648`10."}], ",",
+ RowBox[{"-", "94957.9095424773719287259`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "70950.6294285356916487303`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "594.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "494.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "292.148596005885897795`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "266.3655935524250317562`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04445754213725524317997576378636415509`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "225.1558904476343804928`10."}], ",",
+ RowBox[{"-", "0.05717488132424282413845882743223460801`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "175.1876220358950857587`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "255.0254614694677003266`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "232.6374452125996215525`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797334104464197`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808446759595*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e36ea031-d423-409d-b969-2e544f57dab7"],
+In[266]:=",ExpressionUUID->"de630bc1-f19c-436c-adaf-50040cb7b595"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "284.8917785234899`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "233.3122489959839`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 284.8917785234899}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 233.3122489959839}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733420337407*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808457533979*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"fb0d8040-1097-428f-acea-6531fe344c1e"],
+In[266]:=",ExpressionUUID->"bcc0c3c5-5c14-4ef5-8f14-63ccc4ea9098"],
Cell[BoxData[
InterpretationBox[
@@ -33023,12 +12647,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"298.`", ",", "0.`", ",", "0.`", ",", "298.`"}], "}"}]}]},
+ RowBox[{"249.`", ",", "0.`", ",", "0.`", ",", "249.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"298.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "298.`"}]}], "}"}]}]},
+ RowBox[{"249.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "249.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -33038,13 +12662,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"243.2547119874307`", ",", "0.`", ",",
- RowBox[{"-", "243.2547119874307`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"194.22410233587075`", ",", "0.`", ",",
+ RowBox[{"-", "194.22410233587075`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"226.1553990008476`", ",",
- RowBox[{"-", "10.`"}], ",", "225.93420391174195`", ",", "0.`"}],
+ RowBox[{"177.18600865240768`", ",",
+ RowBox[{"-", "10.`"}], ",", "176.903594260182`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -33061,16 +12685,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {298., 0., 0., 298.}, $CellContext`p2 -> {
- 298., 0., 0., -298.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {243.2547119874307,
- 0., -243.2547119874307, 0.}, $CellContext`p5 -> {
- 226.1553990008476, -10., 225.93420391174195`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {249., 0., 0., 249.}, $CellContext`p2 -> {
+ 249., 0., 0., -249.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {194.22410233587075`,
+ 0., -194.22410233587075`, 0.}, $CellContext`p5 -> {
+ 177.18600865240768`, -10., 176.903594260182, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733420345862*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980845754146*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1a1c1c5e-fe88-47aa-8e20-12b6e5ea3a28"],
+In[266]:=",ExpressionUUID->"5976bef1-bcb5-401c-afc5-1071b75c8144"],
Cell[BoxData[
InterpretationBox[
@@ -33078,70 +12704,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "4.946945996517068772442457187038093910955606995106762626879433244`\
-43.61806091399722*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.31290874277355", ",", "0``57.22475374025976"}], "}"}]}],
+ "6.606878481900183485088853539990340592370723704137901224984354142`43.\
+821736980625346*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.41066688143161", ",", "0``57.30277065724028"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.946945996517068772442457187038093910955606995106762626879433244`43.\
-61806091399722*^-14, 0``58.69897000433602, 0``57.31290874277355,
- 0``57.22475374025976}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 6.606878481900183485088853539990340592370723704137901224984354142`43.\
+821736980625346*^-14, 0``58.69897000433602, 0``57.41066688143161,
+ 0``57.30277065724028}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733420354681*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808457548205*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"332d53c1-fd6d-41d6-9f14-b2037abf9557"],
+In[266]:=",ExpressionUUID->"81bd355b-a941-491a-b98a-c57025620757"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733420362659*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808457555025*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"056b6dc1-4833-4e0d-bcdb-9a55e5de6128"],
+In[266]:=",ExpressionUUID->"c9e30685-63b8-4b3c-91fd-3b5c6eb63eaf"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "243.2547119874307099963`10."}], ",",
- RowBox[{"S", "\[Rule]", "355216.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "194.2241023358707536772`10."}], ",",
+ RowBox[{"S", "\[Rule]", "248004.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "59822.5738509860898760963`10."}]}], ",",
+ RowBox[{"-", "47416.7647278373703998254`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "59822.5738509860898760963`10."}]}], ",",
+ RowBox[{"-", "47416.7647278373703998254`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "144979.8083445087031577714`10."}]}], ",",
+ RowBox[{"-", "96723.6029632636353312591`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "144979.8083445087031577714`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "85638.7643909896084433063`10."}], ",",
+ RowBox[{"-", "96723.6029632636353312591`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "71526.7353822019880492406`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "596.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "498.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "292.641016248559402865`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "267.4448268002243262857`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04426067335916239267187753505110523577`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "226.1553990008476132254`10."}], ",",
+ RowBox[{"-", "0.05652796395585067859422381859704034102`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "177.1860086524076850827`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "255.4532898809145475677`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "233.5739584659916009569`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733420371162*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808457561948*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"30a1ffce-6185-4229-b841-bb286231957d"],
+In[266]:=",ExpressionUUID->"1f6b7ae1-79a1-471d-b9cf-23f1f3c09de7"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "285.935618729097`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "235.43725099601593`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 285.935618729097}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 235.43725099601593`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797334302597837`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808469276465*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"a12b9caf-a59c-439a-af70-ed3ad915fb55"],
+In[266]:=",ExpressionUUID->"aec632f2-05d7-473c-a2f2-38ce8eaec065"],
Cell[BoxData[
InterpretationBox[
@@ -33152,12 +12786,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"299.`", ",", "0.`", ",", "0.`", ",", "299.`"}], "}"}]}]},
+ RowBox[{"251.`", ",", "0.`", ",", "0.`", ",", "251.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"299.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "299.`"}]}], "}"}]}]},
+ RowBox[{"251.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "251.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -33167,13 +12801,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"244.25519910514424`", ",", "0.`", ",",
- RowBox[{"-", "244.25519910514424`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"196.22567967511728`", ",", "0.`", ",",
+ RowBox[{"-", "196.22567967511728`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"227.1549118831341`", ",",
- RowBox[{"-", "10.`"}], ",", "226.93469102945548`", ",", "0.`"}],
+ RowBox[{"179.18443131316113`", ",",
+ RowBox[{"-", "10.`"}], ",", "178.9051715994285`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -33190,16 +12824,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {299., 0., 0., 299.}, $CellContext`p2 -> {
- 299., 0., 0., -299.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {244.25519910514424`,
- 0., -244.25519910514424`, 0.}, $CellContext`p5 -> {
- 227.1549118831341, -10., 226.93469102945548`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {251., 0., 0., 251.}, $CellContext`p2 -> {
+ 251., 0., 0., -251.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {196.22567967511728`,
+ 0., -196.22567967511728`, 0.}, $CellContext`p5 -> {
+ 179.18443131316113`, -10., 178.9051715994285, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797334302685013`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798084692837467`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e207eb95-c858-4e2e-8378-80ffdf6cd66a"],
+In[266]:=",ExpressionUUID->"3fcb3ab0-3a51-48eb-8f7c-9f33753b4070"],
Cell[BoxData[
InterpretationBox[
@@ -33207,70 +12843,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "3.127473418580670082150569434285760362352768459303893932789742291`\
-43.41746244751793*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.31112618765188", ",", "0``57.223298816011585"}], "}"}]}],
+ "3.608502185279077788674681416240163593394098712402634752621010813`43.\
+55559325983002*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.40621416229406", ",", "0``57.29929628285498"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-3.127473418580670082150569434285760362352768459303893932789742291`43.\
-41746244751793*^-14, 0``58.69897000433602, 0``57.31112618765188,
- 0``57.223298816011585}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 3.608502185279077788674681416240163593394098712402634752621010813`43.\
+55559325983002*^-14, 0``58.69897000433602, 0``57.40621416229406,
+ 0``57.29929628285498}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797334302771893`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808469290558*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"9725b14d-6a9b-414f-bb2e-14580a6bff06"],
+In[266]:=",ExpressionUUID->"d3043ddf-720c-4cbe-b199-ac6d3496c696"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733430287204*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798084692988863`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"5686d765-a23f-4772-a940-9b9f84ff8f7e"],
+In[266]:=",ExpressionUUID->"729cdfec-91c5-411f-bef2-9cf5f15d1ea3"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "244.2551991051442428216`10."}], ",",
- RowBox[{"S", "\[Rule]", "357604.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "196.2256796751172771565`10."}], ",",
+ RowBox[{"S", "\[Rule]", "252004.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "60075.7536290095331307141`10."}]}], ",",
+ RowBox[{"-", "47923.124283884256909061`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "60075.7536290095331307141`10."}]}], ",",
+ RowBox[{"-", "47923.124283884256909061`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "146064.6090648762572072883`10."}]}], ",",
+ RowBox[{"-", "98505.2911969088731325428`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "146064.6090648762572072883`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "85926.7253877715948844237`10."}], ",",
+ RowBox[{"-", "98505.2911969088731325428`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "72102.8309615862471514593`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "598.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "502.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "293.1326071725416133161`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "268.5197031161516965814`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04406554130017093232876537899277563607`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "227.1549118831340985948`10."}], ",",
+ RowBox[{"-", "0.05589553343035917057531302232086538114`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "179.1844313131611316197`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "255.8804054050396869874`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "234.5067538604853824022`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733430299067*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808469306047*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d4123eaf-f143-42b5-bf32-6d096b2d2aef"],
+In[266]:=",ExpressionUUID->"3a95063b-51ca-4d78-ba45-e2e5e902e1d7"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "286.9791666666667`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "237.56027667984188`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 286.9791666666667}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 237.56027667984188`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797334400887403`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808480443034*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"a7216ebc-1d57-4803-b216-47305ec4cad3"],
+In[266]:=",ExpressionUUID->"5fac5ea3-98ef-41b8-84d7-5a6310d19603"],
Cell[BoxData[
InterpretationBox[
@@ -33281,12 +12925,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"300.`", ",", "0.`", ",", "0.`", ",", "300.`"}], "}"}]}]},
+ RowBox[{"253.`", ",", "0.`", ",", "0.`", ",", "253.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"300.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "300.`"}]}], "}"}]}]},
+ RowBox[{"253.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "253.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -33296,13 +12940,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"245.25568195073484`", ",", "0.`", ",",
- RowBox[{"-", "245.25568195073484`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"198.227222164664`", ",", "0.`", ",",
+ RowBox[{"-", "198.227222164664`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"228.1544290375435`", ",",
- RowBox[{"-", "10.`"}], ",", "227.93517387504608`", ",", "0.`"}],
+ RowBox[{"181.18288882361443`", ",",
+ RowBox[{"-", "10.`"}], ",", "180.90671408897524`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -33319,16 +12963,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {300., 0., 0., 300.}, $CellContext`p2 -> {
- 300., 0., 0., -300.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {245.25568195073484`,
- 0., -245.25568195073484`, 0.}, $CellContext`p5 -> {
- 228.1544290375435, -10., 227.93517387504608`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {253., 0., 0., 253.}, $CellContext`p2 -> {
+ 253., 0., 0., -253.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {198.227222164664,
+ 0., -198.227222164664, 0.}, $CellContext`p5 -> {
+ 181.18288882361443`, -10., 180.90671408897524`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733440097142*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808480456985*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"a81efc81-9757-4269-a80e-d8b7e83cecc1"],
+In[266]:=",ExpressionUUID->"7e796950-dc23-415d-a6dc-a953f1a4e24d"],
Cell[BoxData[
InterpretationBox[
@@ -33336,71 +12982,77 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "1.095749349250547280307915504636423438775091921353455234927449683`\
-42.96052997535734*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.30935092666827", ",", "0``57.22184874961636"}], "}"}]}],
+ "5.886735655419459715586288049646543409346644894066335721211933367`43.\
+76469402169971*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.401806709262004", ",", "0``57.2958494831602"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.095749349250547280307915504636423438775091921353455234927449683`42.\
-96052997535734*^-14, 0``58.69897000433602, 0``57.30935092666827,
- 0``57.22184874961636}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 5.886735655419459715586288049646543409346644894066335721211933367`43.\
+76469402169971*^-14, 0``58.69897000433602, 0``57.401806709262004,
+ 0``57.2958494831602}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797334401051493`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798084804658747`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"2431ff48-a994-4a63-b18a-b5113c945cd2"],
+In[266]:=",ExpressionUUID->"930bc6f0-7709-448b-813e-49ba8339b9a7"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797334401129932`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808480480159*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"81223f25-41a5-4f47-9ad7-e9f292b870fb"],
+In[266]:=",ExpressionUUID->"c6566b0c-37ed-49d2-99d4-03c536dc7315"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "245.2556819507348393472`10."}], ",",
- RowBox[{"S", "\[Rule]", "360000.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "198.2272221646639991377`10."}], ",",
+ RowBox[{"S", "\[Rule]", "256036.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "60328.9334070329763853319`10."}]}], ",",
+ RowBox[{"-", "48429.4838399311434182966`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "60328.9334070329763853319`10."}]}], ",",
+ RowBox[{"-", "48429.4838399311434182966`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "147153.4091704409036083234`10."}]}], ",",
+ RowBox[{"-", "100302.9744153199835636769`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "147153.4091704409036083234`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "86214.6851549477649873119`10."}], ",",
+ RowBox[{"-", "100302.9744153199835636769`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "72678.9165105022326324315`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "600.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "506.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "293.6233729711375769573`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "269.5902752520984994152`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04387212306900028668822935182400073271`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "228.1544290375435223864`10."}], ",",
+ RowBox[{"-", "0.05527710815134095464482549279633974581`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "181.1828888236144324207`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "256.3068115737819891175`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "235.4358748563185072953`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797334401209917`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798084804933977`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"671057cc-0187-4fa5-8407-7d5c725f6c59"],
+In[266]:=",ExpressionUUID->"94cb6f5e-1980-4a61-80cf-59ce2053f2a2"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "288.02242524916943`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "239.6813725490196`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 288.02242524916943`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 239.6813725490196}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733450081839*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798084906490707`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"107ea11d-c3e7-4f15-94f9-7d193b324317"],
+In[266]:=",ExpressionUUID->"a8ed6682-9cbe-436e-bdab-14ed0afccc56"],
Cell[BoxData[
InterpretationBox[
@@ -33411,12 +13063,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"301.`", ",", "0.`", ",", "0.`", ",", "301.`"}], "}"}]}]},
+ RowBox[{"255.`", ",", "0.`", ",", "0.`", ",", "255.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"301.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "301.`"}]}], "}"}]}]},
+ RowBox[{"255.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "255.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -33426,13 +13078,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"246.2561605801582`", ",", "0.`", ",",
- RowBox[{"-", "246.2561605801582`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"200.2287309468443`", ",", "0.`", ",",
+ RowBox[{"-", "200.2287309468443`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"229.15395040812012`", ",",
- RowBox[{"-", "10.`"}], ",", "228.93565250446943`", ",", "0.`"}],
+ RowBox[{"183.1813800414341`", ",",
+ RowBox[{"-", "10.`"}], ",", "182.90822287115554`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -33449,16 +13101,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {301., 0., 0., 301.}, $CellContext`p2 -> {
- 301., 0., 0., -301.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {246.2561605801582,
- 0., -246.2561605801582, 0.}, $CellContext`p5 -> {
- 229.15395040812012`, -10., 228.93565250446943`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {255., 0., 0., 255.}, $CellContext`p2 -> {
+ 255., 0., 0., -255.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {200.2287309468443,
+ 0., -200.2287309468443, 0.}, $CellContext`p5 -> {
+ 183.1813800414341, -10., 182.90822287115554`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733450090205*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798084906563168`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f204e57c-ba46-4112-a7d3-46df22eab190"],
+In[266]:=",ExpressionUUID->"891fcd8c-64b2-4d36-899d-75aa1cb397fb"],
Cell[BoxData[
InterpretationBox[
@@ -33466,71 +13120,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "5.58723854952804336868939372996366373072387455723153013902184485`\
-43.66657072722197*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.30758290030342", ",", "0``57.22040350874217"}], "}"}]}],
+ "1.843500018677066577035041785216950462993836543366240578087207553`43.\
+25704297458019*^-14", ",", "0``58.69897000433602", ",", "0``57.3974436095323",
+ ",", "0``57.29242982390206"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.58723854952804336868939372996366373072387455723153013902184485`43.\
-66657072722197*^-14, 0``58.69897000433602, 0``57.30758290030342,
- 0``57.22040350874217}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 1.843500018677066577035041785216950462993836543366240578087207553`43.\
+25704297458019*^-14, 0``58.69897000433602, 0``57.3974436095323,
+ 0``57.29242982390206}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797334500980673`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798084906630993`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"bfd61556-c7e9-4475-b9d4-675851bbbc6a"],
+In[266]:=",ExpressionUUID->"2bb5e3e2-1cfb-41b7-8e16-a135086a9191"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973345010537*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808490669725*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"fe764d26-6598-4b9c-bc2c-b358d81f2418"],
+In[266]:=",ExpressionUUID->"4b8d2888-4e1f-4a35-bfca-df2e2fd476f4"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "246.2561605801581947617`10."}], ",",
- RowBox[{"S", "\[Rule]", "362404.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "200.2287309468443083915`10."}], ",",
+ RowBox[{"S", "\[Rule]", "260100.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "60582.1131850564196399496`10."}]}], ",",
+ RowBox[{"-", "48935.8433959780299275321`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "60582.1131850564196399496`10."}]}], ",",
+ RowBox[{"-", "48935.8433959780299275321`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "148246.2086692552332465311`10."}]}], ",",
+ RowBox[{"-", "102116.6527828905972796747`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "148246.2086692552332465311`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "86502.6437086233313797172`10."}], ",",
+ RowBox[{"-", "102116.6527828905972796747`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "73254.992357737247660516`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "602.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "510.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "294.1133178022092412364`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "270.6565948905314364288`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04368039617509891293121759799695614363`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "229.1539504081201220571`10."}], ",",
+ RowBox[{"-", "0.05467222765071756176359006858501958503`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "183.1813800414340827346`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "256.7325118902736357411`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "236.3613640894357693204`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733450112803*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808490676572*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"ba7cb3f2-aca2-4d3a-b120-207f06e06479"],
+In[266]:=",ExpressionUUID->"8cf25419-3d19-43af-a3d7-014abfbb50bc"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "289.06539735099335`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "241.80058365758754`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 289.06539735099335`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 241.80058365758754`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797334599376297`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798085010680447`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"63d0f6b3-c85c-4d2c-bda8-75935daecb1e"],
+In[266]:=",ExpressionUUID->"8c6a537b-bb95-46df-a050-be320b07b8a2"],
Cell[BoxData[
InterpretationBox[
@@ -33541,12 +13202,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"302.`", ",", "0.`", ",", "0.`", ",", "302.`"}], "}"}]}]},
+ RowBox[{"257.`", ",", "0.`", ",", "0.`", ",", "257.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"302.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "302.`"}]}], "}"}]}]},
+ RowBox[{"257.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "257.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -33556,13 +13217,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"247.25663504839716`", ",", "0.`", ",",
- RowBox[{"-", "247.25663504839716`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"202.2302071146054`", ",", "0.`", ",",
+ RowBox[{"-", "202.2302071146054`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"230.1534759398812`", ",",
- RowBox[{"-", "10.`"}], ",", "229.9361269727084`", ",", "0.`"}],
+ RowBox[{"185.17990387367288`", ",",
+ RowBox[{"-", "10.`"}], ",", "184.90969903891664`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -33579,16 +13240,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {302., 0., 0., 302.}, $CellContext`p2 -> {
- 302., 0., 0., -302.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {247.25663504839716`,
- 0., -247.25663504839716`, 0.}, $CellContext`p5 -> {
- 230.1534759398812, -10., 229.9361269727084, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {257., 0., 0., 257.}, $CellContext`p2 -> {
+ 257., 0., 0., -257.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {202.2302071146054,
+ 0., -202.2302071146054, 0.}, $CellContext`p5 -> {
+ 185.17990387367288`, -10., 184.90969903891664`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797334599462643`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808501075192*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"fa0792a9-8170-44c5-8ad5-5a59d40f0ea2"],
+In[266]:=",ExpressionUUID->"984d28d1-569e-4207-8525-5b4341853711"],
Cell[BoxData[
InterpretationBox[
@@ -33597,69 +13260,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.967953006285251392738942529072049220126598886953553053051757016`\
-43.21194778920316*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.30582204976451", ",", "0``57.21896306137887"}], "}"}]}],
+ "-", "8.997560462884839704139135680205803121628960234388265291487792821`\
+43.942131659099594*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.39312397769349", ",", "0``57.289036881004726"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.967953006285251392738942529072049220126598886953553053051757016`43.\
-21194778920316*^-14, 0``58.69897000433602, 0``57.30582204976451,
- 0``57.21896306137887}],
+{-8.997560462884839704139135680205803121628960234388265291487792821`43.\
+942131659099594*^-14, 0``58.69897000433602, 0``57.39312397769349,
+ 0``57.289036881004726}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797334599542303`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808501082636*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"53433c3b-e81e-4066-8667-ef4a9388d82d"],
+In[266]:=",ExpressionUUID->"46f71b60-7b80-4d90-af6c-d8db3d47b2c1"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797334599623127`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798085011030207`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"4f1d818b-67df-4dba-83a4-ccf6d4e0ccfc"],
+In[266]:=",ExpressionUUID->"a7e8555b-bc8e-4cb6-9268-07f6e35c482d"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "247.2566350483971575613`10."}], ",",
- RowBox[{"S", "\[Rule]", "364816.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "202.2302071146054061046`10."}], ",",
+ RowBox[{"S", "\[Rule]", "264196.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "60835.2929630798628945674`10."}]}], ",",
+ RowBox[{"-", "49442.2029520249164367676`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "60835.2929630798628945674`10."}]}], ",",
+ RowBox[{"-", "49442.2029520249164367676`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "149343.0075692318831670491`10."}]}], ",",
+ RowBox[{"-", "103946.3264569071787377652`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "149343.0075692318831670491`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "86790.6010646235011818575`10."}], ",",
+ RowBox[{"-", "103946.3264569071787377652`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "73831.0588178642236724133`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "604.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "514.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "294.6024457885974530184`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "271.718712675193247671`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04349033851990958163511033616425840362`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "230.1534759398811954502`10."}], ",",
+ RowBox[{"-", "0.05408045144184335571064974203954161384`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "185.1799038736728766109`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "257.157509829163300725`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "237.2832633924811529313`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973345997057*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980850111777*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"a1a465e8-d8e8-4266-b360-d6f907cd0137"],
+In[266]:=",ExpressionUUID->"733a628c-a0e0-468d-be88-ef945396b80f"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "290.1080858085809`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "243.91795366795367`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 290.1080858085809}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 243.91795366795367`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733469846272*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808511304901*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"39b5af94-9cd1-4213-8074-c6ab10e59e68"],
+In[266]:=",ExpressionUUID->"06ae0f0a-203e-4faf-92de-3b942c2dc683"],
Cell[BoxData[
InterpretationBox[
@@ -33670,12 +13342,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"303.`", ",", "0.`", ",", "0.`", ",", "303.`"}], "}"}]}]},
+ RowBox[{"259.`", ",", "0.`", ",", "0.`", ",", "259.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"303.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "303.`"}]}], "}"}]}]},
+ RowBox[{"259.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "259.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -33685,13 +13357,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"248.25710540948253`", ",", "0.`", ",",
- RowBox[{"-", "248.25710540948253`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"204.23165171414874`", ",", "0.`", ",",
+ RowBox[{"-", "204.23165171414874`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"231.15300557879578`", ",",
- RowBox[{"-", "10.`"}], ",", "230.93659733379377`", ",", "0.`"}],
+ RowBox[{"187.17845927412966`", ",",
+ RowBox[{"-", "10.`"}], ",", "186.91114363845998`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -33708,16 +13380,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {303., 0., 0., 303.}, $CellContext`p2 -> {
- 303., 0., 0., -303.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {248.25710540948253`,
- 0., -248.25710540948253`, 0.}, $CellContext`p5 -> {
- 231.15300557879578`, -10., 230.93659733379377`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {259., 0., 0., 259.}, $CellContext`p2 -> {
+ 259., 0., 0., -259.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {204.23165171414874`,
+ 0., -204.23165171414874`, 0.}, $CellContext`p5 -> {
+ 187.17845927412966`, -10., 186.91114363845998`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733469856578*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808511312359*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"b5ac264f-3c13-4674-accc-03b0cbec92e9"],
+In[266]:=",ExpressionUUID->"5687ad29-34a8-40c2-babd-3aec3b000060"],
Cell[BoxData[
InterpretationBox[
@@ -33725,70 +13399,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "4.375848535817571862065624773043513648361559116252489187728835334`\
-43.557559661228865*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.30406831697335", ",", "0``57.21752737583371"}], "}"}]}],
+ "2.126631587902720356618789827460214919370319763361349118594822212`43.\
+31233250496881*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.388846954638225", ",", "0``57.28567024025477"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.375848535817571862065624773043513648361559116252489187728835334`43.\
-557559661228865*^-14, 0``58.69897000433602, 0``57.30406831697335,
- 0``57.21752737583371}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 2.126631587902720356618789827460214919370319763361349118594822212`43.\
+31233250496881*^-14, 0``58.69897000433602, 0``57.388846954638225,
+ 0``57.28567024025477}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733469864675*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798085113198023`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"73a44c2a-7955-49c4-9195-70e005e0c5d2"],
+In[266]:=",ExpressionUUID->"7eaf3f19-5747-4bdd-aa42-8e95f8c16d17"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733469873075*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798085113262444`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"95a14447-1299-4312-815c-d11eb7a9ca66"],
+In[266]:=",ExpressionUUID->"9aef6464-dfaa-4ac9-8318-b8285b85d132"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "248.2571054094825342418`10."}], ",",
- RowBox[{"S", "\[Rule]", "367236.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "204.2316517141487395293`10."}], ",",
+ RowBox[{"S", "\[Rule]", "268324.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "61088.4727411033061491852`10."}]}], ",",
+ RowBox[{"-", "49948.5625080718029460032`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "61088.4727411033061491852`10."}]}], ",",
+ RowBox[{"-", "49948.5625080718029460032`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "150443.805878146415750507`10."}]}], ",",
+ RowBox[{"-", "105791.9955879290470761589`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "150443.805878146415750507`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "87078.5572384994640291952`10."}], ",",
+ RowBox[{"-", "105791.9955879290470761589`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "74407.1161920016920831316`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "606.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "518.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "295.0907610185372510339`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "272.7766782406474207909`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04330192838836231076629413231749998288`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "231.1530055787957946909`10."}], ",",
+ RowBox[{"-", "0.05350135794654856287895854958063884767`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "187.1784592741296544282`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "257.5818088369346341609`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "238.2016138151501256387`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797334698805227`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798085113330317`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"329d1525-3a6a-4ca1-bde8-35ff2100c0f0"],
+In[266]:=",ExpressionUUID->"f0f190f6-16e5-4a32-894c-d685edffadce"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "291.1504934210526`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "246.03352490421454`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 291.1504934210526}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 246.03352490421454`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973347972407*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980852137003*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d3c61a67-05d6-4687-a86f-1415835f8c08"],
+In[266]:=",ExpressionUUID->"8e49d9a4-ca6d-4316-85f8-67fd99deaf14"],
Cell[BoxData[
InterpretationBox[
@@ -33799,12 +13481,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"304.`", ",", "0.`", ",", "0.`", ",", "304.`"}], "}"}]}]},
+ RowBox[{"261.`", ",", "0.`", ",", "0.`", ",", "261.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"304.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "304.`"}]}], "}"}]}]},
+ RowBox[{"261.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "261.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -33814,13 +13496,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"249.25757171651387`", ",", "0.`", ",",
- RowBox[{"-", "249.25757171651387`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"206.23306574740226`", ",", "0.`", ",",
+ RowBox[{"-", "206.23306574740226`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"232.15253927176448`", ",",
- RowBox[{"-", "10.`"}], ",", "231.9370636408251`", ",", "0.`"}],
+ RowBox[{"189.17704524087608`", ",",
+ RowBox[{"-", "10.`"}], ",", "188.9125576717135`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -33837,16 +13519,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {304., 0., 0., 304.}, $CellContext`p2 -> {
- 304., 0., 0., -304.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {249.25757171651387`,
- 0., -249.25757171651387`, 0.}, $CellContext`p5 -> {
- 232.15253927176448`, -10., 231.9370636408251, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {261., 0., 0., 261.}, $CellContext`p2 -> {
+ 261., 0., 0., -261.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {206.23306574740226`,
+ 0., -206.23306574740226`, 0.}, $CellContext`p5 -> {
+ 189.17704524087608`, -10., 188.9125576717135, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733479732595*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808521377446*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"333a20ee-5223-40b2-9729-ae337f6d0430"],
+In[266]:=",ExpressionUUID->"0fd02f45-301b-40be-9812-7827115264bc"],
Cell[BoxData[
InterpretationBox[
@@ -33855,70 +13539,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "2.708861791681539012384458480213381304993779626364442663372739872`\
-43.34785327260614*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.30232164455493", ",", "0``57.21609642072727"}], "}"}]}],
+ "-", "2.614084479237328493709326205697671519258199639133075326548256116`\
+43.39861911987811*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.384611706529306", ",", "0``57.28232949699774"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.708861791681539012384458480213381304993779626364442663372739872`43.\
-34785327260614*^-14, 0``58.69897000433602, 0``57.30232164455493,
- 0``57.21609642072727}],
+{-2.614084479237328493709326205697671519258199639133075326548256116`43.\
+39861911987811*^-14, 0``58.69897000433602, 0``57.384611706529306,
+ 0``57.28232949699774}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733479740533*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808521384179*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"3b714156-0fe9-4038-a2d3-e9ac1b399793"],
+In[266]:=",ExpressionUUID->"5982b940-35fe-4d46-9130-f6c4b2a654ee"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733479748316*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798085213912563`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c5034d38-1a22-4854-ae37-98397dee1ac2"],
+In[266]:=",ExpressionUUID->"a0687dad-0c5d-4533-ba99-99226a74d741"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "249.2575717165138655673`10."}], ",",
- RowBox[{"S", "\[Rule]", "369664.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "206.2330657474022643783`10."}], ",",
+ RowBox[{"S", "\[Rule]", "272484.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "61341.6525191267494038029`10."}]}], ",",
+ RowBox[{"-", "50454.9220641186894552387`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "61341.6525191267494038029`10."}]}], ",",
+ RowBox[{"-", "50454.9220641186894552387`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "151548.6036036404302649316`10."}]}], ",",
+ RowBox[{"-", "107653.6603201439820054475`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "151548.6036036404302649316`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "87366.512245534371914852`10."}], ",",
+ RowBox[{"-", "107653.6603201439820054475`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "74983.1647685253528118679`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "608.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "522.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "295.5782675460670127967`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "273.830540240721419813`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04311514444058789159547202165656046107`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "232.1525392717644800352`10."}], ",",
+ RowBox[{"-", "0.05293454349063282740896303462377878271`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "189.177045240876082172`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "258.0054123322205038166`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "239.1164556439226318942`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733479756288*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808521398031*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"7f8c2c1a-0880-4ec7-a2b5-d09ba133e233"],
+In[266]:=",ExpressionUUID->"35b9288a-d313-4638-964d-4841866bd3cb"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "292.19262295081967`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "248.14733840304183`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 292.19262295081967`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 248.14733840304183`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733489558432*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808531326371*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"8eca6126-1fc7-438b-9eda-346ed4a79ad7"],
+In[266]:=",ExpressionUUID->"4bfe9ded-e801-43df-a741-1ff9bc4f3fdb"],
Cell[BoxData[
InterpretationBox[
@@ -33929,12 +13621,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"305.`", ",", "0.`", ",", "0.`", ",", "305.`"}], "}"}]}]},
+ RowBox[{"263.`", ",", "0.`", ",", "0.`", ",", "263.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"305.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "305.`"}]}], "}"}]}]},
+ RowBox[{"263.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "263.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -33944,13 +13636,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"250.25803402167924`", ",", "0.`", ",",
- RowBox[{"-", "250.25803402167924`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"208.2344501743385`", ",", "0.`", ",",
+ RowBox[{"-", "208.2344501743385`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"233.15207696659917`", ",",
- RowBox[{"-", "10.`"}], ",", "232.93752594599047`", ",", "0.`"}],
+ RowBox[{"191.17566081393986`", ",",
+ RowBox[{"-", "10.`"}], ",", "190.91394209864973`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -33967,16 +13659,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {305., 0., 0., 305.}, $CellContext`p2 -> {
- 305., 0., 0., -305.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {250.25803402167924`,
- 0., -250.25803402167924`, 0.}, $CellContext`p5 -> {
- 233.15207696659917`, -10., 232.93752594599047`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {263., 0., 0., 263.}, $CellContext`p2 -> {
+ 263., 0., 0., -263.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {208.2344501743385,
+ 0., -208.2344501743385, 0.}, $CellContext`p5 -> {
+ 191.17566081393986`, -10., 190.91394209864973`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733489567169*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808531333899*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d30b3224-ad16-4c10-99a4-b2c409afb5ce"],
+In[266]:=",ExpressionUUID->"a4b5ad59-9040-47fc-84e9-3fa48bfbef04"],
Cell[BoxData[
InterpretationBox[
@@ -33984,69 +13678,79 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "2.77721954393205063200975424068012008067495019812978549751405131`43.\
-35725038215058*^-14", ",", "0``58.69897000433602", ",",
- "0``57.300581975825914", ",", "0``57.214670164989236"}], "}"}]}],
+ RowBox[{
+ "-", "3.058361143957171969007673667481280141338647514340069689753385693`\
+43.46347302757874*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.38041742381599", ",", "0``57.279014255846256"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 2.77721954393205063200975424068012008067495019812978549751405131`43.\
-35725038215058*^-14, 0``58.69897000433602, 0``57.300581975825914,
- 0``57.214670164989236}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-3.058361143957171969007673667481280141338647514340069689753385693`43.\
+46347302757874*^-14, 0``58.69897000433602, 0``57.38041742381599,
+ 0``57.279014255846256}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733489575404*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808531340629*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c071f64c-61b4-4c1d-ba87-559c7db29cd6"],
+In[266]:=",ExpressionUUID->"0a9e5fc7-8c4d-44c2-8d41-7e51129289fc"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733489583538*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808531347245*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"12a543ed-9e41-4f0a-a87c-20f2c0e3d558"],
+In[266]:=",ExpressionUUID->"ad5a1b0b-cd7c-4edf-8e4c-80b893dd731b"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "250.2580340216792365027`10."}], ",",
- RowBox[{"S", "\[Rule]", "372100.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "208.2344501743384910242`10."}], ",",
+ RowBox[{"S", "\[Rule]", "276676.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "61594.8322971501926584207`10."}]}], ",",
+ RowBox[{"-", "50961.2816201655759644742`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "61594.8322971501926584207`10."}]}], ",",
+ RowBox[{"-", "50961.2816201655759644742`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "152657.4007532243342666334`10."}]}], ",",
+ RowBox[{"-", "109531.320791702046278715`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "152657.4007532243342666334`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "87654.4661007490408998181`10."}], ",",
+ RowBox[{"-", "109531.320791702046278715`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "75559.2048237352561800628`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "610.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "526.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "296.0649693914311114372`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "274.8803463759009020579`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0429299657038455347324843500837582055`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "233.1520769665991639606`10."}], ",",
+ RowBox[{"-", "0.05237962136276440784487098779161790211`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "191.1756608139398510833`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "258.4283237061126615557`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "240.027828421197628444`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733489591176*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808531354416*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"94f05bbe-3fdd-495f-b7ac-1f565587595c"],
+In[266]:=",ExpressionUUID->"7a09a6a5-1eb1-4549-890e-9b003f41dc33"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "293.234477124183`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "250.25943396226415`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 293.234477124183}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 250.25943396226415`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733499482738*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808541291019*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e2c9c504-1399-4430-b9fe-f422ebb7fca7"],
+In[266]:=",ExpressionUUID->"93059289-38cb-4b36-9500-e3641b5a9740"],
Cell[BoxData[
InterpretationBox[
@@ -34057,12 +13761,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"306.`", ",", "0.`", ",", "0.`", ",", "306.`"}], "}"}]}]},
+ RowBox[{"265.`", ",", "0.`", ",", "0.`", ",", "265.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"306.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "306.`"}]}], "}"}]}]},
+ RowBox[{"265.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "265.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -34072,13 +13776,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"251.25849237627472`", ",", "0.`", ",",
- RowBox[{"-", "251.25849237627472`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"210.23580591514747`", ",", "0.`", ",",
+ RowBox[{"-", "210.23580591514747`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"234.1516186120036`", ",",
- RowBox[{"-", "10.`"}], ",", "233.93798430058595`", ",", "0.`"}],
+ RowBox[{"193.17430507313094`", ",",
+ RowBox[{"-", "10.`"}], ",", "192.9152978394587`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -34095,16 +13799,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {306., 0., 0., 306.}, $CellContext`p2 -> {
- 306., 0., 0., -306.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {251.25849237627472`,
- 0., -251.25849237627472`, 0.}, $CellContext`p5 -> {
- 234.1516186120036, -10., 233.93798430058595`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {265., 0., 0., 265.}, $CellContext`p2 -> {
+ 265., 0., 0., -265.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {210.23580591514747`,
+ 0., -210.23580591514747`, 0.}, $CellContext`p5 -> {
+ 193.17430507313094`, -10., 192.9152978394587, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733499491517*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798085412987432`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"5e66b915-e487-42b5-a238-6a7e84d67ea9"],
+In[266]:=",ExpressionUUID->"605cad53-a0a2-4c98-9d17-582b21663390"],
Cell[BoxData[
InterpretationBox[
@@ -34112,71 +13818,77 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "4.582098710647144361569996510020356708512645727782360929948564605`\
-43.57328302300795*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.298849254783796", ",", "0``57.213248577854436"}], "}"}]}],
+ "1.80195811728710267194764958082504825972226263781023841334654998`43.\
+23043882723704*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.376263320298015", ",", "0``57.27572413039921"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.582098710647144361569996510020356708512645727782360929948564605`43.\
-57328302300795*^-14, 0``58.69897000433602, 0``57.298849254783796,
- 0``57.213248577854436}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 1.80195811728710267194764958082504825972226263781023841334654998`43.\
+23043882723704*^-14, 0``58.69897000433602, 0``57.376263320298015,
+ 0``57.27572413039921}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797334994990797`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980854130579*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"88c9227c-2983-4a31-86c5-c2cc8c845529"],
+In[266]:=",ExpressionUUID->"c6ccfab6-2b00-4b9e-90b6-fd1424e10a5e"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733499506783*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808541312462*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"93f0447c-8b13-45a6-99fa-ff859d35e2bf"],
+In[266]:=",ExpressionUUID->"3906a4ca-84f6-43e5-95f0-37d0bfba55ca"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "251.258492376274716662`10."}], ",",
- RowBox[{"S", "\[Rule]", "374544.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "210.235805915147466294`10."}], ",",
+ RowBox[{"S", "\[Rule]", "280900.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "61848.0120751736359130385`10."}]}], ",",
+ RowBox[{"-", "51467.6411762124624737098`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "61848.0120751736359130385`10."}]}], ",",
+ RowBox[{"-", "51467.6411762124624737098`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "153770.1973342801265971502`10."}]}], ",",
+ RowBox[{"-", "111424.9771350281571358209`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "153770.1973342801265971502`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "87942.4188189075464784941`10."}], ",",
+ RowBox[{"-", "111424.9771350281571358209`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "76135.2366224812322572214`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "612.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "530.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "296.550870541476486286`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "275.9261434197224310874`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0427463715646580999960380297046274798`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "234.1516186120036102081`10."}], ",",
+ RowBox[{"-", "0.05183622093216192030450049728488438185`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "193.1743050731309244167`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "258.8505463224671537734`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "240.9357709638477431628`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733499514428*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798085413193817`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"b2015e5b-1dc8-46c1-b8f6-8763e5bb2296"],
+In[266]:=",ExpressionUUID->"2234fe67-0774-45c8-aa38-fe4233a32347"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "294.27605863192184`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "252.3698501872659`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 294.27605863192184`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 252.3698501872659}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733509343103*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808551273254*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"35ceb1ff-a8fb-464d-823d-d0336fed0fe5"],
+In[266]:=",ExpressionUUID->"70a3100f-eba2-44e7-83dd-7376ce246d24"],
Cell[BoxData[
InterpretationBox[
@@ -34187,12 +13899,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"307.`", ",", "0.`", ",", "0.`", ",", "307.`"}], "}"}]}]},
+ RowBox[{"267.`", ",", "0.`", ",", "0.`", ",", "267.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"307.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "307.`"}]}], "}"}]}]},
+ RowBox[{"267.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "267.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -34202,13 +13914,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"252.2589468307236`", ",", "0.`", ",",
- RowBox[{"-", "252.2589468307236`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"212.23713385227646`", ",", "0.`", ",",
+ RowBox[{"-", "212.23713385227646`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"235.15116415755472`", ",",
- RowBox[{"-", "10.`"}], ",", "234.93843875503484`", ",", "0.`"}],
+ RowBox[{"195.17297713600192`", ",",
+ RowBox[{"-", "10.`"}], ",", "194.9166257765877`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -34225,16 +13937,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {307., 0., 0., 307.}, $CellContext`p2 -> {
- 307., 0., 0., -307.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {252.2589468307236,
- 0., -252.2589468307236, 0.}, $CellContext`p5 -> {
- 235.15116415755472`, -10., 234.93843875503484`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {267., 0., 0., 267.}, $CellContext`p2 -> {
+ 267., 0., 0., -267.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {212.23713385227646`,
+ 0., -212.23713385227646`, 0.}, $CellContext`p5 -> {
+ 195.17297713600192`, -10., 194.9166257765877, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733509351631*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808551280422*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d8836511-ceed-4601-bf5d-df17114a4d90"],
+In[266]:=",ExpressionUUID->"bb8ed424-24d7-461d-83d8-e8864e97df64"],
Cell[BoxData[
InterpretationBox[
@@ -34242,71 +13956,77 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "4.322380638788447215493388032663705525810683487185444138255935837`\
-43.54652464239789*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.29712342609582", ",", "0``57.21183162885883"}], "}"}]}],
+ "5.007748019702122540142975111904793606238553290150334926851251`41.\
+67107121519233*^-16", ",", "0``58.69897000433602", ",",
+ "0``57.37214863223427", ",", "0``57.272458742971445"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.322380638788447215493388032663705525810683487185444138255935837`43.\
-54652464239789*^-14, 0``58.69897000433602, 0``57.29712342609582,
- 0``57.21183162885883}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 5.007748019702122540142975111904793606238553290150334926851251`41.\
+67107121519233*^-16, 0``58.69897000433602, 0``57.37214863223427,
+ 0``57.272458742971445}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733509359993*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808551287292*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d157ffdf-8c3a-491e-9e42-297789b46629"],
+In[266]:=",ExpressionUUID->"599b71d3-2a01-4e6e-a3b1-f9546bc7a70e"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733509367646*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808551294108*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"6fd986dc-3a95-4fdb-9d47-d34ceb6027cb"],
+In[266]:=",ExpressionUUID->"e1ab0e19-10f0-4d7c-8596-11459f1fdbff"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "252.2589468307236018063`10."}], ",",
- RowBox[{"S", "\[Rule]", "376996.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "212.2371338522764574464`10."}], ",",
+ RowBox[{"S", "\[Rule]", "285156.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "62101.1918531970791676563`10."}]}], ",",
+ RowBox[{"-", "51974.0007322593489829454`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "62101.1918531970791676563`10."}]}], ",",
+ RowBox[{"-", "51974.0007322593489829454`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "154886.9933540642915090757`10."}]}], ",",
+ RowBox[{"-", "113334.6294771156282763513`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "154886.9933540642915090757`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "88230.3704145227616817207`10."}], ",",
+ RowBox[{"-", "113334.6294771156282763513`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "76711.260418749954323118`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "614.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "534.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "297.035974950043318287`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "276.9679772442113105074`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04256434176114867803097738376020375002`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "235.151164157554727661`10."}], ",",
+ RowBox[{"-", "0.05130398682081610877797437643817090703`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "195.1729771360019157455`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "259.2720835182056111333`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "241.8403213812137319819`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733509375051*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808551301005*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"358d5906-4a54-43a0-9340-f3b93a420150"],
+In[266]:=",ExpressionUUID->"023743e2-91ea-4a0b-a37f-a37f77818dfb"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "295.31737012987014`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "254.478624535316`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 295.31737012987014`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 254.478624535316}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797335191358557`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808561596985*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"2566fc8b-dced-46f2-afdf-96313f090f09"],
+In[266]:=",ExpressionUUID->"771e4310-1f8c-4b52-b0df-21597f8ff247"],
Cell[BoxData[
InterpretationBox[
@@ -34317,12 +14037,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"308.`", ",", "0.`", ",", "0.`", ",", "308.`"}], "}"}]}]},
+ RowBox[{"269.`", ",", "0.`", ",", "0.`", ",", "269.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"308.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "308.`"}]}], "}"}]}]},
+ RowBox[{"269.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "269.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -34332,13 +14052,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"253.25939743459458`", ",", "0.`", ",",
- RowBox[{"-", "253.25939743459458`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"214.23843483234555`", ",", "0.`", ",",
+ RowBox[{"-", "214.23843483234555`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"236.15071355368374`", ",",
- RowBox[{"-", "10.`"}], ",", "235.9388893589058`", ",", "0.`"}],
+ RowBox[{"197.1716761559328`", ",",
+ RowBox[{"-", "10.`"}], ",", "196.91792675665678`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -34355,16 +14075,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {308., 0., 0., 308.}, $CellContext`p2 -> {
- 308., 0., 0., -308.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {253.25939743459458`,
- 0., -253.25939743459458`, 0.}, $CellContext`p5 -> {
- 236.15071355368374`, -10., 235.9388893589058, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {269., 0., 0., 269.}, $CellContext`p2 -> {
+ 269., 0., 0., -269.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {214.23843483234555`,
+ 0., -214.23843483234555`, 0.}, $CellContext`p5 -> {
+ 197.1716761559328, -10., 196.91792675665678`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733519146161*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808561604273*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"21bd3c26-6d56-4b62-8d2d-9b152c8d90e3"],
+In[266]:=",ExpressionUUID->"b26da2f2-950b-4b42-9e9f-72a205a1dd5a"],
Cell[BoxData[
InterpretationBox[
@@ -34373,69 +14095,77 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "4.804698554080388622151611561878520709424495991953092217083066086`\
-43.5910554374735*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.295404435088436", ",", "0``57.21041928783557"}], "}"}]}],
+ "-", "1.867304782552919600812767299957621353394847448202765404407397032`\
+43.239402938197685*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.3680726174937", ",", "0``57.269217724333615"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.804698554080388622151611561878520709424495991953092217083066086`43.\
-5910554374735*^-14, 0``58.69897000433602, 0``57.295404435088436,
- 0``57.21041928783557}],
+{-1.867304782552919600812767299957621353394847448202765404407397032`43.\
+239402938197685*^-14, 0``58.69897000433602, 0``57.3680726174937,
+ 0``57.269217724333615}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733519154169*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808561610873*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d62591f7-e888-44e5-add4-7026464966e7"],
+In[266]:=",ExpressionUUID->"e8bd5586-5932-40dc-a4c4-4adb9d7d2862"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733519161942*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808561618174*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"dc6502ce-ebdd-4714-9f16-856482140573"],
+In[266]:=",ExpressionUUID->"f5277e44-83b0-4193-971b-baf940f4d156"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "253.2593974345945753157`10."}], ",",
- RowBox[{"S", "\[Rule]", "379456.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "214.2384348323455469654`10."}], ",",
+ RowBox[{"S", "\[Rule]", "289444.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "62354.371631220522422274`10."}]}], ",",
+ RowBox[{"-", "52480.3602883062354921809`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "62354.371631220522422274`10."}]}], ",",
+ RowBox[{"-", "52480.3602883062354921809`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "156007.7888197102583944798`10."}]}], ",",
+ RowBox[{"-", "115260.2779398019042673695`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "156007.7888197102583944798`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "88518.3209018615843261674`10."}], ",",
+ RowBox[{"-", "115260.2779398019042673695`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "77287.2764562162868826931`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "616.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "538.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "297.5202865383494892788`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "278.0058928444076828589`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04238385637557269340005996031508561367`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "236.1507135536837493284`10."}], ",",
+ RowBox[{"-", "0.05078257812635614625547102332677976699`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "197.1716761559328070527`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "259.6929386036121089853`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "242.741517092557076599`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797335191699657`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808561625326*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"ce9edb65-6d61-428b-897d-cbae4ca0857e"],
+In[266]:=",ExpressionUUID->"9f313893-f53d-4d53-8f10-58a8f1cef273"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "296.3584142394822`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "256.5857933579336`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 296.3584142394822}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 256.5857933579336}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733528932687*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798085716433783`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"005055a6-b10f-42d1-a1b0-4781e901e59f"],
+In[266]:=",ExpressionUUID->"3a6d3747-8cdb-402e-a687-286a75a9771a"],
Cell[BoxData[
InterpretationBox[
@@ -34446,12 +14176,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"309.`", ",", "0.`", ",", "0.`", ",", "309.`"}], "}"}]}]},
+ RowBox[{"271.`", ",", "0.`", ",", "0.`", ",", "271.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"309.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "309.`"}]}], "}"}]}]},
+ RowBox[{"271.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "271.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -34461,13 +14191,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"254.25984423661993`", ",", "0.`", ",",
- RowBox[{"-", "254.25984423661993`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"216.2397096679475`", ",", "0.`", ",",
+ RowBox[{"-", "216.2397096679475`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"237.1502667516584`", ",",
- RowBox[{"-", "10.`"}], ",", "236.93933616093116`", ",", "0.`"}],
+ RowBox[{"199.17040132033088`", ",",
+ RowBox[{"-", "10.`"}], ",", "198.91920159225873`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -34484,16 +14214,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {309., 0., 0., 309.}, $CellContext`p2 -> {
- 309., 0., 0., -309.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {254.25984423661993`,
- 0., -254.25984423661993`, 0.}, $CellContext`p5 -> {
- 237.1502667516584, -10., 236.93933616093116`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {271., 0., 0., 271.}, $CellContext`p2 -> {
+ 271., 0., 0., -271.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {216.2397096679475,
+ 0., -216.2397096679475, 0.}, $CellContext`p5 -> {
+ 199.17040132033088`, -10., 198.91920159225873`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797335289412403`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808571651066*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"dd630cf4-b36c-4a71-a6df-a26d4c1358da"],
+In[266]:=",ExpressionUUID->"1e296223-2a94-4dfb-8ed9-6999a481bd7c"],
Cell[BoxData[
InterpretationBox[
@@ -34501,70 +14233,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "4.239968552586738920010172035351064656750267939017222864390690555`\
-43.53534416473411*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.293692227736805", ",", "0``57.20901152491119"}], "}"}]}],
+ "1.106193998098870755592157609020073757139740417735863636752477252`43.\
+00880201557604*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.36403455474604", ",", "0``57.26600071346161"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.239968552586738920010172035351064656750267939017222864390690555`43.\
-53534416473411*^-14, 0``58.69897000433602, 0``57.293692227736805,
- 0``57.20901152491119}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 1.106193998098870755592157609020073757139740417735863636752477252`43.\
+00880201557604*^-14, 0``58.69897000433602, 0``57.36403455474604,
+ 0``57.26600071346161}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733528949244*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808571657857*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"7f0a8ff2-6810-424c-83cd-75f98ea9cc01"],
+In[266]:=",ExpressionUUID->"58f58f2c-63c2-42b6-a1d9-9b7f269a24bf"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797335289570427`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808571664444*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1bb6d07d-53a6-41f4-8554-69c99280a47c"],
+In[266]:=",ExpressionUUID->"2283467d-2df3-4769-8d15-ed8cf02f2207"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "254.2598442366199265052`10."}], ",",
- RowBox[{"S", "\[Rule]", "381924.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "216.2397096679474941539`10."}], ",",
+ RowBox[{"S", "\[Rule]", "293764.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "62607.5514092439656768918`10."}]}], ",",
+ RowBox[{"-", "52986.7198443531220014165`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "62607.5514092439656768918`10."}]}], ",",
+ RowBox[{"-", "52986.7198443531220014165`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "157132.5837382311145802305`10."}]}], ",",
+ RowBox[{"-", "117201.9226400275418313868`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "157132.5837382311145802305`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "88806.2702949501806244381`10."}], ",",
+ RowBox[{"-", "117201.9226400275418313868`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "77863.2849687613232591844`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "618.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "542.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "298.0038091953694819825`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "279.0399343620216006934`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04220489582703953145312620369552049273`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "237.1502667516584037862`10."}], ",",
+ RowBox[{"-", "0.05027166769197995310278150449323916288`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "199.1704013203308895992`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "260.1131148626261405076`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "243.639394843988486591`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733528965127*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808571671369*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c3a1e0cd-b21c-4715-abbc-bf7aaa7e8aa5"],
+In[266]:=",ExpressionUUID->"4ba90a3e-eaa3-4dc6-8292-7bd6e0bc1a54"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "297.3991935483871`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "258.69139194139194`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 297.3991935483871}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 258.69139194139194`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797335388615637`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808581712604*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1c6f94dd-6bc3-43ba-8237-8c314f071222"],
+In[266]:=",ExpressionUUID->"983ba94a-f21b-4898-8faf-1f99c5911050"],
Cell[BoxData[
InterpretationBox[
@@ -34575,12 +14315,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"310.`", ",", "0.`", ",", "0.`", ",", "310.`"}], "}"}]}]},
+ RowBox[{"273.`", ",", "0.`", ",", "0.`", ",", "273.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"310.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "310.`"}]}], "}"}]}]},
+ RowBox[{"273.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "273.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -34590,13 +14330,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"255.26028728471306`", ",", "0.`", ",",
- RowBox[{"-", "255.26028728471306`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"218.2409591393402`", ",", "0.`", ",",
+ RowBox[{"-", "218.2409591393402`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"238.1498237035653`", ",",
- RowBox[{"-", "10.`"}], ",", "237.9397792090243`", ",", "0.`"}],
+ RowBox[{"201.16915184893818`", ",",
+ RowBox[{"-", "10.`"}], ",", "200.92045106365143`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -34613,16 +14353,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {310., 0., 0., 310.}, $CellContext`p2 -> {
- 310., 0., 0., -310.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {255.26028728471306`,
- 0., -255.26028728471306`, 0.}, $CellContext`p5 -> {
- 238.1498237035653, -10., 237.9397792090243, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {273., 0., 0., 273.}, $CellContext`p2 -> {
+ 273., 0., 0., -273.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {218.2409591393402,
+ 0., -218.2409591393402, 0.}, $CellContext`p5 -> {
+ 201.16915184893818`, -10., 200.92045106365143`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733538870241*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808581720347*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"2db62df7-b8a8-4e57-a670-1f20e100d2c4"],
+In[266]:=",ExpressionUUID->"7f9b949b-0a5a-43bb-8474-6c289e57d6a8"],
Cell[BoxData[
InterpretationBox[
@@ -34631,69 +14373,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "2.941418606505987424554359614490273289157422116169032899659559197`\
-43.37513515014345*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.29198675065462", ",", "0``57.20760831050175"}], "}"}]}],
+ "-", "9.75061173917355183029204120639607108324730362755763299571572974`\
+42.95080922518759*^-15"}], ",", "0``58.69897000433602", ",",
+ "0``57.36003374269025", ",", "0``57.262807357295266"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.941418606505987424554359614490273289157422116169032899659559197`43.\
-37513515014345*^-14, 0``58.69897000433602, 0``57.29198675065462,
- 0``57.20760831050175}],
+{-9.75061173917355183029204120639607108324730362755763299571572974`42.\
+95080922518759*^-15, 0``58.69897000433602, 0``57.36003374269025,
+ 0``57.262807357295266}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733538878319*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808581727394*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"3a7ffdfc-2ce9-45f5-a8c3-55a177c2300a"],
+In[266]:=",ExpressionUUID->"bf6137af-73bd-4cde-8629-694e8e5317a3"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733538886157*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808581734022*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"16ced7b9-e08d-4161-bbd3-365f9b919596"],
+In[266]:=",ExpressionUUID->"86348f90-702c-486d-b3ba-889db5f64759"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "255.2602872847130583978`10."}], ",",
- RowBox[{"S", "\[Rule]", "384400.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "218.2409591393401910864`10."}], ",",
+ RowBox[{"S", "\[Rule]", "298116.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "62860.7311872674089315096`10."}]}], ",",
+ RowBox[{"-", "53493.079400400008510652`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "62860.7311872674089315096`10."}]}], ",",
+ RowBox[{"-", "53493.079400400008510652`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "158261.3781165220962066087`10."}]}], ",",
+ RowBox[{"-", "119159.5636900797443331612`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "158261.3781165220962066087`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "89094.218607579024286203`10."}], ",",
+ RowBox[{"-", "119159.5636900797443331612`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "78439.286180959509610671`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "620.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "546.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "298.4865467782074500614`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "280.0701451082558881793`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04202744086441823669802720318908186057`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "238.1498237035652848792`10."}], ",",
+ RowBox[{"-", "0.04977094142015443214335497486627980074`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "201.1691518489381718541`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "260.5326155531314396544`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "244.533990724889829051`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733538895639*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808581740961*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f82ffb5c-ba0b-4d40-a6b3-5252ca5d9f5f"],
+In[266]:=",ExpressionUUID->"4cecc060-06a2-44be-9658-2e3689da38ad"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "298.4397106109325`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "260.79545454545456`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 298.4397106109325}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 260.79545454545456`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733548735098*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808591588657*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d144a476-0e5d-4ab4-ab3f-2f87b57462e9"],
+In[266]:=",ExpressionUUID->"9d93200f-7ddb-4b5d-badc-fa23103d0c38"],
Cell[BoxData[
InterpretationBox[
@@ -34704,12 +14455,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"311.`", ",", "0.`", ",", "0.`", ",", "311.`"}], "}"}]}]},
+ RowBox[{"275.`", ",", "0.`", ",", "0.`", ",", "275.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"311.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "311.`"}]}], "}"}]}]},
+ RowBox[{"275.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "275.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -34719,13 +14470,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"256.2607266259856`", ",", "0.`", ",",
- RowBox[{"-", "256.2607266259856`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"220.24218399603933`", ",", "0.`", ",",
+ RowBox[{"-", "220.24218399603933`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"239.14938436229272`", ",",
- RowBox[{"-", "10.`"}], ",", "238.94021855029686`", ",", "0.`"}],
+ RowBox[{"203.16792699223905`", ",",
+ RowBox[{"-", "10.`"}], ",", "202.92167592035057`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -34742,16 +14493,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {311., 0., 0., 311.}, $CellContext`p2 -> {
- 311., 0., 0., -311.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {256.2607266259856,
- 0., -256.2607266259856, 0.}, $CellContext`p5 -> {
- 239.14938436229272`, -10., 238.94021855029686`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {275., 0., 0., 275.}, $CellContext`p2 -> {
+ 275., 0., 0., -275.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {220.24218399603933`,
+ 0., -220.24218399603933`, 0.}, $CellContext`p5 -> {
+ 203.16792699223905`, -10., 202.92167592035057`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733548743251*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798085915958443`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"45e17c0d-e58a-4f76-8fd3-8bed52584317"],
+In[266]:=",ExpressionUUID->"96edc982-15e4-4ba1-8aea-ad6d5d7a03b7"],
Cell[BoxData[
InterpretationBox[
@@ -34759,71 +14512,77 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "1.283695000986334389589331296861354239985622425573232130981427194`\
-43.013641469606064*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.29028795108402", ",", "0``57.206209615309184"}], "}"}]}],
+ "1.296535748861395319313636941343275196935028569922347183292216922`43.\
+0713918107402*^-14", ",", "0``58.69897000433602", ",", "0``57.35606949931833",
+ ",", "0``57.25963731050576"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.283695000986334389589331296861354239985622425573232130981427194`43.\
-013641469606064*^-14, 0``58.69897000433602, 0``57.29028795108402,
- 0``57.206209615309184}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 1.296535748861395319313636941343275196935028569922347183292216922`43.\
+0713918107402*^-14, 0``58.69897000433602, 0``57.35606949931833,
+ 0``57.25963731050576}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733548751148*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808591602519*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d46ae3fa-e25c-47b1-94c8-4849b673bb60"],
+In[266]:=",ExpressionUUID->"65c20f3b-ed3a-4951-a5ec-6ddef2dec37e"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733548758911*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808591609209*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"013f2998-43a3-42f5-b87d-720c613510f4"],
+In[266]:=",ExpressionUUID->"88571ea4-0431-4b51-8cee-a04919b57d9f"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "256.2607266259856260149`10."}], ",",
- RowBox[{"S", "\[Rule]", "386884.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "220.2421839960393299407`10."}], ",",
+ RowBox[{"S", "\[Rule]", "302500.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "63113.9109652908521861273`10."}]}], ",",
+ RowBox[{"-", "53999.4389564468950198875`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "63113.9109652908521861273`10."}]}], ",",
+ RowBox[{"-", "53999.4389564468950198875`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "159394.1719613630593812559`10."}]}], ",",
+ RowBox[{"-", "121133.2011978216314673773`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "159394.1719613630593812559`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "89382.1658533078292746639`10."}], ",",
+ RowBox[{"-", "121133.2011978216314673773`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "79015.2803085370477062401`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "622.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "550.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "298.9685031124647238542`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "281.0965675858334768689`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04185147255942181468086999051518660551`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "239.1493843622927338393`10."}], ",",
+ RowBox[{"-", "0.04928009762705257927553130648701718556`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "203.1679269922390557158`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "260.9514439072408578796`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "245.4253401838464308174`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733548766865*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808591616103*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"bcf9af9f-d1ba-4730-87f6-37b4e4e9f559"],
+In[266]:=",ExpressionUUID->"bf9d991d-4153-4407-8cbb-1181dab04c1a"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "299.47996794871796`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "262.8980144404332`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 299.47996794871796`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 262.8980144404332}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733558621194*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808601684822*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f019970b-9a35-4321-bab4-e39c4f7dcf74"],
+In[266]:=",ExpressionUUID->"7ef27ed5-eca7-41c3-bed0-f615308b85d0"],
Cell[BoxData[
InterpretationBox[
@@ -34834,12 +14593,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"312.`", ",", "0.`", ",", "0.`", ",", "312.`"}], "}"}]}]},
+ RowBox[{"277.`", ",", "0.`", ",", "0.`", ",", "277.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"312.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "312.`"}]}], "}"}]}]},
+ RowBox[{"277.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "277.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -34849,13 +14608,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"257.2611623067642`", ",", "0.`", ",",
- RowBox[{"-", "257.2611623067642`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"222.2433849583175`", ",", "0.`", ",",
+ RowBox[{"-", "222.2433849583175`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"240.14894868151413`", ",",
- RowBox[{"-", "10.`"}], ",", "239.94065423107546`", ",", "0.`"}],
+ RowBox[{"205.16672602996084`", ",",
+ RowBox[{"-", "10.`"}], ",", "204.92287688262874`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -34872,16 +14631,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {312., 0., 0., 312.}, $CellContext`p2 -> {
- 312., 0., 0., -312.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {257.2611623067642,
- 0., -257.2611623067642, 0.}, $CellContext`p5 -> {
- 240.14894868151413`, -10., 239.94065423107546`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {277., 0., 0., 277.}, $CellContext`p2 -> {
+ 277., 0., 0., -277.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {222.2433849583175,
+ 0., -222.2433849583175, 0.}, $CellContext`p5 -> {
+ 205.16672602996084`, -10., 204.92287688262874`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733558630015*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808601692053*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"666e252f-ac25-4802-8175-3c2e272b6055"],
+In[266]:=",ExpressionUUID->"b6fee19b-79ca-4884-a30c-305ee446c052"],
Cell[BoxData[
InterpretationBox[
@@ -34890,69 +14651,77 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "2.984659058167150389999359511668437816491916087187621739616546819`\
-43.37868014287831*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.288595776885764", ",", "0``57.20481541031757"}], "}"}]}],
+ "-", "1.994942809248291145318867422805038753010114854493747129577985481`\
+43.255390689513106*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.3521411612128", ",", "0``57.25649023527157"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.984659058167150389999359511668437816491916087187621739616546819`43.\
-37868014287831*^-14, 0``58.69897000433602, 0``57.288595776885764,
- 0``57.20481541031757}],
+{-1.994942809248291145318867422805038753010114854493747129577985481`43.\
+255390689513106*^-14, 0``58.69897000433602, 0``57.3521411612128,
+ 0``57.25649023527157}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797335586379538`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808601699196*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"78193e13-e3da-4bc7-b386-0e99203c1f42"],
+In[266]:=",ExpressionUUID->"da97e8a3-4af0-4bb0-b584-37a5a126f46c"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797335586452312`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798086017063837`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"703fa41a-11fd-4f5c-986d-8a017545d487"],
+In[266]:=",ExpressionUUID->"565e5489-441f-49a7-9311-1c4372b51bb4"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "257.2611623067642199203`10."}], ",",
- RowBox[{"S", "\[Rule]", "389376.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "222.2433849583175060616`10."}], ",",
+ RowBox[{"S", "\[Rule]", "306916.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "63367.0907433142954407451`10."}]}], ",",
+ RowBox[{"-", "54505.7985124937815291231`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "63367.0907433142954407451`10."}]}], ",",
+ RowBox[{"-", "54505.7985124937815291231`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "160530.965279420873230265`10."}]}], ",",
+ RowBox[{"-", "123122.835266907898358113`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "160530.965279420873230265`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "89670.112045470351677275`10."}], ",",
+ RowBox[{"-", "123122.835266907898358113`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "79591.2675588033679603899`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "624.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "554.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "299.4496819926018082685`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "282.1192435102635248104`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04167697229986492825357695205018855474`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "240.1489486815141229242`10."}], ",",
+ RowBox[{"-", "0.04879884643493260358648542302832135176`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "205.1667260299608466801`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "261.3696031315773177923`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "246.3134780441058000998`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733558652781*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808601713224*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"7b5ce632-8e55-4d75-88e2-a88822e63942"],
+In[266]:=",ExpressionUUID->"27d593f1-5dae-43f4-8094-44ded9f47959"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "300.5199680511182`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "264.9991039426523`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 300.5199680511182}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 264.9991039426523}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733568415571*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798086125537977`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"888b8ce2-f2a8-4260-b9d4-0e3e824351bb"],
+In[266]:=",ExpressionUUID->"46846c3c-7105-4041-a9e5-4da8955f506a"],
Cell[BoxData[
InterpretationBox[
@@ -34963,12 +14732,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"313.`", ",", "0.`", ",", "0.`", ",", "313.`"}], "}"}]}]},
+ RowBox[{"279.`", ",", "0.`", ",", "0.`", ",", "279.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"313.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "313.`"}]}], "}"}]}]},
+ RowBox[{"279.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "279.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -34978,13 +14747,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"258.26159437260674`", ",", "0.`", ",",
- RowBox[{"-", "258.26159437260674`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"224.2445627186168`", ",", "0.`", ",",
+ RowBox[{"-", "224.2445627186168`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"241.14851661567167`", ",",
- RowBox[{"-", "10.`"}], ",", "240.94108629691797`", ",", "0.`"}],
+ RowBox[{"207.16554826966154`", ",",
+ RowBox[{"-", "10.`"}], ",", "206.92405464292804`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -35001,16 +14770,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {313., 0., 0., 313.}, $CellContext`p2 -> {
- 313., 0., 0., -313.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {258.26159437260674`,
- 0., -258.26159437260674`, 0.}, $CellContext`p5 -> {
- 241.14851661567167`, -10., 240.94108629691797`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {279., 0., 0., 279.}, $CellContext`p2 -> {
+ 279., 0., 0., -279.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {224.2445627186168,
+ 0., -224.2445627186168, 0.}, $CellContext`p5 -> {
+ 207.16554826966154`, -10., 206.92405464292804`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797335684244537`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798086125623083`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"68ae0339-aa1a-4eb9-9b6d-793334ac22f7"],
+In[266]:=",ExpressionUUID->"59b6b089-d297-4119-879c-07b26554a6f2"],
Cell[BoxData[
InterpretationBox[
@@ -35018,69 +14789,79 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "2.213990856421142141340345073302013714070523045295952611563006085`43.\
-247571494075686*^-14", ",", "0``58.69897000433602", ",",
- "0``57.286910176529595", ",", "0``57.20342566678957"}], "}"}]}],
+ RowBox[{
+ "-", "2.562465619196408513119923322290874780556452625246868415225027376`\
+43.36099385253798*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.34824808287598", ",", "0``57.25336580106242"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 2.213990856421142141340345073302013714070523045295952611563006085`43.\
-247571494075686*^-14, 0``58.69897000433602, 0``57.286910176529595,
- 0``57.20342566678957}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-2.562465619196408513119923322290874780556452625246868415225027376`43.\
+36099385253798*^-14, 0``58.69897000433602, 0``57.34824808287598,
+ 0``57.25336580106242}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733568432569*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808612569481*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"54858d56-4102-4805-b436-ecb29bb6c2e1"],
+In[266]:=",ExpressionUUID->"e406d044-7202-42b7-99ae-9aaec1bfff4d"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797335684400167`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808612576334*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"57b149a6-fc8d-49d3-bed8-06f35cb94093"],
+In[266]:=",ExpressionUUID->"1a549c3b-1070-4e52-aa5b-d38fab8b9060"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "258.2615943726067371244`10."}], ",",
- RowBox[{"S", "\[Rule]", "391876.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "224.2445627186168053413`10."}], ",",
+ RowBox[{"S", "\[Rule]", "311364.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "63620.2705213377386953629`10."}]}], ",",
+ RowBox[{"-", "55012.1580685406680383586`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "63620.2705213377386953629`10."}]}], ",",
+ RowBox[{"-", "55012.1580685406680383586`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "161671.7580772518174399011`10."}]}], ",",
+ RowBox[{"-", "125128.4659969881773804445`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "161671.7580772518174399011`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "89958.0571971791015925157`10."}], ",",
+ RowBox[{"-", "125128.4659969881773804445`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "80167.2481310577014546982`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "626.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "558.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "299.9300871822950369085`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "283.1382138303794934334`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04150392178308991285238282016367928742`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "241.1485166156716577066`10."}], ",",
+ RowBox[{"-", "0.04832690919988101217007821352172812211`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "207.1655482696615417252`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "261.7870964075509612542`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "247.1984385185788913954`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797335684474897`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808612583396*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"cd9ed5f0-5dd8-4cf6-9b5a-0f841d474c2e"],
+In[266]:=",ExpressionUUID->"989239bc-e830-4d13-aff3-c2e442f0382e"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "301.5597133757962`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "267.09875444839855`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 301.5597133757962}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 267.09875444839855`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797335782525682`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808622875177*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"079d8c88-392f-4e9b-ae49-b7360f5fe650"],
+In[266]:=",ExpressionUUID->"369b5f2e-8ae5-420d-9776-927fab8dd59c"],
Cell[BoxData[
InterpretationBox[
@@ -35091,12 +14872,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"314.`", ",", "0.`", ",", "0.`", ",", "314.`"}], "}"}]}]},
+ RowBox[{"281.`", ",", "0.`", ",", "0.`", ",", "281.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"314.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "314.`"}]}], "}"}]}]},
+ RowBox[{"281.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "281.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -35106,13 +14887,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"259.26202286831807`", ",", "0.`", ",",
- RowBox[{"-", "259.26202286831807`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"226.24571794288`", ",", "0.`", ",",
+ RowBox[{"-", "226.24571794288`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"242.1480881199603`", ",",
- RowBox[{"-", "10.`"}], ",", "241.9415147926293`", ",", "0.`"}],
+ RowBox[{"209.16439304539838`", ",",
+ RowBox[{"-", "10.`"}], ",", "208.92520986719123`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -35129,16 +14910,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {314., 0., 0., 314.}, $CellContext`p2 -> {
- 314., 0., 0., -314.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {259.26202286831807`,
- 0., -259.26202286831807`, 0.}, $CellContext`p5 -> {
- 242.1480881199603, -10., 241.9415147926293, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {281., 0., 0., 281.}, $CellContext`p2 -> {
+ 281., 0., 0., -281.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {226.24571794288,
+ 0., -226.24571794288, 0.}, $CellContext`p5 -> {
+ 209.16439304539838`, -10., 208.92520986719123`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733578261668*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798086228827*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"082d67e2-3b47-49f2-8cfd-95a91c8cf65c"],
+In[266]:=",ExpressionUUID->"23bee1ae-1f04-4541-9d70-988b71188c9a"],
Cell[BoxData[
InterpretationBox[
@@ -35146,69 +14929,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.99518312186622079163915281322353399491814013856702277719419412`42.\
-20099312286031*^-15", ",", "0``58.69897000433602", ",",
- "0``57.28523109908479", ",", "0``57.202040356262806"}], "}"}]}],
+ RowBox[{
+ "-", "8.38056417936999505662251587410955037450871498151138131658222532`\
+42.872506945074996*^-15"}], ",", "0``58.69897000433602", ",",
+ "0``57.344389636089176", ",", "0``57.250263684430934"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.99518312186622079163915281322353399491814013856702277719419412`42.\
-20099312286031*^-15, 0``58.69897000433602, 0``57.28523109908479,
- 0``57.202040356262806}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-8.38056417936999505662251587410955037450871498151138131658222532`42.\
+872506945074996*^-15, 0``58.69897000433602, 0``57.344389636089176,
+ 0``57.250263684430934}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733578269803*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808622889503*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"5e6bedab-0a8f-4f06-8159-345d82da7a39"],
+In[266]:=",ExpressionUUID->"aa156a06-7f30-4269-b9d1-d678febe54cd"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973357827737*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980862289627*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d1a9085b-e697-4d00-a1f6-18841d84c030"],
+In[266]:=",ExpressionUUID->"3ac04f09-607e-4676-92ff-6d34d33407d7"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "259.2620228683180698681`10."}], ",",
- RowBox[{"S", "\[Rule]", "394384.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "226.2457179428799918242`10."}], ",",
+ RowBox[{"S", "\[Rule]", "315844.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "63873.4502993611819499807`10."}]}], ",",
+ RowBox[{"-", "55518.5176245875545475942`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "63873.4502993611819499807`10."}]}], ",",
+ RowBox[{"-", "55518.5176245875545475942`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "162816.550361303747877173`10."}]}], ",",
+ RowBox[{"-", "127150.093483898555405176`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "162816.550361303747877173`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "90246.0013213298586880478`10."}], ",",
+ RowBox[{"-", "127150.093483898555405176`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "80743.2222169722234113716`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "628.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "562.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "300.409722414787798572`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "284.1535187481798955796`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04133230300955629187688921667381223918`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "242.1480881199603048182`10."}], ",",
+ RowBox[{"-", "0.04786401797254032620579258665335241206`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "209.1643930453983724864`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "262.2039268916323947835`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "248.0802552243988714694`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733578284951*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980862290409*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"5ba52e86-ad61-4fee-bfb6-09489b2824e5"],
+In[266]:=",ExpressionUUID->"49bb139a-c8ba-409e-89ce-3e30ac20db3e"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "302.5992063492063`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "269.1969964664311`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 302.5992063492063}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 269.1969964664311}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733588111306*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798086328874683`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"4b876983-6675-4140-a5af-0dd35c0d5769"],
+In[266]:=",ExpressionUUID->"eb8918d3-cd1f-4526-92d7-ec8ac2cf3d20"],
Cell[BoxData[
InterpretationBox[
@@ -35219,12 +15011,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"315.`", ",", "0.`", ",", "0.`", ",", "315.`"}], "}"}]}]},
+ RowBox[{"283.`", ",", "0.`", ",", "0.`", ",", "283.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"315.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "315.`"}]}], "}"}]}]},
+ RowBox[{"283.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "283.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -35234,13 +15026,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"260.26244783796585`", ",", "0.`", ",",
- RowBox[{"-", "260.26244783796585`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"228.24685127180615`", ",", "0.`", ",",
+ RowBox[{"-", "228.24685127180615`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"243.14766315031255`", ",",
- RowBox[{"-", "10.`"}], ",", "242.9419397622771`", ",", "0.`"}],
+ RowBox[{"211.1632597164722`", ",",
+ RowBox[{"-", "10.`"}], ",", "210.9263431961174`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -35257,16 +15049,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {315., 0., 0., 315.}, $CellContext`p2 -> {
- 315., 0., 0., -315.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {260.26244783796585`,
- 0., -260.26244783796585`, 0.}, $CellContext`p5 -> {
- 243.14766315031255`, -10., 242.9419397622771, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {283., 0., 0., 283.}, $CellContext`p2 -> {
+ 283., 0., 0., -283.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {228.24685127180615`,
+ 0., -228.24685127180615`, 0.}, $CellContext`p5 -> {
+ 211.1632597164722, -10., 210.9263431961174, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733588119892*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808632895104*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"0e2c208c-ba55-4ecd-8482-2ee47ecdfef4"],
+In[266]:=",ExpressionUUID->"b32a6d9a-ba6c-4831-93c8-30c64bb1b703"],
Cell[BoxData[
InterpretationBox[
@@ -35274,69 +15068,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "3.87911027084614351155413775063410171489292250963116797709759106`43.\
-488361580277626*^-14", ",", "0``58.69897000433602", ",",
- "0``57.28355849421085", ",", "0``57.20065945054642"}], "}"}]}],
+ RowBox[{
+ "-", "2.106843084818273860810469793076737755729197122044870449596824396`\
+43.269785764220835*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.34056520930038", ",", "0``57.24718356881173"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 3.87911027084614351155413775063410171489292250963116797709759106`43.\
-488361580277626*^-14, 0``58.69897000433602, 0``57.28355849421085,
- 0``57.20065945054642}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-2.106843084818273860810469793076737755729197122044870449596824396`43.\
+269785764220835*^-14, 0``58.69897000433602, 0``57.34056520930038,
+ 0``57.24718356881173}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797335881279984`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808632902133*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"9517163a-a6a4-4048-8d91-9707efba6e6e"],
+In[266]:=",ExpressionUUID->"c436659d-87ca-4197-9927-960ea2f64459"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733588135532*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798086329109163`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"dc6b4dda-392d-41a5-8c48-9f6c27faca94"],
+In[266]:=",ExpressionUUID->"31592db7-c0a2-4ee6-b106-368e0eee2769"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "260.2624478379658512495`10."}], ",",
- RowBox[{"S", "\[Rule]", "396900.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "228.2468512718061504074`10."}], ",",
+ RowBox[{"S", "\[Rule]", "320356.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "64126.6300773846252045984`10."}]}], ",",
+ RowBox[{"-", "56024.8771806344410568297`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "64126.6300773846252045984`10."}]}], ",",
+ RowBox[{"-", "56024.8771806344410568297`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "163965.3421379184862871625`10."}]}], ",",
+ RowBox[{"-", "129187.7178198422811306045`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "163965.3421379184862871625`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "90533.94443060620411959`10."}], ",",
+ RowBox[{"-", "129187.7178198422811306045`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "81319.1900009534532726256`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "630.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "566.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "300.8885913932367827216`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "285.1651977380014254124`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04116209827658894246513868195832337417`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "243.1476631503125602328`10."}], ",",
+ RowBox[{"-", "0.04740991498962313970454294890054068545`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "211.1632597164722012152`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "262.6200977156223969383`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "248.9589611970523617106`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733588143231*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808632918665*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"844cec0f-7922-4d14-95a1-64582d4f21a7"],
+In[266]:=",ExpressionUUID->"9f638638-f938-405b-8f04-d3478d43a5be"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "303.6384493670886`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "271.2938596491228`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 303.6384493670886}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 271.2938596491228}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733597892137*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808642833955*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"0e48878e-1089-473e-9b90-47cb060fd578"],
+In[266]:=",ExpressionUUID->"4c2a43d2-2eb2-4742-8897-eb3028f1b73f"],
Cell[BoxData[
InterpretationBox[
@@ -35347,12 +15150,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"316.`", ",", "0.`", ",", "0.`", ",", "316.`"}], "}"}]}]},
+ RowBox[{"285.`", ",", "0.`", ",", "0.`", ",", "285.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"316.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "316.`"}]}], "}"}]}]},
+ RowBox[{"285.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "285.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -35362,13 +15165,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"261.2628693248953`", ",", "0.`", ",",
- RowBox[{"-", "261.2628693248953`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"230.24796332203567`", ",", "0.`", ",",
+ RowBox[{"-", "230.24796332203567`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"244.14724166338306`", ",",
- RowBox[{"-", "10.`"}], ",", "243.94236124920653`", ",", "0.`"}],
+ RowBox[{"213.1621476662427`", ",",
+ RowBox[{"-", "10.`"}], ",", "212.9274552463469`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -35385,16 +15188,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {316., 0., 0., 316.}, $CellContext`p2 -> {
- 316., 0., 0., -316.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {261.2628693248953,
- 0., -261.2628693248953, 0.}, $CellContext`p5 -> {
- 244.14724166338306`, -10., 243.94236124920653`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {285., 0., 0., 285.}, $CellContext`p2 -> {
+ 285., 0., 0., -285.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {230.24796332203567`,
+ 0., -230.24796332203567`, 0.}, $CellContext`p5 -> {
+ 213.1621476662427, -10., 212.9274552463469, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733597900485*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798086428412447`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"070111c8-be63-402f-9077-b20b8b3f349b"],
+In[266]:=",ExpressionUUID->"fe2424b4-2ada-470b-b77c-826eb33c2adc"],
Cell[BoxData[
InterpretationBox[
@@ -35402,70 +15207,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "1.123383933362913216909658278190118136430867675270975653149285634`\
-42.94878113435846*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.28189231214846", ",", "0``57.19928292171762"}], "}"}]}],
+ "9.71399158215401782909042014500412701318371795596477035166766863`42.\
+93049287145448*^-15", ",", "0``58.69897000433602", ",",
+ "0``57.336774207038964", ",", "0``57.24412514432751"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.123383933362913216909658278190118136430867675270975653149285634`42.\
-94878113435846*^-14, 0``58.69897000433602, 0``57.28189231214846,
- 0``57.19928292171762}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 9.71399158215401782909042014500412701318371795596477035166766863`42.\
+93049287145448*^-15, 0``58.69897000433602, 0``57.336774207038964,
+ 0``57.24412514432751}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733597908125*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808642849621*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1ceded92-be83-491e-9d4e-c620f9f74a86"],
+In[266]:=",ExpressionUUID->"84f8e10a-be47-4565-b154-bcf444f9fcc5"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733597915505*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808642856657*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"86f8e2d4-ad75-4afe-8a13-7325cb94c5e5"],
+In[266]:=",ExpressionUUID->"758289e8-60dd-46c6-9e4a-0bd5fb8f50de"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "261.2628693248952913564`10."}], ",",
- RowBox[{"S", "\[Rule]", "399424.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "230.2479633220356731726`10."}], ",",
+ RowBox[{"S", "\[Rule]", "324900.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "64379.8098554080684592162`10."}]}], ",",
+ RowBox[{"-", "56531.2367366813275660653`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "64379.8098554080684592162`10."}]}], ",",
+ RowBox[{"-", "56531.2367366813275660653`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "165118.1334133338241372257`10."}]}], ",",
+ RowBox[{"-", "131241.3390935603337084103`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "165118.1334133338241372257`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "90821.8865374837906783057`10."}], ",",
+ RowBox[{"-", "131241.3390935603337084103`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "81895.1516604833184076405`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "632.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "570.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "301.3666977910528698075`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "286.1732895650523817552`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04099329017228051210646546116858209019`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "244.1472416633830701009`10."}], ",",
+ RowBox[{"-", "0.04696435219418030152714364954892959178`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "213.1621476662427092325`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "263.0356119869177398606`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "249.8345889040973829582`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733597923959*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808642863964*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"75f5bf9c-dfc5-4225-8c66-43fb45dfd7e4"],
+In[266]:=",ExpressionUUID->"0b0ecc8e-349b-4628-ad2c-f019e2166f47"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "304.6774447949527`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "273.38937282229966`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 304.6774447949527}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 273.38937282229966`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733607772291*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808652836623*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"56e27c9f-f5a3-4c34-938c-80376891fb36"],
+In[266]:=",ExpressionUUID->"a6a3275f-6d04-41cf-87db-e09667ab1f06"],
Cell[BoxData[
InterpretationBox[
@@ -35476,12 +15289,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"317.`", ",", "0.`", ",", "0.`", ",", "317.`"}], "}"}]}]},
+ RowBox[{"287.`", ",", "0.`", ",", "0.`", ",", "287.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"317.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "317.`"}]}], "}"}]}]},
+ RowBox[{"287.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "287.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -35491,13 +15304,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"262.2632873717442`", ",", "0.`", ",",
- RowBox[{"-", "262.2632873717442`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"232.2490546872689`", ",", "0.`", ",",
+ RowBox[{"-", "232.2490546872689`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"245.14682361653416`", ",",
- RowBox[{"-", "10.`"}], ",", "244.94277929605542`", ",", "0.`"}],
+ RowBox[{"215.1610563010095`", ",",
+ RowBox[{"-", "10.`"}], ",", "214.92854661158015`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -35514,16 +15327,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {317., 0., 0., 317.}, $CellContext`p2 -> {
- 317., 0., 0., -317.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {262.2632873717442,
- 0., -262.2632873717442, 0.}, $CellContext`p5 -> {
- 245.14682361653416`, -10., 244.94277929605542`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {287., 0., 0., 287.}, $CellContext`p2 -> {
+ 287., 0., 0., -287.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {232.2490546872689,
+ 0., -232.2490546872689, 0.}, $CellContext`p5 -> {
+ 215.1610563010095, -10., 214.92854661158015`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797336077806263`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798086528561497`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"fe03426d-4e91-46d2-9bcd-07f60026537f"],
+In[266]:=",ExpressionUUID->"45e2bdb6-f421-4d29-91ab-fc8b662df736"],
Cell[BoxData[
InterpretationBox[
@@ -35531,71 +15346,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "2.727089300192598387699834541244034944335955877921243029212666524`\
-43.33258010586489*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.28023250371049", ",", "0``57.197910742118275"}], "}"}]}],
+ "2.633886520093981334361400907838123626295532969485453901626857427`43.\
+360655171569626*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.333016049355756", ",", "0``57.241088107602025"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.727089300192598387699834541244034944335955877921243029212666524`43.\
-33258010586489*^-14, 0``58.69897000433602, 0``57.28023250371049,
- 0``57.197910742118275}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 2.633886520093981334361400907838123626295532969485453901626857427`43.\
+360655171569626*^-14, 0``58.69897000433602, 0``57.333016049355756,
+ 0``57.241088107602025}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797336077886057`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808652865568*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"7beb0339-a572-4ea8-bfc2-784459641eae"],
+In[266]:=",ExpressionUUID->"eddd3e57-ff64-4005-8fb6-31dee871bb74"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733607796219*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798086528802633`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"4e9c85c6-133b-43db-bed3-0c71abb2d1cd"],
+In[266]:=",ExpressionUUID->"3c67510c-e034-45e0-b35b-7c0adfccf895"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "262.263287371744183929`10."}], ",",
- RowBox[{"S", "\[Rule]", "401956.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "232.2490546872689094471`10."}], ",",
+ RowBox[{"S", "\[Rule]", "329476.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "64632.989633431511713834`10."}]}], ",",
+ RowBox[{"-", "57037.5962927282140753008`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "64632.989633431511713834`10."}]}], ",",
+ RowBox[{"-", "57037.5962927282140753008`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "166274.9241936858126109655`10."}]}], ",",
+ RowBox[{"-", "133310.9573904923540226264`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "166274.9241936858126109655`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "91109.8276542346620203446`10."}], ",",
+ RowBox[{"-", "133310.9573904923540226264`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "82471.1073664411248616583`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "634.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "574.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "301.8440452522372719937`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "287.1778323033327808701`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04082586156954348416965244898430940954`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "245.1468236165341614912`10."}], ",",
+ RowBox[{"-", "0.04652709078274300272609049022831720185`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "215.1610563010094895829`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "263.4504727887736293004`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "250.7071702584816578852`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733607803776*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808652893331*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"ed1ef3c3-ed32-48cc-a0ab-35158041801c"],
+In[266]:=",ExpressionUUID->"c68c6b2f-4c39-4cbc-8ceb-a70da5687bae"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "305.71619496855345`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "275.48356401384086`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 305.71619496855345`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 275.48356401384086`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733617830518*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808663077546*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"211eea56-cdb0-4e1f-8ba6-a469b4ae568c"],
+In[266]:=",ExpressionUUID->"23964b64-3151-43c3-9ed7-124bac911fc2"],
Cell[BoxData[
InterpretationBox[
@@ -35606,12 +15428,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"318.`", ",", "0.`", ",", "0.`", ",", "318.`"}], "}"}]}]},
+ RowBox[{"289.`", ",", "0.`", ",", "0.`", ",", "289.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"318.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "318.`"}]}], "}"}]}]},
+ RowBox[{"289.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "289.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -35621,13 +15443,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"263.2637020204571`", ",", "0.`", ",",
- RowBox[{"-", "263.2637020204571`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"234.25012593932314`", ",", "0.`", ",",
+ RowBox[{"-", "234.25012593932314`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"246.1464089678213`", ",",
- RowBox[{"-", "10.`"}], ",", "245.94319394476835`", ",", "0.`"}],
+ RowBox[{"217.15998504895518`", ",",
+ RowBox[{"-", "10.`"}], ",", "216.92961786363438`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -35644,16 +15466,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {318., 0., 0., 318.}, $CellContext`p2 -> {
- 318., 0., 0., -318.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {263.2637020204571,
- 0., -263.2637020204571, 0.}, $CellContext`p5 -> {
- 246.1464089678213, -10., 245.94319394476835`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {289., 0., 0., 289.}, $CellContext`p2 -> {
+ 289., 0., 0., -289.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {234.25012593932314`,
+ 0., -234.25012593932314`, 0.}, $CellContext`p5 -> {
+ 217.15998504895518`, -10., 216.92961786363438`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733617838853*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808663085815*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"2787b179-52da-489f-b5d4-3980786ca18e"],
+In[266]:=",ExpressionUUID->"99d69e46-acd0-46b6-8a47-529dd9fadfc6"],
Cell[BoxData[
InterpretationBox[
@@ -35661,69 +15485,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "4.100664524018673890116524373651128341143115349010614613156686762`43.\
-50836712973148*^-14", ",", "0``58.69897000433602", ",",
- "0``57.278579020273305", ",", "0``57.19654288435159"}], "}"}]}],
+ RowBox[{
+ "-", "5.720066711996830642407283567435660072708456947227273652288473738`\
+43.69444325982795*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.329290171287454", ",", "0``57.23807216157947"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 4.100664524018673890116524373651128341143115349010614613156686762`43.\
-50836712973148*^-14, 0``58.69897000433602, 0``57.278579020273305,
- 0``57.19654288435159}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-5.720066711996830642407283567435660072708456947227273652288473738`43.\
+69444325982795*^-14, 0``58.69897000433602, 0``57.329290171287454,
+ 0``57.23807216157947}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733617846867*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808663094542*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1e3c378c-bf56-462d-979b-f38991df515a"],
+In[266]:=",ExpressionUUID->"b628e002-7bea-452b-b785-f9e063620df6"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733617855225*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808663102728*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"2d525daa-683b-4483-b9ae-90d1edbdf47d"],
+In[266]:=",ExpressionUUID->"413bfb64-5a6f-44b4-9147-dff1947a88d8"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "263.2637020204571172144`10."}], ",",
- RowBox[{"S", "\[Rule]", "404496.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "234.2501259393231407557`10."}], ",",
+ RowBox[{"S", "\[Rule]", "334084.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "64886.1694114549549684518`10."}]}], ",",
+ RowBox[{"-", "57543.9558487751005845364`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "64886.1694114549549684518`10."}]}], ",",
+ RowBox[{"-", "57543.9558487751005845364`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "167435.714485010726548353`10."}]}], ",",
+ RowBox[{"-", "135396.5727929287753568133`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "167435.714485010726548353`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "91397.7677929313428463325`10."}], ",",
+ RowBox[{"-", "135396.5727929287753568133`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "83047.0572834077767260913`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "636.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "578.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "302.3206373917125473854`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "288.1788633529665664645`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04065979562030778470487906889339743175`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "246.1464089678212964833`10."}], ",",
+ RowBox[{"-", "0.04609790077759768784402190979274861945`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "217.1599850489551747347`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "263.8646831805624143342`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "251.5767366314747512309`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973361786381*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808663109922*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"975a93bb-18ea-4ec5-acb2-727aa54c402c"],
+In[266]:=",ExpressionUUID->"541ac11b-873c-40ee-b652-e1a3077f041d"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "306.7547021943574`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "277.5764604810997`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 306.7547021943574}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 277.5764604810997}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797336277076*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808673021039*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"6a17c120-4862-4f44-9a21-878d8b867007"],
+In[266]:=",ExpressionUUID->"5f4efb84-8758-4f42-a1f6-9ecff9edce3f"],
Cell[BoxData[
InterpretationBox[
@@ -35734,12 +15567,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"319.`", ",", "0.`", ",", "0.`", ",", "319.`"}], "}"}]}]},
+ RowBox[{"291.`", ",", "0.`", ",", "0.`", ",", "291.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"319.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "319.`"}]}], "}"}]}]},
+ RowBox[{"291.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "291.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -35749,13 +15582,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"264.26411331229946`", ",", "0.`", ",",
- RowBox[{"-", "264.26411331229946`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"236.25117762913175`", ",", "0.`", ",",
+ RowBox[{"-", "236.25117762913175`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"247.145997675979`", ",",
- RowBox[{"-", "10.`"}], ",", "246.9436052366107`", ",", "0.`"}],
+ RowBox[{"219.15893335914654`", ",",
+ RowBox[{"-", "10.`"}], ",", "218.93066955344298`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -35772,16 +15605,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {319., 0., 0., 319.}, $CellContext`p2 -> {
- 319., 0., 0., -319.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {264.26411331229946`,
- 0., -264.26411331229946`, 0.}, $CellContext`p5 -> {
- 247.145997675979, -10., 246.9436052366107, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {291., 0., 0., 291.}, $CellContext`p2 -> {
+ 291., 0., 0., -291.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {236.25117762913175`,
+ 0., -236.25117762913175`, 0.}, $CellContext`p5 -> {
+ 219.15893335914654`, -10., 218.93066955344298`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797336277162123`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808673028439*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"10f0ae7b-c41a-4485-90e3-a2ebd157ca07"],
+In[266]:=",ExpressionUUID->"431f66b5-adef-4dad-9ac9-ab4dc6b91b49"],
Cell[BoxData[
InterpretationBox[
@@ -35789,69 +15624,79 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "8.195874397777904892144384527234449221630939391588915968468837872`43.\
-80774461980839*^-14", ",", "0``58.69897000433602", ",",
- "0``57.27693181376818", ",", "0``57.195179321278836"}], "}"}]}],
+ RowBox[{
+ "-", "6.86896154620717753244724973003512880247714210127020548707972671`\
+43.77093810480375*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.32559602234388", ",", "0``57.23507701535011"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 8.195874397777904892144384527234449221630939391588915968468837872`43.\
-80774461980839*^-14, 0``58.69897000433602, 0``57.27693181376818,
- 0``57.195179321278836}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-6.86896154620717753244724973003512880247714210127020548707972671`43.\
+77093810480375*^-14, 0``58.69897000433602, 0``57.32559602234388,
+ 0``57.23507701535011}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733627724455*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808673035425*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"7c447ce8-fab2-4203-a1c9-d9c33d6e0625"],
+In[266]:=",ExpressionUUID->"bd01458c-d518-444d-ba97-cea373fe1af3"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973362773239*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798086730422564`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"12bc8635-8fc6-4d0d-b6ea-43bd0c3533b0"],
+In[266]:=",ExpressionUUID->"36afe035-f86f-453a-8377-c6dd7bdbe582"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "264.2641133122994574478`10."}], ",",
- RowBox[{"S", "\[Rule]", "407044.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "236.2511776291317460164`10."}], ",",
+ RowBox[{"S", "\[Rule]", "338724.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "65139.3491894783982230695`10."}]}], ",",
+ RowBox[{"-", "58050.3154048219870937719`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "65139.3491894783982230695`10."}]}], ",",
+ RowBox[{"-", "58050.3154048219870937719`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "168600.5042932470538517009`10."}]}], ",",
+ RowBox[{"-", "137498.1853801546761815189`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "168600.5042932470538517009`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "91685.7069654508636379898`10."}], ",",
+ RowBox[{"-", "137498.1853801546761815189`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "83623.0015699533566584673`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "638.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "582.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "302.7964777956488443637`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "289.1764194569698254851`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04049507574985969937321858093576319705`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "247.145997675978997202`10."}], ",",
+ RowBox[{"-", "0.04567656062258060559309192746827804127`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "219.1589333591465579852`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "264.2782461980288561459`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "252.4433188652268533993`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797336277404833`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808673049265*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"eee7c6ce-1dba-4010-a10d-84fc58e8a5af"],
+In[266]:=",ExpressionUUID->"471a88e3-2c12-4577-9e56-7cb15dba93b7"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "307.79296875`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "279.66808873720134`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 307.79296875}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 279.66808873720134`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733637578705*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808682924389*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d9daf9a1-3351-4137-8bfd-2cc651a3e148"],
+In[266]:=",ExpressionUUID->"f26797b6-8183-4f75-8eae-9d0fcddde3eb"],
Cell[BoxData[
InterpretationBox[
@@ -35862,12 +15707,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"320.`", ",", "0.`", ",", "0.`", ",", "320.`"}], "}"}]}]},
+ RowBox[{"293.`", ",", "0.`", ",", "0.`", ",", "293.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"320.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "320.`"}]}], "}"}]}]},
+ RowBox[{"293.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "293.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -35877,13 +15722,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"265.26452128787116`", ",", "0.`", ",",
- RowBox[{"-", "265.26452128787116`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"238.2522102876888`", ",", "0.`", ",",
+ RowBox[{"-", "238.2522102876888`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"248.14558970040727`", ",",
- RowBox[{"-", "10.`"}], ",", "247.9440132121824`", ",", "0.`"}],
+ RowBox[{"221.1579007005896`", ",",
+ RowBox[{"-", "10.`"}], ",", "220.93170221200003`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -35900,16 +15745,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {320., 0., 0., 320.}, $CellContext`p2 -> {
- 320., 0., 0., -320.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {265.26452128787116`,
- 0., -265.26452128787116`, 0.}, $CellContext`p5 -> {
- 248.14558970040727`, -10., 247.9440132121824, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {293., 0., 0., 293.}, $CellContext`p2 -> {
+ 293., 0., 0., -293.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {238.2522102876888,
+ 0., -238.2522102876888, 0.}, $CellContext`p5 -> {
+ 221.1579007005896, -10., 220.93170221200003`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733637587516*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980868293186*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"2f0a2d06-f47b-499a-9e39-705494fd91c1"],
+In[266]:=",ExpressionUUID->"be160f58-396d-4054-bae3-03f9d09ec919"],
Cell[BoxData[
InterpretationBox[
@@ -35917,69 +15764,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "6.800618502789848346561442236283038024362637429118554138356545502`43.\
-72533844307799*^-14", ",", "0``58.69897000433602", ",",
- "0``57.27529083667283", ",", "0``57.19382002601611"}], "}"}]}],
+ "3.897281616267572018601905490305382690303530199874379360751698865`43.\
+52183417721867*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.321933066017074", ",", "0``57.23210238398191"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 6.800618502789848346561442236283038024362637429118554138356545502`43.\
-72533844307799*^-14, 0``58.69897000433602, 0``57.27529083667283,
- 0``57.19382002601611}],
+ 3.897281616267572018601905490305382690303530199874379360751698865`43.\
+52183417721867*^-14, 0``58.69897000433602, 0``57.321933066017074,
+ 0``57.23210238398191}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797336375953836`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808682938797*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"671e9ea8-a53a-4c43-b39c-ecdea3e7c278"],
+In[266]:=",ExpressionUUID->"ee3f1965-bf57-4931-8a2e-76d22241f3f9"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797336376030693`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808682945698*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"447bd565-b60e-42ec-98c1-f7124fa02638"],
+In[266]:=",ExpressionUUID->"8789daec-2f4f-45b2-a52b-d25258a38d67"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "265.2645212878711618032`10."}], ",",
- RowBox[{"S", "\[Rule]", "409600.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "238.2522102876887970524`10."}], ",",
+ RowBox[{"S", "\[Rule]", "343396.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "65392.5289675018414776873`10."}]}], ",",
+ RowBox[{"-", "58556.6749608688736030074`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "65392.5289675018414776873`10."}]}], ",",
+ RowBox[{"-", "58556.6749608688736030074`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "169769.2936242375435540453`10."}]}], ",",
+ RowBox[{"-", "139615.7952285856350727045`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "169769.2936242375435540453`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "91973.6451834787363125954`10."}], ",",
+ RowBox[{"-", "139615.7952285856350727045`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "84198.9403789090001131314`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "640.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "586.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "303.271570021785484726`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "290.170536717477572565`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04033168565131809248982859913067384946`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "248.1455897004072788941`10."}], ",",
+ RowBox[{"-", "0.04526285680089620305645477248159513166`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "221.1579007005896146115`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "264.6911648535420304624`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "253.306947284966420362`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733637610836*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798086829528418`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"eabca750-4116-4286-b457-b11f19522dda"],
+In[266]:=",ExpressionUUID->"245aab8e-7929-4ce6-a8c7-50ce679aba55"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "308.8309968847352`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "281.75847457627117`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 308.8309968847352}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 281.75847457627117`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733647540492*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808693075881*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"02accbbc-6b3b-4093-a09c-f10d8cab66cf"],
+In[266]:=",ExpressionUUID->"91b0d13a-6d2d-4110-a799-7bba91d3ae36"],
Cell[BoxData[
InterpretationBox[
@@ -35990,12 +15846,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"321.`", ",", "0.`", ",", "0.`", ",", "321.`"}], "}"}]}]},
+ RowBox[{"295.`", ",", "0.`", ",", "0.`", ",", "295.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"321.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "321.`"}]}], "}"}]}]},
+ RowBox[{"295.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "295.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -36005,13 +15861,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"266.2649259871201`", ",", "0.`", ",",
- RowBox[{"-", "266.2649259871201`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"240.25322442694286`", ",", "0.`", ",",
+ RowBox[{"-", "240.25322442694286`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"249.14518500115824`", ",",
- RowBox[{"-", "10.`"}], ",", "248.94441791143132`", ",", "0.`"}],
+ RowBox[{"223.1568865613354`", ",",
+ RowBox[{"-", "10.`"}], ",", "222.9327163512541`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -36028,16 +15884,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {321., 0., 0., 321.}, $CellContext`p2 -> {
- 321., 0., 0., -321.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {266.2649259871201,
- 0., -266.2649259871201, 0.}, $CellContext`p5 -> {
- 249.14518500115824`, -10., 248.94441791143132`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {295., 0., 0., 295.}, $CellContext`p2 -> {
+ 295., 0., 0., -295.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {240.25322442694286`,
+ 0., -240.25322442694286`, 0.}, $CellContext`p5 -> {
+ 223.1568865613354, -10., 222.9327163512541, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733647549344*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808693086316*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"143785b6-3b6c-4948-b35c-e352771348c5"],
+In[266]:=",ExpressionUUID->"2baa4d8a-8ae8-43ae-8f45-56871aa56526"],
Cell[BoxData[
InterpretationBox[
@@ -36046,70 +15904,77 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "6.173720683366564499937431423966412317020410612654048907935624575`\
-43.68198195314361*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.2736560420032", ",", "0``57.192464971931145"}], "}"}]}],
+ "-", "1.1409643732876621471598784630089027144651248928891282713496134874`\
+43.98539007644063*^-13"}], ",", "0``58.69897000433602", ",",
+ "0``57.31830077931102", ",", "0``57.22914798835786"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-6.173720683366564499937431423966412317020410612654048907935624575`43.\
-68198195314361*^-14, 0``58.69897000433602, 0``57.2736560420032,
- 0``57.192464971931145}],
+{-1.1409643732876621471598784630089027144651248928891282713496134874`43.\
+98539007644063*^-13, 0``58.69897000433602, 0``57.31830077931102,
+ 0``57.22914798835786}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733647557542*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808693093733*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f282a84e-29d9-482d-976c-5599b29e6740"],
+In[266]:=",ExpressionUUID->"b356cf61-be92-4195-a161-45a9683f8035"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733647565571*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808693102125*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"97014005-47ca-4299-afe7-92c5307bef9f"],
+In[266]:=",ExpressionUUID->"c15cedad-703e-4b73-906f-20071b676ed5"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "266.2649259871200797534`10."}], ",",
- RowBox[{"S", "\[Rule]", "412164.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "240.2532244269428645111`10."}], ",",
+ RowBox[{"S", "\[Rule]", "348100.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "65645.7087455252847323051`10."}]}], ",",
+ RowBox[{"-", "59063.034516915760112243`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "65645.7087455252847323051`10."}]}], ",",
+ RowBox[{"-", "59063.034516915760112243`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "170942.0824837310912016619`10."}]}], ",",
+ RowBox[{"-", "141749.402411896290061577`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "170942.0824837310912016619`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "92261.5824585127826309896`10."}], ",",
+ RowBox[{"-", "141749.402411896290061577`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "84774.8738576241512704514`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "642.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "590.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "303.7459175997478038055`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "291.1612506114509586983`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0401696092802441137667084586093516703`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "249.1451850011582312005`10."}], ",",
+ RowBox[{"-", "0.0448565834735711985888757108094605926`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "223.1568865613353940836`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "265.1034421363437732816`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "254.1676517108487983032`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797336475736723`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808693110963*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"8c815745-c4c3-4742-8eee-87806e2382e8"],
+In[266]:=",ExpressionUUID->"b9ef5c1c-fb5d-49fa-8312-cfc9252970ba"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "309.86878881987576`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "283.8476430976431`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 309.86878881987576`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 283.8476430976431}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797336574056673`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808703140511*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"8df7b742-4bd8-4f80-b79d-24073ce5e467"],
+In[266]:=",ExpressionUUID->"f72f8099-ee7a-49f2-a43a-45d9e4593103"],
Cell[BoxData[
InterpretationBox[
@@ -36120,12 +15985,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"322.`", ",", "0.`", ",", "0.`", ",", "322.`"}], "}"}]}]},
+ RowBox[{"297.`", ",", "0.`", ",", "0.`", ",", "297.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"322.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "322.`"}]}], "}"}]}]},
+ RowBox[{"297.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "297.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -36135,13 +16000,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"267.26532744935525`", ",", "0.`", ",",
- RowBox[{"-", "267.26532744935525`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"242.25422054064396`", ",", "0.`", ",",
+ RowBox[{"-", "242.25422054064396`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"250.14478353892324`", ",",
- RowBox[{"-", "10.`"}], ",", "249.9448193736665`", ",", "0.`"}],
+ RowBox[{"225.1558904476344`", ",",
+ RowBox[{"-", "10.`"}], ",", "224.9337124649552`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -36158,16 +16023,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {322., 0., 0., 322.}, $CellContext`p2 -> {
- 322., 0., 0., -322.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {267.26532744935525`,
- 0., -267.26532744935525`, 0.}, $CellContext`p5 -> {
- 250.14478353892324`, -10., 249.9448193736665, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {297., 0., 0., 297.}, $CellContext`p2 -> {
+ 297., 0., 0., -297.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {242.25422054064396`,
+ 0., -242.25422054064396`, 0.}, $CellContext`p5 -> {
+ 225.1558904476344, -10., 224.9337124649552, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733657414857*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808703156562*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"da42c461-08a8-4d15-94e8-cb5d5a2d8e6c"],
+In[266]:=",ExpressionUUID->"76fb7f3c-fa72-4b81-828c-39f46840e1e1"],
Cell[BoxData[
InterpretationBox[
@@ -36175,70 +16042,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.2207745270711974286207649252969611667148801746738187591131531204`43.\
-97671959560484*^-13", ",", "0``58.69897000433602", ",",
- "0``57.27202738330535", ",", "0``57.191114132640195"}], "}"}]}],
+ RowBox[{
+ "-", "3.581524577096960532026536572737377361246662317356462134299319664`\
+43.479251495070315*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.31469865229105", ",", "0``57.2262135550188"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.2207745270711974286207649252969611667148801746738187591131531204`43.\
-97671959560484*^-13, 0``58.69897000433602, 0``57.27202738330535,
- 0``57.191114132640195}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-3.581524577096960532026536572737377361246662317356462134299319664`43.\
+479251495070315*^-14, 0``58.69897000433602, 0``57.31469865229105,
+ 0``57.2262135550188}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733657423142*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808703168871*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"034b989b-b754-49c1-be9b-74d2133f8795"],
+In[266]:=",ExpressionUUID->"619734f3-d816-4666-a6c0-a2246beccb29"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733657431241*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808703181408*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"161a45c3-e293-4eb8-b650-ab73b69d06ac"],
+In[266]:=",ExpressionUUID->"4862dfb2-0fe7-4710-9fa3-0ae39ce25d9a"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "267.26532744935525443`10."}], ",",
- RowBox[{"S", "\[Rule]", "414736.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "242.2542205406439563831`10."}], ",",
+ RowBox[{"S", "\[Rule]", "352836.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "65898.8885235487279869228`10."}]}], ",",
+ RowBox[{"-", "59569.3940729626466214785`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "65898.8885235487279869228`10."}]}], ",",
+ RowBox[{"-", "59569.3940729626466214785`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "172118.8708773847838529036`10."}]}], ",",
+ RowBox[{"-", "143899.0070011425100915403`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "172118.8708773847838529036`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "92549.518801866962605577`10."}], ",",
+ RowBox[{"-", "143899.0070011425100915403`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "85350.8021482103295540648`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "644.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "594.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "304.2195240313595694874`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "292.148596005885897795`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.04000883084938056246645124649990168201`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "250.1447835389232403386`10."}], ",",
+ RowBox[{"-", "0.04445754213725524317997576378636415509`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "225.1558904476343804928`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "265.5150810127939310454`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "255.0254614694677003266`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733657439663*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808703190228*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"430e7735-c4b9-4ec9-8027-defd655bcf4c"],
+In[266]:=",ExpressionUUID->"8e048c36-5dda-4700-ade3-ffb9e4e955b2"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "310.90634674922603`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "285.935618729097`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 310.90634674922603`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 285.935618729097}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733667306675*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798087130931873`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"12170ffc-cc22-4da7-a489-80b8ef5afd18"],
+In[266]:=",ExpressionUUID->"81e825b9-a987-4ad8-a7a8-dbfb22e77ceb"],
Cell[BoxData[
InterpretationBox[
@@ -36249,12 +16124,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"323.`", ",", "0.`", ",", "0.`", ",", "323.`"}], "}"}]}]},
+ RowBox[{"299.`", ",", "0.`", ",", "0.`", ",", "299.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"323.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "323.`"}]}], "}"}]}]},
+ RowBox[{"299.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "299.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -36264,13 +16139,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"268.2657257132589`", ",", "0.`", ",",
- RowBox[{"-", "268.2657257132589`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"244.25519910514424`", ",", "0.`", ",",
+ RowBox[{"-", "244.25519910514424`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"251.14438527501952`", ",",
- RowBox[{"-", "10.`"}], ",", "250.94521763757015`", ",", "0.`"}],
+ RowBox[{"227.1549118831341`", ",",
+ RowBox[{"-", "10.`"}], ",", "226.93469102945548`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -36287,16 +16162,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {323., 0., 0., 323.}, $CellContext`p2 -> {
- 323., 0., 0., -323.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {268.2657257132589,
- 0., -268.2657257132589, 0.}, $CellContext`p5 -> {
- 251.14438527501952`, -10., 250.94521763757015`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {299., 0., 0., 299.}, $CellContext`p2 -> {
+ 299., 0., 0., -299.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {244.25519910514424`,
+ 0., -244.25519910514424`, 0.}, $CellContext`p5 -> {
+ 227.1549118831341, -10., 226.93469102945548`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733667315646*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808713100606*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"84230d1d-c925-4f00-a1ce-df16a4940769"],
+In[266]:=",ExpressionUUID->"4e6cd0e8-5c91-425b-8b0b-6a65acb088db"],
Cell[BoxData[
InterpretationBox[
@@ -36304,69 +16181,79 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "7.18689073585180494856297840538899287161302070578380247709567061`43.\
-74527852855717*^-14", ",", "0``58.69897000433602", ",",
- "0``57.27040481464747", ",", "0``57.18976748200492"}], "}"}]}],
+ RowBox[{
+ "-", "3.127473418580670082150569434285760362352768459303893932789742291`\
+43.41746244751793*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.31112618765188", ",", "0``57.223298816011585"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 7.18689073585180494856297840538899287161302070578380247709567061`43.\
-74527852855717*^-14, 0``58.69897000433602, 0``57.27040481464747,
- 0``57.18976748200492}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-3.127473418580670082150569434285760362352768459303893932789742291`43.\
+41746244751793*^-14, 0``58.69897000433602, 0``57.31112618765188,
+ 0``57.223298816011585}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733667323915*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808713107562*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"8d50e6fb-7212-47ef-b215-2a10722f4775"],
+In[266]:=",ExpressionUUID->"cbd90c01-6f4c-4b39-b292-fee60332a73a"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797336673320312`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808713114397*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"9479bd30-2f6a-453f-8e90-e16a651bb9cb"],
+In[266]:=",ExpressionUUID->"f5bc4947-a196-4d46-9dc6-0eccc708f1e9"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "268.2657257132589165849`10."}], ",",
- RowBox[{"S", "\[Rule]", "417316.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "244.2551991051442428216`10."}], ",",
+ RowBox[{"S", "\[Rule]", "357604.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "66152.0683015721712415407`10."}]}], ",",
+ RowBox[{"-", "60075.7536290095331307141`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "66152.0683015721712415407`10."}]}], ",",
+ RowBox[{"-", "60075.7536290095331307141`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "173299.6588107652601138398`10."}]}], ",",
+ RowBox[{"-", "146064.6090648762572072883`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "173299.6588107652601138398`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "92837.4542246748266118156`10."}], ",",
+ RowBox[{"-", "146064.6090648762572072883`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "85926.7253877715948844237`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "646.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "598.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "304.6923927909504382804`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "293.1326071725416133161`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03984933482351749255387591225366552977`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "251.1443852750195279751`10."}], ",",
+ RowBox[{"-", "0.04406554130017093232876537899277563607`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "227.1549118831340985948`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "265.9260844266119262769`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "255.8804054050396869874`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797336673400173`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808713121564*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"b2e1e88d-3c22-45ab-ac38-fc0d9d8925a2"],
+In[266]:=",ExpressionUUID->"f5be3210-7a0f-437c-86f4-9ad4d78effc7"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "311.9436728395062`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "288.02242524916943`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 311.9436728395062}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 288.02242524916943`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797336771836033`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980872313586*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"69771414-255b-4f92-b58b-99c12fc8d405"],
+In[266]:=",ExpressionUUID->"8016eef7-4ad5-4e03-bb7a-037f953af076"],
Cell[BoxData[
InterpretationBox[
@@ -36377,12 +16264,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"324.`", ",", "0.`", ",", "0.`", ",", "324.`"}], "}"}]}]},
+ RowBox[{"301.`", ",", "0.`", ",", "0.`", ",", "301.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"324.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "324.`"}]}], "}"}]}]},
+ RowBox[{"301.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "301.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -36392,13 +16279,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"269.2661208168998`", ",", "0.`", ",",
- RowBox[{"-", "269.2661208168998`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"246.2561605801582`", ",", "0.`", ",",
+ RowBox[{"-", "246.2561605801582`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"252.1439901713786`", ",",
- RowBox[{"-", "10.`"}], ",", "251.94561274121102`", ",", "0.`"}],
+ RowBox[{"229.15395040812012`", ",",
+ RowBox[{"-", "10.`"}], ",", "228.93565250446943`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -36415,16 +16302,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {324., 0., 0., 324.}, $CellContext`p2 -> {
- 324., 0., 0., -324.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {269.2661208168998,
- 0., -269.2661208168998, 0.}, $CellContext`p5 -> {
- 252.1439901713786, -10., 251.94561274121102`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {301., 0., 0., 301.}, $CellContext`p2 -> {
+ 301., 0., 0., -301.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {246.2561605801582,
+ 0., -246.2561605801582, 0.}, $CellContext`p5 -> {
+ 229.15395040812012`, -10., 228.93565250446943`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733677192494*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808723143895*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"b840514b-d967-49b4-8471-03bf90cac273"],
+In[266]:=",ExpressionUUID->"3330d9c6-7a94-4fcb-b7be-05ceb6e38d93"],
Cell[BoxData[
InterpretationBox[
@@ -36432,69 +16321,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.544274557894257887399793257164287310505674127229278139199397387`43.\
-076119514917224*^-14", ",", "0``58.69897000433602", ",",
- "0``57.26878829061209", ",", "0``57.188424994129406"}], "}"}]}],
+ RowBox[{
+ "-", "5.58723854952804336868939372996366373072387455723153013902184485`\
+43.66657072722197*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.30758290030342", ",", "0``57.22040350874217"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.544274557894257887399793257164287310505674127229278139199397387`43.\
-076119514917224*^-14, 0``58.69897000433602, 0``57.26878829061209,
- 0``57.188424994129406}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-5.58723854952804336868939372996366373072387455723153013902184485`43.\
+66657072722197*^-14, 0``58.69897000433602, 0``57.30758290030342,
+ 0``57.22040350874217}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797336772001143`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808723150893*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"39b42f95-85f2-4c4c-9846-b119fc26aa8f"],
+In[266]:=",ExpressionUUID->"913091fe-9ae9-439b-af9b-e2a39b2c74fb"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733677207621*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808723157773*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"8df17835-6027-4400-8391-0da074c16ebc"],
+In[266]:=",ExpressionUUID->"8a2d2400-2592-4fdb-a9e1-714323deb8f4"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "269.2661208168997859502`10."}], ",",
- RowBox[{"S", "\[Rule]", "419904.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "246.2561605801581947617`10."}], ",",
+ RowBox[{"S", "\[Rule]", "362404.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "66405.2480795956144961584`10."}]}], ",",
+ RowBox[{"-", "60582.1131850564196399496`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "66405.2480795956144961584`10."}]}], ",",
+ RowBox[{"-", "60582.1131850564196399496`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "174484.4462893510612957471`10."}]}], ",",
+ RowBox[{"-", "148246.2086692552332465311`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "174484.4462893510612957471`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "93125.3887378933437962199`10."}], ",",
+ RowBox[{"-", "148246.2086692552332465311`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "86502.6437086233313797172`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "648.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "602.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "305.1645273256597623651`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "294.1133178022092412364`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03969110591448012667688141170402369397`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "252.1439901713786021836`10."}], ",",
+ RowBox[{"-", "0.04368039617509891293121759799695614363`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "229.1539504081201220571`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "266.3364552991157632109`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "256.7325118902736357411`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733677215273*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808723164803*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"2efe50d7-1c71-487b-8adb-798b8758182c"],
+In[266]:=",ExpressionUUID->"af245c59-2fc1-4a5d-882e-934b01a6faf8"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "312.9807692307692`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "290.1080858085809`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 312.9807692307692}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 290.1080858085809}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797336870106583`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808733454027*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"af993af8-135c-418a-b4d6-99ba40452f64"],
+In[266]:=",ExpressionUUID->"78971901-63a9-48b1-9123-9e6268bb05d1"],
Cell[BoxData[
InterpretationBox[
@@ -36505,12 +16403,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"325.`", ",", "0.`", ",", "0.`", ",", "325.`"}], "}"}]}]},
+ RowBox[{"303.`", ",", "0.`", ",", "0.`", ",", "303.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"325.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "325.`"}]}], "}"}]}]},
+ RowBox[{"303.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "303.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -36520,13 +16418,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"270.2665127977447`", ",", "0.`", ",",
- RowBox[{"-", "270.2665127977447`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"248.25710540948253`", ",", "0.`", ",",
+ RowBox[{"-", "248.25710540948253`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"253.14359819053365`", ",",
- RowBox[{"-", "10.`"}], ",", "252.94600472205596`", ",", "0.`"}],
+ RowBox[{"231.15300557879578`", ",",
+ RowBox[{"-", "10.`"}], ",", "230.93659733379377`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -36543,16 +16441,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {325., 0., 0., 325.}, $CellContext`p2 -> {
- 325., 0., 0., -325.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {270.2665127977447,
- 0., -270.2665127977447, 0.}, $CellContext`p5 -> {
- 253.14359819053365`, -10., 252.94600472205596`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {303., 0., 0., 303.}, $CellContext`p2 -> {
+ 303., 0., 0., -303.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {248.25710540948253`,
+ 0., -248.25710540948253`, 0.}, $CellContext`p5 -> {
+ 231.15300557879578`, -10., 230.93659733379377`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797336870199537`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808733462401*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"68b1632a-6b36-4a70-b468-0ac066022918"],
+In[266]:=",ExpressionUUID->"4a0d7b26-ec4b-4a5a-bc24-a23f1d279d3f"],
Cell[BoxData[
InterpretationBox[
@@ -36560,70 +16460,79 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "1.69658764672265044036637304177327771025001065320730677867617446`42.\
-11563294816399*^-15", ",", "0``58.69897000433602", ",",
- "0``57.26717776628844", ",", "0``57.18708664335715"}], "}"}]}],
+ RowBox[{
+ "-", "4.375848535817571862065624773043513648361559116252489187728835334`\
+43.557559661228865*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.30406831697335", ",", "0``57.21752737583371"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 1.69658764672265044036637304177327771025001065320730677867617446`42.\
-11563294816399*^-15, 0``58.69897000433602, 0``57.26717776628844,
- 0``57.18708664335715}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-4.375848535817571862065624773043513648361559116252489187728835334`43.\
+557559661228865*^-14, 0``58.69897000433602, 0``57.30406831697335,
+ 0``57.21752737583371}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733687028339*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808733469273*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e869b57e-b883-4a7c-b3f2-8c83050277dd"],
+In[266]:=",ExpressionUUID->"d209b240-0dc2-489d-b562-e110c902b43f"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733687036319*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798087334763536`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"23e6fa1a-2d8e-49e1-83cf-fec8070aad87"],
+In[266]:=",ExpressionUUID->"a564d5a6-325e-441b-9a43-0d2b20a013f9"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "270.2665127977447241392`10."}], ",",
- RowBox[{"S", "\[Rule]", "422500.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "248.2571054094825342418`10."}], ",",
+ RowBox[{"S", "\[Rule]", "367236.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "66658.4278576190577507762`10."}]}], ",",
+ RowBox[{"-", "61088.4727411033061491852`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "66658.4278576190577507762`10."}]}], ",",
+ RowBox[{"-", "61088.4727411033061491852`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "175673.2333185340706904753`10."}]}], ",",
+ RowBox[{"-", "150443.805878146415750507`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "175673.2333185340706904753`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "93413.3223523062560235424`10."}], ",",
+ RowBox[{"-", "150443.805878146415750507`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "87078.5572384994640291952`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "650.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "606.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "305.6359310557354217303`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "295.0907610185372510339`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03953412907623615522639296572227960108`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "253.1435981905336502485`10."}], ",",
+ RowBox[{"-", "0.04330192838836231076629413231749998288`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "231.1530055787957946909`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "266.746196529457304102`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "257.5818088369346341609`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733687044011*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808733483532*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"03036ac2-fa1a-4857-910e-eaac30cf1da6"],
+In[266]:=",ExpressionUUID->"6cdfc9ad-e586-4538-8274-5e47d5967b58"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "314.01763803680984`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "292.19262295081967`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 314.01763803680984`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 292.19262295081967`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733697025063*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808743523522*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"2c005ea8-3d17-429b-9839-885eeee0a432"],
+In[266]:=",ExpressionUUID->"2b880955-a5d7-4dcc-9438-8bea51d0552a"],
Cell[BoxData[
InterpretationBox[
@@ -36634,12 +16543,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"326.`", ",", "0.`", ",", "0.`", ",", "326.`"}], "}"}]}]},
+ RowBox[{"305.`", ",", "0.`", ",", "0.`", ",", "305.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"326.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "326.`"}]}], "}"}]}]},
+ RowBox[{"305.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "305.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -36649,13 +16558,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"271.2669016926706`", ",", "0.`", ",",
- RowBox[{"-", "271.2669016926706`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"250.25803402167924`", ",", "0.`", ",",
+ RowBox[{"-", "250.25803402167924`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"254.14320929560773`", ",",
- RowBox[{"-", "10.`"}], ",", "253.94639361698185`", ",", "0.`"}],
+ RowBox[{"233.15207696659917`", ",",
+ RowBox[{"-", "10.`"}], ",", "232.93752594599047`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -36672,16 +16581,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {326., 0., 0., 326.}, $CellContext`p2 -> {
- 326., 0., 0., -326.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {271.2669016926706,
- 0., -271.2669016926706, 0.}, $CellContext`p5 -> {
- 254.14320929560773`, -10., 253.94639361698185`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {305., 0., 0., 305.}, $CellContext`p2 -> {
+ 305., 0., 0., -305.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {250.25803402167924`,
+ 0., -250.25803402167924`, 0.}, $CellContext`p5 -> {
+ 233.15207696659917`, -10., 232.93752594599047`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733697033656*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808743531332*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"6f167375-cbcc-4e58-acb5-77fa019c6b4d"],
+In[266]:=",ExpressionUUID->"3642ad04-e85e-4585-9866-afb7cbb766b2"],
Cell[BoxData[
InterpretationBox[
@@ -36689,71 +16600,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "2.63621445467785844788730508698374750308732876661854158902195883`\
-43.3057031455939*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.265573197264935", ",", "0``57.18575240426808"}], "}"}]}],
+ "2.77721954393205063200975424068012008067495019812978549751405131`43.\
+35725038215058*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.300581975825914", ",", "0``57.214670164989236"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.63621445467785844788730508698374750308732876661854158902195883`43.\
-3057031455939*^-14, 0``58.69897000433602, 0``57.265573197264935,
- 0``57.18575240426808}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 2.77721954393205063200975424068012008067495019812978549751405131`43.\
+35725038215058*^-14, 0``58.69897000433602, 0``57.300581975825914,
+ 0``57.214670164989236}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733697041292*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808743538425*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"78a5adf9-6281-4880-b656-461440aac844"],
+In[266]:=",ExpressionUUID->"bb40d0db-f8c4-4d55-b7c3-18cbebe8814d"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733697048644*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798087435451527`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"86dac073-9051-4dad-8385-7ea49df37f7a"],
+In[266]:=",ExpressionUUID->"776ad4b3-62cf-4577-8ec2-d1d40934ff41"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "271.2669016926706149206`10."}], ",",
- RowBox[{"S", "\[Rule]", "425104.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "250.2580340216792365027`10."}], ",",
+ RowBox[{"S", "\[Rule]", "372100.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "66911.6076356425010053939`10."}]}], ",",
+ RowBox[{"-", "61594.8322971501926584207`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "66911.6076356425010053939`10."}]}], ",",
+ RowBox[{"-", "61594.8322971501926584207`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "176866.0199036212409282598`10."}]}], ",",
+ RowBox[{"-", "152657.4007532243342666334`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "176866.0199036212409282598`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "93701.2550785274972668275`10."}], ",",
+ RowBox[{"-", "152657.4007532243342666334`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "87654.4661007490408998181`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "652.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "610.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "306.1066073748286428302`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "296.0649693914311114372`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03937838950011882512463706379025851934`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "254.1432092956077314083`10."}], ",",
+ RowBox[{"-", "0.0429299657038455347324843500837582055`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "233.1520769665991639606`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "267.155310994854635455`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "258.4283237061126615557`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973369705619*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808743554282*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"b7e1ee99-b2d6-44f4-b8da-b09044d602d4"],
+In[266]:=",ExpressionUUID->"62b3e6de-449b-44b1-a495-578f3109c415"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "315.05428134556576`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "294.27605863192184`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 315.05428134556576`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 294.27605863192184`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733706891165*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980875476208*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"47c641a3-683d-4955-a8cf-044f4d41dc83"],
+In[266]:=",ExpressionUUID->"adc38275-ee26-458e-bbe4-53ec21cc7978"],
Cell[BoxData[
InterpretationBox[
@@ -36764,12 +16682,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"327.`", ",", "0.`", ",", "0.`", ",", "327.`"}], "}"}]}]},
+ RowBox[{"307.`", ",", "0.`", ",", "0.`", ",", "307.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"327.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "327.`"}]}], "}"}]}]},
+ RowBox[{"307.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "307.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -36779,13 +16697,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"272.2672875379761`", ",", "0.`", ",",
- RowBox[{"-", "272.2672875379761`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"252.2589468307236`", ",", "0.`", ",",
+ RowBox[{"-", "252.2589468307236`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"255.14282345030236`", ",",
- RowBox[{"-", "10.`"}], ",", "254.9467794622873`", ",", "0.`"}],
+ RowBox[{"235.15116415755472`", ",",
+ RowBox[{"-", "10.`"}], ",", "234.93843875503484`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -36802,16 +16720,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {327., 0., 0., 327.}, $CellContext`p2 -> {
- 327., 0., 0., -327.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {272.2672875379761,
- 0., -272.2672875379761, 0.}, $CellContext`p5 -> {
- 255.14282345030236`, -10., 254.9467794622873, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {307., 0., 0., 307.}, $CellContext`p2 -> {
+ 307., 0., 0., -307.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {252.2589468307236,
+ 0., -252.2589468307236, 0.}, $CellContext`p5 -> {
+ 235.15116415755472`, -10., 234.93843875503484`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973370689996*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798087547732677`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c0a1d791-60d1-4d38-b766-8d7959de2157"],
+In[266]:=",ExpressionUUID->"7d90ee3c-899b-4576-a654-1065602ef8b4"],
Cell[BoxData[
InterpretationBox[
@@ -36819,69 +16739,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- "5.751443807177344382895073251003027529863858422031423411374318589`43.\
-64316913701089*^-14", ",", "0``58.69897000433602", ",",
- "0``57.26397453962176", ",", "0``57.184422251675734"}], "}"}]}],
+ RowBox[{
+ "-", "4.322380638788447215493388032663705525810683487185444138255935837`\
+43.54652464239789*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.29712342609582", ",", "0``57.21183162885883"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
- 5.751443807177344382895073251003027529863858422031423411374318589`43.\
-64316913701089*^-14, 0``58.69897000433602, 0``57.26397453962176,
- 0``57.184422251675734}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
+{-4.322380638788447215493388032663705525810683487185444138255935837`43.\
+54652464239789*^-14, 0``58.69897000433602, 0``57.29712342609582,
+ 0``57.21183162885883}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733706908043*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808754784466*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c6f26a21-09cb-4f39-93f5-6a2c513df48e"],
+In[266]:=",ExpressionUUID->"dd94e709-9331-4171-a5ce-5b6680238fb9"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733706915757*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808754792173*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"ea273d13-d4e2-41a2-9166-c2de55202db5"],
+In[266]:=",ExpressionUUID->"84cca7ee-ff71-4cda-9fd2-6249ac84a833"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "272.2672875379760739634`10."}], ",",
- RowBox[{"S", "\[Rule]", "427716.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "252.2589468307236018063`10."}], ",",
+ RowBox[{"S", "\[Rule]", "376996.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "67164.7874136659442600117`10."}]}], ",",
+ RowBox[{"-", "62101.1918531970791676563`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "67164.7874136659442600117`10."}]}], ",",
+ RowBox[{"-", "62101.1918531970791676563`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "178062.80604983635237204`10."}]}], ",",
+ RowBox[{"-", "154886.9933540642915090757`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "178062.80604983635237204`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "93989.1869270045639153112`10."}], ",",
+ RowBox[{"-", "154886.9933540642915090757`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "88230.3704145227616817207`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "654.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "614.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "306.5765596502846854845`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "297.035974950043318287`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03922387261016269515285104459156008408`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "255.1428234503023562422`10."}], ",",
+ RowBox[{"-", "0.04256434176114867803097738376020375002`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "235.151164157554727661`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "267.5638015508214055137`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "259.2720835182056111333`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733706923443*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808754799559*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e4911070-e877-4c1f-bb95-5e434e096c50"],
+In[266]:=",ExpressionUUID->"e1e088d6-57ee-48af-b4e6-a2fc933a98f5"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "316.0907012195122`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "296.3584142394822`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 316.0907012195122}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 296.3584142394822}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733716691966*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808765877936*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1b21a76c-2833-4ca9-b399-5475dd51085f"],
+In[266]:=",ExpressionUUID->"6d3ac516-c299-479b-b273-b284e9f61fbf"],
Cell[BoxData[
InterpretationBox[
@@ -36892,12 +16821,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"328.`", ",", "0.`", ",", "0.`", ",", "328.`"}], "}"}]}]},
+ RowBox[{"309.`", ",", "0.`", ",", "0.`", ",", "309.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"328.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "328.`"}]}], "}"}]}]},
+ RowBox[{"309.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "309.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -36907,13 +16836,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"273.2676703693924`", ",", "0.`", ",",
- RowBox[{"-", "273.2676703693924`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"254.25984423661993`", ",", "0.`", ",",
+ RowBox[{"-", "254.25984423661993`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"256.14244061888587`", ",",
- RowBox[{"-", "10.`"}], ",", "255.94716229370366`", ",", "0.`"}],
+ RowBox[{"237.1502667516584`", ",",
+ RowBox[{"-", "10.`"}], ",", "236.93933616093116`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -36930,16 +16859,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {328., 0., 0., 328.}, $CellContext`p2 -> {
- 328., 0., 0., -328.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {273.2676703693924,
- 0., -273.2676703693924, 0.}, $CellContext`p5 -> {
- 256.14244061888587`, -10., 255.94716229370366`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {309., 0., 0., 309.}, $CellContext`p2 -> {
+ 309., 0., 0., -309.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {254.25984423661993`,
+ 0., -254.25984423661993`, 0.}, $CellContext`p5 -> {
+ 237.1502667516584, -10., 236.93933616093116`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733716699943*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808765886339*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1b0b0a63-cc9c-416c-a168-4cab2dec970e"],
+In[266]:=",ExpressionUUID->"f35380ff-4e4e-4a45-b944-357771e687fb"],
Cell[BoxData[
InterpretationBox[
@@ -36948,69 +16879,77 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "8.360125627907647640368107933061229761192142251981215279611011536`\
-43.80427896860717*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.26238174992362", ",", "0``57.183096160624345"}], "}"}]}],
+ "-", "4.239968552586738920010172035351064656750267939017222864390690555`\
+43.53534416473411*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.293692227736805", ",", "0``57.20901152491119"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-8.360125627907647640368107933061229761192142251981215279611011536`43.\
-80427896860717*^-14, 0``58.69897000433602, 0``57.26238174992362,
- 0``57.183096160624345}],
+{-4.239968552586738920010172035351064656750267939017222864390690555`43.\
+53534416473411*^-14, 0``58.69897000433602, 0``57.293692227736805,
+ 0``57.20901152491119}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797337167076187`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808765894496*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d50df4ff-007c-4730-b64c-6299281676a1"],
+In[266]:=",ExpressionUUID->"def2ed1a-0645-4b6d-a988-e2cf1bc73df8"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733716715145*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980876590245*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d9662a26-b9a3-4b2a-90e7-df563a69652e"],
+In[266]:=",ExpressionUUID->"405fb037-76f8-4df6-b20d-e45ecfdaac13"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "273.2676703693924196159`10."}], ",",
- RowBox[{"S", "\[Rule]", "430336.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "254.2598442366199265052`10."}], ",",
+ RowBox[{"S", "\[Rule]", "381924.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "67417.9671916893875146295`10."}]}], ",",
+ RowBox[{"-", "62607.5514092439656768918`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "67417.9671916893875146295`10."}]}], ",",
+ RowBox[{"-", "62607.5514092439656768918`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "179263.5917623214272680343`10."}]}], ",",
+ RowBox[{"-", "157132.5837382311145802305`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "179263.5917623214272680343`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "94277.1179080216723929873`10."}], ",",
+ RowBox[{"-", "157132.5837382311145802305`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "88806.2702949501806244381`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "656.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "618.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "307.0457912234292007329`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "298.0038091953694819825`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03907056405854905653587566621463211805`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "256.1424406188858694739`10."}], ",",
+ RowBox[{"-", "0.04220489582703953145312620369552049273`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "237.1502667516584037862`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "267.9716710313929461393`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "260.1131148626261405076`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733716722762*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808765912304*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"9a4f4542-63ee-4676-9ca1-220a4d4cb369"],
+In[266]:=",ExpressionUUID->"6fbe1793-1680-4911-96bf-67d3802b4ff0"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "317.1268996960486`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "298.4397106109325`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 317.1268996960486}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 298.4397106109325}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797337265470257`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808776142956*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"152d5d68-fb01-4ab3-8268-02fc8845ec8e"],
+In[266]:=",ExpressionUUID->"e3ab0f6f-1dd8-42ef-b3cb-dae0d0fe6c3e"],
Cell[BoxData[
InterpretationBox[
@@ -37021,12 +16960,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"329.`", ",", "0.`", ",", "0.`", ",", "329.`"}], "}"}]}]},
+ RowBox[{"311.`", ",", "0.`", ",", "0.`", ",", "311.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"329.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "329.`"}]}], "}"}]}]},
+ RowBox[{"311.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "311.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -37036,13 +16975,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"274.2680502220953`", ",", "0.`", ",",
- RowBox[{"-", "274.2680502220953`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"256.2607266259856`", ",", "0.`", ",",
+ RowBox[{"-", "256.2607266259856`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"257.142060766183`", ",",
- RowBox[{"-", "10.`"}], ",", "256.94754214640653`", ",", "0.`"}],
+ RowBox[{"239.14938436229272`", ",",
+ RowBox[{"-", "10.`"}], ",", "238.94021855029686`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -37059,16 +16998,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {329., 0., 0., 329.}, $CellContext`p2 -> {
- 329., 0., 0., -329.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {274.2680502220953,
- 0., -274.2680502220953, 0.}, $CellContext`p5 -> {257.142060766183, -10.,
- 256.94754214640653`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {311., 0., 0., 311.}, $CellContext`p2 -> {
+ 311., 0., 0., -311.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {256.2607266259856,
+ 0., -256.2607266259856, 0.}, $CellContext`p5 -> {
+ 239.14938436229272`, -10., 238.94021855029686`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973372655584*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808776156426*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"fb1e135f-be68-49f0-9b2d-c6cf6b294201"],
+In[266]:=",ExpressionUUID->"a54a476e-7c7d-412d-a8c9-c689255b135b"],
Cell[BoxData[
InterpretationBox[
@@ -37077,69 +17018,77 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "5.45355975775889222313284337971613880358274973195025868952900879`\
-42.61742418703157*^-15"}], ",", "0``58.69897000433602", ",",
- "0``57.26079478521273", ",", "0``57.181774106386044"}], "}"}]}],
+ "-", "1.283695000986334389589331296861354239985622425573232130981427194`\
+43.013641469606064*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.29028795108402", ",", "0``57.206209615309184"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.45355975775889222313284337971613880358274973195025868952900879`42.\
-61742418703157*^-15, 0``58.69897000433602, 0``57.26079478521273,
- 0``57.181774106386044}],
+{-1.283695000986334389589331296861354239985622425573232130981427194`43.\
+013641469606064*^-14, 0``58.69897000433602, 0``57.29028795108402,
+ 0``57.206209615309184}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733726564106*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808776171587*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"af9952ae-fc2d-4541-8819-d66a70bf38f9"],
+In[266]:=",ExpressionUUID->"8cff45db-fb94-4e46-94db-a5db8216d2bb"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733726571706*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808776184833*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c5598e87-4a34-4450-b2f9-9ce800554847"],
+In[266]:=",ExpressionUUID->"059281a0-50a7-4041-b015-8792a04db84e"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "274.2680502220953258075`10."}], ",",
- RowBox[{"S", "\[Rule]", "432964.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "256.2607266259856260149`10."}], ",",
+ RowBox[{"S", "\[Rule]", "386884.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "67671.1469697128307692473`10."}]}], ",",
+ RowBox[{"-", "63113.9109652908521861273`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "67671.1469697128307692473`10."}]}], ",",
+ RowBox[{"-", "63113.9109652908521861273`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "180468.3770461387243813078`10."}]}], ",",
+ RowBox[{"-", "159394.1719613630593812559`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "180468.3770461387243813078`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "94565.0480317031131057894`10."}], ",",
+ RowBox[{"-", "159394.1719613630593812559`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "89382.1658533078292746639`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "658.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "622.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "307.5143054098509952859`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "298.9685031124647238542`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03891844972115780711845013419727500689`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "257.1420607661830414301`10."}], ",",
+ RowBox[{"-", "0.04185147255942181468086999051518660551`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "239.1493843622927338393`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "268.3789222493498036142`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "260.9514439072408578796`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733726579405*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808776192492*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"61ae7cca-70d0-4e3f-8f82-c86514764640"],
+In[266]:=",ExpressionUUID->"03cb83e6-96e2-4474-a20c-3a6cd7e248e3"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "318.1628787878788`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "300.5199680511182`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 318.1628787878788}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 300.5199680511182}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733736420735*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808786337887*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"ffc110bc-cb04-4bdf-aad4-d6af8c8d74b8"],
+In[266]:=",ExpressionUUID->"75fbf2ab-e572-4e16-bdd7-2878671c352f"],
Cell[BoxData[
InterpretationBox[
@@ -37150,12 +17099,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"330.`", ",", "0.`", ",", "0.`", ",", "330.`"}], "}"}]}]},
+ RowBox[{"313.`", ",", "0.`", ",", "0.`", ",", "313.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"330.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "330.`"}]}], "}"}]}]},
+ RowBox[{"313.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "313.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -37165,13 +17114,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"275.2684271307148`", ",", "0.`", ",",
- RowBox[{"-", "275.2684271307148`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"258.26159437260674`", ",", "0.`", ",",
+ RowBox[{"-", "258.26159437260674`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"258.1416838575635`", ",",
- RowBox[{"-", "10.`"}], ",", "257.94791905502603`", ",", "0.`"}],
+ RowBox[{"241.14851661567167`", ",",
+ RowBox[{"-", "10.`"}], ",", "240.94108629691797`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -37188,16 +17137,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {330., 0., 0., 330.}, $CellContext`p2 -> {
- 330., 0., 0., -330.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {275.2684271307148,
- 0., -275.2684271307148, 0.}, $CellContext`p5 -> {
- 258.1416838575635, -10., 257.94791905502603`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {313., 0., 0., 313.}, $CellContext`p2 -> {
+ 313., 0., 0., -313.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {258.26159437260674`,
+ 0., -258.26159437260674`, 0.}, $CellContext`p5 -> {
+ 241.14851661567167`, -10., 240.94108629691797`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973373642951*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808786345684*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"9e35134c-d3de-4ed4-be96-6cbb566a64ac"],
+In[266]:=",ExpressionUUID->"3724af36-bf69-4476-8c10-4ee55677eab7"],
Cell[BoxData[
InterpretationBox[
@@ -37205,70 +17156,77 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "2.113954379481472526707182222703044844717883303158999294478928787`\
-43.20452167950763*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.259213603001704", ",", "0``57.18045606445813"}], "}"}]}],
+ "2.213990856421142141340345073302013714070523045295952611563006085`43.\
+247571494075686*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.286910176529595", ",", "0``57.20342566678957"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.113954379481472526707182222703044844717883303158999294478928787`43.\
-20452167950763*^-14, 0``58.69897000433602, 0``57.259213603001704,
- 0``57.18045606445813}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 2.213990856421142141340345073302013714070523045295952611563006085`43.\
+247571494075686*^-14, 0``58.69897000433602, 0``57.286910176529595,
+ 0``57.20342566678957}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733736437306*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798087863525057`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"12c70c73-1ab2-4a79-9911-f5c6b03e5d3d"],
+In[266]:=",ExpressionUUID->"b23d55c2-d716-44b4-aaf8-7e70e3da6899"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733736445354*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808786361287*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"41d9cd2f-9b2d-45c3-a568-5ac28b86ff4a"],
+In[266]:=",ExpressionUUID->"5d84938f-4526-4086-966a-c340a31846a6"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "275.2684271307148264896`10."}], ",",
- RowBox[{"S", "\[Rule]", "435600.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "258.2615943726067371244`10."}], ",",
+ RowBox[{"S", "\[Rule]", "391876.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "67924.3267477362740238651`10."}]}], ",",
+ RowBox[{"-", "63620.2705213377386953629`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "67924.3267477362740238651`10."}]}], ",",
+ RowBox[{"-", "63620.2705213377386953629`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "181677.1619062717854831135`10."}]}], ",",
+ RowBox[{"-", "161671.7580772518174399011`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "181677.1619062717854831135`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "94852.9773080161299279519`10."}], ",",
+ RowBox[{"-", "161671.7580772518174399011`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "89958.0571971791015925157`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "660.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "626.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "307.9821054996801757009`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "299.9300871822950369085`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03876751569322323784786131435793154963`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "258.141683857563525062`10."}], ",",
+ RowBox[{"-", "0.04150392178308991285238282016367928742`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "241.1485166156716577066`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "268.7855579964377713472`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "261.7870964075509612542`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797337364536467`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798087863703623`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"84cab3d5-a050-431b-b4c4-e6ff65a9e8d5"],
+In[266]:=",ExpressionUUID->"328dca0a-c9fd-4da3-acdc-88a31b0fce70"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "319.1986404833837`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "302.5992063492063`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 319.1986404833837}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 302.5992063492063}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733746335981*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808796578824*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c290c93c-f946-41d3-a7e2-7b8242798f5b"],
+In[266]:=",ExpressionUUID->"cea20dc0-2d87-4f77-bc59-3c528c3e6123"],
Cell[BoxData[
InterpretationBox[
@@ -37279,12 +17237,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"331.`", ",", "0.`", ",", "0.`", ",", "331.`"}], "}"}]}]},
+ RowBox[{"315.`", ",", "0.`", ",", "0.`", ",", "315.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"331.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "331.`"}]}], "}"}]}]},
+ RowBox[{"315.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "315.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -37294,13 +17252,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"276.2688011293464`", ",", "0.`", ",",
- RowBox[{"-", "276.2688011293464`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"260.26244783796585`", ",", "0.`", ",",
+ RowBox[{"-", "260.26244783796585`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"259.1413098589319`", ",",
- RowBox[{"-", "10.`"}], ",", "258.9482930536576`", ",", "0.`"}],
+ RowBox[{"243.14766315031255`", ",",
+ RowBox[{"-", "10.`"}], ",", "242.9419397622771`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -37317,16 +17275,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {331., 0., 0., 331.}, $CellContext`p2 -> {
- 331., 0., 0., -331.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {276.2688011293464,
- 0., -276.2688011293464, 0.}, $CellContext`p5 -> {
- 259.1413098589319, -10., 258.9482930536576, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {315., 0., 0., 315.}, $CellContext`p2 -> {
+ 315., 0., 0., -315.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {260.26244783796585`,
+ 0., -260.26244783796585`, 0.}, $CellContext`p5 -> {
+ 243.14766315031255`, -10., 242.9419397622771, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797337463447*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808796604301*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"88f43237-67c4-4031-ac49-6e63269f8222"],
+In[266]:=",ExpressionUUID->"931b9036-1c00-42b3-8004-4570a4f36ee1"],
Cell[BoxData[
InterpretationBox[
@@ -37334,70 +17294,77 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "8.151717252381554087771008314367445034975654502707583301188278388`\
-43.78936112236916*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.2576381612668", ",", "0``57.1791420105603"}], "}"}]}],
+ "3.87911027084614351155413775063410171489292250963116797709759106`43.\
+488361580277626*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.28355849421085", ",", "0``57.20065945054642"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-8.151717252381554087771008314367445034975654502707583301188278388`43.\
-78936112236916*^-14, 0``58.69897000433602, 0``57.2576381612668,
- 0``57.1791420105603}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 3.87911027084614351155413775063410171489292250963116797709759106`43.\
+488361580277626*^-14, 0``58.69897000433602, 0``57.28355849421085,
+ 0``57.20065945054642}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733746352553*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798087966410837`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"3051ea11-b277-4ae2-9b72-ebd7be93e9a1"],
+In[266]:=",ExpressionUUID->"9433585a-a639-4e6c-8bcb-fb20e6057c7d"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797337463600483`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798087966531553`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"365d358f-582f-4322-b900-4d7daead3973"],
+In[266]:=",ExpressionUUID->"a461e1f1-e267-4665-82f9-c34a00f57726"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "276.2688011293464001028`10."}], ",",
- RowBox[{"S", "\[Rule]", "438244.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "260.2624478379658512495`10."}], ",",
+ RowBox[{"S", "\[Rule]", "396900.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "68177.5065257597172784828`10."}]}], ",",
+ RowBox[{"-", "64126.6300773846252045984`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "68177.5065257597172784828`10."}]}], ",",
+ RowBox[{"-", "64126.6300773846252045984`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "182889.9463476273168680564`10."}]}], ",",
+ RowBox[{"-", "163965.3421379184862871625`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "182889.9463476273168680564`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "95140.9057467741105420121`10."}], ",",
+ RowBox[{"-", "163965.3421379184862871625`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "90533.94443060620411959`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "662.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "630.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "308.4491947578630177385`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "300.8885913932367827216`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03861774828509050361057643113978013109`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "259.1413098589318910711`10."}], ",",
+ RowBox[{"-", "0.04116209827658894246513868195832337417`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "243.1476631503125602328`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "269.1915810435855799936`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "262.6200977156223969383`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733746367745*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808796679742*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"b7f3370d-d908-4c01-b7c2-d81c369a7047"],
+In[266]:=",ExpressionUUID->"d2ba80a9-2e0e-480c-872a-1827fb83fd4b"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "320.234186746988`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "304.6774447949527`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 320.234186746988}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 304.6774447949527}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733756155291*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808806591693*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"3bb9b885-5013-45ba-af65-529033ca1a91"],
+In[266]:=",ExpressionUUID->"42848de5-2a63-41af-b418-e30a673c60c1"],
Cell[BoxData[
InterpretationBox[
@@ -37408,12 +17375,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"332.`", ",", "0.`", ",", "0.`", ",", "332.`"}], "}"}]}]},
+ RowBox[{"317.`", ",", "0.`", ",", "0.`", ",", "317.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"332.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "332.`"}]}], "}"}]}]},
+ RowBox[{"317.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "317.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -37423,13 +17390,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"277.2691722515611`", ",", "0.`", ",",
- RowBox[{"-", "277.2691722515611`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"262.2632873717442`", ",", "0.`", ",",
+ RowBox[{"-", "262.2632873717442`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"260.1409387367172`", ",",
- RowBox[{"-", "10.`"}], ",", "259.9486641758723`", ",", "0.`"}],
+ RowBox[{"245.14682361653416`", ",",
+ RowBox[{"-", "10.`"}], ",", "244.94277929605542`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -37446,16 +17413,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {332., 0., 0., 332.}, $CellContext`p2 -> {
- 332., 0., 0., -332.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {277.2691722515611,
- 0., -277.2691722515611, 0.}, $CellContext`p5 -> {
- 260.1409387367172, -10., 259.9486641758723, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {317., 0., 0., 317.}, $CellContext`p2 -> {
+ 317., 0., 0., -317.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {262.2632873717442,
+ 0., -262.2632873717442, 0.}, $CellContext`p5 -> {
+ 245.14682361653416`, -10., 244.94277929605542`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733756164146*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808806600943*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"cc48ec1b-8cfb-4e66-ac55-0f1bacb45bfe"],
+In[266]:=",ExpressionUUID->"83a345b1-89cb-4ae9-93a6-2fc1fa4b760c"],
Cell[BoxData[
InterpretationBox[
@@ -37464,69 +17433,77 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.0207488670717995234448155744898876378163301833021475561068013075`\
-43.88572083154026*^-13"}], ",", "0``58.69897000433602", ",",
- "0``57.25606841844113", ",", "0``57.17783192063199"}], "}"}]}],
+ "-", "2.727089300192598387699834541244034944335955877921243029212666524`\
+43.33258010586489*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.28023250371049", ",", "0``57.197910742118275"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.0207488670717995234448155744898876378163301833021475561068013075`43.\
-88572083154026*^-13, 0``58.69897000433602, 0``57.25606841844113,
- 0``57.17783192063199}],
+{-2.727089300192598387699834541244034944335955877921243029212666524`43.\
+33258010586489*^-14, 0``58.69897000433602, 0``57.28023250371049,
+ 0``57.197910742118275}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733756172449*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808806608017*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"945025c2-51d6-47e9-9da0-7986f7bb8a4a"],
+In[266]:=",ExpressionUUID->"87694c90-3a67-415f-8ffd-192dd9488433"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733756180586*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808806614978*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"986f7ff2-e4a3-4f48-aa44-9f08168794c7"],
+In[266]:=",ExpressionUUID->"9d440630-7f6c-4cc4-9dc6-500bbdcd0558"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "277.2691722515610877053`10."}], ",",
- RowBox[{"S", "\[Rule]", "440896.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "262.263287371744183929`10."}], ",",
+ RowBox[{"S", "\[Rule]", "401956.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "68430.6863037831605331006`10."}]}], ",",
+ RowBox[{"-", "64632.989633431511713834`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "68430.6863037831605331006`10."}]}], ",",
+ RowBox[{"-", "64632.989633431511713834`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "184106.7303750365622363461`10."}]}], ",",
+ RowBox[{"-", "166274.9241936858126109655`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "184106.7303750365622363461`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "95428.833357639498646607`10."}], ",",
+ RowBox[{"-", "166274.9241936858126109655`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "91109.8276542346620203446`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "664.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "634.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "308.9155764244326651669`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "301.8440452522372719937`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03846913401807036928276759275034451618`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "260.1409387367171829109`10."}], ",",
+ RowBox[{"-", "0.04082586156954348416965244898430940954`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "245.1468236165341614912`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "269.5969941411194528311`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "263.4504727887736293004`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733756188764*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980880662218*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"514b5a4d-d77c-4159-ad3e-467fc93da91b"],
+In[266]:=",ExpressionUUID->"2626e11d-bca8-4223-a91e-70f8f93ea5ca"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "321.2695195195195`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "306.7547021943574`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 321.2695195195195}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 306.7547021943574}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733766049967*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798088165199203`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"48d0e3ad-3bf2-42f9-a0bc-17041fa1a244"],
+In[266]:=",ExpressionUUID->"6779bfc6-a774-46e8-8123-95a86c1f85e8"],
Cell[BoxData[
InterpretationBox[
@@ -37537,12 +17514,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"333.`", ",", "0.`", ",", "0.`", ",", "333.`"}], "}"}]}]},
+ RowBox[{"319.`", ",", "0.`", ",", "0.`", ",", "319.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"333.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "333.`"}]}], "}"}]}]},
+ RowBox[{"319.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "319.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -37552,13 +17529,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"278.2695405304155`", ",", "0.`", ",",
- RowBox[{"-", "278.2695405304155`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"264.26411331229946`", ",", "0.`", ",",
+ RowBox[{"-", "264.26411331229946`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"261.14057045786285`", ",",
- RowBox[{"-", "10.`"}], ",", "260.9490324547267`", ",", "0.`"}],
+ RowBox[{"247.145997675979`", ",",
+ RowBox[{"-", "10.`"}], ",", "246.9436052366107`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -37575,16 +17552,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {333., 0., 0., 333.}, $CellContext`p2 -> {
- 333., 0., 0., -333.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {278.2695405304155,
- 0., -278.2695405304155, 0.}, $CellContext`p5 -> {
- 261.14057045786285`, -10., 260.9490324547267, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {319., 0., 0., 319.}, $CellContext`p2 -> {
+ 319., 0., 0., -319.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {264.26411331229946`,
+ 0., -264.26411331229946`, 0.}, $CellContext`p5 -> {
+ 247.145997675979, -10., 246.9436052366107, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733766058247*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808816527347*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c3d265e9-36e4-4c4c-883a-a27281f428f7"],
+In[266]:=",ExpressionUUID->"4cd005d6-c3b5-4d4d-9b5d-b8203dda30fb"],
Cell[BoxData[
InterpretationBox[
@@ -37592,70 +17571,77 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "4.463320712858525724277223745480567858477977136046457490696849273`\
-43.525153869449774*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.25450433340811", ",", "0``57.1765257708297"}], "}"}]}],
+ "8.195874397777904892144384527234449221630939391588915968468837872`43.\
+80774461980839*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.27693181376818", ",", "0``57.195179321278836"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-4.463320712858525724277223745480567858477977136046457490696849273`43.\
-525153869449774*^-14, 0``58.69897000433602, 0``57.25450433340811,
- 0``57.1765257708297}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 8.195874397777904892144384527234449221630939391588915968468837872`43.\
+80774461980839*^-14, 0``58.69897000433602, 0``57.27693181376818,
+ 0``57.195179321278836}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733766066457*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808816534706*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"bf3eaa59-5b2b-4944-aa96-47f74041beb3"],
+In[266]:=",ExpressionUUID->"7b59ebf5-59df-4a1e-9920-2cba5a3f9f0e"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733766074141*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808816541644*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"9e923df4-141f-4ec7-a72f-9fb7b93b2c72"],
+In[266]:=",ExpressionUUID->"28d280d8-6dad-4ab1-9f1b-1abda1f66072"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "278.2695405304154974147`10."}], ",",
- RowBox[{"S", "\[Rule]", "443556.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "264.2641133122994574478`10."}], ",",
+ RowBox[{"S", "\[Rule]", "407044.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "68683.8660818066037877183`10."}]}], ",",
+ RowBox[{"-", "65139.3491894783982230695`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "68683.8660818066037877183`10."}]}], ",",
+ RowBox[{"-", "65139.3491894783982230695`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "185327.5139932567212781578`10."}]}], ",",
+ RowBox[{"-", "168600.5042932470538517009`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "185327.5139932567212781578`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "95716.7601501266734428346`10."}], ",",
+ RowBox[{"-", "168600.5042932470538517009`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "91685.7069654508636379898`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "666.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "638.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "309.381253714776121118`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "302.7964777956488443637`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03832165962038946074422188284560682172`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "261.1405704578628306433`10."}], ",",
+ RowBox[{"-", "0.04049507574985969937321858093576319705`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "247.145997675978997202`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "270.0018000189749157821`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "264.2782461980288561459`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733766082197*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808816548974*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"2940de0a-2a74-43fe-b0d5-38566a6dbfcb"],
+In[266]:=",ExpressionUUID->"eb9d3282-fa73-4603-aa28-f6e4dd3fa190"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "322.3046407185629`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "308.8309968847352`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 322.3046407185629}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 308.8309968847352}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733775935041*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808827133543*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"5a73d8ba-eb39-431b-8609-e5d04cf8b9e5"],
+In[266]:=",ExpressionUUID->"66fdd51a-0d2b-41d7-8373-2ff4cbb91f0d"],
Cell[BoxData[
InterpretationBox[
@@ -37666,12 +17652,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"334.`", ",", "0.`", ",", "0.`", ",", "334.`"}], "}"}]}]},
+ RowBox[{"321.`", ",", "0.`", ",", "0.`", ",", "321.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"334.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "334.`"}]}], "}"}]}]},
+ RowBox[{"321.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "321.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -37681,13 +17667,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"279.2699059984615`", ",", "0.`", ",",
- RowBox[{"-", "279.2699059984615`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"266.2649259871201`", ",", "0.`", ",",
+ RowBox[{"-", "266.2649259871201`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"262.14020498981677`", ",",
- RowBox[{"-", "10.`"}], ",", "261.94939792277273`", ",", "0.`"}],
+ RowBox[{"249.14518500115824`", ",",
+ RowBox[{"-", "10.`"}], ",", "248.94441791143132`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -37704,16 +17690,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {334., 0., 0., 334.}, $CellContext`p2 -> {
- 334., 0., 0., -334.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {279.2699059984615,
- 0., -279.2699059984615, 0.}, $CellContext`p5 -> {
- 262.14020498981677`, -10., 261.94939792277273`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {321., 0., 0., 321.}, $CellContext`p2 -> {
+ 321., 0., 0., -321.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {266.2649259871201,
+ 0., -266.2649259871201, 0.}, $CellContext`p5 -> {
+ 249.14518500115824`, -10., 248.94441791143132`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797337759447613`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798088271433477`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"58a12739-e20c-42d8-a334-2c048c7d8814"],
+In[266]:=",ExpressionUUID->"dc8fcf6a-02a2-4938-b754-ae4fadcabded"],
Cell[BoxData[
InterpretationBox[
@@ -37722,69 +17710,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.0743068313379001693149522324666403494678966343557029032564071457`\
-43.90532187920697*^-13"}], ",", "0``58.69897000433602", ",",
- "0``57.252945865494915", ",", "0``57.17522353752445"}], "}"}]}],
+ "-", "6.173720683366564499937431423966412317020410612654048907935624575`\
+43.68198195314361*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.2736560420032", ",", "0``57.192464971931145"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.0743068313379001693149522324666403494678966343557029032564071457`43.\
-90532187920697*^-13, 0``58.69897000433602, 0``57.252945865494915,
- 0``57.17522353752445}],
+{-6.173720683366564499937431423966412317020410612654048907935624575`43.\
+68198195314361*^-14, 0``58.69897000433602, 0``57.2736560420032,
+ 0``57.192464971931145}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733775952853*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808827150598*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"69af438a-d2b8-431d-bb80-8091589b1568"],
+In[266]:=",ExpressionUUID->"bf6fa01c-1fe8-4842-b40b-9ee652387180"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733775960915*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808827157754*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f9d0c22b-0d6e-49c8-8598-32beb2201675"],
+In[266]:=",ExpressionUUID->"ebf99ddd-9870-4990-850d-0b4a34d8bcc7"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "279.2699059984615246321`10."}], ",",
- RowBox[{"S", "\[Rule]", "446224.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "266.2649259871200797534`10."}], ",",
+ RowBox[{"S", "\[Rule]", "412164.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "68937.0458598300470423361`10."}]}], ",",
+ RowBox[{"-", "65645.7087455252847323051`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "68937.0458598300470423361`10."}]}], ",",
+ RowBox[{"-", "65645.7087455252847323051`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "186552.297206972298454275`10."}]}], ",",
+ RowBox[{"-", "170942.0824837310912016619`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "186552.297206972298454275`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "96004.6861336047473170249`10."}], ",",
+ RowBox[{"-", "170942.0824837310912016619`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "92261.5824585127826309896`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "668.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "642.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "309.8462298198975138161`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "303.7459175997478038055`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03817531202323348840323570282770146119`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "262.1402049898167406283`10."}], ",",
+ RowBox[{"-", "0.0401696092802441137667084586093516703`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "249.1451850011582312005`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "270.4060013869058335334`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "265.1034421363437732816`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733775968832*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808827165914*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e06da46b-5e11-425b-abc4-1cfbc2a00b88"],
+In[266]:=",ExpressionUUID->"9a25117f-462a-4702-a604-d441780d2c2c"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "323.339552238806`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "310.90634674922603`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 323.339552238806}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 310.90634674922603`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797337858706017`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798088371374187`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1c2778aa-9840-45ac-a047-f1956196bd93"],
+In[266]:=",ExpressionUUID->"02971c0d-123d-4fda-a00c-1468246d1099"],
Cell[BoxData[
InterpretationBox[
@@ -37795,12 +17792,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"335.`", ",", "0.`", ",", "0.`", ",", "335.`"}], "}"}]}]},
+ RowBox[{"323.`", ",", "0.`", ",", "0.`", ",", "323.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"335.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "335.`"}]}], "}"}]}]},
+ RowBox[{"323.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "323.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -37810,13 +17807,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"280.2702686877563`", ",", "0.`", ",",
- RowBox[{"-", "280.2702686877563`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"268.2657257132589`", ",", "0.`", ",",
+ RowBox[{"-", "268.2657257132589`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"263.13984230052205`", ",",
- RowBox[{"-", "10.`"}], ",", "262.9497606120675`", ",", "0.`"}],
+ RowBox[{"251.14438527501952`", ",",
+ RowBox[{"-", "10.`"}], ",", "250.94521763757015`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -37833,16 +17830,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {335., 0., 0., 335.}, $CellContext`p2 -> {
- 335., 0., 0., -335.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {280.2702686877563,
- 0., -280.2702686877563, 0.}, $CellContext`p5 -> {
- 263.13984230052205`, -10., 262.9497606120675, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {323., 0., 0., 323.}, $CellContext`p2 -> {
+ 323., 0., 0., -323.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {268.2657257132589,
+ 0., -268.2657257132589, 0.}, $CellContext`p5 -> {
+ 251.14438527501952`, -10., 250.94521763757015`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733785880496*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808837145015*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"bf0b5b79-67f6-40d5-a592-d15ef387afae"],
+In[266]:=",ExpressionUUID->"d4e55c65-6a4d-4881-bdac-4537978a61f1"],
Cell[BoxData[
InterpretationBox[
@@ -37850,70 +17849,77 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "1.302139233114632455398968904176928958618017545291888417734071833`\
-42.987552625913786*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.25139297446617", ",", "0``57.17392519729917"}], "}"}]}],
+ "7.18689073585180494856297840538899287161302070578380247709567061`43.\
+74527852855717*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.27040481464747", ",", "0``57.18976748200492"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.302139233114632455398968904176928958618017545291888417734071833`42.\
-987552625913786*^-14, 0``58.69897000433602, 0``57.25139297446617,
- 0``57.17392519729917}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 7.18689073585180494856297840538899287161302070578380247709567061`43.\
+74527852855717*^-14, 0``58.69897000433602, 0``57.27040481464747,
+ 0``57.18976748200492}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733785888977*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808837152295*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"79e44ee8-2094-4029-b767-c45f6170f51b"],
+In[266]:=",ExpressionUUID->"b36e26e1-bcdd-4f60-b974-4d52d08aa435"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733785896943*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808837159184*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"13230a0d-12bd-4e26-9019-6d7383b2949c"],
+In[266]:=",ExpressionUUID->"77847d11-240e-45b5-8d0a-2cce5a237d93"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "280.2702686877562996415`10."}], ",",
- RowBox[{"S", "\[Rule]", "448900.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "268.2657257132589165849`10."}], ",",
+ RowBox[{"S", "\[Rule]", "417316.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "69190.2256378534902969539`10."}]}], ",",
+ RowBox[{"-", "66152.0683015721712415407`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "69190.2256378534902969539`10."}]}], ",",
+ RowBox[{"-", "66152.0683015721712415407`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "187781.0800207967207597903`10."}]}], ",",
+ RowBox[{"-", "173299.6588107652601138398`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "187781.0800207967207597903`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "96292.6113173004289663828`10."}], ",",
+ RowBox[{"-", "173299.6588107652601138398`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "92837.4542246748266118156`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "670.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "646.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "310.3105079066779346023`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "304.6923927909504382804`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03803007835688088857605646608645749361`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "263.1398423005220600282`10."}], ",",
+ RowBox[{"-", "0.03984933482351749255387591225366552977`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "251.1443852750195279751`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "270.8096009346909183743`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "265.9260844266119262769`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797337859046507`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808837166614*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e4a359de-d3dd-4864-b305-3b626b1cd7f3"],
+In[266]:=",ExpressionUUID->"40ad8544-3ab6-4225-a4fc-a83b9a11be3a"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "324.3742559523809`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "312.9807692307692`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 324.3742559523809}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 312.9807692307692}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797337957094603`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808847087604*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"67712731-36b5-4f45-9a76-0591a015f0e5"],
+In[266]:=",ExpressionUUID->"d7d31018-1e6f-4d41-92e2-be996b7a40ed"],
Cell[BoxData[
InterpretationBox[
@@ -37924,12 +17930,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"336.`", ",", "0.`", ",", "0.`", ",", "336.`"}], "}"}]}]},
+ RowBox[{"325.`", ",", "0.`", ",", "0.`", ",", "325.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"336.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "336.`"}]}], "}"}]}]},
+ RowBox[{"325.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "325.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -37939,13 +17945,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"281.27062862987106`", ",", "0.`", ",",
- RowBox[{"-", "281.27062862987106`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"270.2665127977447`", ",", "0.`", ",",
+ RowBox[{"-", "270.2665127977447`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"264.1394823584073`", ",",
- RowBox[{"-", "10.`"}], ",", "263.95012055418226`", ",", "0.`"}],
+ RowBox[{"253.14359819053365`", ",",
+ RowBox[{"-", "10.`"}], ",", "252.94600472205596`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -37962,16 +17968,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {336., 0., 0., 336.}, $CellContext`p2 -> {
- 336., 0., 0., -336.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {281.27062862987106`,
- 0., -281.27062862987106`, 0.}, $CellContext`p5 -> {
- 264.1394823584073, -10., 263.95012055418226`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {325., 0., 0., 325.}, $CellContext`p2 -> {
+ 325., 0., 0., -325.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {270.2665127977447,
+ 0., -270.2665127977447, 0.}, $CellContext`p5 -> {
+ 253.14359819053365`, -10., 252.94600472205596`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733795718226*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808847095379*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"fc12d5d5-d3a0-49ed-804f-e2a2b6fb8060"],
+In[266]:=",ExpressionUUID->"fbf94d99-fcf0-43fa-9a55-0f53227dad99"],
Cell[BoxData[
InterpretationBox[
@@ -37979,71 +17987,78 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "1.969304032798756681574403610323158764924541929997781595554625495`\
-43.165913501546136*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.24984562051762", ",", "0``57.172630726946174"}], "}"}]}],
+ "1.69658764672265044036637304177327771025001065320730677867617446`42.\
+11563294816399*^-15", ",", "0``58.69897000433602", ",",
+ "0``57.26717776628844", ",", "0``57.18708664335715"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.969304032798756681574403610323158764924541929997781595554625495`43.\
-165913501546136*^-14, 0``58.69897000433602, 0``57.24984562051762,
- 0``57.172630726946174}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 1.69658764672265044036637304177327771025001065320730677867617446`42.\
+11563294816399*^-15, 0``58.69897000433602, 0``57.26717776628844,
+ 0``57.18708664335715}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733795726103*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980884710253*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"9bf24b17-4cf0-4fe9-a1d5-eebea5d53476"],
+In[266]:=",ExpressionUUID->"61a6376b-81dc-4c9c-bb98-09866caa8efb"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733795733828*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980884710944*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"ffefae73-9a05-4bbb-8392-b4e25a8d6920"],
+In[266]:=",ExpressionUUID->"746b3fb7-9dfb-42ae-89d2-9f8976b2e54a"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "281.2706286298710551819`10."}], ",",
- RowBox[{"S", "\[Rule]", "451584.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "270.2665127977447241392`10."}], ",",
+ RowBox[{"S", "\[Rule]", "422500.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "69443.4054158769335515717`10."}]}], ",",
+ RowBox[{"-", "66658.4278576190577507762`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "69443.4054158769335515717`10."}]}], ",",
+ RowBox[{"-", "66658.4278576190577507762`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "189013.8624392733490822138`10."}]}], ",",
+ RowBox[{"-", "175673.2333185340706904753`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "189013.8624392733490822138`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "96580.53571030057567099`10."}], ",",
+ RowBox[{"-", "175673.2333185340706904753`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "93413.3223523062560235424`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "672.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "650.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "310.7740911181312998467`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "305.6359310557354217303`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03788594594692466898693696183730216481`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "264.1394823584072978162`10."}], ",",
+ RowBox[{"-", "0.03953412907623615522639296572227960108`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "253.1435981905336502485`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "271.212601332337223033`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "266.746196529457304102`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733795742325*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798088471167917`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"700d51ba-6c15-4c27-8f29-d6d1b6b0b28b"],
+In[266]:=",ExpressionUUID->"8b77145c-1fb1-460e-9f2f-eddf0cb9fb46"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "325.40875370919883`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "315.05428134556576`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 325.40875370919883`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 315.05428134556576`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973380567552*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808857033074*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"16580a5a-75f1-446e-ba64-4643473dc155"],
+In[266]:=",ExpressionUUID->"b8a15a5e-1da0-453b-8425-ecb1baecb5da"],
Cell[BoxData[
InterpretationBox[
@@ -38054,12 +18069,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"337.`", ",", "0.`", ",", "0.`", ",", "337.`"}], "}"}]}]},
+ RowBox[{"327.`", ",", "0.`", ",", "0.`", ",", "327.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"337.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "337.`"}]}], "}"}]}]},
+ RowBox[{"327.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "327.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -38069,13 +18084,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"282.2709858559007`", ",", "0.`", ",",
- RowBox[{"-", "282.2709858559007`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"272.2672875379761`", ",", "0.`", ",",
+ RowBox[{"-", "272.2672875379761`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"265.13912513237756`", ",",
- RowBox[{"-", "10.`"}], ",", "264.9504777802119`", ",", "0.`"}],
+ RowBox[{"255.14282345030236`", ",",
+ RowBox[{"-", "10.`"}], ",", "254.9467794622873`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -38092,16 +18107,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {337., 0., 0., 337.}, $CellContext`p2 -> {
- 337., 0., 0., -337.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {282.2709858559007,
- 0., -282.2709858559007, 0.}, $CellContext`p5 -> {
- 265.13912513237756`, -10., 264.9504777802119, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {327., 0., 0., 327.}, $CellContext`p2 -> {
+ 327., 0., 0., -327.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {272.2672875379761,
+ 0., -272.2672875379761, 0.}, $CellContext`p5 -> {
+ 255.14282345030236`, -10., 254.9467794622873, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797338056842747`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798088570431013`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"44576307-3cfe-4a87-952f-b43ef5691c01"],
+In[266]:=",ExpressionUUID->"f1692fa0-03a9-4457-a29c-88203fab64a8"],
Cell[BoxData[
InterpretationBox[
@@ -38109,70 +18126,77 @@ Cell[BoxData[
"\[InvisibleSpace]",
RowBox[{"{",
RowBox[{
- RowBox[{
- "-", "1.4490878528872340828256474112372735963561289631669673976602194238`\
-44.03140482375326*^-13"}], ",", "0``58.69897000433602", ",",
- "0``57.24830376427007", ",", "0``57.171340103464686"}], "}"}]}],
+ "5.751443807177344382895073251003027529863858422031423411374318589`43.\
+64316913701089*^-14", ",", "0``58.69897000433602", ",",
+ "0``57.26397453962176", ",", "0``57.184422251675734"}], "}"}]}],
SequenceForm[
- "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.4490878528872340828256474112372735963561289631669673976602194238`44.\
-03140482375326*^-13, 0``58.69897000433602, 0``57.24830376427007,
- 0``57.171340103464686}],
+ "Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", {
+ 5.751443807177344382895073251003027529863858422031423411374318589`43.\
+64316913701089*^-14, 0``58.69897000433602, 0``57.26397453962176,
+ 0``57.184422251675734}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733805692622*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808857050144*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f7a56c35-6608-4a07-8113-bc6d0ab1ddc9"],
+In[266]:=",ExpressionUUID->"dd002ff3-11af-4faf-9adf-9ade2cf73956"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797338057008543`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798088570571327`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1dbc6ba3-eb43-4266-9213-21fb265603ac"],
+In[266]:=",ExpressionUUID->"1329fb05-b49e-49ea-877a-955d845915f6"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "282.2709858559006761425`10."}], ",",
- RowBox[{"S", "\[Rule]", "454276.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "272.2672875379760739634`10."}], ",",
+ RowBox[{"S", "\[Rule]", "427716.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "69696.5851939003768061895`10."}]}], ",",
+ RowBox[{"-", "67164.7874136659442600117`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "69696.5851939003768061895`10."}]}], ",",
+ RowBox[{"-", "67164.7874136659442600117`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "190250.6444668770557200332`10."}]}], ",",
+ RowBox[{"-", "178062.80604983635237204`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "190250.6444668770557200332`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "96868.4593215549418944225`10."}], ",",
+ RowBox[{"-", "178062.80604983635237204`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "93989.1869270045639153112`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "674.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "654.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "311.2369825736571137381`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "306.5765596502846854845`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.0377429023105798686888144343511401976`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "265.1391251323775516398`10."}], ",",
+ RowBox[{"-", "0.03922387261016269515285104459156008408`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "255.1428234503023562422`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "271.6150052302813682495`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "267.5638015508214055137`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973380570899*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808857064309*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"94b2c8cc-2a2f-455a-ae13-bda43c61c058"],
+In[266]:=",ExpressionUUID->"b0f4feab-9950-4787-b270-3fbbd1586d42"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "326.4430473372781`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "317.1268996960486`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 326.4430473372781}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 317.1268996960486}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797338156032743`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798088670906363`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"2e2a558f-a8be-4cb3-9670-70727b08eccc"],
+In[266]:=",ExpressionUUID->"033b26cd-16fe-459c-9dba-43b39a61a53f"],
Cell[BoxData[
InterpretationBox[
@@ -38183,12 +18207,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"338.`", ",", "0.`", ",", "0.`", ",", "338.`"}], "}"}]}]},
+ RowBox[{"329.`", ",", "0.`", ",", "0.`", ",", "329.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"338.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "338.`"}]}], "}"}]}]},
+ RowBox[{"329.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "329.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -38198,13 +18222,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"283.2713403964727`", ",", "0.`", ",",
- RowBox[{"-", "283.2713403964727`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"274.2680502220953`", ",", "0.`", ",",
+ RowBox[{"-", "274.2680502220953`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"266.13877059180555`", ",",
- RowBox[{"-", "10.`"}], ",", "265.9508323207839`", ",", "0.`"}],
+ RowBox[{"257.142060766183`", ",",
+ RowBox[{"-", "10.`"}], ",", "256.94754214640653`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -38221,16 +18245,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {338., 0., 0., 338.}, $CellContext`p2 -> {
- 338., 0., 0., -338.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {283.2713403964727,
- 0., -283.2713403964727, 0.}, $CellContext`p5 -> {
- 266.13877059180555`, -10., 265.9508323207839, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {329., 0., 0., 329.}, $CellContext`p2 -> {
+ 329., 0., 0., -329.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {274.2680502220953,
+ 0., -274.2680502220953, 0.}, $CellContext`p5 -> {257.142060766183, -10.,
+ 256.94754214640653`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797338156121483`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808867099984*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c3cb51c5-c606-49c3-a5d8-45b281a85979"],
+In[266]:=",ExpressionUUID->"1865eeb6-a662-4d89-be87-85f564a6e93f"],
Cell[BoxData[
InterpretationBox[
@@ -38239,70 +18265,77 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.1212831392688673696776533262902799359663241008334574185068082137`\
-43.91873860011111*^-13"}], ",", "0``58.69897000433602", ",",
- "0``57.24676736676329", ",", "0``57.170053304058364"}], "}"}]}],
+ "-", "5.45355975775889222313284337971613880358274973195025868952900879`\
+42.61742418703157*^-15"}], ",", "0``58.69897000433602", ",",
+ "0``57.26079478521273", ",", "0``57.181774106386044"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.1212831392688673696776533262902799359663241008334574185068082137`43.\
-91873860011111*^-13, 0``58.69897000433602, 0``57.24676736676329,
- 0``57.170053304058364}],
+{-5.45355975775889222313284337971613880358274973195025868952900879`42.\
+61742418703157*^-15, 0``58.69897000433602, 0``57.26079478521273,
+ 0``57.181774106386044}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797338156204863`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808867107046*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"72b23a8c-b015-4ae1-bda0-419772d9f1d8"],
+In[266]:=",ExpressionUUID->"362f7568-654f-43e8-b4b1-c1ee858b71a8"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733815628281*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808867114195*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c9e9cf86-cf7b-48a0-bf57-9542c71aa32c"],
+In[266]:=",ExpressionUUID->"9ad200a0-877b-4ac8-ad0b-7bfd01bb7db6"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "283.2713403964726808226`10."}], ",",
- RowBox[{"S", "\[Rule]", "456976.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "274.2680502220953258075`10."}], ",",
+ RowBox[{"S", "\[Rule]", "432964.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "69949.7649719238200608072`10."}]}], ",",
+ RowBox[{"-", "67671.1469697128307692473`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "69949.7649719238200608072`10."}]}], ",",
+ RowBox[{"-", "67671.1469697128307692473`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "191491.4261080155322360952`10."}]}], ",",
+ RowBox[{"-", "180468.3770461387243813078`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "191491.4261080155322360952`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "97156.382159878764277188`10."}], ",",
+ RowBox[{"-", "180468.3770461387243813078`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "94565.0480317031131057894`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "676.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "658.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "311.6991853692896071268`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "307.5143054098509952859`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03760093515307455432731210340996890122`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "266.1387705918055797402`10."}], ",",
+ RowBox[{"-", "0.03891844972115780711845013419727500689`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "257.1420607661830414301`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "272.0168152595880375785`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "268.3789222493498036142`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733815636075*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808867121435*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"c7e5789f-f928-4989-8cd4-304e0ebbe88e"],
+In[266]:=",ExpressionUUID->"12936065-31fa-408e-8e91-3805050030aa"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "327.47713864306786`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "319.1986404833837`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 327.47713864306786`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 319.1986404833837}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733825442335*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798088772963333`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"bd985727-848c-4e3c-a386-744beb4f50aa"],
+In[266]:=",ExpressionUUID->"ad044920-fb3e-4db8-98fb-e544ec0d4b16"],
Cell[BoxData[
InterpretationBox[
@@ -38313,12 +18346,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"339.`", ",", "0.`", ",", "0.`", ",", "339.`"}], "}"}]}]},
+ RowBox[{"331.`", ",", "0.`", ",", "0.`", ",", "331.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"339.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "339.`"}]}], "}"}]}]},
+ RowBox[{"331.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "331.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -38328,13 +18361,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"284.2716922817556`", ",", "0.`", ",",
- RowBox[{"-", "284.2716922817556`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"276.2688011293464`", ",", "0.`", ",",
+ RowBox[{"-", "276.2688011293464`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"267.13841870652266`", ",",
- RowBox[{"-", "10.`"}], ",", "266.9511842060668`", ",", "0.`"}],
+ RowBox[{"259.1413098589319`", ",",
+ RowBox[{"-", "10.`"}], ",", "258.9482930536576`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -38351,16 +18384,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {339., 0., 0., 339.}, $CellContext`p2 -> {
- 339., 0., 0., -339.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {284.2716922817556,
- 0., -284.2716922817556, 0.}, $CellContext`p5 -> {
- 267.13841870652266`, -10., 266.9511842060668, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {331., 0., 0., 331.}, $CellContext`p2 -> {
+ 331., 0., 0., -331.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {276.2688011293464,
+ 0., -276.2688011293464, 0.}, $CellContext`p5 -> {
+ 259.1413098589319, -10., 258.9482930536576, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733825451187*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980887730588*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f3a1d702-c466-4132-af43-3406b61bb16e"],
+In[266]:=",ExpressionUUID->"f3d7fc40-1357-472d-afaf-1a71424608d3"],
Cell[BoxData[
InterpretationBox[
@@ -38369,69 +18404,77 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.4549692179013316861342403688001488747207801154565396105874806468`\
-44.030594115724206*^-13"}], ",", "0``58.69897000433602", ",",
- "0``57.24523638945008", ",", "0``57.168770306132934"}], "}"}]}],
+ "-", "8.151717252381554087771008314367445034975654502707583301188278388`\
+43.78936112236916*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.2576381612668", ",", "0``57.1791420105603"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.4549692179013316861342403688001488747207801154565396105874806468`44.\
-030594115724206*^-13, 0``58.69897000433602, 0``57.24523638945008,
- 0``57.168770306132934}],
+{-8.151717252381554087771008314367445034975654502707583301188278388`43.\
+78936112236916*^-14, 0``58.69897000433602, 0``57.2576381612668,
+ 0``57.1791420105603}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973382545959*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808877313142*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"7ce73ee9-11c3-4bcf-807b-fe98ce28e3db"],
+In[266]:=",ExpressionUUID->"3c3b0fc9-0626-4cd4-b722-a5ee5308bef4"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797338254673433`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808877320125*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"6236fa60-6c27-4cac-a357-3335eb7e149b"],
+In[266]:=",ExpressionUUID->"eada0d4b-93dd-4310-89fa-b8e8bd7cc9ce"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "284.2716922817555769143`10."}], ",",
- RowBox[{"S", "\[Rule]", "459684.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "276.2688011293464001028`10."}], ",",
+ RowBox[{"S", "\[Rule]", "438244.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "70202.944749947263315425`10."}]}], ",",
+ RowBox[{"-", "68177.5065257597172784828`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "70202.944749947263315425`10."}]}], ",",
+ RowBox[{"-", "68177.5065257597172784828`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "192736.2073670302811478905`10."}]}], ",",
+ RowBox[{"-", "182889.9463476273168680564`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "192736.2073670302811478905`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "97444.3042339551666622662`10."}], ",",
+ RowBox[{"-", "182889.9463476273168680564`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "95140.9057467741105420121`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "678.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "662.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "312.1607025779432837261`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "308.4491947578630177385`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03746003236412216419978401983610225201`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "267.1384187065226502799`10."}], ",",
+ RowBox[{"-", "0.03861774828509050361057643113978013109`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "259.1413098589318910711`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "272.4180340321457556857`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "269.1915810435855799936`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733825475079*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808877327351*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"db203770-a572-462f-b38c-0728dd53c696"],
+In[266]:=",ExpressionUUID->"db987301-974e-43d9-a14d-ebd51a49425d"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "328.5110294117647`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "321.2695195195195`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 328.5110294117647}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 321.2695195195195}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733835299498*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808887614352*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"975e4f81-9cf0-4cde-bc6a-756d158da9d8"],
+In[266]:=",ExpressionUUID->"783e343f-dea4-4677-932e-aedec4b72382"],
Cell[BoxData[
InterpretationBox[
@@ -38442,12 +18485,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"340.`", ",", "0.`", ",", "0.`", ",", "340.`"}], "}"}]}]},
+ RowBox[{"333.`", ",", "0.`", ",", "0.`", ",", "333.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"340.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "340.`"}]}], "}"}]}]},
+ RowBox[{"333.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "333.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -38457,13 +18500,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"285.27204154146784`", ",", "0.`", ",",
- RowBox[{"-", "285.27204154146784`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"278.2695405304155`", ",", "0.`", ",",
+ RowBox[{"-", "278.2695405304155`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"268.1380694468104`", ",",
- RowBox[{"-", "10.`"}], ",", "267.95153346577905`", ",", "0.`"}],
+ RowBox[{"261.14057045786285`", ",",
+ RowBox[{"-", "10.`"}], ",", "260.9490324547267`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -38480,16 +18523,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {340., 0., 0., 340.}, $CellContext`p2 -> {
- 340., 0., 0., -340.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {285.27204154146784`,
- 0., -285.27204154146784`, 0.}, $CellContext`p5 -> {
- 268.1380694468104, -10., 267.95153346577905`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {333., 0., 0., 333.}, $CellContext`p2 -> {
+ 333., 0., 0., -333.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {278.2695405304155,
+ 0., -278.2695405304155, 0.}, $CellContext`p5 -> {
+ 261.14057045786285`, -10., 260.9490324547267, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733835308522*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798088876227083`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"60a75556-43d9-4e5f-b77c-5eceb5ab650c"],
+In[266]:=",ExpressionUUID->"8f6a365d-e975-4ab0-8f5e-20054e7f0e50"],
Cell[BoxData[
InterpretationBox[
@@ -38498,70 +18543,77 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.2268241771400321347290510133237157259189763338859567960942420054`\
-43.95524341770697*^-13"}], ",", "0``58.69897000433602", ",",
- "0``57.24371079419051", ",", "0``57.16749108729377"}], "}"}]}],
+ "-", "4.463320712858525724277223745480567858477977136046457490696849273`\
+43.525153869449774*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.25450433340811", ",", "0``57.1765257708297"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.2268241771400321347290510133237157259189763338859567960942420054`43.\
-95524341770697*^-13, 0``58.69897000433602, 0``57.24371079419051,
- 0``57.16749108729377}],
+{-4.463320712858525724277223745480567858477977136046457490696849273`43.\
+525153869449774*^-14, 0``58.69897000433602, 0``57.25450433340811,
+ 0``57.1765257708297}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733835317009*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980888762984*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"4452d210-f467-46a0-bdf1-210391f0c0e0"],
+In[266]:=",ExpressionUUID->"7f5bbdc2-6fbb-48f1-89ff-9ea1a26b2cff"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.77973383532516*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980888763696*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"531f927a-785e-43fc-b643-abead8f8ad17"],
+In[266]:=",ExpressionUUID->"dc493663-94c2-4a6e-aff4-f655fd7825e7"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "285.2720415414678427624`10."}], ",",
- RowBox[{"S", "\[Rule]", "462400.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "278.2695405304154974147`10."}], ",",
+ RowBox[{"S", "\[Rule]", "443556.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "70456.1245279707065700428`10."}]}], ",",
+ RowBox[{"-", "68683.8660818066037877183`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "70456.1245279707065700428`10."}]}], ",",
+ RowBox[{"-", "68683.8660818066037877183`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "193984.9882481981330784038`10."}]}], ",",
+ RowBox[{"-", "185327.5139932567212781578`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "193984.9882481981330784038`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "97732.2255523377450885464`10."}], ",",
+ RowBox[{"-", "185327.5139932567212781578`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "95716.7601501266734428346`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "680.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "666.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "312.621537249655506022`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "309.381253714776121118`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03732018201447289475116137614555062927`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "268.1380694468104072463`10."}], ",",
+ RowBox[{"-", "0.03832165962038946074422188284560682172`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "261.1405704578628306433`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "272.8186641408604892424`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "270.0018000189749157821`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733835333555*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798088876441936`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"a92943d8-76b9-4045-b99a-e6688eef68e9"],
+In[266]:=",ExpressionUUID->"0ab2f7b4-3562-4a1e-9c89-b126c0434cf4"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "329.54472140762465`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "323.339552238806`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 329.54472140762465`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 323.339552238806}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733845155599*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808897597354*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"f68570d5-c99e-4ab8-81bf-d1703eee0c73"],
+In[266]:=",ExpressionUUID->"ac8f7582-34e0-48b3-9c83-833f1470d29b"],
Cell[BoxData[
InterpretationBox[
@@ -38572,12 +18624,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"341.`", ",", "0.`", ",", "0.`", ",", "341.`"}], "}"}]}]},
+ RowBox[{"335.`", ",", "0.`", ",", "0.`", ",", "335.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"341.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "341.`"}]}], "}"}]}]},
+ RowBox[{"335.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "335.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -38587,13 +18639,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"286.27238820488606`", ",", "0.`", ",",
- RowBox[{"-", "286.27238820488606`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"280.2702686877563`", ",", "0.`", ",",
+ RowBox[{"-", "280.2702686877563`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"269.1377227833923`", ",",
- RowBox[{"-", "10.`"}], ",", "268.95188012919726`", ",", "0.`"}],
+ RowBox[{"263.13984230052205`", ",",
+ RowBox[{"-", "10.`"}], ",", "262.9497606120675`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -38610,16 +18662,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {341., 0., 0., 341.}, $CellContext`p2 -> {
- 341., 0., 0., -341.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {286.27238820488606`,
- 0., -286.27238820488606`, 0.}, $CellContext`p5 -> {
- 269.1377227833923, -10., 268.95188012919726`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {335., 0., 0., 335.}, $CellContext`p2 -> {
+ 335., 0., 0., -335.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {280.2702686877563,
+ 0., -280.2702686877563, 0.}, $CellContext`p5 -> {
+ 263.13984230052205`, -10., 262.9497606120675, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733845164419*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798088976050463`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"b94f2189-0663-4fde-8149-84ccc9be3b81"],
+In[266]:=",ExpressionUUID->"3e6265f1-3c14-41cd-8ba6-005b2752921e"],
Cell[BoxData[
InterpretationBox[
@@ -38628,69 +18682,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "5.085937912304538456949311021791924722117519771211844041558242968`\
-43.57155668380705*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.24219054324613", ",", "0``57.16621562534352"}], "}"}]}],
+ "-", "1.302139233114632455398968904176928958618017545291888417734071833`\
+42.987552625913786*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.25139297446617", ",", "0``57.17392519729917"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.085937912304538456949311021791924722117519771211844041558242968`43.\
-57155668380705*^-14, 0``58.69897000433602, 0``57.24219054324613,
- 0``57.16621562534352}],
+{-1.302139233114632455398968904176928958618017545291888417734071833`42.\
+987552625913786*^-14, 0``58.69897000433602, 0``57.25139297446617,
+ 0``57.17392519729917}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733845172882*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808897612299*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e558ddf5-1d0b-4d59-8d1c-2635c4bad8ef"],
+In[266]:=",ExpressionUUID->"eddc7907-e64d-4378-a841-fbffe7659acd"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733845180794*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808897619341*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"eaa2ef2b-95ca-4a6b-b6ea-86ac68c234d7"],
+In[266]:=",ExpressionUUID->"8dabde11-5390-4e4d-8651-65e2b33ad0c3"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "286.2723882048860559735`10."}], ",",
- RowBox[{"S", "\[Rule]", "465124.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "280.2702686877562996415`10."}], ",",
+ RowBox[{"S", "\[Rule]", "448900.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "70709.3043059941498246606`10."}]}], ",",
+ RowBox[{"-", "69190.2256378534902969539`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "70709.3043059941498246606`10."}]}], ",",
+ RowBox[{"-", "69190.2256378534902969539`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "195237.7687557322901739099`10."}]}], ",",
+ RowBox[{"-", "187781.0800207967207597903`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "195237.7687557322901739099`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "98020.1461234529073734958`10."}], ",",
+ RowBox[{"-", "187781.0800207967207597903`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "96292.6113173004289663828`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "682.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "670.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "313.0816924118254912266`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "310.3105079066779346023`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03718137235254227526656395351965958163`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "269.1377227833922658582`10."}], ",",
+ RowBox[{"-", "0.03803007835688088857605646608645749361`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "263.1398423005220600282`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "273.2187081598465127317`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "270.8096009346909183743`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733845188773*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808897628314*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"5b030958-7cee-4236-8505-fab920eb79dd"],
+In[266]:=",ExpressionUUID->"37c010b0-02aa-407f-bcf6-7b0ced0c8e70"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "330.578216374269`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "325.40875370919883`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 330.578216374269}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 325.40875370919883`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733855069675*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980890779103*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"82b7ec65-6cbd-436f-a65d-e51e9dc228d6"],
+In[266]:=",ExpressionUUID->"3e6e0295-29e2-4974-b6b4-644f317a5a24"],
Cell[BoxData[
InterpretationBox[
@@ -38701,12 +18764,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"342.`", ",", "0.`", ",", "0.`", ",", "342.`"}], "}"}]}]},
+ RowBox[{"337.`", ",", "0.`", ",", "0.`", ",", "337.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"342.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "342.`"}]}], "}"}]}]},
+ RowBox[{"337.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "337.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -38716,13 +18779,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"287.2727323008531`", ",", "0.`", ",",
- RowBox[{"-", "287.2727323008531`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"282.2709858559007`", ",", "0.`", ",",
+ RowBox[{"-", "282.2709858559007`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"270.1373786874252`", ",",
- RowBox[{"-", "10.`"}], ",", "269.9522242251643`", ",", "0.`"}],
+ RowBox[{"265.13912513237756`", ",",
+ RowBox[{"-", "10.`"}], ",", "264.9504777802119`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -38739,16 +18802,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {342., 0., 0., 342.}, $CellContext`p2 -> {
- 342., 0., 0., -342.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {287.2727323008531,
- 0., -287.2727323008531, 0.}, $CellContext`p5 -> {
- 270.1373786874252, -10., 269.9522242251643, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {337., 0., 0., 337.}, $CellContext`p2 -> {
+ 337., 0., 0., -337.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {282.2709858559007,
+ 0., -282.2709858559007, 0.}, $CellContext`p5 -> {
+ 265.13912513237756`, -10., 264.9504777802119, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733855079822*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808907798757*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"9e212192-87ea-4a16-a1df-1b8c60ed91ae"],
+In[266]:=",ExpressionUUID->"27b28897-a50d-4cbe-8dbf-7c3706375c1b"],
Cell[BoxData[
InterpretationBox[
@@ -38757,69 +18822,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "5.738938803883423655057066464067030829103622855394191291152116737`\
-43.62274549636835*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.2406755992744", ",", "0``57.16494389827988"}], "}"}]}],
+ "-", "1.4490878528872340828256474112372735963561289631669673976602194238`\
+44.03140482375326*^-13"}], ",", "0``58.69897000433602", ",",
+ "0``57.24830376427007", ",", "0``57.171340103464686"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-5.738938803883423655057066464067030829103622855394191291152116737`43.\
-62274549636835*^-14, 0``58.69897000433602, 0``57.2406755992744,
- 0``57.16494389827988}],
+{-1.4490878528872340828256474112372735963561289631669673976602194238`44.\
+03140482375326*^-13, 0``58.69897000433602, 0``57.24830376427007,
+ 0``57.171340103464686}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733855087679*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808907806066*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"9df1b64f-f6bb-4ec9-8b4c-4f105b27ff7f"],
+In[266]:=",ExpressionUUID->"3afbffdf-2c31-4175-a8ae-2e767810cbd4"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733855095742*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808907813908*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"b995f40d-d451-4d16-b5f1-375a2fa7b988"],
+In[266]:=",ExpressionUUID->"654e6a17-57a6-4493-89f7-46cf1580e913"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "287.2727323008530788684`10."}], ",",
- RowBox[{"S", "\[Rule]", "467856.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "282.2709858559006761425`10."}], ",",
+ RowBox[{"S", "\[Rule]", "454276.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "70962.4840840175930792783`10."}]}], ",",
+ RowBox[{"-", "69696.5851939003768061895`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "70962.4840840175930792783`10."}]}], ",",
+ RowBox[{"-", "69696.5851939003768061895`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "196494.5488937835059459758`10."}]}], ",",
+ RowBox[{"-", "190250.6444668770557200332`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "196494.5488937835059459758`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "98308.0659556022290565459`10."}], ",",
+ RowBox[{"-", "190250.6444668770557200332`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "96868.4593215549418944225`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "684.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "674.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "313.5411710694501904053`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "311.2369825736571137381`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03704359180111479786450101217781770398`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "270.1373786874252364333`10."}], ",",
+ RowBox[{"-", "0.0377429023105798686888144343511401976`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "265.1391251323775516398`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "273.6181686446149404755`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "271.6150052302813682495`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733855103849*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808907826894*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"4d398b45-69e8-4f2d-8fcd-a9aa81afcc70"],
+In[266]:=",ExpressionUUID->"a014316f-677b-4efc-8b8b-50fe07ecab7d"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "331.6115160349854`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "327.47713864306786`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 331.6115160349854}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 327.47713864306786`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797338648659773`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808918061294*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"201d03cd-feb3-45f7-adc1-4cd97a19d5e0"],
+In[266]:=",ExpressionUUID->"f81e7a07-dcc0-4032-9fc9-0ed2a93705a6"],
Cell[BoxData[
InterpretationBox[
@@ -38830,12 +18904,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"343.`", ",", "0.`", ",", "0.`", ",", "343.`"}], "}"}]}]},
+ RowBox[{"339.`", ",", "0.`", ",", "0.`", ",", "339.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"343.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "343.`"}]}], "}"}]}]},
+ RowBox[{"339.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "339.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -38845,13 +18919,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"288.27307385778624`", ",", "0.`", ",",
- RowBox[{"-", "288.27307385778624`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"284.2716922817556`", ",", "0.`", ",",
+ RowBox[{"-", "284.2716922817556`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"271.1370371304921`", ",",
- RowBox[{"-", "10.`"}], ",", "270.95256578209745`", ",", "0.`"}],
+ RowBox[{"267.13841870652266`", ",",
+ RowBox[{"-", "10.`"}], ",", "266.9511842060668`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -38868,16 +18942,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {343., 0., 0., 343.}, $CellContext`p2 -> {
- 343., 0., 0., -343.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {288.27307385778624`,
- 0., -288.27307385778624`, 0.}, $CellContext`p5 -> {
- 271.1370371304921, -10., 270.95256578209745`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {339., 0., 0., 339.}, $CellContext`p2 -> {
+ 339., 0., 0., -339.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {284.2716922817556,
+ 0., -284.2716922817556, 0.}, $CellContext`p5 -> {
+ 267.13841870652266`, -10., 266.9511842060668, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733864876115*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798089180724897`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"77795851-d16e-494a-9cba-694996456eec"],
+In[266]:=",ExpressionUUID->"aa6ae7fe-cdb9-4b90-9661-1056d0ae2455"],
Cell[BoxData[
InterpretationBox[
@@ -38886,70 +18962,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "1.843515340563075659572455913151541945395160751691362082037642385`\
-43.128292644509116*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.239165925323114", ",", "0``57.16367588429325"}], "}"}]}],
+ "-", "1.4549692179013316861342403688001488747207801154565396105874806468`\
+44.030594115724206*^-13"}], ",", "0``58.69897000433602", ",",
+ "0``57.24523638945008", ",", "0``57.168770306132934"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-1.843515340563075659572455913151541945395160751691362082037642385`43.\
-128292644509116*^-14, 0``58.69897000433602, 0``57.239165925323114,
- 0``57.16367588429325}],
+{-1.4549692179013316861342403688001488747207801154565396105874806468`44.\
+030594115724206*^-13, 0``58.69897000433602, 0``57.24523638945008,
+ 0``57.168770306132934}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733864884798*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798089180815496`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"16043f41-af11-41da-a003-9f543f8434e8"],
+In[266]:=",ExpressionUUID->"f121eb12-4f12-4b61-a487-93ea4d70121f"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733864893128*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798089180940533`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1695a3b0-50d9-4c47-bdd4-cd652d39932c"],
+In[266]:=",ExpressionUUID->"4c10586c-6e00-4a40-a049-d6e8c2ee815e"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "288.2730738577862439342`10."}], ",",
- RowBox[{"S", "\[Rule]", "470596.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "284.2716922817555769143`10."}], ",",
+ RowBox[{"S", "\[Rule]", "459684.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "71215.6638620410363338961`10."}]}], ",",
+ RowBox[{"-", "70202.944749947263315425`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "71215.6638620410363338961`10."}]}], ",",
+ RowBox[{"-", "70202.944749947263315425`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "197755.3286664413633388904`10."}]}], ",",
+ RowBox[{"-", "192736.2073670302811478905`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "197755.3286664413633388904`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "98595.9850569648093424787`10."}], ",",
+ RowBox[{"-", "192736.2073670302811478905`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "97444.3042339551666622662`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "686.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "678.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "313.9999762053570750915`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "312.1607025779432837261`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03690682895412066836271041016363639619`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "271.1370371304921103217`10."}], ",",
+ RowBox[{"-", "0.03746003236412216419978401983610225201`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "267.1384187065226502799`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "274.0170481322599363241`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "272.4180340321457556857`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733864901587*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798089181063557`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d7fadbc8-5d5e-4ddf-9fb2-3c5e100f7b69"],
+In[266]:=",ExpressionUUID->"6c34de07-7f7a-4850-aa29-32e7c7e09002"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "332.64462209302326`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "329.54472140762465`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 332.64462209302326`}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 329.54472140762465`}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733874711388*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808928044732*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"090db7c2-5672-4e4a-ae1a-5e6891d91a5c"],
+In[266]:=",ExpressionUUID->"f188bcb3-d946-4b62-bd64-757616323a21"],
Cell[BoxData[
InterpretationBox[
@@ -38960,12 +19044,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"344.`", ",", "0.`", ",", "0.`", ",", "344.`"}], "}"}]}]},
+ RowBox[{"341.`", ",", "0.`", ",", "0.`", ",", "341.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"344.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "344.`"}]}], "}"}]}]},
+ RowBox[{"341.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "341.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -38975,13 +19059,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"289.2734129036849`", ",", "0.`", ",",
- RowBox[{"-", "289.2734129036849`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"286.27238820488606`", ",", "0.`", ",",
+ RowBox[{"-", "286.27238820488606`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"272.1366980845934`", ",",
- RowBox[{"-", "10.`"}], ",", "271.9529048279961`", ",", "0.`"}],
+ RowBox[{"269.1377227833923`", ",",
+ RowBox[{"-", "10.`"}], ",", "268.95188012919726`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -38998,16 +19082,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {344., 0., 0., 344.}, $CellContext`p2 -> {
- 344., 0., 0., -344.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {289.2734129036849,
- 0., -289.2734129036849, 0.}, $CellContext`p5 -> {
- 272.1366980845934, -10., 271.9529048279961, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {341., 0., 0., 341.}, $CellContext`p2 -> {
+ 341., 0., 0., -341.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {286.27238820488606`,
+ 0., -286.27238820488606`, 0.}, $CellContext`p5 -> {
+ 269.1377227833923, -10., 268.95188012919726`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733874720353*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808928052938*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"48dfa233-2d8f-4430-bc66-d7cf6e6e2432"],
+In[266]:=",ExpressionUUID->"d790908f-3b57-4ed8-8e09-082cf7a0c1dd"],
Cell[BoxData[
InterpretationBox[
@@ -39016,70 +19102,77 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "8.495148235852830263317127642193525647668166677363898316386441903`\
-43.79055252758118*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.23766148482502", ",", "0``57.16241156176449"}], "}"}]}],
+ "-", "5.085937912304538456949311021791924722117519771211844041558242968`\
+43.57155668380705*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.24219054324613", ",", "0``57.16621562534352"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-8.495148235852830263317127642193525647668166677363898316386441903`43.\
-79055252758118*^-14, 0``58.69897000433602, 0``57.23766148482502,
- 0``57.16241156176449}],
+{-5.085937912304538456949311021791924722117519771211844041558242968`43.\
+57155668380705*^-14, 0``58.69897000433602, 0``57.24219054324613,
+ 0``57.16621562534352}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733874728651*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808928060706*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"a3ebe1fd-433c-4803-a8e6-aba526768766"],
+In[266]:=",ExpressionUUID->"318e647d-c02e-4239-bc9f-51489b9295a0"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797338747369137`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798089280678*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"71b19912-523c-4eb9-9244-0605cdc7c205"],
+In[266]:=",ExpressionUUID->"46e064ac-0576-4526-9c3f-4967911e386d"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "289.2734129036849139993`10."}], ",",
- RowBox[{"S", "\[Rule]", "473344.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "286.2723882048860559735`10."}], ",",
+ RowBox[{"S", "\[Rule]", "465124.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "71468.8436400644795885139`10."}]}], ",",
+ RowBox[{"-", "70709.3043059941498246606`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "71468.8436400644795885139`10."}]}], ",",
+ RowBox[{"-", "70709.3043059941498246606`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "199020.1080777352208315278`10."}]}], ",",
+ RowBox[{"-", "195237.7687557322901739099`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "199020.1080777352208315278`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "98883.9034355994470769152`10."}], ",",
+ RowBox[{"-", "195237.7687557322901739099`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "98020.1461234529073734958`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "688.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "682.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "314.4581107804335949037`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "313.0816924118254912266`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03677107257348387721709939355670105021`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "272.1366980845933737403`10."}], ",",
+ RowBox[{"-", "0.03718137235254227526656395351965958163`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "269.1377227833922658582`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "274.4153491416423859951`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "273.2187081598465127317`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733874745273*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798089280767*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"5136b96b-f201-4d64-bb0b-c1d73e62dbe4"],
+In[266]:=",ExpressionUUID->"2320453e-e053-4a0e-b44d-99f37b7b8ada"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "333.67753623188406`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "331.6115160349854`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 333.67753623188406`}, "\n"],
-
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 331.6115160349854}, "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733884525631*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808937898343*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d19fa418-7183-48a3-9bd9-9ca0af26495d"],
+In[266]:=",ExpressionUUID->"900fcd85-bc7a-46a3-9c79-bd0037c3f524"],
Cell[BoxData[
InterpretationBox[
@@ -39090,12 +19183,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"345.`", ",", "0.`", ",", "0.`", ",", "345.`"}], "}"}]}]},
+ RowBox[{"343.`", ",", "0.`", ",", "0.`", ",", "343.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"345.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "345.`"}]}], "}"}]}]},
+ RowBox[{"343.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "343.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -39105,13 +19198,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"290.27374946613844`", ",", "0.`", ",",
- RowBox[{"-", "290.27374946613844`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"288.27307385778624`", ",", "0.`", ",",
+ RowBox[{"-", "288.27307385778624`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"273.13636152213985`", ",",
- RowBox[{"-", "10.`"}], ",", "272.95324139044965`", ",", "0.`"}],
+ RowBox[{"271.1370371304921`", ",",
+ RowBox[{"-", "10.`"}], ",", "270.95256578209745`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -39128,16 +19221,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {345., 0., 0., 345.}, $CellContext`p2 -> {
- 345., 0., 0., -345.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {290.27374946613844`,
- 0., -290.27374946613844`, 0.}, $CellContext`p5 -> {
- 273.13636152213985`, -10., 272.95324139044965`, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {343., 0., 0., 343.}, $CellContext`p2 -> {
+ 343., 0., 0., -343.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {288.27307385778624`,
+ 0., -288.27307385778624`, 0.}, $CellContext`p5 -> {
+ 271.1370371304921, -10., 270.95256578209745`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797338845342407`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808937906233*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"e191ace6-7e04-4884-9d4d-5a2b09365c97"],
+In[266]:=",ExpressionUUID->"3e8e5b1e-491c-49b5-8263-2a03c55c7e2a"],
Cell[BoxData[
InterpretationBox[
@@ -39146,69 +19241,78 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "6.943514411360013189695387250594172645896438148735770561459746379`\
-43.70170025482238*^-14"}], ",", "0``58.69897000433602", ",",
- "0``57.23616224159246", ",", "0``57.161150909262744"}], "}"}]}],
+ "-", "1.843515340563075659572455913151541945395160751691362082037642385`\
+43.128292644509116*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.239165925323114", ",", "0``57.16367588429325"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-6.943514411360013189695387250594172645896438148735770561459746379`43.\
-70170025482238*^-14, 0``58.69897000433602, 0``57.23616224159246,
- 0``57.161150909262744}],
+{-1.843515340563075659572455913151541945395160751691362082037642385`43.\
+128292644509116*^-14, 0``58.69897000433602, 0``57.239165925323114,
+ 0``57.16367588429325}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797338845420628`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808937913595*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"bc3bf3e5-f03b-4e22-bd13-da9302a3269d"],
+In[266]:=",ExpressionUUID->"ef4b13dd-9b03-471c-808b-393588091b4e"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733884549718*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.7798089379207373`*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"21f0e823-341e-4f1f-b06e-db989632a363"],
+In[266]:=",ExpressionUUID->"536ff5aa-2693-460a-a0c2-3f1ce9909f76"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "290.2737494661384403116`10."}], ",",
- RowBox[{"S", "\[Rule]", "476100.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "288.2730738577862439342`10."}], ",",
+ RowBox[{"S", "\[Rule]", "470596.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "71722.0234180879228431316`10."}]}], ",",
+ RowBox[{"-", "71215.6638620410363338961`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "71722.0234180879228431316`10."}]}], ",",
+ RowBox[{"-", "71215.6638620410363338961`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "200288.8871316355238150209`10."}]}], ",",
+ RowBox[{"-", "197755.3286664413633388904`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "200288.8871316355238150209`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "99171.8210994469312468303`10."}], ",",
+ RowBox[{"-", "197755.3286664413633388904`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "98595.9850569648093424787`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "690.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "686.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "314.915577733853825383`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "313.9999762053570750915`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03663631158603961887865809994064932551`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "273.1363615221398629443`10."}], ",",
+ RowBox[{"-", "0.03690682895412066836271041016363639619`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "271.1370371304921103217`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "274.8130741735714743137`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "274.0170481322599363241`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733884557704*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808937928184*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"1685382f-ff91-4116-be33-b693846f5f8d"],
+In[266]:=",ExpressionUUID->"12ad1ef5-4b41-4df0-b0dc-f1aaad3c9c56"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"kT3_max = \"\>", "\[InvisibleSpace]",
RowBox[{"{",
- RowBox[{"kT3", "\[Rule]", "334.7102601156069`"}], "}"}],
+ RowBox[{"kT3", "\[Rule]", "333.67753623188406`"}], "}"}],
"\[InvisibleSpace]", "\<\"\\n\"\>"}],
- SequenceForm["kT3_max = ", {$CellContext`kT3 -> 334.7102601156069}, "\n"],
+ SequenceForm["kT3_max = ", {$CellContext`kT3 -> 333.67753623188406`}, "\n"],
+
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733894396915*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808947797776*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"cf86f918-7954-4fcb-b4c0-1af59d602865"],
+In[266]:=",ExpressionUUID->"8015bcc8-97f2-4b56-a458-c3a235628b0f"],
Cell[BoxData[
InterpretationBox[
@@ -39219,12 +19323,12 @@ Cell[BoxData[
{
RowBox[{"p1", "\[Rule]",
RowBox[{"{",
- RowBox[{"346.`", ",", "0.`", ",", "0.`", ",", "346.`"}], "}"}]}]},
+ RowBox[{"345.`", ",", "0.`", ",", "0.`", ",", "345.`"}], "}"}]}]},
{
RowBox[{"p2", "\[Rule]",
RowBox[{"{",
- RowBox[{"346.`", ",", "0.`", ",", "0.`", ",",
- RowBox[{"-", "346.`"}]}], "}"}]}]},
+ RowBox[{"345.`", ",", "0.`", ",", "0.`", ",",
+ RowBox[{"-", "345.`"}]}], "}"}]}]},
{
RowBox[{"p3", "\[Rule]",
RowBox[{"{",
@@ -39234,13 +19338,13 @@ Cell[BoxData[
{
RowBox[{"p4", "\[Rule]",
RowBox[{"{",
- RowBox[{"291.27408357233327`", ",", "0.`", ",",
- RowBox[{"-", "291.27408357233327`"}], ",", "0.`"}], "}"}]}]},
+ RowBox[{"290.27374946613844`", ",", "0.`", ",",
+ RowBox[{"-", "290.27374946613844`"}], ",", "0.`"}], "}"}]}]},
{
RowBox[{"p5", "\[Rule]",
RowBox[{"{",
- RowBox[{"274.1360274159449`", ",",
- RowBox[{"-", "10.`"}], ",", "273.9535754966445`", ",", "0.`"}],
+ RowBox[{"273.13636152213985`", ",",
+ RowBox[{"-", "10.`"}], ",", "272.95324139044965`", ",", "0.`"}],
"}"}]}]}
},
GridBoxAlignment->{
@@ -39257,16 +19361,18 @@ Cell[BoxData[
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]], "\[InvisibleSpace]", "\<\"\\n\"\>"}],
SequenceForm["Four Momenta : \n",
- MatrixForm[{$CellContext`p1 -> {346., 0., 0., 346.}, $CellContext`p2 -> {
- 346., 0., 0., -346.}, $CellContext`p3 -> {126.58988901172162`, 10.,
- 17.320508075688775`, 0.}, $CellContext`p4 -> {291.27408357233327`,
- 0., -291.27408357233327`, 0.}, $CellContext`p5 -> {
- 274.1360274159449, -10., 273.9535754966445, 0.}}], "\n"],
+ MatrixForm[{$CellContext`p1 -> {345., 0., 0., 345.}, $CellContext`p2 -> {
+ 345., 0., 0., -345.}, $CellContext`p3 -> {126.58988901172162`, 10.,
+ 17.320508075688775`, 0.}, $CellContext`p4 -> {290.27374946613844`,
+ 0., -290.27374946613844`, 0.}, $CellContext`p5 -> {
+ 273.13636152213985`, -10., 272.95324139044965`, 0.}}], "\n"],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733894405837*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808947805764*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"ed66a9c3-1d43-435e-ab83-4999a4ad79d8"],
+In[266]:=",ExpressionUUID->"27d4284c-c5f5-4b51-9f7e-8cbc20f7231d"],
Cell[BoxData[
InterpretationBox[
@@ -39275,73 +19381,65 @@ Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
- "-", "2.0247141548399395386020466267887103828750793482697310790341840805`\
-44.16522762891722*^-13"}], ",", "0``58.69897000433602", ",",
- "0``57.234668159812166", ",", "0``57.15989390554324"}], "}"}]}],
+ "-", "6.943514411360013189695387250594172645896438148735770561459746379`\
+43.70170025482238*^-14"}], ",", "0``58.69897000433602", ",",
+ "0``57.23616224159246", ",", "0``57.161150909262744"}], "}"}]}],
SequenceForm[
"Check 4 momentum conservation: p3+p4+p5 -p1 -p2 =0 : ", \
-{-2.0247141548399395386020466267887103828750793482697310790341840805`44.\
-16522762891722*^-13, 0``58.69897000433602, 0``57.234668159812166,
- 0``57.15989390554324}],
+{-6.943514411360013189695387250594172645896438148735770561459746379`43.\
+70170025482238*^-14, 0``58.69897000433602, 0``57.23616224159246,
+ 0``57.161150909262744}],
Editable->False]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797338944141912`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808947813615*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"bf937ce7-92b6-4c20-992b-a3b047996b66"],
+In[266]:=",ExpressionUUID->"36481142-bfcc-4949-b943-d6c84795ab9f"],
Cell[BoxData["\<\"MOMENTUM IS CONSERVED, ALL IS WELL!\"\>"], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.779733894421896*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.779808947820937*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"dc3d62a5-a065-4e4d-8a02-7688fd727c71"],
+In[266]:=",ExpressionUUID->"ac57248c-64a3-4352-9898-d8d9beb228dd"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"kkT3", "\[Rule]", "20.`"}], ",",
- RowBox[{"kkT4", "\[Rule]", "291.2740835723332679663`10."}], ",",
- RowBox[{"S", "\[Rule]", "478864.`10."}], ",",
+ RowBox[{"kkT4", "\[Rule]", "290.2737494661384403116`10."}], ",",
+ RowBox[{"S", "\[Rule]", "476100.`10."}], ",",
RowBox[{"T", "\[Rule]",
- RowBox[{"-", "71975.2031961113660977494`10."}]}], ",",
+ RowBox[{"-", "71722.0234180879228431316`10."}]}], ",",
RowBox[{"U", "\[Rule]",
- RowBox[{"-", "71975.2031961113660977494`10."}]}], ",",
+ RowBox[{"-", "71722.0234180879228431316`10."}]}], ",",
RowBox[{"T24", "\[Rule]",
- RowBox[{"-", "201561.6658320546214326896`10."}]}], ",",
+ RowBox[{"-", "200288.8871316355238150209`10."}]}], ",",
RowBox[{"T14", "\[Rule]",
- RowBox[{"-", "201561.6658320546214326896`10."}]}], ",",
- RowBox[{"S34", "\[Rule]", "99459.738056332086070297`10."}], ",",
+ RowBox[{"-", "200288.8871316355238150209`10."}]}], ",",
+ RowBox[{"S34", "\[Rule]", "99171.8210994469312468303`10."}], ",",
RowBox[{
- SqrtBox["S"], "\[Rule]", "692.`10."}], ",",
+ SqrtBox["S"], "\[Rule]", "690.`10."}], ",",
RowBox[{
- SqrtBox["S34"], "\[Rule]", "315.372379983301781326`10."}], ",",
+ SqrtBox["S34"], "\[Rule]", "314.915577733853825383`10."}], ",",
RowBox[{
RowBox[{"Tan", "[", "\[Phi]5", "]"}], "\[Rule]",
- RowBox[{"-", "0.03650253508051945260280904843316249763`10."}]}], ",",
- RowBox[{"kT5", "\[Rule]", "274.1360274159449022534`10."}], ",",
+ RowBox[{"-", "0.03663631158603961887865809994064932551`10."}]}], ",",
+ RowBox[{"kT5", "\[Rule]", "273.1363615221398629443`10."}], ",",
RowBox[{
- SqrtBox["S35"], "\[Rule]", "275.2102257109837022916`10."}]}],
+ SqrtBox["S35"], "\[Rule]", "274.8130741735714743137`10."}]}],
"}"}]], "Print",
- CellChangeTimes->{3.779727746932988*^9, 3.7797338944298153`*^9},
+ CellChangeTimes->{3.779727746932988*^9, 3.7797311443183804`*^9,
+ 3.77979643481313*^9, 3.779796554493402*^9, 3.779796996254076*^9,
+ 3.779801718902295*^9, 3.77980894782824*^9},
CellLabel->
"During evaluation of \
-In[323]:=",ExpressionUUID->"d49b6311-5ba5-441f-839d-2fdf9c47dbdc"]
+In[266]:=",ExpressionUUID->"6d09de06-b3e1-484f-ae79-7754c09139bc"]
}, Open ]]
}, Closed]],
-Cell[CellGroupData[{
-
-Cell[BoxData[""], "Input",
- CellChangeTimes->{{3.779727679165557*^9,
- 3.7797276810894003`*^9}},ExpressionUUID->"e2730574-ac04-482f-83d9-\
-9c4de55b5fc0"],
-
-Cell[BoxData["$Aborted"], "Output",
- CellChangeTimes->{3.7797275612898684`*^9, 3.779727629598981*^9,
- 3.779727661876445*^9},
- CellLabel->
- "Out[254]=",ExpressionUUID->"c5c505fe-4051-4f67-824a-cb39dfd29847"]
-}, Open ]],
-
Cell[BoxData[{
RowBox[{
RowBox[{"SetDirectory", "[",
@@ -39351,11 +19449,15 @@ Cell[BoxData[{
RowBox[{"SetDirectory", "[",
RowBox[{"StringJoin", "[",
RowBox[{
- RowBox[{"ParentDirectory", "[", "]"}], ",", "\"\</plots/2jets\>\""}],
- "]"}], "]"}], ";"}]}], "Input",
- CellChangeTimes->{{3.779728091472397*^9, 3.77972809597082*^9}},
+ RowBox[{"ParentDirectory", "[", "]"}], ",",
+ "\"\</plots/2jets/kt3_20/\>\""}], "]"}], "]"}], ";"}]}], "Input",
+ CellChangeTimes->{{3.779728091472397*^9, 3.77972809597082*^9}, {
+ 3.7797956367584543`*^9, 3.7797956782390213`*^9}, {3.779795761493602*^9,
+ 3.779795764333372*^9}, {3.779796564350816*^9, 3.77979656466706*^9}, {
+ 3.779807862789379*^9, 3.7798078635434427`*^9}, {3.7798111156392727`*^9,
+ 3.779811117831358*^9}},
CellLabel->
- "In[333]:=",ExpressionUUID->"be1b5917-86e0-4f8f-ab7c-013dff2fc709"],
+ "In[282]:=",ExpressionUUID->"be1b5917-86e0-4f8f-ab7c-013dff2fc709"],
Cell[BoxData[{
RowBox[{
@@ -39394,16 +19496,50 @@ Cell[BoxData[{
RowBox[{
RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[++++]\>\""}],
"}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{"\"\<ggHgg_++++.png\>\"", ",", "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "im"}], "}"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S34", "]"}], ",", "\"\<Amp[++++]\>\""}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_++++.png\>\"", ",", "plottest", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}]}], "Input",
+ RowBox[{"\"\<ggHgg_++++_S34.png\>\"", ",", "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}],
+ ";"}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.7797278227448797`*^9, 3.779727922372373*^9}, {
3.779728242820135*^9, 3.779728243075076*^9}, {3.779729130396789*^9,
3.77972918197513*^9}, {3.779729450124349*^9, 3.779729459959154*^9}, {
- 3.779729610556365*^9, 3.779729736505456*^9}},
+ 3.779729610556365*^9, 3.779729736505456*^9}, {3.77979714774755*^9,
+ 3.779797166995288*^9}},
CellLabel->
- "In[335]:=",ExpressionUUID->"7c34c081-0d57-45d4-b481-65643a160950"],
+ "In[284]:=",ExpressionUUID->"7c34c081-0d57-45d4-b481-65643a160950"],
Cell[BoxData[{
RowBox[{
@@ -39442,13 +19578,47 @@ Cell[BoxData[{
RowBox[{
RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[+++-]\>\""}],
"}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{"\"\<ggHgg_+++-.png\>\"", ",", "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "im"}], "}"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S34", "]"}], ",", "\"\<Amp[+++-]\>\""}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_+++-.png\>\"", ",", "plottest", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}]}], "Input",
- CellChangeTimes->{{3.779731188134094*^9, 3.779731198577499*^9}},
+ RowBox[{"\"\<ggHgg_+++-_S34.png\>\"", ",", "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}],
+ ";"}], "\[IndentingNewLine]"}], "Input",
+ CellChangeTimes->{{3.779731188134094*^9, 3.779731198577499*^9}, {
+ 3.779797062184462*^9, 3.779797140563714*^9}},
CellLabel->
- "In[341]:=",ExpressionUUID->"be5d4c82-6a54-4c5a-8b2e-19158848b27a"],
+ "In[294]:=",ExpressionUUID->"be5d4c82-6a54-4c5a-8b2e-19158848b27a"],
Cell[BoxData[{
RowBox[{
@@ -39487,13 +19657,47 @@ Cell[BoxData[{
RowBox[{
RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[++-+]\>\""}],
"}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{"\"\<ggHgg_++-+.png\>\"", ",", "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "im"}], "}"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S34", "]"}], ",", "\"\<Amp[++-+]\>\""}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_++-+.png\>\"", ",", "plottest", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}]}], "Input",
- CellChangeTimes->{{3.779731215262043*^9, 3.7797312312693768`*^9}},
+ RowBox[{"\"\<ggHgg_++-+_S34.png\>\"", ",", "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}],
+ ";"}], "\[IndentingNewLine]"}], "Input",
+ CellChangeTimes->{{3.779731215262043*^9, 3.7797312312693768`*^9}, {
+ 3.77979718251364*^9, 3.779797211163431*^9}},
CellLabel->
- "In[347]:=",ExpressionUUID->"eaf57a4f-3045-4699-97c2-79ae6aae197d"],
+ "In[304]:=",ExpressionUUID->"eaf57a4f-3045-4699-97c2-79ae6aae197d"],
Cell[BoxData[{
RowBox[{
@@ -39532,13 +19736,47 @@ Cell[BoxData[{
RowBox[{
RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[+-++]\>\""}],
"}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{"\"\<ggHgg_+-++.png\>\"", ",", "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "im"}], "}"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S34", "]"}], ",", "\"\<Amp[+-++]\>\""}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_+-++.png\>\"", ",", "plottest", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}]}], "Input",
- CellChangeTimes->{{3.77973123994528*^9, 3.779731261604753*^9}},
+ RowBox[{"\"\<ggHgg_+-++_S34.png\>\"", ",", "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}],
+ ";"}], "\[IndentingNewLine]"}], "Input",
+ CellChangeTimes->{{3.77973123994528*^9, 3.779731261604753*^9}, {
+ 3.77979721461591*^9, 3.7797972263228283`*^9}},
CellLabel->
- "In[353]:=",ExpressionUUID->"2c25bb8c-6725-44e1-8da6-eaf8faa31ba6"],
+ "In[314]:=",ExpressionUUID->"2c25bb8c-6725-44e1-8da6-eaf8faa31ba6"],
Cell[BoxData[{
RowBox[{
@@ -39577,13 +19815,47 @@ Cell[BoxData[{
RowBox[{
RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[++--]\>\""}],
"}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{"\"\<ggHgg_++--.png\>\"", ",", "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "im"}], "}"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S34", "]"}], ",", "\"\<Amp[++--]\>\""}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_++--.png\>\"", ",", "plottest", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}]}], "Input",
- CellChangeTimes->{{3.7797312702537937`*^9, 3.779731277655807*^9}},
+ RowBox[{"\"\<ggHgg_++--_S34.png\>\"", ",", "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}],
+ ";"}], "\[IndentingNewLine]"}], "Input",
+ CellChangeTimes->{{3.7797312702537937`*^9, 3.779731277655807*^9}, {
+ 3.779797231400651*^9, 3.779797242174149*^9}},
CellLabel->
- "In[359]:=",ExpressionUUID->"3bc26d5f-2281-4004-8ecf-fe01e98ab1ee"],
+ "In[324]:=",ExpressionUUID->"3bc26d5f-2281-4004-8ecf-fe01e98ab1ee"],
Cell[BoxData[{
RowBox[{
@@ -39622,13 +19894,47 @@ Cell[BoxData[{
RowBox[{
RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[+---]\>\""}],
"}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{"\"\<ggHgg_+---.png\>\"", ",", "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "im"}], "}"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S34", "]"}], ",", "\"\<Amp[+---]\>\""}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_+---.png\>\"", ",", "plottest", ",",
- RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}]}], "Input",
- CellChangeTimes->{{3.779731292783431*^9, 3.779731303536839*^9}},
+ RowBox[{"\"\<ggHgg_+---_S34.png\>\"", ",", "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}],
+ ";"}], "\[IndentingNewLine]"}], "Input",
+ CellChangeTimes->{{3.779731292783431*^9, 3.779731303536839*^9}, {
+ 3.779797258091147*^9, 3.7797972655277576`*^9}},
CellLabel->
- "In[365]:=",ExpressionUUID->"407f66be-8c97-4a6e-8fae-98888429e4a7"],
+ "In[334]:=",ExpressionUUID->"407f66be-8c97-4a6e-8fae-98888429e4a7"],
Cell[BoxData[{
RowBox[{
@@ -39667,16 +19973,49 @@ Cell[BoxData[{
RowBox[{
RowBox[{"Sqrt", "[", "S", "]"}], ",", "\"\<Amp[+-+-]\>\""}],
"}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Export", "[",
+ RowBox[{"\"\<ggHgg_+-+-.png\>\"", ",", "plottest", ",",
+ RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}],
+ "\[IndentingNewLine]"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"regraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "re"}], "}"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"imgraphS34", "=",
+ RowBox[{"Transpose", "[",
+ RowBox[{"{",
+ RowBox[{"S34List", ",", "im"}], "}"}], "]"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"plottest", "=",
+ RowBox[{"ListPlot", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"regraphS34", ",", "imgraphS34"}], "}"}], ",",
+ RowBox[{"PlotLabels", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\"\<Real\>\"", ",", "\"\<Imaginary\>\""}], "}"}]}], ",",
+ RowBox[{"AxesLabel", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Sqrt", "[", "S34", "]"}], ",", "\"\<Amp[+-+-]\>\""}],
+ "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Export", "[",
- RowBox[{"\"\<ggHgg_+-+-.png\>\"", ",", "plottest", ",",
+ RowBox[{"\"\<ggHgg_+-+-_S34.png\>\"", ",", "plottest", ",",
RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ";"}]}], "Input",
- CellChangeTimes->{{3.779731315920693*^9, 3.779731323922114*^9}},
+ CellChangeTimes->{{3.779731315920693*^9, 3.779731323922114*^9}, {
+ 3.779797268062643*^9, 3.7797972779899273`*^9}},
CellLabel->
- "In[371]:=",ExpressionUUID->"ae404f70-9594-4115-b289-51307bc065ef"]
+ "In[344]:=",ExpressionUUID->"ae404f70-9594-4115-b289-51307bc065ef"]
},
-WindowSize->{808, 755},
-WindowMargins->{{4, Automatic}, {Automatic, 4}},
+WindowSize->{1100, 755},
+WindowMargins->{{Automatic, -1417}, {Automatic, 0}},
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->"Default.nb"
@@ -39696,1500 +20035,688 @@ Cell[558, 20, 855, 19, 136, "Input",ExpressionUUID->"07059ed1-da78-45a1-a93e-4a9
Cell[CellGroupData[{
Cell[1438, 43, 270, 4, 52, "Input",ExpressionUUID->"ec90fe77-07b4-4ed1-b03c-078c2d13f994"],
Cell[CellGroupData[{
-Cell[1733, 51, 532, 8, 46, "Print",ExpressionUUID->"d042288d-cedb-4f34-9877-181e60d9b7a5"],
-Cell[2268, 61, 311, 5, 24, "Print",ExpressionUUID->"4c683fb4-9f6e-4b4b-b355-9709eeace5e8"]
+Cell[1733, 51, 556, 9, 46, "Print",ExpressionUUID->"838d0a23-6898-4c1f-9715-1557c1d029a2"],
+Cell[2292, 62, 337, 6, 24, "Print",ExpressionUUID->"0dd636b2-e8e5-4deb-9234-9b33c7354d96"]
}, Open ]]
}, Open ]],
-Cell[2606, 70, 1414, 33, 94, "Input",ExpressionUUID->"5d0ea240-67dd-49bc-b50f-db3cf34e44fc"],
-Cell[4023, 105, 4311, 127, 703, "Input",ExpressionUUID->"d7b76967-dca2-4367-8a21-339155e2fa1b"],
-Cell[8337, 234, 11819, 322, 1102, "Input",ExpressionUUID->"cbc22efa-decc-497a-9b30-3d83accfa7ac"],
-Cell[20159, 558, 1425, 34, 94, "Input",ExpressionUUID->"7ea9f282-595c-4ec8-9993-bd70daad86ee"],
-Cell[21587, 594, 10894, 296, 1165, "Input",ExpressionUUID->"eca74a07-e704-4ac5-ae22-c5d897e92d8a"],
-Cell[32484, 892, 147, 3, 52, "Input",ExpressionUUID->"b47c7785-979d-4d00-9cb1-1123c93aa995"],
-Cell[32634, 897, 1076, 24, 73, "Input",ExpressionUUID->"6990fcad-4b93-4084-85c7-9f8a2a9ec1bd"],
-Cell[33713, 923, 3589, 92, 325, "Input",ExpressionUUID->"33addaa0-998d-4b37-a063-b4d9ca2014a6"],
-Cell[37305, 1017, 2844, 82, 304, "Input",ExpressionUUID->"f24ba508-f9b4-4d9c-b09b-ce0d1cd30b9a"],
-Cell[40152, 1101, 2773, 82, 304, "Input",ExpressionUUID->"6ef61c5a-8d5b-422e-87a8-52cd3286d020"],
-Cell[42928, 1185, 2851, 82, 304, "Input",ExpressionUUID->"b4ab43af-b2d2-48fd-883b-1e6ef0ca95a1"],
-Cell[45782, 1269, 2844, 82, 304, "Input",ExpressionUUID->"189115e0-bd18-4603-80d6-269421a6b68b"],
-Cell[48629, 1353, 2770, 82, 304, "Input",ExpressionUUID->"4a1f79ce-2fd4-45ad-9be7-a3c1df89c461"],
-Cell[51402, 1437, 2792, 81, 304, "Input",ExpressionUUID->"4e9cbc8a-82d1-4556-a4da-a08017bba245"],
-Cell[54197, 1520, 2991, 83, 283, "Input",ExpressionUUID->"de4f5de1-0e56-4379-9af0-6f19a3710802"],
-Cell[57191, 1605, 149, 3, 52, "Input",ExpressionUUID->"618a27be-8e1d-45e5-88c5-448e54104463"],
-Cell[57343, 1610, 5566, 151, 808, "Input",ExpressionUUID->"9e5ab832-d55b-4a3c-9abe-9348c681e821"],
-Cell[62912, 1763, 31163, 803, 2173, "Input",ExpressionUUID->"35551bf6-1d6e-48c1-8954-443eb44136bd"],
+Cell[2656, 72, 1414, 33, 73, "Input",ExpressionUUID->"5d0ea240-67dd-49bc-b50f-db3cf34e44fc"],
+Cell[4073, 107, 11820, 322, 955, "Input",ExpressionUUID->"cbc22efa-decc-497a-9b30-3d83accfa7ac"],
+Cell[15896, 431, 1425, 34, 94, "Input",ExpressionUUID->"7ea9f282-595c-4ec8-9993-bd70daad86ee"],
+Cell[17324, 467, 4311, 127, 703, "Input",ExpressionUUID->"d7b76967-dca2-4367-8a21-339155e2fa1b"],
+Cell[21638, 596, 10894, 296, 1165, "Input",ExpressionUUID->"eca74a07-e704-4ac5-ae22-c5d897e92d8a"],
+Cell[32535, 894, 147, 3, 52, "Input",ExpressionUUID->"b47c7785-979d-4d00-9cb1-1123c93aa995"],
+Cell[32685, 899, 1076, 24, 73, "Input",ExpressionUUID->"6990fcad-4b93-4084-85c7-9f8a2a9ec1bd"],
+Cell[33764, 925, 3589, 92, 325, "Input",ExpressionUUID->"33addaa0-998d-4b37-a063-b4d9ca2014a6"],
+Cell[37356, 1019, 2844, 82, 304, "Input",ExpressionUUID->"f24ba508-f9b4-4d9c-b09b-ce0d1cd30b9a"],
+Cell[40203, 1103, 2773, 82, 304, "Input",ExpressionUUID->"6ef61c5a-8d5b-422e-87a8-52cd3286d020"],
+Cell[42979, 1187, 2851, 82, 304, "Input",ExpressionUUID->"b4ab43af-b2d2-48fd-883b-1e6ef0ca95a1"],
+Cell[45833, 1271, 2844, 82, 304, "Input",ExpressionUUID->"189115e0-bd18-4603-80d6-269421a6b68b"],
+Cell[48680, 1355, 2770, 82, 304, "Input",ExpressionUUID->"4a1f79ce-2fd4-45ad-9be7-a3c1df89c461"],
+Cell[51453, 1439, 2792, 81, 304, "Input",ExpressionUUID->"4e9cbc8a-82d1-4556-a4da-a08017bba245"],
+Cell[54248, 1522, 2991, 83, 283, "Input",ExpressionUUID->"de4f5de1-0e56-4379-9af0-6f19a3710802"],
+Cell[57242, 1607, 149, 3, 52, "Input",ExpressionUUID->"618a27be-8e1d-45e5-88c5-448e54104463"],
+Cell[57394, 1612, 5566, 151, 808, "Input",ExpressionUUID->"9e5ab832-d55b-4a3c-9abe-9348c681e821"],
+Cell[62963, 1765, 31163, 803, 1732, "Input",ExpressionUUID->"35551bf6-1d6e-48c1-8954-443eb44136bd"],
Cell[CellGroupData[{
-Cell[94100, 2570, 1217, 34, 94, "Input",ExpressionUUID->"dd949c8e-1fd9-40db-9ecc-01abf04d2e88"],
+Cell[94151, 2572, 1217, 34, 73, "Input",ExpressionUUID->"dd949c8e-1fd9-40db-9ecc-01abf04d2e88"],
Cell[CellGroupData[{
-Cell[95342, 2608, 513, 13, 44, "Print",ExpressionUUID->"d31fd212-0272-422b-93e6-a4a4789b73ed"],
-Cell[95858, 2623, 2285, 57, 145, "Print",ExpressionUUID->"1d30a57c-424a-4014-9729-0d4310e29ce4"],
-Cell[98146, 2682, 862, 20, 47, "Print",ExpressionUUID->"049a5c0d-dc6d-411c-93cd-8568ff4b85dd"],
-Cell[99011, 2704, 263, 5, 24, "Print",ExpressionUUID->"429f2cc2-a482-49fb-8947-e2325b7148dc"],
-Cell[99277, 2711, 1271, 30, 69, "Print",ExpressionUUID->"b31d3e7a-b1f7-4fdd-9179-3871b7f2d20d"]
+Cell[95393, 2610, 513, 13, 44, "Print",ExpressionUUID->"d31fd212-0272-422b-93e6-a4a4789b73ed"],
+Cell[95909, 2625, 2285, 57, 145, "Print",ExpressionUUID->"1d30a57c-424a-4014-9729-0d4310e29ce4"],
+Cell[98197, 2684, 862, 20, 27, "Print",ExpressionUUID->"049a5c0d-dc6d-411c-93cd-8568ff4b85dd"],
+Cell[99062, 2706, 263, 5, 24, "Print",ExpressionUUID->"429f2cc2-a482-49fb-8947-e2325b7148dc"],
+Cell[99328, 2713, 1271, 30, 49, "Print",ExpressionUUID->"b31d3e7a-b1f7-4fdd-9179-3871b7f2d20d"]
}, Open ]]
}, Open ]],
-Cell[100575, 2745, 5653, 180, 346, "Input",ExpressionUUID->"de26972f-e4c7-4f23-84a8-dd50a23c3c50"],
-Cell[106231, 2927, 811, 26, 30, "Input",ExpressionUUID->"182b1eb4-904f-4035-96f1-7c217edef670"],
-Cell[107045, 2955, 341, 10, 30, "Input",ExpressionUUID->"d8458a9c-2ac7-4f59-87ec-a96f24be74ef"],
+Cell[100626, 2747, 5653, 180, 346, "Input",ExpressionUUID->"de26972f-e4c7-4f23-84a8-dd50a23c3c50"],
+Cell[106282, 2929, 811, 26, 30, "Input",ExpressionUUID->"182b1eb4-904f-4035-96f1-7c217edef670"],
+Cell[107096, 2957, 341, 10, 30, "Input",ExpressionUUID->"d8458a9c-2ac7-4f59-87ec-a96f24be74ef"],
Cell[CellGroupData[{
-Cell[107411, 2969, 888, 24, 94, "Input",ExpressionUUID->"5880fd92-9320-4ca3-b334-6eb692552947"],
-Cell[108302, 2995, 290, 4, 34, "Output",ExpressionUUID->"7153857e-2135-4870-8132-7b49944445ec"]
+Cell[107462, 2971, 888, 24, 94, "Input",ExpressionUUID->"5880fd92-9320-4ca3-b334-6eb692552947"],
+Cell[108353, 2997, 290, 4, 34, "Output",ExpressionUUID->"7153857e-2135-4870-8132-7b49944445ec"]
}, Open ]],
Cell[CellGroupData[{
-Cell[108629, 3004, 986, 26, 94, "Input",ExpressionUUID->"cad2cf5c-1e1f-4324-887b-d3911b5dae26"],
-Cell[109618, 3032, 368, 6, 34, "Output",ExpressionUUID->"fa21e151-cad1-44c3-90a0-10bd2df8f9d8"]
+Cell[108680, 3006, 986, 26, 94, "Input",ExpressionUUID->"cad2cf5c-1e1f-4324-887b-d3911b5dae26"],
+Cell[109669, 3034, 368, 6, 34, "Output",ExpressionUUID->"fa21e151-cad1-44c3-90a0-10bd2df8f9d8"]
}, Open ]],
-Cell[110001, 3041, 884, 29, 30, "Input",ExpressionUUID->"cd98c05a-fc47-49fe-b336-c8fa35845f46"],
-Cell[110888, 3072, 451, 13, 30, "Input",ExpressionUUID->"af29fd58-c6e0-425f-a465-aeee85ed9b1d"],
+Cell[110052, 3043, 884, 29, 30, "Input",ExpressionUUID->"cd98c05a-fc47-49fe-b336-c8fa35845f46"],
+Cell[110939, 3074, 451, 13, 30, "Input",ExpressionUUID->"af29fd58-c6e0-425f-a465-aeee85ed9b1d"],
Cell[CellGroupData[{
-Cell[111364, 3089, 945, 26, 94, "Input",ExpressionUUID->"85ccf28f-cb4a-425e-9291-a0471d7c6384"],
-Cell[112312, 3117, 274, 5, 34, "Output",ExpressionUUID->"e63ffe1e-5793-4c81-9ae0-2dd4ac1b152a"]
+Cell[111415, 3091, 945, 26, 94, "Input",ExpressionUUID->"85ccf28f-cb4a-425e-9291-a0471d7c6384"],
+Cell[112363, 3119, 274, 5, 34, "Output",ExpressionUUID->"e63ffe1e-5793-4c81-9ae0-2dd4ac1b152a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[112623, 3127, 891, 25, 94, "Input",ExpressionUUID->"b8359ef6-e7ec-4c96-bbe4-8b3c6fef39af"],
-Cell[113517, 3154, 299, 5, 34, "Output",ExpressionUUID->"636377a4-6b9c-473c-a285-4c155c5d1bec"]
+Cell[112674, 3129, 891, 25, 94, "Input",ExpressionUUID->"b8359ef6-e7ec-4c96-bbe4-8b3c6fef39af"],
+Cell[113568, 3156, 299, 5, 34, "Output",ExpressionUUID->"636377a4-6b9c-473c-a285-4c155c5d1bec"]
}, Open ]],
-Cell[113831, 3162, 811, 26, 30, "Input",ExpressionUUID->"dd8436d0-935b-4efe-969f-f9d4d49ececb"],
-Cell[114645, 3190, 429, 12, 30, "Input",ExpressionUUID->"213b6240-7175-4d90-8baa-6afebe952928"],
+Cell[113882, 3164, 811, 26, 30, "Input",ExpressionUUID->"dd8436d0-935b-4efe-969f-f9d4d49ececb"],
+Cell[114696, 3192, 429, 12, 30, "Input",ExpressionUUID->"213b6240-7175-4d90-8baa-6afebe952928"],
Cell[CellGroupData[{
-Cell[115099, 3206, 894, 25, 94, "Input",ExpressionUUID->"b04b482d-7eee-4875-b3f4-ad0fbe974553"],
-Cell[115996, 3233, 323, 6, 34, "Output",ExpressionUUID->"b1b6a6eb-a733-4c32-8851-ef0e8ad9bd4b"]
+Cell[115150, 3208, 894, 25, 94, "Input",ExpressionUUID->"b04b482d-7eee-4875-b3f4-ad0fbe974553"],
+Cell[116047, 3235, 323, 6, 34, "Output",ExpressionUUID->"b1b6a6eb-a733-4c32-8851-ef0e8ad9bd4b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[116356, 3244, 940, 26, 94, "Input",ExpressionUUID->"9c5cdfa8-1c1d-4b29-83bc-ce97ab8f14de"],
-Cell[117299, 3272, 274, 5, 34, "Output",ExpressionUUID->"268e7da7-55d4-4f3c-a209-469b03d9d838"]
+Cell[116407, 3246, 940, 26, 94, "Input",ExpressionUUID->"9c5cdfa8-1c1d-4b29-83bc-ce97ab8f14de"],
+Cell[117350, 3274, 274, 5, 34, "Output",ExpressionUUID->"268e7da7-55d4-4f3c-a209-469b03d9d838"]
}, Open ]],
-Cell[117588, 3280, 884, 29, 30, "Input",ExpressionUUID->"6d590f68-025d-4e76-96a4-f8d708004a9b"],
-Cell[118475, 3311, 403, 12, 30, "Input",ExpressionUUID->"69088eff-d3a7-4052-b105-6ce5c9626a01"],
+Cell[117639, 3282, 884, 29, 30, "Input",ExpressionUUID->"6d590f68-025d-4e76-96a4-f8d708004a9b"],
+Cell[118526, 3313, 403, 12, 30, "Input",ExpressionUUID->"69088eff-d3a7-4052-b105-6ce5c9626a01"],
Cell[CellGroupData[{
-Cell[118903, 3327, 894, 25, 94, "Input",ExpressionUUID->"af836377-5d7e-4f53-93e3-195e1e04e480"],
-Cell[119800, 3354, 274, 6, 34, "Output",ExpressionUUID->"38e1e5ed-f288-4455-82e1-b64a7502490f"]
+Cell[118954, 3329, 894, 25, 94, "Input",ExpressionUUID->"af836377-5d7e-4f53-93e3-195e1e04e480"],
+Cell[119851, 3356, 274, 6, 34, "Output",ExpressionUUID->"38e1e5ed-f288-4455-82e1-b64a7502490f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[120111, 3365, 894, 25, 94, "Input",ExpressionUUID->"1ccc7397-59d3-426c-8e77-f2e1dc063b86"],
-Cell[121008, 3392, 275, 6, 34, "Output",ExpressionUUID->"057a7d59-5496-4172-91cb-2930aa9d2542"]
+Cell[120162, 3367, 894, 25, 94, "Input",ExpressionUUID->"1ccc7397-59d3-426c-8e77-f2e1dc063b86"],
+Cell[121059, 3394, 275, 6, 34, "Output",ExpressionUUID->"057a7d59-5496-4172-91cb-2930aa9d2542"]
}, Open ]],
-Cell[121298, 3401, 811, 26, 30, "Input",ExpressionUUID->"d5ad72cf-c464-4f2e-8108-84dbd216cab1"],
-Cell[122112, 3429, 332, 10, 30, "Input",ExpressionUUID->"752a3f8d-f3d4-4411-987d-dc217a127fe7"],
+Cell[121349, 3403, 811, 26, 30, "Input",ExpressionUUID->"d5ad72cf-c464-4f2e-8108-84dbd216cab1"],
+Cell[122163, 3431, 332, 10, 30, "Input",ExpressionUUID->"752a3f8d-f3d4-4411-987d-dc217a127fe7"],
Cell[CellGroupData[{
-Cell[122469, 3443, 894, 25, 94, "Input",ExpressionUUID->"e418f4da-ff02-4dc0-aa7a-ab6564818f78"],
-Cell[123366, 3470, 275, 5, 34, "Output",ExpressionUUID->"91b093c4-5fe2-41dc-88b9-32a893b1665a"]
+Cell[122520, 3445, 894, 25, 94, "Input",ExpressionUUID->"e418f4da-ff02-4dc0-aa7a-ab6564818f78"],
+Cell[123417, 3472, 275, 5, 34, "Output",ExpressionUUID->"91b093c4-5fe2-41dc-88b9-32a893b1665a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[123678, 3480, 892, 25, 94, "Input",ExpressionUUID->"89a4fe95-ed9f-4fc8-a409-7e07cb7aed00"],
-Cell[124573, 3507, 275, 5, 34, "Output",ExpressionUUID->"bb1dd083-6c11-485a-bf24-0bd0f5cd3b0a"]
+Cell[123729, 3482, 892, 25, 94, "Input",ExpressionUUID->"89a4fe95-ed9f-4fc8-a409-7e07cb7aed00"],
+Cell[124624, 3509, 275, 5, 34, "Output",ExpressionUUID->"bb1dd083-6c11-485a-bf24-0bd0f5cd3b0a"]
}, Open ]],
-Cell[124863, 3515, 811, 26, 30, "Input",ExpressionUUID->"3ae73bc5-4aeb-470c-90ab-96783e700a1c"],
-Cell[125677, 3543, 447, 14, 30, "Input",ExpressionUUID->"85ad533d-c3c4-4762-ac62-6ee29af8a7df"],
+Cell[124914, 3517, 811, 26, 30, "Input",ExpressionUUID->"3ae73bc5-4aeb-470c-90ab-96783e700a1c"],
+Cell[125728, 3545, 447, 14, 30, "Input",ExpressionUUID->"85ad533d-c3c4-4762-ac62-6ee29af8a7df"],
Cell[CellGroupData[{
-Cell[126149, 3561, 942, 26, 94, "Input",ExpressionUUID->"00c369b7-86f6-4e30-bf55-af8f43f33657"],
-Cell[127094, 3589, 297, 5, 34, "Output",ExpressionUUID->"e8e64d9b-e345-494c-bc74-3c3a61eb0f18"]
+Cell[126200, 3563, 942, 26, 94, "Input",ExpressionUUID->"00c369b7-86f6-4e30-bf55-af8f43f33657"],
+Cell[127145, 3591, 297, 5, 34, "Output",ExpressionUUID->"e8e64d9b-e345-494c-bc74-3c3a61eb0f18"]
}, Open ]],
Cell[CellGroupData[{
-Cell[127428, 3599, 943, 26, 94, "Input",ExpressionUUID->"db88f3e2-7e99-40f6-87de-4068f1d6142c"],
-Cell[128374, 3627, 296, 5, 34, "Output",ExpressionUUID->"85a70a3b-2762-4f12-abc5-6b71183df596"]
+Cell[127479, 3601, 943, 26, 94, "Input",ExpressionUUID->"db88f3e2-7e99-40f6-87de-4068f1d6142c"],
+Cell[128425, 3629, 296, 5, 34, "Output",ExpressionUUID->"85a70a3b-2762-4f12-abc5-6b71183df596"]
}, Open ]],
-Cell[128685, 3635, 811, 26, 30, "Input",ExpressionUUID->"f729b907-0fbc-4b1f-ab80-ee926d31037e"],
-Cell[129499, 3663, 884, 27, 73, "Input",ExpressionUUID->"0fd68ed1-f787-4031-b35d-b4a0c9a67c5a"],
+Cell[128736, 3637, 811, 26, 30, "Input",ExpressionUUID->"f729b907-0fbc-4b1f-ab80-ee926d31037e"],
+Cell[129550, 3665, 884, 27, 73, "Input",ExpressionUUID->"0fd68ed1-f787-4031-b35d-b4a0c9a67c5a"],
Cell[CellGroupData[{
-Cell[130408, 3694, 991, 27, 94, "Input",ExpressionUUID->"62be9f8c-4f5f-412e-b856-eed5f0d0cc04"],
-Cell[131402, 3723, 323, 6, 34, "Output",ExpressionUUID->"5f882c80-ac56-43d3-8786-9a038b3bed25"]
+Cell[130459, 3696, 991, 27, 94, "Input",ExpressionUUID->"62be9f8c-4f5f-412e-b856-eed5f0d0cc04"],
+Cell[131453, 3725, 323, 6, 34, "Output",ExpressionUUID->"5f882c80-ac56-43d3-8786-9a038b3bed25"]
}, Open ]],
Cell[CellGroupData[{
-Cell[131762, 3734, 994, 27, 94, "Input",ExpressionUUID->"579a644f-6460-4b29-8bcb-db9989a588e3"],
-Cell[132759, 3763, 320, 6, 34, "Output",ExpressionUUID->"e4bf3e4e-8c5f-4f96-bbe7-e426b981bfaf"]
+Cell[131813, 3736, 994, 27, 94, "Input",ExpressionUUID->"579a644f-6460-4b29-8bcb-db9989a588e3"],
+Cell[132810, 3765, 320, 6, 34, "Output",ExpressionUUID->"e4bf3e4e-8c5f-4f96-bbe7-e426b981bfaf"]
}, Open ]],
-Cell[133094, 3772, 811, 26, 30, "Input",ExpressionUUID->"5a313745-60dc-42eb-b195-fbaa567834c9"],
-Cell[133908, 3800, 461, 11, 30, "Input",ExpressionUUID->"bd078427-186c-41cd-af66-decc5f5b36af"],
+Cell[133145, 3774, 811, 26, 30, "Input",ExpressionUUID->"5a313745-60dc-42eb-b195-fbaa567834c9"],
+Cell[133959, 3802, 461, 11, 30, "Input",ExpressionUUID->"bd078427-186c-41cd-af66-decc5f5b36af"],
Cell[CellGroupData[{
-Cell[134394, 3815, 1090, 28, 94, "Input",ExpressionUUID->"08a4070b-21d8-4da1-a68d-aa8d2409fb96"],
-Cell[135487, 3845, 373, 7, 34, "Output",ExpressionUUID->"9f3ab495-4dcf-44f3-a3d0-0ad377d7580e"]
+Cell[134445, 3817, 1090, 28, 94, "Input",ExpressionUUID->"08a4070b-21d8-4da1-a68d-aa8d2409fb96"],
+Cell[135538, 3847, 373, 7, 34, "Output",ExpressionUUID->"9f3ab495-4dcf-44f3-a3d0-0ad377d7580e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[135897, 3857, 1036, 27, 94, "Input",ExpressionUUID->"23ec3abb-3ddc-429a-a3fb-14f9da80abe5"],
-Cell[136936, 3886, 369, 6, 34, "Output",ExpressionUUID->"990afac5-a2e7-4da1-8282-cfe350d3f5c0"]
+Cell[135948, 3859, 1036, 27, 94, "Input",ExpressionUUID->"23ec3abb-3ddc-429a-a3fb-14f9da80abe5"],
+Cell[136987, 3888, 369, 6, 34, "Output",ExpressionUUID->"990afac5-a2e7-4da1-8282-cfe350d3f5c0"]
}, Open ]],
-Cell[137320, 3895, 1909, 56, 241, "Input",ExpressionUUID->"b274a7fa-02b1-4828-9d03-509e4c4311ea"],
-Cell[139232, 3953, 176, 4, 30, "Input",ExpressionUUID->"f8b20319-4c15-42df-ba5e-26e9e403ba03"],
-Cell[139411, 3959, 154, 3, 30, "Input",ExpressionUUID->"1aac05ed-9474-430e-9fd7-7c19a189fdbb"],
-Cell[139568, 3964, 1626, 40, 136, "Input",ExpressionUUID->"e6fb6024-14d6-408a-87d3-37b6fcf81702"],
+Cell[137371, 3897, 1909, 56, 241, "Input",ExpressionUUID->"b274a7fa-02b1-4828-9d03-509e4c4311ea"],
+Cell[139283, 3955, 176, 4, 30, "Input",ExpressionUUID->"f8b20319-4c15-42df-ba5e-26e9e403ba03"],
+Cell[139462, 3961, 154, 3, 30, "Input",ExpressionUUID->"1aac05ed-9474-430e-9fd7-7c19a189fdbb"],
+Cell[139619, 3966, 1410, 37, 73, "Input",ExpressionUUID->"4fa8ef23-de59-4f0c-90aa-1256848d2e3b"],
+Cell[141032, 4005, 1758, 43, 136, "Input",ExpressionUUID->"e6fb6024-14d6-408a-87d3-37b6fcf81702"],
+Cell[142793, 4050, 252, 7, 30, "Input",ExpressionUUID->"f5941321-f681-4658-b2ae-0bbf629be6c2"],
Cell[CellGroupData[{
-Cell[141219, 4008, 5767, 167, 766, "Input",ExpressionUUID->"d4ac6f76-1854-421d-aad8-bdf164ad28b3"],
+Cell[143070, 4061, 879, 23, 52, "Input",ExpressionUUID->"a8132637-c3e1-4436-93bd-91c4f1b0f8d4"],
Cell[CellGroupData[{
-Cell[147011, 4179, 492, 12, 44, "Print",ExpressionUUID->"093ed569-ac30-4fe3-86ea-405c16d9ef4a"],
-Cell[147506, 4193, 2284, 56, 145, "Print",ExpressionUUID->"d6f4cf28-7d5f-4848-9247-eb61ce583fbc"],
-Cell[149793, 4251, 838, 19, 47, "Print",ExpressionUUID->"b7f6e23d-f97e-4566-87a6-1415e645a34e"],
-Cell[150634, 4272, 239, 4, 24, "Print",ExpressionUUID->"7662925b-ef50-4342-8aba-281bcf17c510"],
-Cell[150876, 4278, 1225, 29, 69, "Print",ExpressionUUID->"db45e876-9ba1-46d6-bc2b-e4e95cda352c"],
-Cell[152104, 4309, 492, 12, 44, "Print",ExpressionUUID->"16dda6c3-6f2f-49ef-826f-5fcf6e8dec2f"],
-Cell[152599, 4323, 2284, 56, 145, "Print",ExpressionUUID->"2e370511-a8d6-42eb-9467-12e5ad916846"],
-Cell[154886, 4381, 838, 19, 47, "Print",ExpressionUUID->"8ac30807-ab2c-463e-881e-2bc9882c353c"],
-Cell[155727, 4402, 241, 4, 24, "Print",ExpressionUUID->"c0db70c8-e2ab-46d2-a3a0-34936e357fc9"],
-Cell[155971, 4408, 1207, 29, 69, "Print",ExpressionUUID->"57b4d524-c4c6-411a-ab82-cbb9eda89251"],
-Cell[157181, 4439, 484, 11, 44, "Print",ExpressionUUID->"68f9dc53-3090-4814-84a8-d1684a20fd4d"],
-Cell[157668, 4452, 2268, 56, 145, "Print",ExpressionUUID->"807f9006-0a2d-4bd7-837c-3f2a0675c1fd"],
-Cell[159939, 4510, 835, 19, 47, "Print",ExpressionUUID->"df9edb69-8e8f-48e1-9027-e1bed12e701f"],
-Cell[160777, 4531, 239, 4, 24, "Print",ExpressionUUID->"c665cc9b-3e80-4241-8314-55f57883ed09"],
-Cell[161019, 4537, 1222, 29, 69, "Print",ExpressionUUID->"c34d6111-35ae-4a7c-9e52-61f9dc97062f"],
-Cell[162244, 4568, 490, 12, 70, "Print",ExpressionUUID->"fdfe0891-9f15-4113-b34f-881989505d4c"],
-Cell[162737, 4582, 2258, 56, 70, "Print",ExpressionUUID->"c847b5b8-5dfc-4dbf-b1af-31b08b4c847d"],
-Cell[164998, 4640, 840, 19, 70, "Print",ExpressionUUID->"94e0bc35-a014-4d64-b56c-70fad24b45a1"],
-Cell[165841, 4661, 239, 4, 70, "Print",ExpressionUUID->"ecaaf9c3-3517-4f0d-98f4-b7dce022a5f9"],
-Cell[166083, 4667, 1220, 29, 70, "Print",ExpressionUUID->"4dbe994b-a725-49d4-80dd-ef8f41dce6a8"],
-Cell[167306, 4698, 484, 11, 70, "Print",ExpressionUUID->"51faeea1-8e85-4ac9-967d-d1a820eb460d"],
-Cell[167793, 4711, 2266, 56, 70, "Print",ExpressionUUID->"2c3d14ae-32c4-43c0-b1f7-c5665e38593c"],
-Cell[170062, 4769, 836, 19, 70, "Print",ExpressionUUID->"42ca4596-cc4a-40be-b20a-3e67b5b98110"],
-Cell[170901, 4790, 239, 4, 70, "Print",ExpressionUUID->"826e3de0-619d-43d2-b7f0-f75af37aafea"],
-Cell[171143, 4796, 1242, 29, 70, "Print",ExpressionUUID->"0251a2de-c734-4d01-afa9-14f2ac7eda4a"],
-Cell[172388, 4827, 468, 11, 70, "Print",ExpressionUUID->"ad8dd0cc-f516-4859-b0ce-19003548f4ac"],
-Cell[172859, 4840, 2258, 56, 70, "Print",ExpressionUUID->"2c31ece3-5d37-45c2-8567-8f4e92a4045a"],
-Cell[175120, 4898, 840, 19, 70, "Print",ExpressionUUID->"45090c40-ac8d-4030-bfdc-044e0c8c9e63"],
-Cell[175963, 4919, 239, 4, 70, "Print",ExpressionUUID->"3b9ff638-95c8-45e0-b184-818fce59b1ff"],
-Cell[176205, 4925, 1243, 29, 70, "Print",ExpressionUUID->"8a250bad-55bc-43e9-9cd9-4700eb5490a0"],
-Cell[177451, 4956, 486, 11, 70, "Print",ExpressionUUID->"80d6d6ea-538b-45bc-b3fe-bae26d824017"],
-Cell[177940, 4969, 2266, 56, 70, "Print",ExpressionUUID->"bf358510-a1e8-406d-8d93-6bad0a9de60e"],
-Cell[180209, 5027, 838, 19, 70, "Print",ExpressionUUID->"2fe42762-ef19-44b9-8a9a-dab737bb9373"],
-Cell[181050, 5048, 238, 4, 70, "Print",ExpressionUUID->"c1df84c2-6469-4926-b003-e0486b5106be"],
-Cell[181291, 5054, 1241, 29, 70, "Print",ExpressionUUID->"98917a23-5fa9-48f8-9b30-004a15fb7d60"],
-Cell[182535, 5085, 490, 12, 70, "Print",ExpressionUUID->"e82daa1e-410e-48b8-a24b-0cf7d8c17665"],
-Cell[183028, 5099, 2261, 56, 70, "Print",ExpressionUUID->"1297d86f-f33e-4aa3-929e-4ea3a7fee9bd"],
-Cell[185292, 5157, 840, 19, 70, "Print",ExpressionUUID->"0133d6d6-3a28-4c42-be89-918fc4b000e8"],
-Cell[186135, 5178, 239, 4, 70, "Print",ExpressionUUID->"31d9d331-9e17-439f-924b-fd863f0540fb"],
-Cell[186377, 5184, 1242, 29, 70, "Print",ExpressionUUID->"479bcc9d-1bba-4fcf-a77b-5fa35d590923"],
-Cell[187622, 5215, 484, 11, 70, "Print",ExpressionUUID->"2f2c5849-eb5b-4999-830b-fe1dbe2282d9"],
-Cell[188109, 5228, 2257, 56, 70, "Print",ExpressionUUID->"d34aca8d-f0fa-49c4-81e1-bb8653f78941"],
-Cell[190369, 5286, 838, 19, 70, "Print",ExpressionUUID->"656179f5-f4d8-455f-8a56-56ed6142f1a4"],
-Cell[191210, 5307, 241, 4, 70, "Print",ExpressionUUID->"3dfb1d84-bb71-48e3-b184-8966905dd67c"],
-Cell[191454, 5313, 1245, 29, 70, "Print",ExpressionUUID->"e76c108b-7b5a-453d-8b6b-30642b7f9773"],
-Cell[192702, 5344, 486, 11, 70, "Print",ExpressionUUID->"af84e8cc-8b55-498c-aa41-8a5bc29e6a58"],
-Cell[193191, 5357, 2258, 56, 70, "Print",ExpressionUUID->"36997acc-54d0-4521-b7cd-2b0b1fa138da"],
-Cell[195452, 5415, 836, 19, 70, "Print",ExpressionUUID->"21f818d8-bc2a-4c78-bebb-c9f418b3ea2f"],
-Cell[196291, 5436, 239, 4, 70, "Print",ExpressionUUID->"06ef9b87-44d9-4f7c-a403-f6a9354c1656"],
-Cell[196533, 5442, 1243, 29, 70, "Print",ExpressionUUID->"39b362e0-da68-4018-8881-554e2aad7808"],
-Cell[197779, 5473, 492, 12, 70, "Print",ExpressionUUID->"6cfa24e6-0f6b-401c-90f3-c83e182a8d38"],
-Cell[198274, 5487, 2264, 56, 70, "Print",ExpressionUUID->"2471a3c4-6122-48a6-8927-112fa8d5bb04"],
-Cell[200541, 5545, 838, 19, 70, "Print",ExpressionUUID->"4aa3f06b-ec1a-446d-a818-33a94e8cbb9b"],
-Cell[201382, 5566, 239, 4, 70, "Print",ExpressionUUID->"5fdea64e-5002-4988-9f3c-7fb3f009514b"],
-Cell[201624, 5572, 1243, 29, 70, "Print",ExpressionUUID->"f2df0408-1ced-4937-b4cc-8b4b4bbda447"],
-Cell[202870, 5603, 484, 11, 70, "Print",ExpressionUUID->"cb166f33-da59-4c29-a788-61cae5f7411d"],
-Cell[203357, 5616, 2267, 56, 70, "Print",ExpressionUUID->"e5bf0324-1989-49bb-9dbd-463dcf99ea6f"],
-Cell[205627, 5674, 836, 19, 70, "Print",ExpressionUUID->"2f52fc6a-bce3-41fc-9ff0-b5b48ca345c0"],
-Cell[206466, 5695, 239, 4, 70, "Print",ExpressionUUID->"6f295155-dc45-49c7-9828-db63256abb14"],
-Cell[206708, 5701, 1242, 29, 70, "Print",ExpressionUUID->"6e3944be-f419-4597-bf56-c31c7aa51d51"],
-Cell[207953, 5732, 486, 11, 70, "Print",ExpressionUUID->"a714019d-e8bc-4e54-b3cd-b9dbc546ee8d"],
-Cell[208442, 5745, 2269, 56, 70, "Print",ExpressionUUID->"f342d9dc-b61f-4af0-b074-d98fbae82fe6"],
-Cell[210714, 5803, 836, 19, 70, "Print",ExpressionUUID->"423ebca4-4488-4e1c-93f4-f449939ccb34"],
-Cell[211553, 5824, 239, 4, 70, "Print",ExpressionUUID->"2e67059c-3988-4db3-9603-309d73c1d4e9"],
-Cell[211795, 5830, 1243, 29, 70, "Print",ExpressionUUID->"1d9a413c-777f-4c4d-a2f2-a114396abc11"],
-Cell[213041, 5861, 486, 11, 70, "Print",ExpressionUUID->"2371c68f-2cc0-413b-95f3-5689a1d31708"],
-Cell[213530, 5874, 2264, 56, 70, "Print",ExpressionUUID->"ff68dc83-e07d-4680-99f2-7e4d39aebe53"],
-Cell[215797, 5932, 834, 19, 70, "Print",ExpressionUUID->"1d4cdfea-36b8-4fe5-a13c-3a8079962d11"],
-Cell[216634, 5953, 241, 4, 70, "Print",ExpressionUUID->"5ba847b3-9965-4a3a-90ed-6c9179b907d8"],
-Cell[216878, 5959, 1239, 29, 70, "Print",ExpressionUUID->"17d8a6bc-fdd2-4a8f-9fdb-faaf86676448"],
-Cell[218120, 5990, 490, 12, 70, "Print",ExpressionUUID->"99f7907b-3fac-4a34-936e-407cc4b1c869"],
-Cell[218613, 6004, 2261, 56, 70, "Print",ExpressionUUID->"f5aca828-a9ab-4793-8f36-036854bc3eef"],
-Cell[220877, 6062, 835, 19, 70, "Print",ExpressionUUID->"f94f4db7-390a-40a9-8870-ea13b679a2e8"],
-Cell[221715, 6083, 239, 4, 70, "Print",ExpressionUUID->"6c5454c8-7673-4782-8585-4cf1d9b5b8b5"],
-Cell[221957, 6089, 1244, 29, 70, "Print",ExpressionUUID->"43cd95ba-70fc-4443-9499-f730d5fd3440"],
-Cell[223204, 6120, 486, 11, 70, "Print",ExpressionUUID->"a6ebee72-1d68-44ee-8113-8c1b44dad8d5"],
-Cell[223693, 6133, 2260, 56, 70, "Print",ExpressionUUID->"c8d39b8a-bf2d-4a4e-b94d-e0523b2a8713"],
-Cell[225956, 6191, 838, 19, 70, "Print",ExpressionUUID->"a7d6f063-f4e1-4612-a93e-939b41b027aa"],
-Cell[226797, 6212, 239, 4, 70, "Print",ExpressionUUID->"bd6101f4-472a-4cd4-90c4-29aaa7d1ceae"],
-Cell[227039, 6218, 1243, 29, 70, "Print",ExpressionUUID->"8fd74201-ac2d-46a0-93c8-50cb571b9a23"],
-Cell[228285, 6249, 490, 12, 70, "Print",ExpressionUUID->"c7b5faac-cc96-4fe0-a516-de44e525618b"],
-Cell[228778, 6263, 2259, 56, 70, "Print",ExpressionUUID->"55b68698-52b1-4ea3-a38b-314cf11b4aa4"],
-Cell[231040, 6321, 836, 19, 70, "Print",ExpressionUUID->"f148cbd7-2f37-43d8-8d60-9c79dd413978"],
-Cell[231879, 6342, 238, 4, 70, "Print",ExpressionUUID->"969940fc-7059-4b7a-8ad8-16eb693f5fb7"],
-Cell[232120, 6348, 1241, 29, 70, "Print",ExpressionUUID->"c93d81e9-79a0-479a-b58d-a6a6b804e79e"],
-Cell[233364, 6379, 486, 11, 70, "Print",ExpressionUUID->"a3b7235d-7e4b-48ec-ac98-e396914e4b65"],
-Cell[233853, 6392, 2263, 56, 70, "Print",ExpressionUUID->"d76ce001-5689-4fb2-97b3-80eccedaf2e4"],
-Cell[236119, 6450, 834, 19, 70, "Print",ExpressionUUID->"88f7fef6-cf49-45a0-a61b-1b88a96d8ca0"],
-Cell[236956, 6471, 239, 4, 70, "Print",ExpressionUUID->"a3b5a5bf-faac-409e-9dbd-ad68ab28a765"],
-Cell[237198, 6477, 1243, 29, 70, "Print",ExpressionUUID->"f68949d5-6b39-43ef-ae0a-2271c1c4cefe"],
-Cell[238444, 6508, 484, 11, 70, "Print",ExpressionUUID->"2e114a7d-e685-40fa-aaf1-65da1f61aab0"],
-Cell[238931, 6521, 2261, 56, 70, "Print",ExpressionUUID->"3494c501-099e-400d-95f1-9102e0dcea00"],
-Cell[241195, 6579, 833, 19, 70, "Print",ExpressionUUID->"e48dc9f0-4cd1-4f6d-8125-bc6207c37f31"],
-Cell[242031, 6600, 239, 4, 70, "Print",ExpressionUUID->"f913ad7c-5af1-49e6-991f-f788653a17b0"],
-Cell[242273, 6606, 1243, 29, 70, "Print",ExpressionUUID->"22fd9083-d253-44cc-b1d5-f55ad3d36e62"],
-Cell[243519, 6637, 484, 11, 70, "Print",ExpressionUUID->"06274b47-3701-4a73-861f-8b273a59eca0"],
-Cell[244006, 6650, 2248, 56, 70, "Print",ExpressionUUID->"546cd37e-5d88-4199-a461-a25a444db629"],
-Cell[246257, 6708, 836, 19, 70, "Print",ExpressionUUID->"1ac14c33-3666-49a6-84b5-b05ae325a89b"],
-Cell[247096, 6729, 239, 4, 70, "Print",ExpressionUUID->"89c56bf8-9cac-4803-8dcf-67115f99ec33"],
-Cell[247338, 6735, 1241, 29, 70, "Print",ExpressionUUID->"9a77f830-7231-42b1-ab93-1d3efa194ceb"],
-Cell[248582, 6766, 484, 11, 70, "Print",ExpressionUUID->"8e1fac5f-a431-4de2-8de6-0a4b7c702473"],
-Cell[249069, 6779, 2261, 56, 70, "Print",ExpressionUUID->"d8de70e6-fee4-40f0-8f45-f380a30b4ec9"],
-Cell[251333, 6837, 828, 19, 70, "Print",ExpressionUUID->"15af4581-dbd2-4519-a99b-62424ca94b41"],
-Cell[252164, 6858, 239, 4, 70, "Print",ExpressionUUID->"c7912f5d-a490-4479-a29b-4a3924c3e11c"],
-Cell[252406, 6864, 1243, 29, 70, "Print",ExpressionUUID->"187177e8-a919-4342-bcba-4be562a9b41c"],
-Cell[253652, 6895, 484, 11, 70, "Print",ExpressionUUID->"de59a9b7-06d5-4e78-bcf7-89ca895f9c6d"],
-Cell[254139, 6908, 2256, 56, 70, "Print",ExpressionUUID->"e7680037-583e-48ed-b933-8d7c6cd0ecab"],
-Cell[256398, 6966, 834, 19, 70, "Print",ExpressionUUID->"bdf21c64-8cb7-4d6a-b478-0078c0e2ae78"],
-Cell[257235, 6987, 239, 4, 70, "Print",ExpressionUUID->"5a9f2279-02de-493f-af40-c46417db42f2"],
-Cell[257477, 6993, 1242, 29, 70, "Print",ExpressionUUID->"93ff3854-9c9e-4925-8a76-cf005b49e4c1"],
-Cell[258722, 7024, 484, 11, 70, "Print",ExpressionUUID->"d747d0c8-abc8-4110-9e82-22e6b804a77d"],
-Cell[259209, 7037, 2261, 56, 70, "Print",ExpressionUUID->"da1c7d02-d4f0-42ad-bb31-1a197d5a5455"],
-Cell[261473, 7095, 833, 19, 70, "Print",ExpressionUUID->"1579a959-63ba-4396-9ff0-be777c13f73f"],
-Cell[262309, 7116, 239, 4, 70, "Print",ExpressionUUID->"e36759b7-0ef5-4a7f-bf5e-9182b9d2a182"],
-Cell[262551, 7122, 1243, 29, 70, "Print",ExpressionUUID->"141ceccf-74b9-4a6a-a2a4-15b79a477cf5"],
-Cell[263797, 7153, 490, 12, 70, "Print",ExpressionUUID->"d4b87258-9b06-4a7d-9fa3-e079cdef8b6e"],
-Cell[264290, 7167, 2261, 56, 70, "Print",ExpressionUUID->"883d9356-4b56-4b71-a806-ddbd96e2ce1b"],
-Cell[266554, 7225, 836, 19, 70, "Print",ExpressionUUID->"f14e760d-822b-477f-ba29-26bdde61c9ef"],
-Cell[267393, 7246, 239, 4, 70, "Print",ExpressionUUID->"8fd4a685-2c9e-42a1-9148-56b89a6993bf"],
-Cell[267635, 7252, 1243, 29, 70, "Print",ExpressionUUID->"f860bd33-4e16-4921-8cf3-c580845b8d8e"],
-Cell[268881, 7283, 482, 11, 70, "Print",ExpressionUUID->"01b81a01-d301-4258-b79f-31b50e88885d"],
-Cell[269366, 7296, 2261, 56, 70, "Print",ExpressionUUID->"558f0765-15fb-4c11-ad68-2fee4fdb8e78"],
-Cell[271630, 7354, 834, 19, 70, "Print",ExpressionUUID->"5974ac54-8d74-4066-ad91-9d757023251e"],
-Cell[272467, 7375, 238, 4, 70, "Print",ExpressionUUID->"1e1843ca-1a93-43e1-ae9d-808dd132dd09"],
-Cell[272708, 7381, 1245, 29, 70, "Print",ExpressionUUID->"bfa3815f-2ec3-41aa-a616-d7c60d046274"],
-Cell[273956, 7412, 466, 11, 70, "Print",ExpressionUUID->"77a89964-da84-474f-a788-edc4514f2ff1"],
-Cell[274425, 7425, 2267, 56, 70, "Print",ExpressionUUID->"f9c24438-2095-498a-b564-e2e01522f1b3"],
-Cell[276695, 7483, 836, 19, 70, "Print",ExpressionUUID->"bfbf2afc-c5b8-4009-8b53-a36ee4500696"],
-Cell[277534, 7504, 239, 4, 70, "Print",ExpressionUUID->"db634bed-c344-48e5-a713-d0026d9b6817"],
-Cell[277776, 7510, 1243, 29, 70, "Print",ExpressionUUID->"2ab06710-b5b5-4a11-8f10-55bffea289fd"],
-Cell[279022, 7541, 484, 11, 70, "Print",ExpressionUUID->"bd9b9f3c-cce6-4c0d-85ea-b8a282d1d264"],
-Cell[279509, 7554, 2271, 56, 70, "Print",ExpressionUUID->"3cec74bd-0ba4-4681-9eb5-00d551974601"],
-Cell[281783, 7612, 834, 19, 70, "Print",ExpressionUUID->"5651857c-24ec-4aaf-a10d-2cad77badf4f"],
-Cell[282620, 7633, 241, 4, 70, "Print",ExpressionUUID->"ab7d71ff-0f28-48b9-af41-d0ba3e2c0f99"],
-Cell[282864, 7639, 1242, 29, 70, "Print",ExpressionUUID->"b6eb2721-affa-4c70-8435-8aaafac1dfe8"],
-Cell[284109, 7670, 486, 11, 70, "Print",ExpressionUUID->"8ff575df-7dbe-4f41-a6b6-2d9e50e6ee13"],
-Cell[284598, 7683, 2269, 56, 70, "Print",ExpressionUUID->"e8c05d77-c858-490a-8ea4-d0abcd4a0650"],
-Cell[286870, 7741, 832, 19, 70, "Print",ExpressionUUID->"c4c2102c-369a-44cf-8f84-7b33e97ff6a4"],
-Cell[287705, 7762, 239, 4, 70, "Print",ExpressionUUID->"677b298a-2dce-41c1-8a91-38c06bb87d81"],
-Cell[287947, 7768, 1243, 29, 70, "Print",ExpressionUUID->"59b5ae48-342c-4e12-82b1-b22ee472bf24"],
-Cell[289193, 7799, 482, 11, 70, "Print",ExpressionUUID->"c7277698-37da-4a12-b78c-d4526962cb59"],
-Cell[289678, 7812, 2266, 56, 70, "Print",ExpressionUUID->"f331ab4a-764a-4deb-81ce-dca54a76ccae"],
-Cell[291947, 7870, 834, 19, 70, "Print",ExpressionUUID->"e00cd70a-06d4-4642-89fb-e50d661c1bb8"],
-Cell[292784, 7891, 239, 4, 70, "Print",ExpressionUUID->"23d30dcc-83c6-4ec9-809a-0dc730c99921"],
-Cell[293026, 7897, 1246, 29, 70, "Print",ExpressionUUID->"1a024aac-4e00-4fca-a34f-b965e6f2c313"],
-Cell[294275, 7928, 486, 11, 70, "Print",ExpressionUUID->"c4cb3afb-fc7b-4b9a-a5ee-bf474a535fa5"],
-Cell[294764, 7941, 2266, 56, 70, "Print",ExpressionUUID->"0e424522-aaf1-4add-aa52-a83d1a819f41"],
-Cell[297033, 7999, 834, 19, 70, "Print",ExpressionUUID->"8cf78b2b-166a-4a6d-8589-ad53a10ba289"],
-Cell[297870, 8020, 241, 4, 70, "Print",ExpressionUUID->"b56e9d01-91cd-4cd8-8cde-21ec583f2066"],
-Cell[298114, 8026, 1249, 29, 70, "Print",ExpressionUUID->"e5b463ee-c265-4fd0-9f4c-b093a7c31ad2"],
-Cell[299366, 8057, 484, 11, 70, "Print",ExpressionUUID->"4e3c9a96-29cf-4021-94ed-b32a4564fe75"],
-Cell[299853, 8070, 2263, 56, 70, "Print",ExpressionUUID->"c8ef1428-eb29-4ad0-83f2-2bb11a04cefa"],
-Cell[302119, 8128, 836, 19, 70, "Print",ExpressionUUID->"9d4565f2-3d84-4368-9eb4-6d8369c5ec9b"],
-Cell[302958, 8149, 239, 4, 70, "Print",ExpressionUUID->"34d3f74d-e21d-4f40-bd3a-34567d503138"],
-Cell[303200, 8155, 1244, 29, 70, "Print",ExpressionUUID->"10219fd2-331a-4c10-a7b9-81abdb341818"],
-Cell[304447, 8186, 484, 11, 70, "Print",ExpressionUUID->"d21ecb1c-65b3-4cd9-85e8-2ae54d853499"],
-Cell[304934, 8199, 2269, 56, 70, "Print",ExpressionUUID->"34224f9d-9b05-47a4-bb89-9f1eb049fd49"],
-Cell[307206, 8257, 834, 19, 70, "Print",ExpressionUUID->"794c97f0-7d31-49ba-8722-8e471e1fd213"],
-Cell[308043, 8278, 239, 4, 70, "Print",ExpressionUUID->"8c02ce05-f7b9-4bbd-944f-c8ce0601fabe"],
-Cell[308285, 8284, 1247, 29, 70, "Print",ExpressionUUID->"0858fb46-30f1-446f-9092-1231a98b6637"],
-Cell[309535, 8315, 481, 11, 70, "Print",ExpressionUUID->"cd0cf86a-5eb9-41b3-a3bf-09357ce52f7a"],
-Cell[310019, 8328, 2269, 56, 70, "Print",ExpressionUUID->"33a32ea7-b6ad-48de-bd0a-6ef805f95446"],
-Cell[312291, 8386, 836, 19, 70, "Print",ExpressionUUID->"ad95c674-7541-4328-a213-609c9cd6b58a"],
-Cell[313130, 8407, 239, 4, 70, "Print",ExpressionUUID->"f6185d43-7936-46aa-b169-a5f1a8c00284"],
-Cell[313372, 8413, 1246, 29, 70, "Print",ExpressionUUID->"76488873-1845-40fc-bbbc-4e75688b1d1c"],
-Cell[314621, 8444, 484, 11, 70, "Print",ExpressionUUID->"12e1548c-7a48-4faa-b67c-4095e8e5ffe7"],
-Cell[315108, 8457, 2263, 56, 70, "Print",ExpressionUUID->"7687b7ba-70cb-446b-ab7d-e5ebdf1c4163"],
-Cell[317374, 8515, 838, 19, 70, "Print",ExpressionUUID->"86d6810d-8250-429b-b10d-a49a8e323924"],
-Cell[318215, 8536, 241, 4, 70, "Print",ExpressionUUID->"8e2a17af-72a7-48cc-8909-eb4bd51e9262"],
-Cell[318459, 8542, 1247, 29, 70, "Print",ExpressionUUID->"071abe3e-c4ab-42fa-ac78-a43ae5788820"],
-Cell[319709, 8573, 484, 11, 70, "Print",ExpressionUUID->"2d292d36-4f59-4984-9663-1365933c3127"],
-Cell[320196, 8586, 2268, 56, 70, "Print",ExpressionUUID->"42b3d905-f9cf-479f-a861-d2aae2528bd8"],
-Cell[322467, 8644, 834, 19, 70, "Print",ExpressionUUID->"994fe935-cba7-4367-b455-a35aecf64873"],
-Cell[323304, 8665, 239, 4, 70, "Print",ExpressionUUID->"4583cca5-1eab-4ec7-b117-64f75147a494"],
-Cell[323546, 8671, 1248, 29, 70, "Print",ExpressionUUID->"b9075ff4-7fb0-4fce-9138-7e0d82659d6e"],
-Cell[324797, 8702, 484, 11, 70, "Print",ExpressionUUID->"4396e6b4-c686-4c46-9b7d-6d4b8b34881c"],
-Cell[325284, 8715, 2277, 56, 70, "Print",ExpressionUUID->"f9e3adb8-fba2-4022-9d66-586aed317a0e"],
-Cell[327564, 8773, 838, 19, 70, "Print",ExpressionUUID->"c1fb3839-d5d1-4199-b6d5-b386493eac58"],
-Cell[328405, 8794, 239, 4, 70, "Print",ExpressionUUID->"a9cc6b31-aacd-417e-8824-f3374b6e6abd"],
-Cell[328647, 8800, 1245, 29, 70, "Print",ExpressionUUID->"25532e88-5871-4530-aa49-e3ee3ac73e3f"],
-Cell[329895, 8831, 484, 11, 70, "Print",ExpressionUUID->"870413ad-c32f-4e9c-a508-3643d32125d1"],
-Cell[330382, 8844, 2272, 56, 70, "Print",ExpressionUUID->"adcec7c2-37a8-4e21-875a-44fd02b239ef"],
-Cell[332657, 8902, 834, 19, 70, "Print",ExpressionUUID->"97a301e3-411a-4d83-b97c-f501f258befd"],
-Cell[333494, 8923, 239, 4, 70, "Print",ExpressionUUID->"e6b9bf3f-6da5-4025-ac68-51a27627c15a"],
-Cell[333736, 8929, 1244, 29, 70, "Print",ExpressionUUID->"a0877e1c-c66b-4460-ac9b-0813300e4f61"],
-Cell[334983, 8960, 484, 11, 70, "Print",ExpressionUUID->"c23dc164-47b0-4d77-9fd2-c8dfc2a7f730"],
-Cell[335470, 8973, 2262, 56, 70, "Print",ExpressionUUID->"00028180-e452-4394-a354-518529367fee"],
-Cell[337735, 9031, 834, 19, 70, "Print",ExpressionUUID->"12b0b354-9a07-41af-98a2-7f5a7e9dd58f"],
-Cell[338572, 9052, 239, 4, 70, "Print",ExpressionUUID->"fad541a5-5606-4aa3-b066-e4547e871bdd"],
-Cell[338814, 9058, 1249, 29, 70, "Print",ExpressionUUID->"13d02f17-14fe-42f3-94cc-af0a10abf613"],
-Cell[340066, 9089, 484, 11, 70, "Print",ExpressionUUID->"fb49ab8c-a027-4e4d-a6fe-687366def7ac"],
-Cell[340553, 9102, 2263, 56, 70, "Print",ExpressionUUID->"73f672c1-81ef-4600-9096-89818bf6ea04"],
-Cell[342819, 9160, 834, 19, 70, "Print",ExpressionUUID->"c1e406a7-2058-4db2-8d3f-5eb1ebaef80e"],
-Cell[343656, 9181, 241, 4, 70, "Print",ExpressionUUID->"d6d9662f-0df2-4992-86b1-2f50785ee748"],
-Cell[343900, 9187, 1246, 29, 70, "Print",ExpressionUUID->"7f7a5397-40fd-4370-ae7e-a3551d36d345"],
-Cell[345149, 9218, 484, 11, 70, "Print",ExpressionUUID->"e2b5dc72-e4c9-4584-bdae-cd1d0560a219"],
-Cell[345636, 9231, 2265, 56, 70, "Print",ExpressionUUID->"c2be72ab-d86d-46a4-ae5b-457c311360cf"],
-Cell[347904, 9289, 836, 19, 70, "Print",ExpressionUUID->"0c92152b-90f6-4749-b21b-ba34f5907d1a"],
-Cell[348743, 9310, 239, 4, 70, "Print",ExpressionUUID->"56ae5eb9-f4d7-4e0a-8496-346db752e76d"],
-Cell[348985, 9316, 1245, 29, 70, "Print",ExpressionUUID->"c171c0b9-8db9-44cd-9078-5850a73c3d2b"],
-Cell[350233, 9347, 484, 11, 70, "Print",ExpressionUUID->"37abf6bf-bb5b-424c-8ae4-81ce9763c39c"],
-Cell[350720, 9360, 2266, 56, 70, "Print",ExpressionUUID->"6d54d121-62c2-4c15-8bda-484ec1224292"],
-Cell[352989, 9418, 836, 19, 70, "Print",ExpressionUUID->"e0c134b0-a247-484d-9c48-4c88153acea9"],
-Cell[353828, 9439, 239, 4, 70, "Print",ExpressionUUID->"ac36db69-fab9-4c4a-8e3c-8a4136ae9c75"],
-Cell[354070, 9445, 1243, 29, 70, "Print",ExpressionUUID->"c32ea398-811d-4877-ac24-664f10dfbc36"],
-Cell[355316, 9476, 484, 11, 70, "Print",ExpressionUUID->"90a853ac-95be-40f3-bd9e-a809b140fda6"],
-Cell[355803, 9489, 2272, 56, 70, "Print",ExpressionUUID->"0518cd35-3157-4840-8845-96de959bf7e8"],
-Cell[358078, 9547, 832, 19, 70, "Print",ExpressionUUID->"cf62441a-8ce8-473c-a676-4ec03ae38db7"],
-Cell[358913, 9568, 239, 4, 70, "Print",ExpressionUUID->"2c4cb8d6-a26c-4e3f-a246-1c4d913dbc86"],
-Cell[359155, 9574, 1249, 29, 70, "Print",ExpressionUUID->"885100fe-53ac-4b89-8842-44c827cd3563"],
-Cell[360407, 9605, 486, 11, 70, "Print",ExpressionUUID->"26488d23-0bc0-4b4f-9ce9-f8381c938eac"],
-Cell[360896, 9618, 2258, 56, 70, "Print",ExpressionUUID->"31170c81-0c69-49bc-8ab9-413e86487676"],
-Cell[363157, 9676, 838, 19, 70, "Print",ExpressionUUID->"63756f3d-a840-4b75-888a-77d76a994895"],
-Cell[363998, 9697, 239, 4, 70, "Print",ExpressionUUID->"f8f2009d-ebcd-40d8-af16-2fb8ace2b8b5"],
-Cell[364240, 9703, 1246, 29, 70, "Print",ExpressionUUID->"dca26f8f-442a-4e2a-ad88-9d7765b61442"],
-Cell[365489, 9734, 486, 11, 70, "Print",ExpressionUUID->"930bc9a6-db39-4557-ad3a-90f2220150b5"],
-Cell[365978, 9747, 2266, 56, 70, "Print",ExpressionUUID->"a6e6f9c1-2bc0-4705-b340-4e621aa48561"],
-Cell[368247, 9805, 836, 19, 70, "Print",ExpressionUUID->"4adc6c79-4f11-40d5-a8bc-b33fe3203a38"],
-Cell[369086, 9826, 241, 4, 70, "Print",ExpressionUUID->"ccec93ce-6b7a-486c-b4be-afb9f0869eac"],
-Cell[369330, 9832, 1244, 29, 70, "Print",ExpressionUUID->"cbd1d0af-9958-481f-8c83-5e7c59daa2d2"],
-Cell[370577, 9863, 484, 11, 70, "Print",ExpressionUUID->"243db4e0-4e24-476b-8bed-9fd94d818a74"],
-Cell[371064, 9876, 2267, 56, 70, "Print",ExpressionUUID->"90b071f8-f9c0-4cfd-8610-584f4d724390"],
-Cell[373334, 9934, 830, 19, 70, "Print",ExpressionUUID->"1e1fa63f-371a-45d9-ae98-db63b655a1cc"],
-Cell[374167, 9955, 239, 4, 70, "Print",ExpressionUUID->"863f11dc-0d21-4695-bd34-43e5f3701d5a"],
-Cell[374409, 9961, 1244, 29, 70, "Print",ExpressionUUID->"ebca2822-658d-4899-ac9b-e99c8d72dda4"],
-Cell[375656, 9992, 484, 11, 70, "Print",ExpressionUUID->"fa9db930-666f-4a86-9054-2608574477e4"],
-Cell[376143, 10005, 2266, 56, 70, "Print",ExpressionUUID->"ef70d9d6-1a80-43ed-83f5-9cb3291fda75"],
-Cell[378412, 10063, 832, 19, 70, "Print",ExpressionUUID->"0997c9f0-5b52-4528-ba11-f28d8b41fbce"],
-Cell[379247, 10084, 239, 4, 70, "Print",ExpressionUUID->"152ff8f8-f9c3-4cbd-b3cb-8a06cc0368a0"],
-Cell[379489, 10090, 1243, 29, 70, "Print",ExpressionUUID->"4eb2f223-c39d-4eae-af81-953144fbf4c6"],
-Cell[380735, 10121, 486, 11, 70, "Print",ExpressionUUID->"a7a8d5fc-9c99-4ce0-9adb-1ff1d37234bf"],
-Cell[381224, 10134, 2266, 56, 70, "Print",ExpressionUUID->"1246e333-2f3d-4f14-becf-7420f6947e2b"],
-Cell[383493, 10192, 836, 19, 70, "Print",ExpressionUUID->"df9bbab4-2b66-45f4-bb3b-846d140f0d25"],
-Cell[384332, 10213, 239, 4, 70, "Print",ExpressionUUID->"cb19c14b-c661-4590-8c52-87f777c1fbc9"],
-Cell[384574, 10219, 1245, 29, 70, "Print",ExpressionUUID->"241f38f6-e637-4b46-ab45-e410c1a8ef41"],
-Cell[385822, 10250, 484, 11, 70, "Print",ExpressionUUID->"57dcef4e-158e-4afe-b602-16c7aedaa695"],
-Cell[386309, 10263, 2266, 56, 70, "Print",ExpressionUUID->"8a4d0ead-22c5-48c1-8cda-4436025fe2cb"],
-Cell[388578, 10321, 838, 19, 70, "Print",ExpressionUUID->"f2fceae8-aea9-4206-b40f-6aae8230ce12"],
-Cell[389419, 10342, 239, 4, 70, "Print",ExpressionUUID->"a1585e57-e1d3-4203-82e7-357adc9226be"],
-Cell[389661, 10348, 1247, 29, 70, "Print",ExpressionUUID->"624d8539-051d-423a-ab3f-c5cf0aade193"],
-Cell[390911, 10379, 482, 11, 70, "Print",ExpressionUUID->"6e049461-8ab9-4318-816f-de9c775cea15"],
-Cell[391396, 10392, 2263, 56, 70, "Print",ExpressionUUID->"7d7c2979-8a1f-430b-a1ac-db9987e5c25d"],
-Cell[393662, 10450, 838, 19, 70, "Print",ExpressionUUID->"bd31bbcd-f2ea-437f-8ea2-9320bed123f3"],
-Cell[394503, 10471, 239, 4, 70, "Print",ExpressionUUID->"aae09dd3-6350-4d4f-9c55-6a7fa0b639de"],
-Cell[394745, 10477, 1247, 29, 70, "Print",ExpressionUUID->"03500180-2c74-47e4-a74f-799d582298c7"],
-Cell[395995, 10508, 486, 11, 70, "Print",ExpressionUUID->"ea1d58d1-57fd-421b-888b-47a80583bf79"],
-Cell[396484, 10521, 2259, 56, 70, "Print",ExpressionUUID->"437930b7-0b9a-4107-b872-2f7295b296b5"],
-Cell[398746, 10579, 836, 19, 70, "Print",ExpressionUUID->"b835f7bd-6983-4472-8604-6931ba9b2477"],
-Cell[399585, 10600, 241, 4, 70, "Print",ExpressionUUID->"cd8c51a9-2e4f-4432-a0d7-8165b12f7762"],
-Cell[399829, 10606, 1247, 29, 70, "Print",ExpressionUUID->"e91f6cc2-9743-4538-a447-f20bb90b17fa"],
-Cell[401079, 10637, 460, 11, 70, "Print",ExpressionUUID->"ffe16950-d4cd-4be6-bd00-bd5faaaa7039"],
-Cell[401542, 10650, 2263, 56, 70, "Print",ExpressionUUID->"c3dc5277-d9f6-48cd-a1b7-361dd052d22a"],
-Cell[403808, 10708, 836, 19, 70, "Print",ExpressionUUID->"12255a9b-7d9c-4366-8cbb-f19e53574935"],
-Cell[404647, 10729, 239, 4, 70, "Print",ExpressionUUID->"70b2f28b-3607-4411-aa54-fa78868f018e"],
-Cell[404889, 10735, 1249, 29, 70, "Print",ExpressionUUID->"bb0a2227-b060-464d-bac9-6a02dbe0cd50"],
-Cell[406141, 10766, 484, 11, 70, "Print",ExpressionUUID->"dad06ed8-e154-4b37-8990-bc40ae29f616"],
-Cell[406628, 10779, 2266, 56, 70, "Print",ExpressionUUID->"cc4c3237-5764-4e87-8d04-f3a1f1879946"],
-Cell[408897, 10837, 832, 19, 70, "Print",ExpressionUUID->"2830c846-46d5-4c60-8f85-34f56387069b"],
-Cell[409732, 10858, 239, 4, 70, "Print",ExpressionUUID->"60ddfba3-7efc-4998-b1c9-8e7122a3b3ad"],
-Cell[409974, 10864, 1246, 29, 70, "Print",ExpressionUUID->"f2453074-0404-4a6e-b35f-66faa3db2304"],
-Cell[411223, 10895, 484, 11, 70, "Print",ExpressionUUID->"9bf7ccf2-22f1-427f-aba2-8f6b7d7f1577"],
-Cell[411710, 10908, 2263, 56, 70, "Print",ExpressionUUID->"3030cb17-832b-4f7d-accd-df371eaebd56"],
-Cell[413976, 10966, 835, 19, 70, "Print",ExpressionUUID->"3ef9f85a-7080-4024-95ef-7d3c840c74cb"],
-Cell[414814, 10987, 239, 4, 70, "Print",ExpressionUUID->"0b95653d-b864-404d-bda0-c69d746ad5b8"],
-Cell[415056, 10993, 1245, 29, 70, "Print",ExpressionUUID->"d3a9bd58-3655-4c45-be33-79e05aff3c89"],
-Cell[416304, 11024, 474, 11, 70, "Print",ExpressionUUID->"59066fb0-3f90-4b27-98c3-04f0f5c1849a"],
-Cell[416781, 11037, 2261, 56, 70, "Print",ExpressionUUID->"952719ef-0e8d-4427-b483-f0447b7612fa"],
-Cell[419045, 11095, 834, 19, 70, "Print",ExpressionUUID->"8a860d13-6cb8-469a-8ada-0d265e5bb232"],
-Cell[419882, 11116, 239, 4, 70, "Print",ExpressionUUID->"d8419ab9-52b6-4817-8dcd-9de67d0d0e54"],
-Cell[420124, 11122, 1247, 29, 70, "Print",ExpressionUUID->"a1d1732b-e58c-428d-8d1c-7a2d02337513"],
-Cell[421374, 11153, 486, 11, 70, "Print",ExpressionUUID->"5f35bb8c-b7b2-42c7-99af-0ab0fd7c8767"],
-Cell[421863, 11166, 2263, 56, 70, "Print",ExpressionUUID->"758d04f7-818f-4b5f-8c1b-545ba1de8e26"],
-Cell[424129, 11224, 836, 19, 70, "Print",ExpressionUUID->"48baa0de-d4c6-47f8-9803-e09f65deaf73"],
-Cell[424968, 11245, 237, 4, 70, "Print",ExpressionUUID->"7cfa1581-c74f-4b4d-b554-76224d16ebcd"],
-Cell[425208, 11251, 1246, 29, 70, "Print",ExpressionUUID->"22e7cd68-8bc3-4fad-971c-b3d86c6c06a5"],
-Cell[426457, 11282, 484, 11, 70, "Print",ExpressionUUID->"01b0aac9-1d44-4418-b179-509da8748c6c"],
-Cell[426944, 11295, 2263, 56, 70, "Print",ExpressionUUID->"5789ab54-930f-4a67-bf82-021fa62ae869"],
-Cell[429210, 11353, 836, 19, 70, "Print",ExpressionUUID->"17ca8d56-9fb1-4757-b20a-f5e00065ae9d"],
-Cell[430049, 11374, 239, 4, 70, "Print",ExpressionUUID->"c6ff741f-a493-457e-ada4-c9751d8c3d4b"],
-Cell[430291, 11380, 1247, 29, 70, "Print",ExpressionUUID->"6670c8ad-d17d-4ff2-85a1-aa59b09f37a9"],
-Cell[431541, 11411, 490, 12, 70, "Print",ExpressionUUID->"5e73e45d-bbfb-450a-ae05-016d07d39907"],
-Cell[432034, 11425, 2268, 56, 70, "Print",ExpressionUUID->"3cf5e4fe-f5b8-4d26-81df-432e603e7031"],
-Cell[434305, 11483, 834, 19, 70, "Print",ExpressionUUID->"ce5fbe6b-fe1f-401c-aace-9687ce0146ca"],
-Cell[435142, 11504, 241, 4, 70, "Print",ExpressionUUID->"59f619ce-3d5d-461c-a8e1-6bf17be26e71"],
-Cell[435386, 11510, 1247, 29, 70, "Print",ExpressionUUID->"81a54262-d81c-4f87-9db9-fdb90b833abc"],
-Cell[436636, 11541, 490, 12, 70, "Print",ExpressionUUID->"e7a47d0a-eaf7-4258-b02b-3b78843c4949"],
-Cell[437129, 11555, 2263, 56, 70, "Print",ExpressionUUID->"46fd9c0f-ff27-4a57-b9ae-e6357886a2b6"],
-Cell[439395, 11613, 838, 19, 70, "Print",ExpressionUUID->"071d953e-0bf1-462e-b5ec-c7f817fef659"],
-Cell[440236, 11634, 238, 4, 70, "Print",ExpressionUUID->"66e01984-87d0-48e2-bb4f-733f24bf9086"],
-Cell[440477, 11640, 1244, 29, 70, "Print",ExpressionUUID->"2557ca56-e6f7-4a84-965a-10d555e15c49"],
-Cell[441724, 11671, 489, 12, 70, "Print",ExpressionUUID->"58322468-135c-4f1e-b181-ea75abf7c555"],
-Cell[442216, 11685, 2261, 56, 70, "Print",ExpressionUUID->"b841b86a-3d4d-4d07-9123-2ea6822faac0"],
-Cell[444480, 11743, 836, 19, 70, "Print",ExpressionUUID->"d89972ab-17a2-4684-a0ad-4625c75431b7"],
-Cell[445319, 11764, 239, 4, 70, "Print",ExpressionUUID->"0f8771f0-d61f-429d-810d-042b7736d9eb"],
-Cell[445561, 11770, 1247, 29, 70, "Print",ExpressionUUID->"73462437-e3b3-4a4a-b3b4-f7ebfb16e3d0"],
-Cell[446811, 11801, 490, 12, 70, "Print",ExpressionUUID->"1a9690ea-2ab2-44fa-a67a-a4dbcce71338"],
-Cell[447304, 11815, 2269, 56, 70, "Print",ExpressionUUID->"ce6876c5-c25f-4cc8-872f-3d7594f6a35c"],
-Cell[449576, 11873, 813, 18, 70, "Print",ExpressionUUID->"7b32159a-d781-4c41-b36e-cee798530153"],
-Cell[450392, 11893, 241, 4, 70, "Print",ExpressionUUID->"e7e37312-456b-4b11-8ec5-be89cd5e252e"],
-Cell[450636, 11899, 1246, 29, 70, "Print",ExpressionUUID->"7b292965-3836-415c-b64d-f1bb0f34deec"],
-Cell[451885, 11930, 490, 12, 70, "Print",ExpressionUUID->"689fe1c5-79ff-44ac-806a-2356424863c6"],
-Cell[452378, 11944, 2263, 56, 70, "Print",ExpressionUUID->"a8292541-fdb6-4b9b-959e-837ad88dd541"],
-Cell[454644, 12002, 834, 19, 70, "Print",ExpressionUUID->"ce828323-dcf6-4745-a57e-4976c6458787"],
-Cell[455481, 12023, 241, 4, 70, "Print",ExpressionUUID->"8643e536-6969-4f0c-93cf-e6da9097f5a3"],
-Cell[455725, 12029, 1248, 29, 70, "Print",ExpressionUUID->"607065a3-bf45-4d13-8343-029885c52d95"],
-Cell[456976, 12060, 490, 12, 70, "Print",ExpressionUUID->"d12d8dd5-6dbb-4543-99b2-cf78617ec39a"],
-Cell[457469, 12074, 2263, 56, 70, "Print",ExpressionUUID->"dc719073-7a5e-4625-913e-7e63dd8e6ea7"],
-Cell[459735, 12132, 837, 19, 70, "Print",ExpressionUUID->"2860fda4-6f51-4710-9cf3-8a14126b26f5"],
-Cell[460575, 12153, 241, 4, 70, "Print",ExpressionUUID->"519dd11c-03a0-4672-8c55-37afc4da5690"],
-Cell[460819, 12159, 1247, 29, 70, "Print",ExpressionUUID->"9dd08ccc-f611-4b3e-9b0c-f99e16fe1eee"],
-Cell[462069, 12190, 489, 12, 70, "Print",ExpressionUUID->"f8337edf-04cb-4aeb-95f1-dd570654ad1e"],
-Cell[462561, 12204, 2265, 56, 70, "Print",ExpressionUUID->"5775c058-b8b8-43a7-997d-77e772453bfb"],
-Cell[464829, 12262, 836, 19, 70, "Print",ExpressionUUID->"0f555b6a-c55e-416f-bc77-351c2ffd8b56"],
-Cell[465668, 12283, 239, 4, 70, "Print",ExpressionUUID->"29c3d3c4-8c0c-445f-89fa-966caf442daa"],
-Cell[465910, 12289, 1247, 29, 70, "Print",ExpressionUUID->"03f3f5aa-618b-498d-bd81-7ffd69732c04"],
-Cell[467160, 12320, 490, 12, 70, "Print",ExpressionUUID->"953082c2-5572-43e2-9ff6-671801a1ba9f"],
-Cell[467653, 12334, 2262, 56, 70, "Print",ExpressionUUID->"9a11ab30-c911-46f1-80e8-b16fdbe0d862"],
-Cell[469918, 12392, 834, 19, 70, "Print",ExpressionUUID->"9b58aebd-680f-4145-8798-c3ae04064c13"],
-Cell[470755, 12413, 241, 4, 70, "Print",ExpressionUUID->"b189e543-e746-446b-8721-eaa14c6a55ab"],
-Cell[470999, 12419, 1247, 29, 70, "Print",ExpressionUUID->"fa425807-82e6-4dbd-886e-2aa3ec9c87ec"],
-Cell[472249, 12450, 486, 11, 70, "Print",ExpressionUUID->"9500183d-1b7c-41c7-b249-c040a359e7f1"],
-Cell[472738, 12463, 2263, 56, 70, "Print",ExpressionUUID->"eb9df199-df9d-4ef0-a840-3f0455697218"],
-Cell[475004, 12521, 836, 19, 70, "Print",ExpressionUUID->"9ad95d34-210a-4be8-836c-fe820a72fc71"],
-Cell[475843, 12542, 241, 4, 70, "Print",ExpressionUUID->"7ecbda30-306b-4666-a33b-4c4712b4fc57"],
-Cell[476087, 12548, 1247, 29, 70, "Print",ExpressionUUID->"1dfe6795-96d5-4846-a29a-703b400dc174"],
-Cell[477337, 12579, 490, 12, 70, "Print",ExpressionUUID->"9bd9191c-53c4-4e7f-923c-3fea9d18acd4"],
-Cell[477830, 12593, 2263, 56, 70, "Print",ExpressionUUID->"e69cf388-4443-47b4-b2fc-a52756a2ce16"],
-Cell[480096, 12651, 834, 19, 70, "Print",ExpressionUUID->"907842a1-1ab8-47cd-a5cf-cc9ca62b6400"],
-Cell[480933, 12672, 239, 4, 70, "Print",ExpressionUUID->"5790939d-3e9a-4226-8674-62bd06029aa2"],
-Cell[481175, 12678, 1246, 29, 70, "Print",ExpressionUUID->"8a26fa47-5607-4804-8e5d-ba23ad61a3d9"],
-Cell[482424, 12709, 492, 12, 70, "Print",ExpressionUUID->"e9bccd57-4ba2-4e7c-acf6-2febbbe9d8a4"],
-Cell[482919, 12723, 2263, 56, 70, "Print",ExpressionUUID->"64fdd57a-7388-4fc5-860d-d926d1a9fddb"],
-Cell[485185, 12781, 836, 19, 70, "Print",ExpressionUUID->"9763b1ec-451d-40ad-b072-bd6d0c55cae1"],
-Cell[486024, 12802, 239, 4, 70, "Print",ExpressionUUID->"60165c10-267e-4974-a809-8d691a6a61d6"],
-Cell[486266, 12808, 1246, 29, 70, "Print",ExpressionUUID->"49f0de69-5e03-4942-8b82-1ef43f2a84cd"],
-Cell[487515, 12839, 492, 12, 70, "Print",ExpressionUUID->"97e5f231-f4ff-4b22-b6ef-015c2a2a294b"],
-Cell[488010, 12853, 2263, 56, 70, "Print",ExpressionUUID->"e57b4991-c450-470f-9da5-21730b0d53f3"],
-Cell[490276, 12911, 834, 19, 70, "Print",ExpressionUUID->"23e04291-c668-440c-bc4e-d90abecbd353"],
-Cell[491113, 12932, 239, 4, 70, "Print",ExpressionUUID->"6489e4c0-7e12-47ad-877b-7538f37c202c"],
-Cell[491355, 12938, 1248, 29, 70, "Print",ExpressionUUID->"95381391-9122-4086-84dc-4c8c080a749d"],
-Cell[492606, 12969, 490, 12, 70, "Print",ExpressionUUID->"74d0dd35-911e-44c8-bb6a-b4c85373c81a"],
-Cell[493099, 12983, 2263, 56, 70, "Print",ExpressionUUID->"0575132d-c8cb-445f-8fba-284cb2b87024"],
-Cell[495365, 13041, 838, 19, 70, "Print",ExpressionUUID->"adb5559c-b209-4062-83c9-5c869a56f6c8"],
-Cell[496206, 13062, 238, 4, 70, "Print",ExpressionUUID->"9e866bc4-6fab-424a-86d7-d30704220106"],
-Cell[496447, 13068, 1247, 29, 70, "Print",ExpressionUUID->"67f35bfd-350a-4e93-be87-1a1ca1c9b386"],
-Cell[497697, 13099, 490, 12, 70, "Print",ExpressionUUID->"9d548cab-4d73-4eb8-8c5c-3c1435bc3cd4"],
-Cell[498190, 13113, 2259, 56, 70, "Print",ExpressionUUID->"91496764-fb82-4fed-a999-14781d8ddaea"],
-Cell[500452, 13171, 834, 19, 70, "Print",ExpressionUUID->"8afd6fc0-4282-47cb-945b-340cc25fedf1"],
-Cell[501289, 13192, 239, 4, 70, "Print",ExpressionUUID->"243103c3-9d39-4843-8481-8f4b48b2d669"],
-Cell[501531, 13198, 1246, 29, 70, "Print",ExpressionUUID->"ea2c482b-3c9c-4d2c-903e-4cfe64293085"],
-Cell[502780, 13229, 486, 11, 70, "Print",ExpressionUUID->"2b2a4c27-a555-4995-b95f-d67903e2fcc1"],
-Cell[503269, 13242, 2259, 56, 70, "Print",ExpressionUUID->"6686b9f5-50f7-480f-bc34-ea10425a3ae7"],
-Cell[505531, 13300, 840, 19, 70, "Print",ExpressionUUID->"ecd3ccec-bf6f-4ff4-abfa-2a4203879fab"],
-Cell[506374, 13321, 239, 4, 70, "Print",ExpressionUUID->"e8fb66e2-96a2-44f8-9166-3d8fb8f9932e"],
-Cell[506616, 13327, 1246, 29, 70, "Print",ExpressionUUID->"638adbb5-3f17-4216-8a91-5541d085e9ea"],
-Cell[507865, 13358, 490, 12, 70, "Print",ExpressionUUID->"738834b4-4d35-42be-956f-7367b51480c1"],
-Cell[508358, 13372, 2263, 56, 70, "Print",ExpressionUUID->"6ef0c1af-d916-483f-bb0e-671b760f581b"],
-Cell[510624, 13430, 836, 19, 70, "Print",ExpressionUUID->"256364b9-14f5-4d74-961f-1570662e21fb"],
-Cell[511463, 13451, 241, 4, 70, "Print",ExpressionUUID->"0bff2f23-78de-46f7-b6fd-5709cb524b42"],
-Cell[511707, 13457, 1246, 29, 70, "Print",ExpressionUUID->"aba953b8-4618-4c0d-b503-436a0ac59697"],
-Cell[512956, 13488, 490, 12, 70, "Print",ExpressionUUID->"91716b3f-79aa-4d56-ae2d-c00c369c2850"],
-Cell[513449, 13502, 2263, 56, 70, "Print",ExpressionUUID->"1e829729-1df8-4365-b323-e9724a26e35f"],
-Cell[515715, 13560, 836, 19, 70, "Print",ExpressionUUID->"d401ca0c-c74a-4461-ac96-fd97c2467801"],
-Cell[516554, 13581, 239, 4, 70, "Print",ExpressionUUID->"d4a67a76-6b15-4432-ac95-2571b56849dd"],
-Cell[516796, 13587, 1246, 29, 70, "Print",ExpressionUUID->"0de435d0-0490-48d2-87cb-383bb669c4f2"],
-Cell[518045, 13618, 490, 12, 70, "Print",ExpressionUUID->"1ad91b39-9b34-49f0-b533-725463ae7f12"],
-Cell[518538, 13632, 2263, 56, 70, "Print",ExpressionUUID->"5977b943-9d72-4dbc-b78b-68a9470dfd11"],
-Cell[520804, 13690, 840, 19, 70, "Print",ExpressionUUID->"13ed0b1f-d321-44ca-b360-6011ab2de075"],
-Cell[521647, 13711, 241, 4, 70, "Print",ExpressionUUID->"67ff1dda-e711-4f59-92c6-f5a3321e129e"],
-Cell[521891, 13717, 1249, 29, 70, "Print",ExpressionUUID->"cc6c3494-3d0c-4bef-9a8a-b36e3b599b24"],
-Cell[523143, 13748, 490, 12, 70, "Print",ExpressionUUID->"b14e5fd2-8bf7-4e8e-bc87-a75ed4a4114b"],
-Cell[523636, 13762, 2263, 56, 70, "Print",ExpressionUUID->"96e0f4da-eb72-46a1-b03f-b67cba97449b"],
-Cell[525902, 13820, 834, 19, 70, "Print",ExpressionUUID->"d9287d20-0e0b-4e4c-8554-d575aaf15739"],
-Cell[526739, 13841, 239, 4, 70, "Print",ExpressionUUID->"cafcff0e-9d34-4f34-894a-2f15f32388ad"],
-Cell[526981, 13847, 1248, 29, 70, "Print",ExpressionUUID->"76f9e8a6-fe68-4795-b2a0-4d245a3bd4c7"],
-Cell[528232, 13878, 489, 12, 70, "Print",ExpressionUUID->"82a72115-f980-4026-aa1f-11dde59f6eb4"],
-Cell[528724, 13892, 2263, 56, 70, "Print",ExpressionUUID->"e46eb5c4-ce80-4dad-bc68-4ad86e866bc1"],
-Cell[530990, 13950, 838, 19, 70, "Print",ExpressionUUID->"6b0266a7-d440-4df9-98c5-9033b4d6a63f"],
-Cell[531831, 13971, 239, 4, 70, "Print",ExpressionUUID->"b3e8f517-0b19-4998-995e-9ec0b1674d77"],
-Cell[532073, 13977, 1247, 29, 70, "Print",ExpressionUUID->"eed80122-c0ae-400f-8b77-06a166122918"],
-Cell[533323, 14008, 490, 12, 70, "Print",ExpressionUUID->"e3d0318f-1780-49c8-8d68-8edc0751ee64"],
-Cell[533816, 14022, 2263, 56, 70, "Print",ExpressionUUID->"9aa6896b-a18a-4723-9fac-4643e317be6e"],
-Cell[536082, 14080, 815, 18, 70, "Print",ExpressionUUID->"0bbf94e2-166a-4536-a0e1-27054e430195"],
-Cell[536900, 14100, 239, 4, 70, "Print",ExpressionUUID->"39684e04-c54e-4fc7-a827-6ed4e78c733d"],
-Cell[537142, 14106, 1243, 29, 70, "Print",ExpressionUUID->"2e1efed3-be0e-421a-ae4a-bed8bc11562a"],
-Cell[538388, 14137, 490, 12, 70, "Print",ExpressionUUID->"7a643a1e-b729-4f94-989a-32f46a3cd491"],
-Cell[538881, 14151, 2259, 56, 70, "Print",ExpressionUUID->"55d2fb5f-6bc7-4fbd-9a5d-2e36d59e1d38"],
-Cell[541143, 14209, 832, 19, 70, "Print",ExpressionUUID->"bb6c09e0-cde9-4e44-958f-4d57beda4cf1"],
-Cell[541978, 14230, 239, 4, 70, "Print",ExpressionUUID->"9f446963-39c4-4df6-9192-b3d38014a23a"],
-Cell[542220, 14236, 1246, 29, 70, "Print",ExpressionUUID->"d5ec2336-d2b1-49ed-8cf9-e46f58d05d57"],
-Cell[543469, 14267, 490, 12, 70, "Print",ExpressionUUID->"aa6379c3-03c5-443c-bef3-256b10fd03a7"],
-Cell[543962, 14281, 2261, 56, 70, "Print",ExpressionUUID->"3160caf0-e168-4328-94ed-cc3b35d869ba"],
-Cell[546226, 14339, 834, 19, 70, "Print",ExpressionUUID->"f4d41b27-e4b1-4000-be91-993bb9198e80"],
-Cell[547063, 14360, 239, 4, 70, "Print",ExpressionUUID->"6aa7c578-027d-470a-a7e9-daa9adcf252c"],
-Cell[547305, 14366, 1246, 29, 70, "Print",ExpressionUUID->"5b77c32a-d165-4829-891a-a4117d1021f0"],
-Cell[548554, 14397, 490, 12, 70, "Print",ExpressionUUID->"bb1df350-7707-438f-8ac3-7bed75fb8beb"],
-Cell[549047, 14411, 2263, 56, 70, "Print",ExpressionUUID->"27c9c023-1fd2-413b-8157-ff422e522c6e"],
-Cell[551313, 14469, 838, 19, 70, "Print",ExpressionUUID->"2f8504ad-d81d-4adf-82eb-d72f4a2a0ab6"],
-Cell[552154, 14490, 239, 4, 70, "Print",ExpressionUUID->"38390dc4-805c-4e8d-a8bf-fc5b934582d4"],
-Cell[552396, 14496, 1243, 29, 70, "Print",ExpressionUUID->"3dea0df2-c53d-4c8f-907a-5b37cad3453e"],
-Cell[553642, 14527, 486, 11, 70, "Print",ExpressionUUID->"1a09ed1b-8a32-4b4a-b02a-1c0bb2d7c491"],
-Cell[554131, 14540, 2269, 56, 70, "Print",ExpressionUUID->"f1b8bd2b-0a8e-4ea9-addf-f1615b353eff"],
-Cell[556403, 14598, 838, 19, 70, "Print",ExpressionUUID->"324f09ba-4b13-4220-a97f-e970644f7a73"],
-Cell[557244, 14619, 241, 4, 70, "Print",ExpressionUUID->"0bd124e8-29fd-4fd7-b163-fa7f346cee77"],
-Cell[557488, 14625, 1245, 29, 70, "Print",ExpressionUUID->"3a9960cf-27d8-4cb7-b151-20c0b1270bec"],
-Cell[558736, 14656, 490, 12, 70, "Print",ExpressionUUID->"80923af9-45dc-425e-a85c-5c566e7b6a6b"],
-Cell[559229, 14670, 2267, 56, 70, "Print",ExpressionUUID->"2e94ba09-a09c-45fb-96ec-e01a43510d98"],
-Cell[561499, 14728, 838, 19, 70, "Print",ExpressionUUID->"f6bd7cac-ff51-49c3-b47c-6380ead2adcd"],
-Cell[562340, 14749, 239, 4, 70, "Print",ExpressionUUID->"b8258aa8-8cad-4a45-bd95-b9fd0a8bf90d"],
-Cell[562582, 14755, 1246, 29, 70, "Print",ExpressionUUID->"cd048507-b6cd-4130-bf7e-377c0b368b30"],
-Cell[563831, 14786, 490, 12, 70, "Print",ExpressionUUID->"6388fd3f-29bf-4c9d-8367-847073eec5e9"],
-Cell[564324, 14800, 2265, 56, 70, "Print",ExpressionUUID->"447e7bf9-37c6-4da3-96b4-61923a30c314"],
-Cell[566592, 14858, 832, 19, 70, "Print",ExpressionUUID->"3bd2ef56-19e4-4676-99f0-0b6ca52e839c"],
-Cell[567427, 14879, 239, 4, 70, "Print",ExpressionUUID->"75397881-2392-4bbf-84fa-a23ca93b016d"],
-Cell[567669, 14885, 1248, 29, 70, "Print",ExpressionUUID->"749e0106-0166-4247-a983-9ee3b5fea6f3"],
-Cell[568920, 14916, 489, 12, 70, "Print",ExpressionUUID->"f6db08a0-7085-46be-b657-e9782dbaa95f"],
-Cell[569412, 14930, 2269, 56, 70, "Print",ExpressionUUID->"a3608b85-157c-437b-ad15-d40af3c1defb"],
-Cell[571684, 14988, 838, 19, 70, "Print",ExpressionUUID->"ca095d97-aeb7-4d6d-a3fd-d49196ce435e"],
-Cell[572525, 15009, 239, 4, 70, "Print",ExpressionUUID->"8afff9ba-54f8-444e-88b2-4dba76490823"],
-Cell[572767, 15015, 1248, 29, 70, "Print",ExpressionUUID->"388d7836-fe39-4903-8f35-708519cf714f"],
-Cell[574018, 15046, 489, 12, 70, "Print",ExpressionUUID->"f1a772c4-7017-4676-ba4d-c37ab34db620"],
-Cell[574510, 15060, 2271, 56, 70, "Print",ExpressionUUID->"5c94f1a6-e1cc-4fbb-add6-e35857ebe546"],
-Cell[576784, 15118, 811, 18, 70, "Print",ExpressionUUID->"13943621-44c9-454d-8791-c3ad2a4c86bb"],
-Cell[577598, 15138, 239, 4, 70, "Print",ExpressionUUID->"30b531e2-e09b-4fa9-9c24-02a1c4717a50"],
-Cell[577840, 15144, 1248, 29, 70, "Print",ExpressionUUID->"aaa18800-d888-41f1-b3e8-1f815a0a5da4"],
-Cell[579091, 15175, 469, 11, 70, "Print",ExpressionUUID->"74b04c5e-320c-44d9-8c7e-3649f2ead2aa"],
-Cell[579563, 15188, 2271, 56, 70, "Print",ExpressionUUID->"8c70d692-d013-4fe5-9e29-63a889d77812"],
-Cell[581837, 15246, 836, 19, 70, "Print",ExpressionUUID->"897a2bc3-08c9-40ae-a8d2-7cba69f4ca08"],
-Cell[582676, 15267, 241, 4, 70, "Print",ExpressionUUID->"e734434c-59ef-4984-a876-0ed238039ea4"],
-Cell[582920, 15273, 1249, 29, 70, "Print",ExpressionUUID->"55d612ef-9d43-4d3a-8d64-a90410685b34"],
-Cell[584172, 15304, 490, 12, 70, "Print",ExpressionUUID->"c9424817-7f05-4e2d-b9aa-9c09972b5e9c"],
-Cell[584665, 15318, 2269, 56, 70, "Print",ExpressionUUID->"ad3dab4c-d792-4908-864c-d54b450452b8"],
-Cell[586937, 15376, 834, 19, 70, "Print",ExpressionUUID->"496cdfee-a075-4f4c-b2af-6091777f9c9e"],
-Cell[587774, 15397, 239, 4, 70, "Print",ExpressionUUID->"45195f2b-1687-4cbf-a94f-1d6d9657dcb0"],
-Cell[588016, 15403, 1247, 29, 70, "Print",ExpressionUUID->"10ce226c-70a3-44e4-92e1-7a8fea40fa1e"],
-Cell[589266, 15434, 492, 12, 70, "Print",ExpressionUUID->"4aa34a7f-6b5f-4243-9416-daf7f6d943a4"],
-Cell[589761, 15448, 2268, 56, 70, "Print",ExpressionUUID->"6d45ab4a-3017-4b42-9f6b-237be7280cbd"],
-Cell[592032, 15506, 840, 19, 70, "Print",ExpressionUUID->"7b3d6b90-201f-4fd5-b453-0658d0775acf"],
-Cell[592875, 15527, 239, 4, 70, "Print",ExpressionUUID->"f9b2ef8c-c3f8-494e-a5b4-799560928c66"],
-Cell[593117, 15533, 1248, 29, 70, "Print",ExpressionUUID->"a700d899-bc6e-4514-831c-0330affd0c4b"],
-Cell[594368, 15564, 490, 12, 70, "Print",ExpressionUUID->"499fd5f4-ffee-46be-b4f4-ce04d49c3588"],
-Cell[594861, 15578, 2271, 56, 70, "Print",ExpressionUUID->"13e9a373-340c-4407-8ff6-b4d5daa65075"],
-Cell[597135, 15636, 834, 19, 70, "Print",ExpressionUUID->"46f9b31b-c2aa-468b-82e4-b35541fca63e"],
-Cell[597972, 15657, 239, 4, 70, "Print",ExpressionUUID->"b56f9810-1b3e-4841-9708-ddaf957aaef4"],
-Cell[598214, 15663, 1246, 29, 70, "Print",ExpressionUUID->"9b51c6d2-c3fc-4b28-a68e-3fdf900e54b2"],
-Cell[599463, 15694, 484, 11, 70, "Print",ExpressionUUID->"988be67c-29e6-413b-a8a6-b5ab71f701a1"],
-Cell[599950, 15707, 2269, 56, 70, "Print",ExpressionUUID->"094d6588-73b8-4a27-af3b-900e4c4ce922"],
-Cell[602222, 15765, 832, 19, 70, "Print",ExpressionUUID->"559c97f8-2e9b-45f1-9962-fc8fbbac327d"],
-Cell[603057, 15786, 239, 4, 70, "Print",ExpressionUUID->"718bad13-8339-4b12-97e7-44e498be0e31"],
-Cell[603299, 15792, 1249, 29, 70, "Print",ExpressionUUID->"71a03849-9cc8-4b0d-ba91-9206f915ea9f"],
-Cell[604551, 15823, 490, 12, 70, "Print",ExpressionUUID->"186fc374-2771-4696-bdf4-e55399999a41"],
-Cell[605044, 15837, 2269, 56, 70, "Print",ExpressionUUID->"6fc98708-6e68-4b7a-83bf-801fdc4071fa"],
-Cell[607316, 15895, 834, 19, 70, "Print",ExpressionUUID->"275b227f-470e-4ba4-9e9d-195736dc3fac"],
-Cell[608153, 15916, 241, 4, 70, "Print",ExpressionUUID->"07c10ec0-1a5b-46c9-8292-c5c653fdc998"],
-Cell[608397, 15922, 1250, 29, 70, "Print",ExpressionUUID->"f814e990-660b-4426-b181-548ce484cddb"],
-Cell[609650, 15953, 489, 12, 70, "Print",ExpressionUUID->"e17260ae-b43b-40e0-a6c7-7ccdde3f00cd"],
-Cell[610142, 15967, 2269, 56, 70, "Print",ExpressionUUID->"3d834568-bc00-4f23-ae00-0990b7402e5e"],
-Cell[612414, 16025, 828, 19, 70, "Print",ExpressionUUID->"098e7401-3ac7-4672-9129-4ab21e753254"],
-Cell[613245, 16046, 239, 4, 70, "Print",ExpressionUUID->"407689a4-c6f1-4862-a08d-e223848aa11c"],
-Cell[613487, 16052, 1247, 29, 70, "Print",ExpressionUUID->"9952fcbc-82ec-43b0-8023-110117d755a4"],
-Cell[614737, 16083, 490, 12, 70, "Print",ExpressionUUID->"9fd101ee-90ac-4285-9110-68f5b60c68b5"],
-Cell[615230, 16097, 2269, 56, 70, "Print",ExpressionUUID->"e1ea6ea2-8fa5-4b10-a431-ceda86293d51"],
-Cell[617502, 16155, 838, 19, 70, "Print",ExpressionUUID->"fd7762cd-c770-4bd2-8b0c-d772dde2437e"],
-Cell[618343, 16176, 239, 4, 70, "Print",ExpressionUUID->"cb2177ec-e1f7-47d0-937f-e8a5df23ee21"],
-Cell[618585, 16182, 1248, 29, 70, "Print",ExpressionUUID->"56a36336-fde3-4608-94a7-c63326662a5e"],
-Cell[619836, 16213, 486, 11, 70, "Print",ExpressionUUID->"30739532-f1f6-4431-81f3-c27a1023a90c"],
-Cell[620325, 16226, 2269, 56, 70, "Print",ExpressionUUID->"8fd64e7f-bb45-47c7-ad81-202a48799407"],
-Cell[622597, 16284, 836, 19, 70, "Print",ExpressionUUID->"20cdab9f-96da-4744-bb93-8b70038ef358"],
-Cell[623436, 16305, 239, 4, 70, "Print",ExpressionUUID->"5f112382-df5c-4479-bb50-666fac722960"],
-Cell[623678, 16311, 1249, 29, 70, "Print",ExpressionUUID->"8c4463c7-a7fc-4789-b9e1-a22e3cf9ca72"],
-Cell[624930, 16342, 483, 11, 70, "Print",ExpressionUUID->"5ad011e3-1ef3-419d-83c5-cb160d51ec4c"],
-Cell[625416, 16355, 2269, 56, 70, "Print",ExpressionUUID->"f479392c-8251-498c-a917-01fddfccb79b"],
-Cell[627688, 16413, 817, 18, 70, "Print",ExpressionUUID->"cf38b2d3-376c-45da-8ec7-c63daef932dc"],
-Cell[628508, 16433, 239, 4, 70, "Print",ExpressionUUID->"84f6927b-e34e-4eaf-a0b8-46b7b15950e4"],
-Cell[628750, 16439, 1249, 29, 70, "Print",ExpressionUUID->"fa7816a4-db3f-4119-bd9a-22d3dded1648"],
-Cell[630002, 16470, 490, 12, 70, "Print",ExpressionUUID->"ff2aec10-ea9c-405a-b2d0-ee83329963fa"],
-Cell[630495, 16484, 2271, 56, 70, "Print",ExpressionUUID->"e2ebd718-177e-40ca-83ae-86a567381b75"],
-Cell[632769, 16542, 834, 19, 70, "Print",ExpressionUUID->"13c4940f-7f89-4ae2-8809-9b952305f91a"],
-Cell[633606, 16563, 241, 4, 70, "Print",ExpressionUUID->"dc818708-6094-433a-9837-93f6daf26e29"],
-Cell[633850, 16569, 1248, 29, 70, "Print",ExpressionUUID->"31cacc7c-cc4d-428f-9954-d577f196a0ce"],
-Cell[635101, 16600, 482, 11, 70, "Print",ExpressionUUID->"18c449ce-5c0e-4d07-ad6f-482088da349c"],
-Cell[635586, 16613, 2271, 56, 70, "Print",ExpressionUUID->"6151ee65-fa62-42a4-84c3-9b7d4be5b460"],
-Cell[637860, 16671, 834, 19, 70, "Print",ExpressionUUID->"31ade8bf-693d-4512-ad3f-61c0a0102ab6"],
-Cell[638697, 16692, 239, 4, 70, "Print",ExpressionUUID->"cf3a2cd5-253f-44b1-bc29-9f15a3e5cbce"],
-Cell[638939, 16698, 1247, 29, 70, "Print",ExpressionUUID->"05a5e07e-fdbb-4365-99ec-7d94cbf235b1"],
-Cell[640189, 16729, 490, 12, 70, "Print",ExpressionUUID->"2819ff6c-e37d-42da-9e45-978082a40ab1"],
-Cell[640682, 16743, 2272, 56, 70, "Print",ExpressionUUID->"217c2a3e-1fe1-4415-ad4a-f29da73b21a9"],
-Cell[642957, 16801, 836, 19, 70, "Print",ExpressionUUID->"58856342-5200-41ff-bf1c-93448951c1b1"],
-Cell[643796, 16822, 239, 4, 70, "Print",ExpressionUUID->"6d02ba6d-11bd-429d-a4fc-301e4dc44394"],
-Cell[644038, 16828, 1246, 29, 70, "Print",ExpressionUUID->"924ba63a-a608-435d-b2fa-77d24536f759"],
-Cell[645287, 16859, 492, 12, 70, "Print",ExpressionUUID->"9691bd2c-99be-401f-b719-f67d079e7647"],
-Cell[645782, 16873, 2274, 56, 70, "Print",ExpressionUUID->"097159ad-9934-4a51-8e10-353615a1db99"],
-Cell[648059, 16931, 836, 19, 70, "Print",ExpressionUUID->"844cc629-f604-4de4-aa31-76e33ed31819"],
-Cell[648898, 16952, 239, 4, 70, "Print",ExpressionUUID->"c6b37652-42ef-4223-8897-170ee85fd51e"],
-Cell[649140, 16958, 1249, 29, 70, "Print",ExpressionUUID->"2a8638ac-5352-4185-8c80-cde13cef1de5"],
-Cell[650392, 16989, 492, 12, 70, "Print",ExpressionUUID->"b41fde67-91e1-4a51-9f35-c12282824f69"],
-Cell[650887, 17003, 2272, 56, 70, "Print",ExpressionUUID->"5065eebd-a3b8-4847-a33b-d1479ed6a387"],
-Cell[653162, 17061, 819, 18, 70, "Print",ExpressionUUID->"e2ab3da5-e115-4fb3-a08d-0469714d2045"],
-Cell[653984, 17081, 241, 4, 70, "Print",ExpressionUUID->"0f3ce07d-d00b-406e-aab3-dc77fbae1fc0"],
-Cell[654228, 17087, 1250, 29, 70, "Print",ExpressionUUID->"982f9488-3677-4eed-9c58-0a94e41ee11b"],
-Cell[655481, 17118, 492, 12, 70, "Print",ExpressionUUID->"591b2c9d-3301-4ab3-bdf2-dc8856237e92"],
-Cell[655976, 17132, 2275, 56, 70, "Print",ExpressionUUID->"e3442c85-56ba-447f-b7d1-a83d4d94f1a9"],
-Cell[658254, 17190, 834, 19, 70, "Print",ExpressionUUID->"1286031f-9388-4ac0-968d-00ada20f064f"],
-Cell[659091, 17211, 241, 4, 70, "Print",ExpressionUUID->"93fcf523-62b0-4cd3-9f27-80320c685c04"],
-Cell[659335, 17217, 1250, 29, 70, "Print",ExpressionUUID->"c79bee69-2eb7-475d-ba0d-77266e45b827"],
-Cell[660588, 17248, 490, 12, 70, "Print",ExpressionUUID->"da75ae05-b0d3-4790-8eb3-ebacee6334fb"],
-Cell[661081, 17262, 2271, 56, 70, "Print",ExpressionUUID->"a8227982-4cdb-45c5-b15b-ed516a383eff"],
-Cell[663355, 17320, 832, 19, 70, "Print",ExpressionUUID->"3165ad9f-29b2-46aa-a7da-2647041397ff"],
-Cell[664190, 17341, 239, 4, 70, "Print",ExpressionUUID->"e1d18c84-5504-4a47-bc10-36bf409e6aec"],
-Cell[664432, 17347, 1247, 29, 70, "Print",ExpressionUUID->"fb10deb9-3d59-44dc-b23a-723278e8ce27"],
-Cell[665682, 17378, 482, 11, 70, "Print",ExpressionUUID->"2b7a4cdd-b63d-4981-a2df-5a6d5676a899"],
-Cell[666167, 17391, 2275, 56, 70, "Print",ExpressionUUID->"dc591a05-dca0-4678-8efa-d25efd590568"],
-Cell[668445, 17449, 813, 18, 70, "Print",ExpressionUUID->"c45992f3-06e0-4e9d-95b5-a63972c526d3"],
-Cell[669261, 17469, 239, 4, 70, "Print",ExpressionUUID->"019a3736-adff-4758-91d1-c5634bb2f749"],
-Cell[669503, 17475, 1249, 29, 70, "Print",ExpressionUUID->"dbf5bddf-03ef-4e82-a73b-76c9f675da7d"],
-Cell[670755, 17506, 490, 12, 70, "Print",ExpressionUUID->"51df1b2d-806e-40a4-841c-53f982367141"],
-Cell[671248, 17520, 2271, 56, 70, "Print",ExpressionUUID->"0422f8fe-6fb7-4c7f-bd1d-05771036078f"],
-Cell[673522, 17578, 838, 19, 70, "Print",ExpressionUUID->"c0d240b8-18fe-443b-8244-325033466329"],
-Cell[674363, 17599, 239, 4, 70, "Print",ExpressionUUID->"bfe94385-cd19-49f2-9c63-c2f0cda3fe7b"],
-Cell[674605, 17605, 1252, 29, 70, "Print",ExpressionUUID->"6c28e756-fda0-47d1-9588-96bf43e561d1"],
-Cell[675860, 17636, 482, 11, 70, "Print",ExpressionUUID->"73c40a87-9b8f-467b-8829-ecc8d3bfa30e"],
-Cell[676345, 17649, 2275, 56, 70, "Print",ExpressionUUID->"054ceadc-5b83-4234-96b6-ff25d020d4cd"],
-Cell[678623, 17707, 815, 18, 70, "Print",ExpressionUUID->"8684565f-6425-40de-8f67-8c2a29375354"],
-Cell[679441, 17727, 241, 4, 70, "Print",ExpressionUUID->"5e3224d4-3bf2-4d98-aced-840427d3410c"],
-Cell[679685, 17733, 1245, 29, 70, "Print",ExpressionUUID->"cb23182c-a787-440b-8f0f-c6acb9aa0e18"],
-Cell[680933, 17764, 490, 12, 70, "Print",ExpressionUUID->"23605e88-248d-49b5-80f3-55fd2f2b61f7"],
-Cell[681426, 17778, 2269, 56, 70, "Print",ExpressionUUID->"8adb131b-66b5-41d8-af33-5606e24fdff4"],
-Cell[683698, 17836, 832, 19, 70, "Print",ExpressionUUID->"c7425f9e-1637-46bc-99ac-efa54e0507cd"],
-Cell[684533, 17857, 239, 4, 70, "Print",ExpressionUUID->"e2c1902d-778a-4b70-bf3f-0d40c9fd33eb"],
-Cell[684775, 17863, 1249, 29, 70, "Print",ExpressionUUID->"c950a035-f839-4dca-8473-008d1d95659b"],
-Cell[686027, 17894, 483, 11, 70, "Print",ExpressionUUID->"261aba29-a7a1-4401-8889-ecc1e00fafb2"],
-Cell[686513, 17907, 2275, 56, 70, "Print",ExpressionUUID->"4b96ac29-1aaf-469d-a4de-08d229b716e2"],
-Cell[688791, 17965, 830, 19, 70, "Print",ExpressionUUID->"84639cd1-5351-40f5-97e6-756a78bd67b0"],
-Cell[689624, 17986, 241, 4, 70, "Print",ExpressionUUID->"cb96e066-e471-48ac-8c1e-85d842782d31"],
-Cell[689868, 17992, 1249, 29, 70, "Print",ExpressionUUID->"292b42a9-6bb6-4c60-aa14-1ebdbe3e21bc"],
-Cell[691120, 18023, 484, 11, 70, "Print",ExpressionUUID->"fdaf4fa9-184b-4cc0-ae7a-1ea111d34cff"],
-Cell[691607, 18036, 2269, 56, 70, "Print",ExpressionUUID->"2bc5474d-f9cd-4b04-8f62-d15ec517799b"],
-Cell[693879, 18094, 834, 19, 70, "Print",ExpressionUUID->"1aa70c00-fa61-4827-a871-88c4848f0ac9"],
-Cell[694716, 18115, 241, 4, 70, "Print",ExpressionUUID->"82819c5f-68fc-453a-8645-e3ff9d351ebb"],
-Cell[694960, 18121, 1249, 29, 70, "Print",ExpressionUUID->"7cc03ad3-047f-4036-bea1-8689bba95763"],
-Cell[696212, 18152, 492, 12, 70, "Print",ExpressionUUID->"bb279966-b62c-402d-adf2-2d3807da3e0e"],
-Cell[696707, 18166, 2275, 56, 70, "Print",ExpressionUUID->"0c73d478-408e-4ac5-a22a-9d2237e4c480"],
-Cell[698985, 18224, 815, 18, 70, "Print",ExpressionUUID->"c541783e-c502-4eb9-a3af-1390577378b8"],
-Cell[699803, 18244, 241, 4, 70, "Print",ExpressionUUID->"729d3788-8cfc-4d44-a64e-2f83d1190d58"],
-Cell[700047, 18250, 1249, 29, 70, "Print",ExpressionUUID->"4c72f50e-c3f7-4491-8368-2a20cceca8f7"],
-Cell[701299, 18281, 486, 11, 70, "Print",ExpressionUUID->"2bb4cad4-4c84-46aa-9486-285b656cdb89"],
-Cell[701788, 18294, 2277, 56, 70, "Print",ExpressionUUID->"c7d60a34-7c82-4bc6-8b45-24f96caf69d2"],
-Cell[704068, 18352, 815, 18, 70, "Print",ExpressionUUID->"b7e7a1de-f11f-4c80-9fdb-07019208f980"],
-Cell[704886, 18372, 239, 4, 70, "Print",ExpressionUUID->"65d8ff0b-4419-44f7-90e1-ace231bcc6b0"],
-Cell[705128, 18378, 1247, 29, 70, "Print",ExpressionUUID->"9f99cc37-b504-4f95-a86e-959147f9197e"],
-Cell[706378, 18409, 490, 12, 70, "Print",ExpressionUUID->"5dc867e9-a6d6-4e00-978e-aaa6970c08a4"],
-Cell[706871, 18423, 2272, 56, 70, "Print",ExpressionUUID->"5bceee5d-2521-44e7-9a03-94e2d50e4bce"],
-Cell[709146, 18481, 830, 19, 70, "Print",ExpressionUUID->"889115fb-1fe9-4a1c-b8b1-8be02d7d4d14"],
-Cell[709979, 18502, 241, 4, 70, "Print",ExpressionUUID->"2574ddb6-0bc7-4912-9c93-07fb84cedfa5"],
-Cell[710223, 18508, 1248, 29, 70, "Print",ExpressionUUID->"1fa54062-9878-4706-98d4-ab4ffe87f6c9"],
-Cell[711474, 18539, 484, 11, 70, "Print",ExpressionUUID->"224a01d0-4767-40f4-9581-9af6c94936ec"],
-Cell[711961, 18552, 2269, 56, 70, "Print",ExpressionUUID->"0385b6a9-2fb0-404b-a42e-46d99be103fa"],
-Cell[714233, 18610, 832, 19, 70, "Print",ExpressionUUID->"38072617-cee0-494c-9f52-d52bc68d8429"],
-Cell[715068, 18631, 239, 4, 70, "Print",ExpressionUUID->"b8045ab2-0d55-4a2e-b43c-fecb87dac7c7"],
-Cell[715310, 18637, 1249, 29, 70, "Print",ExpressionUUID->"c0899192-6c29-406d-a312-7175cfdf1a95"],
-Cell[716562, 18668, 484, 11, 70, "Print",ExpressionUUID->"2de90cc7-bc00-4355-b4f2-9e798d9c0663"],
-Cell[717049, 18681, 2271, 56, 70, "Print",ExpressionUUID->"3f65189e-2c55-48d4-a3c2-d24055906d8c"],
-Cell[719323, 18739, 815, 18, 70, "Print",ExpressionUUID->"74302180-04ee-4599-8512-19008741e70e"],
-Cell[720141, 18759, 241, 4, 70, "Print",ExpressionUUID->"d1833b11-b7db-4063-9e2d-b4547c31cdbe"],
-Cell[720385, 18765, 1250, 29, 70, "Print",ExpressionUUID->"909a3c34-349e-45b5-990f-7b9f9ccd5015"],
-Cell[721638, 18796, 484, 11, 70, "Print",ExpressionUUID->"61de55c9-8426-42a9-b550-b98a3fbf37e0"],
-Cell[722125, 18809, 2275, 56, 70, "Print",ExpressionUUID->"9cdd432e-63c7-4cc9-b9c4-fbb25c6ed327"],
-Cell[724403, 18867, 814, 18, 70, "Print",ExpressionUUID->"ac716e5a-1d7f-45c9-bfae-08e8f3fdabe5"],
-Cell[725220, 18887, 239, 4, 70, "Print",ExpressionUUID->"418095ce-8574-4e9a-86e4-02c9d142af03"],
-Cell[725462, 18893, 1251, 29, 70, "Print",ExpressionUUID->"9bed9c78-5797-444f-b094-c8fcd8ca8eba"],
-Cell[726716, 18924, 490, 12, 70, "Print",ExpressionUUID->"881d7d57-14f2-4ab8-bd2f-0a82f0683e55"],
-Cell[727209, 18938, 2269, 56, 70, "Print",ExpressionUUID->"20681b70-d06e-4159-aebc-469af8a6df72"],
-Cell[729481, 18996, 836, 19, 70, "Print",ExpressionUUID->"f7d7a11f-70ac-4f0b-b053-4b3be0c82386"],
-Cell[730320, 19017, 239, 4, 70, "Print",ExpressionUUID->"384baa6e-08e1-4438-a700-0af3ecb5841e"],
-Cell[730562, 19023, 1250, 29, 70, "Print",ExpressionUUID->"86e9ca8c-4c55-47a0-b6d4-ca0f02dd7a9b"],
-Cell[731815, 19054, 490, 12, 70, "Print",ExpressionUUID->"13fc7508-1305-468a-8f5c-aa5883dc62bf"],
-Cell[732308, 19068, 2269, 56, 70, "Print",ExpressionUUID->"7c821d48-82b9-4c1c-8ee7-4f3ff499ee49"],
-Cell[734580, 19126, 840, 19, 70, "Print",ExpressionUUID->"7900a994-9b71-4ce5-9371-5912ed278f4b"],
-Cell[735423, 19147, 239, 4, 70, "Print",ExpressionUUID->"17339eda-6538-4101-8f71-fcac9f4e46e1"],
-Cell[735665, 19153, 1250, 29, 70, "Print",ExpressionUUID->"509ebc9d-f2cd-409e-a371-781d6a1b5c47"],
-Cell[736918, 19184, 490, 12, 70, "Print",ExpressionUUID->"4232fd4f-acf0-45ac-81b2-8790ee531e7d"],
-Cell[737411, 19198, 2275, 56, 70, "Print",ExpressionUUID->"8dbedace-d4c8-4e3a-ab08-06b3dc69ad5f"],
-Cell[739689, 19256, 830, 19, 70, "Print",ExpressionUUID->"d6c84805-8050-45b7-8392-ba8c171824d5"],
-Cell[740522, 19277, 241, 4, 70, "Print",ExpressionUUID->"c60afc31-af61-48f8-a153-a7cf676ec9be"],
-Cell[740766, 19283, 1248, 29, 70, "Print",ExpressionUUID->"3cba981f-b491-40de-8808-cfdc790c3f37"],
-Cell[742017, 19314, 490, 12, 70, "Print",ExpressionUUID->"a4b1e78d-ffd9-4500-a5e8-9cd3d0aa72b0"],
-Cell[742510, 19328, 2267, 56, 70, "Print",ExpressionUUID->"8d4bb487-4955-4e73-8cb7-6ff4c5172fa7"],
-Cell[744780, 19386, 838, 19, 70, "Print",ExpressionUUID->"50771606-2211-4b26-8e73-4a7f681810b2"],
-Cell[745621, 19407, 239, 4, 70, "Print",ExpressionUUID->"25b22062-a737-45ea-88ec-0aafe0a10c3f"],
-Cell[745863, 19413, 1249, 29, 70, "Print",ExpressionUUID->"a2bfa9e6-4fdb-4624-a858-db0a40fc7bb6"],
-Cell[747115, 19444, 484, 11, 70, "Print",ExpressionUUID->"356eb56f-434f-40d1-bd44-3c53d4d38fa4"],
-Cell[747602, 19457, 2277, 56, 70, "Print",ExpressionUUID->"7a1fc800-970f-4493-9590-428333ca5017"],
-Cell[749882, 19515, 813, 18, 70, "Print",ExpressionUUID->"d52309e1-5077-4653-ac90-518b73c76ce2"],
-Cell[750698, 19535, 239, 4, 70, "Print",ExpressionUUID->"a0815103-1785-42b8-8820-e064bdf5935f"],
-Cell[750940, 19541, 1250, 29, 70, "Print",ExpressionUUID->"dae98de0-ddf3-4d10-acc3-e5d940b066ac"],
-Cell[752193, 19572, 490, 12, 70, "Print",ExpressionUUID->"94eb6b78-44b1-41b4-a6ea-46732dbdd53f"],
-Cell[752686, 19586, 2271, 56, 70, "Print",ExpressionUUID->"211e9fe4-c45e-4182-9210-88b7f965673c"],
-Cell[754960, 19644, 834, 19, 70, "Print",ExpressionUUID->"fb3cb240-f03f-4e04-a66c-045f513a57b9"],
-Cell[755797, 19665, 239, 4, 70, "Print",ExpressionUUID->"2853f571-4ecb-4762-b1bb-8ef6d12dcf6e"],
-Cell[756039, 19671, 1248, 29, 70, "Print",ExpressionUUID->"f67453e4-b33b-49c5-868e-8a61d8224a4e"],
-Cell[757290, 19702, 489, 12, 70, "Print",ExpressionUUID->"cfb9341c-5a6f-4d0f-9980-cc4916a2facd"],
-Cell[757782, 19716, 2277, 56, 70, "Print",ExpressionUUID->"6abd1505-50e5-4ae7-b820-c3c0cac588dc"],
-Cell[760062, 19774, 833, 19, 70, "Print",ExpressionUUID->"2d936dcd-1caa-4d14-a07e-369d8547017d"],
-Cell[760898, 19795, 239, 4, 70, "Print",ExpressionUUID->"bf772950-a0f7-4c9e-ad68-a09750925ef5"],
-Cell[761140, 19801, 1249, 29, 70, "Print",ExpressionUUID->"cf235c80-1126-4a34-9daa-f7596d11fc65"],
-Cell[762392, 19832, 486, 11, 70, "Print",ExpressionUUID->"a48fa32c-cdb7-4b2e-af37-a3347cc91c3d"],
-Cell[762881, 19845, 2275, 56, 70, "Print",ExpressionUUID->"31159048-216d-4e3d-bf43-6bd3ff7bc1b7"],
-Cell[765159, 19903, 836, 19, 70, "Print",ExpressionUUID->"cc84e712-adfc-4353-907e-9761094380d6"],
-Cell[765998, 19924, 239, 4, 70, "Print",ExpressionUUID->"930a943d-27b4-4d86-be64-dbd39050e591"],
-Cell[766240, 19930, 1252, 29, 70, "Print",ExpressionUUID->"b49b6c57-d2dc-4859-aebc-ae8fa938599d"],
-Cell[767495, 19961, 482, 11, 70, "Print",ExpressionUUID->"9c37718e-c9e5-45c2-8c4c-d62ae6859536"],
-Cell[767980, 19974, 2275, 56, 70, "Print",ExpressionUUID->"52a53eed-d859-4646-9869-25104e665d1e"],
-Cell[770258, 20032, 834, 19, 70, "Print",ExpressionUUID->"268dcca2-49d9-460d-bbc6-312479f745ad"],
-Cell[771095, 20053, 239, 4, 70, "Print",ExpressionUUID->"0b0a8f57-fca5-42e2-9b55-c40b55a716ae"],
-Cell[771337, 20059, 1250, 29, 70, "Print",ExpressionUUID->"7ed51606-a186-42ef-b7b6-bcb757183e95"],
-Cell[772590, 20090, 490, 12, 70, "Print",ExpressionUUID->"8f39012b-eb6e-43b3-95c6-7d862b821574"],
-Cell[773083, 20104, 2274, 56, 70, "Print",ExpressionUUID->"bcb0b250-204a-4c14-91a1-1a89641ede24"],
-Cell[775360, 20162, 811, 18, 70, "Print",ExpressionUUID->"ded87c84-5054-45ae-ab99-3684661cf1dd"],
-Cell[776174, 20182, 241, 4, 70, "Print",ExpressionUUID->"e398c812-8a07-4962-b063-e35553e0e3c7"],
-Cell[776418, 20188, 1248, 29, 70, "Print",ExpressionUUID->"464b6444-0242-4aac-b4ad-a3ea2cbaef47"],
-Cell[777669, 20219, 490, 12, 70, "Print",ExpressionUUID->"fa342b49-82ab-4707-8483-2d72037d9e78"],
-Cell[778162, 20233, 2275, 56, 70, "Print",ExpressionUUID->"9e0c6b22-3a2f-4359-8d39-2232a6756fb7"],
-Cell[780440, 20291, 838, 19, 70, "Print",ExpressionUUID->"de5661d4-fcf0-4582-9dd4-b05c331ffe44"],
-Cell[781281, 20312, 239, 4, 70, "Print",ExpressionUUID->"129cba15-0eeb-44db-97d7-7643d3587ea6"],
-Cell[781523, 20318, 1247, 29, 70, "Print",ExpressionUUID->"8c4e8efe-34e7-42dc-8485-b81436b0b1ae"],
-Cell[782773, 20349, 470, 11, 70, "Print",ExpressionUUID->"a4dae41f-1e0a-4b14-bf8d-646daa059fb7"],
-Cell[783246, 20362, 2277, 56, 70, "Print",ExpressionUUID->"18420c57-ddda-4022-bd76-ec029375434b"],
-Cell[785526, 20420, 836, 19, 70, "Print",ExpressionUUID->"bd2ddebe-6e14-4c7f-a4c5-59edf6170ced"],
-Cell[786365, 20441, 239, 4, 70, "Print",ExpressionUUID->"109903ec-be1a-476b-ba5d-ca6c31a2fb20"],
-Cell[786607, 20447, 1248, 29, 70, "Print",ExpressionUUID->"17c9c5a8-4993-4e93-b7b3-7698dcc4a7d8"],
-Cell[787858, 20478, 490, 12, 70, "Print",ExpressionUUID->"9462a008-7f06-416b-b2f8-2254b0084e1b"],
-Cell[788351, 20492, 2275, 56, 70, "Print",ExpressionUUID->"8581e3d5-57dc-4ee4-9490-d8bdfca7b41c"],
-Cell[790629, 20550, 834, 19, 70, "Print",ExpressionUUID->"b0a5e0a6-8614-4284-8194-48b29a30ab7d"],
-Cell[791466, 20571, 237, 4, 70, "Print",ExpressionUUID->"7951aa0c-ea59-4842-9cfd-c4a93e02e2f4"],
-Cell[791706, 20577, 1250, 29, 70, "Print",ExpressionUUID->"1a2508fd-3058-4534-b9a1-9ed30c7c53b8"],
-Cell[792959, 20608, 486, 11, 70, "Print",ExpressionUUID->"7f22a845-0485-4f26-b924-05c1636c40c3"],
-Cell[793448, 20621, 2271, 56, 70, "Print",ExpressionUUID->"37e4311c-9c61-4dd9-8fe9-b6b9a59924d0"],
-Cell[795722, 20679, 813, 18, 70, "Print",ExpressionUUID->"96308ace-d843-475a-8953-32b413885afb"],
-Cell[796538, 20699, 238, 4, 70, "Print",ExpressionUUID->"232f6234-870b-4f73-8198-86d4e4a20208"],
-Cell[796779, 20705, 1250, 29, 70, "Print",ExpressionUUID->"f2c4bfce-50fb-4899-92f7-f693fa2d62dd"],
-Cell[798032, 20736, 490, 12, 70, "Print",ExpressionUUID->"ccfd9535-0b0e-45d8-9458-0b3ccd082120"],
-Cell[798525, 20750, 2275, 56, 70, "Print",ExpressionUUID->"698adb12-c7c9-472a-9505-9eee7226ba03"],
-Cell[800803, 20808, 830, 19, 70, "Print",ExpressionUUID->"b5e64703-54ca-4cf5-9b10-d1ccde66fe00"],
-Cell[801636, 20829, 241, 4, 70, "Print",ExpressionUUID->"753a498a-8abc-4e00-8278-639f6b093d0d"],
-Cell[801880, 20835, 1249, 29, 70, "Print",ExpressionUUID->"e57733b4-ca36-4bc2-a1c8-7afc76b9201d"],
-Cell[803132, 20866, 486, 11, 70, "Print",ExpressionUUID->"f560ae66-2425-45d4-b89e-ff2f3859cb60"],
-Cell[803621, 20879, 2275, 56, 70, "Print",ExpressionUUID->"74d9a9f5-7638-434a-9ebf-9722201e6f88"],
-Cell[805899, 20937, 832, 19, 70, "Print",ExpressionUUID->"adba9671-276c-452f-a4ab-fc63ad560fe4"],
-Cell[806734, 20958, 238, 4, 70, "Print",ExpressionUUID->"923d8d34-5b9e-41b1-9d47-7127d5462963"],
-Cell[806975, 20964, 1249, 29, 70, "Print",ExpressionUUID->"d7748f22-aed9-4e94-a4e4-88eeb55708fc"],
-Cell[808227, 20995, 484, 11, 70, "Print",ExpressionUUID->"7e0acd42-fb39-421d-b2f9-6d211a71ed40"],
-Cell[808714, 21008, 2274, 56, 70, "Print",ExpressionUUID->"1b2fe879-cd79-478a-a980-ca1264486022"],
-Cell[810991, 21066, 817, 18, 70, "Print",ExpressionUUID->"1f7c4730-bd72-4e1f-a74d-c42d70805b4e"],
-Cell[811811, 21086, 241, 4, 70, "Print",ExpressionUUID->"c9d440ab-b215-4c90-ad7a-263af0795d53"],
-Cell[812055, 21092, 1250, 29, 70, "Print",ExpressionUUID->"1bfde587-01a7-4da1-b824-f3d44637da8c"],
-Cell[813308, 21123, 483, 11, 70, "Print",ExpressionUUID->"e5bd1963-3a67-4750-84c1-c74405b56267"],
-Cell[813794, 21136, 2275, 56, 70, "Print",ExpressionUUID->"f0b36ee1-f661-4712-8d74-97b5ad87be17"],
-Cell[816072, 21194, 838, 19, 70, "Print",ExpressionUUID->"ae1b06c9-5a59-439c-b9eb-8c848bbe4722"],
-Cell[816913, 21215, 239, 4, 70, "Print",ExpressionUUID->"24572c2d-76d6-4e5a-931c-cc27b3a549ff"],
-Cell[817155, 21221, 1250, 29, 70, "Print",ExpressionUUID->"a8b20eb2-2ba9-4612-9e84-51d7da10658b"],
-Cell[818408, 21252, 490, 12, 70, "Print",ExpressionUUID->"cffb5ce7-74e1-4b52-b272-512ea627fdcd"],
-Cell[818901, 21266, 2266, 56, 70, "Print",ExpressionUUID->"4e267710-bad9-49cb-8ef9-d4975cfdc56c"],
-Cell[821170, 21324, 830, 19, 70, "Print",ExpressionUUID->"3f37e200-55ae-4d4a-8446-fcc0015bf2a1"],
-Cell[822003, 21345, 239, 4, 70, "Print",ExpressionUUID->"b165c668-b52f-40e6-94e3-a11c439d35b0"],
-Cell[822245, 21351, 1248, 29, 70, "Print",ExpressionUUID->"a36b796a-e694-48a6-9b7a-9f70036835f8"],
-Cell[823496, 21382, 490, 12, 70, "Print",ExpressionUUID->"2ab3d75a-07da-4e7e-b828-b310cd949e5a"],
-Cell[823989, 21396, 2275, 56, 70, "Print",ExpressionUUID->"f3bfdd7e-5eab-41e9-bf6d-160de03d41ef"],
-Cell[826267, 21454, 811, 18, 70, "Print",ExpressionUUID->"74523f3b-28b7-4733-aae8-fdfa2dd5f1d5"],
-Cell[827081, 21474, 239, 4, 70, "Print",ExpressionUUID->"c3cd6cb2-7ed2-4d12-8887-674bb6fe4fb8"],
-Cell[827323, 21480, 1248, 29, 70, "Print",ExpressionUUID->"2383f051-23ea-49cf-a002-21515d8cf9d6"],
-Cell[828574, 21511, 492, 12, 70, "Print",ExpressionUUID->"8474c12d-9ed1-48b3-bc72-c599c66f6820"],
-Cell[829069, 21525, 2272, 56, 70, "Print",ExpressionUUID->"f161e8e5-d2bf-4d3a-b1eb-8369e12d17cd"],
-Cell[831344, 21583, 817, 18, 70, "Print",ExpressionUUID->"a47ea919-d889-4618-85d8-f187d6005351"],
-Cell[832164, 21603, 239, 4, 70, "Print",ExpressionUUID->"527159e9-61f7-4c15-bdac-4efa001628ed"],
-Cell[832406, 21609, 1248, 29, 70, "Print",ExpressionUUID->"394b5eeb-b809-4976-8a39-002c5766c2df"],
-Cell[833657, 21640, 490, 12, 70, "Print",ExpressionUUID->"06569e55-e864-4dc4-b90a-2f25aa6689c5"],
-Cell[834150, 21654, 2277, 56, 70, "Print",ExpressionUUID->"12da7882-8b52-48ec-bf3d-d5aaf2ecc7ea"],
-Cell[836430, 21712, 811, 18, 70, "Print",ExpressionUUID->"3593c211-cf6d-4875-8fbc-2a5a3c371c5c"],
-Cell[837244, 21732, 239, 4, 70, "Print",ExpressionUUID->"5650013a-3601-4a38-8d45-2988a3e180d1"],
-Cell[837486, 21738, 1251, 29, 70, "Print",ExpressionUUID->"077bed31-a8a0-4f3b-bb44-e8be3d510679"],
-Cell[838740, 21769, 490, 12, 70, "Print",ExpressionUUID->"3500e032-9a58-4f06-a85e-3daf7c94616a"],
-Cell[839233, 21783, 2269, 56, 70, "Print",ExpressionUUID->"d50baea9-a41b-4ca5-8a0e-c3ac1ab17851"],
-Cell[841505, 21841, 836, 19, 70, "Print",ExpressionUUID->"42e6619e-45ef-43c4-b814-8d38462160f4"],
-Cell[842344, 21862, 239, 4, 70, "Print",ExpressionUUID->"be1bdd03-678a-43d2-9fb1-62ac0f37565e"],
-Cell[842586, 21868, 1249, 29, 70, "Print",ExpressionUUID->"5ce16abd-58f2-402e-8f23-c13d86c45e27"],
-Cell[843838, 21899, 490, 12, 70, "Print",ExpressionUUID->"d7138dda-e4ae-4559-a356-dbcf805e1f10"],
-Cell[844331, 21913, 2275, 56, 70, "Print",ExpressionUUID->"d67664f0-13b3-4fe3-9cc0-8440ecc16b2c"],
-Cell[846609, 21971, 815, 18, 70, "Print",ExpressionUUID->"5c871143-e628-47da-8cad-e44a462fd279"],
-Cell[847427, 21991, 239, 4, 70, "Print",ExpressionUUID->"2fd7c658-a9b8-4994-bc5b-f248c59ab350"],
-Cell[847669, 21997, 1252, 29, 70, "Print",ExpressionUUID->"438fcc46-b505-4180-9b30-f072bea7e4ef"],
-Cell[848924, 22028, 490, 12, 70, "Print",ExpressionUUID->"62b72bf9-b4b6-4aaf-997b-e957f360894a"],
-Cell[849417, 22042, 2272, 56, 70, "Print",ExpressionUUID->"256a54d4-c52f-4000-bf1b-2e5adbb56dd5"],
-Cell[851692, 22100, 813, 18, 70, "Print",ExpressionUUID->"4e8c2fe3-ffba-4c62-9ca5-793e9bcc77c4"],
-Cell[852508, 22120, 241, 4, 70, "Print",ExpressionUUID->"8ad75135-f258-4794-bbd9-b9ea2e13fcb2"],
-Cell[852752, 22126, 1248, 29, 70, "Print",ExpressionUUID->"b1d42fbc-9559-4156-88f8-b077d1b60abc"],
-Cell[854003, 22157, 484, 11, 70, "Print",ExpressionUUID->"94d5408b-2cd1-4e1d-98dc-3e8410356d0a"],
-Cell[854490, 22170, 2274, 56, 70, "Print",ExpressionUUID->"2df9fca4-8775-4d0d-a139-d4d6d8e948f1"],
-Cell[856767, 22228, 815, 18, 70, "Print",ExpressionUUID->"6a538ff1-df3f-42bc-b04a-80121f884a9a"],
-Cell[857585, 22248, 239, 4, 70, "Print",ExpressionUUID->"d5b34743-0d6d-4d0d-bf8b-f05e73656b96"],
-Cell[857827, 22254, 1248, 29, 70, "Print",ExpressionUUID->"dda4d1bd-8507-4856-9a0e-329f4b1940a8"],
-Cell[859078, 22285, 490, 12, 70, "Print",ExpressionUUID->"17fd4168-9397-4c3b-a3d5-d7206fea9b4f"],
-Cell[859571, 22299, 2275, 56, 70, "Print",ExpressionUUID->"a14fea95-0308-4c38-96f6-b6ca710a4a8e"],
-Cell[861849, 22357, 815, 18, 70, "Print",ExpressionUUID->"cf220ff5-2697-46ff-9a66-717d3b5a12a9"],
-Cell[862667, 22377, 241, 4, 70, "Print",ExpressionUUID->"7a7b1637-4bd2-4d5a-9146-bf0bc26b03c8"],
-Cell[862911, 22383, 1248, 29, 70, "Print",ExpressionUUID->"c46755d2-9256-4b3b-b340-9f24951244fe"],
-Cell[864162, 22414, 492, 12, 70, "Print",ExpressionUUID->"82e83a70-b383-4fab-970b-c756be31cd77"],
-Cell[864657, 22428, 2266, 56, 70, "Print",ExpressionUUID->"5f215e0e-7407-4713-ba98-24a2b998e828"],
-Cell[866926, 22486, 834, 19, 70, "Print",ExpressionUUID->"5ab0ea8f-ed68-4f51-b81d-6416c7f6a6f3"],
-Cell[867763, 22507, 239, 4, 70, "Print",ExpressionUUID->"c8e494ef-f3d2-4453-b752-173bd41ac2e5"],
-Cell[868005, 22513, 1250, 29, 70, "Print",ExpressionUUID->"c1643572-d3f4-47a9-a9bd-1811938e55b8"],
-Cell[869258, 22544, 492, 12, 70, "Print",ExpressionUUID->"ef9231d1-6a51-4693-ab28-429b55a19f22"],
-Cell[869753, 22558, 2272, 56, 70, "Print",ExpressionUUID->"5a7545ea-a428-4e75-9324-2cae5b07124e"],
-Cell[872028, 22616, 834, 19, 70, "Print",ExpressionUUID->"d9e11f9d-64cc-49ea-9a74-548043a81b4e"],
-Cell[872865, 22637, 239, 4, 70, "Print",ExpressionUUID->"69568202-3fac-487f-b99e-46a3c72aa4b9"],
-Cell[873107, 22643, 1249, 29, 70, "Print",ExpressionUUID->"c741d9e2-5770-469d-b72f-03b13209d3c8"],
-Cell[874359, 22674, 490, 12, 70, "Print",ExpressionUUID->"3ebd8ce9-17c6-4790-934e-56a4aa248b1d"],
-Cell[874852, 22688, 2271, 56, 70, "Print",ExpressionUUID->"cb9b268a-c8ba-4bfd-bed7-cc81052d62db"],
-Cell[877126, 22746, 815, 18, 70, "Print",ExpressionUUID->"e1dfa275-461b-4c51-85c9-a87942b6232a"],
-Cell[877944, 22766, 239, 4, 70, "Print",ExpressionUUID->"7f335dde-5351-418c-8985-91986292c81e"],
-Cell[878186, 22772, 1249, 29, 70, "Print",ExpressionUUID->"0d28450b-d783-4640-8afc-8e92362cc053"],
-Cell[879438, 22803, 484, 11, 70, "Print",ExpressionUUID->"27b61f5a-ef4b-4944-b7bf-8214303eb6b4"],
-Cell[879925, 22816, 2277, 56, 70, "Print",ExpressionUUID->"1b9f2538-9721-44ef-9cf5-b94b342fea0a"],
-Cell[882205, 22874, 813, 18, 70, "Print",ExpressionUUID->"a3a20756-f90b-40bf-9a6f-a29c5dede57c"],
-Cell[883021, 22894, 239, 4, 70, "Print",ExpressionUUID->"a612c2a1-7ce0-4f21-8f83-9ade9573b8a9"],
-Cell[883263, 22900, 1251, 29, 70, "Print",ExpressionUUID->"dc5345fd-8c42-47f0-bd3f-6a4fa04118ff"],
-Cell[884517, 22931, 490, 12, 70, "Print",ExpressionUUID->"e6a86ef3-2c96-4089-92ad-ee138afec414"],
-Cell[885010, 22945, 2266, 56, 70, "Print",ExpressionUUID->"aaffec28-065f-4495-997a-dcdfb3d37b3a"],
-Cell[887279, 23003, 815, 18, 70, "Print",ExpressionUUID->"e3bdfea6-b051-4a9e-9d7a-cd052347554a"],
-Cell[888097, 23023, 239, 4, 70, "Print",ExpressionUUID->"77399f66-d8c0-4635-8d68-52dcfbf2e2fb"],
-Cell[888339, 23029, 1246, 29, 70, "Print",ExpressionUUID->"36df6363-c808-40f5-8660-650d4b0ce4a8"],
-Cell[889588, 23060, 492, 12, 70, "Print",ExpressionUUID->"66bc7336-3921-47bf-83a4-1aa7eb8b4159"],
-Cell[890083, 23074, 2275, 56, 70, "Print",ExpressionUUID->"17502234-28e5-44d7-8e44-a36fe2455a0d"],
-Cell[892361, 23132, 815, 18, 70, "Print",ExpressionUUID->"9f92d565-2e84-41f9-a00e-31d24d2e84e5"],
-Cell[893179, 23152, 241, 4, 70, "Print",ExpressionUUID->"f1683701-c140-4ac7-b873-e5596c95e186"],
-Cell[893423, 23158, 1250, 29, 70, "Print",ExpressionUUID->"76be098c-caa1-4ae0-afdc-947c476e291a"],
-Cell[894676, 23189, 490, 12, 70, "Print",ExpressionUUID->"0035d210-f612-4e86-92ce-ca3c62accf22"],
-Cell[895169, 23203, 2271, 56, 70, "Print",ExpressionUUID->"c7e1aabd-3cbc-4760-90e7-b08a5a4aeab8"],
-Cell[897443, 23261, 830, 19, 70, "Print",ExpressionUUID->"5f85dbcc-aece-48c6-a91c-671c172150d5"],
-Cell[898276, 23282, 239, 4, 70, "Print",ExpressionUUID->"5db185b4-a737-4533-9efa-89136fdaf024"],
-Cell[898518, 23288, 1249, 29, 70, "Print",ExpressionUUID->"4d1fb91d-abd3-4ad5-b0d1-20b45cea5fc5"],
-Cell[899770, 23319, 492, 12, 70, "Print",ExpressionUUID->"0f4c54dd-b23e-4b18-9faf-c0e9ac8b6227"],
-Cell[900265, 23333, 2275, 56, 70, "Print",ExpressionUUID->"b7a7f1b1-aea2-4fa7-8f22-1d26b3ab51db"],
-Cell[902543, 23391, 811, 18, 70, "Print",ExpressionUUID->"546847d3-8128-48d1-9c9d-b117cabb6adc"],
-Cell[903357, 23411, 239, 4, 70, "Print",ExpressionUUID->"647e9acd-d51b-4e09-9cff-cc4aa737a164"],
-Cell[903599, 23417, 1248, 29, 70, "Print",ExpressionUUID->"30aabbcb-d674-4975-84aa-17dcece6d54b"],
-Cell[904850, 23448, 490, 12, 70, "Print",ExpressionUUID->"d58f46a8-b7ed-463a-995d-ad286c7c990a"],
-Cell[905343, 23462, 2277, 56, 70, "Print",ExpressionUUID->"11885655-5e60-49a0-826c-c17809e604d3"],
-Cell[907623, 23520, 817, 18, 70, "Print",ExpressionUUID->"8682de5e-2172-425b-b638-4cfc42dc5880"],
-Cell[908443, 23540, 239, 4, 70, "Print",ExpressionUUID->"e1d7bb71-165c-4dad-ab54-1f980443010e"],
-Cell[908685, 23546, 1248, 29, 70, "Print",ExpressionUUID->"c0ab5618-5768-43a2-81fb-f361e533cfd6"],
-Cell[909936, 23577, 490, 12, 70, "Print",ExpressionUUID->"f13d7c90-a790-4e98-8beb-77ae41e91fc9"],
-Cell[910429, 23591, 2275, 56, 70, "Print",ExpressionUUID->"b6420b48-d636-47c6-86b3-a2bebc706bf2"],
-Cell[912707, 23649, 815, 18, 70, "Print",ExpressionUUID->"eced28e0-2ac3-45d7-96ef-49d9ced03644"],
-Cell[913525, 23669, 239, 4, 70, "Print",ExpressionUUID->"8e2073db-7561-4ec4-bb8f-df4fb5535662"],
-Cell[913767, 23675, 1250, 29, 70, "Print",ExpressionUUID->"04991ebc-9cac-4a8a-bdfd-182a21555f62"],
-Cell[915020, 23706, 490, 12, 70, "Print",ExpressionUUID->"8563d433-1218-4e92-ab82-54db089b0165"],
-Cell[915513, 23720, 2266, 56, 70, "Print",ExpressionUUID->"873391fa-7cb8-4c84-b35b-9867e810089f"],
-Cell[917782, 23778, 815, 18, 70, "Print",ExpressionUUID->"adc4c956-97c7-46a4-8616-0e3cb3701460"],
-Cell[918600, 23798, 241, 4, 70, "Print",ExpressionUUID->"52252aa1-5332-4550-a898-1d3e86352da8"],
-Cell[918844, 23804, 1250, 29, 70, "Print",ExpressionUUID->"f83ffdf5-2458-4eaf-9b12-f3cff1424ac9"],
-Cell[920097, 23835, 492, 12, 70, "Print",ExpressionUUID->"8bdc598a-20fd-4eb8-abde-4729f3f70175"],
-Cell[920592, 23849, 2275, 56, 70, "Print",ExpressionUUID->"0ad4282f-68af-4930-8e21-c6ed0955ceea"],
-Cell[922870, 23907, 813, 18, 70, "Print",ExpressionUUID->"b3583bfc-8058-41f4-a7ce-ec64e2e7bb29"],
-Cell[923686, 23927, 241, 4, 70, "Print",ExpressionUUID->"5dc8c56c-0caa-421b-b10e-5b570b844444"],
-Cell[923930, 23933, 1252, 29, 70, "Print",ExpressionUUID->"46958bac-6bf9-4d22-a62a-969d320b2d70"],
-Cell[925185, 23964, 486, 11, 70, "Print",ExpressionUUID->"7bd644c0-080a-465c-aef0-fa0f54f9a439"],
-Cell[925674, 23977, 2269, 56, 70, "Print",ExpressionUUID->"f7d8d3de-c86c-4bb0-9932-5e7e52c47009"],
-Cell[927946, 24035, 833, 19, 70, "Print",ExpressionUUID->"cfb34a16-b81e-475c-a7c5-14e875de8bd7"],
-Cell[928782, 24056, 241, 4, 70, "Print",ExpressionUUID->"8e537388-f10a-468b-acf2-618bb81166af"],
-Cell[929026, 24062, 1250, 29, 70, "Print",ExpressionUUID->"7190208d-f1cf-43c1-b41f-5894ed8f1486"],
-Cell[930279, 24093, 490, 12, 70, "Print",ExpressionUUID->"f232c1df-2aee-43d1-9a02-7003263bb1fd"],
-Cell[930772, 24107, 2277, 56, 70, "Print",ExpressionUUID->"da0a7311-24df-4658-9718-53fddc40def7"],
-Cell[933052, 24165, 813, 18, 70, "Print",ExpressionUUID->"e13b2837-056d-4ad8-b43c-e992909366da"],
-Cell[933868, 24185, 239, 4, 70, "Print",ExpressionUUID->"af372319-2bc2-4dc0-b0d0-0f8b0ae6941a"],
-Cell[934110, 24191, 1247, 29, 70, "Print",ExpressionUUID->"fe7a7799-1968-4819-95f3-94a4b7e31205"],
-Cell[935360, 24222, 486, 11, 70, "Print",ExpressionUUID->"25e2ab7e-1d61-4edf-bcc2-ef359f4462e1"],
-Cell[935849, 24235, 2275, 56, 70, "Print",ExpressionUUID->"e4cbc629-0138-4ba7-83d1-74549b13cef2"],
-Cell[938127, 24293, 815, 18, 70, "Print",ExpressionUUID->"9524a21f-2461-4e3f-8877-7f3b7a59cf76"],
-Cell[938945, 24313, 238, 4, 70, "Print",ExpressionUUID->"ac967fa4-497b-49dd-b8e6-eb2714f34652"],
-Cell[939186, 24319, 1252, 29, 70, "Print",ExpressionUUID->"35be8194-04ea-425e-ab75-ab5300e4f518"],
-Cell[940441, 24350, 490, 12, 70, "Print",ExpressionUUID->"dcd51e30-448a-4849-8e4e-28dd4ea5df82"],
-Cell[940934, 24364, 2274, 56, 70, "Print",ExpressionUUID->"599d76a4-5a60-4649-92d7-771851436bc6"],
-Cell[943211, 24422, 817, 18, 70, "Print",ExpressionUUID->"e7f3a471-92d1-4622-be50-07e4f528bac4"],
-Cell[944031, 24442, 241, 4, 70, "Print",ExpressionUUID->"fa33fa85-aad1-4e83-9e90-005ef45da8ee"],
-Cell[944275, 24448, 1250, 29, 70, "Print",ExpressionUUID->"afb9ec85-39a4-4055-a036-ed6af09813a3"],
-Cell[945528, 24479, 490, 12, 70, "Print",ExpressionUUID->"ffaffd0f-c2e4-4c02-a6f6-a2e31cd367e4"],
-Cell[946021, 24493, 2265, 56, 70, "Print",ExpressionUUID->"47a06e43-a135-48b2-8151-2c8d32c13135"],
-Cell[948289, 24551, 813, 18, 70, "Print",ExpressionUUID->"7d946498-1ce5-477d-9311-09aefaec5343"],
-Cell[949105, 24571, 238, 4, 70, "Print",ExpressionUUID->"8bab179f-cbbb-48d5-912e-71949d61b066"],
-Cell[949346, 24577, 1247, 29, 70, "Print",ExpressionUUID->"bb557c46-a780-4229-90c2-b04fa6f3c545"],
-Cell[950596, 24608, 490, 12, 70, "Print",ExpressionUUID->"522773e2-03fb-4c84-9766-17fff383e749"],
-Cell[951089, 24622, 2271, 56, 70, "Print",ExpressionUUID->"612d3051-9ca7-4b91-be43-4237bb637017"],
-Cell[953363, 24680, 811, 18, 70, "Print",ExpressionUUID->"1100485b-08b0-43d3-a792-bc277ad08d05"],
-Cell[954177, 24700, 241, 4, 70, "Print",ExpressionUUID->"350e69e3-e587-4041-bbc6-e695b4aa0d4d"],
-Cell[954421, 24706, 1246, 29, 70, "Print",ExpressionUUID->"5417508d-2c45-44c8-bab1-6ab7ee8d9ede"],
-Cell[955670, 24737, 490, 12, 70, "Print",ExpressionUUID->"23681509-062f-4bfe-8997-8a45166a3263"],
-Cell[956163, 24751, 2275, 56, 70, "Print",ExpressionUUID->"83655b12-3f35-4c7c-8e94-d5213fa297e1"],
-Cell[958441, 24809, 811, 18, 70, "Print",ExpressionUUID->"a49cd89a-8663-4dfe-926c-b45c79f54017"],
-Cell[959255, 24829, 241, 4, 70, "Print",ExpressionUUID->"28ab2da9-bb06-47c9-a9cc-a1aead2ac5fe"],
-Cell[959499, 24835, 1249, 29, 70, "Print",ExpressionUUID->"0e20ca25-6098-4214-b911-3e8b10383f3f"],
-Cell[960751, 24866, 490, 12, 70, "Print",ExpressionUUID->"e15af2bb-9ba4-46ec-9dcb-bac04ae5173d"],
-Cell[961244, 24880, 2269, 56, 70, "Print",ExpressionUUID->"17af50c1-17d5-494c-8471-4eda6e2a4fa2"],
-Cell[963516, 24938, 836, 19, 70, "Print",ExpressionUUID->"5b5b8f78-cf52-43bd-8a9a-c338a8c0748f"],
-Cell[964355, 24959, 239, 4, 70, "Print",ExpressionUUID->"ff89301c-cd6d-4672-9b49-a621543253c4"],
-Cell[964597, 24965, 1250, 29, 70, "Print",ExpressionUUID->"6aaf854e-269a-4c59-8560-c4ded7196189"],
-Cell[965850, 24996, 482, 11, 70, "Print",ExpressionUUID->"953be425-ca47-4f73-b5c8-17488c189978"],
-Cell[966335, 25009, 2275, 56, 70, "Print",ExpressionUUID->"8cb1cece-35bc-43a4-a8e4-879b366079d2"],
-Cell[968613, 25067, 815, 18, 70, "Print",ExpressionUUID->"35fd26b0-50d6-4ad2-adba-de1230fea42e"],
-Cell[969431, 25087, 241, 4, 70, "Print",ExpressionUUID->"d13cf3b4-eefc-4c54-bee7-d15af87bb603"],
-Cell[969675, 25093, 1250, 29, 70, "Print",ExpressionUUID->"c44d6498-a6ba-4f08-8022-e6560589653e"],
-Cell[970928, 25124, 490, 12, 70, "Print",ExpressionUUID->"38b6c2d1-393a-4b06-8af1-cd9899a91f04"],
-Cell[971421, 25138, 2275, 56, 70, "Print",ExpressionUUID->"9b17697b-a92b-4b4d-975a-b4c080f28722"],
-Cell[973699, 25196, 811, 18, 70, "Print",ExpressionUUID->"7dd342c5-7420-4541-9627-b35226b1017d"],
-Cell[974513, 25216, 239, 4, 70, "Print",ExpressionUUID->"ea32b32f-82a7-4194-9fd9-a7703583c0af"],
-Cell[974755, 25222, 1251, 29, 70, "Print",ExpressionUUID->"76f8b2af-d0ae-4b6d-8611-25647b1889e7"],
-Cell[976009, 25253, 490, 12, 70, "Print",ExpressionUUID->"cd9fcb7b-0db5-4401-a477-b65f9fd0fed5"],
-Cell[976502, 25267, 2277, 56, 70, "Print",ExpressionUUID->"9a279257-d169-4a92-b3db-ed8494ae2ccc"],
-Cell[978782, 25325, 817, 18, 70, "Print",ExpressionUUID->"0e28f50c-5590-495a-96b5-93f8d51f1c64"],
-Cell[979602, 25345, 238, 4, 70, "Print",ExpressionUUID->"8ae0e9d1-e9f0-4f84-a046-f650823a1485"],
-Cell[979843, 25351, 1251, 29, 70, "Print",ExpressionUUID->"8af5faf0-4a01-43f8-adf3-3dc20fa91b24"],
-Cell[981097, 25382, 490, 12, 70, "Print",ExpressionUUID->"538f3d0a-4d79-4b36-8df6-cc86f423ae81"],
-Cell[981590, 25396, 2275, 56, 70, "Print",ExpressionUUID->"3880e6d1-8f95-4828-8330-754d983ed3b9"],
-Cell[983868, 25454, 815, 18, 70, "Print",ExpressionUUID->"4a63efba-8049-4e7d-9dbb-4b591b3638da"],
-Cell[984686, 25474, 241, 4, 70, "Print",ExpressionUUID->"17f3d501-156b-4ca5-b204-eebfd0fcc70f"],
-Cell[984930, 25480, 1248, 29, 70, "Print",ExpressionUUID->"48b304c7-260e-4652-bc0b-d430978943c1"],
-Cell[986181, 25511, 490, 12, 70, "Print",ExpressionUUID->"293c9299-3ac2-4a5c-abe3-55ffcda0ecda"],
-Cell[986674, 25525, 2269, 56, 70, "Print",ExpressionUUID->"fed4c5d5-60da-484b-8978-498e1d2723d7"],
-Cell[988946, 25583, 832, 19, 70, "Print",ExpressionUUID->"ab9c9e16-62fa-4195-bda9-da643eae8600"],
-Cell[989781, 25604, 239, 4, 70, "Print",ExpressionUUID->"a6882267-ce77-4b06-abb1-47ca2ec739c6"],
-Cell[990023, 25610, 1249, 29, 70, "Print",ExpressionUUID->"674bccc8-58f9-4709-b233-272968fe3d19"],
-Cell[991275, 25641, 490, 12, 70, "Print",ExpressionUUID->"63f0ac84-1a22-464e-8b4c-d30cb51c2f47"],
-Cell[991768, 25655, 2269, 56, 70, "Print",ExpressionUUID->"de0221f3-31ed-4faf-9007-7383c44114e2"],
-Cell[994040, 25713, 815, 18, 70, "Print",ExpressionUUID->"228c49af-c420-4b59-8f0b-18c00bf608f4"],
-Cell[994858, 25733, 239, 4, 70, "Print",ExpressionUUID->"de8cebed-53ee-4293-b15b-158a9df7ef5c"],
-Cell[995100, 25739, 1249, 29, 70, "Print",ExpressionUUID->"0ffbdc01-b26a-4b5a-959f-71c8ddbd6db1"],
-Cell[996352, 25770, 490, 12, 70, "Print",ExpressionUUID->"71ae2e7f-d599-4328-933e-ea4d44da58d8"],
-Cell[996845, 25784, 2268, 56, 70, "Print",ExpressionUUID->"87ce12a3-ccc1-4a84-abd9-2f26dab30e6e"],
-Cell[999116, 25842, 830, 19, 70, "Print",ExpressionUUID->"17db951b-e058-4b9e-84b9-20927aaa1211"],
-Cell[999949, 25863, 241, 4, 70, "Print",ExpressionUUID->"6ccabce8-fa6a-42c4-abc5-c7cb3753554a"],
-Cell[1000193, 25869, 1249, 29, 70, "Print",ExpressionUUID->"d7a59a8a-e37b-45b1-a650-ae5e6644c393"],
-Cell[1001445, 25900, 489, 12, 70, "Print",ExpressionUUID->"4313b999-7ba8-4be2-9735-9045b6bc1640"],
-Cell[1001937, 25914, 2275, 56, 70, "Print",ExpressionUUID->"9602251f-653f-443f-ae06-18c68033db08"],
-Cell[1004215, 25972, 840, 19, 70, "Print",ExpressionUUID->"8d88bcb4-b168-4663-bb28-7269da75eb55"],
-Cell[1005058, 25993, 238, 4, 70, "Print",ExpressionUUID->"70de6c9e-5092-444b-bd46-0bc1b18fe2d0"],
-Cell[1005299, 25999, 1250, 29, 70, "Print",ExpressionUUID->"294567f1-9f54-45b7-8c0a-c67762850cb5"],
-Cell[1006552, 26030, 484, 11, 70, "Print",ExpressionUUID->"e5041cf5-736e-4c52-98ee-41c4f5b3b6fd"],
-Cell[1007039, 26043, 2271, 56, 70, "Print",ExpressionUUID->"adb9ac38-cbee-448d-8dc0-d9fd876e87d4"],
-Cell[1009313, 26101, 815, 18, 70, "Print",ExpressionUUID->"744a5713-aa54-491b-b33c-7947ea589bec"],
-Cell[1010131, 26121, 239, 4, 70, "Print",ExpressionUUID->"ea5ec983-02a0-48bf-b936-e5c8930c483d"],
-Cell[1010373, 26127, 1249, 29, 70, "Print",ExpressionUUID->"6b4cf7e7-0631-48cf-9bdb-779cdb6201c2"],
-Cell[1011625, 26158, 484, 11, 70, "Print",ExpressionUUID->"1d0589b7-0ab1-449b-a320-cf4b6aa619c0"],
-Cell[1012112, 26171, 2267, 56, 70, "Print",ExpressionUUID->"50f94cef-7afc-460a-9781-62cbaa5fe834"],
-Cell[1014382, 26229, 838, 19, 70, "Print",ExpressionUUID->"63a3db84-1615-40af-abd1-bb772f6b345b"],
-Cell[1015223, 26250, 239, 4, 70, "Print",ExpressionUUID->"099ff8e9-04d6-4c84-94a0-04403593191c"],
-Cell[1015465, 26256, 1248, 29, 70, "Print",ExpressionUUID->"0b45590d-2c63-42f3-b460-f108c528da86"],
-Cell[1016716, 26287, 490, 12, 70, "Print",ExpressionUUID->"c666ae4f-cc96-4343-a40a-d66e4b639083"],
-Cell[1017209, 26301, 2277, 56, 70, "Print",ExpressionUUID->"984a1c85-3c1b-45f4-bed5-96dd12c32233"],
-Cell[1019489, 26359, 838, 19, 70, "Print",ExpressionUUID->"dc3fc037-8235-4306-a1a7-f577581dd343"],
-Cell[1020330, 26380, 239, 4, 70, "Print",ExpressionUUID->"f49ccd42-bfea-4b4c-935f-7b07847ecaf1"],
-Cell[1020572, 26386, 1248, 29, 70, "Print",ExpressionUUID->"e9e00c63-d97b-4bbf-b041-4753ff80513a"],
-Cell[1021823, 26417, 488, 12, 70, "Print",ExpressionUUID->"dcd6fea4-16fa-4529-8ac6-373e34d368fb"],
-Cell[1022314, 26431, 2274, 56, 70, "Print",ExpressionUUID->"f5287332-66a6-47da-a741-96094c44cd96"],
-Cell[1024591, 26489, 813, 18, 70, "Print",ExpressionUUID->"f86c28f8-ccd1-400a-977a-01b54e4551e1"],
-Cell[1025407, 26509, 239, 4, 70, "Print",ExpressionUUID->"895d898e-e106-488e-8548-d42937b80997"],
-Cell[1025649, 26515, 1250, 29, 70, "Print",ExpressionUUID->"a1904af8-88ba-4be2-9eb8-d8541b866b50"],
-Cell[1026902, 26546, 490, 12, 70, "Print",ExpressionUUID->"4c6d6d3a-b5dd-4b2e-875f-dafd3bf1c6cf"],
-Cell[1027395, 26560, 2266, 56, 70, "Print",ExpressionUUID->"512b03d8-fcaf-442e-aa42-f5affeee8944"],
-Cell[1029664, 26618, 819, 18, 70, "Print",ExpressionUUID->"05fa7d17-b303-4a79-a30d-122533b04f23"],
-Cell[1030486, 26638, 239, 4, 70, "Print",ExpressionUUID->"074fc820-2fcd-4702-82f5-cc4debb9cfd6"],
-Cell[1030728, 26644, 1250, 29, 70, "Print",ExpressionUUID->"2bedf229-f626-4746-bb03-aaf8c49dc760"],
-Cell[1031981, 26675, 484, 11, 70, "Print",ExpressionUUID->"a26cf25b-5392-45b1-bd3d-c0c464f72908"],
-Cell[1032468, 26688, 2270, 56, 70, "Print",ExpressionUUID->"fc24e05b-0852-490c-978e-63c6aa21ec9d"],
-Cell[1034741, 26746, 815, 18, 70, "Print",ExpressionUUID->"42cfc865-d45e-419a-9933-f6452ae7184c"],
-Cell[1035559, 26766, 241, 4, 70, "Print",ExpressionUUID->"60882851-f290-447e-b978-f05c4a05eee8"],
-Cell[1035803, 26772, 1250, 29, 70, "Print",ExpressionUUID->"1651f5a5-fe59-4369-9df9-ff8ab032aab7"],
-Cell[1037056, 26803, 464, 11, 70, "Print",ExpressionUUID->"9a8c63dd-b39a-4ebf-ab19-19aa7368d8a7"],
-Cell[1037523, 26816, 2269, 56, 70, "Print",ExpressionUUID->"5c4a6013-0338-412a-820a-269a60f2a4d4"],
-Cell[1039795, 26874, 838, 19, 70, "Print",ExpressionUUID->"10ed75b4-8b5a-43e0-856e-62bbce457278"],
-Cell[1040636, 26895, 241, 4, 70, "Print",ExpressionUUID->"6d94bf17-0a53-4852-a0b7-89b0c75ebb71"],
-Cell[1040880, 26901, 1252, 29, 70, "Print",ExpressionUUID->"6e169ea6-5724-4b8e-bb39-80a688c7300c"],
-Cell[1042135, 26932, 492, 12, 70, "Print",ExpressionUUID->"14cc0e2c-bb36-45bd-81f5-f1f5d90f0334"],
-Cell[1042630, 26946, 2272, 56, 70, "Print",ExpressionUUID->"8c11cba9-7c11-4db1-9406-8616d211a42a"],
-Cell[1044905, 27004, 812, 18, 70, "Print",ExpressionUUID->"e3a9b541-3d17-4f84-81af-7517d68d245e"],
-Cell[1045720, 27024, 239, 4, 70, "Print",ExpressionUUID->"4e340a06-f29f-4e5b-bf2e-ebd37027a189"],
-Cell[1045962, 27030, 1248, 29, 70, "Print",ExpressionUUID->"bbfc0772-212b-4f8b-a8f9-9f7d9135b1f4"],
-Cell[1047213, 27061, 490, 12, 70, "Print",ExpressionUUID->"14bd8b5d-cc69-425a-bf84-43793f9b452d"],
-Cell[1047706, 27075, 2275, 56, 70, "Print",ExpressionUUID->"145deafe-86b7-4095-9c4a-9fe664c231cc"],
-Cell[1049984, 27133, 836, 19, 70, "Print",ExpressionUUID->"e7930df0-50d3-4c37-9fcb-388956be3c58"],
-Cell[1050823, 27154, 239, 4, 70, "Print",ExpressionUUID->"bb511371-6aea-47b0-bdc5-7a4734c9600e"],
-Cell[1051065, 27160, 1248, 29, 70, "Print",ExpressionUUID->"d2295971-afef-4bf4-98ed-ed9bcaec0425"],
-Cell[1052316, 27191, 492, 12, 70, "Print",ExpressionUUID->"01e1f038-5499-4034-9d9e-0cf6f867ce3d"],
-Cell[1052811, 27205, 2265, 56, 70, "Print",ExpressionUUID->"05cdd8b4-a799-4470-ae6d-368a97c49248"],
-Cell[1055079, 27263, 813, 18, 70, "Print",ExpressionUUID->"c176b5a6-0010-43c6-8ab3-5946b4b27a0e"],
-Cell[1055895, 27283, 239, 4, 70, "Print",ExpressionUUID->"9c675c80-d4fe-4039-84ad-6cf424df5c31"],
-Cell[1056137, 27289, 1252, 29, 70, "Print",ExpressionUUID->"796c2442-31a5-418b-824a-2ba5b593daf6"],
-Cell[1057392, 27320, 490, 12, 70, "Print",ExpressionUUID->"15710fec-7ebd-451b-ae77-35b561df9b32"],
-Cell[1057885, 27334, 2269, 56, 70, "Print",ExpressionUUID->"440ac9df-6eda-4880-9624-62034d378cad"],
-Cell[1060157, 27392, 819, 18, 70, "Print",ExpressionUUID->"f5b63227-647c-4bef-ba6c-1381132a8434"],
-Cell[1060979, 27412, 239, 4, 70, "Print",ExpressionUUID->"c3756552-9d11-4072-b2de-3754ec136fb3"],
-Cell[1061221, 27418, 1251, 29, 70, "Print",ExpressionUUID->"c4acf745-a5aa-4dba-9538-ba5089eab16d"],
-Cell[1062475, 27449, 484, 11, 70, "Print",ExpressionUUID->"60c27dc7-bee7-451d-b3ae-93edfd3ea7ec"],
-Cell[1062962, 27462, 2266, 56, 70, "Print",ExpressionUUID->"53ecad83-d705-4e45-8dc4-5c94090abb81"],
-Cell[1065231, 27520, 811, 18, 70, "Print",ExpressionUUID->"20a6dbf1-f4f2-405e-8f53-d7dcb6b14f1d"],
-Cell[1066045, 27540, 239, 4, 70, "Print",ExpressionUUID->"653edb9b-677f-4823-bdf5-b88f911180fc"],
-Cell[1066287, 27546, 1251, 29, 70, "Print",ExpressionUUID->"e88610a5-7b2b-499d-b325-738fea1e3954"],
-Cell[1067541, 27577, 478, 11, 70, "Print",ExpressionUUID->"af98e0e4-6695-46d7-b4db-b00f7afe94b1"],
-Cell[1068022, 27590, 2272, 56, 70, "Print",ExpressionUUID->"fe8a7e78-dde8-405c-b5f1-e2c0b955c3f1"],
-Cell[1070297, 27648, 836, 19, 70, "Print",ExpressionUUID->"249c161d-f218-47f7-aee8-fe8d682e73cc"],
-Cell[1071136, 27669, 239, 4, 70, "Print",ExpressionUUID->"1a8c3c2c-9e15-4144-9d82-a482576f9b73"],
-Cell[1071378, 27675, 1254, 29, 70, "Print",ExpressionUUID->"f51ddc27-ab6b-44a0-a88f-15f42a1f99f8"],
-Cell[1072635, 27706, 490, 12, 70, "Print",ExpressionUUID->"82a0950d-1272-4170-aef9-c002b918c9a4"],
-Cell[1073128, 27720, 2269, 56, 70, "Print",ExpressionUUID->"fbd1d117-575e-4d49-ac4d-d7043a5a8763"],
-Cell[1075400, 27778, 838, 19, 70, "Print",ExpressionUUID->"b09a72c1-ced8-4312-89f6-fb7c78fe37f2"],
-Cell[1076241, 27799, 241, 4, 70, "Print",ExpressionUUID->"86d86bd1-3581-4431-98fc-6cd6eae673bd"],
-Cell[1076485, 27805, 1253, 29, 70, "Print",ExpressionUUID->"d5b2f4c3-ae61-42b1-a376-2a425174d705"],
-Cell[1077741, 27836, 482, 11, 70, "Print",ExpressionUUID->"c93a8f9a-1759-422a-b7b9-b340278cf6bc"],
-Cell[1078226, 27849, 2272, 56, 70, "Print",ExpressionUUID->"cd670e08-dc00-49d7-9565-1786a12a4f84"],
-Cell[1080501, 27907, 814, 18, 70, "Print",ExpressionUUID->"054cd626-ae92-42d9-8042-4c6554225d37"],
-Cell[1081318, 27927, 239, 4, 70, "Print",ExpressionUUID->"e98b64fd-d743-4112-9482-1db6ce256561"],
-Cell[1081560, 27933, 1251, 29, 70, "Print",ExpressionUUID->"ff196bb4-de55-456f-8b6f-edb5a9453fef"],
-Cell[1082814, 27964, 492, 12, 70, "Print",ExpressionUUID->"7a82b92e-1c47-4809-a0dd-b7a6563cbea5"],
-Cell[1083309, 27978, 2275, 56, 70, "Print",ExpressionUUID->"ec0d7e26-4eff-4a3e-9d03-f016df1ea016"],
-Cell[1085587, 28036, 815, 18, 70, "Print",ExpressionUUID->"a046af61-a864-4999-9f93-40ec8da1541c"],
-Cell[1086405, 28056, 239, 4, 70, "Print",ExpressionUUID->"f6c310f6-418c-490f-b65c-e92303cba8d7"],
-Cell[1086647, 28062, 1254, 29, 70, "Print",ExpressionUUID->"c219e82d-43a0-4388-aa55-551a5b54ac00"],
-Cell[1087904, 28093, 492, 12, 70, "Print",ExpressionUUID->"2187d312-8005-456a-a37c-a9ec6dcc1fbe"],
-Cell[1088399, 28107, 2271, 56, 70, "Print",ExpressionUUID->"16656446-70e8-430f-93a8-6f82db38a5e6"],
-Cell[1090673, 28165, 838, 19, 70, "Print",ExpressionUUID->"b5914c15-c8de-4939-9d84-3e444dedd9cb"],
-Cell[1091514, 28186, 241, 4, 70, "Print",ExpressionUUID->"875a0215-8256-4896-96b4-a55090f50933"],
-Cell[1091758, 28192, 1250, 29, 70, "Print",ExpressionUUID->"ca3bf8bc-ced1-43bd-baf6-b0481bd7ad72"],
-Cell[1093011, 28223, 489, 12, 70, "Print",ExpressionUUID->"1d1b9293-961e-4095-bd76-3553a3738cf8"],
-Cell[1093503, 28237, 2272, 56, 70, "Print",ExpressionUUID->"7c3a4593-62b6-43bf-b873-8c0b756bebc4"],
-Cell[1095778, 28295, 836, 19, 70, "Print",ExpressionUUID->"3cdfa9f7-98cc-480e-8279-7db61972439b"],
-Cell[1096617, 28316, 239, 4, 70, "Print",ExpressionUUID->"72d56d6f-dc15-4453-97f1-26a01599bf73"],
-Cell[1096859, 28322, 1250, 29, 70, "Print",ExpressionUUID->"55ac5783-aa52-4f3d-b7e5-d9dcb35f2744"],
-Cell[1098112, 28353, 486, 11, 70, "Print",ExpressionUUID->"84a01057-5e01-4e2d-b410-c8080ca342b0"],
-Cell[1098601, 28366, 2271, 56, 70, "Print",ExpressionUUID->"b9b2b1dc-e5b6-454f-b10e-093536432290"],
-Cell[1100875, 28424, 836, 19, 70, "Print",ExpressionUUID->"c75ec2f3-465f-4d61-9ce7-c26a85f273dd"],
-Cell[1101714, 28445, 239, 4, 70, "Print",ExpressionUUID->"f92fb48c-13bf-4160-8027-4af9991dde19"],
-Cell[1101956, 28451, 1253, 29, 70, "Print",ExpressionUUID->"8c666713-60f8-4aaa-9ded-972ebdada4a1"],
-Cell[1103212, 28482, 489, 12, 70, "Print",ExpressionUUID->"d94c507e-2828-4d85-8003-9dac7b14fd87"],
-Cell[1103704, 28496, 2269, 56, 70, "Print",ExpressionUUID->"28edfe48-9084-45cc-ba4d-00af5d820589"],
-Cell[1105976, 28554, 838, 19, 70, "Print",ExpressionUUID->"a36d058a-cfb0-4915-8bef-0a1a79339c68"],
-Cell[1106817, 28575, 239, 4, 70, "Print",ExpressionUUID->"77182456-8503-4b24-8064-1dae266ab3d6"],
-Cell[1107059, 28581, 1249, 29, 70, "Print",ExpressionUUID->"22cbda3d-fa05-4a3c-8787-f3732a049a75"],
-Cell[1108311, 28612, 484, 11, 70, "Print",ExpressionUUID->"e360320d-9537-45bf-b258-5e91aeb8c573"],
-Cell[1108798, 28625, 2269, 56, 70, "Print",ExpressionUUID->"4034c300-860b-42bc-b00e-36adbf821839"],
-Cell[1111070, 28683, 813, 18, 70, "Print",ExpressionUUID->"3abc83fc-85b8-45dd-bc12-b4003a6ae241"],
-Cell[1111886, 28703, 239, 4, 70, "Print",ExpressionUUID->"a56282e9-e9d0-4928-b6e3-8828e3ef823d"],
-Cell[1112128, 28709, 1252, 29, 70, "Print",ExpressionUUID->"99b6fa90-c5c6-4996-a555-06f4b5aa5741"],
-Cell[1113383, 28740, 492, 12, 70, "Print",ExpressionUUID->"20a15a9f-2192-40d2-bc64-86f615b5b758"],
-Cell[1113878, 28754, 2274, 56, 70, "Print",ExpressionUUID->"9ab312cc-8406-4b17-b466-61a57a6a45db"],
-Cell[1116155, 28812, 813, 18, 70, "Print",ExpressionUUID->"1ceb9f63-a822-4a54-8c90-05ca363352f1"],
-Cell[1116971, 28832, 239, 4, 70, "Print",ExpressionUUID->"e197a5dc-0f4e-49e0-ac81-2a49aa0a5bdc"],
-Cell[1117213, 28838, 1251, 29, 70, "Print",ExpressionUUID->"455e54c1-9080-4d1c-9adc-c3c10857f200"],
-Cell[1118467, 28869, 489, 12, 70, "Print",ExpressionUUID->"d464b479-ff3f-44f4-b449-884250179ab6"],
-Cell[1118959, 28883, 2266, 56, 70, "Print",ExpressionUUID->"07ef1b60-306a-4253-bbc2-689346a2f278"],
-Cell[1121228, 28941, 836, 19, 70, "Print",ExpressionUUID->"b091bc0a-9a43-46cf-970e-de09082f7c87"],
-Cell[1122067, 28962, 241, 4, 70, "Print",ExpressionUUID->"9c88dd99-08fc-4e7a-9696-95be8a746ec0"],
-Cell[1122311, 28968, 1254, 29, 70, "Print",ExpressionUUID->"c9088f23-12ff-4f29-9e19-3b29d0307550"],
-Cell[1123568, 28999, 484, 11, 70, "Print",ExpressionUUID->"f7a0ee9c-54ea-44cc-9347-c68a2aa77c99"],
-Cell[1124055, 29012, 2270, 56, 70, "Print",ExpressionUUID->"86326734-9ed5-4ea6-989d-a90f080a2217"],
-Cell[1126328, 29070, 809, 18, 70, "Print",ExpressionUUID->"f7dcb9ad-130e-4e22-86e4-54aa64b2967d"],
-Cell[1127140, 29090, 239, 4, 70, "Print",ExpressionUUID->"aa9235b4-478d-4ed8-93f2-e26fb3a1a135"],
-Cell[1127382, 29096, 1251, 29, 70, "Print",ExpressionUUID->"f80a4116-ca2e-4575-956f-91e6218b1aef"],
-Cell[1128636, 29127, 490, 12, 70, "Print",ExpressionUUID->"7a4682eb-8c6e-41fc-9829-97c143de7e41"],
-Cell[1129129, 29141, 2269, 56, 70, "Print",ExpressionUUID->"0f41da14-c4fa-4ef1-9c04-352d79b3af6f"],
-Cell[1131401, 29199, 836, 19, 70, "Print",ExpressionUUID->"484b31b9-106d-49b0-97f4-46641cd36f45"],
-Cell[1132240, 29220, 239, 4, 70, "Print",ExpressionUUID->"5e73ba3e-52af-4d75-9ec9-772c24410879"],
-Cell[1132482, 29226, 1252, 29, 70, "Print",ExpressionUUID->"0cf9f705-311b-4721-976c-e05620060f6c"],
-Cell[1133737, 29257, 482, 11, 70, "Print",ExpressionUUID->"8154b4ef-9708-4ca1-9caa-b1050afd3e51"],
-Cell[1134222, 29270, 2272, 56, 70, "Print",ExpressionUUID->"b4d47704-e4f5-426e-9b1b-daa6608d6f9f"],
-Cell[1136497, 29328, 836, 19, 70, "Print",ExpressionUUID->"a2b0a66c-37e1-4db1-9fa2-16752e8efef5"],
-Cell[1137336, 29349, 239, 4, 70, "Print",ExpressionUUID->"2afaded4-4d50-4b92-9b4e-88dae09ef26e"],
-Cell[1137578, 29355, 1251, 29, 70, "Print",ExpressionUUID->"aa6010da-6b54-498f-b6ef-f0cc113469de"],
-Cell[1138832, 29386, 490, 12, 70, "Print",ExpressionUUID->"c7ab4607-6cc5-485b-b313-8a63a06074b5"],
-Cell[1139325, 29400, 2272, 56, 70, "Print",ExpressionUUID->"7628a22d-3048-476b-b4eb-de3416dd8a03"],
-Cell[1141600, 29458, 834, 19, 70, "Print",ExpressionUUID->"2ff7f0ba-604e-4cde-b6cc-e9a7520b6f59"],
-Cell[1142437, 29479, 239, 4, 70, "Print",ExpressionUUID->"e402e31e-5105-4a89-8079-2f9079058433"],
-Cell[1142679, 29485, 1252, 29, 70, "Print",ExpressionUUID->"505d3a38-9fdd-4d26-b669-e49d3b267754"],
-Cell[1143934, 29516, 486, 11, 70, "Print",ExpressionUUID->"385f0f14-3cf7-40e2-a9b4-e0a6238a2b55"],
-Cell[1144423, 29529, 2269, 56, 70, "Print",ExpressionUUID->"55cef685-c83b-4b5c-bafc-4f04c88a17ab"],
-Cell[1146695, 29587, 815, 18, 70, "Print",ExpressionUUID->"51bf478a-6954-4055-9961-b34ef412d4e6"],
-Cell[1147513, 29607, 239, 4, 70, "Print",ExpressionUUID->"6302778f-a4bc-4898-adad-2bc9809825a7"],
-Cell[1147755, 29613, 1249, 29, 70, "Print",ExpressionUUID->"be9d9b98-ab8d-4734-8f46-d879d3148e53"],
-Cell[1149007, 29644, 490, 12, 70, "Print",ExpressionUUID->"7398d7bc-a8e7-40df-addc-01837f5e7024"],
-Cell[1149500, 29658, 2274, 56, 70, "Print",ExpressionUUID->"475872c6-a6f5-4046-a24b-9d69acd1d10e"],
-Cell[1151777, 29716, 838, 19, 70, "Print",ExpressionUUID->"1f63ecf0-3515-4c70-9899-bc9f5a34eac7"],
-Cell[1152618, 29737, 241, 4, 70, "Print",ExpressionUUID->"59ae776a-bc41-4ac1-a769-cce37dc5780a"],
-Cell[1152862, 29743, 1252, 29, 70, "Print",ExpressionUUID->"f43df338-3820-41f4-8f70-24329e1cb865"],
-Cell[1154117, 29774, 490, 12, 70, "Print",ExpressionUUID->"90456c8d-3631-4f01-9310-4404a71893c7"],
-Cell[1154610, 29788, 2271, 56, 70, "Print",ExpressionUUID->"68dab623-686d-496e-9ffd-7e13ba9af720"],
-Cell[1156884, 29846, 834, 19, 70, "Print",ExpressionUUID->"c6aa42b1-dbfe-4278-8edc-0648a626f916"],
-Cell[1157721, 29867, 239, 4, 70, "Print",ExpressionUUID->"25f968d4-d861-4797-b684-27364d428b16"],
-Cell[1157963, 29873, 1248, 29, 70, "Print",ExpressionUUID->"fe5c3e44-0280-47a8-a9a2-923749ebb66c"],
-Cell[1159214, 29904, 484, 11, 70, "Print",ExpressionUUID->"44d2a36e-419a-4532-a04e-793103f62154"],
-Cell[1159701, 29917, 2272, 56, 70, "Print",ExpressionUUID->"255e0003-0b5a-4a28-9614-7d7b1e42be2e"],
-Cell[1161976, 29975, 834, 19, 70, "Print",ExpressionUUID->"a2d9a4ca-c74a-4bda-8781-4329cf294499"],
-Cell[1162813, 29996, 241, 4, 70, "Print",ExpressionUUID->"160abf41-e2e4-4558-974c-d59861886da3"],
-Cell[1163057, 30002, 1251, 29, 70, "Print",ExpressionUUID->"37a0a9fb-cae8-4ee2-9c74-ab5e4f6c925e"],
-Cell[1164311, 30033, 490, 12, 70, "Print",ExpressionUUID->"17cace8e-8c82-4c09-8bf1-4b84400c3ca2"],
-Cell[1164804, 30047, 2275, 56, 70, "Print",ExpressionUUID->"47ee1581-7a8c-4689-a4bf-f406dbf48da0"],
-Cell[1167082, 30105, 811, 18, 70, "Print",ExpressionUUID->"3de3c0c3-e947-4440-89b1-84f31edef4a0"],
-Cell[1167896, 30125, 239, 4, 70, "Print",ExpressionUUID->"db152814-5028-4ff6-b282-26580073c31b"],
-Cell[1168138, 30131, 1254, 29, 70, "Print",ExpressionUUID->"58073454-cbdf-447f-aa8b-935c0495255b"],
-Cell[1169395, 30162, 490, 12, 70, "Print",ExpressionUUID->"3e319f16-3608-498f-8252-94c038e61bdb"],
-Cell[1169888, 30176, 2269, 56, 70, "Print",ExpressionUUID->"3316334d-2567-477e-89fe-6ac45a1326da"],
-Cell[1172160, 30234, 830, 19, 70, "Print",ExpressionUUID->"b1979334-517e-40ef-bbf3-3e1573a3da69"],
-Cell[1172993, 30255, 239, 4, 70, "Print",ExpressionUUID->"7f806123-2ad9-4ab7-8338-4ddc39539c2d"],
-Cell[1173235, 30261, 1251, 29, 70, "Print",ExpressionUUID->"669229e3-e5e7-4f17-b22a-aa41cec4e208"],
-Cell[1174489, 30292, 484, 11, 70, "Print",ExpressionUUID->"66abd4e0-34df-4c0b-a686-957b8b0fc843"],
-Cell[1174976, 30305, 2269, 56, 70, "Print",ExpressionUUID->"a60a8481-ca63-4eeb-baed-a39d4bce07f6"],
-Cell[1177248, 30363, 834, 19, 70, "Print",ExpressionUUID->"dea00dd9-da9e-4b38-a7f1-bcdaccfab787"],
-Cell[1178085, 30384, 241, 4, 70, "Print",ExpressionUUID->"0aed1533-5d13-43db-aa60-ef187a32d614"],
-Cell[1178329, 30390, 1250, 29, 70, "Print",ExpressionUUID->"dbcea1ff-5259-49ee-bc50-1b8426697c0f"],
-Cell[1179582, 30421, 490, 12, 70, "Print",ExpressionUUID->"9d36f73b-df44-4746-86e0-76f012af0a2b"],
-Cell[1180075, 30435, 2272, 56, 70, "Print",ExpressionUUID->"21e8788d-95d2-4d07-a728-e018c94e3d40"],
-Cell[1182350, 30493, 813, 18, 70, "Print",ExpressionUUID->"d379f697-cde4-4a9c-b2c9-67ad5259675f"],
-Cell[1183166, 30513, 238, 4, 70, "Print",ExpressionUUID->"2b58eb61-9322-4a30-ac4e-ddd71ebe6dbe"],
-Cell[1183407, 30519, 1253, 29, 70, "Print",ExpressionUUID->"d63537bb-7602-472d-b762-ad300b53ff46"],
-Cell[1184663, 30550, 483, 11, 70, "Print",ExpressionUUID->"9e379964-bb83-4c06-9951-fd6145d8e037"],
-Cell[1185149, 30563, 2269, 56, 70, "Print",ExpressionUUID->"b5faa05d-b64f-433c-9635-e25f3a7e789f"],
-Cell[1187421, 30621, 836, 19, 70, "Print",ExpressionUUID->"81e1255d-239b-47c1-8511-1a298dc10966"],
-Cell[1188260, 30642, 239, 4, 70, "Print",ExpressionUUID->"973d3fd9-1b85-4fd7-a49f-d2cacdbe618c"],
-Cell[1188502, 30648, 1251, 29, 70, "Print",ExpressionUUID->"8dd91ab7-30cc-47c7-8b74-87cebb5d2be4"],
-Cell[1189756, 30679, 484, 11, 70, "Print",ExpressionUUID->"90545944-6dc3-43d2-a686-ef11def5233f"],
-Cell[1190243, 30692, 2275, 56, 70, "Print",ExpressionUUID->"96486074-2118-4652-a731-fb4fc2bd93ed"],
-Cell[1192521, 30750, 838, 19, 70, "Print",ExpressionUUID->"7ead141e-5afd-4d2c-841a-d16e2018dbd0"],
-Cell[1193362, 30771, 239, 4, 70, "Print",ExpressionUUID->"8b44b5c1-6105-430c-b9c8-e9e7d3b61d98"],
-Cell[1193604, 30777, 1252, 29, 70, "Print",ExpressionUUID->"a27b4424-9bc6-4460-bc26-6307679633d6"],
-Cell[1194859, 30808, 490, 12, 70, "Print",ExpressionUUID->"c7d7b613-c332-4e25-b889-f78187fa55c7"],
-Cell[1195352, 30822, 2260, 56, 70, "Print",ExpressionUUID->"4576947b-41ca-4599-852e-a4b60b570a99"],
-Cell[1197615, 30880, 835, 19, 70, "Print",ExpressionUUID->"e774bb9e-8a7b-4e7b-be0e-e9ba1ac5923f"],
-Cell[1198453, 30901, 239, 4, 70, "Print",ExpressionUUID->"604715f7-6846-4e4f-a71e-02d2458a5609"],
-Cell[1198695, 30907, 1250, 29, 70, "Print",ExpressionUUID->"2f9e8a2b-669a-480b-83f9-6edc23effea5"],
-Cell[1199948, 30938, 484, 11, 70, "Print",ExpressionUUID->"8d87d43e-3533-4db1-b29c-30c6d8e1304c"],
-Cell[1200435, 30951, 2275, 56, 70, "Print",ExpressionUUID->"655b555c-248a-4246-a3c7-1fb1582db9d1"],
-Cell[1202713, 31009, 814, 18, 70, "Print",ExpressionUUID->"1c63b16d-6867-45dd-ad5f-82499c80b138"],
-Cell[1203530, 31029, 241, 4, 70, "Print",ExpressionUUID->"3a6b5923-1627-408b-b655-daf2780f736c"],
-Cell[1203774, 31035, 1250, 29, 70, "Print",ExpressionUUID->"ff053286-2d3d-4232-8a01-959793911f5b"],
-Cell[1205027, 31066, 486, 11, 70, "Print",ExpressionUUID->"1f514df0-1053-4454-a0ee-b4de091a9a3e"],
-Cell[1205516, 31079, 2269, 56, 70, "Print",ExpressionUUID->"6af6a127-70cc-45d0-9c62-728632e957db"],
-Cell[1207788, 31137, 836, 19, 70, "Print",ExpressionUUID->"178222e1-29b0-4633-8c9a-d90ac6473551"],
-Cell[1208627, 31158, 239, 4, 70, "Print",ExpressionUUID->"9cd5265e-15c1-4ea5-b6f8-8bf085a77227"],
-Cell[1208869, 31164, 1252, 29, 70, "Print",ExpressionUUID->"21094872-95e3-46e8-b00b-ccb3593f9004"],
-Cell[1210124, 31195, 484, 11, 70, "Print",ExpressionUUID->"57944f53-5899-445d-877b-4f563eb8c802"],
-Cell[1210611, 31208, 2272, 56, 70, "Print",ExpressionUUID->"68060c10-432f-4d59-96b6-20ba51bc4df7"],
-Cell[1212886, 31266, 834, 19, 70, "Print",ExpressionUUID->"7bd8c471-3161-4288-af26-5c59aae178b8"],
-Cell[1213723, 31287, 238, 4, 70, "Print",ExpressionUUID->"2ad4dc03-cfdb-416f-a0ff-0c5558f3fe8a"],
-Cell[1213964, 31293, 1252, 29, 70, "Print",ExpressionUUID->"04d7a411-1413-4420-9bda-9b19e9f54535"],
-Cell[1215219, 31324, 484, 11, 70, "Print",ExpressionUUID->"ed0f06a7-8eae-44cc-9ff1-ff4f1468136c"],
-Cell[1215706, 31337, 2269, 56, 70, "Print",ExpressionUUID->"cb511f6b-9693-4a28-9a63-d5d0c49327d6"],
-Cell[1217978, 31395, 815, 18, 70, "Print",ExpressionUUID->"bc04b2be-09c9-41c0-894c-ed85b31255a9"],
-Cell[1218796, 31415, 239, 4, 70, "Print",ExpressionUUID->"863beb88-e3b6-44ff-be18-31ee8cbb52c7"],
-Cell[1219038, 31421, 1252, 29, 70, "Print",ExpressionUUID->"ef0c5fca-1b8e-419a-b41c-162b46c3f728"],
-Cell[1220293, 31452, 483, 11, 70, "Print",ExpressionUUID->"6b28b967-f853-4605-a353-4d28462e27b4"],
-Cell[1220779, 31465, 2266, 56, 70, "Print",ExpressionUUID->"1faa1b42-f362-4d90-a956-9b55812e93ad"],
-Cell[1223048, 31523, 834, 19, 70, "Print",ExpressionUUID->"97a12f4c-5bac-48c3-b2ed-7b5dad8da8f3"],
-Cell[1223885, 31544, 239, 4, 70, "Print",ExpressionUUID->"23e28c09-0bee-4076-b77f-ada2c061b92d"],
-Cell[1224127, 31550, 1252, 29, 70, "Print",ExpressionUUID->"d4ee61d3-5ad0-42a6-9c47-270d2f8765ef"],
-Cell[1225382, 31581, 490, 12, 70, "Print",ExpressionUUID->"83515d63-2791-48d6-8ebb-3212213f1700"],
-Cell[1225875, 31595, 2268, 56, 70, "Print",ExpressionUUID->"8df3ae74-355d-43bf-854d-89f7f74ead6f"],
-Cell[1228146, 31653, 821, 18, 70, "Print",ExpressionUUID->"8978b8cf-6b6f-4457-bd9b-dff792e88707"],
-Cell[1228970, 31673, 239, 4, 70, "Print",ExpressionUUID->"23c01cbe-e1f1-4e14-9c66-095a3e521c98"],
-Cell[1229212, 31679, 1252, 29, 70, "Print",ExpressionUUID->"409762b3-c56f-40cc-9c4c-d2abe755ef43"],
-Cell[1230467, 31710, 490, 12, 70, "Print",ExpressionUUID->"7e741844-6f74-436b-a9a2-9fbca8f0dc56"],
-Cell[1230960, 31724, 2269, 56, 70, "Print",ExpressionUUID->"7996b165-cd8f-4c85-8aa8-0d79250b5b38"],
-Cell[1233232, 31782, 832, 19, 70, "Print",ExpressionUUID->"0c2de0cd-5101-4ec1-9b59-b774fd6f719b"],
-Cell[1234067, 31803, 239, 4, 70, "Print",ExpressionUUID->"0f6f4125-26ac-4856-bfb9-ca70d57dce83"],
-Cell[1234309, 31809, 1252, 29, 70, "Print",ExpressionUUID->"2d8de64a-cee6-4b38-8aa8-335029e0d3a6"],
-Cell[1235564, 31840, 492, 12, 70, "Print",ExpressionUUID->"23e88e77-1626-4ba4-a82d-6e7ee25cc4c8"],
-Cell[1236059, 31854, 2275, 56, 70, "Print",ExpressionUUID->"c45b3461-8bb2-43fa-a813-1582aee6b8c4"],
-Cell[1238337, 31912, 833, 19, 70, "Print",ExpressionUUID->"37b0d445-169e-4e84-bf92-ddd9907361cb"],
-Cell[1239173, 31933, 239, 4, 70, "Print",ExpressionUUID->"6469dbef-4462-434c-a592-4a9dbfd5a937"],
-Cell[1239415, 31939, 1252, 29, 70, "Print",ExpressionUUID->"b5995c65-17ce-42f8-b16c-e2e683cd2941"],
-Cell[1240670, 31970, 484, 11, 70, "Print",ExpressionUUID->"b65961bc-8b10-47c5-8077-ae9d94d87227"],
-Cell[1241157, 31983, 2275, 56, 70, "Print",ExpressionUUID->"e2988ede-c54d-4206-90eb-eb4505543f7e"],
-Cell[1243435, 32041, 832, 19, 70, "Print",ExpressionUUID->"fcdd1e52-e71e-4b4f-b923-2d6f4bd75383"],
-Cell[1244270, 32062, 238, 4, 70, "Print",ExpressionUUID->"7c0044c8-59ec-4cc5-9a35-709cbcf1c6ef"],
-Cell[1244511, 32068, 1252, 29, 70, "Print",ExpressionUUID->"004aa918-fb00-4299-94fa-66046a7ecfbd"],
-Cell[1245766, 32099, 484, 11, 70, "Print",ExpressionUUID->"deaeb059-1a27-4dc2-9138-bf5da443170a"],
-Cell[1246253, 32112, 2275, 56, 70, "Print",ExpressionUUID->"366af2c5-39fb-47f6-9b79-31d0e9b0b2ca"],
-Cell[1248531, 32170, 834, 19, 70, "Print",ExpressionUUID->"e3871e80-c1bf-4ca2-bd39-98093e7f2896"],
-Cell[1249368, 32191, 239, 4, 70, "Print",ExpressionUUID->"ac7d17f2-23eb-4ef7-82a0-75b9c5731db7"],
-Cell[1249610, 32197, 1252, 29, 70, "Print",ExpressionUUID->"a716ee1b-adb9-490a-b300-8bf77f21c68d"],
-Cell[1250865, 32228, 484, 11, 70, "Print",ExpressionUUID->"7c53f10d-209e-4fc9-8310-e769df8051a8"],
-Cell[1251352, 32241, 2269, 56, 70, "Print",ExpressionUUID->"d70eb64f-938c-432e-b39f-25e98aa6137b"],
-Cell[1253624, 32299, 834, 19, 70, "Print",ExpressionUUID->"47fccf0b-aaa7-4ffd-b68d-7d256ebb57e3"],
-Cell[1254461, 32320, 239, 4, 70, "Print",ExpressionUUID->"2e1dbbf6-3c1a-4511-a2f5-2d5c3b4a1384"],
-Cell[1254703, 32326, 1251, 29, 70, "Print",ExpressionUUID->"685f8a7e-3298-40c8-9800-2b6676b6ec07"],
-Cell[1255957, 32357, 490, 12, 70, "Print",ExpressionUUID->"1ff5a700-9268-443d-84ea-ef8b37ecc8c3"],
-Cell[1256450, 32371, 2265, 56, 70, "Print",ExpressionUUID->"c334cdad-525b-4024-8207-114f5fc35d55"],
-Cell[1258718, 32429, 815, 18, 70, "Print",ExpressionUUID->"f0499bd0-158b-4dbe-8ea1-d6d673c038a3"],
-Cell[1259536, 32449, 239, 4, 70, "Print",ExpressionUUID->"f949353e-4e4a-4775-a0e8-4bac9a647cbb"],
-Cell[1259778, 32455, 1250, 29, 70, "Print",ExpressionUUID->"3ae1a364-8368-430d-adbd-eee7b18c95a2"],
-Cell[1261031, 32486, 490, 12, 70, "Print",ExpressionUUID->"98c292f0-8547-49df-82dd-39309390d947"],
-Cell[1261524, 32500, 2277, 56, 70, "Print",ExpressionUUID->"6d451dba-1e5b-4753-ad90-2a905331bb2a"],
-Cell[1263804, 32558, 813, 18, 70, "Print",ExpressionUUID->"0174a1ab-349f-47ea-82b7-7d16d482fd61"],
-Cell[1264620, 32578, 238, 4, 70, "Print",ExpressionUUID->"2c1cb5ba-9f31-4922-8402-f9faa6a65463"],
-Cell[1264861, 32584, 1249, 29, 70, "Print",ExpressionUUID->"8a67a529-905e-497a-86aa-03e148ab55a7"],
-Cell[1266113, 32615, 490, 12, 70, "Print",ExpressionUUID->"15a9fabd-215b-4049-97e4-9224d7ad4530"],
-Cell[1266606, 32629, 2269, 56, 70, "Print",ExpressionUUID->"0ac74549-65ca-4656-bc38-cd38f97a0040"],
-Cell[1268878, 32687, 838, 19, 70, "Print",ExpressionUUID->"7178167b-8388-438f-9d21-eac8e74e37ec"],
-Cell[1269719, 32708, 239, 4, 70, "Print",ExpressionUUID->"3a072c99-0abb-4ff1-8454-9a02cfeca9ff"],
-Cell[1269961, 32714, 1247, 29, 70, "Print",ExpressionUUID->"b8c1f126-f24a-4d4b-a642-96f0c53f4b4b"],
-Cell[1271211, 32745, 484, 11, 70, "Print",ExpressionUUID->"dc95de3f-aea7-4f1c-973a-d0526dbeae50"],
-Cell[1271698, 32758, 2269, 56, 70, "Print",ExpressionUUID->"01d9f810-f0aa-40cb-a7bc-4158f4d96e63"],
-Cell[1273970, 32816, 832, 19, 70, "Print",ExpressionUUID->"a8148218-abcc-4642-9a14-89165f9af6b4"],
-Cell[1274805, 32837, 239, 4, 70, "Print",ExpressionUUID->"1cd49e5b-3c43-4e5d-9652-4babcb147586"],
-Cell[1275047, 32843, 1252, 29, 70, "Print",ExpressionUUID->"ceb928d7-f331-4251-a0bb-327aab8083b4"],
-Cell[1276302, 32874, 484, 11, 70, "Print",ExpressionUUID->"23368991-4c64-47f9-8a04-ba86d0e7ae69"],
-Cell[1276789, 32887, 2269, 56, 70, "Print",ExpressionUUID->"5c825c44-83ae-4039-8ed2-39b78391de3c"],
-Cell[1279061, 32945, 834, 19, 70, "Print",ExpressionUUID->"af5dee69-6cff-419a-b72a-717a6a2d8ee6"],
-Cell[1279898, 32966, 239, 4, 70, "Print",ExpressionUUID->"b2d6a658-03a7-4383-b9d2-e1489508b1d9"],
-Cell[1280140, 32972, 1253, 29, 70, "Print",ExpressionUUID->"e36ea031-d423-409d-b969-2e544f57dab7"],
-Cell[1281396, 33003, 484, 11, 70, "Print",ExpressionUUID->"fb0d8040-1097-428f-acea-6531fe344c1e"],
-Cell[1281883, 33016, 2266, 56, 70, "Print",ExpressionUUID->"1a1c1c5e-fe88-47aa-8e20-12b6e5ea3a28"],
-Cell[1284152, 33074, 834, 19, 70, "Print",ExpressionUUID->"332d53c1-fd6d-41d6-9f14-b2037abf9557"],
-Cell[1284989, 33095, 239, 4, 70, "Print",ExpressionUUID->"056b6dc1-4833-4e0d-bcdb-9a55e5de6128"],
-Cell[1285231, 33101, 1251, 29, 70, "Print",ExpressionUUID->"30a1ffce-6185-4229-b841-bb286231957d"],
-Cell[1286485, 33132, 484, 11, 70, "Print",ExpressionUUID->"a12b9caf-a59c-439a-af70-ed3ad915fb55"],
-Cell[1286972, 33145, 2274, 56, 70, "Print",ExpressionUUID->"e207eb95-c858-4e2e-8378-80ffdf6cd66a"],
-Cell[1289249, 33203, 838, 19, 70, "Print",ExpressionUUID->"9725b14d-6a9b-414f-bb2e-14580a6bff06"],
-Cell[1290090, 33224, 239, 4, 70, "Print",ExpressionUUID->"5686d765-a23f-4772-a940-9b9f84ff8f7e"],
-Cell[1290332, 33230, 1252, 29, 70, "Print",ExpressionUUID->"d4123eaf-f143-42b5-bf32-6d096b2d2aef"],
-Cell[1291587, 33261, 486, 11, 70, "Print",ExpressionUUID->"a7216ebc-1d57-4803-b216-47305ec4cad3"],
-Cell[1292076, 33274, 2272, 56, 70, "Print",ExpressionUUID->"a81efc81-9757-4269-a80e-d8b7e83cecc1"],
-Cell[1294351, 33332, 836, 19, 70, "Print",ExpressionUUID->"2431ff48-a994-4a63-b18a-b5113c945cd2"],
-Cell[1295190, 33353, 241, 4, 70, "Print",ExpressionUUID->"81223f25-41a5-4f47-9ad7-e9f292b870fb"],
-Cell[1295434, 33359, 1254, 29, 70, "Print",ExpressionUUID->"671057cc-0187-4fa5-8407-7d5c725f6c59"],
-Cell[1296691, 33390, 490, 12, 70, "Print",ExpressionUUID->"107ea11d-c3e7-4f15-94f9-7d193b324317"],
-Cell[1297184, 33404, 2269, 56, 70, "Print",ExpressionUUID->"f204e57c-ba46-4112-a7d3-46df22eab190"],
-Cell[1299456, 33462, 834, 19, 70, "Print",ExpressionUUID->"bfd61556-c7e9-4475-b9d4-675851bbbc6a"],
-Cell[1300293, 33483, 238, 4, 70, "Print",ExpressionUUID->"fe764d26-6598-4b9c-bc2c-b358d81f2418"],
-Cell[1300534, 33489, 1252, 29, 70, "Print",ExpressionUUID->"ba7cb3f2-aca2-4d3a-b120-207f06e06479"],
-Cell[1301789, 33520, 492, 12, 70, "Print",ExpressionUUID->"63d0f6b3-c85c-4d2c-bda8-75935daecb1e"],
-Cell[1302284, 33534, 2271, 56, 70, "Print",ExpressionUUID->"fa0792a9-8170-44c5-8ad5-5a59d40f0ea2"],
-Cell[1304558, 33592, 836, 19, 70, "Print",ExpressionUUID->"53433c3b-e81e-4066-8667-ef4a9388d82d"],
-Cell[1305397, 33613, 241, 4, 70, "Print",ExpressionUUID->"4f1d818b-67df-4dba-83a4-ccf6d4e0ccfc"],
-Cell[1305641, 33619, 1250, 29, 70, "Print",ExpressionUUID->"a1a465e8-d8e8-4266-b360-d6f907cd0137"],
-Cell[1306894, 33650, 484, 11, 70, "Print",ExpressionUUID->"39b5af94-9cd1-4213-8074-c6ab10e59e68"],
-Cell[1307381, 33663, 2275, 56, 70, "Print",ExpressionUUID->"b5ac264f-3c13-4674-accc-03b0cbec92e9"],
-Cell[1309659, 33721, 836, 19, 70, "Print",ExpressionUUID->"73a44c2a-7955-49c4-9195-70e005e0c5d2"],
-Cell[1310498, 33742, 239, 4, 70, "Print",ExpressionUUID->"95a14447-1299-4312-815c-d11eb7a9ca66"],
-Cell[1310740, 33748, 1252, 29, 70, "Print",ExpressionUUID->"329d1525-3a6a-4ca1-bde8-35ff2100c0f0"],
-Cell[1311995, 33779, 483, 11, 70, "Print",ExpressionUUID->"d3c61a67-05d6-4687-a86f-1415835f8c08"],
-Cell[1312481, 33792, 2272, 56, 70, "Print",ExpressionUUID->"333a20ee-5223-40b2-9729-ae337f6d0430"],
-Cell[1314756, 33850, 834, 19, 70, "Print",ExpressionUUID->"3b714156-0fe9-4038-a2d3-e9ac1b399793"],
-Cell[1315593, 33871, 239, 4, 70, "Print",ExpressionUUID->"c5034d38-1a22-4854-ae37-98397dee1ac2"],
-Cell[1315835, 33877, 1251, 29, 70, "Print",ExpressionUUID->"7f8c2c1a-0880-4ec7-a2b5-d09ba133e233"],
-Cell[1317089, 33908, 490, 12, 70, "Print",ExpressionUUID->"8eca6126-1fc7-438b-9eda-346ed4a79ad7"],
-Cell[1317582, 33922, 2275, 56, 70, "Print",ExpressionUUID->"d30b3224-ad16-4c10-99a4-b2c409afb5ce"],
-Cell[1319860, 33980, 815, 18, 70, "Print",ExpressionUUID->"c071f64c-61b4-4c1d-ba87-559c7db29cd6"],
-Cell[1320678, 34000, 239, 4, 70, "Print",ExpressionUUID->"12a543ed-9e41-4f0a-a87c-20f2c0e3d558"],
-Cell[1320920, 34006, 1251, 29, 70, "Print",ExpressionUUID->"94f05bbe-3fdd-495f-b7ac-1f565587595c"],
-Cell[1322174, 34037, 482, 11, 70, "Print",ExpressionUUID->"e2c9c504-1399-4430-b9fe-f422ebb7fca7"],
-Cell[1322659, 34050, 2272, 56, 70, "Print",ExpressionUUID->"5e66b915-e487-42b5-a238-6a7e84d67ea9"],
-Cell[1324934, 34108, 840, 19, 70, "Print",ExpressionUUID->"88c9227c-2983-4a31-86c5-c2cc8c845529"],
-Cell[1325777, 34129, 239, 4, 70, "Print",ExpressionUUID->"93f0447c-8b13-45a6-99fa-ff859d35e2bf"],
-Cell[1326019, 34135, 1249, 29, 70, "Print",ExpressionUUID->"b2015e5b-1dc8-46c1-b8f6-8763e5bb2296"],
-Cell[1327271, 34166, 490, 12, 70, "Print",ExpressionUUID->"35ceb1ff-a8fb-464d-823d-d0336fed0fe5"],
-Cell[1327764, 34180, 2269, 56, 70, "Print",ExpressionUUID->"d8836511-ceed-4601-bf5d-df17114a4d90"],
-Cell[1330036, 34238, 834, 19, 70, "Print",ExpressionUUID->"d157ffdf-8c3a-491e-9e42-297789b46629"],
-Cell[1330873, 34259, 239, 4, 70, "Print",ExpressionUUID->"6fd986dc-3a95-4fdb-9d47-d34ceb6027cb"],
-Cell[1331115, 34265, 1250, 29, 70, "Print",ExpressionUUID->"358d5906-4a54-43a0-9340-f3b93a420150"],
-Cell[1332368, 34296, 492, 12, 70, "Print",ExpressionUUID->"2566fc8b-dced-46f2-afdf-96313f090f09"],
-Cell[1332863, 34310, 2272, 56, 70, "Print",ExpressionUUID->"21bd3c26-6d56-4b62-8d2d-9b152c8d90e3"],
-Cell[1335138, 34368, 834, 19, 70, "Print",ExpressionUUID->"d62591f7-e888-44e5-add4-7026464966e7"],
-Cell[1335975, 34389, 239, 4, 70, "Print",ExpressionUUID->"dc6502ce-ebdd-4714-9f16-856482140573"],
-Cell[1336217, 34395, 1252, 29, 70, "Print",ExpressionUUID->"ce9edb65-6d61-428b-897d-cbae4ca0857e"],
-Cell[1337472, 34426, 484, 11, 70, "Print",ExpressionUUID->"005055a6-b10f-42d1-a1b0-4781e901e59f"],
-Cell[1337959, 34439, 2274, 56, 70, "Print",ExpressionUUID->"dd630cf4-b36c-4a71-a6df-a26d4c1358da"],
-Cell[1340236, 34497, 836, 19, 70, "Print",ExpressionUUID->"7f0a8ff2-6810-424c-83cd-75f98ea9cc01"],
-Cell[1341075, 34518, 241, 4, 70, "Print",ExpressionUUID->"1bb6d07d-53a6-41f4-8554-69c99280a47c"],
-Cell[1341319, 34524, 1252, 29, 70, "Print",ExpressionUUID->"c3a1e0cd-b21c-4715-abbc-bf7aaa7e8aa5"],
-Cell[1342574, 34555, 486, 11, 70, "Print",ExpressionUUID->"1c6f94dd-6bc3-43ba-8237-8c314f071222"],
-Cell[1343063, 34568, 2269, 56, 70, "Print",ExpressionUUID->"2db62df7-b8a8-4e57-a670-1f20e100d2c4"],
-Cell[1345335, 34626, 834, 19, 70, "Print",ExpressionUUID->"3a7ffdfc-2ce9-45f5-a8c3-55a177c2300a"],
-Cell[1346172, 34647, 239, 4, 70, "Print",ExpressionUUID->"16ced7b9-e08d-4161-bbd3-365f9b919596"],
-Cell[1346414, 34653, 1251, 29, 70, "Print",ExpressionUUID->"f82ffb5c-ba0b-4d40-a6b3-5252ca5d9f5f"],
-Cell[1347668, 34684, 484, 11, 70, "Print",ExpressionUUID->"d144a476-0e5d-4ab4-ab3f-2f87b57462e9"],
-Cell[1348155, 34697, 2269, 56, 70, "Print",ExpressionUUID->"45e17c0d-e58a-4f76-8fd3-8bed52584317"],
-Cell[1350427, 34755, 838, 19, 70, "Print",ExpressionUUID->"d46ae3fa-e25c-47b1-94c8-4849b673bb60"],
-Cell[1351268, 34776, 239, 4, 70, "Print",ExpressionUUID->"013f2998-43a3-42f5-b87d-720c613510f4"],
-Cell[1351510, 34782, 1252, 29, 70, "Print",ExpressionUUID->"bcf9af9f-d1ba-4730-87f6-37b4e4e9f559"],
-Cell[1352765, 34813, 490, 12, 70, "Print",ExpressionUUID->"f019970b-9a35-4321-bab4-e39c4f7dcf74"],
-Cell[1353258, 34827, 2269, 56, 70, "Print",ExpressionUUID->"666e252f-ac25-4802-8175-3c2e272b6055"],
-Cell[1355530, 34885, 838, 19, 70, "Print",ExpressionUUID->"78193e13-e3da-4bc7-b386-0e99203c1f42"],
-Cell[1356371, 34906, 241, 4, 70, "Print",ExpressionUUID->"703fa41a-11fd-4f5c-986d-8a017545d487"],
-Cell[1356615, 34912, 1249, 29, 70, "Print",ExpressionUUID->"7b5ce632-8e55-4d75-88e2-a88822e63942"],
-Cell[1357867, 34943, 484, 11, 70, "Print",ExpressionUUID->"888b8ce2-f2a8-4260-b9d4-0e3e824351bb"],
-Cell[1358354, 34956, 2277, 56, 70, "Print",ExpressionUUID->"68ae0339-aa1a-4eb9-9b6d-793334ac22f7"],
-Cell[1360634, 35014, 817, 18, 70, "Print",ExpressionUUID->"54858d56-4102-4805-b436-ecb29bb6c2e1"],
-Cell[1361454, 35034, 241, 4, 70, "Print",ExpressionUUID->"57b149a6-fc8d-49d3-bed8-06f35cb94093"],
-Cell[1361698, 35040, 1254, 29, 70, "Print",ExpressionUUID->"cd9ed5f0-5dd8-4cf6-9b5a-0f841d474c2e"],
-Cell[1362955, 35071, 486, 11, 70, "Print",ExpressionUUID->"079d8c88-392f-4e9b-ae49-b7360f5fe650"],
-Cell[1363444, 35084, 2269, 56, 70, "Print",ExpressionUUID->"082d67e2-3b47-49f2-8cfd-95a91c8cf65c"],
-Cell[1365716, 35142, 813, 18, 70, "Print",ExpressionUUID->"5e6bedab-0a8f-4f06-8159-345d82da7a39"],
-Cell[1366532, 35162, 238, 4, 70, "Print",ExpressionUUID->"d1a9085b-e697-4d00-a1f6-18841d84c030"],
-Cell[1366773, 35168, 1249, 29, 70, "Print",ExpressionUUID->"5ba52e86-ad61-4fee-bfb6-09489b2824e5"],
-Cell[1368025, 35199, 484, 11, 70, "Print",ExpressionUUID->"4b876983-6675-4140-a5af-0dd35c0d5769"],
-Cell[1368512, 35212, 2272, 56, 70, "Print",ExpressionUUID->"0e2c208c-ba55-4ecd-8482-2ee47ecdfef4"],
-Cell[1370787, 35270, 815, 18, 70, "Print",ExpressionUUID->"9517163a-a6a4-4048-8d91-9707efba6e6e"],
-Cell[1371605, 35290, 239, 4, 70, "Print",ExpressionUUID->"dc6b4dda-392d-41a5-8c48-9f6c27faca94"],
-Cell[1371847, 35296, 1250, 29, 70, "Print",ExpressionUUID->"844cec0f-7922-4d14-95a1-64582d4f21a7"],
-Cell[1373100, 35327, 484, 11, 70, "Print",ExpressionUUID->"0e48878e-1089-473e-9b90-47cb060fd578"],
-Cell[1373587, 35340, 2269, 56, 70, "Print",ExpressionUUID->"070111c8-be63-402f-9077-b20b8b3f349b"],
-Cell[1375859, 35398, 834, 19, 70, "Print",ExpressionUUID->"1ceded92-be83-491e-9d4e-c620f9f74a86"],
-Cell[1376696, 35419, 239, 4, 70, "Print",ExpressionUUID->"86f8e2d4-ad75-4afe-8a13-7325cb94c5e5"],
-Cell[1376938, 35425, 1252, 29, 70, "Print",ExpressionUUID->"75f5bf9c-dfc5-4225-8c66-43fb45dfd7e4"],
-Cell[1378193, 35456, 484, 11, 70, "Print",ExpressionUUID->"56e27c9f-f5a3-4c34-938c-80376891fb36"],
-Cell[1378680, 35469, 2271, 56, 70, "Print",ExpressionUUID->"fe03426d-4e91-46d2-9bcd-07f60026537f"],
-Cell[1380954, 35527, 838, 19, 70, "Print",ExpressionUUID->"7beb0339-a572-4ea8-bfc2-784459641eae"],
-Cell[1381795, 35548, 239, 4, 70, "Print",ExpressionUUID->"4e9c85c6-133b-43db-bed3-0c71abb2d1cd"],
-Cell[1382037, 35554, 1249, 29, 70, "Print",ExpressionUUID->"ed1ef3c3-ed32-48cc-a0ab-35158041801c"],
-Cell[1383289, 35585, 490, 12, 70, "Print",ExpressionUUID->"211eea56-cdb0-4e1f-8ba6-a469b4ae568c"],
-Cell[1383782, 35599, 2266, 56, 70, "Print",ExpressionUUID->"2787b179-52da-489f-b5d4-3980786ca18e"],
-Cell[1386051, 35657, 815, 18, 70, "Print",ExpressionUUID->"1e3c378c-bf56-462d-979b-f38991df515a"],
-Cell[1386869, 35677, 239, 4, 70, "Print",ExpressionUUID->"2d525daa-683b-4483-b9ae-90d1edbdf47d"],
-Cell[1387111, 35683, 1249, 29, 70, "Print",ExpressionUUID->"975a93bb-18ea-4ec5-acb2-727aa54c402c"],
-Cell[1388363, 35714, 482, 11, 70, "Print",ExpressionUUID->"6a17c120-4862-4f44-9a21-878d8b867007"],
-Cell[1388848, 35727, 2269, 56, 70, "Print",ExpressionUUID->"10f0ae7b-c41a-4485-90e3-a2ebd157ca07"],
-Cell[1391120, 35785, 815, 18, 70, "Print",ExpressionUUID->"7c447ce8-fab2-4203-a1c9-d9c33d6e0625"],
-Cell[1391938, 35805, 238, 4, 70, "Print",ExpressionUUID->"12bc8635-8fc6-4d0d-b6ea-43bd0c3533b0"],
-Cell[1392179, 35811, 1253, 29, 70, "Print",ExpressionUUID->"eee7c6ce-1dba-4010-a10d-84fc58e8a5af"],
-Cell[1393435, 35842, 474, 11, 70, "Print",ExpressionUUID->"d9daf9a1-3351-4137-8bfd-2cc651a3e148"],
-Cell[1393912, 35855, 2272, 56, 70, "Print",ExpressionUUID->"2f0a2d06-f47b-499a-9e39-705494fd91c1"],
-Cell[1396187, 35913, 815, 18, 70, "Print",ExpressionUUID->"671e9ea8-a53a-4c43-b39c-ecdea3e7c278"],
-Cell[1397005, 35933, 241, 4, 70, "Print",ExpressionUUID->"447bd565-b60e-42ec-98c1-f7124fa02638"],
-Cell[1397249, 35939, 1251, 29, 70, "Print",ExpressionUUID->"eabca750-4116-4286-b457-b11f19522dda"],
-Cell[1398503, 35970, 484, 11, 70, "Print",ExpressionUUID->"02accbbc-6b3b-4093-a09c-f10d8cab66cf"],
-Cell[1398990, 35983, 2269, 56, 70, "Print",ExpressionUUID->"143785b6-3b6c-4948-b35c-e352771348c5"],
-Cell[1401262, 36041, 834, 19, 70, "Print",ExpressionUUID->"f282a84e-29d9-482d-976c-5599b29e6740"],
-Cell[1402099, 36062, 239, 4, 70, "Print",ExpressionUUID->"97014005-47ca-4299-afe7-92c5307bef9f"],
-Cell[1402341, 36068, 1253, 29, 70, "Print",ExpressionUUID->"8c815745-c4c3-4742-8eee-87806e2382e8"],
-Cell[1403597, 36099, 492, 12, 70, "Print",ExpressionUUID->"8df7b742-4bd8-4f80-b79d-24073ce5e467"],
-Cell[1404092, 36113, 2272, 56, 70, "Print",ExpressionUUID->"da42c461-08a8-4d15-94e8-cb5d5a2d8e6c"],
-Cell[1406367, 36171, 817, 18, 70, "Print",ExpressionUUID->"034b989b-b754-49c1-be9b-74d2133f8795"],
-Cell[1407187, 36191, 239, 4, 70, "Print",ExpressionUUID->"161a45c3-e293-4eb8-b650-ab73b69d06ac"],
-Cell[1407429, 36197, 1249, 29, 70, "Print",ExpressionUUID->"430e7735-c4b9-4ec9-8027-defd655bcf4c"],
-Cell[1408681, 36228, 490, 12, 70, "Print",ExpressionUUID->"12170ffc-cc22-4da7-a489-80b8ef5afd18"],
-Cell[1409174, 36242, 2269, 56, 70, "Print",ExpressionUUID->"84230d1d-c925-4f00-a1ce-df16a4940769"],
-Cell[1411446, 36300, 811, 18, 70, "Print",ExpressionUUID->"8d50e6fb-7212-47ef-b215-2a10722f4775"],
-Cell[1412260, 36320, 241, 4, 70, "Print",ExpressionUUID->"9479bd30-2f6a-453f-8e90-e16a651bb9cb"],
-Cell[1412504, 36326, 1254, 29, 70, "Print",ExpressionUUID->"b2e1e88d-3c22-45ab-ac38-fc0d9d8925a2"],
-Cell[1413761, 36357, 486, 11, 70, "Print",ExpressionUUID->"69771414-255b-4f92-b58b-99c12fc8d405"],
-Cell[1414250, 36370, 2266, 56, 70, "Print",ExpressionUUID->"b840514b-d967-49b4-8471-03bf90cac273"],
-Cell[1416519, 36428, 819, 18, 70, "Print",ExpressionUUID->"39b42f95-85f2-4c4c-9846-b119fc26aa8f"],
-Cell[1417341, 36448, 239, 4, 70, "Print",ExpressionUUID->"8df17835-6027-4400-8391-0da074c16ebc"],
-Cell[1417583, 36454, 1252, 29, 70, "Print",ExpressionUUID->"2efe50d7-1c71-487b-8adb-798b8758182c"],
-Cell[1418838, 36485, 486, 11, 70, "Print",ExpressionUUID->"af993af8-135c-418a-b4d6-99ba40452f64"],
-Cell[1419327, 36498, 2271, 56, 70, "Print",ExpressionUUID->"68b1632a-6b36-4a70-b468-0ac066022918"],
-Cell[1421601, 36556, 811, 18, 70, "Print",ExpressionUUID->"e869b57e-b883-4a7c-b3f2-8c83050277dd"],
-Cell[1422415, 36576, 239, 4, 70, "Print",ExpressionUUID->"23e6fa1a-2d8e-49e1-83cf-fec8070aad87"],
-Cell[1422657, 36582, 1251, 29, 70, "Print",ExpressionUUID->"03036ac2-fa1a-4857-910e-eaac30cf1da6"],
-Cell[1423911, 36613, 490, 12, 70, "Print",ExpressionUUID->"2c005ea8-3d17-429b-9839-885eeee0a432"],
-Cell[1424404, 36627, 2269, 56, 70, "Print",ExpressionUUID->"6f167375-cbcc-4e58-acb5-77fa019c6b4d"],
-Cell[1426676, 36685, 832, 19, 70, "Print",ExpressionUUID->"78a5adf9-6281-4880-b656-461440aac844"],
-Cell[1427511, 36706, 239, 4, 70, "Print",ExpressionUUID->"86dac073-9051-4dad-8385-7ea49df37f7a"],
-Cell[1427753, 36712, 1250, 29, 70, "Print",ExpressionUUID->"b7e1ee99-b2d6-44f4-b8da-b09044d602d4"],
-Cell[1429006, 36743, 490, 12, 70, "Print",ExpressionUUID->"47c641a3-683d-4955-a8cf-044f4d41dc83"],
-Cell[1429499, 36757, 2265, 56, 70, "Print",ExpressionUUID->"c0a1d791-60d1-4d38-b766-8d7959de2157"],
-Cell[1431767, 36815, 815, 18, 70, "Print",ExpressionUUID->"c6f26a21-09cb-4f39-93f5-6a2c513df48e"],
-Cell[1432585, 36835, 239, 4, 70, "Print",ExpressionUUID->"ea273d13-d4e2-41a2-9166-c2de55202db5"],
-Cell[1432827, 36841, 1248, 29, 70, "Print",ExpressionUUID->"e4911070-e877-4c1f-bb95-5e434e096c50"],
-Cell[1434078, 36872, 484, 11, 70, "Print",ExpressionUUID->"1b21a76c-2833-4ca9-b399-5475dd51085f"],
-Cell[1434565, 36885, 2269, 56, 70, "Print",ExpressionUUID->"1b0b0a63-cc9c-416c-a168-4cab2dec970e"],
-Cell[1436837, 36943, 838, 19, 70, "Print",ExpressionUUID->"d50df4ff-007c-4730-b64c-6299281676a1"],
-Cell[1437678, 36964, 239, 4, 70, "Print",ExpressionUUID->"d9662a26-b9a3-4b2a-90e7-df563a69652e"],
-Cell[1437920, 36970, 1252, 29, 70, "Print",ExpressionUUID->"9a4f4542-63ee-4676-9ca1-220a4d4cb369"],
-Cell[1439175, 37001, 486, 11, 70, "Print",ExpressionUUID->"152d5d68-fb01-4ab3-8268-02fc8845ec8e"],
-Cell[1439664, 37014, 2263, 56, 70, "Print",ExpressionUUID->"fb1e135f-be68-49f0-9b2d-c6cf6b294201"],
-Cell[1441930, 37072, 834, 19, 70, "Print",ExpressionUUID->"af9952ae-fc2d-4541-8819-d66a70bf38f9"],
-Cell[1442767, 37093, 239, 4, 70, "Print",ExpressionUUID->"c5598e87-4a34-4450-b2f9-9ce800554847"],
-Cell[1443009, 37099, 1252, 29, 70, "Print",ExpressionUUID->"61ae7cca-70d0-4e3f-8f82-c86514764640"],
-Cell[1444264, 37130, 484, 11, 70, "Print",ExpressionUUID->"ffc110bc-cb04-4bdf-aad4-d6af8c8d74b8"],
-Cell[1444751, 37143, 2265, 56, 70, "Print",ExpressionUUID->"9e35134c-d3de-4ed4-be96-6cbb566a64ac"],
-Cell[1447019, 37201, 836, 19, 70, "Print",ExpressionUUID->"12c70c73-1ab2-4a79-9911-f5c6b03e5d3d"],
-Cell[1447858, 37222, 239, 4, 70, "Print",ExpressionUUID->"41d9cd2f-9b2d-45c3-a568-5ac28b86ff4a"],
-Cell[1448100, 37228, 1253, 29, 70, "Print",ExpressionUUID->"84cab3d5-a050-431b-b4c4-e6ff65a9e8d5"],
-Cell[1449356, 37259, 484, 11, 70, "Print",ExpressionUUID->"c290c93c-f946-41d3-a7e2-7b8242798f5b"],
-Cell[1449843, 37272, 2261, 56, 70, "Print",ExpressionUUID->"88f43237-67c4-4031-ac49-6e63269f8222"],
-Cell[1452107, 37330, 830, 19, 70, "Print",ExpressionUUID->"3051ea11-b277-4ae2-9b72-ebd7be93e9a1"],
-Cell[1452940, 37351, 241, 4, 70, "Print",ExpressionUUID->"365d358f-582f-4322-b900-4d7daead3973"],
-Cell[1453184, 37357, 1252, 29, 70, "Print",ExpressionUUID->"b7f3370d-d908-4c01-b7c2-d81c369a7047"],
-Cell[1454439, 37388, 482, 11, 70, "Print",ExpressionUUID->"3bb9b885-5013-45ba-af65-529033ca1a91"],
-Cell[1454924, 37401, 2263, 56, 70, "Print",ExpressionUUID->"cc48ec1b-8cfb-4e66-ac55-0f1bacb45bfe"],
-Cell[1457190, 37459, 836, 19, 70, "Print",ExpressionUUID->"945025c2-51d6-47e9-9da0-7986f7bb8a4a"],
-Cell[1458029, 37480, 239, 4, 70, "Print",ExpressionUUID->"986f7ff2-e4a3-4f48-aa44-9f08168794c7"],
-Cell[1458271, 37486, 1251, 29, 70, "Print",ExpressionUUID->"514b5a4d-d77c-4159-ad3e-467fc93da91b"],
-Cell[1459525, 37517, 484, 11, 70, "Print",ExpressionUUID->"48d0e3ad-3bf2-42f9-a0bc-17041fa1a244"],
-Cell[1460012, 37530, 2266, 56, 70, "Print",ExpressionUUID->"c3d265e9-36e4-4c4c-883a-a27281f428f7"],
-Cell[1462281, 37588, 834, 19, 70, "Print",ExpressionUUID->"bf3eaa59-5b2b-4944-aa96-47f74041beb3"],
-Cell[1463118, 37609, 239, 4, 70, "Print",ExpressionUUID->"9e923df4-141f-4ec7-a72f-9fb7b93b2c72"],
-Cell[1463360, 37615, 1251, 29, 70, "Print",ExpressionUUID->"2940de0a-2a74-43fe-b0d5-38566a6dbfcb"],
-Cell[1464614, 37646, 484, 11, 70, "Print",ExpressionUUID->"5a73d8ba-eb39-431b-8609-e5d04cf8b9e5"],
-Cell[1465101, 37659, 2271, 56, 70, "Print",ExpressionUUID->"58a12739-e20c-42d8-a334-2c048c7d8814"],
-Cell[1467375, 37717, 838, 19, 70, "Print",ExpressionUUID->"69af438a-d2b8-431d-bb80-8091589b1568"],
-Cell[1468216, 37738, 239, 4, 70, "Print",ExpressionUUID->"f9d0c22b-0d6e-49c8-8598-32beb2201675"],
-Cell[1468458, 37744, 1250, 29, 70, "Print",ExpressionUUID->"e06da46b-5e11-425b-abc4-1cfbc2a00b88"],
-Cell[1469711, 37775, 484, 11, 70, "Print",ExpressionUUID->"1c2778aa-9840-45ac-a047-f1956196bd93"],
-Cell[1470198, 37788, 2266, 56, 70, "Print",ExpressionUUID->"bf0b5b79-67f6-40d5-a592-d15ef387afae"],
-Cell[1472467, 37846, 836, 19, 70, "Print",ExpressionUUID->"79e44ee8-2094-4029-b767-c45f6170f51b"],
-Cell[1473306, 37867, 239, 4, 70, "Print",ExpressionUUID->"13230a0d-12bd-4e26-9019-6d7383b2949c"],
-Cell[1473548, 37873, 1254, 29, 70, "Print",ExpressionUUID->"e4a359de-d3dd-4864-b305-3b626b1cd7f3"],
-Cell[1474805, 37904, 486, 11, 70, "Print",ExpressionUUID->"67712731-36b5-4f45-9a76-0591a015f0e5"],
-Cell[1475294, 37917, 2272, 56, 70, "Print",ExpressionUUID->"fc12d5d5-d3a0-49ed-804f-e2a2b6fb8060"],
-Cell[1477569, 37975, 838, 19, 70, "Print",ExpressionUUID->"9bf24b17-4cf0-4fe9-a1d5-eebea5d53476"],
-Cell[1478410, 37996, 239, 4, 70, "Print",ExpressionUUID->"ffefae73-9a05-4bbb-8392-b4e25a8d6920"],
-Cell[1478652, 38002, 1249, 29, 70, "Print",ExpressionUUID->"700d51ba-6c15-4c27-8f29-d6d1b6b0b28b"],
-Cell[1479904, 38033, 489, 12, 70, "Print",ExpressionUUID->"16580a5a-75f1-446e-ba64-4643473dc155"],
-Cell[1480396, 38047, 2268, 56, 70, "Print",ExpressionUUID->"44576307-3cfe-4a87-952f-b43ef5691c01"],
-Cell[1482667, 38105, 838, 19, 70, "Print",ExpressionUUID->"f7a56c35-6608-4a07-8113-bc6d0ab1ddc9"],
-Cell[1483508, 38126, 241, 4, 70, "Print",ExpressionUUID->"1dbc6ba3-eb43-4266-9213-21fb265603ac"],
-Cell[1483752, 38132, 1250, 29, 70, "Print",ExpressionUUID->"94b2c8cc-2a2f-455a-ae13-bda43c61c058"],
-Cell[1485005, 38163, 486, 11, 70, "Print",ExpressionUUID->"2e2a558f-a8be-4cb3-9670-70727b08eccc"],
-Cell[1485494, 38176, 2268, 56, 70, "Print",ExpressionUUID->"c3cb51c5-c606-49c3-a5d8-45b281a85979"],
-Cell[1487765, 38234, 840, 19, 70, "Print",ExpressionUUID->"72b23a8c-b015-4ae1-bda0-419772d9f1d8"],
-Cell[1488608, 38255, 239, 4, 70, "Print",ExpressionUUID->"c9e9cf86-cf7b-48a0-bf57-9542c71aa32c"],
-Cell[1488850, 38261, 1251, 29, 70, "Print",ExpressionUUID->"c7e5789f-f928-4989-8cd4-304e0ebbe88e"],
-Cell[1490104, 38292, 490, 12, 70, "Print",ExpressionUUID->"bd985727-848c-4e3c-a386-744beb4f50aa"],
-Cell[1490597, 38306, 2266, 56, 70, "Print",ExpressionUUID->"f3a1d702-c466-4132-af43-3406b61bb16e"],
-Cell[1492866, 38364, 839, 19, 70, "Print",ExpressionUUID->"7ce73ee9-11c3-4bcf-807b-fe98ce28e3db"],
-Cell[1493708, 38385, 241, 4, 70, "Print",ExpressionUUID->"6236fa60-6c27-4cac-a357-3335eb7e149b"],
-Cell[1493952, 38391, 1250, 29, 70, "Print",ExpressionUUID->"db203770-a572-462f-b38c-0728dd53c696"],
-Cell[1495205, 38422, 484, 11, 70, "Print",ExpressionUUID->"975e4f81-9cf0-4cde-bc6a-756d158da9d8"],
-Cell[1495692, 38435, 2272, 56, 70, "Print",ExpressionUUID->"60a75556-43d9-4e5f-b77c-5eceb5ab650c"],
-Cell[1497967, 38493, 836, 19, 70, "Print",ExpressionUUID->"4452d210-f467-46a0-bdf1-210391f0c0e0"],
-Cell[1498806, 38514, 238, 4, 70, "Print",ExpressionUUID->"531f927a-785e-43fc-b643-abead8f8ad17"],
-Cell[1499047, 38520, 1251, 29, 70, "Print",ExpressionUUID->"a92943d8-76b9-4045-b99a-e6688eef68e9"],
-Cell[1500301, 38551, 490, 12, 70, "Print",ExpressionUUID->"f68570d5-c99e-4ab8-81bf-d1703eee0c73"],
-Cell[1500794, 38565, 2272, 56, 70, "Print",ExpressionUUID->"b94f2189-0663-4fde-8149-84ccc9be3b81"],
-Cell[1503069, 38623, 834, 19, 70, "Print",ExpressionUUID->"e558ddf5-1d0b-4d59-8d1c-2635c4bad8ef"],
-Cell[1503906, 38644, 239, 4, 70, "Print",ExpressionUUID->"eaa2ef2b-95ca-4a6b-b6ea-86ac68c234d7"],
-Cell[1504148, 38650, 1252, 29, 70, "Print",ExpressionUUID->"5b030958-7cee-4236-8505-fab920eb79dd"],
-Cell[1505403, 38681, 482, 11, 70, "Print",ExpressionUUID->"82b7ec65-6cbd-436f-a65d-e51e9dc228d6"],
-Cell[1505888, 38694, 2263, 56, 70, "Print",ExpressionUUID->"9e212192-87ea-4a16-a1df-1b8c60ed91ae"],
-Cell[1508154, 38752, 832, 19, 70, "Print",ExpressionUUID->"9df1b64f-f6bb-4ec9-8b4c-4f105b27ff7f"],
-Cell[1508989, 38773, 239, 4, 70, "Print",ExpressionUUID->"b995f40d-d451-4d16-b5f1-375a2fa7b988"],
-Cell[1509231, 38779, 1252, 29, 70, "Print",ExpressionUUID->"4d398b45-69e8-4f2d-8fcd-a9aa81afcc70"],
-Cell[1510486, 38810, 486, 11, 70, "Print",ExpressionUUID->"201d03cd-feb3-45f7-adc1-4cd97a19d5e0"],
-Cell[1510975, 38823, 2272, 56, 70, "Print",ExpressionUUID->"77795851-d16e-494a-9cba-694996456eec"],
-Cell[1513250, 38881, 838, 19, 70, "Print",ExpressionUUID->"16043f41-af11-41da-a003-9f543f8434e8"],
-Cell[1514091, 38902, 239, 4, 70, "Print",ExpressionUUID->"1695a3b0-50d9-4c47-bdd4-cd652d39932c"],
-Cell[1514333, 38908, 1252, 29, 70, "Print",ExpressionUUID->"d7fadbc8-5d5e-4ddf-9fb2-3c5e100f7b69"],
-Cell[1515588, 38939, 490, 12, 70, "Print",ExpressionUUID->"090db7c2-5672-4e4a-ae1a-5e6891d91a5c"],
-Cell[1516081, 38953, 2263, 56, 70, "Print",ExpressionUUID->"48dfa233-2d8f-4430-bc66-d7cf6e6e2432"],
-Cell[1518347, 39011, 834, 19, 70, "Print",ExpressionUUID->"a3ebe1fd-433c-4803-a8e6-aba526768766"],
-Cell[1519184, 39032, 241, 4, 70, "Print",ExpressionUUID->"71b19912-523c-4eb9-9244-0605cdc7c205"],
-Cell[1519428, 39038, 1252, 29, 70, "Print",ExpressionUUID->"5136b96b-f201-4d64-bb0b-c1d73e62dbe4"],
-Cell[1520683, 39069, 490, 12, 70, "Print",ExpressionUUID->"d19fa418-7183-48a3-9bd9-9ca0af26495d"],
-Cell[1521176, 39083, 2277, 56, 70, "Print",ExpressionUUID->"e191ace6-7e04-4884-9d4d-5a2b09365c97"],
-Cell[1523456, 39141, 838, 19, 70, "Print",ExpressionUUID->"bc3bf3e5-f03b-4e22-bd13-da9302a3269d"],
-Cell[1524297, 39162, 239, 4, 70, "Print",ExpressionUUID->"21f0e823-341e-4f1f-b06e-db989632a363"],
-Cell[1524539, 39168, 1251, 29, 70, "Print",ExpressionUUID->"1685382f-ff91-4116-be33-b693846f5f8d"],
-Cell[1525793, 39199, 484, 11, 70, "Print",ExpressionUUID->"cf86f918-7954-4fcb-b4c0-1af59d602865"],
-Cell[1526280, 39212, 2269, 56, 70, "Print",ExpressionUUID->"ed66a9c3-1d43-435e-ab83-4999a4ad79d8"],
-Cell[1528552, 39270, 840, 19, 70, "Print",ExpressionUUID->"bf937ce7-92b6-4c20-992b-a3b047996b66"],
-Cell[1529395, 39291, 239, 4, 70, "Print",ExpressionUUID->"dc3d62a5-a065-4e4d-8a02-7688fd727c71"],
-Cell[1529637, 39297, 1252, 29, 70, "Print",ExpressionUUID->"d49b6311-5ba5-441f-839d-2fdf9c47dbdc"]
+Cell[143974, 4088, 561, 13, 44, "Print",ExpressionUUID->"64ced39d-6428-402b-815a-91c9b3d19a50"],
+Cell[144538, 4103, 2339, 57, 145, "Print",ExpressionUUID->"57eea8d9-a7e0-410a-bbbf-69f5ac408d9f"],
+Cell[146880, 4162, 905, 20, 27, "Print",ExpressionUUID->"faf45695-42b6-4c3a-9f45-c2fd12eee54d"],
+Cell[147788, 4184, 310, 5, 24, "Print",ExpressionUUID->"8df984ec-bb66-499b-bb30-fc1f23067576"],
+Cell[148101, 4191, 1318, 30, 49, "Print",ExpressionUUID->"96cc5957-701c-4300-a4a5-342707f05c9c"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[1530938, 39332, 154, 3, 26, "Input",ExpressionUUID->"e2730574-ac04-482f-83d9-9c4de55b5fc0"],
-Cell[1531095, 39337, 209, 4, 34, "Output",ExpressionUUID->"c5c505fe-4051-4f67-824a-cb39dfd29847"]
-}, Open ]],
-Cell[1531319, 39344, 487, 13, 52, "Input",ExpressionUUID->"be1b5917-86e0-4f8f-ab7c-013dff2fc709"],
-Cell[1531809, 39359, 1685, 46, 157, "Input",ExpressionUUID->"7c34c081-0d57-45d4-b481-65643a160950"],
-Cell[1533497, 39407, 1491, 43, 157, "Input",ExpressionUUID->"be5d4c82-6a54-4c5a-8b2e-19158848b27a"],
-Cell[1534991, 39452, 1493, 43, 157, "Input",ExpressionUUID->"eaf57a4f-3045-4699-97c2-79ae6aae197d"],
-Cell[1536487, 39497, 1490, 43, 157, "Input",ExpressionUUID->"2c25bb8c-6725-44e1-8da6-eaf8faa31ba6"],
-Cell[1537980, 39542, 1493, 43, 157, "Input",ExpressionUUID->"3bc26d5f-2281-4004-8ecf-fe01e98ab1ee"],
-Cell[1539476, 39587, 1491, 43, 157, "Input",ExpressionUUID->"407f66be-8c97-4a6e-8fae-98888429e4a7"],
-Cell[1540970, 39632, 1491, 43, 157, "Input",ExpressionUUID->"ae404f70-9594-4115-b289-51307bc065ef"]
+Cell[149468, 4227, 6430, 172, 867, "Input",ExpressionUUID->"d4ac6f76-1854-421d-aad8-bdf164ad28b3"],
+Cell[CellGroupData[{
+Cell[155923, 4403, 607, 14, 44, "Print",ExpressionUUID->"cbfa551e-d0ce-4654-900d-45016d58f1c8"],
+Cell[156533, 4419, 2382, 58, 145, "Print",ExpressionUUID->"c3fe3e0a-58fa-4aae-ae16-de4eb46495a3"],
+Cell[158918, 4479, 951, 21, 27, "Print",ExpressionUUID->"cee8a021-5488-4715-9ae9-37caf440baf5"],
+Cell[159872, 4502, 356, 6, 24, "Print",ExpressionUUID->"30a77df9-2dac-4b98-9188-5c5919a46782"],
+Cell[160231, 4510, 1366, 31, 49, "Print",ExpressionUUID->"53ab5f46-0ebe-4784-b1ba-3cf5583fcb93"],
+Cell[161600, 4543, 607, 14, 44, "Print",ExpressionUUID->"a0d36ca1-69ea-4e07-a78c-0cfbf8dcf949"],
+Cell[162210, 4559, 2378, 58, 145, "Print",ExpressionUUID->"ded8f0a4-4b6a-4176-ba57-9b72ad9bec07"],
+Cell[164591, 4619, 951, 21, 27, "Print",ExpressionUUID->"d7b31cab-3b81-4c5e-adcb-56d7e52c4a4d"],
+Cell[165545, 4642, 356, 6, 24, "Print",ExpressionUUID->"e8c154cc-d494-42eb-bbba-36dfc216351e"],
+Cell[165904, 4650, 1364, 31, 49, "Print",ExpressionUUID->"298794a1-fe6b-465c-819b-4d73abbe846e"],
+Cell[167271, 4683, 607, 14, 70, "Print",ExpressionUUID->"5525ea46-2d85-45d6-8440-1aff7661733c"],
+Cell[167881, 4699, 2380, 58, 70, "Print",ExpressionUUID->"dbecc138-a52e-4183-b86a-b5099a627599"],
+Cell[170264, 4759, 951, 21, 70, "Print",ExpressionUUID->"b25da53b-a43f-418f-b012-b57d7c2fb5db"],
+Cell[171218, 4782, 356, 6, 70, "Print",ExpressionUUID->"26c234b8-9529-40fb-845a-ddd816873b82"],
+Cell[171577, 4790, 1365, 31, 70, "Print",ExpressionUUID->"b5e9064c-8f48-4914-b57d-8f1568774062"],
+Cell[172945, 4823, 607, 14, 70, "Print",ExpressionUUID->"11b11edb-35c2-4eb0-bae6-0cff8bc62a6e"],
+Cell[173555, 4839, 2380, 58, 70, "Print",ExpressionUUID->"8d4f92a3-1b7c-4de8-a725-afcf283357fb"],
+Cell[175938, 4899, 953, 21, 70, "Print",ExpressionUUID->"9b402df4-a17b-4fc9-9155-7861cbce0e3d"],
+Cell[176894, 4922, 356, 6, 70, "Print",ExpressionUUID->"d24ecb08-526b-425e-861f-0cbe9eadb31b"],
+Cell[177253, 4930, 1366, 31, 70, "Print",ExpressionUUID->"238ed20d-7900-4a1b-a0fc-60e20f7be273"],
+Cell[178622, 4963, 601, 13, 70, "Print",ExpressionUUID->"d3b26297-5c63-4011-9d6b-af4ff1d7eab9"],
+Cell[179226, 4978, 2380, 58, 70, "Print",ExpressionUUID->"b825dc3f-2b05-4555-9cf6-bb3e3da9b1ae"],
+Cell[181609, 5038, 953, 21, 70, "Print",ExpressionUUID->"485d0e60-4c86-4fb9-86d4-757c10180b16"],
+Cell[182565, 5061, 356, 6, 70, "Print",ExpressionUUID->"14a3a755-14e8-4a0e-8a96-9f7964a8a0d2"],
+Cell[182924, 5069, 1366, 31, 70, "Print",ExpressionUUID->"c4cfa965-00a0-41e1-88a7-4785114b6edb"],
+Cell[184293, 5102, 609, 14, 70, "Print",ExpressionUUID->"834a39c5-7e96-428a-9fcf-e49ceb6a90dc"],
+Cell[184905, 5118, 2380, 58, 70, "Print",ExpressionUUID->"6c9499e2-cf9d-4a70-a879-ea012afbc21b"],
+Cell[187288, 5178, 953, 21, 70, "Print",ExpressionUUID->"3d927461-cf7d-4455-8758-06d1b6abb078"],
+Cell[188244, 5201, 356, 6, 70, "Print",ExpressionUUID->"795142e9-2a45-4c03-8a8b-3836bb17e41c"],
+Cell[188603, 5209, 1365, 31, 70, "Print",ExpressionUUID->"968cd1a0-c950-41e7-a1e7-4986df0928e1"],
+Cell[189971, 5242, 609, 14, 70, "Print",ExpressionUUID->"d9658b3d-013b-4f2c-a5fe-83cf423e9539"],
+Cell[190583, 5258, 2380, 58, 70, "Print",ExpressionUUID->"12d7cf78-56b4-47b0-955f-ebc5986e3bb3"],
+Cell[192966, 5318, 955, 21, 70, "Print",ExpressionUUID->"b37479a1-e1ce-4914-b632-1a27882d32c4"],
+Cell[193924, 5341, 355, 6, 70, "Print",ExpressionUUID->"a47d3fc2-adee-4c1a-92e0-ba997601ac43"],
+Cell[194282, 5349, 1364, 31, 70, "Print",ExpressionUUID->"78e7ac62-1749-483a-9971-e2b16dc42f55"],
+Cell[195649, 5382, 601, 13, 70, "Print",ExpressionUUID->"f45abf84-18cf-49a3-b6fa-95b6f227d2aa"],
+Cell[196253, 5397, 2376, 58, 70, "Print",ExpressionUUID->"5540dbc0-52b9-4d7a-9601-47f2deec4785"],
+Cell[198632, 5457, 957, 21, 70, "Print",ExpressionUUID->"8007277e-3399-4338-87c5-8902bf2bbb29"],
+Cell[199592, 5480, 356, 6, 70, "Print",ExpressionUUID->"e998488d-32a1-48c0-a0fd-03730e499497"],
+Cell[199951, 5488, 1361, 31, 70, "Print",ExpressionUUID->"73b24749-f814-459c-8355-498666d13e16"],
+Cell[201315, 5521, 607, 14, 70, "Print",ExpressionUUID->"1e5e14b2-d98c-431f-9cc5-8f7bcaa497d7"],
+Cell[201925, 5537, 2379, 58, 70, "Print",ExpressionUUID->"aeacc1b9-90d9-497a-bfd5-75a48bffe367"],
+Cell[204307, 5597, 951, 21, 70, "Print",ExpressionUUID->"87d1f2bc-48aa-493b-a9fc-2925b14354ff"],
+Cell[205261, 5620, 358, 6, 70, "Print",ExpressionUUID->"eff99bf6-dd82-4786-af89-3aa6f82147df"],
+Cell[205622, 5628, 1365, 31, 70, "Print",ExpressionUUID->"a945a70e-a739-4e02-9ed4-9ab576e08841"],
+Cell[206990, 5661, 607, 14, 70, "Print",ExpressionUUID->"8b4b9605-3243-434f-8247-cbfe2e797ea0"],
+Cell[207600, 5677, 2380, 58, 70, "Print",ExpressionUUID->"518b366a-dc26-49c1-8f3d-d5635c1c24ed"],
+Cell[209983, 5737, 951, 21, 70, "Print",ExpressionUUID->"adb035f9-1cca-4c34-a7e8-998ab8626acf"],
+Cell[210937, 5760, 356, 6, 70, "Print",ExpressionUUID->"8242b651-e47c-4ddb-9055-4f30541f4ee9"],
+Cell[211296, 5768, 1362, 31, 70, "Print",ExpressionUUID->"0f88080a-eae1-4da3-9b4e-c3819745d7f7"],
+Cell[212661, 5801, 607, 14, 70, "Print",ExpressionUUID->"1fba4f3f-cf7d-450d-b762-73544ff2b86f"],
+Cell[213271, 5817, 2380, 58, 70, "Print",ExpressionUUID->"8c0b8238-be10-4d3c-85dc-b58295e98d1d"],
+Cell[215654, 5877, 930, 20, 70, "Print",ExpressionUUID->"f38ae927-a6c7-40f4-912e-5dadc4e39a11"],
+Cell[216587, 5899, 356, 6, 70, "Print",ExpressionUUID->"3b656c13-8cae-4d95-af99-b333432c03b4"],
+Cell[216946, 5907, 1363, 31, 70, "Print",ExpressionUUID->"08c6fab5-da91-40b6-b44c-8077d206d311"],
+Cell[218312, 5940, 607, 14, 70, "Print",ExpressionUUID->"d54bb780-8a15-4189-a906-0cfeafeafdfc"],
+Cell[218922, 5956, 2378, 58, 70, "Print",ExpressionUUID->"a008ac6e-0a20-4667-a93c-ba611212f427"],
+Cell[221303, 6016, 949, 21, 70, "Print",ExpressionUUID->"b4f1ac48-5098-4917-a9d9-961a3d09092e"],
+Cell[222255, 6039, 356, 6, 70, "Print",ExpressionUUID->"f2785632-cd19-40de-a47c-b2adb14c7cea"],
+Cell[222614, 6047, 1363, 31, 70, "Print",ExpressionUUID->"3584388a-4830-42e7-8649-927cd5da0979"],
+Cell[223980, 6080, 603, 13, 70, "Print",ExpressionUUID->"97b94049-d846-48a4-a6ef-ba3a9b0285cc"],
+Cell[224586, 6095, 2386, 58, 70, "Print",ExpressionUUID->"4aefc1c4-e14f-4396-b172-d71a759aae75"],
+Cell[226975, 6155, 955, 21, 70, "Print",ExpressionUUID->"27acec2e-4608-46dc-b472-c012d0c0876b"],
+Cell[227933, 6178, 356, 6, 70, "Print",ExpressionUUID->"44b1aa4b-209d-4baa-a24f-5086c84dd298"],
+Cell[228292, 6186, 1365, 31, 70, "Print",ExpressionUUID->"7d28ae1c-9c4e-4461-ae44-84ea961865eb"],
+Cell[229660, 6219, 606, 14, 70, "Print",ExpressionUUID->"2f03467d-55a9-4ef2-8f46-8f365c9550ba"],
+Cell[230269, 6235, 2384, 58, 70, "Print",ExpressionUUID->"71bc2fa4-c8a4-4f96-9517-5b80860f0e1b"],
+Cell[232656, 6295, 949, 21, 70, "Print",ExpressionUUID->"c6b5c1eb-2e88-4746-afc3-c6a28a0776f9"],
+Cell[233608, 6318, 355, 6, 70, "Print",ExpressionUUID->"c29a0cf5-44e0-434f-8ef9-915c6aa7b78b"],
+Cell[233966, 6326, 1362, 31, 70, "Print",ExpressionUUID->"1ff70608-ee41-4d91-94d0-47ec3d8eeef5"],
+Cell[235331, 6359, 607, 14, 70, "Print",ExpressionUUID->"015e02cd-5970-4642-812e-f86957fa6352"],
+Cell[235941, 6375, 2386, 58, 70, "Print",ExpressionUUID->"bf41335d-1484-4819-89b6-9a77fc51cffb"],
+Cell[238330, 6435, 932, 20, 70, "Print",ExpressionUUID->"8ba2ca15-2445-4bf3-9bf5-1648c068b58d"],
+Cell[239265, 6457, 356, 6, 70, "Print",ExpressionUUID->"f98245ed-6d42-440c-b3b0-af7b0e9b1310"],
+Cell[239624, 6465, 1368, 31, 70, "Print",ExpressionUUID->"52ff58b7-bcbb-4732-86a6-5cedca09e51a"],
+Cell[240995, 6498, 607, 14, 70, "Print",ExpressionUUID->"e9f1939d-01ac-4b90-8e73-5ab9ca262aa6"],
+Cell[241605, 6514, 2386, 58, 70, "Print",ExpressionUUID->"14f7a739-8c55-4e31-a4c7-ed6262c9f924"],
+Cell[243994, 6574, 953, 21, 70, "Print",ExpressionUUID->"844c8e48-6342-4a74-b4cc-fcdf912daf81"],
+Cell[244950, 6597, 356, 6, 70, "Print",ExpressionUUID->"91717aa5-cf17-49fe-a66f-1db4728624ff"],
+Cell[245309, 6605, 1364, 31, 70, "Print",ExpressionUUID->"b0799bcc-5929-48be-a1bb-7e57e7696cf5"],
+Cell[246676, 6638, 609, 14, 70, "Print",ExpressionUUID->"8e2d1172-2152-4f6d-9afc-128e71524f01"],
+Cell[247288, 6654, 2388, 58, 70, "Print",ExpressionUUID->"eb0170b0-4c82-43d8-99b1-a3fa4b532864"],
+Cell[249679, 6714, 951, 21, 70, "Print",ExpressionUUID->"6bbd950a-f602-4ee1-afe1-c578f08c04b9"],
+Cell[250633, 6737, 358, 6, 70, "Print",ExpressionUUID->"c6a16f31-324f-4a94-b14b-61aaa71c1e09"],
+Cell[250994, 6745, 1365, 31, 70, "Print",ExpressionUUID->"fc291cc6-3449-4d31-9660-047e450d5b0c"],
+Cell[252362, 6778, 607, 14, 70, "Print",ExpressionUUID->"1b41cd17-d54f-4e00-80e8-778e552a5bf6"],
+Cell[252972, 6794, 2386, 58, 70, "Print",ExpressionUUID->"f08a789b-191e-4369-93f5-0eb954d9b45d"],
+Cell[255361, 6854, 951, 21, 70, "Print",ExpressionUUID->"3caec7b6-c37d-4c29-b0e6-37f91e096e2e"],
+Cell[256315, 6877, 358, 6, 70, "Print",ExpressionUUID->"80cd2451-e3eb-4644-a342-d9ebaf984af0"],
+Cell[256676, 6885, 1365, 31, 70, "Print",ExpressionUUID->"83f39111-b73d-40ad-9887-9ecaeed8279a"],
+Cell[258044, 6918, 607, 14, 70, "Print",ExpressionUUID->"b88b6f11-908c-443f-b390-82298db77fa5"],
+Cell[258654, 6934, 2385, 58, 70, "Print",ExpressionUUID->"67dc7748-cf1b-45de-bf9d-a817896c79de"],
+Cell[261042, 6994, 957, 21, 70, "Print",ExpressionUUID->"1565cc7e-e17a-43d6-a0c4-08d4db388bf9"],
+Cell[262002, 7017, 356, 6, 70, "Print",ExpressionUUID->"7ff6d5f1-6010-4688-8e73-b55e33ca4e99"],
+Cell[262361, 7025, 1367, 31, 70, "Print",ExpressionUUID->"b96f086f-c5e9-418c-936b-5da2dbbd2049"],
+Cell[263731, 7058, 601, 13, 70, "Print",ExpressionUUID->"3b25356b-39ec-4310-9e74-0915ffa6556d"],
+Cell[264335, 7073, 2388, 58, 70, "Print",ExpressionUUID->"adbc6861-3376-4a17-a2dc-98aff4a6157e"],
+Cell[266726, 7133, 934, 20, 70, "Print",ExpressionUUID->"6406a1eb-22e1-4186-9f7b-16d73f0a7161"],
+Cell[267663, 7155, 356, 6, 70, "Print",ExpressionUUID->"e3a20f1b-6dd6-442d-8949-5ed9b009620e"],
+Cell[268022, 7163, 1368, 31, 70, "Print",ExpressionUUID->"30c24c95-84b8-4017-83a7-04efa39d7984"],
+Cell[269393, 7196, 599, 13, 70, "Print",ExpressionUUID->"1292d6ae-e52f-4597-9820-dd9c1542875e"],
+Cell[269995, 7211, 2386, 58, 70, "Print",ExpressionUUID->"4ce84bba-ed5b-4912-a87e-d017019db3b0"],
+Cell[272384, 7271, 951, 21, 70, "Print",ExpressionUUID->"7663382a-1639-4c1d-96f6-516910e22016"],
+Cell[273338, 7294, 356, 6, 70, "Print",ExpressionUUID->"9720bfa9-5fef-4b33-a27c-8bd0ac8d03fc"],
+Cell[273697, 7302, 1365, 31, 70, "Print",ExpressionUUID->"3006a0a1-3369-445b-8ab3-dc86fef9f3c4"],
+Cell[275065, 7335, 607, 14, 70, "Print",ExpressionUUID->"5960055f-053d-4f00-9839-7eb8669cb960"],
+Cell[275675, 7351, 2389, 58, 70, "Print",ExpressionUUID->"ec044b45-14cd-484f-87cf-b7be0430bec7"],
+Cell[278067, 7411, 951, 21, 70, "Print",ExpressionUUID->"26dae4f4-955d-4c75-9c77-71bc02358aac"],
+Cell[279021, 7434, 356, 6, 70, "Print",ExpressionUUID->"58570d09-48bd-47d7-ac76-6d9f2b805e5e"],
+Cell[279380, 7442, 1368, 31, 70, "Print",ExpressionUUID->"a776d78a-3b50-4601-8993-92cca9d0a0e9"],
+Cell[280751, 7475, 607, 14, 70, "Print",ExpressionUUID->"c65d4891-a863-455d-99b8-e8bed2da03c2"],
+Cell[281361, 7491, 2392, 58, 70, "Print",ExpressionUUID->"5c6dfbd4-6420-4b19-880c-5f9bf3be7e3a"],
+Cell[283756, 7551, 950, 21, 70, "Print",ExpressionUUID->"8a24e389-459e-45bc-9ef4-a24988f1992f"],
+Cell[284709, 7574, 356, 6, 70, "Print",ExpressionUUID->"db872d3f-faf9-4ca7-adea-02d5070e6ef6"],
+Cell[285068, 7582, 1367, 31, 70, "Print",ExpressionUUID->"d128c7bb-a005-40be-97b6-4240102f0121"],
+Cell[286438, 7615, 601, 13, 70, "Print",ExpressionUUID->"2401ebf9-e724-4db5-93ea-6c72c32201f1"],
+Cell[287042, 7630, 2392, 58, 70, "Print",ExpressionUUID->"e06d10cd-48cd-4d1b-906c-b35cf680eafd"],
+Cell[289437, 7690, 930, 20, 70, "Print",ExpressionUUID->"e3142b9e-973a-4a5c-87d5-5f70dd0df856"],
+Cell[290370, 7712, 358, 6, 70, "Print",ExpressionUUID->"87a5e5cc-38a6-4833-b32d-9bab517cb4cf"],
+Cell[290731, 7720, 1367, 31, 70, "Print",ExpressionUUID->"ff760149-a9fc-4861-a745-801f8e982515"],
+Cell[292101, 7753, 601, 13, 70, "Print",ExpressionUUID->"1fb90b11-7bb8-4a6c-beb3-e1f9d1802020"],
+Cell[292705, 7768, 2392, 58, 70, "Print",ExpressionUUID->"2b50558a-e6fc-4e0b-bfa8-827a6a241ee0"],
+Cell[295100, 7828, 932, 20, 70, "Print",ExpressionUUID->"0d2fc467-8b7f-475f-ae57-3f6699404950"],
+Cell[296035, 7850, 356, 6, 70, "Print",ExpressionUUID->"88b53acb-fda1-4a89-844e-54876cfa7595"],
+Cell[296394, 7858, 1363, 31, 70, "Print",ExpressionUUID->"d7799aab-7bb1-477e-b87d-bdea1aa4fea6"],
+Cell[297760, 7891, 601, 13, 70, "Print",ExpressionUUID->"9b858de6-c7db-40a9-a340-eee6def99d2d"],
+Cell[298364, 7906, 2392, 58, 70, "Print",ExpressionUUID->"93aa74b9-2238-46f3-91ee-65687218c169"],
+Cell[300759, 7966, 947, 21, 70, "Print",ExpressionUUID->"384d6884-32ca-444f-abc2-70bfcef2ff3d"],
+Cell[301709, 7989, 356, 6, 70, "Print",ExpressionUUID->"ed54ee22-77bc-4963-90b0-aa1b0a458134"],
+Cell[302068, 7997, 1366, 31, 70, "Print",ExpressionUUID->"b643ce6e-aec4-497c-a322-44bd40e64125"],
+Cell[303437, 8030, 607, 14, 70, "Print",ExpressionUUID->"bb0b1000-c2dd-472b-8c10-a39f9d97450d"],
+Cell[304047, 8046, 2391, 58, 70, "Print",ExpressionUUID->"f56a5aa4-6d4a-4987-97a6-e99822498cde"],
+Cell[306441, 8106, 931, 20, 70, "Print",ExpressionUUID->"54d604c2-10f3-4401-8b49-13b6cffe7616"],
+Cell[307375, 8128, 358, 6, 70, "Print",ExpressionUUID->"30b6e98a-4352-4ea0-b069-e7d7f4e3b8dc"],
+Cell[307736, 8136, 1366, 31, 70, "Print",ExpressionUUID->"39da1548-6161-4737-8af5-1de4e8af054c"],
+Cell[309105, 8169, 607, 14, 70, "Print",ExpressionUUID->"1c97c664-6efe-4dac-8b2a-026825a6e37c"],
+Cell[309715, 8185, 2388, 58, 70, "Print",ExpressionUUID->"970cf1b8-318a-49c8-8662-8abd16b4bfb2"],
+Cell[312106, 8245, 947, 21, 70, "Print",ExpressionUUID->"0b494e4e-a8bd-4b86-8db2-503ae4cfd6ea"],
+Cell[313056, 8268, 356, 6, 70, "Print",ExpressionUUID->"c5b10636-876f-4715-bd71-f1b166b0e1b8"],
+Cell[313415, 8276, 1365, 31, 70, "Print",ExpressionUUID->"58fffe59-2249-4a39-b079-311e16767b72"],
+Cell[314783, 8309, 603, 13, 70, "Print",ExpressionUUID->"b69a63ab-aed2-4b96-8b51-2369a6246c3e"],
+Cell[315389, 8324, 2388, 58, 70, "Print",ExpressionUUID->"774d2dba-f68c-49af-894e-1d5cf00b9143"],
+Cell[317780, 8384, 932, 20, 70, "Print",ExpressionUUID->"1f423c08-297d-4b7d-9cb8-4d27d3f287c0"],
+Cell[318715, 8406, 356, 6, 70, "Print",ExpressionUUID->"86c7bc57-2731-411f-925e-ce57db33b41f"],
+Cell[319074, 8414, 1367, 31, 70, "Print",ExpressionUUID->"7a43d904-6a67-4914-bb6c-22ea864bc2aa"],
+Cell[320444, 8447, 607, 14, 70, "Print",ExpressionUUID->"0defb15a-48f0-4616-ac55-ac58a02b5986"],
+Cell[321054, 8463, 2388, 58, 70, "Print",ExpressionUUID->"66711ca8-b7c5-4d4b-8209-8bd75a7b6952"],
+Cell[323445, 8523, 953, 21, 70, "Print",ExpressionUUID->"28db79ae-9b32-4bfc-9f29-84514b25dc18"],
+Cell[324401, 8546, 356, 6, 70, "Print",ExpressionUUID->"5fe588d4-322e-4277-beb8-32cce15818f2"],
+Cell[324760, 8554, 1367, 31, 70, "Print",ExpressionUUID->"426ee5a5-ba37-45f7-83e3-ea3e19517ba7"],
+Cell[326130, 8587, 607, 14, 70, "Print",ExpressionUUID->"02c0c823-594d-4d34-9d61-11dcd21d29df"],
+Cell[326740, 8603, 2392, 58, 70, "Print",ExpressionUUID->"d37d0978-0ad0-40b4-8b12-6de88ee8911a"],
+Cell[329135, 8663, 949, 21, 70, "Print",ExpressionUUID->"fe855364-d529-4a1a-b610-249fae9a2b5a"],
+Cell[330087, 8686, 356, 6, 70, "Print",ExpressionUUID->"5098cb8b-ab5d-4206-bf96-038ebf59f98f"],
+Cell[330446, 8694, 1363, 31, 70, "Print",ExpressionUUID->"90292d55-f805-415c-831d-29236e286db9"],
+Cell[331812, 8727, 603, 13, 70, "Print",ExpressionUUID->"6f241a6f-2354-449d-9946-fa0d6655f4b2"],
+Cell[332418, 8742, 2394, 58, 70, "Print",ExpressionUUID->"5df0a41d-060f-44a2-aa4e-5f8178e2165f"],
+Cell[334815, 8802, 930, 20, 70, "Print",ExpressionUUID->"780440ad-f855-4a92-a2b6-b820fc050aa2"],
+Cell[335748, 8824, 358, 6, 70, "Print",ExpressionUUID->"585886fe-7144-42fd-8bd5-b8a6ee58d826"],
+Cell[336109, 8832, 1369, 31, 70, "Print",ExpressionUUID->"9a8cf8fd-0a8f-4d84-b01b-53f80907880a"],
+Cell[337481, 8865, 607, 14, 70, "Print",ExpressionUUID->"62321fd3-2c57-4f7f-9f7b-f9eeaa9cd818"],
+Cell[338091, 8881, 2392, 58, 70, "Print",ExpressionUUID->"ff2bfc76-6d39-48cb-86a7-bb078c12d7b8"],
+Cell[340486, 8941, 951, 21, 70, "Print",ExpressionUUID->"f0c10542-7687-4934-b588-f935153251f4"],
+Cell[341440, 8964, 358, 6, 70, "Print",ExpressionUUID->"2a85ae2d-73f3-481a-9490-b308325c720e"],
+Cell[341801, 8972, 1366, 31, 70, "Print",ExpressionUUID->"468e1df9-453e-431b-aee5-30b4fa03376c"],
+Cell[343170, 9005, 601, 13, 70, "Print",ExpressionUUID->"0665d3af-eb7a-44a9-b46e-3455e5195176"],
+Cell[343774, 9020, 2392, 58, 70, "Print",ExpressionUUID->"c96d4594-d2d4-4900-8803-21703d05aa60"],
+Cell[346169, 9080, 953, 21, 70, "Print",ExpressionUUID->"fe7b86cd-d098-49da-a5fb-37b5102a2fb5"],
+Cell[347125, 9103, 356, 6, 70, "Print",ExpressionUUID->"dfae6690-74a9-4684-a2ec-5e73d1beaba2"],
+Cell[347484, 9111, 1367, 31, 70, "Print",ExpressionUUID->"48c3bbb4-fb6f-4d11-b42f-50291d554526"],
+Cell[348854, 9144, 609, 14, 70, "Print",ExpressionUUID->"a5796798-c574-4e07-81bb-851a5dbd267e"],
+Cell[349466, 9160, 2392, 58, 70, "Print",ExpressionUUID->"0b40341e-909a-4742-88ab-2d35103b6d00"],
+Cell[351861, 9220, 953, 21, 70, "Print",ExpressionUUID->"e9486ea0-6e76-4fd0-a20c-77001cf19ac6"],
+Cell[352817, 9243, 356, 6, 70, "Print",ExpressionUUID->"44ec4fac-4b5c-4362-8549-f94d7c35c812"],
+Cell[353176, 9251, 1364, 31, 70, "Print",ExpressionUUID->"2b617cb8-b6ec-457c-b828-b103912f85f4"],
+Cell[354543, 9284, 607, 14, 70, "Print",ExpressionUUID->"8233ed81-aeb0-4ba7-8e7c-3f9254dbc4e0"],
+Cell[355153, 9300, 2394, 58, 70, "Print",ExpressionUUID->"b67020f4-c616-4f24-ae44-7859d44eb9a2"],
+Cell[357550, 9360, 951, 21, 70, "Print",ExpressionUUID->"3a2fe4a8-3f98-4d96-8b09-7a6ff9da9dfd"],
+Cell[358504, 9383, 358, 6, 70, "Print",ExpressionUUID->"8cad7e81-de34-4edf-be04-58379dbd58d0"],
+Cell[358865, 9391, 1367, 31, 70, "Print",ExpressionUUID->"cc93ed39-fa85-4861-b1be-79650deb580c"],
+Cell[360235, 9424, 609, 14, 70, "Print",ExpressionUUID->"ad19c3de-4f9c-4b34-a278-02c043092db4"],
+Cell[360847, 9440, 2394, 58, 70, "Print",ExpressionUUID->"18371f68-5061-4961-83af-c009e10f7e38"],
+Cell[363244, 9500, 947, 21, 70, "Print",ExpressionUUID->"baa9a5b1-6c5a-4b7f-9a01-85af5d08530d"],
+Cell[364194, 9523, 356, 6, 70, "Print",ExpressionUUID->"26f3f20e-c025-4361-8954-5d9cf6efb797"],
+Cell[364553, 9531, 1366, 31, 70, "Print",ExpressionUUID->"67fbcdce-0105-4ffd-8198-f68a2121ca63"],
+Cell[365922, 9564, 601, 13, 70, "Print",ExpressionUUID->"99f93606-c18a-45dd-92cb-628a5ceb2675"],
+Cell[366526, 9579, 2392, 58, 70, "Print",ExpressionUUID->"d603b266-cf12-43de-9709-a166af915ec9"],
+Cell[368921, 9639, 934, 20, 70, "Print",ExpressionUUID->"fcff42eb-e47d-44b3-8797-e9ca57f5536d"],
+Cell[369858, 9661, 354, 6, 70, "Print",ExpressionUUID->"8ddb3e43-43ff-490a-95ad-07c2d6fa24ba"],
+Cell[370215, 9669, 1369, 31, 70, "Print",ExpressionUUID->"bb09aaef-0e30-4452-a37a-0b099f1fcb1d"],
+Cell[371587, 9702, 609, 14, 70, "Print",ExpressionUUID->"5b27663a-2ee2-4a53-8c77-50faffbc81f3"],
+Cell[372199, 9718, 2383, 58, 70, "Print",ExpressionUUID->"9d228ab5-6179-45e9-8e49-b4d60c2178d9"],
+Cell[374585, 9778, 947, 21, 70, "Print",ExpressionUUID->"04e08135-eb87-4a09-ac1e-d2f6c0bd1fa7"],
+Cell[375535, 9801, 356, 6, 70, "Print",ExpressionUUID->"fdea92c4-535a-4bb4-9bac-aa4aaa97bf4c"],
+Cell[375894, 9809, 1365, 31, 70, "Print",ExpressionUUID->"2dd4105e-d326-4ce2-80ad-39167d449189"],
+Cell[377262, 9842, 607, 14, 70, "Print",ExpressionUUID->"218c1570-d79a-47c6-af5c-2a7ff46adba4"],
+Cell[377872, 9858, 2387, 58, 70, "Print",ExpressionUUID->"38d8a894-fd3a-4f43-b693-97d99fefb4e3"],
+Cell[380262, 9918, 936, 20, 70, "Print",ExpressionUUID->"bded28f3-c23a-4e46-bdd5-dc8d763b8184"],
+Cell[381201, 9940, 358, 6, 70, "Print",ExpressionUUID->"987429aa-843d-4ba0-938a-72601fec30fd"],
+Cell[381562, 9948, 1365, 31, 70, "Print",ExpressionUUID->"263ac1b5-fd60-4ce5-9cba-44240fce01e3"],
+Cell[382930, 9981, 607, 14, 70, "Print",ExpressionUUID->"b7264267-6579-4fc2-bb80-b6a7d6889a28"],
+Cell[383540, 9997, 2388, 58, 70, "Print",ExpressionUUID->"4aed7980-d5ef-469c-8c64-7fcecdf06967"],
+Cell[385931, 10057, 953, 21, 70, "Print",ExpressionUUID->"34bcfc16-3fb6-4c68-8da7-71c02440454d"],
+Cell[386887, 10080, 356, 6, 70, "Print",ExpressionUUID->"74ba5aa5-1c53-4c07-8dd0-ce38a6cc2bcc"],
+Cell[387246, 10088, 1367, 31, 70, "Print",ExpressionUUID->"ef721b3f-d718-46c4-968c-8bef8fa28a96"],
+Cell[388616, 10121, 609, 14, 70, "Print",ExpressionUUID->"9d18f9d6-ff4d-41cc-879b-1660eb241cdb"],
+Cell[389228, 10137, 2389, 58, 70, "Print",ExpressionUUID->"216ed6ea-0e67-476c-8965-9dd6ea6046b9"],
+Cell[391620, 10197, 930, 20, 70, "Print",ExpressionUUID->"b830340d-1a33-4434-b49e-d08189ca5a37"],
+Cell[392553, 10219, 358, 6, 70, "Print",ExpressionUUID->"b01f86af-e64c-4cda-9e16-8a42bb73a918"],
+Cell[392914, 10227, 1367, 31, 70, "Print",ExpressionUUID->"41fc3e43-34c2-4e28-957a-ccc584e64255"],
+Cell[394284, 10260, 609, 14, 70, "Print",ExpressionUUID->"4f7346ee-ef7d-442d-bfbb-e05bd1f35d89"],
+Cell[394896, 10276, 2394, 58, 70, "Print",ExpressionUUID->"3f6a4c85-599e-475b-81b9-a8e9f78b3db3"],
+Cell[397293, 10336, 932, 20, 70, "Print",ExpressionUUID->"9e3665de-e164-4657-a827-68751eaab653"],
+Cell[398228, 10358, 356, 6, 70, "Print",ExpressionUUID->"63d9b424-c48d-4d56-aa38-8c1c68f415af"],
+Cell[398587, 10366, 1365, 31, 70, "Print",ExpressionUUID->"3ded7508-b71d-4231-90a0-8a8453c79292"],
+Cell[399955, 10399, 607, 14, 70, "Print",ExpressionUUID->"0563a748-8b42-4219-be67-129934a0fdb9"],
+Cell[400565, 10415, 2389, 58, 70, "Print",ExpressionUUID->"4023ea12-1d39-4249-af13-0917a45be150"],
+Cell[402957, 10475, 950, 21, 70, "Print",ExpressionUUID->"c9bc975e-e352-493d-8c05-f4d3dd0e6f3a"],
+Cell[403910, 10498, 358, 6, 70, "Print",ExpressionUUID->"6747fd88-d5ed-47de-a52e-54bd2616efc7"],
+Cell[404271, 10506, 1366, 31, 70, "Print",ExpressionUUID->"c943feb1-32ad-4a3c-8be8-dee0776e5552"],
+Cell[405640, 10539, 603, 13, 70, "Print",ExpressionUUID->"f1382c0b-97e6-4fef-817b-c7dd634a0820"],
+Cell[406246, 10554, 2392, 58, 70, "Print",ExpressionUUID->"046d9eef-0299-4987-b9d2-b85084d79fe7"],
+Cell[408641, 10614, 928, 20, 70, "Print",ExpressionUUID->"882ba43d-8a2f-42a5-90e5-a1b1bef3642c"],
+Cell[409572, 10636, 356, 6, 70, "Print",ExpressionUUID->"dd77aa24-7bcb-4272-b478-cc83ff90b769"],
+Cell[409931, 10644, 1366, 31, 70, "Print",ExpressionUUID->"92f20278-4e1f-4858-acfe-eb0af00d0fc5"],
+Cell[411300, 10677, 607, 14, 70, "Print",ExpressionUUID->"64cfc2b6-aa90-46e9-82d5-baea246dfd65"],
+Cell[411910, 10693, 2392, 58, 70, "Print",ExpressionUUID->"9ce70bb2-fc79-46a9-b3ab-6ce0e2603951"],
+Cell[414305, 10753, 934, 20, 70, "Print",ExpressionUUID->"e78548dd-2850-4a96-ac83-89ece1f2d110"],
+Cell[415242, 10775, 356, 6, 70, "Print",ExpressionUUID->"f6f7c70f-f596-4494-afb1-c8717865025c"],
+Cell[415601, 10783, 1367, 31, 70, "Print",ExpressionUUID->"40f491fe-6c8d-4a0f-ac38-55d02fecd33c"],
+Cell[416971, 10816, 609, 14, 70, "Print",ExpressionUUID->"455dba1b-a039-4263-b795-be6f3f63e6f7"],
+Cell[417583, 10832, 2392, 58, 70, "Print",ExpressionUUID->"3eb0399e-db3d-42e2-b0a0-92c2e5069e57"],
+Cell[419978, 10892, 930, 20, 70, "Print",ExpressionUUID->"53f99260-084f-46ee-8a03-abf9d5db427f"],
+Cell[420911, 10914, 356, 6, 70, "Print",ExpressionUUID->"18ec9fd9-8026-4865-a7e5-066190c9f4d8"],
+Cell[421270, 10922, 1365, 31, 70, "Print",ExpressionUUID->"41b8d430-9e96-4e1a-88dd-611206fb3ff2"],
+Cell[422638, 10955, 607, 14, 70, "Print",ExpressionUUID->"56d958aa-2e18-4f5f-9d62-15d77b4cedd6"],
+Cell[423248, 10971, 2392, 58, 70, "Print",ExpressionUUID->"c7698683-bdfc-416e-942b-a7a11e5adf47"],
+Cell[425643, 11031, 934, 20, 70, "Print",ExpressionUUID->"4060d096-dfe1-44f9-ac0e-6e92579ae7e3"],
+Cell[426580, 11053, 356, 6, 70, "Print",ExpressionUUID->"80d5a0fe-cfab-4d8a-a66d-b55909f2eff7"],
+Cell[426939, 11061, 1369, 31, 70, "Print",ExpressionUUID->"d9f5e193-c687-46ad-b963-92990dd8c830"],
+Cell[428311, 11094, 609, 14, 70, "Print",ExpressionUUID->"7b2be49a-0d72-4c7b-9f8c-b65b2cc08825"],
+Cell[428923, 11110, 2392, 58, 70, "Print",ExpressionUUID->"dd1f46c7-af2c-43bc-8c48-b4721997d34c"],
+Cell[431318, 11170, 930, 20, 70, "Print",ExpressionUUID->"3e5763e2-06d3-4a48-8553-0739a3d906c1"],
+Cell[432251, 11192, 356, 6, 70, "Print",ExpressionUUID->"d697590d-958c-4150-8679-6cd5240980a0"],
+Cell[432610, 11200, 1367, 31, 70, "Print",ExpressionUUID->"b11723ca-3586-4bc6-b52e-b5b9c0dabaee"],
+Cell[433980, 11233, 607, 14, 70, "Print",ExpressionUUID->"031d565a-643f-44b9-a215-6336e1985d61"],
+Cell[434590, 11249, 2391, 58, 70, "Print",ExpressionUUID->"9a006a8e-837f-409e-84e5-308c84b5e5f7"],
+Cell[436984, 11309, 930, 20, 70, "Print",ExpressionUUID->"5bf91de8-eb71-46d4-89d5-86d197b6f39c"],
+Cell[437917, 11331, 356, 6, 70, "Print",ExpressionUUID->"fd682804-3865-422f-8206-b80f34a1b282"],
+Cell[438276, 11339, 1361, 31, 70, "Print",ExpressionUUID->"e41e97f2-a869-401c-a1db-f661cdd6669d"],
+Cell[439640, 11372, 607, 14, 70, "Print",ExpressionUUID->"965556e9-7c1b-4fa1-beab-8d4fb537a809"],
+Cell[440250, 11388, 2389, 58, 70, "Print",ExpressionUUID->"45579c0a-58c0-4c92-a76f-9ca13d1e82b7"],
+Cell[442642, 11448, 932, 20, 70, "Print",ExpressionUUID->"fa02ee06-0755-4ff7-b9ba-dbbcf2627977"],
+Cell[443577, 11470, 356, 6, 70, "Print",ExpressionUUID->"c903e3f6-503d-43c6-8cfa-d33576bb2a08"],
+Cell[443936, 11478, 1367, 31, 70, "Print",ExpressionUUID->"e546243e-9f19-456f-9040-a7191bb0a655"],
+Cell[445306, 11511, 607, 14, 70, "Print",ExpressionUUID->"bfb25cbf-6d8a-428f-a622-f37a9841ec30"],
+Cell[445916, 11527, 2388, 58, 70, "Print",ExpressionUUID->"7034b823-c255-41a5-9029-a43429fcdbab"],
+Cell[448307, 11587, 930, 20, 70, "Print",ExpressionUUID->"09ed33b4-be0f-4b01-a4cb-823febbf999d"],
+Cell[449240, 11609, 356, 6, 70, "Print",ExpressionUUID->"f56d8086-6dd6-4db8-9878-4d0c88b72831"],
+Cell[449599, 11617, 1364, 31, 70, "Print",ExpressionUUID->"47842431-004e-45a3-96ef-b6816dec2184"],
+Cell[450966, 11650, 607, 14, 70, "Print",ExpressionUUID->"9911c0d5-31b6-457d-9321-60d9eadb94a3"],
+Cell[451576, 11666, 2386, 58, 70, "Print",ExpressionUUID->"aab49015-37d2-4815-bc9e-121d8fc4fc1b"],
+Cell[453965, 11726, 953, 21, 70, "Print",ExpressionUUID->"5c8dc4e5-18de-4f63-b71a-d99715773167"],
+Cell[454921, 11749, 356, 6, 70, "Print",ExpressionUUID->"91aadabb-f6dc-47f2-8020-c3f79f1d4ea1"],
+Cell[455280, 11757, 1369, 31, 70, "Print",ExpressionUUID->"2b89223e-d4d6-415a-8ea8-98589bb766d6"],
+Cell[456652, 11790, 607, 14, 70, "Print",ExpressionUUID->"012d991d-176f-4c32-8cb1-83e3015e2e05"],
+Cell[457262, 11806, 2392, 58, 70, "Print",ExpressionUUID->"89f0618f-cae3-4a11-bde5-934886142605"],
+Cell[459657, 11866, 926, 20, 70, "Print",ExpressionUUID->"a1115776-1b45-4716-b244-b39ad02c3cdd"],
+Cell[460586, 11888, 356, 6, 70, "Print",ExpressionUUID->"763f65c2-d11e-4fac-acdc-c304b25b3270"],
+Cell[460945, 11896, 1366, 31, 70, "Print",ExpressionUUID->"71e1a5c0-c1f4-467c-a41d-9b345d838ef7"],
+Cell[462314, 11929, 607, 14, 70, "Print",ExpressionUUID->"94211f21-767d-4a44-9a61-9344275ef92e"],
+Cell[462924, 11945, 2392, 58, 70, "Print",ExpressionUUID->"7b8a16a8-b34c-4ffc-926a-ee29f09123a8"],
+Cell[465319, 12005, 934, 20, 70, "Print",ExpressionUUID->"57fd96d7-c55f-4aa6-8d1a-232548810b6c"],
+Cell[466256, 12027, 356, 6, 70, "Print",ExpressionUUID->"3ea11052-9614-4045-a6e0-9c602c42a54b"],
+Cell[466615, 12035, 1365, 31, 70, "Print",ExpressionUUID->"295f0629-a41a-41cd-a03a-bfadfa37f798"],
+Cell[467983, 12068, 607, 14, 70, "Print",ExpressionUUID->"91adfea2-4a7c-4fbc-9d7c-cd671922d2b2"],
+Cell[468593, 12084, 2386, 58, 70, "Print",ExpressionUUID->"b23fc0db-0617-485d-983b-869ad3379e03"],
+Cell[470982, 12144, 934, 20, 70, "Print",ExpressionUUID->"8cb3dbc6-5611-4f14-b56f-1928d07989aa"],
+Cell[471919, 12166, 356, 6, 70, "Print",ExpressionUUID->"1b5ca2be-2214-4c51-854c-8c17755a99f7"],
+Cell[472278, 12174, 1366, 31, 70, "Print",ExpressionUUID->"f636dd1e-b9f9-42da-b580-69f5c7d8e0c2"],
+Cell[473647, 12207, 607, 14, 70, "Print",ExpressionUUID->"7b44a048-197c-40ed-bb4a-a62f423b399b"],
+Cell[474257, 12223, 2392, 58, 70, "Print",ExpressionUUID->"272cc8d4-2562-4db3-926d-87b8bf9ea458"],
+Cell[476652, 12283, 955, 21, 70, "Print",ExpressionUUID->"cb5bd963-3311-4d09-b3a7-0a220377f362"],
+Cell[477610, 12306, 356, 6, 70, "Print",ExpressionUUID->"cb682ce7-6941-48db-82ea-c9a3b0f89747"],
+Cell[477969, 12314, 1365, 31, 70, "Print",ExpressionUUID->"971a3235-2c0b-4f9d-a891-b0bda4d6ca99"],
+Cell[479337, 12347, 601, 13, 70, "Print",ExpressionUUID->"11fb7afa-fedb-4776-b12d-afb57acf0712"],
+Cell[479941, 12362, 2386, 58, 70, "Print",ExpressionUUID->"92a412ab-f0b2-4861-a2c9-eb4b2d9b9fcf"],
+Cell[482330, 12422, 953, 21, 70, "Print",ExpressionUUID->"66ca4b38-4d96-463f-ab55-485494f33654"],
+Cell[483286, 12445, 356, 6, 70, "Print",ExpressionUUID->"463d25a0-f1d6-4965-8ee6-4abd395a4855"],
+Cell[483645, 12453, 1365, 31, 70, "Print",ExpressionUUID->"49092413-749e-406a-b55a-64517d877fb5"],
+Cell[485013, 12486, 609, 14, 70, "Print",ExpressionUUID->"f978c92f-a79c-4829-acfe-28174a21c569"],
+Cell[485625, 12502, 2389, 58, 70, "Print",ExpressionUUID->"e042dc5d-80b6-41ee-bb38-63c3ed048738"],
+Cell[488017, 12562, 930, 20, 70, "Print",ExpressionUUID->"9338fb08-882e-4bc8-9d69-900989f6e66c"],
+Cell[488950, 12584, 356, 6, 70, "Print",ExpressionUUID->"97265acc-8c9b-4c51-b3d2-54e02ec5fe35"],
+Cell[489309, 12592, 1367, 31, 70, "Print",ExpressionUUID->"de630bc1-f19c-436c-adaf-50040cb7b595"],
+Cell[490679, 12625, 601, 13, 70, "Print",ExpressionUUID->"bcc0c3c5-5c14-4ef5-8f14-63ccc4ea9098"],
+Cell[491283, 12640, 2386, 58, 70, "Print",ExpressionUUID->"5976bef1-bcb5-401c-afc5-1071b75c8144"],
+Cell[493672, 12700, 932, 20, 70, "Print",ExpressionUUID->"81bd355b-a941-491a-b98a-c57025620757"],
+Cell[494607, 12722, 356, 6, 70, "Print",ExpressionUUID->"c9e30685-63b8-4b3c-91fd-3b5c6eb63eaf"],
+Cell[494966, 12730, 1367, 31, 70, "Print",ExpressionUUID->"1f6b7ae1-79a1-471d-b9cf-23f1f3c09de7"],
+Cell[496336, 12763, 607, 14, 70, "Print",ExpressionUUID->"aec632f2-05d7-473c-a2f2-38ce8eaec065"],
+Cell[496946, 12779, 2391, 58, 70, "Print",ExpressionUUID->"3fcb3ab0-3a51-48eb-8f7c-9f33753b4070"],
+Cell[499340, 12839, 930, 20, 70, "Print",ExpressionUUID->"d3043ddf-720c-4cbe-b199-ac6d3496c696"],
+Cell[500273, 12861, 358, 6, 70, "Print",ExpressionUUID->"729cdfec-91c5-411f-bef2-9cf5f15d1ea3"],
+Cell[500634, 12869, 1365, 31, 70, "Print",ExpressionUUID->"3a95063b-51ca-4d78-ba45-e2e5e902e1d7"],
+Cell[502002, 12902, 607, 14, 70, "Print",ExpressionUUID->"5fac5ea3-98ef-41b8-84d7-5a6310d19603"],
+Cell[502612, 12918, 2382, 58, 70, "Print",ExpressionUUID->"7e796950-dc23-415d-a6dc-a953f1a4e24d"],
+Cell[504997, 12978, 932, 20, 70, "Print",ExpressionUUID->"930bc6f0-7709-448b-813e-49ba8339b9a7"],
+Cell[505932, 13000, 356, 6, 70, "Print",ExpressionUUID->"c6566b0c-37ed-49d2-99d4-03c536dc7315"],
+Cell[506291, 13008, 1371, 31, 70, "Print",ExpressionUUID->"94cb6f5e-1980-4a61-80cf-59ce2053f2a2"],
+Cell[507665, 13041, 603, 13, 70, "Print",ExpressionUUID->"a8ed6682-9cbe-436e-bdab-14ed0afccc56"],
+Cell[508271, 13056, 2385, 58, 70, "Print",ExpressionUUID->"891fcd8c-64b2-4d36-899d-75aa1cb397fb"],
+Cell[510659, 13116, 930, 20, 70, "Print",ExpressionUUID->"2bb5e3e2-1cfb-41b7-8e16-a135086a9191"],
+Cell[511592, 13138, 356, 6, 70, "Print",ExpressionUUID->"4b8d2888-4e1f-4a35-bfca-df2e2fd476f4"],
+Cell[511951, 13146, 1368, 31, 70, "Print",ExpressionUUID->"8cf25419-3d19-43af-a3d7-014abfbb50bc"],
+Cell[513322, 13179, 609, 14, 70, "Print",ExpressionUUID->"8c6a537b-bb95-46df-a050-be320b07b8a2"],
+Cell[513934, 13195, 2386, 58, 70, "Print",ExpressionUUID->"984d28d1-569e-4207-8525-5b4341853711"],
+Cell[516323, 13255, 955, 21, 70, "Print",ExpressionUUID->"46f71b60-7b80-4d90-af6c-d8db3d47b2c1"],
+Cell[517281, 13278, 358, 6, 70, "Print",ExpressionUUID->"a7e8555b-bc8e-4cb6-9268-07f6e35c482d"],
+Cell[517642, 13286, 1367, 31, 70, "Print",ExpressionUUID->"733a628c-a0e0-468d-be88-ef945396b80f"],
+Cell[519012, 13319, 607, 14, 70, "Print",ExpressionUUID->"06ae0f0a-203e-4faf-92de-3b942c2dc683"],
+Cell[519622, 13335, 2392, 58, 70, "Print",ExpressionUUID->"5687ad29-34a8-40c2-babd-3aec3b000060"],
+Cell[522017, 13395, 934, 20, 70, "Print",ExpressionUUID->"7eaf3f19-5747-4bdd-aa42-8e95f8c16d17"],
+Cell[522954, 13417, 358, 6, 70, "Print",ExpressionUUID->"9aef6464-dfaa-4ac9-8318-b8285b85d132"],
+Cell[523315, 13425, 1371, 31, 70, "Print",ExpressionUUID->"f0f190f6-16e5-4a32-894c-d685edffadce"],
+Cell[524689, 13458, 606, 14, 70, "Print",ExpressionUUID->"8e49d9a4-ca6d-4316-85f8-67fd99deaf14"],
+Cell[525298, 13474, 2389, 58, 70, "Print",ExpressionUUID->"0fd02f45-301b-40be-9812-7827115264bc"],
+Cell[527690, 13534, 953, 21, 70, "Print",ExpressionUUID->"5982b940-35fe-4d46-9130-f6c4b2a654ee"],
+Cell[528646, 13557, 358, 6, 70, "Print",ExpressionUUID->"a0687dad-0c5d-4533-ba99-99226a74d741"],
+Cell[529007, 13565, 1367, 31, 70, "Print",ExpressionUUID->"35b9288a-d313-4638-964d-4841866bd3cb"],
+Cell[530377, 13598, 607, 14, 70, "Print",ExpressionUUID->"4bfe9ded-e801-43df-a741-1ff9bc4f3fdb"],
+Cell[530987, 13614, 2386, 58, 70, "Print",ExpressionUUID->"a4b5ad59-9040-47fc-84e9-3fa48bfbef04"],
+Cell[533376, 13674, 953, 21, 70, "Print",ExpressionUUID->"0a9e5fc7-8c4d-44c2-8d41-7e51129289fc"],
+Cell[534332, 13697, 356, 6, 70, "Print",ExpressionUUID->"ad5a1b0b-cd7c-4edf-8e4c-80b893dd731b"],
+Cell[534691, 13705, 1366, 31, 70, "Print",ExpressionUUID->"7a09a6a5-1eb1-4549-890e-9b003f41dc33"],
+Cell[536060, 13738, 607, 14, 70, "Print",ExpressionUUID->"93059289-38cb-4b36-9500-e3641b5a9740"],
+Cell[536670, 13754, 2391, 58, 70, "Print",ExpressionUUID->"605cad53-a0a2-4c98-9d17-582b21663390"],
+Cell[539064, 13814, 929, 20, 70, "Print",ExpressionUUID->"c6ccfab6-2b00-4b9e-90b6-fd1424e10a5e"],
+Cell[539996, 13836, 356, 6, 70, "Print",ExpressionUUID->"3906a4ca-84f6-43e5-95f0-37d0bfba55ca"],
+Cell[540355, 13844, 1370, 31, 70, "Print",ExpressionUUID->"2234fe67-0774-45c8-aa38-fe4233a32347"],
+Cell[541728, 13877, 601, 13, 70, "Print",ExpressionUUID->"70a3100f-eba2-44e7-83dd-7376ce246d24"],
+Cell[542332, 13892, 2389, 58, 70, "Print",ExpressionUUID->"bb8ed424-24d7-461d-83d8-e8864e97df64"],
+Cell[544724, 13952, 926, 20, 70, "Print",ExpressionUUID->"599b71d3-2a01-4e6e-a3b1-f9546bc7a70e"],
+Cell[545653, 13974, 356, 6, 70, "Print",ExpressionUUID->"e1ab0e19-10f0-4d7c-8596-11459f1fdbff"],
+Cell[546012, 13982, 1368, 31, 70, "Print",ExpressionUUID->"023743e2-91ea-4a0b-a37f-a37f77818dfb"],
+Cell[547383, 14015, 599, 13, 70, "Print",ExpressionUUID->"771e4310-1f8c-4b52-b0df-21597f8ff247"],
+Cell[547985, 14030, 2389, 58, 70, "Print",ExpressionUUID->"b26da2f2-950b-4b42-9e9f-72a205a1dd5a"],
+Cell[550377, 14090, 953, 21, 70, "Print",ExpressionUUID->"e8bd5586-5932-40dc-a4c4-4adb9d7d2862"],
+Cell[551333, 14113, 356, 6, 70, "Print",ExpressionUUID->"f5277e44-83b0-4193-971b-baf940f4d156"],
+Cell[551692, 14121, 1368, 31, 70, "Print",ExpressionUUID->"9f313893-f53d-4d53-8f10-58a8f1cef273"],
+Cell[553063, 14154, 603, 13, 70, "Print",ExpressionUUID->"3a6d3747-8cdb-402e-a687-286a75a9771a"],
+Cell[553669, 14169, 2386, 58, 70, "Print",ExpressionUUID->"1e296223-2a94-4dfb-8ed9-6999a481bd7c"],
+Cell[556058, 14229, 930, 20, 70, "Print",ExpressionUUID->"58f58f2c-63c2-42b6-a1d9-9b7f269a24bf"],
+Cell[556991, 14251, 356, 6, 70, "Print",ExpressionUUID->"2283467d-2df3-4769-8d15-ed8cf02f2207"],
+Cell[557350, 14259, 1368, 31, 70, "Print",ExpressionUUID->"4ba90a3e-eaa3-4dc6-8292-7bd6e0bc1a54"],
+Cell[558721, 14292, 607, 14, 70, "Print",ExpressionUUID->"983ba94a-f21b-4898-8faf-1f99c5911050"],
+Cell[559331, 14308, 2386, 58, 70, "Print",ExpressionUUID->"7f9b949b-0a5a-43bb-8474-6c289e57d6a8"],
+Cell[561720, 14368, 951, 21, 70, "Print",ExpressionUUID->"bf6137af-73bd-4cde-8629-694e8e5317a3"],
+Cell[562674, 14391, 356, 6, 70, "Print",ExpressionUUID->"86348f90-702c-486d-b3ba-889db5f64759"],
+Cell[563033, 14399, 1365, 31, 70, "Print",ExpressionUUID->"4cecc060-06a2-44be-9658-2e3689da38ad"],
+Cell[564401, 14432, 607, 14, 70, "Print",ExpressionUUID->"9d93200f-7ddb-4b5d-badc-fa23103d0c38"],
+Cell[565011, 14448, 2394, 58, 70, "Print",ExpressionUUID->"96edc982-15e4-4ba1-8aea-ad6d5d7a03b7"],
+Cell[567408, 14508, 928, 20, 70, "Print",ExpressionUUID->"65c20f3b-ed3a-4951-a5ec-6ddef2dec37e"],
+Cell[568339, 14530, 356, 6, 70, "Print",ExpressionUUID->"88571ea4-0431-4b51-8cee-a04919b57d9f"],
+Cell[568698, 14538, 1369, 31, 70, "Print",ExpressionUUID->"bf9d991d-4153-4407-8cbb-1181dab04c1a"],
+Cell[570070, 14571, 601, 13, 70, "Print",ExpressionUUID->"7ef27ed5-eca7-41c3-bed0-f615308b85d0"],
+Cell[570674, 14586, 2386, 58, 70, "Print",ExpressionUUID->"b6fee19b-79ca-4884-a30c-305ee446c052"],
+Cell[573063, 14646, 951, 21, 70, "Print",ExpressionUUID->"da97e8a3-4af0-4bb0-b584-37a5a126f46c"],
+Cell[574017, 14669, 358, 6, 70, "Print",ExpressionUUID->"565e5489-441f-49a7-9311-1c4372b51bb4"],
+Cell[574378, 14677, 1367, 31, 70, "Print",ExpressionUUID->"27d593f1-5dae-43f4-8094-44ded9f47959"],
+Cell[575748, 14710, 603, 13, 70, "Print",ExpressionUUID->"46846c3c-7105-4041-a9e5-4da8955f506a"],
+Cell[576354, 14725, 2388, 58, 70, "Print",ExpressionUUID->"59b6b089-d297-4119-879c-07b26554a6f2"],
+Cell[578745, 14785, 951, 21, 70, "Print",ExpressionUUID->"e406d044-7202-42b7-99ae-9aaec1bfff4d"],
+Cell[579699, 14808, 356, 6, 70, "Print",ExpressionUUID->"1a549c3b-1070-4e52-aa5b-d38fab8b9060"],
+Cell[580058, 14816, 1369, 31, 70, "Print",ExpressionUUID->"989239bc-e830-4d13-aff3-c2e442f0382e"],
+Cell[581430, 14849, 607, 14, 70, "Print",ExpressionUUID->"369b5f2e-8ae5-420d-9776-927fab8dd59c"],
+Cell[582040, 14865, 2376, 58, 70, "Print",ExpressionUUID->"23bee1ae-1f04-4541-9d70-988b71188c9a"],
+Cell[584419, 14925, 955, 21, 70, "Print",ExpressionUUID->"aa156a06-7f30-4269-b9d1-d678febe54cd"],
+Cell[585377, 14948, 355, 6, 70, "Print",ExpressionUUID->"3ac04f09-607e-4676-92ff-6d34d33407d7"],
+Cell[585735, 14956, 1366, 31, 70, "Print",ExpressionUUID->"49bb139a-c8ba-409e-89ce-3e30ac20db3e"],
+Cell[587104, 14989, 603, 13, 70, "Print",ExpressionUUID->"eb8918d3-cd1f-4526-92d7-ec8ac2cf3d20"],
+Cell[587710, 15004, 2386, 58, 70, "Print",ExpressionUUID->"b32a6d9a-ba6c-4831-93c8-30c64bb1b703"],
+Cell[590099, 15064, 953, 21, 70, "Print",ExpressionUUID->"c436659d-87ca-4197-9927-960ea2f64459"],
+Cell[591055, 15087, 358, 6, 70, "Print",ExpressionUUID->"31592db7-c0a2-4ee6-b106-368e0eee2769"],
+Cell[591416, 15095, 1369, 31, 70, "Print",ExpressionUUID->"9f638638-f938-405b-8f04-d3478d43a5be"],
+Cell[592788, 15128, 601, 13, 70, "Print",ExpressionUUID->"4c2a43d2-2eb2-4742-8897-eb3028f1b73f"],
+Cell[593392, 15143, 2388, 58, 70, "Print",ExpressionUUID->"fe2424b4-2ada-470b-b77c-826eb33c2adc"],
+Cell[595783, 15203, 930, 20, 70, "Print",ExpressionUUID->"84f8e10a-be47-4565-b154-bcf444f9fcc5"],
+Cell[596716, 15225, 356, 6, 70, "Print",ExpressionUUID->"758289e8-60dd-46c6-9e4a-0bd5fb8f50de"],
+Cell[597075, 15233, 1369, 31, 70, "Print",ExpressionUUID->"0b0ecc8e-349b-4628-ad2c-f019e2166f47"],
+Cell[598447, 15266, 607, 14, 70, "Print",ExpressionUUID->"a6a3275f-6d04-41cf-87db-e09667ab1f06"],
+Cell[599057, 15282, 2385, 58, 70, "Print",ExpressionUUID->"45e2bdb6-f421-4d29-91ab-fc8b662df736"],
+Cell[601445, 15342, 936, 20, 70, "Print",ExpressionUUID->"eddd3e57-ff64-4005-8fb6-31dee871bb74"],
+Cell[602384, 15364, 358, 6, 70, "Print",ExpressionUUID->"3c67510c-e034-45e0-b35b-7c0adfccf895"],
+Cell[602745, 15372, 1369, 31, 70, "Print",ExpressionUUID->"c68c6b2f-4c39-4cbc-8ceb-a70da5687bae"],
+Cell[604117, 15405, 607, 14, 70, "Print",ExpressionUUID->"23964b64-3151-43c3-9ed7-124bac911fc2"],
+Cell[604727, 15421, 2392, 58, 70, "Print",ExpressionUUID->"99d69e46-acd0-46b6-8a47-529dd9fadfc6"],
+Cell[607122, 15481, 953, 21, 70, "Print",ExpressionUUID->"b628e002-7bea-452b-b785-f9e063620df6"],
+Cell[608078, 15504, 356, 6, 70, "Print",ExpressionUUID->"413bfb64-5a6f-44b4-9147-dff1947a88d8"],
+Cell[608437, 15512, 1369, 31, 70, "Print",ExpressionUUID->"541ac11b-873c-40ee-b652-e1a3077f041d"],
+Cell[609809, 15545, 601, 13, 70, "Print",ExpressionUUID->"5f4efb84-8758-4f42-a1f6-9ecff9edce3f"],
+Cell[610413, 15560, 2392, 58, 70, "Print",ExpressionUUID->"431f66b5-adef-4dad-9ac9-ab4dc6b91b49"],
+Cell[612808, 15620, 949, 21, 70, "Print",ExpressionUUID->"bd01458c-d518-444d-ba97-cea373fe1af3"],
+Cell[613760, 15643, 358, 6, 70, "Print",ExpressionUUID->"36afe035-f86f-453a-8377-c6dd7bdbe582"],
+Cell[614121, 15651, 1369, 31, 70, "Print",ExpressionUUID->"471a88e3-2c12-4577-9e56-7cb15dba93b7"],
+Cell[615493, 15684, 607, 14, 70, "Print",ExpressionUUID->"f26797b6-8183-4f75-8eae-9d0fcddde3eb"],
+Cell[616103, 15700, 2382, 58, 70, "Print",ExpressionUUID->"be160f58-396d-4054-bae3-03f9d09ec919"],
+Cell[618488, 15760, 932, 20, 70, "Print",ExpressionUUID->"ee3f1965-bf57-4931-8a2e-76d22241f3f9"],
+Cell[619423, 15782, 356, 6, 70, "Print",ExpressionUUID->"8789daec-2f4f-45b2-a52b-d25258a38d67"],
+Cell[619782, 15790, 1369, 31, 70, "Print",ExpressionUUID->"245aab8e-7929-4ce6-a8c7-50ce679aba55"],
+Cell[621154, 15823, 607, 14, 70, "Print",ExpressionUUID->"91b0d13a-6d2d-4110-a799-7bba91d3ae36"],
+Cell[621764, 15839, 2386, 58, 70, "Print",ExpressionUUID->"2baa4d8a-8ae8-43ae-8f45-56871aa56526"],
+Cell[624153, 15899, 953, 21, 70, "Print",ExpressionUUID->"b356cf61-be92-4195-a161-45a9683f8035"],
+Cell[625109, 15922, 356, 6, 70, "Print",ExpressionUUID->"c15cedad-703e-4b73-906f-20071b676ed5"],
+Cell[625468, 15930, 1364, 31, 70, "Print",ExpressionUUID->"b9ef5c1c-fb5d-49fa-8312-cfc9252970ba"],
+Cell[626835, 15963, 601, 13, 70, "Print",ExpressionUUID->"f72f8099-ee7a-49f2-a43a-45d9e4593103"],
+Cell[627439, 15978, 2386, 58, 70, "Print",ExpressionUUID->"76fb7f3c-fa72-4b81-828c-39f46840e1e1"],
+Cell[629828, 16038, 951, 21, 70, "Print",ExpressionUUID->"619734f3-d816-4666-a6c0-a2246beccb29"],
+Cell[630782, 16061, 356, 6, 70, "Print",ExpressionUUID->"4862dfb2-0fe7-4710-9fa3-0ae39ce25d9a"],
+Cell[631141, 16069, 1368, 31, 70, "Print",ExpressionUUID->"8e048c36-5dda-4700-ade3-ffb9e4e955b2"],
+Cell[632512, 16102, 601, 13, 70, "Print",ExpressionUUID->"81e825b9-a987-4ad8-a7a8-dbfb22e77ceb"],
+Cell[633116, 16117, 2389, 58, 70, "Print",ExpressionUUID->"4e6cd0e8-5c91-425b-8b0b-6a65acb088db"],
+Cell[635508, 16177, 953, 21, 70, "Print",ExpressionUUID->"cbd90c01-6f4c-4b39-b292-fee60332a73a"],
+Cell[636464, 16200, 356, 6, 70, "Print",ExpressionUUID->"f5bc4947-a196-4d46-9dc6-0eccc708f1e9"],
+Cell[636823, 16208, 1369, 31, 70, "Print",ExpressionUUID->"f5be3210-7a0f-437c-86f4-9ad4d78effc7"],
+Cell[638195, 16241, 606, 14, 70, "Print",ExpressionUUID->"8016eef7-4ad5-4e03-bb7a-037f953af076"],
+Cell[638804, 16257, 2386, 58, 70, "Print",ExpressionUUID->"3330d9c6-7a94-4fcb-b7be-05ceb6e38d93"],
+Cell[641193, 16317, 949, 21, 70, "Print",ExpressionUUID->"913091fe-9ae9-439b-af9b-e2a39b2c74fb"],
+Cell[642145, 16340, 356, 6, 70, "Print",ExpressionUUID->"8a2d2400-2592-4fdb-a9e1-714323deb8f4"],
+Cell[642504, 16348, 1369, 31, 70, "Print",ExpressionUUID->"af245c59-2fc1-4a5d-882e-934b01a6faf8"],
+Cell[643876, 16381, 601, 13, 70, "Print",ExpressionUUID->"78971901-63a9-48b1-9123-9e6268bb05d1"],
+Cell[644480, 16396, 2392, 58, 70, "Print",ExpressionUUID->"4a0d7b26-ec4b-4a5a-bc24-a23f1d279d3f"],
+Cell[646875, 16456, 953, 21, 70, "Print",ExpressionUUID->"d209b240-0dc2-489d-b562-e110c902b43f"],
+Cell[647831, 16479, 358, 6, 70, "Print",ExpressionUUID->"a564d5a6-325e-441b-9a43-0d2b20a013f9"],
+Cell[648192, 16487, 1367, 31, 70, "Print",ExpressionUUID->"6cdfc9ad-e586-4538-8274-5e47d5967b58"],
+Cell[649562, 16520, 607, 14, 70, "Print",ExpressionUUID->"2b880955-a5d7-4dcc-9438-8bea51d0552a"],
+Cell[650172, 16536, 2392, 58, 70, "Print",ExpressionUUID->"3642ad04-e85e-4585-9866-afb7cbb766b2"],
+Cell[652567, 16596, 932, 20, 70, "Print",ExpressionUUID->"bb40d0db-f8c4-4d55-b7c3-18cbebe8814d"],
+Cell[653502, 16618, 358, 6, 70, "Print",ExpressionUUID->"776ad4b3-62cf-4577-8ec2-d1d40934ff41"],
+Cell[653863, 16626, 1368, 31, 70, "Print",ExpressionUUID->"62b3e6de-449b-44b1-a495-578f3109c415"],
+Cell[655234, 16659, 606, 14, 70, "Print",ExpressionUUID->"adc38275-ee26-458e-bbe4-53ec21cc7978"],
+Cell[655843, 16675, 2388, 58, 70, "Print",ExpressionUUID->"7d90ee3c-899b-4576-a654-1065602ef8b4"],
+Cell[658234, 16735, 951, 21, 70, "Print",ExpressionUUID->"dd94e709-9331-4171-a5ce-5b6680238fb9"],
+Cell[659188, 16758, 356, 6, 70, "Print",ExpressionUUID->"84cca7ee-ff71-4cda-9fd2-6249ac84a833"],
+Cell[659547, 16766, 1367, 31, 70, "Print",ExpressionUUID->"e1e088d6-57ee-48af-b4e6-a2fc933a98f5"],
+Cell[660917, 16799, 601, 13, 70, "Print",ExpressionUUID->"6d3ac516-c299-479b-b273-b284e9f61fbf"],
+Cell[661521, 16814, 2389, 58, 70, "Print",ExpressionUUID->"f35380ff-4e4e-4a45-b944-357771e687fb"],
+Cell[663913, 16874, 953, 21, 70, "Print",ExpressionUUID->"def2ed1a-0645-4b6d-a988-e2cf1bc73df8"],
+Cell[664869, 16897, 355, 6, 70, "Print",ExpressionUUID->"405fb037-76f8-4df6-b20d-e45ecfdaac13"],
+Cell[665227, 16905, 1369, 31, 70, "Print",ExpressionUUID->"6fbe1793-1680-4911-96bf-67d3802b4ff0"],
+Cell[666599, 16938, 601, 13, 70, "Print",ExpressionUUID->"e3ab0f6f-1dd8-42ef-b3cb-dae0d0fe6c3e"],
+Cell[667203, 16953, 2386, 58, 70, "Print",ExpressionUUID->"a54a476e-7c7d-412d-a8c9-c689255b135b"],
+Cell[669592, 17013, 955, 21, 70, "Print",ExpressionUUID->"8cff45db-fb94-4e46-94db-a5db8216d2bb"],
+Cell[670550, 17036, 356, 6, 70, "Print",ExpressionUUID->"059281a0-50a7-4041-b015-8792a04db84e"],
+Cell[670909, 17044, 1369, 31, 70, "Print",ExpressionUUID->"03cb83e6-96e2-4474-a20c-3a6cd7e248e3"],
+Cell[672281, 17077, 601, 13, 70, "Print",ExpressionUUID->"75fbf2ab-e572-4e16-bdd7-2878671c352f"],
+Cell[672885, 17092, 2392, 58, 70, "Print",ExpressionUUID->"3724af36-bf69-4476-8c10-4ee55677eab7"],
+Cell[675280, 17152, 936, 20, 70, "Print",ExpressionUUID->"b23d55c2-d716-44b4-aaf8-7e70e3da6899"],
+Cell[676219, 17174, 356, 6, 70, "Print",ExpressionUUID->"5d84938f-4526-4086-966a-c340a31846a6"],
+Cell[676578, 17182, 1371, 31, 70, "Print",ExpressionUUID->"328dca0a-c9fd-4da3-acdc-88a31b0fce70"],
+Cell[677952, 17215, 601, 13, 70, "Print",ExpressionUUID->"cea20dc0-2d87-4f77-bc59-3c528c3e6123"],
+Cell[678556, 17230, 2389, 58, 70, "Print",ExpressionUUID->"931b9036-1c00-42b3-8004-4570a4f36ee1"],
+Cell[680948, 17290, 932, 20, 70, "Print",ExpressionUUID->"9433585a-a639-4e6c-8bcb-fb20e6057c7d"],
+Cell[681883, 17312, 358, 6, 70, "Print",ExpressionUUID->"a461e1f1-e267-4665-82f9-c34a00f57726"],
+Cell[682244, 17320, 1367, 31, 70, "Print",ExpressionUUID->"d2ba80a9-2e0e-480c-872a-1827fb83fd4b"],
+Cell[683614, 17353, 601, 13, 70, "Print",ExpressionUUID->"42848de5-2a63-41af-b418-e30a673c60c1"],
+Cell[684218, 17368, 2386, 58, 70, "Print",ExpressionUUID->"83a345b1-89cb-4ae9-93a6-2fc1fa4b760c"],
+Cell[686607, 17428, 953, 21, 70, "Print",ExpressionUUID->"87694c90-3a67-415f-8ffd-192dd9488433"],
+Cell[687563, 17451, 356, 6, 70, "Print",ExpressionUUID->"9d440630-7f6c-4cc4-9dc6-500bbdcd0558"],
+Cell[687922, 17459, 1365, 31, 70, "Print",ExpressionUUID->"2626e11d-bca8-4223-a91e-70f8f93ea5ca"],
+Cell[689290, 17492, 603, 13, 70, "Print",ExpressionUUID->"6779bfc6-a774-46e8-8123-95a86c1f85e8"],
+Cell[689896, 17507, 2384, 58, 70, "Print",ExpressionUUID->"4cd005d6-c3b5-4d4d-9b5d-b8203dda30fb"],
+Cell[692283, 17567, 932, 20, 70, "Print",ExpressionUUID->"7b59ebf5-59df-4a1e-9920-2cba5a3f9f0e"],
+Cell[693218, 17589, 356, 6, 70, "Print",ExpressionUUID->"28d280d8-6dad-4ab1-9f1b-1abda1f66072"],
+Cell[693577, 17597, 1368, 31, 70, "Print",ExpressionUUID->"eb9d3282-fa73-4603-aa28-f6e4dd3fa190"],
+Cell[694948, 17630, 601, 13, 70, "Print",ExpressionUUID->"66fdd51a-0d2b-41d7-8373-2ff4cbb91f0d"],
+Cell[695552, 17645, 2388, 58, 70, "Print",ExpressionUUID->"dc8fcf6a-02a2-4938-b754-ae4fadcabded"],
+Cell[697943, 17705, 951, 21, 70, "Print",ExpressionUUID->"bf6fa01c-1fe8-4842-b40b-9ee652387180"],
+Cell[698897, 17728, 356, 6, 70, "Print",ExpressionUUID->"ebf99ddd-9870-4990-850d-0b4a34d8bcc7"],
+Cell[699256, 17736, 1368, 31, 70, "Print",ExpressionUUID->"9a25117f-462a-4702-a604-d441780d2c2c"],
+Cell[700627, 17769, 609, 14, 70, "Print",ExpressionUUID->"02971c0d-123d-4fda-a00c-1468246d1099"],
+Cell[701239, 17785, 2386, 58, 70, "Print",ExpressionUUID->"d4e55c65-6a4d-4881-bdac-4537978a61f1"],
+Cell[703628, 17845, 928, 20, 70, "Print",ExpressionUUID->"b36e26e1-bcdd-4f60-b974-4d52d08aa435"],
+Cell[704559, 17867, 356, 6, 70, "Print",ExpressionUUID->"77847d11-240e-45b5-8d0a-2cce5a237d93"],
+Cell[704918, 17875, 1369, 31, 70, "Print",ExpressionUUID->"40ad8544-3ab6-4225-a4fc-a83b9a11be3a"],
+Cell[706290, 17908, 601, 13, 70, "Print",ExpressionUUID->"d7d31018-1e6f-4d41-92e2-be996b7a40ed"],
+Cell[706894, 17923, 2386, 58, 70, "Print",ExpressionUUID->"fbf94d99-fcf0-43fa-9a55-0f53227dad99"],
+Cell[709283, 17983, 927, 20, 70, "Print",ExpressionUUID->"61a6376b-81dc-4c9c-bb98-09866caa8efb"],
+Cell[710213, 18005, 355, 6, 70, "Print",ExpressionUUID->"746b3fb7-9dfb-42ae-89d2-9f8976b2e54a"],
+Cell[710571, 18013, 1370, 31, 70, "Print",ExpressionUUID->"8b77145c-1fb1-460e-9f2f-eddf0cb9fb46"],
+Cell[711944, 18046, 607, 14, 70, "Print",ExpressionUUID->"b8a15a5e-1da0-453b-8425-ecb1baecb5da"],
+Cell[712554, 18062, 2385, 58, 70, "Print",ExpressionUUID->"f1692fa0-03a9-4457-a29c-88203fab64a8"],
+Cell[714942, 18122, 932, 20, 70, "Print",ExpressionUUID->"dd002ff3-11af-4faf-9adf-9ade2cf73956"],
+Cell[715877, 18144, 358, 6, 70, "Print",ExpressionUUID->"1329fb05-b49e-49ea-877a-955d845915f6"],
+Cell[716238, 18152, 1365, 31, 70, "Print",ExpressionUUID->"b0f4feab-9950-4787-b270-3fbbd1586d42"],
+Cell[717606, 18185, 603, 13, 70, "Print",ExpressionUUID->"033b26cd-16fe-459c-9dba-43b39a61a53f"],
+Cell[718212, 18200, 2381, 58, 70, "Print",ExpressionUUID->"1865eeb6-a662-4d89-be87-85f564a6e93f"],
+Cell[720596, 18260, 951, 21, 70, "Print",ExpressionUUID->"362f7568-654f-43e8-b4b1-c1ee858b71a8"],
+Cell[721550, 18283, 356, 6, 70, "Print",ExpressionUUID->"9ad200a0-877b-4ac8-ad0b-7bfd01bb7db6"],
+Cell[721909, 18291, 1369, 31, 70, "Print",ExpressionUUID->"12936065-31fa-408e-8e91-3805050030aa"],
+Cell[723281, 18324, 603, 13, 70, "Print",ExpressionUUID->"ad044920-fb3e-4db8-98fb-e544ec0d4b16"],
+Cell[723887, 18339, 2379, 58, 70, "Print",ExpressionUUID->"f3d7fc40-1357-472d-afaf-1a71424608d3"],
+Cell[726269, 18399, 947, 21, 70, "Print",ExpressionUUID->"3c3b0fc9-0626-4cd4-b722-a5ee5308bef4"],
+Cell[727219, 18422, 356, 6, 70, "Print",ExpressionUUID->"eada0d4b-93dd-4310-89fa-b8e8bd7cc9ce"],
+Cell[727578, 18430, 1369, 31, 70, "Print",ExpressionUUID->"db987301-974e-43d9-a14d-ebd51a49425d"],
+Cell[728950, 18463, 601, 13, 70, "Print",ExpressionUUID->"783e343f-dea4-4677-932e-aedec4b72382"],
+Cell[729554, 18478, 2385, 58, 70, "Print",ExpressionUUID->"8f6a365d-e975-4ab0-8f5e-20054e7f0e50"],
+Cell[731942, 18538, 950, 21, 70, "Print",ExpressionUUID->"7f5bbdc2-6fbb-48f1-89ff-9ea1a26b2cff"],
+Cell[732895, 18561, 355, 6, 70, "Print",ExpressionUUID->"dc493663-94c2-4a6e-aff4-f655fd7825e7"],
+Cell[733253, 18569, 1370, 31, 70, "Print",ExpressionUUID->"0ab2f7b4-3562-4a1e-9c89-b126c0434cf4"],
+Cell[734626, 18602, 599, 13, 70, "Print",ExpressionUUID->"ac8f7582-34e0-48b3-9c83-833f1470d29b"],
+Cell[735228, 18617, 2385, 58, 70, "Print",ExpressionUUID->"3e6265f1-3c14-41cd-8ba6-005b2752921e"],
+Cell[737616, 18677, 953, 21, 70, "Print",ExpressionUUID->"eddc7907-e64d-4378-a841-fbffe7659acd"],
+Cell[738572, 18700, 356, 6, 70, "Print",ExpressionUUID->"8dabde11-5390-4e4d-8651-65e2b33ad0c3"],
+Cell[738931, 18708, 1369, 31, 70, "Print",ExpressionUUID->"37c010b0-02aa-407f-bcf6-7b0ced0c8e70"],
+Cell[740303, 18741, 606, 14, 70, "Print",ExpressionUUID->"3e6e0295-29e2-4974-b6b4-644f317a5a24"],
+Cell[740912, 18757, 2383, 58, 70, "Print",ExpressionUUID->"27b28897-a50d-4cbe-8dbf-7c3706375c1b"],
+Cell[743298, 18817, 955, 21, 70, "Print",ExpressionUUID->"3afbffdf-2c31-4175-a8ae-2e767810cbd4"],
+Cell[744256, 18840, 356, 6, 70, "Print",ExpressionUUID->"654e6a17-57a6-4493-89f7-46cf1580e913"],
+Cell[744615, 18848, 1368, 31, 70, "Print",ExpressionUUID->"a014316f-677b-4efc-8b8b-50fe07ecab7d"],
+Cell[745986, 18881, 607, 14, 70, "Print",ExpressionUUID->"f81e7a07-dcc0-4032-9fc9-0ed2a93705a6"],
+Cell[746596, 18897, 2385, 58, 70, "Print",ExpressionUUID->"aa6ae7fe-cdb9-4b90-9661-1056d0ae2455"],
+Cell[748984, 18957, 959, 21, 70, "Print",ExpressionUUID->"f121eb12-4f12-4b61-a487-93ea4d70121f"],
+Cell[749946, 18980, 358, 6, 70, "Print",ExpressionUUID->"4c10586c-6e00-4a40-a049-d6e8c2ee815e"],
+Cell[750307, 18988, 1369, 31, 70, "Print",ExpressionUUID->"6c34de07-7f7a-4850-aa29-32e7c7e09002"],
+Cell[751679, 19021, 607, 14, 70, "Print",ExpressionUUID->"f188bcb3-d946-4b62-bd64-757616323a21"],
+Cell[752289, 19037, 2389, 58, 70, "Print",ExpressionUUID->"d790908f-3b57-4ed8-8e09-082cf7a0c1dd"],
+Cell[754681, 19097, 951, 21, 70, "Print",ExpressionUUID->"318e647d-c02e-4239-bc9f-51489b9295a0"],
+Cell[755635, 19120, 354, 6, 70, "Print",ExpressionUUID->"46e064ac-0576-4526-9c3f-4967911e386d"],
+Cell[755992, 19128, 1367, 31, 70, "Print",ExpressionUUID->"2320453e-e053-4a0e-b44d-99f37b7b8ada"],
+Cell[757362, 19161, 601, 13, 70, "Print",ExpressionUUID->"900fcd85-bc7a-46a3-9c79-bd0037c3f524"],
+Cell[757966, 19176, 2389, 58, 70, "Print",ExpressionUUID->"3e8e5b1e-491c-49b5-8263-2a03c55c7e2a"],
+Cell[760358, 19236, 955, 21, 70, "Print",ExpressionUUID->"ef4b13dd-9b03-471c-808b-393588091b4e"],
+Cell[761316, 19259, 358, 6, 70, "Print",ExpressionUUID->"536ff5aa-2693-460a-a0c2-3f1ce9909f76"],
+Cell[761677, 19267, 1369, 31, 70, "Print",ExpressionUUID->"12ad1ef5-4b41-4df0-b0dc-f1aaad3c9c56"],
+Cell[763049, 19300, 607, 14, 70, "Print",ExpressionUUID->"8015bcc8-97f2-4b56-a458-c3a235628b0f"],
+Cell[763659, 19316, 2392, 58, 70, "Print",ExpressionUUID->"27d4284c-c5f5-4b51-9f7e-8cbc20f7231d"],
+Cell[766054, 19376, 953, 21, 70, "Print",ExpressionUUID->"36481142-bfcc-4949-b943-d6c84795ab9f"],
+Cell[767010, 19399, 356, 6, 70, "Print",ExpressionUUID->"ac57248c-64a3-4352-9898-d8d9beb228dd"],
+Cell[767369, 19407, 1367, 31, 70, "Print",ExpressionUUID->"6d09de06-b3e1-484f-ae79-7754c09139bc"]
+}, Open ]]
+}, Closed]],
+Cell[768763, 19442, 745, 17, 48, "Input",ExpressionUUID->"be1b5917-86e0-4f8f-ab7c-013dff2fc709"],
+Cell[769511, 19461, 2834, 80, 262, "Input",ExpressionUUID->"7c34c081-0d57-45d4-b481-65643a160950"],
+Cell[772348, 19543, 2641, 77, 262, "Input",ExpressionUUID->"be5d4c82-6a54-4c5a-8b2e-19158848b27a"],
+Cell[774992, 19622, 2642, 77, 262, "Input",ExpressionUUID->"eaf57a4f-3045-4699-97c2-79ae6aae197d"],
+Cell[777637, 19701, 2641, 77, 262, "Input",ExpressionUUID->"2c25bb8c-6725-44e1-8da6-eaf8faa31ba6"],
+Cell[780281, 19780, 2643, 77, 262, "Input",ExpressionUUID->"3bc26d5f-2281-4004-8ecf-fe01e98ab1ee"],
+Cell[782927, 19859, 2643, 77, 262, "Input",ExpressionUUID->"407f66be-8c97-4a6e-8fae-98888429e4a7"],
+Cell[785573, 19938, 2617, 76, 241, "Input",ExpressionUUID->"ae404f70-9594-4115-b289-51307bc065ef"]
}
]
*)