| 1 | (* Content-type: application/mathematica *)
|
|---|
| 2 |
|
|---|
| 3 | (*** Wolfram Notebook File ***)
|
|---|
| 4 | (* http://www.wolfram.com/nb *)
|
|---|
| 5 |
|
|---|
| 6 | (* CreatedBy='Mathematica 6.0' *)
|
|---|
| 7 |
|
|---|
| 8 | (*CacheID: 234*)
|
|---|
| 9 | (* Internal cache information:
|
|---|
| 10 | NotebookFileLineBreakTest
|
|---|
| 11 | NotebookFileLineBreakTest
|
|---|
| 12 | NotebookDataPosition[ 145, 7]
|
|---|
| 13 | NotebookDataLength[ 4764, 143]
|
|---|
| 14 | NotebookOptionsPosition[ 3928, 110]
|
|---|
| 15 | NotebookOutlinePosition[ 4306, 127]
|
|---|
| 16 | CellTagsIndexPosition[ 4263, 124]
|
|---|
| 17 | WindowFrame->Normal*)
|
|---|
| 18 |
|
|---|
| 19 | (* Beginning of Notebook Content *)
|
|---|
| 20 | Notebook[{
|
|---|
| 21 | Cell[BoxData[
|
|---|
| 22 | RowBox[{
|
|---|
| 23 | RowBox[{"$FeynRulesPath", " ", "=", " ",
|
|---|
| 24 | RowBox[{"SetDirectory", "[", "\"\<< address of the package>\>\"", "]"}]}],
|
|---|
| 25 | ";"}]], "Input",
|
|---|
| 26 | CellChangeTimes->{{3.413720861194676*^9, 3.4137208893794117`*^9}}],
|
|---|
| 27 |
|
|---|
| 28 | Cell[BoxData[
|
|---|
| 29 | RowBox[{
|
|---|
| 30 | RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
|
|---|
| 31 | "\[IndentingNewLine]"}]], "Input",
|
|---|
| 32 | CellChangeTimes->{{3.402202361365851*^9, 3.402202371944139*^9}, {
|
|---|
| 33 | 3.402202561319804*^9, 3.402202569273497*^9}, 3.402745522459828*^9,
|
|---|
| 34 | 3.402746608214861*^9, {3.402747929860508*^9, 3.402747943827011*^9}, {
|
|---|
| 35 | 3.403533007403466*^9, 3.403533008807395*^9}, {3.404106695164184*^9,
|
|---|
| 36 | 3.404106695449581*^9}, {3.405053642054455*^9, 3.4050536456262903`*^9},
|
|---|
| 37 | 3.4119181919913683`*^9, {3.4137208986527243`*^9, 3.4137208996123943`*^9}, {
|
|---|
| 38 | 3.4137242759980097`*^9, 3.413724294268169*^9}, 3.508569204008209*^9}],
|
|---|
| 39 |
|
|---|
| 40 | Cell[BoxData[
|
|---|
| 41 | RowBox[{
|
|---|
| 42 | RowBox[{"SetDirectory", "[",
|
|---|
| 43 | RowBox[{"$FeynRulesPath", "<>", "\"\</../models/SMscalars\>\""}], "]"}],
|
|---|
| 44 | ";"}]], "Input",
|
|---|
| 45 | CellChangeTimes->{{3.508569210987895*^9, 3.508569240366075*^9}}],
|
|---|
| 46 |
|
|---|
| 47 | Cell[CellGroupData[{
|
|---|
| 48 |
|
|---|
| 49 | Cell["The Standard Model + Scalars", "Title",
|
|---|
| 50 | CellChangeTimes->{{3.411915778286763*^9, 3.4119157817267313`*^9}, {
|
|---|
| 51 | 3.413720856398858*^9, 3.413720856723679*^9}}],
|
|---|
| 52 |
|
|---|
| 53 | Cell[BoxData[
|
|---|
| 54 | RowBox[{"LoadModel", "[",
|
|---|
| 55 | RowBox[{
|
|---|
| 56 | RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/SM.fr\>\""}], ",",
|
|---|
| 57 | "\"\<SMScalars.fr\>\""}], "]"}]], "Input",
|
|---|
| 58 | CellChangeTimes->{{3.4022069973481913`*^9, 3.402207011768662*^9},
|
|---|
| 59 | 3.4022081212072697`*^9, {3.402208250379383*^9, 3.402208254043104*^9},
|
|---|
| 60 | 3.4027466057480917`*^9, {3.403240270135737*^9, 3.403240277228945*^9},
|
|---|
| 61 | 3.403266503388291*^9, {3.403267649630335*^9, 3.40326765417397*^9}, {
|
|---|
| 62 | 3.403269919787421*^9, 3.403269921965273*^9}, {3.403347551273425*^9,
|
|---|
| 63 | 3.403347555049163*^9}, 3.403533015351287*^9, {3.40505363437746*^9,
|
|---|
| 64 | 3.40505363645761*^9}, {3.411912382149088*^9, 3.4119123969228477`*^9}, {
|
|---|
| 65 | 3.50856924516405*^9, 3.5085692957646017`*^9}}],
|
|---|
| 66 |
|
|---|
| 67 | Cell[CellGroupData[{
|
|---|
| 68 |
|
|---|
| 69 | Cell["The lagrangian", "Section",
|
|---|
| 70 | CellChangeTimes->{{3.411915790793332*^9, 3.411915793199389*^9}}],
|
|---|
| 71 |
|
|---|
| 72 | Cell[BoxData[
|
|---|
| 73 | RowBox[{
|
|---|
| 74 | RowBox[{"FeynmanGauge", "=", "False"}], ";"}]], "Input",
|
|---|
| 75 | CellChangeTimes->{{3.411915017675109*^9, 3.411915022272778*^9},
|
|---|
| 76 | 3.411915800951993*^9, {3.5085697915596943`*^9, 3.508569793189657*^9}}],
|
|---|
| 77 |
|
|---|
| 78 | Cell["\<\
|
|---|
| 79 | The lagrangian for the SM is the same as in SM.fr.
|
|---|
| 80 |
|
|---|
| 81 | The new sector is\
|
|---|
| 82 | \>", "Text",
|
|---|
| 83 | CellChangeTimes->{{3.411915802313404*^9, 3.411915827110655*^9}}],
|
|---|
| 84 |
|
|---|
| 85 | Cell[BoxData["LScalar"], "Input",
|
|---|
| 86 | CellChangeTimes->{{3.4119143176932583`*^9, 3.411914319401045*^9}}]
|
|---|
| 87 | }, Open ]],
|
|---|
| 88 |
|
|---|
| 89 | Cell[CellGroupData[{
|
|---|
| 90 |
|
|---|
| 91 | Cell["Feynman rules for the new sector", "Section",
|
|---|
| 92 | CellChangeTimes->{{3.411915866249317*^9, 3.4119158716988153`*^9}}],
|
|---|
| 93 |
|
|---|
| 94 | Cell[BoxData[
|
|---|
| 95 | RowBox[{"FeynmanRules", "[", "LScalar", "]"}]], "Input",
|
|---|
| 96 | CellChangeTimes->{{3.411915883502528*^9, 3.411915928653887*^9}, {
|
|---|
| 97 | 3.4137211614912577`*^9, 3.4137211708030777`*^9}, 3.508569350492257*^9}],
|
|---|
| 98 |
|
|---|
| 99 | Cell["Or in a flavor expanded form", "Text",
|
|---|
| 100 | CellChangeTimes->{{3.411915937803143*^9, 3.4119159434558887`*^9}}],
|
|---|
| 101 |
|
|---|
| 102 | Cell[BoxData[
|
|---|
| 103 | RowBox[{"FeynmanRules", "[",
|
|---|
| 104 | RowBox[{"LScalar", ",",
|
|---|
| 105 | RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
|
|---|
| 106 | CellChangeTimes->{{3.411915883502528*^9, 3.411915958983838*^9}, {
|
|---|
| 107 | 3.508569657623721*^9, 3.508569668869379*^9}}]
|
|---|
| 108 | }, Open ]]
|
|---|
| 109 | }, Open ]]
|
|---|
| 110 | },
|
|---|
| 111 | WindowSize->{1272, 681},
|
|---|
| 112 | WindowMargins->{{0, Automatic}, {Automatic, 25}},
|
|---|
| 113 | ShowSelection->True,
|
|---|
| 114 | Magnification->1.5,
|
|---|
| 115 | FrontEndVersion->"7.0 for Linux x86 (64-bit) (November 11, 2008)",
|
|---|
| 116 | StyleDefinitions->"Default.nb"
|
|---|
| 117 | ]
|
|---|
| 118 | (* End of Notebook Content *)
|
|---|
| 119 |
|
|---|
| 120 | (* Internal cache information *)
|
|---|
| 121 | (*CellTagsOutline
|
|---|
| 122 | CellTagsIndex->{}
|
|---|
| 123 | *)
|
|---|
| 124 | (*CellTagsIndex
|
|---|
| 125 | CellTagsIndex->{}
|
|---|
| 126 | *)
|
|---|
| 127 | (*NotebookFileOutline
|
|---|
| 128 | Notebook[{
|
|---|
| 129 | Cell[545, 20, 233, 5, 46, "Input"],
|
|---|
| 130 | Cell[781, 27, 626, 10, 107, "Input"],
|
|---|
| 131 | Cell[1410, 39, 217, 5, 46, "Input"],
|
|---|
| 132 | Cell[CellGroupData[{
|
|---|
| 133 | Cell[1652, 48, 162, 2, 126, "Title"],
|
|---|
| 134 | Cell[1817, 52, 725, 12, 46, "Input"],
|
|---|
| 135 | Cell[CellGroupData[{
|
|---|
| 136 | Cell[2567, 68, 99, 1, 108, "Section"],
|
|---|
| 137 | Cell[2669, 71, 222, 4, 46, "Input"],
|
|---|
| 138 | Cell[2894, 77, 159, 5, 99, "Text"],
|
|---|
| 139 | Cell[3056, 84, 101, 1, 46, "Input"]
|
|---|
| 140 | }, Open ]],
|
|---|
| 141 | Cell[CellGroupData[{
|
|---|
| 142 | Cell[3194, 90, 119, 1, 108, "Section"],
|
|---|
| 143 | Cell[3316, 93, 213, 3, 46, "Input"],
|
|---|
| 144 | Cell[3532, 98, 112, 1, 44, "Text"],
|
|---|
| 145 | Cell[3647, 101, 253, 5, 46, "Input"]
|
|---|
| 146 | }, Open ]]
|
|---|
| 147 | }, Open ]]
|
|---|
| 148 | }
|
|---|
| 149 | ]
|
|---|
| 150 | *)
|
|---|
| 151 |
|
|---|
| 152 | (* End of internal cache information *)
|
|---|
