(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      4881,        147]
NotebookOptionsPosition[      4135,        122]
NotebookOutlinePosition[      4646,        140]
CellTagsIndexPosition[      4603,        137]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"--", 
    RowBox[{"--", 
     RowBox[{"--", 
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"--", 
         RowBox[{"--", 
          RowBox[{"--", 
           RowBox[{"--", 
            RowBox[{"--", 
             RowBox[{"--", 
              RowBox[{"--", 
               RowBox[{"--", 
                RowBox[{"--", 
                 RowBox[{"--", 
                  RowBox[{"--", 
                   RowBox[{"--", 
                    RowBox[{"--", "-"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Computer", " ", "tools", " ", "in", " ", "particle", " ", "physics"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"--", 
    RowBox[{"--", 
     RowBox[{"--", 
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"--", 
         RowBox[{"--", 
          RowBox[{"--", 
           RowBox[{"--", 
            RowBox[{"--", 
             RowBox[{"--", 
              RowBox[{"--", 
               RowBox[{"--", 
                RowBox[{"--", 
                 RowBox[{"--", 
                  RowBox[{"--", 
                   RowBox[{"--", 
                    RowBox[{"--", "-"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.662807874811365*^9, 3.662807892766083*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"We", " ", "load", " ", "SARAH"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.6421393497872753`*^9, 3.642139353401601*^9}}],

Cell[BoxData[
 RowBox[{"Get", "[", "\"\<SARAH-4.9.3/SARAH.m\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.543066433311716*^9, 3.543066444646021*^9}, 
   3.612673160960286*^9, {3.642139187375333*^9, 3.642139200640821*^9}, {
   3.642159187821062*^9, 3.6421591886540318`*^9}, {3.6422650341114063`*^9, 
   3.642265034239678*^9}, 3.643617810759348*^9, {3.663564769758588*^9, 
   3.663564770040535*^9}, {3.687504788143239*^9, 3.6875047888511553`*^9}, {
   3.687781733160274*^9, 3.6877817346207123`*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"We", " ", "load", " ", "the", " ", "DarkBS", " ", "model"}], " ", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.642139355394115*^9, 3.642139366256424*^9}, {
  3.643566375418483*^9, 3.6435663761432753`*^9}}],

Cell[BoxData[
 RowBox[{"Start", "[", "\"\<DarkBS\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.61769587968014*^9, 3.617695885302827*^9}, {
   3.617700031416925*^9, 3.617700043583078*^9}, {3.617700994605487*^9, 
   3.617701002081102*^9}, {3.617703853456403*^9, 3.6177038578200903`*^9}, {
   3.617704011996723*^9, 3.617704019516409*^9}, {3.6177729141097927`*^9, 
   3.617772916719343*^9}, {3.617772975360723*^9, 3.617772977286265*^9}, 
   3.641892711213243*^9, 3.642139344190316*^9, {3.643566378290505*^9, 
   3.643566379015265*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"Mass", " ", "matrices"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.64213936889736*^9, 3.642139373351761*^9}}],

Cell[BoxData[
 RowBox[{"MassMatrix", "[", "Fe", "]"}]], "Input",
 CellChangeTimes->{{3.6418944585737343`*^9, 3.6418944618362913`*^9}}],

Cell[BoxData[
 RowBox[{"MassMatrix", "[", "hh", "]"}]], "Input",
 CellChangeTimes->{{3.641893857192151*^9, 3.64189385976862*^9}, {
  3.641894277612791*^9, 3.6418942855435877`*^9}, {3.643566394163672*^9, 
  3.643566396902708*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"All", " ", "outputs"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.643566438307391*^9, 3.643566442516246*^9}}],

Cell[BoxData[
 RowBox[{"MakeAll", "[", "]"}]], "Input"]
},
WindowSize->{1364, 691},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited],
FrontEndVersion->"10.4 for Linux x86 (64-bit) (April 11, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 1367, 46, 104, "Input"],
Cell[1927, 68, 170, 3, 45, "Input"],
Cell[2100, 73, 496, 7, 45, "Input"],
Cell[2599, 82, 249, 5, 45, "Input"],
Cell[2851, 89, 530, 8, 45, "Input"],
Cell[3384, 99, 159, 3, 45, "Input"],
Cell[3546, 104, 134, 2, 45, "Input"],
Cell[3683, 108, 229, 4, 45, "Input"],
Cell[3915, 114, 158, 3, 45, "Input"],
Cell[4076, 119, 55, 1, 45, "Input"]
}
]
*)