InertDoublet: IDMload.nb

File IDMload.nb, 3.3 KB (added by an_drikos, 7 years ago)

Simple script to load the model.

Line 
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:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       145,          7]
13NotebookDataLength[      3224,         91]
14NotebookOptionsPosition[      2792,         73]
15NotebookOutlinePosition[      3130,         88]
16CellTagsIndexPosition[      3087,         85]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[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
41Cell[BoxData[
42 RowBox[{
43  RowBox[{"LoadModel", "[", "\"\<InertDoublet.fr\>\"", "]"}], "\n"}]], "Input"],
44
45Cell[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
52Cell[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
59Cell[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
66Cell[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},
74WindowSize->{1855, 1176},
75WindowMargins->{{-7, Automatic}, {Automatic, 0}},
76FrontEndVersion->"8.0 for Linux x86 (32-bit) (February 23, 2011)",
77StyleDefinitions->"Default.nb"
78]
79(* End of Notebook Content *)
80
81(* Internal cache information *)
82(*CellTagsOutline
83CellTagsIndex->{}
84*)
85(*CellTagsIndex
86CellTagsIndex->{}
87*)
88(*NotebookFileOutline
89Notebook[{
90Cell[545, 20, 826, 18, 91, "Input"],
91Cell[1374, 40, 103, 2, 64, "Input"],
92Cell[1480, 44, 330, 5, 36, "Input"],
93Cell[1813, 51, 331, 5, 36, "Input"],
94Cell[2147, 58, 263, 5, 36, "Input"],
95Cell[2413, 65, 375, 6, 36, "Input"]
96}
97]
98*)
99
100(* End of internal cache information *)