(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      9082,        244]
NotebookOptionsPosition[      8149,        208]
NotebookOutlinePosition[      8473,        223]
CellTagsIndexPosition[      8430,        220]
WindowFrame->Generic
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Load of the FeynRules package", "Subsubsection",
 CellChangeTimes->{{3.452856941348258*^9, 3.452856954182706*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Quit", "[", "]"}], ";"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"$OldDir", "=", 
   RowBox[{"Directory", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$FeynRulesPath", "=", 
   RowBox[{"SetDirectory", "[", "\"\<<address of the package>\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SUSY\>\""}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.452856878024516*^9, 3.452856928463471*^9}, {
  3.452856988363124*^9, 3.452856989785912*^9}, {3.452857076867489*^9, 
  3.452857099728827*^9}, {3.452857430586068*^9, 3.452857430902748*^9}, {
  3.452858460022266*^9, 3.452858483332158*^9}, {3.452923951757038*^9, 
  3.452923956045692*^9}, {3.453004697938979*^9, 3.453004700346866*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Load of the SUSY model", "Subsubsection",
 CellChangeTimes->{{3.452856959806845*^9, 3.452856965627877*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"LoadModel", "[", "\"\<SUSY.fr\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", "\"\<<address of the paramcard>\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ReadLHAFile", "[", 
   RowBox[{"Input", "\[Rule]", "\"\<<ParamCardname>\>\""}], "]"}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
  "SetDirectory", "[", "\"\<<address of the restriction file>\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LoadRestriction", "[", "\"\<<restriction filename>\>\"", "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.452857003470079*^9, 3.452857007620697*^9}, {
  3.452857260410897*^9, 3.452857418156492*^9}, {3.453004704521001*^9, 
  3.453004712282562*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["The SUSY Lagrangian", "Subsubsection",
 CellChangeTimes->{{3.452857023659556*^9, 3.452857026196998*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"LSUSY", " ", "=", " ", 
   RowBox[{
   "LGauge", "+", "LFermions", "+", "LScalars", "+", "LInos", "+", "LFterms", 
    "+", "LDtermA", "+", "LDtermZ", "+", "LDtermW", "+", "LDtermG", "+", 
    "LSoft", "+", "LGhosts"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Lag", "=", 
   RowBox[{"{", " ", 
    RowBox[{
    "LGauge", ",", "LFermions", ",", "LScalars", ",", "LInos", ",", "LFterms",
      ",", "LDtermA", ",", "LDtermZ", ",", "LDtermW", ",", "LDtermG", ",", 
     "LSoft", ",", "LGhosts"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.452857029986314*^9, 3.452857039998457*^9}, {
   3.452857124828374*^9, 3.452857167392163*^9}, {3.452857563614544*^9, 
   3.452857586213094*^9}, 3.452857969768442*^9, 3.452858533666945*^9, {
   3.452859257186238*^9, 3.452859266460517*^9}, 3.452923989843652*^9, {
   3.452924354189201*^9, 3.452924357661318*^9}, {3.452924391590787*^9, 
   3.452924391722917*^9}, {3.452925894748932*^9, 3.452925897330111*^9}, {
   3.452934929992417*^9, 3.452934932014801*^9}, {3.452936731497861*^9, 
   3.452936741287869*^9}, {3.452937606924066*^9, 3.452937607485066*^9}, {
   3.452939547635921*^9, 3.45293955544589*^9}, {3.452943605630234*^9, 
   3.452943605985477*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Feynman rules calculation", "Subsubsection",
 CellChangeTimes->{{3.452857190090434*^9, 3.452857193319125*^9}, {
  3.452943611413307*^9, 3.452943611857323*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"vertices", "=", 
   RowBox[{"MergeVertices", "@@", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"FeynmanRules", "[", 
        RowBox[{"#", ",", " ", 
         RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}], ",", " ", 
         RowBox[{"ScreenOutput", "\[Rule]", "False"}]}], "]"}], "&"}], "/@", 
      "Lag"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45285719561273*^9, 3.452857216042376*^9}, {
  3.452857464515128*^9, 3.452857464873751*^9}, {3.452858229856731*^9, 
  3.452858230970621*^9}, {3.452858270238452*^9, 3.452858290985826*^9}, {
  3.452858357504966*^9, 3.452858375281214*^9}, {3.452858949496504*^9, 
  3.452858949783153*^9}, {3.452859319005252*^9, 3.452859332722344*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Interfaces", "Subsubsection",
 CellChangeTimes->{{3.452857468672501*^9, 3.452857498210647*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", "$OldDir", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WriteLaTeXOutput", "[", " ", 
   RowBox[{
   "LGauge", ",", "LFermions", ",", "LScalars", ",", "LInos", ",", "LFterms", 
    ",", "LDtermA", ",", "LDtermZ", ",", "LDtermW", ",", "LDtermG", ",", 
    "LSoft", ",", "LGhosts", ",", 
    RowBox[{"Overwrite", "\[Rule]", "True"}], ",", " ", 
    RowBox[{"Paper", "\[Rule]", "\"\<a4\>\""}], ",", 
    RowBox[{"Compile", "\[Rule]", "False"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.452857506251116*^9, 3.452857541190844*^9}, {
   3.452857820921334*^9, 3.452857821671475*^9}, {3.452858053621613*^9, 
   3.45285807446853*^9}, 3.452858105035074*^9, {3.452858177877387*^9, 
   3.452858251390167*^9}, {3.452858368378816*^9, 3.452858441089047*^9}, {
   3.452858475248516*^9, 3.452858480104423*^9}, {3.452924101180317*^9, 
   3.452924106042222*^9}, {3.452924151248084*^9, 3.452924220150279*^9}, {
   3.452924438169908*^9, 3.452924439220121*^9}, {3.452924497957293*^9, 
   3.452924498451558*^9}, {3.45292453834359*^9, 3.452924556659153*^9}, {
   3.45292464630318*^9, 3.452924666672789*^9}, {3.452925899808819*^9, 
   3.452925902075311*^9}, {3.452934918688813*^9, 3.452934919012029*^9}, {
   3.452943645743657*^9, 3.452943651628573*^9}, {3.453004726648206*^9, 
   3.453004727367808*^9}, {3.453886955506265*^9, 3.453886961884928*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", "$OldDir", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WriteFeynArtsOutput", "[", 
   RowBox[{"LSUSY", ",", 
    RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.452857546252849*^9, 3.45285755508552*^9}, {
   3.452857591279305*^9, 3.4528575932905*^9}, {3.452857828650335*^9, 
   3.452857830068159*^9}, 3.452934957372618*^9, {3.452938103275687*^9, 
   3.452938103853579*^9}, {3.452940077650317*^9, 3.452940079608851*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", "$OldDir", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WriteMGOutput", "[", 
   RowBox[{"Lag", ",", " ", 
    RowBox[{"DialogBox", "->", "Off"}], ",", " ", 
    RowBox[{"MaxVertices", "->", "15"}], ",", " ", 
    RowBox[{"Exclude4Scalars", "\[Rule]", "True"}]}], "]"}], ";"}]}], "Input",\

 CellChangeTimes->{{3.452857642650016*^9, 3.452857644085292*^9}, {
  3.452857716651955*^9, 3.452857717277575*^9}, {3.45285777233076*^9, 
  3.452857772579779*^9}, {3.452943597521537*^9, 3.452943597818438*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", "$OldDir", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"WriteCHOutput", "[", 
  RowBox[{"Lag", ",", " ", 
   RowBox[{"MaxExpressionLength", "->", "2500"}], ",", " ", 
   RowBox[{"CHSimplify", "->", "True"}], ",", " ", 
   RowBox[{"CHAutoWidths", "->", "False"}], ",", " ", 
   RowBox[{"Exclude4Scalars", "\[Rule]", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.452857619048966*^9, 3.452857678880736*^9}, {
  3.452857710693795*^9, 3.452857711291925*^9}, {3.45285777624413*^9, 
  3.452857776495399*^9}, {3.452943598588369*^9, 3.452943598916852*^9}}]
}, Open  ]]
},
WindowSize->{1439, 824},
WindowMargins->{{5, 5}, {5, Automatic}},
FrontEndVersion->"6.0 for Linux x86 (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[591, 23, 120, 1, 30, "Subsubsection"],
Cell[714, 26, 70, 2, 32, "Input"],
Cell[787, 30, 815, 17, 99, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1639, 52, 113, 1, 30, "Subsubsection"],
Cell[1755, 55, 757, 20, 121, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2549, 80, 110, 1, 30, "Subsubsection"],
Cell[2662, 83, 1243, 23, 55, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3942, 111, 165, 2, 30, "Subsubsection"],
Cell[4110, 115, 741, 16, 32, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4888, 136, 101, 1, 30, "Subsubsection"],
Cell[4992, 139, 1406, 24, 55, "Input"],
Cell[6401, 165, 539, 11, 55, "Input"],
Cell[6943, 178, 572, 13, 55, "Input"],
Cell[7518, 193, 615, 12, 55, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

