(* 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[      3224,         91]
NotebookOptionsPosition[      2792,         73]
NotebookOutlinePosition[      3130,         88]
CellTagsIndexPosition[      3087,         85]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"$FeynRulesPath", "=", 
   RowBox[{"SetDirectory", "[", "\"\<Your FeynRules folder\>\"", "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"<<", "FeynRules`"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"$FeynRulesPath", "<>", "\"\</Models/InertDoublet\>\""}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{
  3.504423447270249*^9, {3.507209594206577*^9, 3.507209600067323*^9}, {
   3.514799374048591*^9, 3.514799404330376*^9}, {3.515062647798441*^9, 
   3.515062653173225*^9}, {3.515135742551162*^9, 3.515135748404658*^9}, {
   3.551191781661876*^9, 3.551191796346917*^9}, {3.589877382659015*^9, 
   3.589877391686277*^9}, {3.589878062567462*^9, 3.589878067455187*^9}, {
   3.589878109496549*^9, 3.589878111197733*^9}, {3.59055306646451*^9, 
   3.590553091624037*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"LoadModel", "[", "\"\<InertDoublet.fr\>\"", "]"}], "\n"}]], "Input"],

Cell[BoxData[
 RowBox[{"CheckHermiticity", "[", "LIDM", "]"}]], "Input",
 CellChangeTimes->{{3.50729355972117*^9, 3.50729357227196*^9}, {
   3.507461994530579*^9, 3.507461995379707*^9}, {3.550996361290633*^9, 
   3.550996399258369*^9}, 3.550996440628131*^9, 3.550996576022204*^9, {
   3.550996621148571*^9, 3.550996621557486*^9}}],

Cell[BoxData[
 RowBox[{"WriteCHOutput", "[", "LIDM", "]"}]], "Input",
 CellChangeTimes->{{3.515066451500599*^9, 3.51506645766863*^9}, {
  3.515066553825666*^9, 3.515066567557489*^9}, {3.517657052212844*^9, 
  3.5176570535784883`*^9}, {3.517657087674789*^9, 3.5176570975167933`*^9}, {
  3.517657162889937*^9, 3.517657189106102*^9}}],

Cell[BoxData[
 RowBox[{"WriteFeynArtsOutput", "[", 
  RowBox[{"LIDM", ",", " ", 
   RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.515066600238826*^9, 3.515066609565148*^9}, {
  3.5176566474542437`*^9, 3.51765665024625*^9}}],

Cell[BoxData[
 RowBox[{"FeynmanRules", "[", "LIDM", "]"}]], "Input",
 CellChangeTimes->{{3.564285253774034*^9, 3.564285261716691*^9}, {
  3.56428538663635*^9, 3.564285400326653*^9}, {3.564285434576292*^9, 
  3.564285434889981*^9}, {3.565024009627996*^9, 3.565024010233662*^9}, {
  3.565024100229115*^9, 3.565024100625525*^9}, {3.589878170056983*^9, 
  3.589878174954186*^9}}]
},
WindowSize->{1855, 1176},
WindowMargins->{{-7, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Linux x86 (32-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 826, 18, 91, "Input"],
Cell[1374, 40, 103, 2, 64, "Input"],
Cell[1480, 44, 330, 5, 36, "Input"],
Cell[1813, 51, 331, 5, 36, "Input"],
Cell[2147, 58, 263, 5, 36, "Input"],
Cell[2413, 65, 375, 6, 36, "Input"]
}
]
*)

(* End of internal cache information *)
