Name: Rolf Mertig (email_not_shown)
Date: 09/19/03-05:41:34 PM Z


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 : 04/24/17-07:20:01 AM Z CEST