(* 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[      3374,        117]
NotebookOptionsPosition[      2710,         88]
NotebookOutlinePosition[      3067,        104]
CellTagsIndexPosition[      3024,        101]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Setup", "Section",
 CellChangeTimes->{{3.518892288721245*^9, 3.518892291440427*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"olddir", "=", 
   RowBox[{"Directory", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$FeynRulesPath", "=", 
   RowBox[{
   "SetDirectory", "[", "\"\<~/FeynRules/trunk/feynrules-development\>\"", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", "olddir", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LoadModel", "[", 
   RowBox[{
    RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/SM.fr\>\""}], ",", 
    RowBox[{"olddir", "<>", "\"\</monotops.fr\>\""}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.500793438723139*^9, 3.500793441143552*^9}, {
  3.503666867066519*^9, 3.503666869077112*^9}, {3.518892141094482*^9, 
  3.518892168024193*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Additionnal Feymman rules", "Section",
 CellChangeTimes->{{3.518892294504589*^9, 3.518892300256538*^9}}],

Cell[BoxData[
 RowBox[{"FeynmanRules", "[", 
  RowBox[{"LMono", ",", 
   RowBox[{"ScreenOutput", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.500881935063075*^9, {3.500887802095841*^9, 3.500887868868883*^9}, {
   3.5008879030484743`*^9, 3.500887906007085*^9}, {3.500889419665913*^9, 
   3.5008894198304033`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Generating the UFO model files", "Section",
 CellChangeTimes->{{3.518892302672626*^9, 3.518892305688608*^9}}],

Cell[BoxData[
 RowBox[{"WriteUFO", "[", 
  RowBox[{"LSM", "+", "LMono"}], "]"}]], "Input",
 CellChangeTimes->{{3.500890697245646*^9, 3.500890704222636*^9}, {
  3.5008908901215143`*^9, 3.5008908903708687`*^9}, {3.518892235767663*^9, 
  3.518892237775363*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Generating the FeynArts model files", "Section",
 CellChangeTimes->{{3.518892794840085*^9, 3.51889279885506*^9}}],

Cell[BoxData[
 RowBox[{"WriteFeynArtsOutput", "[", 
  RowBox[{"LSM", "+", "LMono"}], "]"}]], "Input",
 CellChangeTimes->{{3.518892801141994*^9, 3.518892813463686*^9}}]
}, Open  ]]
},
WindowSize->{1440, 825},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"7.0 for Linux x86 (64-bit) (February 25, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 90, 1, 73, "Section"],
Cell[660, 25, 813, 21, 121, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1510, 51, 110, 1, 73, "Section"],
Cell[1623, 54, 332, 7, 32, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1992, 66, 115, 1, 73, "Section"],
Cell[2110, 69, 258, 5, 32, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2405, 79, 119, 1, 73, "Section"],
Cell[2527, 82, 167, 3, 32, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
