(* 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[     17866,        442]
NotebookOptionsPosition[     14012,        368]
NotebookOutlinePosition[     14516,        386]
CellTagsIndexPosition[     14473,        383]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 StyleBox[
  RowBox[{
  "Computer", " ", "tools", " ", "in", " ", "particle", " ", "physics"}], 
  "Title"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{"Course", " ", "by", " ", "Avelino", " ", "Vicente"}], " ", "-", 
   " ", "BCVSPIN", " ", "-", " ", 
   RowBox[{"May", " ", "2023"}]}], "Subtitle"]}], "Input",
 Evaluatable->False,
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBWIQfWm3WF1C+WtH8f8FjSA68WhJF4jWOz1/Gog2e/li
HojO2Gy/AERb873aBBbfsWsziD73O/ssiK7z3gamJRRMpk0G0hcSzMB0esEE
Ff7W146rHraqgugvjn5/HIB02JdWRkcgzXCq0H1n22vHFYxVHiC66PwGta2d
rx33zrHTBNGbdByqDbtfO56qdALTBh8DXuf3A+0NfACmAzfMzyoG0utOyWWD
6KxTGz7OmvDaMeTbLjA9aWPlL7GJrx015kv9A9FxCwz1xYH0+Uh3ML2rxYxT
YtJrx9AlF8D0itIls0M+vHZ88uIImHZza5pTLPTGUe9B8DwQ/WjN+UUgOixk
/mIQfXrdBK/c/28cPdeGeYNoAAaEsGo=
  "],ExpressionUUID->"c70ef20f-b856-42a4-b6ef-0ef595166851"],

Cell[TextData[{
 StyleBox["With this notebook we will learn the most common commands in ",
  FontSize->18,
  FontColor->GrayLevel[0],
  Background->None],
 StyleBox["SARAH",
  FontSize->18,
  FontWeight->"Bold",
  FontColor->GrayLevel[0],
  Background->None]
}], "Text",
 CellChangeTimes->{{3.766986458621125*^9, 3.766986480811357*^9}, {
  3.766986572646778*^9, 3.766986759367234*^9}, {3.7669871627960043`*^9, 
  3.766987165578465*^9}, {3.766998870952428*^9, 3.766998871156941*^9}, {
  3.767770408031024*^9, 3.767770416528718*^9}},
 Background->RGBColor[
  1, 1, 0.85],ExpressionUUID->"3e896f20-9fd1-4585-a31c-9f5a6e800107"],

Cell[CellGroupData[{

Cell["Load SARAH", "Title",
 Evaluatable->False,
 CellChangeTimes->{{3.686467940463894*^9, 3.686467960453517*^9}, 
   3.686469580779161*^9, {3.6936400185291033`*^9, 3.693640019013015*^9}, {
   3.6990824216357803`*^9, 3.699082443019319*^9}, {3.699085905044036*^9, 
   3.6990859076625643`*^9}, {3.7677704276155*^9, 
   3.767770430228077*^9}},ExpressionUUID->"254bc9f7-32ca-4a0d-8fe9-\
24721ac237ed"],

Cell[BoxData[
 RowBox[{"Get", "[", "\"\<codes/SARAH-4.15.1/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.6436190288853693`*^9, {3.657015732584651*^9, 
   3.657015732966357*^9}, {3.6628079285347633`*^9, 3.662807931293388*^9}, {
   3.662809057105275*^9, 3.6628090574333763`*^9}, 3.663315255740694*^9, {
   3.6634129299059753`*^9, 3.6634129305696487`*^9}, {3.663499193352339*^9, 
   3.663499193939356*^9}, {3.68750482518433*^9, 3.687504825664859*^9}, {
   3.687781720909919*^9, 3.68778172276828*^9}, {3.703999956135502*^9, 
   3.7039999615838833`*^9}, {3.767770713967263*^9, 3.7677707155130653`*^9}, 
   3.892013760793014*^9},
 CellLabel->"In[1]:=",ExpressionUUID->"bc41a9ed-3a80-4699-bb0f-829244d9075d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Load Scotogenic model", "Title",
 Evaluatable->False,
 CellChangeTimes->{{3.686467940463894*^9, 3.686467960453517*^9}, 
   3.686469580779161*^9, {3.6936400185291033`*^9, 3.693640019013015*^9}, {
   3.6990824216357803`*^9, 3.699082443019319*^9}, {3.699085905044036*^9, 
   3.6990859076625643`*^9}, {3.7677704276155*^9, 
   3.7677704492640553`*^9}},ExpressionUUID->"495a8b1f-5a4c-4a37-881a-\
64fc29368c92"],

Cell[BoxData[
 RowBox[{"Start", "[", "\"\<Scotogenic\>\"", "]"}]], "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},ExpressionUUID->"160c2e68-9fc7-439b-8111-\
79ab9189d9cb"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Explore the model", "Title",
 Evaluatable->False,
 CellChangeTimes->{{3.686467940463894*^9, 3.686467960453517*^9}, 
   3.686469580779161*^9, {3.6936400185291033`*^9, 3.693640019013015*^9}, {
   3.6990824216357803`*^9, 3.699082443019319*^9}, {3.699085905044036*^9, 
   3.6990859076625643`*^9}, {3.7677704276155*^9, 
   3.767770463041563*^9}},ExpressionUUID->"02d039f7-e3a1-4db7-9f1f-\
77519752e91c"],

Cell[CellGroupData[{

Cell["Mass matrices", "Subchapter",
 CellChangeTimes->{{3.767770465346221*^9, 
  3.7677704682569523`*^9}},ExpressionUUID->"ba2c8539-9a88-4cc5-ae73-\
2af9ada68dbd"],

Cell[BoxData[
 RowBox[{"MassMatrix", "[", "Fe", "]"}]], "Input",
 CellChangeTimes->{{3.6418944585737343`*^9, 3.6418944618362913`*^9}, {
   3.70400038925079*^9, 3.704000391798359*^9}, 
   3.7040007082282763`*^9},ExpressionUUID->"951b304d-d07c-4831-98ad-\
5bd5ad600eb2"],

Cell[BoxData[
 RowBox[{"MassMatrix", "[", "Chi", "]"}]], "Input",
 CellChangeTimes->{{3.641894757416142*^9, 
  3.641894757714943*^9}},ExpressionUUID->"e665c463-833e-40af-b999-\
dfe4c8d341fa"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MassMatrix", "[", "Chi", "]"}], "/.", 
  RowBox[{
   RowBox[{"Mn", "[", 
    RowBox[{"i_", ",", "j_"}], "]"}], "\[RuleDelayed]", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"i", ">", "j"}], ",", 
     RowBox[{"Mn", "[", 
      RowBox[{"j", ",", "i"}], "]"}], ",", 
     RowBox[{"Mn", "[", 
      RowBox[{"i", ",", "j"}], "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.641895406755147*^9, 
  3.641895434136468*^9}},ExpressionUUID->"08a7188f-298d-4ede-bfc0-\
d32a702d1b5c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Mass", "[", "hh", "]"}], "/.", 
  RowBox[{"Masses", "[", "EWSB", "]"}]}]], "Input",
 CellChangeTimes->{{3.641893857192151*^9, 3.64189385976862*^9}, {
  3.641894277612791*^9, 
  3.6418942855435877`*^9}},ExpressionUUID->"ccb34f65-c8ea-4972-8aa3-\
74a4b725dcdd"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tadpole equations", "Subchapter",
 CellChangeTimes->{{3.76777047678607*^9, 
  3.767770480429604*^9}},ExpressionUUID->"9362cd61-aceb-4cba-bc12-\
19baae9e311c"],

Cell[BoxData[
 RowBox[{"TadpoleEquations", "[", "EWSB", "]"}]], "Input",
 CellChangeTimes->{{3.641892918846278*^9, 
  3.641892924317926*^9}},ExpressionUUID->"35601191-7ad2-4e5c-82ee-\
abc2848178e2"],

Cell[BoxData[
 RowBox[{"TadpoleEquation", "[", "v", "]"}]], "Input",
 CellChangeTimes->{{3.641892939357213*^9, 
  3.6418929503732023`*^9}},ExpressionUUID->"d7fd56e6-d7a6-4914-9278-\
03b4bbeeeb7d"],

Cell[BoxData[
 RowBox[{"solTadpole", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"TadpoleEquation", "[", "v", "]"}], ",", "mH2"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.6418932816192017`*^9, 3.641893289530778*^9}, {
  3.6418959581884813`*^9, 
  3.641895960119982*^9}},ExpressionUUID->"a480383b-d763-49ab-a68a-\
3d856c5d79a2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Mass", "[", "hh", "]"}], "/.", 
   RowBox[{"Masses", "[", "EWSB", "]"}]}], "/.", "solTadpole"}]], "Input",
 CellChangeTimes->{{3.641895966681736*^9, 
  3.641895969857542*^9}},ExpressionUUID->"845ef194-0bd4-4fc0-810b-\
8cc36e36f1ec"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Vertices", "Subchapter",
 CellChangeTimes->{{3.7677704882119617`*^9, 
  3.767770491426187*^9}},ExpressionUUID->"58f24997-c209-4dbf-91a0-\
70e0d5445190"],

Cell[BoxData[
 RowBox[{"Vertex", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"bar", "[", "Fe", "]"}], ",", "Fe", ",", "hh"}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6418966032427073`*^9, 
  3.64189661309589*^9}},ExpressionUUID->"50f6f4a2-18ac-4deb-95c3-\
e527a39a8ffa"],

Cell[BoxData[
 RowBox[{"Vertex", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"bar", "[", "Fe", "]"}], ",", "Fv", ",", 
    RowBox[{"conj", "[", "VWp", "]"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.641999275206624*^9, 3.641999283070676*^9}, {
  3.641999427941495*^9, 
  3.641999439992008*^9}},ExpressionUUID->"a3701fb0-e884-45d8-935f-\
9e4d76a4b595"],

Cell[BoxData[
 RowBox[{"Vertex", "[", 
  RowBox[{"{", 
   RowBox[{"Fv", ",", "Chi", ",", "hh"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.641896631893976*^9, 3.641896632179007*^9}, {
  3.6418968663984213`*^9, 3.6418968675826683`*^9}, {3.6418968985978413`*^9, 
  3.641896898863695*^9}},ExpressionUUID->"5be46984-3c46-4c39-aebc-\
de0be013d8a6"],

Cell[BoxData[
 RowBox[{"Vertex", "[", 
  RowBox[{"{", 
   RowBox[{"Fv", ",", "Chi", ",", "etR"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.641896874249325*^9, 
  3.64189688850025*^9}},ExpressionUUID->"b24f1abb-0ac9-4be8-b06a-\
6d9f233c077a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["LaTeX output", "Subchapter",
 CellChangeTimes->{{3.7677705006286783`*^9, 
  3.767770505667264*^9}},ExpressionUUID->"5ea426eb-9111-4f93-871b-\
2f549dedf4ab"],

Cell[BoxData[
 RowBox[{"ModelOutput", "[", "EWSB", "]"}]], "Input",
 CellChangeTimes->{{3.6633157695125732`*^9, 
  3.663315774439954*^9}},ExpressionUUID->"3debc2ca-bb71-4abd-9d92-\
25b6807bb46c"],

Cell[BoxData[
 RowBox[{"MakeTeX", "[", "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQBGIQbST8QbLz0yvHx2ofZEF0WKjh/JlAmnl6OZiefvy2
XOvXV463Hv8D00nKjdwa3145pi3ZAKZXafOetvrxyvHQVHswnfWT+wOINq52
BdOBorbb9jG+dnRenQ6mY6fzqB8E0t9fmIHpj9cWTN/F/Nqx78QxMN1y28lj
H5CWuFULphv4l6+6DaT/pV0F0zWCHXtA9Bm3TWB6D1dMtrXsa0ddwyVgusOw
deoH+deOx+58AdN71iVlfwTS6z70gGmbeeWXeRReO36o2Aimdz80mMKk9Nox
uD0UTE9zbmFnAdIRRevA9Maud8YgOm+2tAmIdpNp04sB0gvstoHpTQbCkteA
tJOEPZieJ7bC6BGQDtp6G0xvuxHCJKT82lGArRJMv12lGwCiNSvCwHTmox2L
tqm+dsw//g9MAwCmJ8OU
  "],ExpressionUUID->"6d3a60d7-d51b-4c7c-b8df-cc84b55c1ab7"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Input for other codes", "Title",
 Evaluatable->False,
 CellChangeTimes->{{3.686467940463894*^9, 3.686467960453517*^9}, 
   3.686469580779161*^9, {3.6936400185291033`*^9, 3.693640019013015*^9}, {
   3.6990824216357803`*^9, 3.699082443019319*^9}, {3.699085905044036*^9, 
   3.6990859076625643`*^9}, {3.7677704276155*^9, 3.767770463041563*^9}, {
   3.767770516406705*^9, 
   3.767770519100067*^9}},ExpressionUUID->"c3bbfb2e-1602-4a1f-96f6-\
fd50556153e5"],

Cell[CellGroupData[{

Cell["SPheno module", "Subchapter",
 CellChangeTimes->{{3.767770521418839*^9, 
  3.767770529341846*^9}},ExpressionUUID->"2cdd4b8f-583c-4688-bc47-\
8100361d1eca"],

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}},ExpressionUUID->"b1b9876a-3419-4ac2-9ca1-\
1a6aed769725"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Input file for micrOmegas", "Subchapter",
 CellChangeTimes->{{3.767770535038866*^9, 
  3.7677705416248837`*^9}},ExpressionUUID->"53cc221c-3939-402d-9894-\
3eabb043ca05"],

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}},ExpressionUUID->"5e14b82d-b131-4b79-9b00-\
c30a0f0abfcd"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Input UFO files for MadGraph", "Subchapter",
 CellChangeTimes->{{3.767770545640856*^9, 
  3.767770552724971*^9}},ExpressionUUID->"637925fa-d21a-463d-b120-\
d68b10dc2eaf"],

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}},ExpressionUUID->"5f1f58ca-d35e-49a9-bf00-\
0c24c88b28bf"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1384.5, 762.},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
Magnification:>1.5 Inherited,
FrontEndVersion->"13.2 for Linux x86 (64-bit) (November 18, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"588f797e-0ddd-4b78-b776-4a670deec092"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 858, 19, 171, "Input",ExpressionUUID->"c70ef20f-b856-42a4-b6ef-0ef595166851",
 Evaluatable->False],
Cell[1418, 41, 624, 16, 81, "Text",ExpressionUUID->"3e896f20-9fd1-4585-a31c-9f5a6e800107"],
Cell[CellGroupData[{
Cell[2067, 61, 397, 7, 146, "Title",ExpressionUUID->"254bc9f7-32ca-4a0d-8fe9-24721ac237ed",
 Evaluatable->False],
Cell[2467, 70, 929, 13, 45, "Input",ExpressionUUID->"bc41a9ed-3a80-4699-bb0f-829244d9075d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3433, 88, 410, 7, 146, "Title",ExpressionUUID->"495a8b1f-5a4c-4a37-881a-64fc29368c92",
 Evaluatable->False],
Cell[3846, 97, 545, 9, 45, "Input",ExpressionUUID->"160c2e68-9fc7-439b-8111-79ab9189d9cb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4428, 111, 404, 7, 146, "Title",ExpressionUUID->"02d039f7-e3a1-4db7-9f1f-77519752e91c",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[4857, 122, 163, 3, 96, "Subchapter",ExpressionUUID->"ba2c8539-9a88-4cc5-ae73-2af9ada68dbd"],
Cell[5023, 127, 268, 5, 45, "Input",ExpressionUUID->"951b304d-d07c-4831-98ad-5bd5ad600eb2"],
Cell[5294, 134, 191, 4, 45, "Input",ExpressionUUID->"e665c463-833e-40af-b999-dfe4c8d341fa"],
Cell[5488, 140, 517, 15, 45, "Input",ExpressionUUID->"08a7188f-298d-4ede-bfc0-d32a702d1b5c"],
Cell[6008, 157, 294, 7, 45, "Input",ExpressionUUID->"ccb34f65-c8ea-4972-8aa3-74a4b725dcdd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6339, 169, 164, 3, 96, "Subchapter",ExpressionUUID->"9362cd61-aceb-4cba-bc12-19baae9e311c"],
Cell[6506, 174, 198, 4, 45, "Input",ExpressionUUID->"35601191-7ad2-4e5c-82ee-abc2848178e2"],
Cell[6707, 180, 196, 4, 45, "Input",ExpressionUUID->"d7fd56e6-d7a6-4914-9278-03b4bbeeeb7d"],
Cell[6906, 186, 343, 9, 45, "Input",ExpressionUUID->"a480383b-d763-49ab-a68a-3d856c5d79a2"],
Cell[7252, 197, 279, 7, 45, "Input",ExpressionUUID->"845ef194-0bd4-4fc0-810b-8cc36e36f1ec"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7568, 209, 158, 3, 96, "Subchapter",ExpressionUUID->"58f24997-c209-4dbf-91a0-70e0d5445190"],
Cell[7729, 214, 281, 8, 45, "Input",ExpressionUUID->"50f6f4a2-18ac-4deb-95c3-e527a39a8ffa"],
Cell[8013, 224, 360, 9, 45, "Input",ExpressionUUID->"a3701fb0-e884-45d8-935f-9e4d76a4b595"],
Cell[8376, 235, 347, 7, 45, "Input",ExpressionUUID->"5be46984-3c46-4c39-aebc-de0be013d8a6"],
Cell[8726, 244, 246, 6, 45, "Input",ExpressionUUID->"b24f1abb-0ac9-4be8-b06a-6d9f233c077a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9009, 255, 162, 3, 96, "Subchapter",ExpressionUUID->"5ea426eb-9111-4f93-871b-2f549dedf4ab"],
Cell[9174, 260, 195, 4, 45, "Input",ExpressionUUID->"3debc2ca-bb71-4abd-9d92-25b6807bb46c"],
Cell[9372, 266, 601, 11, 45, "Input",ExpressionUUID->"6d3a60d7-d51b-4c7c-b8df-cc84b55c1ab7"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10022, 283, 458, 8, 146, "Title",ExpressionUUID->"c3bbfb2e-1602-4a1f-96f6-fd50556153e5",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[10505, 295, 161, 3, 96, "Subchapter",ExpressionUUID->"2cdd4b8f-583c-4688-bc47-8100361d1eca"],
Cell[10669, 300, 2229, 32, 45, "Input",ExpressionUUID->"b1b9876a-3419-4ac2-9ca1-1a6aed769725"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12935, 337, 175, 3, 96, "Subchapter",ExpressionUUID->"53cc221c-3939-402d-9894-3eabb043ca05"],
Cell[13113, 342, 329, 6, 45, "Input",ExpressionUUID->"5e14b82d-b131-4b79-9b00-c30a0f0abfcd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13479, 353, 176, 3, 96, "Subchapter",ExpressionUUID->"637925fa-d21a-463d-b120-d68b10dc2eaf"],
Cell[13658, 358, 326, 6, 45, "Input",ExpressionUUID->"5f1f58ca-d35e-49a9-bf00-0c24c88b28bf"]
}, Open  ]]
}, Open  ]]
}
]
*)