Commit 38bac032 authored by Reyesrivera, Jose's avatar Reyesrivera, Jose
Browse files

minor changes

parent 0707f061
No preview for this file type
This diff is collapsed.
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 12.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 10498, 323]
NotebookOptionsPosition[ 9230, 293]
NotebookOutlinePosition[ 9567, 308]
CellTagsIndexPosition[ 9524, 305]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.7932110353607597`*^9,
3.793211038136951*^9}},ExpressionUUID->"6d49109d-70a6-447a-b1fa-\
2627594590ee"],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{"Substitution", " ", "of", " ", "all", " ",
RowBox[{"kinematic", "/", "mandelstam"}], " ", "variables", " ", "and",
" ", "fundamental", " ", "constants"}], " ", "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"ppppT", "=",
RowBox[{"Chop", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"tjetspppp", "//.", "KinRules"}], "//.", "KinSub"}], "//.",
"FundConst"}], "//", "Simplify"}], ",",
RowBox[{"10", "^",
RowBox[{"-", "10"}]}]}], "]"}]}], ";"}]}]], "Input",
CellChangeTimes->{{3.793211297340543*^9, 3.7932113288208523`*^9}},
CellLabel->
"In[749]:=",ExpressionUUID->"b77d2aef-d6af-41f3-865f-17377a8d6f91"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{
"Value", " ", "is", " ", "in", " ", "terms", " ", "of", " ", "color", " ",
"factors"}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{"pppp", "=", "ppppT"}]}]], "Input",
CellChangeTimes->{
3.793211090725462*^9, {3.7932113330460987`*^9, 3.793211344813838*^9}},
CellLabel->
"In[750]:=",ExpressionUUID->"cf57c31b-6665-46e1-86cd-2862fdab8adb"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"0.021853601053662065`", "\[VeryThinSpace]", "-",
RowBox[{"0.029815238473201614`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
"c1"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"0.004566232331164794`", "\[VeryThinSpace]", "+",
RowBox[{"0.03206563917082358`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
"c2"}], "-",
RowBox[{
RowBox[{"(",
RowBox[{"0.026419833384826855`", "\[VeryThinSpace]", "+",
RowBox[{"0.002250400697621928`", " ", "\[ImaginaryI]"}]}], ")"}], " ",
"c3"}]}]], "Output",
CellChangeTimes->{3.7932110918156843`*^9, 3.793211375730163*^9},
CellLabel->
"Out[750]=",ExpressionUUID->"9e826016-eb26-4bf9-8f78-7a43ae1c9e3e"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{
"Convert", " ", "it", " ", "to", " ", "a", " ", "matrix", " ", "and", " ",
"calculate", " ", "its", " ", "conjugate"}], " ", "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"M", "=",
RowBox[{"List", "[",
RowBox[{
RowBox[{"pppp", "[",
RowBox[{"[",
RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"pppp", "[",
RowBox[{"[",
RowBox[{"1", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"pppp", "[",
RowBox[{"[",
RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"pppp", "[",
RowBox[{"[",
RowBox[{"2", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"pppp", "[",
RowBox[{"[",
RowBox[{"3", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"pppp", "[",
RowBox[{"[",
RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"Mdagger", "=",
RowBox[{"Conjugate", "[", "M", "]"}]}], ";"}], " ",
"\[IndentingNewLine]",
RowBox[{"M", "//", "MatrixForm"}]}]}]], "Input",
CellChangeTimes->{{3.7932111045314503`*^9, 3.793211128000898*^9}, {
3.793211164077183*^9, 3.793211176675415*^9}, {3.7932113476064653`*^9,
3.79321136676816*^9}},
CellLabel->
"In[751]:=",ExpressionUUID->"d0cac9b8-77ab-474c-83f6-73a67e5374f3"],
Cell[BoxData[
TagBox[
RowBox[{"(", "\[NoBreak]",
TagBox[GridBox[{
{
RowBox[{"0.021853601053662065`", "\[VeryThinSpace]", "-",
RowBox[{"0.029815238473201614`", " ", "\[ImaginaryI]"}]}]},
{
RowBox[{"0.021853601053662065`", "\[VeryThinSpace]", "-",
RowBox[{"0.029815238473201614`", " ", "\[ImaginaryI]"}]}]},
{
RowBox[{"0.004566232331164794`", "\[VeryThinSpace]", "+",
RowBox[{"0.03206563917082358`", " ", "\[ImaginaryI]"}]}]},
{
RowBox[{"0.004566232331164794`", "\[VeryThinSpace]", "+",
RowBox[{"0.03206563917082358`", " ", "\[ImaginaryI]"}]}]},
{
RowBox[{
RowBox[{"-", "0.026419833384826855`"}], "-",
RowBox[{"0.002250400697621928`", " ", "\[ImaginaryI]"}]}]},
{
RowBox[{
RowBox[{"-", "0.026419833384826855`"}], "-",
RowBox[{"0.002250400697621928`", " ", "\[ImaginaryI]"}]}]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}],
Column], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]]], "Output",
CellChangeTimes->{3.7932111770594273`*^9, 3.793211377900114*^9},
CellLabel->
"Out[753]//MatrixForm=",ExpressionUUID->"d13ce777-06ec-4457-b1ab-\
12ad29b7c9ad"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"mat", " ", "//", "MatrixForm"}]], "Input",
CellChangeTimes->{{3.793211136078824*^9, 3.793211148333187*^9}},
CellLabel->
"In[754]:=",ExpressionUUID->"c4accb53-9dca-447b-a685-2870bea04ead"],
Cell[BoxData[
TagBox[
RowBox[{"(", "\[NoBreak]", GridBox[{
{
FractionBox["19", "6"],
FractionBox["2", "3"],
RowBox[{"-",
FractionBox["1", "3"]}],
RowBox[{"-",
FractionBox["1", "3"]}],
RowBox[{"-",
FractionBox["1", "3"]}],
RowBox[{"-",
FractionBox["1", "3"]}]},
{
FractionBox["2", "3"],
FractionBox["19", "6"],
RowBox[{"-",
FractionBox["1", "3"]}],
RowBox[{"-",
FractionBox["1", "3"]}],
RowBox[{"-",
FractionBox["1", "3"]}],
RowBox[{"-",
FractionBox["1", "3"]}]},
{
RowBox[{"-",
FractionBox["1", "3"]}],
RowBox[{"-",
FractionBox["1", "3"]}],
FractionBox["2", "3"],
FractionBox["19", "6"],
RowBox[{"-",
FractionBox["1", "3"]}],
RowBox[{"-",
FractionBox["1", "3"]}]},
{
RowBox[{"-",
FractionBox["1", "3"]}],
RowBox[{"-",
FractionBox["1", "3"]}],
FractionBox["19", "6"],
FractionBox["2", "3"],
RowBox[{"-",
FractionBox["1", "3"]}],
RowBox[{"-",
FractionBox["1", "3"]}]},
{
RowBox[{"-",
FractionBox["1", "3"]}],
RowBox[{"-",
FractionBox["1", "3"]}],
RowBox[{"-",
FractionBox["1", "3"]}],
RowBox[{"-",
FractionBox["1", "3"]}],
FractionBox["19", "6"],
FractionBox["2", "3"]},
{
RowBox[{"-",
FractionBox["1", "3"]}],
RowBox[{"-",
FractionBox["1", "3"]}],
RowBox[{"-",
FractionBox["1", "3"]}],
RowBox[{"-",
FractionBox["1", "3"]}],
FractionBox["2", "3"],
FractionBox["19", "6"]}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}}], "\[NoBreak]", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]]], "Output",
CellChangeTimes->{3.793211149502378*^9, 3.793211380681121*^9},
CellLabel->
"Out[754]//MatrixForm=",ExpressionUUID->"77544642-3fae-40d1-90b7-\
f7614c7ce767"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{
"Multiply", " ", "Mdagger", " ", "*", " ", "mat", " ", "*", " ", "M"}],
" ", "*)"}], "\[IndentingNewLine]",
RowBox[{"MdagM1", "=", " ",
RowBox[{"Dot", "[",
RowBox[{"Mdagger", ",", "mat", ",", "M"}], "]"}], " ",
RowBox[{"(*", " ",
RowBox[{
"value", " ", "a", " ", "use", " ", "as", " ", "the", " ", "scattering",
" ", "amplitude"}], " ", "*)"}]}]}]], "Input",
CellChangeTimes->{
3.793211151945121*^9, {3.79321120328087*^9, 3.793211215326082*^9}, {
3.793211388356553*^9,
3.793211421402197*^9}},ExpressionUUID->"f548413f-ae4b-4df3-99df-\
e98d75a7dc25"],
Cell[BoxData[
RowBox[{"0.028067903250696004`", "\[VeryThinSpace]", "+",
RowBox[{"1.4094628242311558`*^-18", " ", "\[ImaginaryI]"}]}]], "Output",
CellChangeTimes->{{3.793211139049939*^9, 3.7932111522255*^9},
3.79321119614277*^9, 3.7932112310237503`*^9},
CellLabel->
"Out[747]=",ExpressionUUID->"f5ee34b7-65fa-4877-a055-9037535f749f"]
}, Open ]]
},
WindowSize->{808, 755},
WindowMargins->{{Automatic, 96}, {Automatic, 23}},
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 154, 3, 30, "Input",ExpressionUUID->"6d49109d-70a6-447a-b1fa-2627594590ee"],
Cell[715, 25, 752, 20, 52, "Input",ExpressionUUID->"b77d2aef-d6af-41f3-865f-17377a8d6f91"],
Cell[CellGroupData[{
Cell[1492, 49, 412, 10, 52, "Input",ExpressionUUID->"cf57c31b-6665-46e1-86cd-2862fdab8adb"],
Cell[1907, 61, 733, 19, 34, "Output",ExpressionUUID->"9e826016-eb26-4bf9-8f78-7a43ae1c9e3e"]
}, Open ]],
Cell[CellGroupData[{
Cell[2677, 85, 1411, 40, 115, "Input",ExpressionUUID->"d0cac9b8-77ab-474c-83f6-73a67e5374f3"],
Cell[4091, 127, 1517, 39, 128, "Output",ExpressionUUID->"d13ce777-06ec-4457-b1ab-12ad29b7c9ad"]
}, Open ]],
Cell[CellGroupData[{
Cell[5645, 171, 215, 4, 30, "Input",ExpressionUUID->"c4accb53-9dca-447b-a685-2870bea04ead"],
Cell[5863, 177, 2289, 83, 176, "Output",ExpressionUUID->"77544642-3fae-40d1-90b7-f7614c7ce767"]
}, Open ]],
Cell[CellGroupData[{
Cell[8189, 265, 678, 17, 73, "Input",ExpressionUUID->"f548413f-ae4b-4df3-99df-e98d75a7dc25"],
Cell[8870, 284, 344, 6, 34, "Output",ExpressionUUID->"f5ee34b7-65fa-4877-a055-9037535f749f"]
}, Open ]]
}
]
*)
(* End of internal cache information *)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment