(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     73076,       1839]
NotebookOptionsPosition[     64362,       1705]
NotebookOutlinePosition[     64795,       1722]
CellTagsIndexPosition[     64752,       1719]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["QCD calculation: Webber et al. Sec. 7 (with FeynRules)", "Title",
 CellChangeTimes->{{3.536036981997404*^9, 3.536037029033853*^9}, {
  3.536052257002532*^9, 3.5360522778477297`*^9}, {3.6840171357821407`*^9, 
  3.684017136043682*^9}},ExpressionUUID->"48062804-9402-4f85-99e6-\
db2e24ef2886"],

Cell[CellGroupData[{

Cell["Two-jet cross sections (Only QCD; mass ignored) again", "Section",
 CellChangeTimes->{{3.536037131534835*^9, 3.5360372263613586`*^9}, {
  3.536037424335751*^9, 3.5360374299097357`*^9}, {3.5360374678636017`*^9, 
  3.536037467995038*^9}, {3.536045676079969*^9, 3.536045693740925*^9}, {
  3.5360525812615643`*^9, 3.536052607508396*^9}, {3.684018289335824*^9, 
  3.684018289638418*^9}},ExpressionUUID->"24c1c48d-876c-4295-9554-\
81e6bfa35339"],

Cell[CellGroupData[{

Cell["Initialization", "Subsection",
 CellChangeTimes->{{3.5360374730944557`*^9, 
  3.536037479508855*^9}},ExpressionUUID->"ef4e69f8-2d54-4b95-a813-\
62d320b23326"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Exit", "[", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.5360382549509077`*^9, 3.536038276342574*^9}, 
   3.53603834277113*^9},ExpressionUUID->"2fb07aea-62d1-4c4f-948e-\
255b0d447071"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"$Language", "=", "\"\<English\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "FeynArts`"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "FormCalc`"}]}], "Input",
 CellChangeTimes->{{3.5360373787170563`*^9, 3.536037381121767*^9}, {
   3.5360374895751467`*^9, 3.536037548333282*^9}, {3.536037650722055*^9, 
   3.536037657410592*^9}, {3.5360379743666153`*^9, 3.5360380215197287`*^9}, {
   3.536038063766507*^9, 3.536038183907959*^9}, {3.536038388610857*^9, 
   3.53603838940345*^9}, {3.536045708094194*^9, 3.536045714062668*^9}, {
   3.536052625049251*^9, 3.536052625325549*^9}, {3.536053272279801*^9, 
   3.536053273111397*^9}, 
   3.583115388185872*^9},ExpressionUUID->"3c392c6e-442d-432a-89af-\
31a4824f89da"],

Cell[CellGroupData[{

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.684018368749802*^9, 
  3.728643043144909*^9},ExpressionUUID->"a003e032-5d1e-40b8-af81-\
097e07e7d526"],

Cell[BoxData["\<\"FeynArts 3.9 (23 Sep 2015)\"\>"], "Print",
 CellChangeTimes->{3.684018368749802*^9, 
  3.728643043154251*^9},ExpressionUUID->"af9d3617-954c-41be-918e-\
02176ccd9b33"],

Cell[BoxData["\<\"by Hagen Eck, Sepp Kueblbeck, and Thomas Hahn\"\>"], "Print",
 CellChangeTimes->{3.684018368749802*^9, 
  3.7286430431636877`*^9},ExpressionUUID->"5c579a80-567f-4990-bec6-\
2f2a1032a05f"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.684018368749802*^9, 
  3.728643043242344*^9},ExpressionUUID->"e3f3df60-0d42-41f5-97d4-\
b2bbdd3ab6ca"],

Cell[BoxData["\<\"FormCalc 9.6 (21 Feb 2018)\"\>"], "Print",
 CellChangeTimes->{3.684018368749802*^9, 
  3.7286430432529507`*^9},ExpressionUUID->"8414ce58-3c72-4ba1-b17b-\
e1a5630f56ae"],

Cell[BoxData["\<\"by Thomas Hahn\"\>"], "Print",
 CellChangeTimes->{3.684018368749802*^9, 
  3.728643043262294*^9},ExpressionUUID->"326b041e-254a-41ce-b686-\
6a5f9d755ffd"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["FeynRules model files", "Subsection",
 CellChangeTimes->{{3.6840172393151007`*^9, 
  3.684017261369205*^9}},ExpressionUUID->"3bd1a017-95aa-43ed-b0ca-\
a25f042b0452"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"model", " ", "=", " ", 
  RowBox[{"FileNameJoin", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<models\>\"", ",", 
     "\"\<SM\>\"", ",", "\"\<Standard_Model_FA\>\"", ",", 
     "\"\<Standard_Model_FA\>\""}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.6840167703760977`*^9},ExpressionUUID->"46fbeacc-0ee7-4ddd-85a2-\
4d693b3b60fd"],

Cell[BoxData["\<\"/Users/misho/.ghq/github.com/misho104/FeynLecture/models/SM/\
Standard_Model_FA/Standard_Model_FA\"\>"], "Output",
 CellChangeTimes->{3.6840172872873793`*^9, 3.684018324675665*^9, 
  3.6840183777205353`*^9, 3.7281442995324297`*^9, 
  3.7286430456430902`*^9},ExpressionUUID->"ab693cbd-9f2b-4431-b36a-\
ff4566fc5dcc"]
}, Open  ]],

Cell["You can check whether the files exist or not by:", "Text",
 CellChangeTimes->{{3.684016785334231*^9, 3.684016837028989*^9}, {
  3.68401687813199*^9, 
  3.684016892027458*^9}},ExpressionUUID->"bf354427-cf3b-4b9a-a71a-\
68897e9e1fb7"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"FileExistsQ", "[", 
  RowBox[{"model", "<>", "\"\<.mod\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"FileExistsQ", "[", 
  RowBox[{"model", "<>", "\"\<.gen\>\""}], "]"}]}], "Input",
 CellChangeTimes->{{3.6840168396463127`*^9, 
  3.68401686838964*^9}},ExpressionUUID->"4733ad80-6064-40cc-89fb-\
4944d905eda0"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.6840172910491037`*^9, 3.6840183271129103`*^9, 
  3.684018380736618*^9, 
  3.7286430475206327`*^9},ExpressionUUID->"ce17356e-3be9-46dc-b051-\
90ab73f117f0"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.6840172910491037`*^9, 3.6840183271129103`*^9, 
  3.684018380736618*^9, 
  3.728643047529099*^9},ExpressionUUID->"4da851fc-ca70-4935-81a5-\
fc9c93efefd6"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Create Topology (and also ignore helicities)", "Subsection",
 CellChangeTimes->{{3.5360398319912243`*^9, 3.5360398413102627`*^9}, {
  3.536039916228428*^9, 3.53603992045197*^9}, {3.536053280853504*^9, 
  3.536053289164153*^9}},ExpressionUUID->"603f22bc-3a4d-46d6-b783-\
77ed8d30ef64"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"topologies", "=", 
   RowBox[{"CreateTopologies", "[", 
    RowBox[{"0", ",", 
     RowBox[{"2", "\[Rule]", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"_Hel", "=", "0"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5360398433189297`*^9, 3.536039858887414*^9}, {
  3.5360398916549*^9, 3.53603989217457*^9}, {3.5360457214194193`*^9, 
  3.536045731074902*^9}, {3.536052641845634*^9, 3.536052642668128*^9}, {
  3.5360532647260027`*^9, 3.5360532794224253`*^9}, {3.5378611133161287`*^9, 
  3.537861114961829*^9}},ExpressionUUID->"35db34dd-e292-465b-b859-\
df3c2759abff"]
}, Open  ]],

Cell[CellGroupData[{

Cell["u c \[Rule] u c", "Subsection",
 CellChangeTimes->{{3.5360399097567263`*^9, 3.536039928076377*^9}, {
  3.536053291836194*^9, 3.536053298771755*^9}, {3.68401718151709*^9, 
  3.684017185659506*^9}},ExpressionUUID->"b95900f4-c8b3-4352-9b99-\
0ffa3442c688"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"diag", "=", 
   RowBox[{"InsertFields", "[", 
    RowBox[{"topologies", ",", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"F", "[", 
         RowBox[{"3", ",", 
          RowBox[{"{", "1", "}"}]}], "]"}], ",", 
        RowBox[{"F", "[", 
         RowBox[{"3", ",", 
          RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}], "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"F", "[", 
         RowBox[{"3", ",", 
          RowBox[{"{", "1", "}"}]}], "]"}], ",", 
        RowBox[{"F", "[", 
         RowBox[{"3", ",", 
          RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}]}], ",", 
     RowBox[{"InsertionLevel", "\[Rule]", 
      RowBox[{"{", "Classes", "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"ExcludeParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"V", "[", "1", "]"}], ",", 
        RowBox[{"V", "[", "2", "]"}], ",", 
        RowBox[{"V", "[", "3", "]"}], ",", 
        RowBox[{"V", "[", "4", "]"}], ",", 
        RowBox[{"S", "[", "1", "]"}], ",", 
        RowBox[{"S", "[", "2", "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
     StyleBox[
      RowBox[{"GenericModel", "\[Rule]", "model"}],
      Background->RGBColor[1, 1, 0]], 
     StyleBox[",",
      Background->RGBColor[1, 1, 0]], 
     StyleBox["\[IndentingNewLine]",
      Background->RGBColor[1, 1, 0]], 
     StyleBox[
      RowBox[{
       RowBox[{"Model", "\[Rule]", "model"}], "\[IndentingNewLine]"}],
      Background->RGBColor[1, 1, 0]]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Paint", "[", "diag", "]"}]}], "Input",
 CellChangeTimes->{{3.53603993169267*^9, 3.536040006745463*^9}, {
   3.5360400491143827`*^9, 3.5360400712109747`*^9}, {3.536045734812549*^9, 
   3.536045749085781*^9}, {3.536052645160928*^9, 3.536052786085621*^9}, {
   3.536052960903105*^9, 3.536053014006845*^9}, {3.5360531281787643`*^9, 
   3.536053129002655*^9}, {3.536053307196266*^9, 3.536053330947126*^9}, {
   3.536053378585105*^9, 3.536053389088366*^9}, {3.684017202628255*^9, 
   3.684017202996518*^9}, {3.684017298769163*^9, 3.684017299471631*^9}, 
   3.6840173964056377`*^9, 
   3.684018341951619*^9},ExpressionUUID->"5bdf7080-33f1-4e80-bf62-\
ca98af9df074"],

Cell[CellGroupData[{

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.72864305082732*^9},ExpressionUUID->"7f3bc785-0412-491c-b578-\
dd317a882e5b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", 
   "\[InvisibleSpace]", "\<\"generic\"\>", 
   "\[InvisibleSpace]", "\<\" model file \"\>", 
   "\[InvisibleSpace]", \
"\<\"/Users/misho/.ghq/github.com/misho104/FeynLecture/models/SM/Standard_\
Model_FA/Standard_Model_FA.gen\"\>"}],
  SequenceForm[
  "", "loading ", "generic", " model file ", 
   "/Users/misho/.ghq/github.com/misho104/FeynLecture/models/SM/Standard_\
Model_FA/Standard_Model_FA.gen"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.7286430508352757`*^9},ExpressionUUID->"bc24afc4-2b29-4488-9ffc-\
a8fea72972e6"],

Cell[BoxData["\<\"> $GenericMixing is OFF\"\>"], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.7286430508448753`*^9},ExpressionUUID->"6c1e485f-777c-4b0d-9827-\
b0e4ed632577"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"generic model \"\>", "\[InvisibleSpace]", 
   RowBox[{
   "{", "\<\"/Users/misho/.ghq/github.com/misho104/FeynLecture/models/SM/\
Standard_Model_FA/Standard_Model_FA\"\>", "}"}], 
   "\[InvisibleSpace]", "\<\" initialized\"\>"}],
  SequenceForm[
  "generic model ", {
   "/Users/misho/.ghq/github.com/misho104/FeynLecture/models/SM/Standard_\
Model_FA/Standard_Model_FA"}, " initialized"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.728643050853483*^9},ExpressionUUID->"43997a5c-c752-4a90-82a4-\
f56c48806db6"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.728643050862153*^9},ExpressionUUID->"e8e3d231-db74-4e62-afac-\
a81384288f53"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", 
   "\[InvisibleSpace]", "\<\"classes\"\>", 
   "\[InvisibleSpace]", "\<\" model file \"\>", 
   "\[InvisibleSpace]", \
"\<\"/Users/misho/.ghq/github.com/misho104/FeynLecture/models/SM/Standard_\
Model_FA/Standard_Model_FA.mod\"\>"}],
  SequenceForm[
  "", "loading ", "classes", " model file ", 
   "/Users/misho/.ghq/github.com/misho104/FeynLecture/models/SM/Standard_\
Model_FA/Standard_Model_FA.mod"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.7286430508708677`*^9},ExpressionUUID->"c486df05-6056-4cf6-8b50-\
afd31a22f329"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "43", 
   "\[InvisibleSpace]", "\<\" particles (incl. antiparticles) in \"\>", 
   "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" classes\"\>"}],
  SequenceForm[
  "> ", 43, " particles (incl. antiparticles) in ", 16, " classes"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.728643050880384*^9},ExpressionUUID->"94559f18-d2b3-45b5-b382-\
9a24ce84fda3"],

Cell[BoxData["\<\"> $CounterTerms are ON\"\>"], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.7286430508895903`*^9},ExpressionUUID->"ec95a9fb-0fea-463f-997b-\
89f0d4c12a03"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "93", 
   "\[InvisibleSpace]", "\<\" vertices\"\>"}],
  SequenceForm["> ", 93, " vertices"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.7286430509007807`*^9},ExpressionUUID->"cc2bbc57-17c0-4a15-91a4-\
d6d62b51cd1a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"classes model \"\>", "\[InvisibleSpace]", 
   RowBox[{
   "{", "\<\"/Users/misho/.ghq/github.com/misho104/FeynLecture/models/SM/\
Standard_Model_FA/Standard_Model_FA\"\>", "}"}], 
   "\[InvisibleSpace]", "\<\" initialized\"\>"}],
  SequenceForm[
  "classes model ", {
   "/Users/misho/.ghq/github.com/misho104/FeynLecture/models/SM/Standard_\
Model_FA/Standard_Model_FA"}, " initialized"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.72864305091177*^9},ExpressionUUID->"3446d142-61bd-48e3-89b0-\
f093161fabe0"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.7286430509219913`*^9},ExpressionUUID->"6596f504-c9f7-4625-b615-\
975ba2c1d689"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" Generic, \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\" Classes, and \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\" Particles fields\"\>"}],
  SequenceForm[
  "Excluding ", 0, " Generic, ", 7, " Classes, and ", 7, " Particles fields"],
  
  Editable->False]], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.7286430509335546`*^9},ExpressionUUID->"f56f08fb-8cc8-464f-890e-\
45217700ae61"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.728643050945627*^9},ExpressionUUID->"91d565c1-dc81-4284-82d1-\
fb6011d408b0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "Classes", "}"}]}],
  SequenceForm["inserting at level(s) ", {FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.7286430509563103`*^9},ExpressionUUID->"96e0c25c-f0f7-431c-af81-\
4480493a59b1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.7286430509670267`*^9},ExpressionUUID->"e811da18-1e9e-43bd-abbf-\
15439e8ad2e6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.7286430509783373`*^9},ExpressionUUID->"1e018dcd-715c-4b5b-a7d4-\
4e0bea150f97"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.728643050989161*^9},ExpressionUUID->"b720d697-817e-48cc-bc44-\
1013ac102e23"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.728643050999589*^9},ExpressionUUID->"e88f233d-690c-4268-b00f-\
36b3cac00cd7"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.7286430510129213`*^9},ExpressionUUID->"2e051a97-7fc1-4e4a-9fd5-\
e37960fb17eb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" Generic, \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\" Classes, and \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\" Particles fields\"\>"}],
  SequenceForm[
  "Restoring ", 0, " Generic, ", 7, " Classes, and ", 7, " Particles fields"],
  
  Editable->False]], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.728643051026821*^9},ExpressionUUID->"5141f9c3-9d50-4242-95df-\
328ff445d483"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["in total: ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.7286430510387506`*^9},ExpressionUUID->"414d382b-4679-425c-90db-\
d645a37b8cdb"]
}, Open  ]],

Cell[BoxData[
 TemplateBox[{
  "Paint","nolevel",
   "\"Warning: Level \\\\!\\\\(\\\\*RowBox[{\\\"Classes\\\"}]\\\\) is not \
contained in this insertion.\"",2,11,1,16142280321345819963,"Local",
   "FeynArts`Paint"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{{3.684017388782813*^9, 3.6840173969381227`*^9}, {
   3.6840183318060637`*^9, 3.684018342312791*^9}, 3.684018384279133*^9, 
   3.728643051143578*^9},ExpressionUUID->"8935b8ec-6a03-4e05-8e29-\
9a6e82e7af91"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FeynArtsGraphics", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"u\"\>", ",", "\<\"c\"\>"}], "}"}], "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\<\"u\"\>", ",", "\<\"c\"\>"}], "}"}]}], "]"}], "[", 
  "]"}]], "Print",
 CellChangeTimes->{
  3.537861175957609*^9, 3.583115396728615*^9, 3.6304088349410667`*^9, 
   3.63040984187113*^9, 3.682805511074732*^9, 3.682806036545949*^9, {
   3.684017191159342*^9, 3.6840172032359047`*^9}, {3.684017388611871*^9, 
   3.684017396764431*^9}, {3.684018331567341*^9, 3.684018342195898*^9}, 
   3.68401838405175*^9, 
   3.7286430511511307`*^9},ExpressionUUID->"6452b7d1-38fa-4cd5-923c-\
996ee7ee133a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FeynArtsGraphics", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"u\"\>", ",", "\<\"c\"\>"}], "}"}], "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\<\"u\"\>", ",", "\<\"c\"\>"}], "}"}]}], "]"}], "[", 
  "]"}]], "Output",
 CellChangeTimes->{3.6840183423242598`*^9, 3.684018384286859*^9, 
  3.728643051158798*^9},ExpressionUUID->"9e594bb2-2bb0-4ae4-866a-\
77511aa64452"]
}, Open  ]],

Cell[TextData[{
 StyleBox["This is wrong.\nIn a different model, particles have different \
labels, and parameters have different names.\n",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["We have to check the model file (.mod) to see which particle is \
which.\n\nIn this model, gluon is labelled as V[3]. So we should not \
\[OpenCurlyDoubleQuote]Exclude\[CloseCurlyDoubleQuote] V[3].",
  FontColor->GrayLevel[0]]
}], "Text",
 CellChangeTimes->{{3.6840174251683273`*^9, 3.684017498672742*^9}, {
  3.684017530041006*^9, 3.68401757431145*^9}, {3.684017640566757*^9, 
  3.684017732322407*^9}},ExpressionUUID->"7112047e-faec-4e1e-b3c0-\
caa3e70de934"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"diag", "=", 
   RowBox[{"InsertFields", "[", 
    RowBox[{"topologies", ",", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"F", "[", 
         RowBox[{"3", ",", 
          RowBox[{"{", "1", "}"}]}], "]"}], ",", 
        RowBox[{"F", "[", 
         RowBox[{"3", ",", 
          RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}], "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"F", "[", 
         RowBox[{"3", ",", 
          RowBox[{"{", "1", "}"}]}], "]"}], ",", 
        RowBox[{"F", "[", 
         RowBox[{"3", ",", 
          RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}]}], ",", 
     RowBox[{"InsertionLevel", "\[Rule]", 
      RowBox[{"{", "Classes", "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"ExcludeParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"S", "[", "1", "]"}], ",", 
        RowBox[{"S", "[", "2", "]"}], ",", 
        RowBox[{"V", "[", "1", "]"}], ",", 
        RowBox[{"V", "[", "2", "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"GenericModel", "\[Rule]", "model"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Model", "\[Rule]", "model"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Paint", "[", "diag", "]"}], ";"}]}], "Input",
 CellChangeTimes->{
  3.684017626574695*^9, {3.684017738404173*^9, 
   3.6840177621953897`*^9}},ExpressionUUID->"6c2d3788-675f-4913-bf94-\
b64ab24bf682"],

Cell[CellGroupData[{

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.6840176272966967`*^9, {3.684017746558311*^9, 3.684017762577136*^9}, 
   3.684018391630056*^9, 
   3.7286430567940407`*^9},ExpressionUUID->"f2991fa9-279c-487b-9acb-\
1c3a24b21a8e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" Generic, \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" Classes, and \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" Particles fields\"\>"}],
  SequenceForm[
  "Excluding ", 0, " Generic, ", 4, " Classes, and ", 4, " Particles fields"],
  
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6840176272966967`*^9, {3.684017746558311*^9, 3.684017762577136*^9}, 
   3.684018391630056*^9, 
   3.728643056803598*^9},ExpressionUUID->"48571f43-3632-46f9-b088-\
add88ead96df"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.6840176272966967`*^9, {3.684017746558311*^9, 3.684017762577136*^9}, 
   3.684018391630056*^9, 
   3.7286430568132*^9},ExpressionUUID->"22423683-439d-47ef-aa3b-e27ea5e8f9f6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "Classes", "}"}]}],
  SequenceForm["inserting at level(s) ", {FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6840176272966967`*^9, {3.684017746558311*^9, 3.684017762577136*^9}, 
   3.684018391630056*^9, 
   3.728643056822671*^9},ExpressionUUID->"01cd37c7-596a-4c82-b89c-\
bdec40bc0b3e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6840176272966967`*^9, {3.684017746558311*^9, 3.684017762577136*^9}, 
   3.684018391630056*^9, 
   3.728643056832081*^9},ExpressionUUID->"e69f205a-b128-400b-b51b-\
e10a5d5eec39"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6840176272966967`*^9, {3.684017746558311*^9, 3.684017762577136*^9}, 
   3.684018391630056*^9, 
   3.728643056841587*^9},ExpressionUUID->"d9519227-4733-4d8f-9566-\
b61231b2b8ac"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Classes insertion\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "1 Classes insertion"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6840176272966967`*^9, {3.684017746558311*^9, 3.684017762577136*^9}, 
   3.684018391630056*^9, 
   3.728643056850882*^9},ExpressionUUID->"ad5b365a-0edc-40c5-b57c-\
cabf0db06500"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6840176272966967`*^9, {3.684017746558311*^9, 3.684017762577136*^9}, 
   3.684018391630056*^9, 
   3.728643056860354*^9},ExpressionUUID->"2a48dd8f-1cc5-4363-a4bf-\
a20b94460f6d"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.6840176272966967`*^9, {3.684017746558311*^9, 3.684017762577136*^9}, 
   3.684018391630056*^9, 
   3.728643056869545*^9},ExpressionUUID->"04f71ef9-1e94-45c3-9a22-\
292290d5fb7c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" Generic, \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" Classes, and \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" Particles fields\"\>"}],
  SequenceForm[
  "Restoring ", 0, " Generic, ", 4, " Classes, and ", 4, " Particles fields"],
  
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6840176272966967`*^9, {3.684017746558311*^9, 3.684017762577136*^9}, 
   3.684018391630056*^9, 
   3.7286430568785553`*^9},ExpressionUUID->"a1e44ca3-8d8f-41ce-a8ca-\
a2a29d8a5637"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Classes insertion\"\>"}],
  SequenceForm["in total: ", "1 Classes insertion"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6840176272966967`*^9, {3.684017746558311*^9, 3.684017762577136*^9}, 
   3.684018391630056*^9, 
   3.728643056888298*^9},ExpressionUUID->"2c019c45-8fd5-4424-98a9-\
ac75f92219ce"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6840176272966967`*^9, {3.684017746558311*^9, 3.684017762577136*^9}, 
   3.684018391630056*^9, 
   3.7286430568978853`*^9},ExpressionUUID->"b6b3d44b-702f-4712-aae6-\
67fffaba3cf2"],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[
     {Thickness[0.005], 
      LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`, 
       14.000000000003638`}}], 
      PolygonBox[{{5.597022314125994, 14.440297768587394`}, {
       4.363176198265607, 14.1616873553286}, {4.442779173482406, 
       14.957717107496592`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["u",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {4.84576923551745, 13.562492355174513}, \
{0, 1}], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, {
       9.999999999988404, 6.}}], 
      PolygonBox[{{5.597022314125994, 5.559702231412599}, {4.442779173482406, 
       5.0422828925034056`}, {4.363176198265607, 5.838312644671396}}], 
      InsetBox[
       TagBox[
        StyleBox[
         TagBox["c",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, \
{0, 1}], LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}], 
      PolygonBox[{{15.597022314125994`, 14.559702231412594`}, {
       14.363176198265606`, 14.838312644671392`}, {14.442779173482407`, 
       14.0422828925034}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["u",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {14.84576923551745, 15.437507644825477}, \
{0, -1}], 
      LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 
       5.999999999996362}}], 
      PolygonBox[{{15.597022314125994`, 5.440297768587401}, {
       14.442779173482405`, 5.9577171074965944`}, {14.363176198265608`, 
       5.161687355328604}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["c",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, \
{0, -1}], LineBox[CompressedData["
1:eJxFlgtcjOkexydJg9YmOTVR4nnfd+ZNbeVYXVf/Vp1NiG5EbReyFadTalMj
ptLFGNvFhGYrmWxZyrYj3TZxCpUkRsQQ28UWR9jK6RSSfeacPY/5fObzfr6f
Z553nsv///v9Fm+N8to+jcPhFOOv+vm/DwXT//s0BE64INNNiWDGT4/Pzo7D
vEFc9nUZAjM3T6P5bzALbkn7sxGkJYSXhIp5wIlmZ0+mIJAITow1mxgBJyf4
4irMMv3xjJpazPLtR5oyEVTfb0nJ81iA39cYOnQKgdPYtO7eXzGblv1W1o5g
n82iGO/QhcCRtZyLeIvA6NpJrqAbs+HOniXWFEjTpLPswBg4sGyNMJKCnuGo
zfRhzLptjbfPUtCmRX+/4wbm4Lb2qBcU5ARGPoobwZzcM5HL0tCUMDVxhmMC
nLoym/wQGtJeLV/p/w6Pn476xEBKw2396EuNTzBzH/mO1tFw433cze4GzDlW
O0R3afiLw+fXN0owK99USJ7QcEQ/Litgg3p8y4XoARrEb3zDdsxTr08mXvCQ
hhU/ZESbqPD64eAW7mUaXMYsDk3/AbPu443ORTQsq19oHJqAOWFqhlc0DQG6
lld1AzCr0letsKdB9diTC56Ye393dZmiwG9Q3rN9C2b5UKfePymwjdLI5AnV
53M5PyCJgs21B7SmV2A2tdPpd6bAMHTohGoCc3DWU/eZFMwoLg3y88Prk7/t
46oQbFjMqwu6rt5PQpGjAkFny0qrqTX4fHpvMEW5CPLlQ33HHmC2MvhXRCqC
ey9EkdyoRXj+Oh3vZATf2nJ9Xmqa4v33VSZKEMhTXbXq1mNOcEiJLUbw8q5t
UKEMMwQmOF5FIGDFB2MeqfnNK98RBAbpNsfceYvxeQgtOxgKPGoWvkpZh/nZ
XzW9t1LgPe68vSsec4KXo28xBbxuD8uoPMy2L9GCPgquut3hDZdj7n12+IkJ
DSGbak/FVqvnN4do+tFw2u7mg6wq9e9/fD1NQoOHwqJ1dZl6PCL2l0oatr3u
YfVlmDk+daFKGr5bviWlOgnzxMHqhj4aLLp2bbfbhrkxtURjEP9+2Pm5ygWz
SmPd9Mc0vDdu/aSfwczlfipoxfXln7WyaLb6fX6ywFIaPvz9kr7dGN5veOe3
xkIazHd873N6ALOb9st1LjS89o1cdexXzKqlAzYzaUgq/3rl+j7M3KHS8OsU
+B86Enj+FeaJutJjEgrEpVfazLXx+4eTJalrKbjh6WNUboZZ8OXPj/UoGBRE
6pX4YbYqFC3pxf2mGSfl5ajXb/Z8fw2CW4uSDpfcUs93tmzPQ5Ack12UNn8J
Xp/pmEc6ggurQ53OB2E2zJM/TEKwYixj49tyNR9IKjuAYLzyikxnArPqd4vw
QgRI6aJ5whnhetjq+dlFBEn1Ybb7MzAbZqZInyG482FPWT2+d45i2XDVQgrM
xT3iY7ivOUpv5LuJgr0NL/Y24nvnDJs9en6UgrB5IWEebpjlyQaXuyhIv5iW
2B6IeUPBiKE+DaPz092+2IFZ6YBWetCgMbtKiHZivnaopSKFhq5zyg0xuG44
tk+Nlp2loefAFQOxJ2ZZsf5oOw2OMc1Txvbqcf8z2T00BPO3zfncBHOyfMIa
36/D+Af8QWS86GHhyPU+ROY3Zdtr9Dcj8v5FexyfxVcg8v/FjpY/Zx5HZH2T
/1mT8egIIuvXebGn9vJRRPYndElMW4775P/7z3tVJDtX+/F89rvOS3V68PH8
bgtN4yO0KHK+ZtPSfV0dKHL+oq9krfuEFLmfbusLk8GXKHJ/2usdw15r0+R+
r+kIz2j50OT+v6wraFwrp0l9iLKjQxKf06R+PutP/oe/FUPqa/WUJHIwiiH1
Z/hA+tL/R4bU5zJF+YBPF0Pqd3eA44o7Ewyp75O7dxavncsn9S/aeLJJYcIn
/THrrLQhYjGf9E9n3jflm4z4H/vriPNQyyw+6b8vTu1qCvk3Q/qT85vtqPED
hvRvwdxL8/kXGNLfq3lZ+S2FDOn/mI5SkXsyQ/ShYI7pvaEwhuiHwrPTtsaX
Ifpys8qa2bWGIfpTWOa2+Tt3huiT/S/mg5/6MES/BphzypxwhujbkvGL+WZi
huifYs2TuaJKhujj073XIqoHGaKfXar43ZmIT/RVzGuVbwvjE/0NFNW//UrB
J/osaRsv15vkE/3OPQRtiW4Cou/nrGdlL88VEP0/WtT7lPNQQPxh467XSGnE
Ev9ItLZQ3vFmib+Mrp+lyE1lif94Mo7v359miT9tdU+yi73CEv/qzLLU7ehk
ib/pzbv/Lug+S/xPKXx2fPw2S/xxoGTXSId6/p/+GaAdUb+vgiX+uk3R0Dqc
yxL/tdfyveG+myX+XBXfXHd7E0v8OzZ0IP+uPUv83VCz2VC6mCX+f3S8Vb5o
DkvyQYNkINhrGkvyw/zKZM3yDwKSL6q92ua6arMkf/CSIs9f57Ekn2TNdPOO
tGFJfjE/W7PnSRBL8s3I8Yp3O6UsyT9O3wz/7V4HS/JR4AGRNFvXjOSngv0L
nar8zEi+qoxPa6BKzEj+qou00jo+bEby2YXm9p86HJaS/Bbsfj8mLnUpyXeJ
Sw+ze5ox/5n/JjXUT3P4AyTj9Uc=
       "]], InsetBox[
       TagBox[
        StyleBox[
         TagBox["G",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {9.0548, 9.999999999999995}, {1, 0}], 
      {PointSize[0.04], PointBox[{10., 13.99999999999999}], 
       PointBox[{10., 6.}]}, InsetBox[
       TagBox[
        StyleBox[
         TagBox[
          RowBox[{"T1", " ", "C1", " ", "N1"}],
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->7.997355371900827],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         7.997355371900827]& ], {10., -0.5}, {0, -1}]},
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
    TagBox[
     StyleBox[
      TagBox["u",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {24., 69.96}, {0, 0}], InsetBox[
    TagBox[
     StyleBox[
      TagBox["c",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {28.5, 69.96}, {0, 0}], InsetBox[
    TagBox[
     StyleBox[
      TagBox["\[RightArrow]",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {33., 69.96}, {0, 0}], InsetBox[
    TagBox[
     StyleBox[
      TagBox["u",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {37.5, 69.96}, {0, 0}], InsetBox[
    TagBox[
     StyleBox[
      TagBox["c",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {42., 69.96}, {0, 0}]},
  AspectRatio->1.0999999999999999`,
  ImageSize->{288, 288},
  PlotRange->{{0, 66}, {0, 72.6}}]], "Print",
 CellChangeTimes->{
  3.6840176272966967`*^9, {3.684017746558311*^9, 3.684017762577136*^9}, 
   3.684018391630056*^9, 
   3.728643056907958*^9},ExpressionUUID->"b65ae6a1-3b7f-41f0-90b5-\
f509cf7f0b6b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Remember", " ", "the", " ", "prefactor", " ", 
    RowBox[{"4", "/", "9"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"ClearProcess", "[", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"amp", " ", "=", " ", 
     RowBox[{"CalcFeynAmp", "[", 
      RowBox[{
       RowBox[{"CreateFeynAmp", "[", "diag", "]"}], ",", 
       RowBox[{"FermionChains", "\[Rule]", "VA"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sq", "=", 
     RowBox[{"SquaredME", "[", "amp", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"matrixelement", " ", "=", " ", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         FractionBox["4", "9"], 
         RowBox[{"sq", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "//.", 
        RowBox[{"sq", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "//.", 
       RowBox[{"HelicityME", "[", "amp", "]"}]}], "//.", 
      RowBox[{"ColourME", "[", "amp", "]"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.536052973526355*^9, 3.53605297447438*^9}, {
  3.5360531561974087`*^9, 3.536053257678905*^9}, {3.536053393659519*^9, 
  3.536053399362599*^9}, {3.684017773625195*^9, 3.684017798064753*^9}, {
  3.684017943258833*^9, 3.684017990017928*^9}, {3.6840181339572277`*^9, 
  3.6840181492043467`*^9}, {3.728144333271327*^9, 
  3.728144342555295*^9}},ExpressionUUID->"1715ee8d-abbf-4fa0-8e14-\
bbff3945d274"],

Cell[CellGroupData[{

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.537861177881675*^9, 3.5831154002295*^9, 3.630408837781446*^9, 
   3.630409843398705*^9, 3.682805519379319*^9, 3.682806038359274*^9, {
   3.684017787780406*^9, 3.6840177984213877`*^9}, {3.684017963539603*^9, 
   3.684017990305222*^9}, 3.6840181366442738`*^9, 3.68401839461786*^9, 
   3.728643060096673*^9},ExpressionUUID->"c9430d4f-38bf-4512-8018-\
a825691b20f4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "Classes", "}"}]}],
  SequenceForm["creating amplitudes at level(s) ", {FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.537861177881675*^9, 3.5831154002295*^9, 3.630408837781446*^9, 
   3.630409843398705*^9, 3.682805519379319*^9, 3.682806038359274*^9, {
   3.684017787780406*^9, 3.6840177984213877`*^9}, {3.684017963539603*^9, 
   3.684017990305222*^9}, 3.6840181366442738`*^9, 3.68401839461786*^9, 
   3.728643060105867*^9},ExpressionUUID->"59637b21-b89b-439e-b781-\
fb9f05847fd0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Classes amplitude\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Classes amplitude"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.537861177881675*^9, 3.5831154002295*^9, 3.630408837781446*^9, 
   3.630409843398705*^9, 3.682805519379319*^9, 3.682806038359274*^9, {
   3.684017787780406*^9, 3.6840177984213877`*^9}, {3.684017963539603*^9, 
   3.684017990305222*^9}, 3.6840181366442738`*^9, 3.68401839461786*^9, 
   3.728643060114779*^9},ExpressionUUID->"a0cf458c-b180-41c7-a20d-\
54ba33bab9e4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Classes amplitude\"\>"}],
  SequenceForm["in total: ", "1 Classes amplitude"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.537861177881675*^9, 3.5831154002295*^9, 3.630408837781446*^9, 
   3.630409843398705*^9, 3.682805519379319*^9, 3.682806038359274*^9, {
   3.684017787780406*^9, 3.6840177984213877`*^9}, {3.684017963539603*^9, 
   3.684017990305222*^9}, 3.6840181366442738`*^9, 3.68401839461786*^9, 
   3.728643060124729*^9},ExpressionUUID->"1c38041d-b2a4-4e0f-9c7b-\
4c3f45f8da31"],

Cell[BoxData["\<\"\\npreparing FORM code in /Users/misho/fc-amp-1.frm\"\>"], \
"Print",
 CellChangeTimes->{
  3.537861177881675*^9, 3.5831154002295*^9, 3.630408837781446*^9, 
   3.630409843398705*^9, 3.682805519379319*^9, 3.682806038359274*^9, {
   3.684017787780406*^9, 3.6840177984213877`*^9}, {3.684017963539603*^9, 
   3.684017990305222*^9}, 3.6840181366442738`*^9, 3.68401839461786*^9, 
   3.728643060134076*^9},ExpressionUUID->"2e961b99-4e89-47a6-8815-\
bfc285ae1a23"],

Cell[BoxData["\<\"running FORM... \"\>"], "Print",
 CellChangeTimes->{
  3.537861177881675*^9, 3.5831154002295*^9, 3.630408837781446*^9, 
   3.630409843398705*^9, 3.682805519379319*^9, 3.682806038359274*^9, {
   3.684017787780406*^9, 3.6840177984213877`*^9}, {3.684017963539603*^9, 
   3.684017990305222*^9}, 3.6840181366442738`*^9, 3.68401839461786*^9, 
   3.728643060143331*^9},ExpressionUUID->"a99c97bc-893e-408a-85e9-\
8a8549ba3544"],

Cell[BoxData["\<\"ok\\n\"\>"], "Print",
 CellChangeTimes->{
  3.537861177881675*^9, 3.5831154002295*^9, 3.630408837781446*^9, 
   3.630409843398705*^9, 3.682805519379319*^9, 3.682806038359274*^9, {
   3.684017787780406*^9, 3.6840177984213877`*^9}, {3.684017963539603*^9, 
   3.684017990305222*^9}, 3.6840181366442738`*^9, 3.68401839461786*^9, 
   3.728643060153376*^9},ExpressionUUID->"50fd4beb-356c-4363-a595-\
54589504eb6b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "16", 
   "\[InvisibleSpace]", "\<\" helicity matrix elements\"\>"}],
  SequenceForm["> ", 16, " helicity matrix elements"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.537861177881675*^9, 3.5831154002295*^9, 3.630408837781446*^9, 
   3.630409843398705*^9, 3.682805519379319*^9, 3.682806038359274*^9, {
   3.684017787780406*^9, 3.6840177984213877`*^9}, {3.684017963539603*^9, 
   3.684017990305222*^9}, 3.6840181366442738`*^9, 3.68401839461786*^9, 
   3.728643060162674*^9},ExpressionUUID->"9b72bb72-6aad-43bc-923d-\
36363d0cbb0b"],

Cell[BoxData["\<\"\\npreparing FORM code in /Users/misho/fc-hel-1.frm\"\>"], \
"Print",
 CellChangeTimes->{
  3.537861177881675*^9, 3.5831154002295*^9, 3.630408837781446*^9, 
   3.630409843398705*^9, 3.682805519379319*^9, 3.682806038359274*^9, {
   3.684017787780406*^9, 3.6840177984213877`*^9}, {3.684017963539603*^9, 
   3.684017990305222*^9}, 3.6840181366442738`*^9, 3.68401839461786*^9, 
   3.728643060172044*^9},ExpressionUUID->"3edeaf26-b824-42fa-9b87-\
83dc7d22e0c6"],

Cell[BoxData["\<\"running FORM... \"\>"], "Print",
 CellChangeTimes->{
  3.537861177881675*^9, 3.5831154002295*^9, 3.630408837781446*^9, 
   3.630409843398705*^9, 3.682805519379319*^9, 3.682806038359274*^9, {
   3.684017787780406*^9, 3.6840177984213877`*^9}, {3.684017963539603*^9, 
   3.684017990305222*^9}, 3.6840181366442738`*^9, 3.68401839461786*^9, 
   3.7286430601817083`*^9},ExpressionUUID->"11aae48b-44d2-433a-abe2-\
bcd95ef8329e"],

Cell[BoxData["\<\"ok\\n\"\>"], "Print",
 CellChangeTimes->{
  3.537861177881675*^9, 3.5831154002295*^9, 3.630408837781446*^9, 
   3.630409843398705*^9, 3.682805519379319*^9, 3.682806038359274*^9, {
   3.684017787780406*^9, 3.6840177984213877`*^9}, {3.684017963539603*^9, 
   3.684017990305222*^9}, 3.6840181366442738`*^9, 3.68401839461786*^9, 
   3.728643060261937*^9},ExpressionUUID->"772f8fa6-d1d2-4be3-af3e-\
07d9ccf15d05"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  FractionBox["2", "9"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"4", " ", 
     SuperscriptBox["MC2", "2"]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["MU2", "2"]}], "+", 
    SuperscriptBox["T", "2"], "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"S", "-", "U"}], ")"}], "2"], "+", 
    RowBox[{"2", " ", "MC2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", " ", "MU2"}], "-", "S", "+", "T", "-", "U"}], ")"}]}], 
    "-", 
    RowBox[{"2", " ", "MU2", " ", 
     RowBox[{"(", 
      RowBox[{"S", "-", "T", "+", "U"}], ")"}]}]}], ")"}], " ", 
  SuperscriptBox[
   RowBox[{"Abs", "[", "gc84", "]"}], "4"], " ", 
  SuperscriptBox[
   RowBox[{"Den", "[", 
    RowBox[{"T", ",", "0"}], "]"}], "2"]}]], "Output",
 CellChangeTimes->{
  3.537861178437682*^9, 3.583115400586248*^9, 3.630408838148178*^9, 
   3.630409843743402*^9, 3.6828055196942883`*^9, 3.682806038662662*^9, {
   3.684017787838047*^9, 3.684017798514288*^9}, {3.684017963594385*^9, 
   3.684017990359962*^9}, 3.684018136738594*^9, 3.684018394671506*^9, 
   3.728643060487473*^9},ExpressionUUID->"f6f35a4d-cd0d-4c87-a8a3-\
986f3543e128"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"matrixelement", "//.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"MC2", "\[Rule]", "0"}], ",", 
    RowBox[{"MU2", "\[Rule]", "0"}], ",", 
    RowBox[{
     RowBox[{"Den", "[", 
      RowBox[{"a_", ",", "b_"}], "]"}], "\[RuleDelayed]", 
     FractionBox["1", 
      RowBox[{"a", "-", "b"}]]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.536053512404533*^9, 3.536053558677994*^9}, {
   3.583115427193612*^9, 3.583115428777793*^9}, {3.684018033432107*^9, 
   3.684018036615937*^9}, {3.6840181031500683`*^9, 3.6840181420042133`*^9}, 
   3.684018175834755*^9},ExpressionUUID->"4407f8a7-a023-4e90-9a11-\
0c3e2cdd1c5d"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["T", "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"S", "-", "U"}], ")"}], "2"]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"Abs", "[", "gc84", "]"}], "4"]}], 
  RowBox[{"9", " ", 
   SuperscriptBox["T", "2"]}]]], "Output",
 CellChangeTimes->{
  3.5378611790984383`*^9, 3.5831154298500767`*^9, 3.630408844672147*^9, 
   3.630409850179265*^9, 3.6828055849315434`*^9, 3.682806043617611*^9, 
   3.684018038537581*^9, {3.684018120165827*^9, 3.6840181428428802`*^9}, 
   3.684018176495121*^9, 3.684018397053524*^9, 
   3.728643064831831*^9},ExpressionUUID->"6f04131b-1657-41a9-8245-\
3ae458255fb0"]
}, Open  ]],

Cell["\<\
Here we see a unknown parameter.
The interpretation is stored in M$FACouplings.\
\>", "Text",
 CellChangeTimes->{{3.68401804621663*^9, 
  3.684018086157827*^9}},ExpressionUUID->"d54458c9-c446-4b68-9475-\
453b17ca70ba"],

Cell[CellGroupData[{

Cell[BoxData["M$FACouplings"], "Input",
 CellChangeTimes->{{3.684018087164168*^9, 
  3.6840180888144417`*^9}},ExpressionUUID->"ec759fa1-de3c-4141-975a-\
40033962262f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"gc11", "\[Rule]", 
    RowBox[{"-", "EL"}]}], ",", 
   RowBox[{"gc12", "\[Rule]", "EL"}], ",", 
   RowBox[{"gc13", "\[Rule]", 
    RowBox[{"-", "EL"}]}], ",", 
   RowBox[{"gc15", "\[Rule]", "EL"}], ",", 
   RowBox[{"gc18", "\[Rule]", 
    RowBox[{"-", "EL"}]}], ",", 
   RowBox[{"gc19", "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"cw", " ", "EL"}], "sw"]}]}], ",", 
   RowBox[{"gc21", "\[Rule]", 
    FractionBox[
     RowBox[{"cw", " ", "EL"}], "sw"]}], ",", 
   RowBox[{"gc23", "\[Rule]", 
    RowBox[{"-", "EL"}]}], ",", 
   RowBox[{"gc26", "\[Rule]", "EL"}], ",", 
   RowBox[{"gc27", "\[Rule]", 
    FractionBox[
     RowBox[{"cw", " ", "EL"}], "sw"]}], ",", 
   RowBox[{"gc29", "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"cw", " ", "EL"}], "sw"]}]}], ",", 
   RowBox[{"gc31", "\[Rule]", 
    FractionBox[
     RowBox[{"cw", " ", "EL"}], "sw"]}], ",", 
   RowBox[{"gc33", "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"cw", " ", "EL"}], "sw"]}]}], ",", 
   RowBox[{"gc35", "\[Rule]", "GS"}], ",", 
   RowBox[{"gc36", "\[Rule]", 
    RowBox[{"-", "GS"}]}], ",", 
   RowBox[{"gc37", "\[Rule]", 
    RowBox[{
     RowBox[{"-", "4"}], " ", "Alfas", " ", "\[Pi]"}]}], ",", 
   RowBox[{
    RowBox[{"gc38L", "[", 
     RowBox[{"e1x2_", ",", "e2x2_"}], "]"}], "\[Rule]", 
    RowBox[{"IndexSum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"CKMC", "[", 
        RowBox[{"e2x2", ",", "Generation$1"}], "]"}], " ", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          RowBox[{"yd", "[", 
           RowBox[{"Generation$1", ",", "e1x2"}], "]"}], "\[InvisibleSpace]", 
          
          RowBox[{"Superscript", "[", "\<\"*\"\>", "]"}]}],
         SequenceForm[
          $CellContext`yd[$CellContext`Generation$1, $CellContext`e1x2], 
          Superscript["*"]],
         Editable->False], ")"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"Generation$1", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ",", 
   RowBox[{
    RowBox[{"gc38R", "[", 
     RowBox[{"e1x2_", ",", "e2x2_"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     RowBox[{"IndexSum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"CKMC", "[", 
         RowBox[{"Generation$1", ",", "e1x2"}], "]"}], " ", 
        RowBox[{"yu", "[", 
         RowBox[{"Generation$1", ",", "e2x2"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"Generation$1", ",", "1", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"gc39L", "[", 
     RowBox[{"e1x2_", ",", "e2x2_"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      InterpretationBox[
       RowBox[{
        RowBox[{"yd", "[", 
         RowBox[{"e2x2", ",", "e1x2"}], "]"}], "\[InvisibleSpace]", 
        RowBox[{"Superscript", "[", "\<\"*\"\>", "]"}]}],
       SequenceForm[
        $CellContext`yd[$CellContext`e2x2, $CellContext`e1x2], 
        Superscript["*"]],
       Editable->False], 
      SqrtBox["2"]]}]}], ",", 
   RowBox[{
    RowBox[{"gc39R", "[", 
     RowBox[{"e1x2_", ",", "e2x2_"}], "]"}], "\[Rule]", 
    FractionBox[
     RowBox[{"yd", "[", 
      RowBox[{"e1x2", ",", "e2x2"}], "]"}], 
     SqrtBox["2"]]}], ",", 
   RowBox[{
    RowBox[{"gc40L", "[", 
     RowBox[{"e1x2_", ",", "e2x2_"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      InterpretationBox[
       RowBox[{
        RowBox[{"yd", "[", 
         RowBox[{"e2x2", ",", "e1x2"}], "]"}], "\[InvisibleSpace]", 
        RowBox[{"Superscript", "[", "\<\"*\"\>", "]"}]}],
       SequenceForm[
        $CellContext`yd[$CellContext`e2x2, $CellContext`e1x2], 
        Superscript["*"]],
       Editable->False], 
      SqrtBox["2"]]}]}], ",", 
   RowBox[{
    RowBox[{"gc40R", "[", 
     RowBox[{"e1x2_", ",", "e2x2_"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"yd", "[", 
       RowBox[{"e1x2", ",", "e2x2"}], "]"}], 
      SqrtBox["2"]]}]}], ",", 
   RowBox[{
    RowBox[{"gc41", "[", 
     RowBox[{"e1x2_", ",", "e2x2_"}], "]"}], "\[Rule]", 
    InterpretationBox[
     RowBox[{
      RowBox[{"yl", "[", 
       RowBox[{"e2x2", ",", "e1x2"}], "]"}], "\[InvisibleSpace]", 
      RowBox[{"Superscript", "[", "\<\"*\"\>", "]"}]}],
     SequenceForm[
      $CellContext`yl[$CellContext`e2x2, $CellContext`e1x2], 
      Superscript["*"]],
     Editable->False]}], ",", 
   RowBox[{
    RowBox[{"gc42L", "[", 
     RowBox[{"e1x2_", ",", "e2x2_"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      InterpretationBox[
       RowBox[{
        RowBox[{"yl", "[", 
         RowBox[{"e2x2", ",", "e1x2"}], "]"}], "\[InvisibleSpace]", 
        RowBox[{"Superscript", "[", "\<\"*\"\>", "]"}]}],
       SequenceForm[
        $CellContext`yl[$CellContext`e2x2, $CellContext`e1x2], 
        Superscript["*"]],
       Editable->False], 
      SqrtBox["2"]]}]}], ",", 
   RowBox[{
    RowBox[{"gc42R", "[", 
     RowBox[{"e1x2_", ",", "e2x2_"}], "]"}], "\[Rule]", 
    FractionBox[
     RowBox[{"yl", "[", 
      RowBox[{"e1x2", ",", "e2x2"}], "]"}], 
     SqrtBox["2"]]}], ",", 
   RowBox[{
    RowBox[{"gc43L", "[", 
     RowBox[{"e1x2_", ",", "e2x2_"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      InterpretationBox[
       RowBox[{
        RowBox[{"yl", "[", 
         RowBox[{"e2x2", ",", "e1x2"}], "]"}], "\[InvisibleSpace]", 
        RowBox[{"Superscript", "[", "\<\"*\"\>", "]"}]}],
       SequenceForm[
        $CellContext`yl[$CellContext`e2x2, $CellContext`e1x2], 
        Superscript["*"]],
       Editable->False], 
      SqrtBox["2"]]}]}], ",", 
   RowBox[{
    RowBox[{"gc43R", "[", 
     RowBox[{"e1x2_", ",", "e2x2_"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"yl", "[", 
       RowBox[{"e1x2", ",", "e2x2"}], "]"}], 
      SqrtBox["2"]]}]}], ",", 
   RowBox[{
    RowBox[{"gc44L", "[", 
     RowBox[{"e1x2_", ",", "e2x2_"}], "]"}], "\[Rule]", 
    RowBox[{"IndexSum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"CKM", "[", 
        RowBox[{"Generation$1", ",", "e2x2"}], "]"}], " ", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          RowBox[{"yu", "[", 
           RowBox[{"Generation$1", ",", "e1x2"}], "]"}], "\[InvisibleSpace]", 
          
          RowBox[{"Superscript", "[", "\<\"*\"\>", "]"}]}],
         SequenceForm[
          $CellContext`yu[$CellContext`Generation$1, $CellContext`e1x2], 
          Superscript["*"]],
         Editable->False], ")"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"Generation$1", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ",", 
   RowBox[{
    RowBox[{"gc44R", "[", 
     RowBox[{"e1x2_", ",", "e2x2_"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     RowBox[{"IndexSum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"CKM", "[", 
         RowBox[{"e1x2", ",", "Generation$1"}], "]"}], " ", 
        RowBox[{"yd", "[", 
         RowBox[{"Generation$1", ",", "e2x2"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"Generation$1", ",", "1", ",", "3"}], "}"}]}], "]"}]}]}], ",", 
   RowBox[{
    RowBox[{"gc45L", "[", 
     RowBox[{"e1x2_", ",", "e2x2_"}], "]"}], "\[Rule]", 
    FractionBox[
     InterpretationBox[
      RowBox[{
       RowBox[{"yu", "[", 
        RowBox[{"e2x2", ",", "e1x2"}], "]"}], "\[InvisibleSpace]", 
       RowBox[{"Superscript", "[", "\<\"*\"\>", "]"}]}],
      SequenceForm[
       $CellContext`yu[$CellContext`e2x2, $CellContext`e1x2], 
       Superscript["*"]],
      Editable->False], 
     SqrtBox["2"]]}], ",", 
   RowBox[{
    RowBox[{"gc45R", "[", 
     RowBox[{"e1x2_", ",", "e2x2_"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"yu", "[", 
       RowBox[{"e1x2", ",", "e2x2"}], "]"}], 
      SqrtBox["2"]]}]}], ",", 
   RowBox[{
    RowBox[{"gc46L", "[", 
     RowBox[{"e1x2_", ",", "e2x2_"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      InterpretationBox[
       RowBox[{
        RowBox[{"yu", "[", 
         RowBox[{"e2x2", ",", "e1x2"}], "]"}], "\[InvisibleSpace]", 
        RowBox[{"Superscript", "[", "\<\"*\"\>", "]"}]}],
       SequenceForm[
        $CellContext`yu[$CellContext`e2x2, $CellContext`e1x2], 
        Superscript["*"]],
       Editable->False], 
      SqrtBox["2"]]}]}], ",", 
   RowBox[{
    RowBox[{"gc46R", "[", 
     RowBox[{"e1x2_", ",", "e2x2_"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"yu", "[", 
       RowBox[{"e1x2", ",", "e2x2"}], "]"}], 
      SqrtBox["2"]]}]}], ",", 
   RowBox[{"gc50", "\[Rule]", 
    FractionBox["EL", 
     RowBox[{"2", " ", "sw"}]]}], ",", 
   RowBox[{"gc51", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["EL", 
      RowBox[{"2", " ", "sw"}]]}]}], ",", 
   RowBox[{"gc52", "\[Rule]", "EL"}], ",", 
   RowBox[{"gc56", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["EL", 
      RowBox[{"2", " ", "sw"}]]}]}], ",", 
   RowBox[{"gc57", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["EL", 
      RowBox[{"2", " ", "sw"}]]}]}], ",", 
   RowBox[{"gc62", "\[Rule]", 
    RowBox[{
     RowBox[{"-", "4"}], " ", "Alfa", " ", "\[Pi]"}]}], ",", 
   RowBox[{"gc63", "\[Rule]", 
    FractionBox[
     RowBox[{"cw", " ", "EL"}], "sw"]}], ",", 
   RowBox[{"gc64", "\[Rule]", 
    FractionBox[
     RowBox[{"4", " ", "Alfa", " ", "\[Pi]"}], 
     SuperscriptBox["sw", "2"]]}], ",", 
   RowBox[{
    RowBox[{"gc65R", "[", 
     RowBox[{"e1x2_", ",", "e2x2_"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     RowBox[{"yl", "[", 
      RowBox[{"e1x2", ",", "e2x2"}], "]"}]}]}], ",", 
   RowBox[{"gc67", "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"EL", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["cw", "2"], "+", 
         SuperscriptBox["sw", "2"]}], ")"}]}], 
      RowBox[{"2", " ", "cw", " ", "sw"}]]}]}], ",", 
   RowBox[{"gc68", "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"cw", " ", "EL"}], 
       RowBox[{"2", " ", "sw"}]]}], "+", 
     FractionBox[
      RowBox[{"EL", " ", "sw"}], 
      RowBox[{"2", " ", "cw"}]]}]}], ",", 
   RowBox[{"gc75", "\[Rule]", 
    FractionBox[
     RowBox[{"4", " ", "Alfa", " ", "cw", " ", "\[Pi]"}], "sw"]}], ",", 
   RowBox[{"gc80", "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"4", " ", "Alfa", " ", 
       SuperscriptBox["cw", "2"], " ", "\[Pi]"}], 
      SuperscriptBox["sw", "2"]]}]}], ",", 
   RowBox[{"gc81", "\[Rule]", 
    RowBox[{"-", "EL"}]}], ",", 
   RowBox[{"gc82", "\[Rule]", 
    FractionBox[
     RowBox[{"2", " ", "EL"}], "3"]}], ",", 
   RowBox[{"gc83", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["EL", "3"]}]}], ",", 
   RowBox[{"gc84", "\[Rule]", "GS"}], ",", 
   RowBox[{"gc85", "\[Rule]", "GS"}], ",", 
   RowBox[{
    RowBox[{"gc86", "[", 
     RowBox[{"e1x2_", ",", "e2x2_"}], "]"}], "\[Rule]", 
    FractionBox[
     RowBox[{"EL", " ", 
      RowBox[{"CKM", "[", 
       RowBox[{"e1x2", ",", "e2x2"}], "]"}]}], 
     RowBox[{
      SqrtBox["2"], " ", "sw"}]]}], ",", 
   RowBox[{
    RowBox[{"gc87", "[", 
     RowBox[{"e1x2_", ",", "e2x2_"}], "]"}], "\[Rule]", 
    FractionBox[
     RowBox[{"EL", " ", 
      RowBox[{"CKMC", "[", 
       RowBox[{"e2x2", ",", "e1x2"}], "]"}]}], 
     RowBox[{
      SqrtBox["2"], " ", "sw"}]]}], ",", 
   RowBox[{"gc88", "\[Rule]", 
    FractionBox["EL", 
     RowBox[{
      SqrtBox["2"], " ", "sw"}]]}], ",", 
   RowBox[{"gc89", "\[Rule]", 
    FractionBox["EL", 
     RowBox[{
      SqrtBox["2"], " ", "sw"}]]}], ",", 
   RowBox[{"gc90L", "\[Rule]", 
    RowBox[{
     FractionBox[
      RowBox[{"cw", " ", "EL"}], 
      RowBox[{"2", " ", "sw"}]], "-", 
     FractionBox[
      RowBox[{"EL", " ", "sw"}], 
      RowBox[{"6", " ", "cw"}]]}]}], ",", 
   RowBox[{"gc90R", "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"2", " ", "EL", " ", "sw"}], 
      RowBox[{"3", " ", "cw"}]]}]}], ",", 
   RowBox[{"gc91L", "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"EL", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"3", " ", 
          SuperscriptBox["cw", "2"]}], "+", 
         SuperscriptBox["sw", "2"]}], ")"}]}], 
      RowBox[{"6", " ", "cw", " ", "sw"}]]}]}], ",", 
   RowBox[{"gc91R", "\[Rule]", 
    FractionBox[
     RowBox[{"EL", " ", "sw"}], 
     RowBox[{"3", " ", "cw"}]]}], ",", 
   RowBox[{"gc92", "\[Rule]", 
    FractionBox[
     RowBox[{"EL", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["cw", "2"], "+", 
        SuperscriptBox["sw", "2"]}], ")"}]}], 
     RowBox[{"2", " ", "cw", " ", "sw"}]]}], ",", 
   RowBox[{"gc93L", "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{"EL", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["cw", "2"], "-", 
         SuperscriptBox["sw", "2"]}], ")"}]}], 
      RowBox[{"2", " ", "cw", " ", "sw"}]]}]}], ",", 
   RowBox[{"gc93R", "\[Rule]", 
    FractionBox[
     RowBox[{"EL", " ", "sw"}], "cw"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.684018089168861*^9, 3.68401816044421*^9, 
  3.684018400422484*^9, 
  3.7286430677482777`*^9},ExpressionUUID->"ae2b8e33-64a9-44bf-a5ba-\
4dabf0b50f71"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"matrixelement", " ", "//.", " ", "M$FACouplings"}], " ", "//.", 
  " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"MC2", "\[Rule]", "0"}], ",", 
    RowBox[{"MU2", "\[Rule]", "0"}], ",", 
    RowBox[{
     RowBox[{"Den", "[", 
      RowBox[{"a_", ",", "b_"}], "]"}], "\[RuleDelayed]", 
     FractionBox["1", 
      RowBox[{"a", "-", "b"}]]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.536053569947155*^9, 3.5360536089552803`*^9}, 
   3.536053890344302*^9, {3.684018163043324*^9, 
   3.684018207481798*^9}},ExpressionUUID->"4e07ed12-eaa0-4f39-b41c-\
b2906f1c2cae"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["T", "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"S", "-", "U"}], ")"}], "2"]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"Abs", "[", "GS", "]"}], "4"]}], 
  RowBox[{"9", " ", 
   SuperscriptBox["T", "2"]}]]], "Output",
 CellChangeTimes->{3.537861179188469*^9, 3.583115435364831*^9, 
  3.630408846599391*^9, 3.6304098519875107`*^9, 3.682806044876842*^9, 
  3.68401820895855*^9, 3.6840184021387663`*^9, 
  3.7286430703751793`*^9},ExpressionUUID->"f32504b6-4203-47f1-a6db-\
7f8776c4952f"]
}, Open  ]],

Cell["This result is the same as we saw in Lecture1-4.nb.", "Text",
 CellChangeTimes->{{3.684018239241691*^9, 
  3.684018276077829*^9}},ExpressionUUID->"42cd8436-8a9d-4c4f-a844-\
e1d055a6ab29"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{2880, 1665},
WindowMargins->{{1122, Automatic}, {Automatic, 0}},
FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
10, 2017)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 296, 4, 144, "Title",ExpressionUUID->"48062804-9402-4f85-99e6-db2e24ef2886"],
Cell[CellGroupData[{
Cell[888, 30, 445, 6, 104, "Section",ExpressionUUID->"24c1c48d-876c-4295-9554-81e6bfa35339"],
Cell[CellGroupData[{
Cell[1358, 40, 164, 3, 51, "Subsection",ExpressionUUID->"ef4e69f8-2d54-4b95-a813-62d320b23326"],
Cell[1525, 45, 220, 5, 63, "Input",ExpressionUUID->"2fb07aea-62d1-4c4f-948e-255b0d447071"],
Cell[CellGroupData[{
Cell[1770, 54, 747, 13, 126, "Input",ExpressionUUID->"3c392c6e-442d-432a-89af-31a4824f89da"],
Cell[CellGroupData[{
Cell[2542, 71, 158, 3, 36, "Print",ExpressionUUID->"a003e032-5d1e-40b8-af81-097e07e7d526"],
Cell[2703, 76, 184, 3, 36, "Print",ExpressionUUID->"af9d3617-954c-41be-918e-02176ccd9b33"],
Cell[2890, 81, 205, 3, 36, "Print",ExpressionUUID->"5c579a80-567f-4990-bec6-2f2a1032a05f"],
Cell[3098, 86, 158, 3, 36, "Print",ExpressionUUID->"e3f3df60-0d42-41f5-97d4-b2bbdd3ab6ca"],
Cell[3259, 91, 186, 3, 36, "Print",ExpressionUUID->"8414ce58-3c72-4ba1-b17b-e1a5630f56ae"],
Cell[3448, 96, 172, 3, 36, "Print",ExpressionUUID->"326b041e-254a-41ce-b686-6a5f9d755ffd"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[3681, 106, 171, 3, 51, "Subsection",ExpressionUUID->"3bd1a017-95aa-43ed-b0ca-a25f042b0452"],
Cell[CellGroupData[{
Cell[3877, 113, 409, 10, 63, "Input",ExpressionUUID->"46fbeacc-0ee7-4ddd-85a2-4d693b3b60fd"],
Cell[4289, 125, 333, 5, 63, "Output",ExpressionUUID->"ab693cbd-9f2b-4431-b36a-ff4566fc5dcc"]
}, Open  ]],
Cell[4637, 133, 238, 4, 52, "Text",ExpressionUUID->"bf354427-cf3b-4b9a-a71a-68897e9e1fb7"],
Cell[CellGroupData[{
Cell[4900, 141, 336, 7, 95, "Input",ExpressionUUID->"4733ad80-6064-40cc-89fb-4944d905eda0"],
Cell[5239, 150, 208, 4, 63, "Output",ExpressionUUID->"ce17356e-3be9-46dc-b051-90ab73f117f0"],
Cell[5450, 156, 206, 4, 63, "Output",ExpressionUUID->"4da851fc-ca70-4935-81a5-fc9c93efefd6"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5705, 166, 290, 4, 51, "Subsection",ExpressionUUID->"603f22bc-3a4d-46d6-b783-77ed8d30ef64"],
Cell[5998, 172, 622, 13, 95, "Input",ExpressionUUID->"35db34dd-e292-465b-b859-df3c2759abff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6657, 190, 259, 4, 51, "Subsection",ExpressionUUID->"b95900f4-c8b3-4352-9b99-0ffa3442c688"],
Cell[CellGroupData[{
Cell[6941, 198, 2225, 54, 219, "Input",ExpressionUUID->"5bdf7080-33f1-4e80-bf62-ca98af9df074"],
Cell[CellGroupData[{
Cell[9191, 256, 449, 8, 36, "Print",ExpressionUUID->"7f3bc785-0412-491c-b578-dd317a882e5b"],
Cell[9643, 266, 950, 20, 36, "Print",ExpressionUUID->"bc24afc4-2b29-4488-9ffc-a8fea72972e6"],
Cell[10596, 288, 475, 8, 36, "Print",ExpressionUUID->"6c1e485f-777c-4b0d-9827-b0e4ed632577"],
Cell[11074, 298, 884, 19, 36, "Print",ExpressionUUID->"43997a5c-c752-4a90-82a4-f56c48806db6"],
Cell[11961, 319, 450, 8, 36, "Print",ExpressionUUID->"e8e3d231-db74-4e62-afac-a81384288f53"],
Cell[12414, 329, 950, 20, 36, "Print",ExpressionUUID->"c486df05-6056-4cf6-8b50-afd31a22f329"],
Cell[13367, 351, 762, 15, 36, "Print",ExpressionUUID->"94559f18-d2b3-45b5-b382-9a24ce84fda3"],
Cell[14132, 368, 474, 8, 36, "Print",ExpressionUUID->"ec95a9fb-0fea-463f-997b-89f0d4c12a03"],
Cell[14609, 378, 619, 13, 36, "Print",ExpressionUUID->"cc2bbc57-17c0-4a15-91a4-d6d62b51cd1a"],
Cell[15231, 393, 883, 19, 36, "Print",ExpressionUUID->"3446d142-61bd-48e3-89b0-f093161fabe0"],
Cell[16117, 414, 452, 8, 36, "Print",ExpressionUUID->"6596f504-c9f7-4625-b615-975ba2c1d689"],
Cell[16572, 424, 843, 17, 36, "Print",ExpressionUUID->"f56f08fb-8cc8-464f-890e-45217700ae61"],
Cell[17418, 443, 450, 8, 36, "Print",ExpressionUUID->"91d565c1-dc81-4284-82d1-fb6011d408b0"],
Cell[17871, 453, 645, 13, 36, "Print",ExpressionUUID->"96e0c25c-f0f7-431c-af81-4480493a59b1"],
Cell[18519, 468, 694, 14, 36, "Print",ExpressionUUID->"e811da18-1e9e-43bd-abbf-15439e8ad2e6"],
Cell[19216, 484, 694, 14, 36, "Print",ExpressionUUID->"1e018dcd-715c-4b5b-a7d4-4e0bea150f97"],
Cell[19913, 500, 692, 14, 36, "Print",ExpressionUUID->"b720d697-817e-48cc-bc44-1013ac102e23"],
Cell[20608, 516, 692, 14, 36, "Print",ExpressionUUID->"e88f233d-690c-4268-b00f-36b3cac00cd7"],
Cell[21303, 532, 452, 8, 36, "Print",ExpressionUUID->"2e051a97-7fc1-4e4a-9fd5-e37960fb17eb"],
Cell[21758, 542, 841, 17, 36, "Print",ExpressionUUID->"5141f9c3-9d50-4242-95df-328ff445d483"],
Cell[22602, 561, 626, 13, 36, "Print",ExpressionUUID->"414d382b-4679-425c-90db-d645a37b8cdb"]
}, Open  ]],
Cell[23243, 577, 483, 10, 34, "Message",ExpressionUUID->"8935b8ec-6a03-4e05-8e29-9a6e82e7af91"],
Cell[23729, 589, 677, 16, 36, "Print",ExpressionUUID->"6452b7d1-38fa-4cd5-923c-996ee7ee133a"],
Cell[24409, 607, 408, 11, 63, "Output",ExpressionUUID->"9e594bb2-2bb0-4ae4-866a-77511aa64452"]
}, Open  ]],
Cell[24832, 621, 667, 13, 190, "Text",ExpressionUUID->"7112047e-faec-4e1e-b3c0-caa3e70de934"],
Cell[CellGroupData[{
Cell[25524, 638, 1460, 39, 219, "Input",ExpressionUUID->"6c2d3788-675f-4913-bf94-b64ab24bf682"],
Cell[CellGroupData[{
Cell[27009, 681, 238, 5, 36, "Print",ExpressionUUID->"f2991fa9-279c-487b-9acb-1c3a24b21a8e"],
Cell[27250, 688, 627, 14, 36, "Print",ExpressionUUID->"48571f43-3632-46f9-b088-add88ead96df"],
Cell[27880, 704, 232, 4, 36, "Print",ExpressionUUID->"22423683-439d-47ef-aa3b-e27ea5e8f9f6"],
Cell[28115, 710, 429, 10, 36, "Print",ExpressionUUID->"01cd37c7-596a-4c82-b89c-bdec40bc0b3e"],
Cell[28547, 722, 478, 11, 36, "Print",ExpressionUUID->"e69f205a-b128-400b-b51b-e10a5d5eec39"],
Cell[29028, 735, 478, 11, 36, "Print",ExpressionUUID->"d9519227-4733-4d8f-9566-b61231b2b8ac"],
Cell[29509, 748, 476, 11, 36, "Print",ExpressionUUID->"ad5b365a-0edc-40c5-b57c-cabf0db06500"],
Cell[29988, 761, 478, 11, 36, "Print",ExpressionUUID->"2a48dd8f-1cc5-4363-a4bf-a20b94460f6d"],
Cell[30469, 774, 236, 5, 36, "Print",ExpressionUUID->"04f71ef9-1e94-45c3-9a22-292290d5fb7c"],
Cell[30708, 781, 629, 14, 36, "Print",ExpressionUUID->"a1e44ca3-8d8f-41ce-a8ca-a2a29d8a5637"],
Cell[31340, 797, 408, 10, 36, "Print",ExpressionUUID->"2c019c45-8fd5-4424-98a9-ac75f92219ce"],
Cell[31751, 809, 458, 11, 36, "Print",ExpressionUUID->"b6b3d44b-702f-4712-aae6-67fffaba3cf2"],
Cell[32212, 822, 7411, 170, 444, "Print",ExpressionUUID->"b65ae6a1-3b7f-41f0-90b5-f509cf7f0b6b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[39672, 998, 1511, 37, 212, "Input",ExpressionUUID->"1715ee8d-abbf-4fa0-8e14-bbff3945d274"],
Cell[CellGroupData[{
Cell[41208, 1039, 421, 7, 36, "Print",ExpressionUUID->"c9430d4f-38bf-4512-8018-a825691b20f4"],
Cell[41632, 1048, 634, 12, 36, "Print",ExpressionUUID->"59637b21-b89b-439e-b781-fb9f05847fd0"],
Cell[42269, 1062, 661, 13, 36, "Print",ExpressionUUID->"a0cf458c-b180-41c7-a20d-54ba33bab9e4"],
Cell[42933, 1077, 593, 12, 36, "Print",ExpressionUUID->"1c38041d-b2a4-4e0f-9c7b-4c3f45f8da31"],
Cell[43529, 1091, 474, 8, 66, "Print",ExpressionUUID->"2e961b99-4e89-47a6-8815-bfc285ae1a23"],
Cell[44006, 1101, 437, 7, 36, "Print",ExpressionUUID->"a99c97bc-893e-408a-85e9-8a8549ba3544"],
Cell[44446, 1110, 426, 7, 66, "Print",ExpressionUUID->"50fd4beb-356c-4363-a595-54589504eb6b"],
Cell[44875, 1119, 620, 12, 36, "Print",ExpressionUUID->"9b72bb72-6aad-43bc-923d-36363d0cbb0b"],
Cell[45498, 1133, 474, 8, 66, "Print",ExpressionUUID->"3edeaf26-b824-42fa-9b87-83dc7d22e0c6"],
Cell[45975, 1143, 439, 7, 36, "Print",ExpressionUUID->"11aae48b-44d2-433a-abe2-bcd95ef8329e"],
Cell[46417, 1152, 426, 7, 66, "Print",ExpressionUUID->"772f8fa6-d1d2-4be3-af3e-07d9ccf15d05"]
}, Open  ]],
Cell[46858, 1162, 1162, 32, 80, "Output",ExpressionUUID->"f6f35a4d-cd0d-4c87-a8a3-986f3543e128"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48057, 1199, 636, 15, 86, "Input",ExpressionUUID->"4407f8a7-a023-4e90-9a11-0c3e2cdd1c5d"],
Cell[48696, 1216, 717, 19, 90, "Output",ExpressionUUID->"6f04131b-1657-41a9-8245-3ae458255fb0"]
}, Open  ]],
Cell[49428, 1238, 228, 6, 87, "Text",ExpressionUUID->"d54458c9-c446-4b68-9475-453b17ca70ba"],
Cell[CellGroupData[{
Cell[49681, 1248, 167, 3, 63, "Input",ExpressionUUID->"ec759fa1-de3c-4141-975a-40033962262f"],
Cell[49851, 1253, 13013, 401, 546, "Output",ExpressionUUID->"ae2b8e33-64a9-44bf-a5ba-4dabf0b50f71"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62901, 1659, 598, 16, 86, "Input",ExpressionUUID->"4e07ed12-eaa0-4f39-b41c-b2906f1c2cae"],
Cell[63502, 1677, 612, 17, 124, "Output",ExpressionUUID->"f32504b6-4203-47f1-a6db-7f8776c4952f"]
}, Open  ]],
Cell[64129, 1697, 193, 3, 52, "Text",ExpressionUUID->"42cd8436-8a9d-4c4f-a844-e1d055a6ab29"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)