(* 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[ 12968, 358] NotebookOptionsPosition[ 11308, 307] NotebookOutlinePosition[ 11819, 325] CellTagsIndexPosition[ 11776, 322] 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[CellGroupData[{ Cell[BoxData[ RowBox[{"Get", "[", "\"\\"", "]"}]], "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}, {3.7040879069121923`*^9, 3.704087907399336*^9}, {3.704088060395033*^9, 3.70408806134517*^9}, { 3.704103238628577*^9, 3.7041032401631947`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ TagBox[ StyleBox["\<\"SARAH \"\>", "Section", FontSize->14], StyleForm[#, "Section", FontSize -> 14]& ], "\[InvisibleSpace]", TagBox[ StyleBox["\<\"4.11.0\"\>", "Section", FontSize->14], StyleForm[#, "Section", FontSize -> 14]& ]}], SequenceForm[ StyleForm["SARAH ", "Section", FontSize -> 14], StyleForm["4.11.0", "Section", FontSize -> 14]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.704103240729208*^9}], Cell[BoxData[ FormBox["\<\"by Florian Staub, 2017\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.704103240729835*^9}], Cell[BoxData[ FormBox[ TagBox[ StyleBox["\<\"contributions by M. D. Goodsell, K. Nickel\"\>", FontSize->10], StyleForm[#, FontSize -> 10]& ], TraditionalForm]], "Print", CellChangeTimes->{3.7041032407305317`*^9}], Cell[BoxData[ FormBox["\<\"\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.7041032407311296`*^9}], Cell[BoxData[ FormBox[ TagBox[ StyleBox["\<\"References:\"\>", "Section", FontSize->10], StyleForm[#, "Section", FontSize -> 10]& ], TraditionalForm]], "Print", CellChangeTimes->{3.704103240731785*^9}], Cell[BoxData[ FormBox["\<\" Comput.Phys.Commun.181 (2010) 1077-1086. \ (arXiv:0909.2863[hep-ph])\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.7041032407325068`*^9}], Cell[BoxData[ FormBox["\<\" Comput.Phys.Commun.182 (2011) 808-833. \ (arXiv:1002.0840[hep-ph])\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.704103240733213*^9}], Cell[BoxData[ FormBox["\<\" Comput.Phys.Commun.184 (2013) 1792-1809. \ (arXiv:1207.0906[hep-ph])\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.704103240733952*^9}], Cell[BoxData[ FormBox["\<\" Comput.Phys.Commun.185 (2014) 1773-1790. \ (arXiv:1309.7223[hep-ph])\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.704103240734667*^9}], Cell[BoxData[ FormBox[ TagBox[ StyleBox["\<\"Download and Documentation:\"\>", "Section", FontSize->10], StyleForm[#, "Section", FontSize -> 10]& ], TraditionalForm]], "Print", CellChangeTimes->{3.704103240735388*^9}], Cell[BoxData[ FormBox["\<\" http://sarah.hepforge.org\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.70410324073597*^9}], Cell[BoxData[ FormBox["\<\"\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.704103240736546*^9}], Cell[BoxData[ FormBox["\<\"Start evaluation of a model with:\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.704103240737145*^9}], Cell[BoxData[ FormBox[ TagBox[ StyleBox["\<\" Start[\\\"Name of Model\\\"]\"\>", "Section", FontSize->12], StyleForm[#, "Section", FontSize -> 12]& ], TraditionalForm]], "Print", CellChangeTimes->{3.7041032407378397`*^9}], Cell[BoxData[ FormBox["\<\"e.g. Start[\\\"MSSM\\\"] or \ Start[\\\"NMSSM\\\",\\\"CKM\\\"]\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.704103240738632*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"To get a list with all installed models, use \"\>", "\[InvisibleSpace]", TagBox[ StyleBox["\<\"ShowModels\"\>", "Section", FontSize->12], StyleForm[#, "Section", FontSize -> 12]& ]}], SequenceForm["To get a list with all installed models, use ", StyleForm["ShowModels", "Section", FontSize -> 12]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.704103240739251*^9}] }, Open ]] }, Open ]], 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", "[", "\"\\"", "]"}]], "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[{"(*", " ", RowBox[{"MakeAll", "[", "]"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.7041032997370853`*^9, 3.704103305036339*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"We", " ", "create", " ", "a", " ", "SPheno", " ", "module"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.6421591984943047`*^9, 3.642159204623931*^9}}], Cell[BoxData[ RowBox[{"MakeSPheno", "[", RowBox[{"IncludeLoopDecays", "\[Rule]", "False"}], "]"}]], "Input", CellChangeTimes->{{3.613931911833357*^9, 3.613931920588901*^9}, { 3.6167554365343027`*^9, 3.616755439897934*^9}, {3.6168231213917027`*^9, 3.6168231371752*^9}, {3.61684007729959*^9, 3.616840081183877*^9}, { 3.616853246013549*^9, 3.6168532469611177`*^9}, {3.617537504856537*^9, 3.617537508304668*^9}, 3.6175972471865063`*^9, {3.617697143417962*^9, 3.617697146813134*^9}, {3.618052486143476*^9, 3.618052486584504*^9}, { 3.618381013831895*^9, 3.618381015912339*^9}, {3.618384099383676*^9, 3.61838410119975*^9}, {3.618384349960568*^9, 3.618384359990724*^9}, { 3.6187177917303753`*^9, 3.618717793059134*^9}, {3.6188234229210577`*^9, 3.6188234238916063`*^9}, {3.61978398780939*^9, 3.619783989833467*^9}, { 3.61980506094975*^9, 3.6198050619234877`*^9}, {3.621619305737402*^9, 3.621619308978161*^9}, {3.6216730527531023`*^9, 3.6216730538153067`*^9}, { 3.621674593213233*^9, 3.621674594876628*^9}, {3.621677598277638*^9, 3.621677599550735*^9}, {3.622630329106503*^9, 3.622630330943138*^9}, { 3.623064749056677*^9, 3.623064751218445*^9}, {3.62307087401628*^9, 3.623070875501781*^9}, {3.6258336473923492`*^9, 3.625833664998884*^9}, { 3.6258412251011047`*^9, 3.625841226453388*^9}, {3.626157473988639*^9, 3.6261574753543*^9}, {3.627220633033099*^9, 3.627220634267314*^9}, { 3.627886533873753*^9, 3.627886535778747*^9}, {3.627890646251831*^9, 3.627890647430932*^9}, {3.633328961168841*^9, 3.633328963121683*^9}, { 3.6333297964098063`*^9, 3.633329797406958*^9}, {3.633333083709848*^9, 3.633333084937089*^9}, {3.640625974200976*^9, 3.6406259762394533`*^9}, { 3.640626006524796*^9, 3.640626008041626*^9}, {3.641270431827936*^9, 3.641270432996127*^9}, {3.64127432912197*^9, 3.641274355130992*^9}, { 3.6421676777786427`*^9, 3.642167680099959*^9}, {3.642169615965905*^9, 3.642169617676506*^9}, {3.6422662087640123`*^9, 3.64226620981063*^9}, { 3.642266518638473*^9, 3.642266521006317*^9}, {3.64365135427291*^9, 3.643651355232779*^9}, {3.704035642003871*^9, 3.704035648350484*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "We", " ", "generate", " ", "input", " ", "files", " ", "for", " ", "micrOmegas"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.6421679659259663`*^9, 3.642167976808579*^9}}], Cell[BoxData[ RowBox[{"MakeCHep", "[", "]"}]], "Input", CellChangeTimes->{{3.642266468948337*^9, 3.642266497973543*^9}, { 3.642789021753961*^9, 3.64278902288542*^9}, {3.643548904880966*^9, 3.6435489063211527`*^9}, {3.6436513564528093`*^9, 3.643651357391623*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "We", " ", "generate", " ", "input", " ", "UFO", " ", "files", " ", "for", " ", "MadGraph"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.642167932324061*^9, 3.6421679458388042`*^9}}], Cell[BoxData[ RowBox[{"MakeUFO", "[", "]"}]], "Input", CellChangeTimes->{{3.6421679473240767`*^9, 3.642167948801838*^9}, { 3.64216960516776*^9, 3.642169606837376*^9}, {3.642266444246963*^9, 3.642266451160055*^9}, {3.643548908486803*^9, 3.643548909672386*^9}}] }, 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[CellGroupData[{ Cell[2122, 75, 661, 10, 45, "Input"], Cell[CellGroupData[{ Cell[2808, 89, 544, 16, 34, "Print"], Cell[3355, 107, 126, 2, 36, "Print"], Cell[3484, 111, 226, 6, 35, "Print"], Cell[3713, 119, 106, 2, 34, "Print"], Cell[3822, 123, 215, 6, 36, "Print"], Cell[4040, 131, 176, 3, 36, "Print"], Cell[4219, 136, 172, 3, 36, "Print"], Cell[4394, 141, 174, 3, 36, "Print"], Cell[4571, 146, 174, 3, 36, "Print"], Cell[4748, 151, 231, 6, 36, "Print"], Cell[4982, 159, 130, 2, 36, "Print"], Cell[5115, 163, 104, 2, 34, "Print"], Cell[5222, 167, 140, 3, 34, "Print"], Cell[5365, 172, 237, 6, 36, "Print"], Cell[5605, 180, 166, 3, 36, "Print"], Cell[5774, 185, 484, 12, 36, "Print"] }, Open ]] }, Open ]], Cell[6285, 201, 249, 5, 45, "Input"], Cell[6537, 208, 530, 8, 45, "Input"], Cell[7070, 218, 159, 3, 45, "Input"], Cell[7232, 223, 134, 2, 45, "Input"], Cell[7369, 227, 229, 4, 45, "Input"], Cell[7601, 233, 158, 3, 45, "Input"], Cell[7762, 238, 158, 3, 45, "Input"], Cell[7923, 243, 201, 4, 45, "Input"], Cell[8127, 249, 2168, 30, 45, "Input"], Cell[10298, 281, 226, 5, 45, "Input"], Cell[10527, 288, 269, 4, 45, "Input"], Cell[10799, 294, 236, 5, 45, "Input"], Cell[11038, 301, 266, 4, 45, "Input"] } ] *)