goldstino: gldgrv.nb

File gldgrv.nb, 6.3 KB (added by BenjF, 7 years ago)

Example notebook

Line 
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:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       145,          7]
13NotebookDataLength[      6235,        166]
14NotebookOptionsPosition[      5464,        136]
15NotebookOutlinePosition[      5921,        154]
16CellTagsIndexPosition[      5878,        151]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[BoxData[
22 RowBox[{"Quit", "[", "]"}]], "Input",
23 CellChangeTimes->{{3.529729640301558*^9, 3.529729640867762*^9}, {
24  3.571948057562459*^9, 3.571948060394286*^9}, {3.5720308710290203`*^9,
25  3.572030871692618*^9}, {3.572116374658242*^9, 3.572116375210046*^9}}],
26
27Cell[CellGroupData[{
28
29Cell["Setup", "Section"],
30
31Cell[BoxData[{
32 RowBox[{
33  RowBox[{"$OldDir", "=",
34   RowBox[{"SetDirectory", "[",
35    RowBox[{"NotebookDirectory", "[", "]"}], "]"}]}], ";"}], "\n",
36 RowBox[{
37  RowBox[{"$FeynRulesPath", "=",
38   RowBox[{
39   "SetDirectory", "[",
40    "\"\<~/Work/tools/FeynRules/trunk/feynrules-development\>\"", "]"}]}],
41  ";"}], "\[IndentingNewLine]",
42 RowBox[{"<<", "FeynRules`"}], "\n",
43 RowBox[{
44  RowBox[{"SetDirectory", "[", "$OldDir", "]"}], ";"}], "\[IndentingNewLine]",
45 RowBox[{
46  RowBox[{"LoadModel", "[",
47   RowBox[{"\"\<../MSSM/mssm.fr\>\"", ",", " ", "\"\<gldgrv.fr\>\""}], "]"}],
48  ";"}], "\n",
49 RowBox[{
50  RowBox[{"$CalcLag", "=", "True"}], ";"}]}], "Input",
51 CellChangeTimes->{{3.510511714359152*^9, 3.5105117232569723`*^9}, {
52   3.52972960449199*^9, 3.529729617872299*^9}, {3.52981709669534*^9,
53   3.529817102988616*^9}, {3.529817239106802*^9, 3.52981723986018*^9}, {
54   3.529817572824171*^9, 3.5298175822034388`*^9}, {3.5298176180919333`*^9,
55   3.529817618644792*^9}, {3.529818319105591*^9, 3.529818319452136*^9}, {
56   3.5298183862814817`*^9, 3.5298183867754917`*^9}, {3.530014184363921*^9,
57   3.530014184866425*^9}, {3.530279274200142*^9, 3.5302792746787453`*^9}, {
58   3.530279346994732*^9, 3.530279347463052*^9}, {3.5302824581143637`*^9,
59   3.530282458669952*^9}, {3.530283431734676*^9, 3.530283432112616*^9}, {
60   3.530284233506078*^9, 3.530284234083164*^9}, {3.53216778814719*^9,
61   3.532167788450335*^9}, {3.532170481347641*^9, 3.5321704955865726`*^9}, {
62   3.5328392804839478`*^9, 3.532839282856853*^9}, {3.532870659813244*^9,
63   3.532870660152001*^9}, {3.532980915978623*^9, 3.53298091649365*^9}, {
64   3.563594666949706*^9, 3.5635946673053303`*^9}, {3.56360763247821*^9,
65   3.563607633001974*^9}, {3.563614230295828*^9, 3.563614230638699*^9}, {
66   3.563703741362089*^9, 3.563703741862739*^9}, {3.563704233601944*^9,
67   3.563704233981513*^9}, 3.564826908520685*^9, {3.564827597631703*^9,
68   3.5648276214934063`*^9}, {3.564827676195327*^9, 3.564827676745825*^9}, {
69   3.5648279742339077`*^9, 3.5648279754098043`*^9}, {3.5648280073143187`*^9,
70   3.5648280802298717`*^9}, {3.5648396878377533`*^9, 3.564839694346941*^9}, {
71   3.5649176397614527`*^9, 3.564917646271906*^9}, {3.570417430328074*^9,
72   3.570417430718464*^9}, {3.570545250194833*^9, 3.570545250713505*^9}, {
73   3.572372212656474*^9, 3.5723722138227777`*^9}, {3.573266982773725*^9,
74   3.573266986561677*^9}, {3.573384322022996*^9, 3.573384322476486*^9}, {
75   3.584948958535923*^9, 3.5849490070137243`*^9}, {3.584949050767918*^9,
76   3.58494905143953*^9}}]
77}, Open  ]],
78
79Cell[CellGroupData[{
80
81Cell["Computing the lagrangian", "Section",
82 CellChangeTimes->{{3.5328706710103292`*^9, 3.5328706735457983`*^9}, {
83  3.5637073298373117`*^9, 3.563707331318151*^9}, {3.563707694492751*^9,
84  3.563707697482766*^9}}],
85
86Cell[BoxData[
87 RowBox[{
88  RowBox[{"If", "[",
89   RowBox[{"$CalcLag", ",",
90    RowBox[{
91     RowBox[{"lagr", "=", "lagra"}], ";", "\[IndentingNewLine]",
92     RowBox[{
93      RowBox[{"Definition", "[", "lagr", "]"}], ">>", "lagrangian.dat"}]}],
94    ",",
95    RowBox[{"<<", "lagrangian.dat"}]}], "]"}], ";"}]], "Input"]
96}, Open  ]],
97
98Cell[CellGroupData[{
99
100Cell["Parameters and UFO output", "Section",
101 CellChangeTimes->{{3.529817450398305*^9, 3.529817451889786*^9}, {
102  3.532839547831317*^9, 3.5328395490020723`*^9}, {3.584949062152893*^9,
103  3.584949063471664*^9}}],
104
105Cell[BoxData[{
106 RowBox[{
107  RowBox[{"SetDirectory", "[", "\"\<../MSSM\>\"", "]"}],
108  ";"}], "\[IndentingNewLine]",
109 RowBox[{
110  RowBox[{"ReadLHAFile", "[",
111   RowBox[{"Input", "\[Rule]", "\"\<sps1a.dat\>\""}], "]"}],
112  ";"}], "\[IndentingNewLine]",
113 RowBox[{
114  RowBox[{"SetDirectory", "[", "$OldDir", "]"}], ";"}]}], "Input",
115 CellChangeTimes->{{3.5323172969392443`*^9, 3.532317326551259*^9}, {
116  3.532870710712151*^9, 3.532870716195807*^9}}],
117
118Cell[BoxData[
119 RowBox[{
120  RowBox[{"WriteRestrictionFile", "[", "]"}], ";",
121  RowBox[{"LoadRestriction", "[", "\"\<ZeroValues.rst\>\"", "]"}], ";",
122  RowBox[{"DeleteFile", "[", "\"\<ZeroValues.rst\>\"", "]"}], ";"}]], "Input"],
123
124Cell[BoxData[
125 RowBox[{
126  RowBox[{"WriteUFO", "[",
127   RowBox[{"lagr", ",",
128    RowBox[{"Exclude4Scalars", "\[Rule]", "True"}]}], "]"}], ";"}]], "Input",
129 CellChangeTimes->{{3.532870730989689*^9, 3.532870744946867*^9}, {
130   3.5328966188316507`*^9, 3.5328966380583057`*^9}, 3.532896678206644*^9, {
131   3.532924522141225*^9, 3.532924581016425*^9}, {3.532924686543313*^9,
132   3.5329246868077917`*^9}, {3.532957195462633*^9, 3.532957198473382*^9}, {
133   3.532969254775139*^9, 3.532969255318975*^9}, {3.584949067591806*^9,
134   3.584949071325344*^9}}]
135}, Open  ]]
136},
137WindowSize->{1367, 856},
138WindowMargins->{{Automatic, 248}, {38, Automatic}},
139PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
140ShowSelection->True,
141FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (January 25, \
1422013)",
143StyleDefinitions->"Default.nb"
144]
145(* End of Notebook Content *)
146
147(* Internal cache information *)
148(*CellTagsOutline
149CellTagsIndex->{}
150*)
151(*CellTagsIndex
152CellTagsIndex->{}
153*)
154(*NotebookFileOutline
155Notebook[{
156Cell[545, 20, 264, 4, 28, "Input"],
157Cell[CellGroupData[{
158Cell[834, 28, 24, 0, 80, "Section"],
159Cell[861, 30, 2544, 45, 114, "Input"]
160}, Open  ]],
161Cell[CellGroupData[{
162Cell[3442, 80, 213, 3, 80, "Section"],
163Cell[3658, 85, 318, 9, 46, "Input"]
164}, Open  ]],
165Cell[CellGroupData[{
166Cell[4013, 99, 210, 3, 80, "Section"],
167Cell[4226, 104, 445, 11, 63, "Input"],
168Cell[4674, 117, 227, 4, 28, "Input"],
169Cell[4904, 123, 544, 10, 28, "Input"]
170}, Open  ]]
171}
172]
173*)
174
175(* End of internal cache information *)