(* 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[      4695,        145]
NotebookOptionsPosition[      4041,        121]
NotebookOutlinePosition[      4461,        138]
CellTagsIndexPosition[      4418,        135]
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", "[", "\"\<codes/SARAH-4.6.0/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}}],

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->{1366, 744},
WindowMargins->{{-9, 9}, {7, -8}},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited],
FrontEndVersion->"8.0 for Linux x86 (64-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 1367, 46, 98, "Input"],
Cell[1927, 68, 170, 3, 43, "Input"],
Cell[2100, 73, 402, 6, 43, "Input"],
Cell[2505, 81, 249, 5, 43, "Input"],
Cell[2757, 88, 530, 8, 43, "Input"],
Cell[3290, 98, 159, 3, 43, "Input"],
Cell[3452, 103, 134, 2, 43, "Input"],
Cell[3589, 107, 229, 4, 43, "Input"],
Cell[3821, 113, 158, 3, 43, "Input"],
Cell[3982, 118, 55, 1, 43, "Input"]
}
]
*)

(* End of internal cache information *)