| 1 | (* Content-type: application/mathematica *)
|
|---|
| 2 |
|
|---|
| 3 | (*** Wolfram Notebook File ***)
|
|---|
| 4 | (* http://www.wolfram.com/nb *)
|
|---|
| 5 |
|
|---|
| 6 | (* CreatedBy='Mathematica 7.0' *)
|
|---|
| 7 |
|
|---|
| 8 | (*CacheID: 234*)
|
|---|
| 9 | (* Internal cache information:
|
|---|
| 10 | NotebookFileLineBreakTest
|
|---|
| 11 | NotebookFileLineBreakTest
|
|---|
| 12 | NotebookDataPosition[ 145, 7]
|
|---|
| 13 | NotebookDataLength[ 3224, 91]
|
|---|
| 14 | NotebookOptionsPosition[ 2792, 73]
|
|---|
| 15 | NotebookOutlinePosition[ 3130, 88]
|
|---|
| 16 | CellTagsIndexPosition[ 3087, 85]
|
|---|
| 17 | WindowFrame->Normal*)
|
|---|
| 18 |
|
|---|
| 19 | (* Beginning of Notebook Content *)
|
|---|
| 20 | Notebook[{
|
|---|
| 21 | Cell[BoxData[{
|
|---|
| 22 | RowBox[{
|
|---|
| 23 | RowBox[{"$FeynRulesPath", "=",
|
|---|
| 24 | RowBox[{"SetDirectory", "[", "\"\<Your FeynRules folder\>\"", "]"}]}],
|
|---|
| 25 | ";"}], "\n",
|
|---|
| 26 | RowBox[{
|
|---|
| 27 | RowBox[{"<<", "FeynRules`"}], ";"}], "\n",
|
|---|
| 28 | RowBox[{
|
|---|
| 29 | RowBox[{"SetDirectory", "[",
|
|---|
| 30 | RowBox[{"$FeynRulesPath", "<>", "\"\</Models/InertDoublet\>\""}], "]"}],
|
|---|
| 31 | ";"}]}], "Input",
|
|---|
| 32 | CellChangeTimes->{
|
|---|
| 33 | 3.504423447270249*^9, {3.507209594206577*^9, 3.507209600067323*^9}, {
|
|---|
| 34 | 3.514799374048591*^9, 3.514799404330376*^9}, {3.515062647798441*^9,
|
|---|
| 35 | 3.515062653173225*^9}, {3.515135742551162*^9, 3.515135748404658*^9}, {
|
|---|
| 36 | 3.551191781661876*^9, 3.551191796346917*^9}, {3.589877382659015*^9,
|
|---|
| 37 | 3.589877391686277*^9}, {3.589878062567462*^9, 3.589878067455187*^9}, {
|
|---|
| 38 | 3.589878109496549*^9, 3.589878111197733*^9}, {3.59055306646451*^9,
|
|---|
| 39 | 3.590553091624037*^9}}],
|
|---|
| 40 |
|
|---|
| 41 | Cell[BoxData[
|
|---|
| 42 | RowBox[{
|
|---|
| 43 | RowBox[{"LoadModel", "[", "\"\<InertDoublet.fr\>\"", "]"}], "\n"}]], "Input"],
|
|---|
| 44 |
|
|---|
| 45 | Cell[BoxData[
|
|---|
| 46 | RowBox[{"CheckHermiticity", "[", "LIDM", "]"}]], "Input",
|
|---|
| 47 | CellChangeTimes->{{3.50729355972117*^9, 3.50729357227196*^9}, {
|
|---|
| 48 | 3.507461994530579*^9, 3.507461995379707*^9}, {3.550996361290633*^9,
|
|---|
| 49 | 3.550996399258369*^9}, 3.550996440628131*^9, 3.550996576022204*^9, {
|
|---|
| 50 | 3.550996621148571*^9, 3.550996621557486*^9}}],
|
|---|
| 51 |
|
|---|
| 52 | Cell[BoxData[
|
|---|
| 53 | RowBox[{"WriteCHOutput", "[", "LIDM", "]"}]], "Input",
|
|---|
| 54 | CellChangeTimes->{{3.515066451500599*^9, 3.51506645766863*^9}, {
|
|---|
| 55 | 3.515066553825666*^9, 3.515066567557489*^9}, {3.517657052212844*^9,
|
|---|
| 56 | 3.5176570535784883`*^9}, {3.517657087674789*^9, 3.5176570975167933`*^9}, {
|
|---|
| 57 | 3.517657162889937*^9, 3.517657189106102*^9}}],
|
|---|
| 58 |
|
|---|
| 59 | Cell[BoxData[
|
|---|
| 60 | RowBox[{"WriteFeynArtsOutput", "[",
|
|---|
| 61 | RowBox[{"LIDM", ",", " ",
|
|---|
| 62 | RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]], "Input",
|
|---|
| 63 | CellChangeTimes->{{3.515066600238826*^9, 3.515066609565148*^9}, {
|
|---|
| 64 | 3.5176566474542437`*^9, 3.51765665024625*^9}}],
|
|---|
| 65 |
|
|---|
| 66 | Cell[BoxData[
|
|---|
| 67 | RowBox[{"FeynmanRules", "[", "LIDM", "]"}]], "Input",
|
|---|
| 68 | CellChangeTimes->{{3.564285253774034*^9, 3.564285261716691*^9}, {
|
|---|
| 69 | 3.56428538663635*^9, 3.564285400326653*^9}, {3.564285434576292*^9,
|
|---|
| 70 | 3.564285434889981*^9}, {3.565024009627996*^9, 3.565024010233662*^9}, {
|
|---|
| 71 | 3.565024100229115*^9, 3.565024100625525*^9}, {3.589878170056983*^9,
|
|---|
| 72 | 3.589878174954186*^9}}]
|
|---|
| 73 | },
|
|---|
| 74 | WindowSize->{1855, 1176},
|
|---|
| 75 | WindowMargins->{{-7, Automatic}, {Automatic, 0}},
|
|---|
| 76 | FrontEndVersion->"8.0 for Linux x86 (32-bit) (February 23, 2011)",
|
|---|
| 77 | StyleDefinitions->"Default.nb"
|
|---|
| 78 | ]
|
|---|
| 79 | (* End of Notebook Content *)
|
|---|
| 80 |
|
|---|
| 81 | (* Internal cache information *)
|
|---|
| 82 | (*CellTagsOutline
|
|---|
| 83 | CellTagsIndex->{}
|
|---|
| 84 | *)
|
|---|
| 85 | (*CellTagsIndex
|
|---|
| 86 | CellTagsIndex->{}
|
|---|
| 87 | *)
|
|---|
| 88 | (*NotebookFileOutline
|
|---|
| 89 | Notebook[{
|
|---|
| 90 | Cell[545, 20, 826, 18, 91, "Input"],
|
|---|
| 91 | Cell[1374, 40, 103, 2, 64, "Input"],
|
|---|
| 92 | Cell[1480, 44, 330, 5, 36, "Input"],
|
|---|
| 93 | Cell[1813, 51, 331, 5, 36, "Input"],
|
|---|
| 94 | Cell[2147, 58, 263, 5, 36, "Input"],
|
|---|
| 95 | Cell[2413, 65, 375, 6, 36, "Input"]
|
|---|
| 96 | }
|
|---|
| 97 | ]
|
|---|
| 98 | *)
|
|---|
| 99 |
|
|---|
| 100 | (* End of internal cache information *)
|
|---|
