Hi,
with the latest changes in CVS I can run
the Moeller.nb without problems on Mathematica 5.0 (Linux).
I'll attach it.
Please send more problems, suggestions, questions, etc.
Thanx,
Rolf
(************** Content-type: application/mathematica **************
CreatedBy='Mathematica 5.0'
Mathematica-Compatible Notebook
This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing stars above.
To get the notebook into a Mathematica-compatible application, do
one of the following:
* Save the data starting with the line of stars above into a file
with a name ending in .nb, then open the file inside the
application;
* Copy the data starting with the line of stars above to the
clipboard, then use the Paste menu command inside the application.
Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode. Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).
NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing
the word CacheID, otherwise Mathematica-compatible applications may
try to use invalid cache data.
For more information on notebooks and Mathematica-compatible
applications, contact Wolfram Research:
web: http://www.wolfram.com
email: info@wolfram.com
phone: +1-217-398-0700 (U.S.)
Notebook reader applications are available free of charge from
Wolfram Research.
*******************************************************************)
(*CacheID: 232*)
(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[ 201934, 5345]*)
(*NotebookOutlinePosition[ 202587, 5368]*)
(* CellTagsIndexPosition[ 202543, 5364]*)
(*WindowFrame->Normal*)
Notebook[{
Cell[CellGroupData[{
Cell[TextData[{
"M\[OSlash]ller scattering\n",
StyleBox["\n",
FontSize->9],
StyleBox["To leading order in QED",
FontSize->20,
FontWeight->"Plain"]
}], "Title"],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["Configuration: ",
FontColor->GrayLevel[0.333333]],
"\"QED\"",
StyleBox["\nLagrangian: ",
FontColor->GrayLevel[0.333333]],
"QED[1]"
}], "Subsubtitle",
FontSize->13],
Cell[BoxData[{
\(\($Configuration = "\<QED\>";\)\), "\[IndentingNewLine]",
\(\($Lagrangians = {"\<QED\>"[1]};\)\)}], "Input"],
Cell[CellGroupData[{
Cell[BoxData[
\(\(Needs["\<HighEnergyPhysics`FeynCalc`\>"];\)\)], "Input"],
Cell["Loading FeynCalc from /opt/cvs/HighEnergyPhysics", "Text",
CellMargins->{{Inherited, Inherited}, {1, 0}},
GeneratedCell->True,
CellAutoOverwrite->True],
Cell["Loading TARCER /opt/cvs/HighEnergyPhysics/Tarcer/tarcer06.mx", "Text",
CellMargins->{{Inherited, Inherited}, {1, 0}},
GeneratedCell->True,
CellAutoOverwrite->True],
Cell[TextData[{
StyleBox["FeynCalc",
FontWeight->"Bold"],
" ",
"4.9.0.2beta",
" For help, type ?FeynCalc, use the built-in ",
ButtonBox["help system",
ButtonFunction:>(FrontEndExecute[
FrontEnd`HelpBrowserLookup[ "AddOns", #]]&),
ButtonData:>{"Short Overview", "intro"},
ButtonStyle->"AddOnsLink",
ButtonNote->"Open the help browser"],
" or visit ",
ButtonBox["www.feyncalc.org",
ButtonData:>{
URL[ "http://www.feyncalc.org"], None},
ButtonStyle->"Hyperlink",
ButtonNote->"http://www.feyncalc.org"]
}], "Text",
CellMargins->{{Inherited, Inherited}, {1, 0}},
GeneratedCell->True,
CellAutoOverwrite->True],
Cell["Loading PHI ", "Text",
CellMargins->{{Inherited, Inherited}, {1, 0}},
GeneratedCell->True,
CellAutoOverwrite->True],
Cell["Loading FeynArts, see www.feynarts.de for documentation", "Text",
CellMargins->{{Inherited, Inherited}, {1, 0}},
GeneratedCell->True,
CellAutoOverwrite->True],
Cell["FeynArts 3.2 patched for use with Phi and FeynCalc loaded", "Text",
CellMargins->{{Inherited, Inherited}, {1, 0}},
GeneratedCell->True,
CellAutoOverwrite->True]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["The three-vertex Feynman rule", "Subsection",
Evaluatable->False,
TextAlignment->Left,
TextJustification->0,
AspectRatioFixed->True],
Cell["The QED lagrangian:", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(lag =
ArgumentsSupply[Lagrangian[QED[1]], x,
RenormalizationState[0]]\)], "Input"],
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{\(-\(1\/4\)\), " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
SubscriptBox["\[PartialD]",
FormBox[
FormBox["\[Mu]",
"TraditionalForm"],
"TraditionalForm"]],
SubsuperscriptBox[
FormBox[
SuperscriptBox[
StyleBox["\<\"A\"\>",
FontSlant->"Italic"],
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"],
FormBox[
FormBox["\[Nu]",
"TraditionalForm"],
"TraditionalForm"], "\[Null]"]}], "-",
RowBox[{
SubscriptBox["\[PartialD]",
FormBox[
FormBox["\[Nu]",
"TraditionalForm"],
"TraditionalForm"]],
SubsuperscriptBox[
FormBox[
SuperscriptBox[
StyleBox["\<\"A\"\>",
FontSlant->"Italic"],
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"],
FormBox[
FormBox["\[Mu]",
"TraditionalForm"],
"TraditionalForm"], "\[Null]"]}]}], ")"}], ".",
RowBox[{"(",
RowBox[{
RowBox[{
SubscriptBox["\[PartialD]",
FormBox[
FormBox["\[Mu]",
"TraditionalForm"],
"TraditionalForm"]],
SubsuperscriptBox[
FormBox[
SuperscriptBox[
StyleBox["\<\"A\"\>",
FontSlant->"Italic"],
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"],
FormBox[
FormBox["\[Nu]",
"TraditionalForm"],
"TraditionalForm"], "\[Null]"]}], "-",
RowBox[{
SubscriptBox["\[PartialD]",
FormBox[
FormBox["\[Nu]",
"TraditionalForm"],
"TraditionalForm"]],
SubsuperscriptBox[
FormBox[
SuperscriptBox[
StyleBox["\<\"A\"\>",
FontSlant->"Italic"],
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"],
FormBox[
FormBox["\[Mu]",
"TraditionalForm"],
"TraditionalForm"], "\[Null]"]}]}], ")"}]}]}], "+",
RowBox[{
FormBox[
OverscriptBox[
TagBox[
FormBox[
SuperscriptBox["\<\"\[Psi]\"\>",
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"],
TraditionalForm,
Editable->True], "_"],
"TraditionalForm"], ".",
SuperscriptBox["\[Gamma]",
FormBox[
FormBox["\[Mu]",
"TraditionalForm"],
"TraditionalForm"]], ".",
RowBox[{"(",
RowBox[{
RowBox[{
SuperscriptBox[
TagBox[
StyleBox["\<\"e\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], " ",
RowBox[{
SubscriptBox[
FormBox[
SuperscriptBox[
StyleBox["\<\"A\"\>",
FontSlant->"Italic"],
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"], "\[Mu]"], ".",
FormBox[
SuperscriptBox["\<\"\[Psi]\"\>",
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"]}]}], "+",
RowBox[{"\[ImaginaryI]", " ",
RowBox[{
SubscriptBox["\[PartialD]",
FormBox[
FormBox["\[Mu]",
"TraditionalForm"],
"TraditionalForm"]],
SubsuperscriptBox[
FormBox[
SuperscriptBox["\<\"\[Psi]\"\>",
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"], "\[Null]", "\[Null]"]}]}]}],
")"}]}], "-",
RowBox[{
RowBox[{
FormBox[
OverscriptBox[
TagBox[
FormBox[
SuperscriptBox["\<\"\[Psi]\"\>",
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"],
TraditionalForm,
Editable->True], "_"],
"TraditionalForm"], ".",
FormBox[
SuperscriptBox["\<\"\[Psi]\"\>",
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"]}], " ",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]]}]}], TraditionalForm]], "Output"]
}, Open ]],
Cell[TextData[{
"Calculation of the Feynman rule with ",
StyleBox["FeynCalc",
FontSlant->"Italic"],
":"
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(fields = {\(QuantumField[Particle[Electron, RenormalizationState[0]]]\)[
p1], \(QuantumField[
DiracBar[Particle[Electron, RenormalizationState[0]]]]\)[
p2], \(QuantumField[Particle[Photon, RenormalizationState[0]],
LorentzIndex[\[Mu]3]]\)[p3]}\)], "Input"],
Cell[BoxData[
FormBox[
RowBox[{"{",
RowBox[{
FormBox[
SuperscriptBox["\<\"\[Psi]\"\>",
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"], ",",
FormBox[
OverscriptBox[
TagBox[
FormBox[
SuperscriptBox["\<\"\[Psi]\"\>",
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"],
TraditionalForm,
Editable->True], "_"],
"TraditionalForm"], ",",
SubscriptBox[
FormBox[
SuperscriptBox[
StyleBox["\<\"A\"\>",
FontSlant->"Italic"],
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"],
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3"],
"TraditionalForm"]]}], "}"}], TraditionalForm]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(melsimplified = Simplify[FeynRule[lag, fields]]\)], "Input"],
Cell[BoxData[
FormBox[
RowBox[{"\[ImaginaryI]", " ",
SuperscriptBox[
TagBox[
StyleBox["\<\"e\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], " ",
SuperscriptBox["\[Gamma]",
FormBox[
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3"],
"TraditionalForm"],
"TraditionalForm"]]}], TraditionalForm]], "Output"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Coupling files", "Subsection",
Evaluatable->False,
TextAlignment->Left,
TextJustification->0,
AspectRatioFixed->True],
Cell["\<\
The coupling vectors for the FeynArts model files are generated and \
saved:\
\>", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(gencoup = GenericCoupling[melsimplified];
gencoup // InputForm\)], "Input"],
Cell["\<\
{NonCommutative[CouplingConstant[QED[1], \
RenormalizationState[0]]*DiracGamma[\[Mu]3]]}\
\>", "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(classcoup = ClassesCoupling[melsimplified] // Together;
classcoup // InputForm\)], "Input"],
Cell["{{I}}", "Output"]
}, Open ]],
Cell[BoxData[
\(\($VeryVerbose = 2;\)\)], "Input"],
Cell[CellGroupData[{
Cell[BoxData[
\(\(CheckF[gencoup,
XName[VertexFields \[Rule] {Electron[0], Electron[0], Photon[0]},
PerturbationOrder \[Rule] 1,
PhiModel \[Rule] QED] <> "\<.Gen\>"];\)\)], "Input"],
Cell[BoxData[
\(TraditionalForm\`"Using file name \
/opt/cvs/HighEnergyPhysics/Phi/CouplingVectors/QEDF70F70V10o1.Gen"\)], "Print"],
Cell[BoxData[
\(TraditionalForm\`"File exists, loading"\)], "Print"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(\(CheckF[classcoup,
XName[VertexFields \[Rule] {Electron[0], Electron[0], Photon[0]},
PerturbationOrder \[Rule] 1,
PhiModel \[Rule] QED] <> "\<.Mod\>"];\)\)], "Input"],
Cell[BoxData[
\(TraditionalForm\`"Using file name \
/opt/cvs/HighEnergyPhysics/Phi/CouplingVectors/QEDF70F70V10o1.Mod"\)], "Print"],
Cell[BoxData[
\(TraditionalForm\`"File exists, loading"\)], "Print"]
}, Open ]],
Cell[BoxData[
\(\($VeryVerbose = 0;\)\)], "Input"]
}, Open ]],
Cell[CellGroupData[{
Cell["Topologies and fields insertion", "Subsection"],
Cell["Construction of topologies:", "Text"],
Cell[BoxData[
\(\(tops =
CreateTopologies[0, 2 \[Rule] 2, Adjacencies \[Rule] {3},
ExcludeTopologies \[Rule] {SelfEnergies, WFCorrections},
CTOrder \[Rule] 0];\)\)], "Input"],
Cell[CellGroupData[{
Cell[BoxData[
\(\(Paint[tops, ColumnsXRows \[Rule] {3, 1},
AutoEdit \[Rule] False];\)\)], "Input"],
Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .43333
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10 scalefont setfont
% Scaling calculations
-1.38778e-17 0.0151515 -9.37835e-18 0.0151515 [
[ 0 0 0 0 ]
[ 1 .43333 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 0 m
1 0 L
1 .43333 L
0 .43333 L
closepath
clip
newpath
% Start of sub-graphic
p
-1.38778e-17 -9.37835e-18 0.333333 0.333333 MathSubStart
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10 scalefont setfont
% Scaling calculations
0.0454545 0.0454545 0.0454545 0.0454545 [
[ 0 0 0 0 ]
[ 1 1 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 0 m
1 0 L
1 1 L
0 1 L
closepath
clip
newpath
0 g
.005 w
[ ] 0 setdash
.04545 .72727 m
.31818 .5 L
s
.04545 .27273 m
.31818 .5 L
s
.95455 .72727 m
.68182 .5 L
s
.95455 .27273 m
.68182 .5 L
s
.31818 .5 m
.68182 .5 L
s
.04 w
.31818 .5 Mdot
.68182 .5 Mdot
gsave
.5 .02273 -68.25 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 11.250 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 8.750 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(T1) show
1.000 setlinewidth
grestore
MathSubEnd
P
% End of sub-graphic
% Start of sub-graphic
p
0.333333 -9.37835e-18 0.666667 0.333333 MathSubStart
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10 scalefont setfont
% Scaling calculations
0.0454545 0.0454545 0.0454545 0.0454545 [
[ 0 0 0 0 ]
[ 1 1 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 0 m
1 0 L
1 1 L
0 1 L
closepath
clip
newpath
0 g
.005 w
[ ] 0 setdash
.04545 .72727 m
.5 .68182 L
s
.04545 .27273 m
.5 .31818 L
s
.95455 .72727 m
.5 .68182 L
s
.95455 .27273 m
.5 .31818 L
s
.5 .68182 m
.5 .31818 L
s
.04 w
.5 .68182 Mdot
.5 .31818 Mdot
gsave
.5 .02273 -68.25 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 11.250 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 8.750 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(T2) show
1.000 setlinewidth
grestore
MathSubEnd
P
% End of sub-graphic
% Start of sub-graphic
p
0.666667 -9.37835e-18 1 0.333333 MathSubStart
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10 scalefont setfont
% Scaling calculations
0.0454545 0.0454545 0.0454545 0.0454545 [
[ 0 0 0 0 ]
[ 1 1 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 0 m
1 0 L
1 1 L
0 1 L
closepath
clip
newpath
0 g
.005 w
[ ] 0 setdash
.04545 .72727 m
.5 .68182 L
s
.04545 .27273 m
.5 .31818 L
s
.95455 .72727 m
.5 .31818 L
s
.95455 .27273 m
.5 .68182 L
s
.5 .68182 m
.5 .31818 L
s
.04 w
.5 .68182 Mdot
.5 .31818 Mdot
gsave
.5 .02273 -68.25 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 11.250 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 8.750 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(T3) show
1.000 setlinewidth
grestore
MathSubEnd
P
% End of sub-graphic
0 g
gsave
.43182 .39333 -66.9375 -9.875 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 19.75 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 13.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 13.188 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(2) show
1.000 setlinewidth
grestore
gsave
.5 .39333 -68.4062 -8.90625 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17.8125 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
/MISOfy
{
/newfontname exch def
/oldfontname exch def
oldfontname findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
newfontname exch definefont pop
} def
63.000 11.250 moveto
%%IncludeResource: font Times-Roman
%%IncludeFont: Times-Roman
%%BeginResource: font Times-Roman-MISO
%%BeginFont: Times-Roman-MISO
/Times-Roman /Times-Roman-MISO MISOfy
%%EndFont
%%EndResource
%%IncludeResource: font Times-Roman-MISO
%%IncludeFont: Times-Roman-MISO
/Times-Roman-MISO findfont 13.188 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
%%IncludeResource: font Mathematica1
%%IncludeFont: Mathematica1
/Mathematica1 findfont 13.188 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
63.000 11.250 moveto
(\\256) show
73.812 11.250 moveto
%%IncludeResource: font Times-Roman-MISO
%%IncludeFont: Times-Roman-MISO
/Times-Roman-MISO findfont 13.188 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
1.000 setlinewidth
grestore
gsave
.56818 .39333 -66.9375 -9.875 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 19.75 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 13.188 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 13.188 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(2) show
1.000 setlinewidth
grestore
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
ImageSize->{261.625, 113.312},
ImageMargins->{{43, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`4000450000LB000`400?l00000o`00003oo`3oool6
0?ooo`00o`3oool60?ooo`00o`3oool60?ooo`00o`3oool60?ooo`00o`3oool60?ooo`00o`3oool6
0?ooo`009`3oool3000000030?ooo`000000000000<00000CP3oool300000080oooo1000001=0?oo
o`<000000P3oool3000002T0oooo000X0?ooo`030000003oool0oooo0080oooo00<000000?ooo`3o
ool0C`3oool00`000000oooo0?ooo`020?ooo`030000003oool0000004h0oooo00<000000?ooo`3o
ool00`3oool00`000000oooo0?ooo`0W0?ooo`00:03oool00`000000oooo0?ooo`020?ooo`030000
003oool0oooo04l0oooo00<000000?ooo`3oool00`3oool00`000000oooo0?ooo`1=0?ooo`030000
003oool0oooo0080oooo00<000000?ooo`3oool0:03oool002H0oooo00D000000?ooo`000000oooo
000000020?ooo`030000003oool0oooo04d0oooo00L000000?ooo`000000oooo0000003oool00000
0080oooo00<000000?ooo`3oool0BP3oool01@000000oooo0000003oool0000000<0oooo00<00000
0?ooo`3oool09`3oool002H0oooo1@0000000`3oool000000000001?0?ooo`D000000P3oool30000
04`0oooo1@000000103oool0000000000000000Y0?ooo`00o`3oool60?ooo`00o`3oool60?ooo`00
o`3oool60?ooo`00o`3oool60?ooo`00o`3oool60?ooo`00o`3oool60?ooo`00o`3oool60?ooo`00
o`3oool60?ooo`00o`3oool60?ooo`00o`3oool60?ooo`00o`3oool60?ooo`00o`3oool60?ooo`00
o`3oool60?ooo`00103oool00`000000oooo0?ooo`1<0?ooo`030000003oool0oooo00@0oooo1@00
00160?ooo`D000001`3oool5000004T0oooo00<000000?ooo`3oool00`3oool000D0oooo00<00000
0?ooo`3oool0BP3oool00`000000oooo0?ooo`0:0?ooo`X00000<P3oool:00000140oooo2P00000n
0?ooo`030000003oool0oooo00@0oooo00060?ooo`800000B03oool2000001L0oooo2P00000N0?oo
o`X000009@3oool:000003<0oooo00<000000?ooo`3oool01@3oool000P0oooo00<000000?ooo`3o
ool0A03oool00`000000oooo0?ooo`0Q0?ooo`X000001@3oool2000000<0oooo2P00000i0?ooo`X0
0000103oool200000280oooo00<000000?ooo`3oool01P3oool000T0oooo00<000000?ooo`3oool0
@P3oool00`000000oooo0?ooo`0/0?ooo`X00000C@3oool600000200oooo0P0000090?ooo`002P3o
ool00`000000oooo0?ooo`100?ooo`030000003oool0oooo0380oooo00<000000?ooo`3oool0D`3o
ool2000001l0oooo00<000000?ooo`3oool02@3oool000/0oooo0P00000n0?ooo`800000=@3oool0
0`000000oooo0?ooo`1C0?ooo`030000003oool0000001d0oooo00<000000?ooo`3oool02P3oool0
00d0oooo00<000000?ooo`3oool0>P3oool00`000000oooo0?ooo`0e0?ooo`030000003oool0oooo
05<0oooo00@000000?ooo`3oool000006`3oool00`000000oooo0?ooo`0;0?ooo`003P3oool00`00
0000oooo0?ooo`0h0?ooo`030000003oool0oooo03H0oooo00<000000?ooo`3oool0D`3oool01000
0000oooo0?ooo`3oool2000001P0oooo00<000000?ooo`3oool0303oool000l0oooo00<000000?oo
o`3oool0=P3oool00`000000oooo0?ooo`0g0?ooo`030000003oool0oooo05<0oooo00<000000?oo
o`3oool00`3oool00`000000oooo0?ooo`0D0?ooo`030000003oool0oooo00d0oooo000@0?ooo`80
0000=03oool2000003X0oooo00<000000?ooo`3oool0D`3oool00`000000oooo0?ooo`040?ooo`03
0000003oool0oooo0180oooo00<000000?ooo`3oool03P3oool00180oooo00<000000?ooo`3oool0
<03oool00`000000oooo0?ooo`0j0?ooo`030000003oool0oooo05<0oooo00<000000?ooo`3oool0
1@3oool00`000000oooo0?ooo`0@0?ooo`030000003oool0oooo00l0oooo000C0?ooo`030000003o
ool0oooo02h0oooo00<000000?ooo`3oool0>`3oool00`000000oooo0?ooo`1C0?ooo`030000003o
ool0oooo00H0oooo00<000000?ooo`3oool03P3oool00`000000oooo0?ooo`0@0?ooo`00503oool2
000002`0oooo0P00000n0?ooo`030000003oool0oooo05<0oooo00<000000?ooo`3oool01`3oool0
0`000000oooo0?ooo`0;0?ooo`8000004`3oool001H0oooo00<000000?ooo`3oool0:03oool00`00
0000oooo0?ooo`0n0?ooo`030000003oool0oooo05<0oooo00<000000?ooo`3oool0203oool00`00
0000oooo0?ooo`090?ooo`030000003oool0oooo01<0oooo000G0?ooo`030000003oool0oooo02H0
oooo00<000000?ooo`3oool0?`3oool00`000000oooo0?ooo`1C0?ooo`030000003oool0oooo00T0
oooo00<000000?ooo`3oool01`3oool00`000000oooo0?ooo`0D0?ooo`00603oool00`000000oooo
0?ooo`0T0?ooo`030000003oool0oooo0400oooo00<000000?ooo`3oool0D`3oool00`000000oooo
0?ooo`0:0?ooo`030000003oool0oooo00D0oooo00<000000?ooo`3oool05@3oool001T0oooo0P00
000R0?ooo`800000@`3oool00`000000oooo0?ooo`1C0?ooo`030000003oool0oooo00/0oooo0P00
00040?ooo`030000003oool0oooo01H0oooo000K0?ooo`030000003oool0oooo01h0oooo00<00000
0?ooo`3oool0@`3oool00`000000oooo0?ooo`1C0?ooo`030000003oool0oooo00d0oooo00@00000
0?ooo`3oool000006@3oool001/0oooo8P0000150?ooo`030000003oool0oooo05<0oooo00<00000
0?ooo`3oool03P3oool2000001X0oooo000K0?ooo`8000007P3oool2000004D0oooo00<000000?oo
o`3oool0D`3oool00`000000oooo0?ooo`0>0?ooo`8000006P3oool001X0oooo00<000000?ooo`3o
ool0803oool00`000000oooo0?ooo`120?ooo`030000003oool0oooo05<0oooo00<000000?ooo`3o
ool03@3oool010000000oooo0?ooo`00000I0?ooo`00603oool2000002@0oooo0P0000120?ooo`03
0000003oool0oooo05<0oooo00<000000?ooo`3oool02`3oool2000000@0oooo00<000000?ooo`3o
ool05P3oool001L0oooo00<000000?ooo`3oool09P3oool00`000000oooo0?ooo`0o0?ooo`030000
003oool0oooo05<0oooo00<000000?ooo`3oool02P3oool00`000000oooo0?ooo`050?ooo`030000
003oool0oooo01D0oooo000F0?ooo`030000003oool0oooo02P0oooo00<000000?ooo`3oool0?P3o
ool00`000000oooo0?ooo`1C0?ooo`030000003oool0oooo00T0oooo00<000000?ooo`3oool01`3o
ool00`000000oooo0?ooo`0D0?ooo`005@3oool00`000000oooo0?ooo`0Z0?ooo`030000003oool0
oooo03d0oooo00<000000?ooo`3oool0D`3oool00`000000oooo0?ooo`080?ooo`030000003oool0
oooo00T0oooo00<000000?ooo`3oool04`3oool001@0oooo00<000000?ooo`3oool0;03oool00`00
0000oooo0?ooo`0l0?ooo`030000003oool0oooo05<0oooo00<000000?ooo`3oool01`3oool00`00
0000oooo0?ooo`0;0?ooo`8000004`3oool00180oooo0P00000`0?ooo`800000?03oool00`000000
oooo0?ooo`1C0?ooo`030000003oool0oooo00H0oooo00<000000?ooo`3oool03P3oool00`000000
oooo0?ooo`0@0?ooo`004@3oool00`000000oooo0?ooo`0b0?ooo`030000003oool0oooo03T0oooo
00<000000?ooo`3oool0D`3oool00`000000oooo0?ooo`050?ooo`030000003oool0oooo0100oooo
00<000000?ooo`3oool03`3oool00100oooo00<000000?ooo`3oool0=03oool00`000000oooo0?oo
o`0h0?ooo`030000003oool0oooo05<0oooo00<000000?ooo`3oool0103oool00`000000oooo0?oo
o`0B0?ooo`030000003oool0oooo00h0oooo000?0?ooo`030000003oool0oooo03H0oooo00<00000
0?ooo`3oool0=`3oool00`000000oooo0?ooo`1C0?ooo`030000003oool0oooo00<0oooo00<00000
0?ooo`3oool0503oool00`000000oooo0?ooo`0=0?ooo`003P3oool00`000000oooo0?ooo`0h0?oo
o`030000003oool0oooo03H0oooo00<000000?ooo`3oool0D`3oool010000000oooo0?ooo`3oool2
000001P0oooo00<000000?ooo`3oool0303oool000`0oooo0P00000l0?ooo`800000=P3oool00`00
0000oooo0?ooo`1C0?ooo`040000003oool0oooo000001/0oooo00<000000?ooo`3oool02`3oool0
00/0oooo00<000000?ooo`3oool0?P3oool00`000000oooo0?ooo`0c0?ooo`030000003oool0oooo
05<0oooo00<000000?ooo`0000007@3oool00`000000oooo0?ooo`0:0?ooo`002P3oool00`000000
oooo0?ooo`100?ooo`030000003oool0oooo0380oooo0P00001D0?ooo`8000007`3oool00`000000
oooo0?ooo`090?ooo`002@3oool00`000000oooo0?ooo`120?ooo`030000003oool0oooo02d0oooo
2@00001=0?ooo`H00000803oool2000000T0oooo00080?ooo`030000003oool0oooo04@0oooo00<0
00000?ooo`3oool08P3oool:000000T0oooo2P00000i0?ooo`X00000:03oool00`000000oooo0?oo
o`060?ooo`001P3oool2000004P0oooo0P00000H0?ooo`X000007@3oool:000002D0oooo2P00000c
0?ooo`030000003oool0oooo00D0oooo00050?ooo`030000003oool0oooo04X0oooo00<000000?oo
o`3oool02`3oool:00000340oooo2P00000A0?ooo`X00000?P3oool00`000000oooo0?ooo`040?oo
o`00103oool00`000000oooo0?ooo`1<0?ooo`030000003oool0oooo00@0oooo1P0000150?ooo`D0
00001`3oool5000004T0oooo00<000000?ooo`3oool00`3oool00?l0oooo1P3oool00?l0oooo1P3o
ool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3o
ool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3o
ool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3o
ool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3o
ool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3o
ool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3o
ool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3oool006d0oooo1P00
000N0?ooo`H00000KP3oool006h0oooo00D000000?ooo`3oool0oooo0000000O0?ooo`050000003o
ool0oooo0?ooo`000000KP3oool006l0oooo00<000000?ooo`3oool04@3oool00`000000oooo0?oo
o`0=0?ooo`030000003oool0oooo06l0oooo001`0?ooo`8000004P3oool00`000000oooo0?ooo`0=
0?ooo`800000K`3oool00780oooo00<000000?ooo`3oool0203oool900000100oooo00<000000?oo
o`3oool0K03oool00780oooo00<000000?ooo`3oool03`3oool00`000000oooo0?ooo`0?0?ooo`03
0000003oool0oooo06`0oooo001]0?ooo`040000003oool0oooo0?ooo`800000403oool00`000000
oooo0?ooo`0;0?ooo`040000003oool0oooo0?ooo`800000KP3oool006h0oooo1000000P0?ooo`@0
0000K`3oool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3oool00?l0oooo1P3oool00?l0
oooo1P3oool00001\
\>"],
ImageRangeCache->{{{0, 260.625}, {112.312, 0}} -> {-0.183384, 6.18972*^-16, \
0.254645, 0.254645}, {{0.6875, 87.0625}, {112.312, 25.875}} -> {-1.17522, \
-1.00807, 0.254706, 0.254706}, {{87.0625, 173.5}, {112.312, 25.875}} -> \
{-23.1594, -1.00011, 0.254522, 0.254522}, {{173.5, 259.875}, {112.312, \
25.875}} -> {-45.1916, -1.00807, 0.254706, 0.254706}}]
}, Open ]],
Cell["Field insertion:", "Text"],
Cell[BoxData[
\(\(inserttops =
InsertFields[
tops, {Electron[0], Electron[0]} \[Rule] {Electron[0],
Electron[0]}, Model \[Rule] "\<Automatic\>",
GenericModel \[Rule] "\<Automatic\>",
InsertionLevel \[Rule] Classes];\)\)], "Input"],
Cell["Graphical representation of the process:", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(\(treegraphs =
Paint[inserttops, PaintLevel \[Rule] {Classes},
AutoEdit \[Rule] False, SheetHeader \[Rule] False,
Numbering \[Rule] False, ColumnsXRows \[Rule] {2, 1}];\)\)], "Input"],
Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .5
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10 scalefont setfont
% Scaling calculations
-1.38778e-17 0.0227273 -6.93889e-18 0.0227273 [
[ 0 0 0 0 ]
[ 1 .5 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 0 m
1 0 L
1 .5 L
0 .5 L
closepath
clip
newpath
% Start of sub-graphic
p
-1.38778e-17 -6.93889e-18 0.5 0.5 MathSubStart
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10 scalefont setfont
% Scaling calculations
0.0454545 0.0454545 0.0454545 0.0454545 [
[ 0 0 0 0 ]
[ 1 1 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 0 m
1 0 L
1 1 L
0 1 L
closepath
clip
newpath
0 g
.005 w
[ .03 .03 ] 0 setdash
.04545 .72727 m
.5 .68182 L
s
.29986 .70183 m
.24378 .68917 L
.2474 .72535 L
F
gsave
.26572 .66193 -67.9062 -14.75 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 18.75 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 12.188 moveto
%%IncludeResource: font Courier-Oblique
%%IncludeFont: Courier-Oblique
/Courier-Oblique findfont 16.438 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(e) show
1.000 setlinewidth
grestore
.04545 .27273 m
.5 .31818 L
s
.29986 .29817 m
.2474 .27465 L
.24378 .31083 L
F
gsave
.27974 .25284 -67.9062 -14.75 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 18.75 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 12.188 moveto
%%IncludeResource: font Courier-Oblique
%%IncludeFont: Courier-Oblique
/Courier-Oblique findfont 16.438 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(e) show
1.000 setlinewidth
grestore
.95455 .72727 m
.5 .68182 L
s
.75441 .70726 m
.69833 .71992 L
.70194 .68374 L
F
gsave
.72026 .74716 -67.9062 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 18.75 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 12.188 moveto
%%IncludeResource: font Courier-Oblique
%%IncludeFont: Courier-Oblique
/Courier-Oblique findfont 16.438 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(e) show
1.000 setlinewidth
grestore
.95455 .27273 m
.5 .31818 L
s
.75441 .29274 m
.70194 .31626 L
.69833 .28008 L
F
gsave
.73428 .33807 -67.9062 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 18.75 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 12.188 moveto
%%IncludeResource: font Courier-Oblique
%%IncludeFont: Courier-Oblique
/Courier-Oblique findfont 16.438 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(e) show
1.000 setlinewidth
grestore
[ ] 0 setdash
.5 .31818 m
.50393 .32273 L
.50738 .32727 L
.50991 .33182 L
.51122 .33637 L
.51114 .34091 L
.50968 .34546 L
.50703 .35 L
.50351 .35455 L
.49955 .35909 L
.49564 .36364 L
.49228 .36818 L
.48987 .37273 L
.48871 .37727 L
.48894 .38182 L
.49054 .38636 L
.49331 .39091 L
.4969 .39545 L
.50088 .4 L
.50474 .40455 L
.50802 .40909 L
.51031 .41364 L
.51131 .41818 L
.51092 .42273 L
.50918 .42727 L
.5063 .43182 L
.50264 .43636 L
.49865 .44091 L
.49482 .44545 L
.49164 .45 L
.48948 .45454 L
.48863 .45909 L
.48918 .46364 L
.49106 .46818 L
.49404 .47273 L
.49777 .47727 L
.50176 .48182 L
.50553 .48636 L
.50862 .49091 L
.51064 .49545 L
.51135 .5 L
.51064 .50455 L
.50862 .50909 L
.50553 .51364 L
.50176 .51818 L
.49777 .52273 L
.49404 .52727 L
.49106 .53182 L
.48918 .53636 L
.48863 .54091 L
Mistroke
.48948 .54546 L
.49164 .55 L
.49482 .55455 L
.49865 .55909 L
.50264 .56364 L
.5063 .56818 L
.50918 .57273 L
.51092 .57727 L
.51131 .58182 L
.51031 .58636 L
.50802 .59091 L
.50474 .59545 L
.50088 .6 L
.4969 .60455 L
.49331 .60909 L
.49054 .61364 L
.48894 .61818 L
.48871 .62273 L
.48987 .62727 L
.49228 .63182 L
.49564 .63636 L
.49955 .64091 L
.50351 .64545 L
.50703 .65 L
.50968 .65454 L
.51114 .65909 L
.51122 .66363 L
.50991 .66818 L
.50738 .67273 L
.50393 .67727 L
.5 .68182 L
Mfstroke
gsave
.45704 .5 -74.8125 -9.9375 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 19.875 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
/MISOfy
{
/newfontname exch def
/oldfontname exch def
oldfontname findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
newfontname exch definefont pop
} def
63.000 12.500 moveto
%%IncludeResource: font Mathematica1Mono
%%IncludeFont: Mathematica1Mono
/Mathematica1Mono findfont 16.438 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(g) show
1.000 setlinewidth
grestore
.04 w
.5 .68182 Mdot
.5 .31818 Mdot
MathSubEnd
P
% End of sub-graphic
% Start of sub-graphic
p
0.5 -6.93889e-18 1 0.5 MathSubStart
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10 scalefont setfont
% Scaling calculations
0.0454545 0.0454545 0.0454545 0.0454545 [
[ 0 0 0 0 ]
[ 1 1 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 0 m
1 0 L
1 1 L
0 1 L
closepath
clip
newpath
0 g
.005 w
[ .03 .03 ] 0 setdash
.04545 .72727 m
.5 .68182 L
s
.29986 .70183 m
.24378 .68917 L
.2474 .72535 L
F
gsave
.26572 .66193 -67.9062 -14.75 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 18.75 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 12.188 moveto
%%IncludeResource: font Courier-Oblique
%%IncludeFont: Courier-Oblique
/Courier-Oblique findfont 16.438 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(e) show
1.000 setlinewidth
grestore
.04545 .27273 m
.5 .31818 L
s
.29986 .29817 m
.2474 .27465 L
.24378 .31083 L
F
gsave
.27974 .25284 -67.9062 -14.75 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 18.75 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 12.188 moveto
%%IncludeResource: font Courier-Oblique
%%IncludeFont: Courier-Oblique
/Courier-Oblique findfont 16.438 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(e) show
1.000 setlinewidth
grestore
.95455 .72727 m
.5 .31818 L
s
.74754 .54097 m
.69484 .518 L
.71916 .49097 L
F
gsave
.81534 .64005 -74.8125 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 18.75 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 12.188 moveto
%%IncludeResource: font Courier-Oblique
%%IncludeFont: Courier-Oblique
/Courier-Oblique findfont 16.438 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(e) show
1.000 setlinewidth
grestore
.95455 .27273 m
.5 .68182 L
s
.74754 .45903 m
.71916 .50903 L
.69484 .482 L
F
gsave
.84375 .41277 -61 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 18.75 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 12.188 moveto
%%IncludeResource: font Courier-Oblique
%%IncludeFont: Courier-Oblique
/Courier-Oblique findfont 16.438 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(e) show
1.000 setlinewidth
grestore
[ ] 0 setdash
.5 .31818 m
.50393 .32273 L
.50738 .32727 L
.50991 .33182 L
.51122 .33637 L
.51114 .34091 L
.50968 .34546 L
.50703 .35 L
.50351 .35455 L
.49955 .35909 L
.49564 .36364 L
.49228 .36818 L
.48987 .37273 L
.48871 .37727 L
.48894 .38182 L
.49054 .38636 L
.49331 .39091 L
.4969 .39545 L
.50088 .4 L
.50474 .40455 L
.50802 .40909 L
.51031 .41364 L
.51131 .41818 L
.51092 .42273 L
.50918 .42727 L
.5063 .43182 L
.50264 .43636 L
.49865 .44091 L
.49482 .44545 L
.49164 .45 L
.48948 .45454 L
.48863 .45909 L
.48918 .46364 L
.49106 .46818 L
.49404 .47273 L
.49777 .47727 L
.50176 .48182 L
.50553 .48636 L
.50862 .49091 L
.51064 .49545 L
.51135 .5 L
.51064 .50455 L
.50862 .50909 L
.50553 .51364 L
.50176 .51818 L
.49777 .52273 L
.49404 .52727 L
.49106 .53182 L
.48918 .53636 L
.48863 .54091 L
Mistroke
.48948 .54546 L
.49164 .55 L
.49482 .55455 L
.49865 .55909 L
.50264 .56364 L
.5063 .56818 L
.50918 .57273 L
.51092 .57727 L
.51131 .58182 L
.51031 .58636 L
.50802 .59091 L
.50474 .59545 L
.50088 .6 L
.4969 .60455 L
.49331 .60909 L
.49054 .61364 L
.48894 .61818 L
.48871 .62273 L
.48987 .62727 L
.49228 .63182 L
.49564 .63636 L
.49955 .64091 L
.50351 .64545 L
.50703 .65 L
.50968 .65454 L
.51114 .65909 L
.51122 .66363 L
.50991 .66818 L
.50738 .67273 L
.50393 .67727 L
.5 .68182 L
Mfstroke
gsave
.46158 .5 -74.8125 -9.9375 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 19.875 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
/MISOfy
{
/newfontname exch def
/oldfontname exch def
oldfontname findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
newfontname exch definefont pop
} def
63.000 12.500 moveto
%%IncludeResource: font Mathematica1Mono
%%IncludeFont: Mathematica1Mono
/Mathematica1Mono findfont 16.438 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(g) show
1.000 setlinewidth
grestore
.04 w
.5 .68182 Mdot
.5 .31818 Mdot
MathSubEnd
P
% End of sub-graphic
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
ImageSize->{288, 144},
ImageMargins->{{43, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0, 1}},
ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40004P0000T2000`400?l00000o`00003oo`3ooolQ
0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ
0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ
0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ
0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ
0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ
0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`009P3oool5000008X0oooo1@00
001V0?ooo`009@3oool2000000@0oooo00<000000?ooo`3oool0QP3oool2000000@0oooo00<00000
0?ooo`3oool0H`3oool002D0oooo00<000000?ooo`3oool0S03oool00`000000oooo0?ooo`1Y0?oo
o`009@3oool8000008L0oooo2000001T0?ooo`009@3oool2000000D0oooo00<000000?ooo`3oool0
Q@3oool2000000D0oooo00<000000?ooo`3oool0HP3oool002H0oooo0P0000030?ooo`800000R03o
ool2000000<0oooo0P00001T0?ooo`00:03oool4000008/0oooo1000001U0?ooo`00o`3ooolQ0?oo
o`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`001`3oool2000007h0oooo0`00000<0?ooo`800000P03o
ool00`000000oooo0?ooo`050?ooo`002@3oool3000000<0oooo0P00001^0?ooo`8000000`3oool3
00000140oooo0`0000030?ooo`800000M`3oool00`000000oooo0?ooo`060?ooo`004@3oool30000
00@0oooo0P0000090?ooo`<00000D03oool2000000@0oooo0`00000Q0?ooo`<00000103oool20000
00T0oooo0`00001P0?ooo`8000002@3oool001X0oooo0`0000030?ooo`T00000>`3oool<000000<0
oooo0`00000c0?ooo`<000000`3oool9000005`0oooo00<000000?ooo`3oool02@3oool002<0oooo
2`00000d0?ooo`P00000B03oool;000006<0oooo000S0?ooo`@000002P3oool500000100oooo1000
000@0?ooo`D000001@3oool4000004X0oooo1000000:0?ooo`D00000403oool4000004L0oooo000j
0?ooo`D000000`3oool3000000030?ooo`00000000000080000000@0oooo00000000000000000`3o
ool5000000h0oooo0P00001S0?ooo`D000000`3oool3000000030?ooo`000000000000800000>03o
ool00`000000oooo0?ooo`0<0?ooo`00A@3oool6000008T0oooo1@00000g0?ooo`030000003oool0
oooo00d0oooo00160?ooo`@00000R`3oool4000003H0oooo00<000000?ooo`3oool03P3oool004T0
oooo00<000000?ooo`3oool0S03oool00`000000oooo0?ooo`0c0?ooo`030000003oool0oooo00l0
oooo00190?ooo`030000003oool0oooo08`0oooo00<000000?ooo`3oool0A@3oool004T0oooo00<0
00000?ooo`3oool0S03oool010000000oooo0?ooo`0000140?ooo`00B03oool2000008d0oooo0P00
00030?ooo`030000003oool0oooo02`0oooo00<000000?ooo`3oool04P3oool004L0oooo00<00000
0?ooo`3oool07@3oool5000006X0oooo00<000000?ooo`3oool0103oool00`000000oooo0?ooo`0Z
0?ooo`030000003oool0oooo01<0oooo00160?ooo`030000003oool0oooo01d0oooo0P0000040?oo
o`030000003oool0oooo06H0oooo00<000000?ooo`3oool01P3oool00`000000oooo0?ooo`0X0?oo
o`030000003oool0oooo01@0oooo00160?ooo`030000003oool0oooo01d0oooo00<000000?ooo`3o
ool0K03oool00`000000oooo0?ooo`0`0?ooo`030000003oool0oooo01D0oooo00160?ooo`030000
003oool0oooo01d0oooo2000001W0?ooo`030000003oool0oooo04P0oooo00160?ooo`8000007P3o
ool2000000D0oooo00<000000?ooo`3oool0I@3oool2000000X0oooo00<000000?ooo`3oool0?03o
ool004L0oooo00<000000?ooo`3oool07@3oool2000000<0oooo0P00001X0?ooo`030000003oool0
oooo00T0oooo00<000000?ooo`3oool07`3oool00`000000oooo0?ooo`0I0?ooo`00B03oool00`00
0000oooo0?ooo`0N0?ooo`@00000JP3oool00`000000oooo0?ooo`090?ooo`030000003oool0oooo
01d0oooo00<000000?ooo`3oool06P3oool004T0oooo00<000000?ooo`3oool0S03oool00`000000
oooo0?ooo`090?ooo`030000003oool0oooo01/0oooo00<000000?ooo`3oool06`3oool004T0oooo
00<000000?ooo`3oool0S03oool00`000000oooo0?ooo`0V0?ooo`030000003oool0oooo01`0oooo
00190?ooo`030000003oool0oooo08`0oooo00<000000?ooo`3oool03@3oool00`000000oooo0?oo
o`0e0?ooo`00B03oool2000008d0oooo0P00000@0?ooo`030000003oool0oooo0180oooo00<00000
0?ooo`3oool07`3oool004P0oooo00<000000?ooo`3oool0S03oool00`000000oooo0?ooo`0@0?oo
o`030000003oool0oooo0100oooo00<000000?ooo`3oool03@3oool5000000h0oooo00170?ooo`03
0000003oool0oooo08`0oooo00<000000?ooo`3oool04P3oool00`000000oooo0?ooo`0>0?ooo`03
0000003oool0oooo00d0oooo0P0000040?ooo`030000003oool0oooo00/0oooo00160?ooo`030000
003oool0oooo08`0oooo00<000000?ooo`3oool08`3oool00`000000oooo0?ooo`0>0?ooo`030000
003oool0oooo0140oooo00160?ooo`030000003oool0oooo08`0oooo00<000000?ooo`3oool0=03o
ool8000000`0oooo00160?ooo`030000003oool0oooo08`0oooo00<000000?ooo`3oool05P3oool0
0`000000oooo0?ooo`070?ooo`8000004P3oool2000000D0oooo00<000000?ooo`3oool02P3oool0
03T0oooo0P00000<0?ooo`030000003oool0oooo07h0oooo0P00000<0?ooo`030000003oool0oooo
01H0oooo00<000000?ooo`3oool00`3oool4000001@0oooo0P0000030?ooo`800000303oool003T0
oooo00<000000?ooo`0000002`3oool2000007l0oooo00<000000?ooo`0000002`3oool2000001P0
oooo00<000000?ooo`0000001P00000F0?ooo`@000003@3oool003T0oooo00<000000?ooo`000000
303oool00`000000oooo0?ooo`1m0?ooo`030000003oool0000000`0oooo00<000000?ooo`3oool0
5`3oool00`000000oooo00000004000002P0oooo000i0?ooo`030000003oool0000000d0oooo00<0
00000?ooo`3oool0O03oool00`000000oooo0000000=0?ooo`030000003oool0oooo01T0oooo1000
000X0?ooo`00>P3oool2000000d0oooo00<000000?ooo`3oool0O@3oool2000000d0oooo00<00000
0?ooo`3oool06P3oool2000002T0oooo000j0?ooo`8000003@3oool00`000000oooo0?ooo`1m0?oo
o`8000003@3oool00`000000oooo0?ooo`0I0?ooo`@00000:03oool003T0oooo00@000000?ooo`3o
ool000002`3oool00`000000oooo0?ooo`1m0?ooo`040000003oool0oooo000000/0oooo00<00000
0?ooo`3oool05`3oool00`000000oooo00000004000002P0oooo000h0?ooo`030000003oool0oooo
0080oooo00<000000?ooo`3oool01`3oool2000007h0oooo00<000000?ooo`3oool00P3oool00`00
0000oooo0?ooo`070?ooo`800000603oool00`000000oooo00000006000002L0oooo000f0?ooo`80
00001P3oool00`000000oooo0?ooo`060?ooo`030000003oool0oooo07/0oooo0P0000060?ooo`03
0000003oool0oooo00H0oooo00<000000?ooo`3oool05P3oool00`000000oooo0?ooo`030?ooo`@0
00009`3oool004H0oooo00<000000?ooo`3oool0S03oool00`000000oooo0?ooo`0F0?ooo`030000
003oool0oooo00L0oooo0P00000V0?ooo`00AP3oool00`000000oooo0?ooo`2<0?ooo`030000003o
ool0oooo04P0oooo00160?ooo`030000003oool0oooo08`0oooo00<000000?ooo`3oool08`3oool0
0`000000oooo0?ooo`0R0?ooo`00A`3oool00`000000oooo0?ooo`2<0?ooo`030000003oool0oooo
0180oooo00<000000?ooo`3oool03P3oool00`000000oooo0?ooo`0Q0?ooo`00B03oool00`000000
oooo0?ooo`2<0?ooo`030000003oool0oooo0100oooo00<000000?ooo`3oool0403oool00`000000
oooo0?ooo`0P0?ooo`00B03oool2000008d0oooo0P00000@0?ooo`030000003oool0oooo0180oooo
00<000000?ooo`3oool07`3oool004T0oooo00<000000?ooo`3oool0S03oool00`000000oooo0?oo
o`0=0?ooo`030000003oool0oooo03D0oooo00190?ooo`030000003oool0oooo08`0oooo00<00000
0?ooo`3oool09P3oool00`000000oooo0?ooo`0L0?ooo`00B@3oool00`000000oooo0?ooo`2<0?oo
o`030000003oool0oooo00T0oooo00<000000?ooo`3oool06`3oool00`000000oooo0?ooo`0K0?oo
o`00B03oool00`000000oooo0?ooo`2<0?ooo`030000003oool0oooo00T0oooo00<000000?ooo`3o
ool07@3oool00`000000oooo0?ooo`0J0?ooo`00A`3oool00`000000oooo0?ooo`2<0?ooo`030000
003oool0oooo00T0oooo00<000000?ooo`3oool07`3oool00`000000oooo0?ooo`0I0?ooo`00903o
ool5000001d0oooo0P00001[0?ooo`D000007@3oool2000000X0oooo00<000000?ooo`3oool0?03o
ool002<0oooo0P0000040?ooo`030000003oool0oooo01X0oooo00<000000?ooo`3oool0J@3oool2
000000@0oooo00<000000?ooo`3oool06P3oool00`000000oooo0?ooo`180?ooo`008`3oool00`00
0000oooo0?ooo`0P0?ooo`030000003oool0oooo06T0oooo00<000000?ooo`3oool0803oool00`00
0000oooo0?ooo`0`0?ooo`030000003oool0oooo01D0oooo000S0?ooo`P000006`3oool2000006X0
oooo2000000K0?ooo`8000001`3oool00`000000oooo0?ooo`0X0?ooo`030000003oool0oooo01@0
oooo000S0?ooo`8000001@3oool00`000000oooo0?ooo`0J0?ooo`030000003oool0oooo06P0oooo
0P0000050?ooo`030000003oool0oooo01X0oooo00<000000?ooo`3oool0103oool00`000000oooo
0?ooo`0Z0?ooo`030000003oool0oooo01<0oooo000T0?ooo`8000000`3oool2000001d0oooo0P00
001Y0?ooo`8000000`3oool2000001d0oooo0P0000030?ooo`030000003oool0oooo02`0oooo00<0
00000?ooo`3oool04P3oool002H0oooo1000000O0?ooo`030000003oool0oooo06T0oooo1000000O
0?ooo`040000003oool0oooo000004@0oooo00190?ooo`030000003oool0oooo08`0oooo00<00000
0?ooo`3oool0A@3oool004H0oooo1000002;0?ooo`@000008P3oool5000000h0oooo00<000000?oo
o`3oool03`3oool004H0oooo1000002;0?ooo`@000008@3oool2000000@0oooo00<000000?ooo`3o
ool0303oool00`000000oooo0?ooo`0>0?ooo`00A@3oool6000008T0oooo1@00000Q0?ooo`030000
003oool0oooo01<0oooo00<000000?ooo`3oool03@3oool003X0oooo1@0000030?ooo`<0000000<0
oooo0000000000000P000000103oool000000000000000030?ooo`D000003P3oool2000006<0oooo
1@0000030?ooo`<0000000<0oooo0000000000000P00000Q0?ooo`P000003`3oool00`000000oooo
0?ooo`0<0?ooo`008`3oool4000000X0oooo1@00000T0?ooo`D000001@3oool4000004X0oooo1000
000:0?ooo`D00000=@3oool2000000D0oooo00<000000?ooo`3oool0703oool002<0oooo2`00000d
0?ooo`P00000B03oool;000003h0oooo0P0000030?ooo`8000007P3oool001/0oooo0P0000030?oo
o`T00000>`3oool<000000<0oooo0P00000e0?ooo`8000000`3oool9000004D0oooo1000000C0?oo
o`030000003oool0oooo00T0oooo000B0?ooo`800000103oool3000000P0oooo0`00001?0?ooo`<0
0000103oool2000002<0oooo0P0000040?ooo`<00000203oool300000600oooo0P0000090?ooo`00
1`3oool5000000<0oooo0`00001/0?ooo`<000000`3oool6000000`0oooo1@0000030?ooo`<00000
MP3oool2000000L0oooo003o0?ooob40oooo003o0?ooob40oooo003o0?ooob40oooo003o0?ooob40
oooo003o0?ooob40oooo003o0?ooob40oooo001U0?ooo`D00000]P3oool006@0oooo0P0000040?oo
o`030000003oool0oooo0;<0oooo001T0?ooo`030000003oool0oooo0;T0oooo001T0?ooo`P00000
]03oool006@0oooo0P0000050?ooo`030000003oool0oooo0;80oooo001U0?ooo`8000000`3oool2
00000;@0oooo001W0?ooo`@00000]@3oool00?l0oooo8@3oool00?l0oooo8@3oool00?l0oooo8@3o
ool00?l0oooo8@3oool00?l0oooo8@3oool00?l0oooo8@3oool00?l0oooo8@3oool00?l0oooo8@3o
ool00?l0oooo8@3oool00?l0oooo8@3oool00?l0oooo8@3oool00?l0oooo8@3oool00?l0oooo8@3o
ool00?l0oooo8@3oool00?l0oooo8@3oool00?l0oooo8@3oool00?l0oooo8@3oool00?l0oooo8@3o
ool00?l0oooo8@3oool00?l0oooo8@3oool00?l0oooo8@3oool00?l0oooo8@3oool00?l0oooo8@3o
ool00?l0oooo8@3oool00?l0oooo8@3oool00?l0oooo8@3oool00001\
\>"],
ImageRangeCache->{{{0, 287}, {143, 0}} -> {-0.0771438, -0.000110001, \
0.153848, 0.153848}, {{0.5, 143.5}, {143, 0}} -> {-1.07703, -1.00011, \
0.153848, 0.153848}, {{143.5, 286.5}, {143, 0}} -> {-23.0773, -1.00011, \
0.153848, 0.153848}}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["The amplitude", "Subsection",
Evaluatable->False,
AspectRatioFixed->True],
Cell["We can safely set the photon mass to zero:", "Text"],
Cell[BoxData[
\(\(ParticleMass[Photon, ___] := 0;\)\)], "Input"],
Cell["Calculation of the amplitude:", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(ampFC = Plus @@ CreateFCAmp[inserttops] // Contract\)], "Input"],
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
SuperscriptBox[
TagBox[
StyleBox["\<\"e\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"], " ",
RowBox[{
RowBox[{"\[CurlyPhi]", "(",
FormBox[
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3"]}],
"TraditionalForm"], ",",
FormBox[
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"], ")"}], ".",
SuperscriptBox["\[Gamma]",
FormBox[
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1"],
"TraditionalForm"],
"TraditionalForm"]], ".",
RowBox[{"\[CurlyPhi]", "(",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"], ",",
FormBox[
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"], ")"}]}], " ",
RowBox[{
RowBox[{"\[CurlyPhi]", "(",
FormBox[
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4"]}],
"TraditionalForm"], ",",
FormBox[
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"], ")"}], ".",
SuperscriptBox["\[Gamma]",
FormBox[
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1"],
"TraditionalForm"],
"TraditionalForm"]], ".",
RowBox[{"\[CurlyPhi]", "(",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1"],
"TraditionalForm"], ",",
FormBox[
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"], ")"}]}], " ",
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"]}],
"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3"]}],
")"}], "2"]],
"TraditionalForm"]}], "-",
RowBox[{
SuperscriptBox[
RowBox[{"(",
SuperscriptBox[
TagBox[
StyleBox["\<\"e\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"], " ",
RowBox[{
RowBox[{"\[CurlyPhi]", "(",
FormBox[
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3"]}],
"TraditionalForm"], ",",
FormBox[
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"], ")"}], ".",
SuperscriptBox["\[Gamma]",
FormBox[
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"],
"TraditionalForm"]], ".",
RowBox[{"\[CurlyPhi]", "(",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1"],
"TraditionalForm"], ",",
FormBox[
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"], ")"}]}], " ",
RowBox[{
RowBox[{"\[CurlyPhi]", "(",
FormBox[
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4"]}],
"TraditionalForm"], ",",
FormBox[
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"], ")"}], ".",
SuperscriptBox["\[Gamma]",
FormBox[
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"],
"TraditionalForm"]], ".",
RowBox[{"\[CurlyPhi]", "(",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"], ",",
FormBox[
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"], ")"}]}], " ",
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"]}],
"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4"]}],
")"}], "2"]],
"TraditionalForm"]}]}], TraditionalForm]], "Output"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["The differential cross section", "Subsection"],
Cell["\<\
Squaring the amplitude, transforming the spin sums into traces and \
evaluating the traces:\
\>", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(ampFC\)], "Input"],
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
SuperscriptBox[
TagBox[
StyleBox["\<\"e\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"], " ",
RowBox[{
RowBox[{"\[CurlyPhi]", "(",
FormBox[
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3"]}],
"TraditionalForm"], ",",
FormBox[
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"], ")"}], ".",
SuperscriptBox["\[Gamma]",
FormBox[
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1"],
"TraditionalForm"],
"TraditionalForm"]], ".",
RowBox[{"\[CurlyPhi]", "(",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"], ",",
FormBox[
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"], ")"}]}], " ",
RowBox[{
RowBox[{"\[CurlyPhi]", "(",
FormBox[
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4"]}],
"TraditionalForm"], ",",
FormBox[
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"], ")"}], ".",
SuperscriptBox["\[Gamma]",
FormBox[
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1"],
"TraditionalForm"],
"TraditionalForm"]], ".",
RowBox[{"\[CurlyPhi]", "(",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1"],
"TraditionalForm"], ",",
FormBox[
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"], ")"}]}], " ",
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"]}],
"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3"]}],
")"}], "2"]],
"TraditionalForm"]}], "-",
RowBox[{
SuperscriptBox[
RowBox[{"(",
SuperscriptBox[
TagBox[
StyleBox["\<\"e\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"], " ",
RowBox[{
RowBox[{"\[CurlyPhi]", "(",
FormBox[
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3"]}],
"TraditionalForm"], ",",
FormBox[
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"], ")"}], ".",
SuperscriptBox["\[Gamma]",
FormBox[
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"],
"TraditionalForm"]], ".",
RowBox[{"\[CurlyPhi]", "(",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1"],
"TraditionalForm"], ",",
FormBox[
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"], ")"}]}], " ",
RowBox[{
RowBox[{"\[CurlyPhi]", "(",
FormBox[
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4"]}],
"TraditionalForm"], ",",
FormBox[
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"], ")"}], ".",
SuperscriptBox["\[Gamma]",
FormBox[
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"],
"TraditionalForm"]], ".",
RowBox[{"\[CurlyPhi]", "(",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"], ",",
FormBox[
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]],
"TraditionalForm"], ")"}]}], " ",
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"]}],
"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4"]}],
")"}], "2"]],
"TraditionalForm"]}]}], TraditionalForm]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(squaredamp = \(FermionSpinSum[
ampFC\ ComplexConjugate[
ampFC /. {\[Mu]1 \[Rule] \[Nu]1, \[Mu]2 \[Rule] \
\[Nu]2}] /. D \[Rule] 4 // Expand] /. DiracTrace \[Rule] Tr //
DiracSimplify\) // Simplify\)], "Input"],
Cell[BoxData[
FormBox[
RowBox[{"8", " ",
SuperscriptBox[
RowBox[{"(",
SuperscriptBox[
TagBox[
StyleBox["\<\"e\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{
SubsuperscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4",
FormBox[
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1"],
"TraditionalForm"],
"TraditionalForm"]], " ",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1",
FormBox[
FormBox["\[Nu]1",
"TraditionalForm"],
"TraditionalForm"]]}], "+",
RowBox[{
SubsuperscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1",
FormBox[
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1"],
"TraditionalForm"],
"TraditionalForm"]], " ",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4",
FormBox[
FormBox["\[Nu]1",
"TraditionalForm"],
"TraditionalForm"]]}], "-",
RowBox[{
SuperscriptBox["g",
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1"],
"TraditionalForm"], "\[Nu]1"}]], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"], "+",
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"1"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"4"],
"TraditionalForm"]}]}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SubsuperscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3",
FormBox[
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1"],
"TraditionalForm"],
"TraditionalForm"]], " ",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2",
FormBox[
FormBox["\[Nu]1",
"TraditionalForm"],
"TraditionalForm"]]}], "+",
RowBox[{
SubsuperscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2",
FormBox[
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1"],
"TraditionalForm"],
"TraditionalForm"]], " ",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3",
FormBox[
FormBox["\[Nu]1",
"TraditionalForm"],
"TraditionalForm"]]}], "-",
RowBox[{
SuperscriptBox["g",
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1"],
"TraditionalForm"], "\[Nu]1"}]], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"], "+",
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"3"],
"TraditionalForm"]}]}], ")"}]}]}], ")"}], " ",
SuperscriptBox[
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"3"]}], ")"}], "2"]],
"TraditionalForm"], "2"]}], "+",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"]}], "+",
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"1"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"3"],
"TraditionalForm"]}], "+",
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"1"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"4"],
"TraditionalForm"]}], "+",
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"3"],
"TraditionalForm"]}], "+",
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"4"],
"TraditionalForm"]}], "-",
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"3"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"4"],
"TraditionalForm"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"]}], "+",
RowBox[{
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"]}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"3"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"4"],
"TraditionalForm"]}]}], "-",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"]}],
")"}]}]}], ")"}], " ",
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4"]}],
")"}], "2"]],
"TraditionalForm"], " ",
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3"]}],
")"}], "2"]],
"TraditionalForm"]}], "+",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{
SubsuperscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3",
FormBox[
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"],
"TraditionalForm"]], " ",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1",
FormBox[
FormBox["\[Nu]2",
"TraditionalForm"],
"TraditionalForm"]]}], "+",
RowBox[{
SubsuperscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1",
FormBox[
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"],
"TraditionalForm"]], " ",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3",
FormBox[
FormBox["\[Nu]2",
"TraditionalForm"],
"TraditionalForm"]]}], "-",
RowBox[{
SuperscriptBox["g",
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"], "\[Nu]2"}]], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"], "+",
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"1"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"3"],
"TraditionalForm"]}]}], ")"}]}]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
SubsuperscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4",
FormBox[
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"],
"TraditionalForm"]], " ",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2",
FormBox[
FormBox["\[Nu]2",
"TraditionalForm"],
"TraditionalForm"]]}], "+",
RowBox[{
SubsuperscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2",
FormBox[
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"],
"TraditionalForm"]], " ",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4",
FormBox[
FormBox["\[Nu]2",
"TraditionalForm"],
"TraditionalForm"]]}], "-",
RowBox[{
SuperscriptBox["g",
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"\[Mu]\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"], "\[Nu]2"}]], " ",
RowBox[{"(",
RowBox[{
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"], "+",
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"4"],
"TraditionalForm"]}]}], ")"}]}]}], ")"}], " ",
SuperscriptBox[
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"4"]}], ")"}], "2"]],
"TraditionalForm"], "2"]}]}], ")"}]}],
TraditionalForm]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(squaredampfinal = \(squaredamp // Contract\) // Simplify\)], "Input"],
Cell[BoxData[
FormBox[
RowBox[{"32", " ",
SuperscriptBox[
RowBox[{"(",
SuperscriptBox[
TagBox[
StyleBox["\<\"e\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ",
SuperscriptBox[
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"3"]}], ")"}], "2"]],
"TraditionalForm"], "2"], " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "4"]}], "+",
RowBox[{"2", " ",
SuperscriptBox[
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"4"]}], ")"}], "2"]],
"TraditionalForm"], "2"], " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "4"]}], "+",
RowBox[{"2", " ",
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3"]}],
")"}], "2"]],
"TraditionalForm"], " ",
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4"]}],
")"}], "2"]],
"TraditionalForm"], " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "4"]}], "+",
RowBox[{
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4"],
"TraditionalForm"]}], " ",
SuperscriptBox[
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"3"]}], ")"}], "2"]],
"TraditionalForm"], "2"], " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"]}], "+",
RowBox[{
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3"],
"TraditionalForm"]}], " ",
SuperscriptBox[
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"3"]}], ")"}], "2"]],
"TraditionalForm"], "2"], " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"]}], "+",
RowBox[{
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4"],
"TraditionalForm"]}], " ",
SuperscriptBox[
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"4"]}], ")"}], "2"]],
"TraditionalForm"], "2"], " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"]}], "+",
RowBox[{
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4"],
"TraditionalForm"]}], " ",
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3"]}],
")"}], "2"]],
"TraditionalForm"], " ",
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4"]}],
")"}], "2"]],
"TraditionalForm"], " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"]}], "+",
RowBox[{
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3"],
"TraditionalForm"]}], " ",
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3"]}],
")"}], "2"]],
"TraditionalForm"], " ",
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4"]}],
")"}], "2"]],
"TraditionalForm"], " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"]}], "+",
RowBox[{
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4"],
"TraditionalForm"]}], " ",
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3"]}],
")"}], "2"]],
"TraditionalForm"], " ",
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4"]}],
")"}], "2"]],
"TraditionalForm"], " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"]}], "-",
RowBox[{
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4"],
"TraditionalForm"]}], " ",
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3"]}],
")"}], "2"]],
"TraditionalForm"], " ",
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4"]}],
")"}], "2"]],
"TraditionalForm"], " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"]}], "+",
RowBox[{
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4"],
"TraditionalForm"]}], " ",
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3"],
"TraditionalForm"]}], " ",
SuperscriptBox[
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"4"]}], ")"}], "2"]],
"TraditionalForm"], "2"]}], "+",
RowBox[{
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3"],
"TraditionalForm"]}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"4"]}], ")"}], "2"]],
"TraditionalForm"], " ",
RowBox[{"(",
RowBox[{
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(
StyleForm[ #, FontSlant ->
"Italic"]&)], "2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(
StyleForm[ #, FontSlant -> "Italic"]&)],
"3"]}], ")"}], "2"]],
"TraditionalForm"], "+",
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant ->
"Italic"]&)], "2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(
StyleForm[ #, FontSlant -> "Italic"]&)],
"4"]}], ")"}], "2"]],
"TraditionalForm"]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"]}], "+",
RowBox[{
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4"],
"TraditionalForm"]}], " ",
SuperscriptBox[
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(
StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"3"]}], ")"}], "2"]],
"TraditionalForm"], "2"]}]}], ")"}]}], "+",
RowBox[{
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "1"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "2"],
"TraditionalForm"]}], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "3"],
"TraditionalForm"], "\[CenterDot]",
FormBox[
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)], "4"],
"TraditionalForm"]}], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(
StyleForm[ #, FontSlant ->
"Italic"]&)], "2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(
StyleForm[ #, FontSlant ->
"Italic"]&)], "3"]}], ")"}], "2"]],
"TraditionalForm"], "+",
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(
StyleForm[ #, FontSlant ->
"Italic"]&)], "2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(
StyleForm[ #, FontSlant ->
"Italic"]&)], "4"]}], ")"}], "2"]],
"TraditionalForm"]}], ")"}], "2"]}], "-",
RowBox[{
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"], " ",
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"3"]}], ")"}], "2"]],
"TraditionalForm"], " ",
FormBox[
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"2"]}], "-",
SubscriptBox[
TagBox[
StyleBox["\<\"p\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
"4"]}], ")"}], "2"]],
"TraditionalForm"]}]}], ")"}]}]}], ")"}]}],
TraditionalForm]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(samp = \(\(squaredampfinal // PropagatorDenominatorExplicit\) //
MandelstamReduce[#,
Masses \[Rule] {ParticleMass[Electron,
RenormalizationState[0]],
ParticleMass[Electron, RenormalizationState[0]],
ParticleMass[Electron, RenormalizationState[0]],
ParticleMass[Electron, RenormalizationState[0]]},
MandelstamCancel \[Rule] MandelstamU] &\) //
Simplify\)], "Input"],
Cell[BoxData[
FormBox[
FractionBox[
RowBox[{"16", " ",
SuperscriptBox[
RowBox[{"(",
SuperscriptBox[
TagBox[
StyleBox["\<\"e\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"64", " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "8"]}], "+",
RowBox[{"16", " ",
RowBox[{"(",
RowBox[{
StyleBox["\<\"t\"\>",
FontSlant->"Italic"], "-",
RowBox[{"6", " ",
StyleBox["\<\"s\"\>",
FontSlant->"Italic"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "6"]}], "+",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{
RowBox[{"13", " ",
SuperscriptBox[
StyleBox["\<\"s\"\>",
FontSlant->"Italic"], "2"]}], "+",
RowBox[{"3", " ",
StyleBox["\<\"t\"\>",
FontSlant->"Italic"], " ",
StyleBox["\<\"s\"\>",
FontSlant->"Italic"]}], "+",
RowBox[{"3", " ",
SuperscriptBox[
StyleBox["\<\"t\"\>",
FontSlant->"Italic"], "2"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "4"]}], "-",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{
RowBox[{"3", " ",
SuperscriptBox[
StyleBox["\<\"s\"\>",
FontSlant->"Italic"], "3"]}], "+",
RowBox[{"3", " ",
StyleBox["\<\"t\"\>",
FontSlant->"Italic"], " ",
SuperscriptBox[
StyleBox["\<\"s\"\>",
FontSlant->"Italic"], "2"]}], "+",
RowBox[{"3", " ",
SuperscriptBox[
StyleBox["\<\"t\"\>",
FontSlant->"Italic"], "2"], " ",
StyleBox["\<\"s\"\>",
FontSlant->"Italic"]}], "+",
RowBox[{"2", " ",
SuperscriptBox[
StyleBox["\<\"t\"\>",
FontSlant->"Italic"], "3"]}]}], ")"}], " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"]}], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{
SuperscriptBox[
StyleBox["\<\"s\"\>",
FontSlant->"Italic"], "2"], "+",
RowBox[{
StyleBox["\<\"t\"\>",
FontSlant->"Italic"], " ",
StyleBox["\<\"s\"\>",
FontSlant->"Italic"]}], "+",
SuperscriptBox[
StyleBox["\<\"t\"\>",
FontSlant->"Italic"], "2"]}], ")"}], "2"]}], ")"}]}],
RowBox[{
SuperscriptBox[
StyleBox["\<\"t\"\>",
FontSlant->"Italic"], "2"], " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{\(-4\), " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"]}], "+",
StyleBox["\<\"s\"\>",
FontSlant->"Italic"], "+",
StyleBox["\<\"t\"\>",
FontSlant->"Italic"]}], ")"}], "2"]}]],
TraditionalForm]], "Output"]
}, Open ]],
Cell["The kinematical factor in the center of mass frame:", "Text"],
Cell[BoxData[
\(\(kinfac = 1\/\(64\ \(\[Pi]\^2\) s\);\)\)], "Input"],
Cell["\<\
The full differential cross section in the center of mass frame \
expressed in terms of Mandelstam variables:\
\>", "Text"],
Cell[BoxData[
\(\(dcrosssection[s_, t_,
u_] := \(1\/4\) kinfac*samp /. {MandelstamS \[Rule] s,
MandelstamU \[Rule] u, MandelstamT \[Rule] t};\)\)], "Input"],
Cell[CellGroupData[{
Cell[BoxData[
\(dcrosssection[s, t, u]\)], "Input"],
Cell[BoxData[
FormBox[
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
SuperscriptBox[
TagBox[
StyleBox["\<\"e\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "4"], " ",
RowBox[{"(",
RowBox[{
RowBox[{"64", " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "8"]}], "+",
RowBox[{"16", " ", \((t - 6\ s)\), " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "6"]}], "+",
RowBox[{"4", " ", \((13\ s\^2 + 3\ t\ s + 3\ t\^2)\), " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "4"]}], "-",
RowBox[{
"4", " ", \((3\ s\^3 + 3\ t\ s\^2 + 3\ t\^2\ s + 2\ t\^3)\),
" ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"]}],
"+", \(\((s\^2 + t\ s + t\^2)\)\^2\)}], ")"}]}],
RowBox[{"16", " ", \(\[Pi]\^2\), " ", "s", " ", \(t\^2\), " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{\(-4\), " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"]}], "+", "s", "+",
"t"}], ")"}], "2"]}]], TraditionalForm]], "Output"]
}, Open ]],
Cell["The formula usually quoted:", "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(MoellerFormula = \(dcrosssection[s, t, u] /. {s \[Rule] 4\ \[Omega]\^2,
t \[Rule] \(-2\)\ q2 \((1 - \@\(1 - sin[\[Theta]]\^2\))\)}\) /.
q2 \[Rule] \[Omega]\^2 -
ParticleMass[Fermion[7], RenormalizationState[0]]\^2 //
Simplify\)], "Input"],
Cell[BoxData[
FormBox[
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
SuperscriptBox[
TagBox[
StyleBox["\<\"e\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
RowBox[{
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "4"], " ",
RowBox[{"(",
RowBox[{\(\((\(sin(\[Theta])\)\^2 - 4)\)\^2\ \[Omega]\^4\), "-",
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"],
" ", \((\(sin(\[Theta])\)\^4 - 2\ \(sin(\[Theta])\)\^2 + 8)\),
" ", \(\[Omega]\^2\)}], "+",
RowBox[{
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "4"],
" ", \((\(sin(\[Theta])\)\^4 + \(sin(\[Theta])\)\^2 +
4)\)}]}], ")"}]}],
RowBox[{"64", " ", \(\[Pi]\^2\), " ", \(\[Omega]\^2\), " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{\(\[Omega]\^2\), "-",
SuperscriptBox[
RowBox[{"(",
SubsuperscriptBox[
TagBox[
StyleBox["\<\"m\"\>",
FontSlant->"Italic"],
(StyleForm[ #, FontSlant -> "Italic"]&)],
TagBox[
FormBox["\<\"\[Psi]\"\>",
"TraditionalForm"],
TraditionalForm,
Editable->True],
RowBox[{"\[Null]",
TagBox[
FormBox["0",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True],
TagBox[
FormBox["",
"TraditionalForm"],
TraditionalForm,
Editable->True]}]], ")"}], "2"]}], ")"}], "2"],
" ", \(\(sin(\[Theta])\)\^4\)}]], TraditionalForm]], "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
\(TimeUsed[]\)], "Input"],
Cell[BoxData[
\(TraditionalForm\`11.`\)], "Output"]
}, Open ]]
}, Open ]]
}, Open ]]
},
FrontEndVersion->"5.0 for X",
ScreenRectangle->{{0, 1400}, {0, 1050}},
CellGrouping->Manual,
WindowSize->{924, 786},
WindowMargins->{{123, Automatic}, {Automatic, 74}}
]
(*******************************************************************
Cached data follows. If you edit this Notebook file directly, not
using Mathematica, you must remove the line containing CacheID at
the top of the file. The cache data will then be recreated when
you save this file from within Mathematica.
*******************************************************************)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[1776, 53, 177, 7, 162, "Title"],
Cell[CellGroupData[{
Cell[1978, 64, 209, 8, 48, "Subsubtitle"],
Cell[2190, 74, 134, 2, 43, "Input"],
Cell[CellGroupData[{
Cell[2349, 80, 78, 1, 27, "Input"],
Cell[2430, 83, 163, 3, 19, "Text"],
Cell[2596, 88, 175, 3, 19, "Text"],
Cell[2774, 93, 670, 21, 19, "Text"],
Cell[3447, 116, 127, 3, 19, "Text"],
Cell[3577, 121, 170, 3, 19, "Text"],
Cell[3750, 126, 172, 3, 19, "Text"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[3971, 135, 146, 4, 38, "Subsection",
Evaluatable->False],
Cell[4120, 141, 35, 0, 32, "Text"],
Cell[CellGroupData[{
Cell[4180, 145, 118, 3, 27, "Input"],
Cell[4301, 150, 10852, 283, 45, "Output"]
}, Open ]],
Cell[15168, 436, 125, 5, 32, "Text"],
Cell[CellGroupData[{
Cell[15318, 445, 321, 5, 59, "Input"],
Cell[15642, 452, 2102, 61, 35, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[17781, 518, 80, 1, 27, "Input"],
Cell[17864, 521, 1071, 33, 29, "Output"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[18984, 560, 131, 4, 38, "Subsection",
Evaluatable->False],
Cell[19118, 566, 100, 3, 32, "Text"],
Cell[CellGroupData[{
Cell[19243, 573, 100, 2, 27, "Input"],
Cell[19346, 577, 114, 3, 40, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[19497, 585, 116, 2, 27, "Input"],
Cell[19616, 589, 23, 0, 40, "Output"]
}, Open ]],
Cell[19654, 592, 54, 1, 27, "Input"],
Cell[CellGroupData[{
Cell[19733, 597, 220, 4, 43, "Input"],
Cell[19956, 603, 135, 2, 24, "Print"],
Cell[20094, 607, 72, 1, 24, "Print"]
}, Open ]],
Cell[CellGroupData[{
Cell[20203, 613, 222, 4, 43, "Input"],
Cell[20428, 619, 135, 2, 24, "Print"],
Cell[20566, 623, 72, 1, 24, "Print"]
}, Open ]],
Cell[20653, 627, 54, 1, 27, "Input"]
}, Open ]],
Cell[CellGroupData[{
Cell[20744, 633, 53, 0, 38, "Subsection"],
Cell[20800, 635, 43, 0, 32, "Text"],
Cell[20846, 637, 209, 4, 27, "Input"],
Cell[CellGroupData[{
Cell[21080, 645, 111, 2, 27, "Input"],
Cell[21194, 649, 17530, 528, 122, 8905, 417, "GraphicsData", "PostScript", \
"Graphics"]
}, Open ]],
Cell[38739, 1180, 32, 0, 32, "Text"],
Cell[38774, 1182, 290, 6, 43, "Input"],
Cell[39067, 1190, 56, 0, 32, "Text"],
Cell[CellGroupData[{
Cell[39148, 1194, 234, 4, 43, "Input"],
Cell[39385, 1200, 24465, 817, 152, 14710, 692, "GraphicsData", "PostScript", \
"Graphics"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[63899, 2023, 83, 2, 38, "Subsection",
Evaluatable->False],
Cell[63985, 2027, 58, 0, 32, "Text"],
Cell[64046, 2029, 68, 1, 27, "Input"],
Cell[64117, 2032, 45, 0, 32, "Text"],
Cell[CellGroupData[{
Cell[64187, 2036, 84, 1, 27, "Input"],
Cell[64274, 2039, 16118, 424, 92, "Output"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[80441, 2469, 52, 0, 38, "Subsection"],
Cell[80496, 2471, 115, 3, 32, "Text"],
Cell[CellGroupData[{
Cell[80636, 2478, 38, 1, 27, "Input"],
Cell[80677, 2481, 16118, 424, 92, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[96832, 2910, 276, 5, 59, "Input"],
Cell[97111, 2917, 34764, 749, 137, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[131912, 3671, 89, 1, 27, "Input"],
Cell[132004, 3674, 45588, 1056, 226, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[177629, 4735, 512, 9, 91, "Input"],
Cell[178144, 4746, 10082, 244, 58, "Output"]
}, Open ]],
Cell[188241, 4993, 67, 0, 32, "Text"],
Cell[188311, 4995, 72, 1, 44, "Input"],
Cell[188386, 4998, 133, 3, 32, "Text"],
Cell[188522, 5003, 184, 3, 44, "Input"],
Cell[CellGroupData[{
Cell[188731, 5010, 55, 1, 27, "Input"],
Cell[188789, 5013, 7510, 181, 58, "Output"]
}, Open ]],
Cell[196314, 5197, 43, 0, 32, "Text"],
Cell[CellGroupData[{
Cell[196382, 5201, 308, 5, 79, "Input"],
Cell[196693, 5208, 5063, 123, 57, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[201793, 5336, 43, 1, 27, "Input"],
Cell[201839, 5339, 55, 1, 28, "Output"]
}, Open ]]
}, Open ]]
}, Open ]]
}
]
*)
(*******************************************************************
End of Mathematica Notebook file.
*******************************************************************)
This archive was generated by hypermail 2b29 : 09/04/20-12:55:05 AM Z CEST