1. Acceptances.nb

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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    401628,       9510]
NotebookOptionsPosition[    375806,       9041]
NotebookOutlinePosition[    387531,       9230]
CellTagsIndexPosition[    387349,       9222]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Just launch the code below to run the notebook (shift+enter)", "Title",
 CellChangeTimes->{{3.8934376452895875`*^9, 
  3.8934376644509068`*^9}},ExpressionUUID->"be5b0a69-a859-4e14-9302-\
15ea02706e41"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nb", "=", 
   RowBox[{"EvaluationNotebook", "[", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"NotebookFind", "[", 
   RowBox[{"nb", ",", "\"\<Evaluation\>\"", ",", "All", ",", "CellTags"}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"SelectionEvaluate", "[", "nb", "]"}]}], "Input",
 CellChangeTimes->{{3.893437585709897*^9, 3.8934375895369635`*^9}, {
   3.8934376329497385`*^9, 3.893437658846809*^9}, {3.8936903789422555`*^9, 
   3.8936903792002773`*^9}, {3.8938170802646403`*^9, 
   3.8938170903183107`*^9}, {3.894125105994251*^9, 3.89412510682006*^9}, {
   3.898930628032953*^9, 3.8989306286242886`*^9}, 3.933919069817795*^9, {
   3.93391935787101*^9, 3.933919357901926*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"91675345-8e36-4745-9302-f9529663728a"]
}, Closed]],

Cell[CellGroupData[{

Cell["Definitions", "Title",
 CellChangeTimes->{{3.8850097993899145`*^9, 3.8850098013435984`*^9}, {
   3.8850119060647106`*^9, 3.8850119106997366`*^9}, {3.8877814539576287`*^9, 
   3.8877814542613525`*^9}, 3.915259340980749*^9, {3.9347867349348936`*^9, 
   3.9347867358300705`*^9}},
 CellTags->
  "Evaluation",ExpressionUUID->"f0d20480-5665-403d-a88a-e38db6e4fff2"],

Cell[CellGroupData[{

Cell["Critical definitions required to launch this notebook", "Chapter",
 CellChangeTimes->{{3.893817051441402*^9, 3.893817059390691*^9}},
 CellTags->
  "Evaluation",ExpressionUUID->"92ecf04f-6598-4c98-90eb-63f4447733f5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetAttributes", "[", 
   RowBox[{"ruleDown", ",", "HoldAll"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ruleDown", "[", "list_", "]"}], ":=", 
  RowBox[{"Flatten", "[", 
   RowBox[{"DownValues", "/@", 
    RowBox[{"(", 
     RowBox[{"Unevaluated", "@", "list"}], ")"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetAttributes", "[", 
   RowBox[{"ruleOwn", ",", "HoldAll"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ruleOwn", "[", "list_", "]"}], ":=", 
  RowBox[{"Flatten", "[", 
   RowBox[{"OwnValues", "/@", 
    RowBox[{"(", 
     RowBox[{"Unevaluated", "@", "list"}], ")"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dropdownDialog", "[", 
   RowBox[{"list_", ",", "phrase_"}], "]"}], ":=", 
  RowBox[{"DialogInput", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"choice", "=", "\"\<\>\""}], "}"}], ",", 
    RowBox[{"Column", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"TextCell", "[", "phrase", "]"}], ",", 
       RowBox[{"PopupMenu", "[", 
        RowBox[{
         RowBox[{"Dynamic", "[", "choice", "]"}], ",", "list"}], "]"}], ",", 
       RowBox[{"Button", "[", 
        RowBox[{"\"\<OK\>\"", ",", 
         RowBox[{"DialogReturn", "[", "choice", "]"}]}], "]"}]}], "}"}], 
     "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"choicesDialog", "[", 
   RowBox[{"LLP_", ",", "spec_List"}], "]"}], ":=", 
  RowBox[{"DialogInput", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"choice", "=", 
      RowBox[{"spec", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"Column", "[", 
     RowBox[{"Flatten", "@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", "LLP", "}"}], ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"With", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"i", "=", "i"}], "}"}], ",", 
            RowBox[{"Column", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"TextCell", "[", 
                RowBox[{"spec", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], ",", 
               RowBox[{"PopupMenu", "[", 
                RowBox[{
                 RowBox[{"Dynamic", "[", 
                  RowBox[{"choice", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
                 RowBox[{"spec", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", 
                    RowBox[{"-", "1"}]}], "]"}], "]"}]}], "]"}]}], "}"}], 
             "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Length", "@", "spec"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Button", "[", 
         RowBox[{"\"\<OK\>\"", ",", 
          RowBox[{"DialogReturn", "[", "choice", "]"}]}], "]"}]}], "}"}]}], 
     "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"selectionDialog", "[", 
   RowBox[{"list_", ",", "phrase_"}], "]"}], ":=", 
  RowBox[{"DialogInput", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"choice", "=", 
      RowBox[{"{", "}"}]}], "}"}], ",", 
    RowBox[{"Column", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Row", "[", 
        RowBox[{"{", "phrase", "}"}], "]"}], ",", 
       RowBox[{"Pane", "[", 
        RowBox[{
         RowBox[{"TogglerBar", "[", 
          RowBox[{
           RowBox[{"Dynamic", "[", "choice", "]"}], ",", "list", ",", 
           RowBox[{"Appearance", "->", 
            RowBox[{"\"\<Vertical\>\"", "->", 
             RowBox[{"{", 
              RowBox[{"Automatic", ",", "5"}], "}"}]}]}]}], "]"}], ",", 
         RowBox[{"ImageSize", "->", 
          RowBox[{"{", 
           RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], ",", 
         RowBox[{"Scrollbars", "->", 
          RowBox[{"{", 
           RowBox[{"False", ",", "True"}], "}"}]}]}], "]"}], ",", 
       RowBox[{"Button", "[", 
        RowBox[{"\"\<OK\>\"", ",", 
         RowBox[{"DialogReturn", "[", "choice", "]"}]}], "]"}]}], "}"}], 
     "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"infoDialog", "[", "phrase_", "]"}], ":=", 
  RowBox[{"DialogInput", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"choice", "=", "\"\<\>\""}], "}"}], ",", 
    RowBox[{"Column", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"TextCell", "[", "phrase", "]"}], ",", 
       RowBox[{"Button", "[", 
        RowBox[{"\"\<Proceed\>\"", ",", 
         RowBox[{"DialogReturn", "[", "choice", "]"}]}], "]"}]}], "}"}], 
     "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"SetOptions", "[", 
  RowBox[{"$FrontEnd", ",", 
   RowBox[{"\"\<DynamicEvaluationTimeout\>\"", "\[Rule]", "300"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"SetSystemOptions", "[", 
  RowBox[{"\"\<SimplificationOptions\>\"", "->", 
   RowBox[{"\"\<AutosimplifyTrigs\>\"", "->", "False"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "FeynCalc`"}]}], "Input",
 CellChangeTimes->{{3.893817065391258*^9, 3.893817082937214*^9}, {
   3.89409198990086*^9, 3.894091990576394*^9}, {3.8967773747044973`*^9, 
   3.8967773782376595`*^9}, {3.9053585308615303`*^9, 
   3.9053585311068344`*^9}, {3.9121597861087885`*^9, 3.912159786487363*^9}, 
   3.9121607306423364`*^9, {3.914093028609653*^9, 3.9140930341165714`*^9}, {
   3.914516499625929*^9, 3.914516499774582*^9}, {3.915437184528389*^9, 
   3.915437189756962*^9}, {3.9339199462333546`*^9, 3.933919948305519*^9}, {
   3.9339231781699295`*^9, 3.933923178542612*^9}},
 CellTags->"Evaluation",
 CellLabel->"In[5]:=",ExpressionUUID->"a1578c42-2de5-4ca8-9dba-fe18521b9ae6"]
}, Closed]],

Cell[CellGroupData[{

Cell["Properties of SM particles", "Chapter",
 CellChangeTimes->{{3.933920094382326*^9, 3.933920097905178*^9}},
 CellTags->
  "Evaluation",ExpressionUUID->"68db0e70-7200-3c44-9b10-7a1d383990bc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Properties", " ", "of", " ", "SM", " ", "particles"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Quiet", "[", 
     RowBox[{"NotebookEvaluate", "[", 
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"NotebookDirectory", "[", "]"}], ",", 
         "\"\<codes/SensCalc/SM particles.nb\>\""}], "}"}], "]"}], "]"}], 
     "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
   "Print", "[", "\"\<Full information about decay products:\>\"", "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", "\"\<Product\>\"", "}"}], ",", 
        RowBox[{"{", "\"\<PDG ID\>\"", "}"}], ",", 
        RowBox[{"{", "\"\<Stability\>\"", "}"}], ",", 
        RowBox[{"{", "\"\<Mass\>\"", "}"}], ",", 
        RowBox[{"{", "\"\<Electric charge\>\"", "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"ListSMparticlesSymbols", ",", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"ParamProductToPDGid", "[", "#", "]"}], "&"}], "/@", 
          "ListSMparticlesSymbols"}], "//", "IntegerPart"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"ParamProductStability", "[", "#", "]"}], "&"}], "/@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"ParamProductToPDGid", "[", "#", "]"}], "&"}], "/@", 
           "ListSMparticlesSymbols"}], ")"}]}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"ParamProductMass", "[", "#", "]"}], "&"}], "/@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"ParamProductToPDGid", "[", "#", "]"}], "&"}], "/@", 
           "ListSMparticlesSymbols"}], ")"}]}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"ParamProductCharge", "[", "#", "]"}], "&"}], "/@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"ParamProductToPDGid", "[", "#", "]"}], "&"}], "/@", 
           "ListSMparticlesSymbols"}], ")"}]}]}], "}"}], ",", "2"}], "]"}], "//",
     "TableForm"}], "\[IndentingNewLine]", 
   RowBox[{
   "Print", "[", "\"\<List of recognizable decay products:\>\"", "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Keys", "[", 
     RowBox[{"DownValues", "@", "ParamProductToPDGid"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1", ",", "1"}], "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
   "Print", "[", "\"\<List of PDG ids that may be detected:\>\"", "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"detectablepdgs", "=", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1.", ",", 
        RowBox[{"-", "1."}], ",", "2.", ",", 
        RowBox[{"-", "2."}], ",", "3.", ",", 
        RowBox[{"-", "3."}], ",", "4.", ",", 
        RowBox[{"-", "4."}], ",", "5.", ",", 
        RowBox[{"-", "5."}], ",", "21.", ",", 
        RowBox[{"-", "21."}], ",", "22.", ",", "11.", ",", 
        RowBox[{"-", "11."}], ",", "13.", ",", 
        RowBox[{"-", "13."}], ",", "211.", ",", 
        RowBox[{"-", "211."}], ",", "130.", ",", "321.", ",", 
        RowBox[{"-", "321."}], ",", "2112.", ",", 
        RowBox[{"-", "2112."}], ",", "2212.", ",", 
        RowBox[{"-", "2212."}]}], "}"}], "//", "Sort"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"detectablepdgs", "//", "IntegerPart"}]}]}]], "Input",
 CellTags->"Evaluation",
 CellLabel->"In[16]:=",ExpressionUUID->"c697f538-781c-e84b-84e1-406b17117d9f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Importing experiments", "Chapter",
 CellChangeTimes->{{3.933920094382326*^9, 3.933920107022478*^9}},
 CellTags->
  "Evaluation",ExpressionUUID->"d88269ba-b141-6e49-9f83-3e2b1fa6c22a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Geometry", " ", "of", " ", "different", " ", "experiments", " ", "and", 
     " ", "cross"}], "-", "sections"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Quiet", "[", 
    RowBox[{"NotebookEvaluate", "[", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"NotebookDirectory", "[", "]"}], ",", 
        "\"\<codes/experiments.nb\>\""}], "}"}], "]"}], "]"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
   "Print", "[", "\"\<List of experiments with implemented geometry:\>\"", 
    "]"}], "\[IndentingNewLine]", 
   RowBox[{"experimentlist", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", "i", "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"Length", "[", "experimentlist", "]"}], ",", "1"}], "}"}]}],
        "]"}], ",", 
      RowBox[{
       RowBox[{"{", "experimentlist", "}"}], "//", "Transpose"}], ",", "2"}], 
     "]"}], "//", "TableForm"}]}]}]], "Input",
 CellChangeTimes->{{3.9356367988860455`*^9, 3.9356367990849495`*^9}},
 CellTags->
  "Evaluation",ExpressionUUID->"f536aab8-8eee-bd42-97e7-3bd199154326"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Choosing the experiments", "Title",
 CellChangeTimes->{{3.9339199870791492`*^9, 3.9339199880674686`*^9}, 
   3.9339234830572643`*^9},ExpressionUUID->"913455a8-f5be-b54d-ac22-\
98f69dbcb83b"],

Cell[CellGroupData[{

Cell["Selecting the experiments", "Chapter",
 CellChangeTimes->{{3.914299659108392*^9, 3.914299663214764*^9}, 
   3.933923040510771*^9, {3.933923481874584*^9, 3.933923486800007*^9}},
 CellTags->{
  "Evaluation", 
   "Re-evaluation"},ExpressionUUID->"67cb32f9-d6bb-4863-a1b8-1fd6e984778c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SetDirectory", "[", 
    RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", "\"\<Selected experiment:\>\"", "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"DynamicModule", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"choice", "=", "None"}], ",", "options", ",", "rows", ",", 
        "cols", ",", "gridButtons", ",", "maxWidth", ",", "paneHeight"}], 
       "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"options", "=", "experimentlist"}], ";", "\[IndentingNewLine]", 
       RowBox[{"cols", "=", "3"}], ";", 
       RowBox[{"(*", 
        RowBox[{
        "Number", " ", "of", " ", "columns", " ", "in", " ", "the", " ", 
         "grid"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"rows", "=", 
        RowBox[{"Ceiling", "[", 
         RowBox[{
          RowBox[{"Length", "[", "options", "]"}], "/", "cols"}], "]"}]}], 
       ";", 
       RowBox[{"(*", 
        RowBox[{"Number", " ", "of", " ", "rows"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"gridButtons", "=", 
        RowBox[{"Partition", "[", 
         RowBox[{
          RowBox[{"PadRight", "[", 
           RowBox[{"options", ",", 
            RowBox[{"rows", "*", "cols"}], ",", "\"\<\>\""}], "]"}], ",", 
          "cols"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
        "Estimate", " ", "the", " ", "width", " ", "of", " ", "the", " ", 
         "widest", " ", "button"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"maxWidth", "=", 
        RowBox[{
         RowBox[{"Max", "[", 
          RowBox[{"StringLength", "/@", 
           RowBox[{"ToString", "/@", "options"}]}], "]"}], "*", "5"}]}], ";", 
       RowBox[{"(*", 
        RowBox[{"Adjust", " ", "multiplier", " ", "as", " ", "needed"}], 
        "*)"}], "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
        "Set", " ", "the", " ", "height", " ", "of", " ", "the", " ", 
         "pane"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"paneHeight", "=", "300"}], ";", 
       RowBox[{"(*", 
        RowBox[{
        "Adjust", " ", "this", " ", "value", " ", "based", " ", "on", " ", 
         "desired", " ", "height"}], "*)"}], 
       RowBox[{"GivenExperiment", "=", 
        RowBox[{"DialogInput", "[", 
         RowBox[{"Column", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"TextCell", "[", "\"\<Choose the experiment:\>\"", "]"}], 
            ",", 
            RowBox[{"Pane", "[", 
             RowBox[{
              RowBox[{"Dynamic", "@", 
               RowBox[{"Grid", "[", 
                RowBox[{
                 RowBox[{"Table", "[", 
                  RowBox[{
                   RowBox[{"With", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"opt", "=", 
                    RowBox[{"gridButtons", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "}"}], ",", 
                    RowBox[{"Button", "[", 
                    RowBox[{"opt", ",", 
                    RowBox[{"choice", "=", "opt"}], ",", 
                    RowBox[{"Background", "->", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"choice", "===", "opt"}], ",", "LightBlue", ",", 
                    "None"}], "]"}]}], ",", 
                    RowBox[{"ImageSize", "->", 
                    RowBox[{"{", 
                    RowBox[{"maxWidth", ",", "Automatic"}], "}"}]}]}], " ", 
                    RowBox[{"(*", 
                    RowBox[{"Set", " ", "width", " ", "to", " ", "maxWidth"}],
                     "*)"}], "]"}]}], "]"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"i", ",", "rows"}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"j", ",", "cols"}], "}"}]}], "]"}], ",", 
                 RowBox[{"Spacings", "->", 
                  RowBox[{"{", 
                   RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"Automatic", ",", "paneHeight"}], "}"}], ",", 
              RowBox[{"Scrollbars", "->", 
               RowBox[{"{", 
                RowBox[{"False", ",", "True"}], "}"}]}]}], "]"}], ",", 
            RowBox[{"Button", "[", 
             RowBox[{"\"\<OK\>\"", ",", 
              RowBox[{"DialogReturn", "[", "choice", "]"}], ",", 
              RowBox[{"ImageSize", "->", "Automatic"}]}], "]"}]}], "}"}], 
          "]"}], "]"}]}]}]}], "]"}], "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"MemberQ", "[", 
        RowBox[{"explistanub", ",", "GivenExperiment"}], "]"}], "==", 
       "True"}], ",", "\[IndentingNewLine]", 
      RowBox[{
      "infoDialog", "[", 
       "\"\<One of the decay volumes of ANUBIS-shaft has been selected. The \
full sensitivity requires calculating the acceptances for all the three \
volumes. You need to generate them afterwards\>\"", "]"}]}], "]"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<Selected experiments:\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"SelectedExperimentList", "=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "experimentlist", "]"}], "\[NotEqual]", "0"}], 
    ",", 
    RowBox[{"selectionDialog", "[", 
     RowBox[{"experimentlist", ",", "\"\<Select the experiments:\>\""}], 
     "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"icounter", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"experimentBoundaries", "[", "exp", "]"}], "=", 
    RowBox[{"\[Theta]minmaxBlock", "[", "exp", "]"}]}], "\[IndentingNewLine]",
    ",", 
   RowBox[{"{", 
    RowBox[{"exp", ",", "SelectedExperimentList"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.9142996722070417`*^9, 3.9142996802090025`*^9}, {
   3.914299821887004*^9, 3.9142998445561137`*^9}, {3.914299914469434*^9, 
   3.9142999257295876`*^9}, {3.9143008876234674`*^9, 3.914300947079194*^9}, {
   3.9143010779357724`*^9, 3.9143011055910645`*^9}, {3.9143011677910223`*^9, 
   3.914301177115894*^9}, 3.9143052778292713`*^9, 3.9143053507900925`*^9, {
   3.9143053835331974`*^9, 3.9143053838364544`*^9}, {3.9145164912127934`*^9, 
   3.914516491852248*^9}, {3.914561699031823*^9, 3.914561704007346*^9}, 
   3.9147472794337635`*^9, 3.914747404262658*^9, {3.91474877159616*^9, 
   3.914748776235855*^9}, {3.933906726968807*^9, 3.933906742146145*^9}, {
   3.933906801639429*^9, 3.933906805241396*^9}, {3.9339180589520187`*^9, 
   3.9339180601632633`*^9}, 3.933920032138485*^9, {3.933923095520281*^9, 
   3.933923112817236*^9}, 3.933923201605137*^9, {3.933923287133621*^9, 
   3.9339233152869987`*^9}},
 CellTags->{"Evaluation", "Re-evaluation"},
 CellLabel->"In[28]:=",ExpressionUUID->"13990e39-f852-4c8d-b5ff-fd4b4bc0b794"]
}, Closed]],

Cell[CellGroupData[{

Cell["Importing LLP decay data", "Chapter",
 CellChangeTimes->{{3.9355081395983562`*^9, 3.935508142662566*^9}},
 CellTags->
  "Evaluation",ExpressionUUID->"37f1ef16-5d41-4c55-a5ad-ab15c8e3f116"],

Cell[BoxData[{
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Print", "=", "Identity"}], "}"}], ",", 
   RowBox[{"Quiet", "[", 
    RowBox[{"NotebookEvaluate", "[", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"NotebookDirectory", "[", "]"}], ",", 
        "\"\<codes/llp-decays.nb\>\""}], "}"}], "]"}], "]"}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<List of implemented LLPs:\>\"", 
  "]"}], "\[IndentingNewLine]", "LLPlist"}], "Input",
 CellChangeTimes->{{3.915255767580451*^9, 3.9152557854309206`*^9}, 
   3.916156596892898*^9, {3.9161574475985355`*^9, 3.916157450970195*^9}, {
   3.9339201669363422`*^9, 3.933920171943617*^9}, {3.9339205458445187`*^9, 
   3.933920547573763*^9}, 3.93563153284013*^9},
 CellTags->"Evaluation",
 CellLabel->"In[33]:=",ExpressionUUID->"3abbb0b6-0c7e-4736-a509-0b5fb51d5700"]
}, Closed]],

Cell[CellGroupData[{

Cell["Launching iterations over selected experiments", "Chapter",
 CellChangeTimes->{{3.9339234978131447`*^9, 3.9339235098628807`*^9}},
 CellTags->
  "Evaluation",ExpressionUUID->"fa941f2d-baf5-384d-94cb-38b4e2ca6969"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"BlockEvaluation", "[", "tag_", "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"nb", "=", 
       RowBox[{"EvaluationNotebook", "[", "]"}]}], ";", "\n", 
      RowBox[{"NotebookFind", "[", 
       RowBox[{"nb", ",", "tag", ",", "All", ",", "CellTags"}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"SelectionEvaluate", "[", "nb", "]"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"BlockEvaluation", "[", "\"\<Acceptance-computation\>\"", "]"}], 
    ";"}], "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{"icounter", ",", "1", ",", 
     RowBox[{"Length", "[", "SelectedExperimentList", "]"}], ",", "1"}], 
    "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.933923382799778*^9, 3.933923382832348*^9}, {
  3.9339234741311893`*^9, 3.933923475340769*^9}},
 CellTags->"Evaluation",
 CellLabel->"In[36]:=",ExpressionUUID->"c88cc3ed-e15f-e44e-8320-ebafc5b4c9ca"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Given experiment (do not launch it manually)", "Title",
 CellChangeTimes->{{3.9339235252360535`*^9, 3.933923539070381*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"081c4f71-8748-cb42-86f3-\
fd03fce3c053"],

Cell[CellGroupData[{

Cell["Setting geometry and cuts parameters", "Chapter",
 CellChangeTimes->{
  3.933923564824335*^9, {3.935629714484085*^9, 3.935629717144348*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"6c5eb7ec-54f2-6648-b4fc-\
1fe284926718"],

Cell[BoxData[{
 RowBox[{"GivenExperiment", "=", 
  RowBox[{"SelectedExperimentList", "[", 
   RowBox[{"[", 
    RowBox[{"icounter", "++"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FacilityGivenExperiment", "=", 
   RowBox[{"FacilityExperiment", "[", "GivenExperiment", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EmaxGivenExperiment", "=", 
   RowBox[{"EmaxFacility", "[", "FacilityGivenExperiment", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ECALoptionGivenExperiment", "=", 
   RowBox[{"ECALoptionExperiment", "[", "GivenExperiment", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DipoleMagnetOptionGivenExperiment", "=", 
    RowBox[{"DipoleMagnetOptionExperiment", "[", "GivenExperiment", "]"}]}], 
   ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Decay", " ", "volume", " ", "as", " ", 
     RowBox[{"detector", ":", " ", "True"}]}], ",", " ", "False"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DecayVolumeAsDetectorGivenExperiment", "=", 
    RowBox[{
    "DecayVolumeAsDetectorExperiment", "[", "GivenExperiment", "]"}]}], ";"}],
   "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Default", " ", "list", " ", "of", " ", "detectable", " ", "decay", " ", 
    "products", " ", "at", " ", "the", " ", "given", " ", "experiment"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DetectablePDGsGivenExperiment", "=", 
    RowBox[{
     RowBox[{"DetectablePDGsExperiment", "[", "GivenExperiment", "]"}], "//", 
     "Sort"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "___", "___", "___", "___", "___", "___", "___", "___", "___", "___", 
    "___", "___", "___", "___", "___", "___", "___", "___", "___", "__"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Box", ",", " ", "Cylinder", ",", " ", 
    RowBox[{"Annular", " ", "cylinder"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"GeometryGivenExperiment", "=", 
    RowBox[{"GeometryExperiment", "[", "GivenExperiment", "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Beam", ",", " ", "Transverse"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DetectorPlaneOrientationGivenExperiment", "=", 
    RowBox[{
    "DetectorPlaneOrientationExperiment", "[", "GivenExperiment", "]"}]}], 
   ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Decay", " ", "volume", " ", "parameters"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"xToDecayVolumeCenterGivenExperiment", "[", "z_", "]"}], "=", 
   RowBox[{"xToDecayVolumeCenterExperiment", "[", 
    RowBox[{"z", ",", "GivenExperiment"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"yToDecayVolumeCenterGivenExperiment", "[", "z_", "]"}], "=", 
   RowBox[{"yToDecayVolumeCenterExperiment", "[", 
    RowBox[{"z", ",", "GivenExperiment"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dxDecayVolumeGivenExperiment", "[", "z_", "]"}], "=", 
   RowBox[{"dxDecayVolumeExperiment", "[", 
    RowBox[{"z", ",", "GivenExperiment"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dyDecayVolumeGivenExperiment", "[", "z_", "]"}], "=", 
   RowBox[{"dyDecayVolumeExperiment", "[", 
    RowBox[{"z", ",", "GivenExperiment"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"zToDecayVolumeGivenExperiment", "=", 
   RowBox[{"zToDecayVolumeExperiment", "[", "GivenExperiment", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dzFidGivenExperiment", "=", 
   RowBox[{"dzDecayVolumeExperiment", "[", "GivenExperiment", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"zMaxDecayVolumeGivenExperiment", "=", 
   RowBox[{"zMaxDecayVolumeExperiment", "[", "GivenExperiment", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xLongMaxDetectorGivenExperiment", "=", 
   RowBox[{"xLongMaxDetectorExperiment", "[", "GivenExperiment", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dxDecayVolumeGivenExperimentMax", "=", 
   RowBox[{
   "dxDecayVolumeGivenExperiment", "[", "zMaxDecayVolumeGivenExperiment", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dyDecayVolumeGivenExperimentMax", "=", 
   RowBox[{
   "dyDecayVolumeGivenExperiment", "[", "zMaxDecayVolumeGivenExperiment", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RinnerDecayVolumeGivenExperiment", "[", "z_", "]"}], "=", 
   RowBox[{"RinnerDecayVolumeExperiment", "[", 
    RowBox[{"GivenExperiment", ",", "z"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RouterDecayVolumeGivenExperiment", "[", "z_", "]"}], "=", 
   RowBox[{"RouterDecayVolumeExperiment", "[", 
    RowBox[{"GivenExperiment", ",", "z"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DecayVolumeGeometryGivenExperiment", "=", 
    RowBox[{"DecayVolumeGeometry", "[", "GivenExperiment", "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Detector", " ", "parameters"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dxDetectorGivenExperiment", "[", "z_", "]"}], "=", 
   RowBox[{"dxDetectorExperiment", "[", 
    RowBox[{"GivenExperiment", ",", "z"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dyDetectorGivenExperiment", "[", "z_", "]"}], "=", 
   RowBox[{"dyDetectorExperiment", "[", 
    RowBox[{"GivenExperiment", ",", "z"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dzDetectorGivenExperiment", "=", 
   RowBox[{"dzDetectorExperiment", "[", "GivenExperiment", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dx2PerpDetectorGivenExperiment", "[", "z_", "]"}], "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
     "DetectorPlaneOrientationGivenExperiment", "\[Equal]", 
      "\"\<Transverse\>\""}], ",", 
     RowBox[{"dyDetectorGivenExperiment", "[", "z", "]"}], ",", 
     "dzDetectorGivenExperiment"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "xToDetectorCenterGivenExperiment", ",", 
     "yToDetectorCenterGivenExperiment", ",", 
     "zToDetectorCenterGivenExperiment"}], "}"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Symbol", "[", 
         RowBox[{"#", "<>", "\"\<ToDetectorCenterExperiment\>\""}], "]"}], 
        "[", "GivenExperiment", "]"}], "//", "N"}], ")"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"\"\<x\>\"", ",", "\"\<y\>\"", ",", "\"\<z\>\""}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x2PerpToDetectorCenterGivenExperiment", "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
     "DetectorPlaneOrientationGivenExperiment", "\[Equal]", 
      "\"\<Transverse\>\""}], ",", "yToDetectorCenterGivenExperiment", ",", 
     "zToDetectorCenterGivenExperiment"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"RinnerDetectorGivenExperiment", "[", "z_", "]"}], ",", 
      RowBox[{"RouterDetectorGivenExperiment", "[", "z_", "]"}]}], "}"}], "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"RinnerDetectorExperiment", "[", 
       RowBox[{"GivenExperiment", ",", "z"}], "]"}], ",", 
      RowBox[{"RouterDetectorExperiment", "[", 
       RowBox[{"GivenExperiment", ",", "z"}], "]"}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "___", "___", "___", "___", "___", "___", "___", "___", "___", "___", 
    "___", "___", "___", "___", "___", "___", "___", "_"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Given", " ", "experiment", " ", "boundaries"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "___", "___", "___", "___", "___", "___", "___", "___", "___", "___", 
    "___", "___", "___", "___", "___", "___", "___", "_"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"GivenExperimentBoundaries", "=", 
    RowBox[{"experimentBoundaries", "[", "GivenExperiment", "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"Min", "/", "max"}], " ", "polar", " ", "angles", " ", "of", " ",
      "the", " ", "decay", " ", "volume", " ", "and", " ", "detector"}], ",", 
    " ", 
    RowBox[{"and", " ", "the", " ", "corresponding", " ", "points"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "ThetaDecVolGivenExperimentMin", ",", "ThetaDecVolGivenExperimentMax"}], 
    "}"}], "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"GivenExperimentBoundaries", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"GivenExperimentBoundaries", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "//", "N"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"R\[Theta]minDecayVolume", ",", "R\[Theta]maxDecayVolume"}], 
    "}"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"GivenExperimentBoundaries", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"GivenExperimentBoundaries", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"DecayVolumeAsDetectorGivenExperiment", "==", "\"\<False\>\""}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "ThetaDetGivenExperimentMin", ",", "ThetaDetGivenExperimentMax"}], 
       "}"}], "=", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"GivenExperimentBoundaries", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"GivenExperimentBoundaries", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "//", "N"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"R\[Theta]minEndDetector", ",", "R\[Theta]maxEndDetector"}], 
       "}"}], "=", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"GivenExperimentBoundaries", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"GivenExperimentBoundaries", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "//", "N"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"DetectorGeometryGivenExperiment", "=", 
      RowBox[{"DetectorGeometry", "[", "GivenExperiment", "]"}]}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "ThetaDetGivenExperimentMin", ",", "ThetaDetGivenExperimentMax"}], 
      "}"}], "=", 
     RowBox[{"{", 
      RowBox[{
      "ThetaDecVolGivenExperimentMin", ",", "ThetaDecVolGivenExperimentMax"}],
       "}"}]}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"FinalPlaneGivenExperiment", "=", 
    RowBox[{"PlaneEndOfDetectorExperiment", "[", "GivenExperiment", "]"}]}], 
   ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Parameters", " ", "of", " ", "the", " ", "dipole", " ", "magnet", " ", 
    "in", " ", "the", " ", "spectrometer", " ", 
    RowBox[{"(", 
     RowBox[{"if", " ", "present"}], ")"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"zMagnetMinGivenExperiment", "=", 
   RowBox[{"zMagnetMinExperiment", "[", "GivenExperiment", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"zMagnetMaxGivenExperiment", "=", 
   RowBox[{"zMagnetMaxExperiment", "[", "GivenExperiment", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Bval", "=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"DipoleMagnetOptionGivenExperiment", "==", "\"\<False\>\""}], 
      ",", "0", ",", 
      RowBox[{"MagneticFieldExperiment", "[", "GivenExperiment", "]"}]}], 
     "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"ECAL", " ", "position"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ECALpositionGivenExperiment", "=", 
    RowBox[{"zECALminExperiment", "[", "GivenExperiment", "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"FinalPlaneGivenExperiment", "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
       "finalPlaneGivenExperiment", "\[Equal]", "\"\<EndOfDetector\>\""}], 
       ",", "EndOfDetectorGivenExperiment", ",", 
       "PlaneDetectorGivenExperiment"}], "]"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TableParticlesNumbersGivenExperiment", "=", 
   RowBox[{"TableNumbersParticlesExperiment", "[", "GivenExperiment", "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xLongMuonPlaneGivenExperiment", "=", 
   RowBox[{"xLongMuonPlaneExperiment", "[", "GivenExperiment", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"xLongNonMuonPlaneGivenExperiment", "=", 
    RowBox[{"xLongNonMuonPlaneExperiment", "[", "GivenExperiment", "]"}]}], 
   ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Geometric", " ", "conditions"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"IfLLPinsideDecVol", "[", 
    RowBox[{"zLLP_", ",", "xLLP_", ",", "yLLP_"}], "]"}], "=", 
   RowBox[{"IfLLPinsideDecVol", "[", 
    RowBox[{"zLLP", ",", "xLLP", ",", "yLLP", ",", "GivenExperiment"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"IfLLPtoDet", "[", 
      RowBox[{"x1LLPproj_", ",", "x2LLPproj_", ",", "xLongProj_"}], "]"}], 
     ",", 
     RowBox[{"IfLLPnotToDet", "[", 
      RowBox[{"x1LLPproj_", ",", "x2LLPproj_", ",", "xLongProj_"}], "]"}]}], 
    "}"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"IfLLPtoDet", "[", 
      RowBox[{
      "x1LLPproj", ",", "x2LLPproj", ",", "xLongProj", ",", 
       "GivenExperiment"}], "]"}], ",", 
     RowBox[{"IfLLPnotToDet", "[", 
      RowBox[{
      "x1LLPproj", ",", "x2LLPproj", ",", "xLongProj", ",", 
       "GivenExperiment"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"IfLLPdecVolToDet", "[", 
    RowBox[{
    "zLLP_", ",", "xLLP_", ",", "yLLP_", ",", "x1LLPproj_", ",", "x2LLPproj_",
      ",", "xLongProj_"}], "]"}], "=", 
   RowBox[{"IfLLPdecVolToDet", "[", 
    RowBox[{
    "zLLP", ",", "xLLP", ",", "yLLP", ",", "x1LLPproj", ",", "x2LLPproj", ",",
      "xLongProj", ",", "GivenExperiment"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"IfLLPdecVolNotToDet", "[", 
    RowBox[{
    "zLLP_", ",", "xLLP_", ",", "yLLP_", ",", "x1LLPproj_", ",", "x2LLPproj_",
      ",", "xLongProj_"}], "]"}], "=", 
   RowBox[{"IfLLPdecVolNotToDet", "[", 
    RowBox[{
    "zLLP", ",", "xLLP", ",", "yLLP", ",", "x1LLPproj", ",", "x2LLPproj", ",",
      "xLongProj", ",", "GivenExperiment"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DecayAcceptanceGeometry", "[", 
    RowBox[{"x1LLPproj_", ",", "x2LLPproj_", ",", "xLongProj_"}], "]"}], "=", 
   RowBox[{"IfLLPtoDet", "[", 
    RowBox[{"x1LLPproj", ",", "x2LLPproj", ",", "xLongProj"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.914299928346092*^9, 3.9142999293612337`*^9}, {
  3.914305379873312*^9, 3.9143053803149853`*^9}, {3.915437187295141*^9, 
  3.915437187448595*^9}, {3.9161302044952383`*^9, 3.91613020561898*^9}, {
  3.933906415822483*^9, 3.9339064224704094`*^9}, {3.9339064676801815`*^9, 
  3.9339064751205463`*^9}, {3.933923593909712*^9, 3.93392362265716*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->"In[38]:=",ExpressionUUID->"6945de8c-d1bc-4261-8784-a35d73653231"]
}, Closed]],

Cell[CellGroupData[{

Cell["Specifying cuts on the decay products", "Chapter",
 CellChangeTimes->{{3.877157217895995*^9, 3.877157230401365*^9}, {
  3.8850103814195557`*^9, 3.8850103821591024`*^9}, {3.89343655755689*^9, 
  3.893436569027972*^9}, {3.9142998030668216`*^9, 3.9142998104400644`*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"6542b8fd-6447-40c5-a489-\
c8544719ee88"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"dropdownDialog", "[", 
    RowBox[{"list_", ",", "phrase_"}], "]"}], ":=", 
   RowBox[{"DialogInput", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"choice", "=", "\"\<\>\""}], "}"}], ",", 
     RowBox[{"Column", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"TextCell", "[", "phrase", "]"}], ",", 
        RowBox[{"PopupMenu", "[", 
         RowBox[{
          RowBox[{"Dynamic", "[", "choice", "]"}], ",", "list"}], "]"}], ",", 
        RowBox[{"Button", "[", 
         RowBox[{"\"\<OK\>\"", ",", 
          RowBox[{"DialogReturn", "[", "choice", "]"}]}], "]"}]}], "}"}], 
      "]"}]}], "]"}]}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"filenameGivenExperiment", "=", 
     RowBox[{"filenameExperiment", "[", 
      RowBox[{"finalPlaneGivenExperiment", ",", "GivenExperiment"}], "]"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{"filenameGivenExperimentzN", "=", 
     RowBox[{"filenameExperimentzN", "[", 
      RowBox[{"finalPlaneGivenExperiment", ",", "GivenExperiment"}], 
      "]"}]}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<Experiment\>\"", ",", "\"\<Facility\>\"", ",", 
       "\"\<Decay volume as detector\>\"", ",", "\"\<If ECAL is present\>\"", 
       ",", "\"\<If dipole magnet is present\>\"", ",", 
       "\"\<\!\(\*SubscriptBox[\(E\), \(LLP, max\)]\)\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "GivenExperiment", ",", "FacilityGivenExperiment", ",", 
       "DecayVolumeAsDetectorGivenExperiment", ",", 
       "ECALoptionGivenExperiment", ",", "DipoleMagnetOptionGivenExperiment", 
       ",", "EmaxGivenExperiment"}], "}"}]}], "}"}], "//", "TableForm"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"WhetherCutsTemp", "=", 
     RowBox[{"dropdownDialog", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\"\<Yes\>\"", ",", "\"\<No\>\""}], "}"}], ",", 
       "\"\<Would you like to impose any cuts on acceptance of decay products \
other than geometric?\>\""}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"WhetherCuts", "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"WhetherCutsTemp", "\[Equal]", "\"\<Yes\>\""}], ",", "1", ",", 
       "0"}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "___", "___", "___", "___", "___", "___", "___", "___", "___", "___", 
    "___", "___", "___", "___", "___", "___", "___", "_"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Imposing", " ", "cuts", " ", "on", " ", "decay", " ", "products"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "___", "___", "___", "___", "___", "___", "___", "___", "___", "___", 
    "___", "___", "___", "___", "___", "___", "___", "_"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pTcutLowerZero", "=", "0."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pTcutUpperZero", "=", 
   SuperscriptBox["10", "10."]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eCutLowerZero", "=", "0."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eCutUpperZero", "=", 
   SuperscriptBox["10", "10."]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IPcutZero", "=", 
   SuperscriptBox["10", "10."]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AngSepCutZero", "=", "0."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SScutZero", "=", "0."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"minvCutLowerZero", "=", "0."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"minvCutUpperZero", "=", 
   SuperscriptBox["10", "10."]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eTotCutLowerZero", "=", "0."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eTotCutUpperZero", "=", 
   SuperscriptBox["10", "10."]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "pTelCutLower", ",", "pTelCutUpper", ",", "pT\[Mu]CutLower", ",", 
     "pT\[Mu]CutUpper", ",", "pThadrCutLower", ",", "pThadrCutUpper", ",", 
     "eElCutLower", ",", "eElCutUpper", ",", "e\[Mu]CutLower", ",", 
     "e\[Mu]CutUpper", ",", "eHadrCutLower", ",", "eHadrCutUpper", ",", 
     "EtotElCutLower", ",", "EtotElCutUpper", ",", "Etot\[Mu]CutLower", ",", 
     "Etot\[Mu]CutUpper", ",", "EtotHadrCutLower", ",", "EtotHadrCutUpper", 
     ",", "EtotMixedCutLower", ",", "EtotMixedCutUpper", ",", 
     "e\[Gamma]CutLower", ",", "e\[Gamma]CutUpper", ",", "eh0CutLower", ",", 
     "eh0CutUpper", ",", "Etot\[Gamma]\[Gamma]CutLower", ",", 
     "Etot\[Gamma]\[Gamma]CutUpper", ",", "Etoth0h0CutLower", ",", 
     "Etoth0h0CutUpper", ",", "EtotMixedNeutralCutLower", ",", 
     "EtotMixedNeutralCutUpper", ",", "IPcut", ",", "AngSepCut", ",", 
     "AngSepCutCharged", ",", "SScutCharged", ",", "SScutNeutral", ",", 
     "minvElCutLower", ",", "minvElCutUpper", ",", "minv\[Mu]CutLower", ",", 
     "minv\[Mu]CutUpper", ",", "minvHadrCutLower", ",", "minvHadrCutUpper", 
     ",", "minvMixedCutLower", ",", "minvMixedCutUpper", ",", 
     "minv\[Gamma]\[Gamma]CutLower", ",", "minv\[Gamma]\[Gamma]CutUpper", ",",
      "minvh0h0CutLower", ",", "minvh0h0CutUpper", ",", 
     "minvMixedNeutralCutLower", ",", "minvMixedNeutralCutUpper"}], "}"}], "//",
    "Clear"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"choice", "=", 
   RowBox[{"{", "\"\<All\>\"", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DynamicModule", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "inputValues", ",", "labels", ",", "symbols", ",", "inputFields", ",", 
      "submitButton"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"labels", "=", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Min/max \!\(\*SubscriptBox[\(p\), \(T\)]\) range of each charged \
decay product, in the form {\!\(\*SubscriptBox[\(p\), \(T, min\)]\), \
\!\(\*SubscriptBox[\(p\), \(T, max\)]\)}, for \!\(\*SuperscriptBox[\(e\), \(+\
\(/\(-\)\)\)]\), (1st bracket), \!\(\*SuperscriptBox[\(\[Mu]\), \(+\(/\(-\)\)\
\)]\) (2nd), hadrons \!\(\*SuperscriptBox[\(h\), \(+\(/\(-\)\)\)]\) \
(3rd)\>\"", ",", 
        "\"\<Min/max energy of each charged decay product, in the form \
{\!\(\*SubscriptBox[\(E\), \(min\)]\), \!\(\*SubscriptBox[\(E\), \(max\)]\)}, \
for \!\(\*SuperscriptBox[\(e\), \(+\(/\(-\)\)\)]\) (1st bracket), \
\!\(\*SuperscriptBox[\(\[Mu]\), \(+\(/\(-\)\)\)]\) (2nd), \
\!\(\*SuperscriptBox[\(h\), \(+\(/\(-\)\)\)]\) (3rd)\>\"", ",", 
        "\"\<Min/max total energy of two charged products, in the form \
{\!\(\*SubscriptBox[\(E\), \(min\)]\), \!\(\*SubscriptBox[\(E\), \(max\)]\)}, \
for \!\(\*SuperscriptBox[\(e\), \(+\)]\)\!\(\*SuperscriptBox[\(e\), \(-\)]\) \
(1st bracket), \!\(\*SuperscriptBox[\(\[Mu]\), \
\(+\)]\)\!\(\*SuperscriptBox[\(\[Mu]\), \(-\)]\) (2nd), \!\(\*SuperscriptBox[\
\(h\), \(+\)]\)\!\(\*SuperscriptBox[\(h\), \(-\)]\) (3rd), and mixed \
(4th)\>\"", ",", 
        "\"\<Min/max energy of each neutral product, in the form \
{\!\(\*SubscriptBox[\(E\), \(min\)]\), \!\(\*SubscriptBox[\(E\), \(max\)]\)}, \
for \[Gamma] (1st bracket) and neutral hadrons \!\(\*SuperscriptBox[\(h\), \
\(0\)]\) (2nd)\>\"", ",", 
        "\"\<Min/max total energy of a neutral pair, in the form \
{\!\(\*SubscriptBox[\(E\), \(min\)]\), \!\(\*SubscriptBox[\(E\), \(max\)]\)}, \
for \[Gamma]\[Gamma] (1st), \!\(\*SuperscriptBox[\(h\), \
\(0\)]\)\!\(\*SuperscriptBox[\(h\), \(0\)]\) (2nd), mixed (3rd)\>\"", ",", 
        "\"\<Transerse impact parameter cut from above for charged tracks (in \
m)\>\"", ",", 
        "\"\<Angular cut from below for photons/charged particles at the \
beginning of the calorimeter (in radians)\>\"", ",", "\[IndentingNewLine]", 
        "\"\<Transverse spatial separation cut from below at the beginning of \
the calorimeter (in m), {\!\(\*SubscriptBox[\(SS\), \(min, \
charged\)]\),\!\(\*SubscriptBox[\(SS\), \(min, photons\)]\)}\>\"", ",", 
        "\"\<Invariant mass cut for the two charged products, in the form {\!\
\(\*SubscriptBox[\(m\), \(inv, lower\)]\), \!\(\*SubscriptBox[\(m\), \(inv, \
upper\)]\)}, for \!\(\*SuperscriptBox[\(e\), \(+\)]\)\!\(\*SuperscriptBox[\(e\
\), \(-\)]\) (1st), \!\(\*SuperscriptBox[\(\[Mu]\), \
\(+\)]\)\!\(\*SuperscriptBox[\(\[Mu]\), \(-\)]\) (2nd), \!\(\*SuperscriptBox[\
\(h\), \(+\)]\)\!\(\*SuperscriptBox[\(h\), \(-\)]\) (3rd), mixed (4th)\>\"", 
        ",", "\"\<Invariant mass cut for the two neutral products, in the \
form {\!\(\*SubscriptBox[\(m\), \(inv, lower\)]\), \!\(\*SubscriptBox[\(m\), \
\(inv, upper\)]\)}, in the form {\!\(\*SubscriptBox[\(m\), \(inv, lower\)]\), \
\!\(\*SubscriptBox[\(m\), \(inv, upper\)]\)}, for \[Gamma]\[Gamma] (1st), \
\!\(\*SuperscriptBox[\(h\), \(0\)]\)\!\(\*SuperscriptBox[\(h\), \(0\)]\) \
(2nd), mixed (3rd)\>\""}], "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"inputValues", "=", 
      RowBox[{"zeros", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}]}], "}"}], ",", 
         RowBox[{"-", "999"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "999"}], ",", 
           RowBox[{"-", "999"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "999"}], ",", 
           RowBox[{"-", "999"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "999"}], ",", 
             RowBox[{"-", "999"}]}], "}"}]}], "}"}]}], "}"}]}]}], ";", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"symbols", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"pTelCutLower", ",", "pTelCutUpper"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"pT\[Mu]CutLower", ",", "pT\[Mu]CutUpper"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"pThadrCutLower", ",", "pThadrCutUpper"}], "}"}]}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"eElCutLower", ",", "eElCutUpper"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"e\[Mu]CutLower", ",", "e\[Mu]CutUpper"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"eHadrCutLower", ",", "eHadrCutUpper"}], "}"}]}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"EtotElCutLower", ",", "EtotElCutUpper"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Etot\[Mu]CutLower", ",", "Etot\[Mu]CutUpper"}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"EtotHadrCutLower", ",", "EtotHadrCutUpper"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"EtotMixedCutLower", ",", "EtotMixedCutUpper"}], "}"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"e\[Gamma]CutLower", ",", "e\[Gamma]CutUpper"}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"eh0CutLower", ",", "eh0CutUpper"}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "Etot\[Gamma]\[Gamma]CutLower", ",", 
            "Etot\[Gamma]\[Gamma]CutUpper"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Etoth0h0CutLower", ",", "Etoth0h0CutUpper"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
           "EtotMixedNeutralCutLower", ",", "EtotMixedNeutralCutUpper"}], 
           "}"}]}], "}"}], ",", "IPcut", ",", 
        RowBox[{"{", 
         RowBox[{"AngSepCut", ",", "AngSepCutCharged"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SScutCharged", ",", "SScutNeutral"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"minvElCutLower", ",", "minvElCutUpper"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"minv\[Mu]CutLower", ",", "minv\[Mu]CutUpper"}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"minvHadrCutLower", ",", "minvHadrCutUpper"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"minvMixedCutLower", ",", "minvMixedCutUpper"}], "}"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "minv\[Gamma]\[Gamma]CutLower", ",", 
            "minv\[Gamma]\[Gamma]CutUpper"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"minvh0h0CutLower", ",", "minvh0h0CutUpper"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
           "minvMixedNeutralCutLower", ",", "minvMixedNeutralCutUpper"}], 
           "}"}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"zerosvalues", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"pTcutLowerZero", ",", "pTcutUpperZero"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"pTcutLowerZero", ",", "pTcutUpperZero"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"pTcutLowerZero", ",", "pTcutUpperZero"}], "}"}]}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"eCutLowerZero", ",", "eCutUpperZero"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"eCutLowerZero", ",", "eCutUpperZero"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"eCutLowerZero", ",", "eCutUpperZero"}], "}"}]}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"eCutLowerZero", ",", "eCutUpperZero"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"eCutLowerZero", ",", "eCutUpperZero"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"eCutLowerZero", ",", "eCutUpperZero"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"eCutLowerZero", ",", "eCutUpperZero"}], "}"}]}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"eCutLowerZero", ",", "eCutUpperZero"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"eCutLowerZero", ",", "eCutUpperZero"}], "}"}]}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"eCutLowerZero", ",", "eCutUpperZero"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"eCutLowerZero", ",", "eCutUpperZero"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"eCutLowerZero", ",", "eCutUpperZero"}], "}"}]}], "}"}], 
        ",", "IPcutZero", ",", 
        RowBox[{"{", 
         RowBox[{"AngSepCutZero", ",", "AngSepCutZero"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"SScutZero", ",", "SScutZero"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"minvCutLowerZero", ",", "minvCutUpperZero"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"minvCutLowerZero", ",", "minvCutUpperZero"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"minvCutLowerZero", ",", "minvCutUpperZero"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"minvCutLowerZero", ",", "minvCutUpperZero"}], "}"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"minvCutLowerZero", ",", "minvCutUpperZero"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"minvCutLowerZero", ",", "minvCutUpperZero"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"minvCutLowerZero", ",", "minvCutUpperZero"}], "}"}]}], 
         "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Length", "[", "inputValues", "]"}], "!=", 
        RowBox[{"Length", "[", "labels", "]"}], "!=", 
        RowBox[{"Length", "[", "symbols", "]"}]}], ",", 
       RowBox[{
        RowBox[{
        "MessageDialog", "[", 
         "\"\<Error: The number of initial values does not match the number \
of labels.\>\"", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"productionSelector", "=", 
      RowBox[{"Column", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{
           "\"\<Select the particles that are detectable at \>\"", " ", "<>", 
            "GivenExperiment", "<>", "\"\<:\>\""}], ",", "Bold"}], "]"}], ",", 
         RowBox[{"TogglerBar", "[", 
          RowBox[{
           RowBox[{"Dynamic", "[", "choice", "]"}], ",", 
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"{", "\"\<All\>\"", "}"}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"ParamPDGidToProduct", "[", "#", "]"}], "&"}], "/@", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Abs", "[", "DetectablePDGsGivenExperiment", "]"}], "//",
                 "DeleteDuplicates"}], ")"}]}]}], "]"}], ",", 
           RowBox[{"Appearance", "->", 
            RowBox[{"\"\<Horizontal\>\"", "->", 
             RowBox[{"{", 
              RowBox[{"5", ",", "20"}], "}"}]}]}]}], "]"}]}], "}"}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"inputFields", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"With", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", "=", "i"}], "}"}], ",", 
          RowBox[{"Column", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"labels", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "<>", "\"\<:\>\""}], ",", 
             RowBox[{"InputField", "[", 
              RowBox[{
               RowBox[{"Dynamic", "[", 
                RowBox[{"inputValues", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", "Expression", 
               ",", 
               RowBox[{"FieldSize", "->", 
                RowBox[{"{", 
                 RowBox[{"40", ",", "Automatic"}], "}"}]}]}], "]"}]}], "}"}], 
           "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", 
          RowBox[{"Length", "[", "labels", "]"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"introphr", "=", 
      RowBox[{"{", 
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<Impose the cuts on decay products. If the given cut should not \
be imposed enter -999 for each value (default choice). All the \
energy/\!\(\*SubscriptBox[\(p\), \(T\)]\) cuts are in GeV\>\"", ",", "Bold"}],
         "]"}], "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"submitButton", "=", 
      RowBox[{"Button", "[", 
       RowBox[{"\"\<Submit\>\"", ",", 
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{"Sequence", "@@", 
           RowBox[{"Flatten", "[", 
            RowBox[{"MapThread", "[", 
             RowBox[{"Set", ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Flatten", "[", "symbols", "]"}], ",", 
                RowBox[{"MapThread", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"#1", "===", "#2"}], ",", "#3", ",", "#1"}], 
                    "]"}], "&"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Flatten", "[", "inputValues", "]"}], ",", 
                    RowBox[{"Flatten", "[", "zeros", "]"}], ",", 
                    RowBox[{"Flatten", "[", "zerosvalues", "]"}]}], "}"}]}], 
                 "]"}]}], "}"}]}], "]"}], "]"}]}], "]"}], ";", " ", 
         RowBox[{"DialogReturn", "[", "Null", "]"}]}], ",", 
        RowBox[{"ImageSize", "->", "Automatic"}]}], "]"}]}], ";", "\n", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"submitButton", "=", 
        RowBox[{"Button", "[", 
         RowBox[{"\"\<Submit\>\"", ",", 
          RowBox[{
           RowBox[{"Evaluate", "[", 
            RowBox[{"Sequence", "@@", 
             RowBox[{"Flatten", "[", 
              RowBox[{"MapThread", "[", 
               RowBox[{"Set", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Flatten", "[", 
                   RowBox[{"symbols", ",", "1"}], "]"}], ",", 
                  RowBox[{"Flatten", "[", 
                   RowBox[{"inputValues", ",", "1"}], "]"}]}], "}"}]}], "]"}],
               "]"}]}], "]"}], ";", " ", 
           RowBox[{"DialogReturn", "[", "Null", "]"}]}], ",", 
          RowBox[{"ImageSize", "->", "Automatic"}]}], "]"}]}], ";"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"DialogInput", "[", 
      RowBox[{"Column", "[", 
       RowBox[{"Flatten", "[", 
        RowBox[{"{", 
         RowBox[{
         "productionSelector", ",", "introphr", ",", "\"\< \>\"", ",", 
          "inputFields", ",", "submitButton"}], "}"}], "]"}], "]"}], 
      "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"choice", "==", 
      RowBox[{"{", "}"}]}], "||", 
     RowBox[{"MemberQ", "[", 
      RowBox[{"choice", ",", "\"\<All\>\""}], "]"}]}], ",", 
    RowBox[{"choice", "=", 
     RowBox[{"{", "\"\<All\>\"", "}"}]}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"choice", "!=", 
     RowBox[{"{", "\"\<All\>\"", "}"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"DetectablePDGsGivenExperimentTemp", "=", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"ParamProductToPDGid", "[", "#", "]"}], "&"}], "/@", 
         "choice"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           RowBox[{"ParamProductToPDGid", "[", "#", "]"}]}], "&"}], "/@", 
         "choice"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"DetectablePDGsGivenExperiment", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{"DetectablePDGsGivenExperimentTemp", ",", 
          RowBox[{
           RowBox[{"FreeQ", "[", 
            RowBox[{
             RowBox[{"ParamPDGidToProduct", "[", "#", "]"}], ",", "Missing"}],
             "]"}], "&"}]}], "]"}], "//", "N"}], "//", "Sort"}]}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<List of PDGs of detectable particles:\>\"", 
  "]"}], "\[IndentingNewLine]", "DetectablePDGsGivenExperiment"}], "Input",
 CellChangeTimes->{{3.8862395123902965`*^9, 3.886239583049287*^9}, {
   3.8862614265933056`*^9, 3.886261427405651*^9}, {3.8863205546619196`*^9, 
   3.886320555235077*^9}, {3.886321463607978*^9, 3.886321464435209*^9}, {
   3.886321819423191*^9, 3.8863218206744995`*^9}, {3.886323160464417*^9, 
   3.886323162947709*^9}, {3.8863236963452435`*^9, 3.886323697877537*^9}, {
   3.8863246001448927`*^9, 3.88632463766989*^9}, 3.8863246738954725`*^9, {
   3.886406411833415*^9, 3.8864065245112395`*^9}, {3.8864073857936664`*^9, 
   3.8864073864221144`*^9}, {3.8864075159033737`*^9, 3.886407517965285*^9}, {
   3.8864082670760336`*^9, 3.8864082679023447`*^9}, {3.8864085032398806`*^9, 
   3.8864085043449306`*^9}, {3.8864111528778505`*^9, 3.886411155496108*^9}, {
   3.8864114351630583`*^9, 3.886411435949088*^9}, {3.8864116107952433`*^9, 
   3.8864116113448763`*^9}, {3.8864339822607136`*^9, 3.886433983114958*^9}, {
   3.8864356385769234`*^9, 3.886435640512048*^9}, {3.886435938327056*^9, 
   3.886435938790553*^9}, {3.8864360178252563`*^9, 3.8864360185983143`*^9}, {
   3.886477242021925*^9, 3.8864772433998175`*^9}, {3.886523046141382*^9, 
   3.886523046717943*^9}, {3.8869230035015373`*^9, 3.8869230043363614`*^9}, {
   3.886923134570159*^9, 3.886923135113418*^9}, {3.8871279473729877`*^9, 
   3.887127949272484*^9}, {3.8871290895488167`*^9, 3.887129090029354*^9}, {
   3.8871799986764126`*^9, 3.8871800009018803`*^9}, {3.887180401806629*^9, 
   3.887180402651722*^9}, {3.887186564600072*^9, 3.8871865669390526`*^9}, {
   3.88718705509645*^9, 3.887187057831586*^9}, {3.8872058711188154`*^9, 
   3.887205871638158*^9}, {3.88720693968042*^9, 3.887206941243812*^9}, {
   3.8872099692091823`*^9, 3.887209969671775*^9}, {3.887211413766818*^9, 
   3.8872114146200285`*^9}, {3.887211932832594*^9, 3.887211933282428*^9}, {
   3.887253582955886*^9, 3.887253584332303*^9}, {3.8872721877980585`*^9, 
   3.8872721885782585`*^9}, {3.8873380092349606`*^9, 3.887338010554838*^9}, {
   3.8875292303518243`*^9, 3.887529231201189*^9}, {3.8875302300157824`*^9, 
   3.887530233979493*^9}, {3.8875314760706687`*^9, 3.8875314773136625`*^9}, {
   3.8875335849124703`*^9, 3.887533585089736*^9}, {3.8875599973319736`*^9, 
   3.887560006568223*^9}, {3.887560183083761*^9, 3.887560187244735*^9}, {
   3.8875607209798946`*^9, 3.8875607534207225`*^9}, {3.887560882751191*^9, 
   3.8875608908330793`*^9}, {3.887612556360304*^9, 3.887612559072115*^9}, {
   3.887614321592123*^9, 3.887614367138612*^9}, {3.887615893819663*^9, 
   3.887615894504799*^9}, {3.8876160982844324`*^9, 3.887616099498848*^9}, {
   3.8876181134809046`*^9, 3.887618114215395*^9}, {3.8876182032892027`*^9, 
   3.8876182038265295`*^9}, {3.887632684483673*^9, 3.887632687213397*^9}, {
   3.887688870870682*^9, 3.887688871386403*^9}, {3.8877068944260893`*^9, 
   3.8877068956729803`*^9}, {3.887713922235078*^9, 3.887713922356718*^9}, {
   3.887734706053899*^9, 3.8877347103239484`*^9}, {3.8877730517046137`*^9, 
   3.8877730853334475`*^9}, 3.8877732608622713`*^9, 3.8877760717092247`*^9, {
   3.8883779829298964`*^9, 3.8883780022609177`*^9}, 3.8902923985687885`*^9, {
   3.8905554903814497`*^9, 3.890555539297676*^9}, {3.8932333535373397`*^9, 
   3.8932333538996873`*^9}, 3.893233409047794*^9, {3.8932334667095785`*^9, 
   3.8932334723722477`*^9}, {3.893233503285507*^9, 3.8932335134986534`*^9}, {
   3.893233566335312*^9, 3.8932335879818416`*^9}, {3.8932336695523367`*^9, 
   3.893233683999921*^9}, 3.8933148502437077`*^9, 3.893318177775519*^9, {
   3.8933257138387957`*^9, 3.893325753953617*^9}, {3.8933882501339645`*^9, 
   3.893388462123291*^9}, {3.893389104378008*^9, 3.89338918200423*^9}, {
   3.893391295379231*^9, 3.8933913047467933`*^9}, {3.893391774005262*^9, 
   3.893391949450411*^9}, {3.893391998289749*^9, 3.893392050613307*^9}, {
   3.893392099995363*^9, 3.8933925172343173`*^9}, {3.8933925655517592`*^9, 
   3.893392571091895*^9}, {3.8933926241527405`*^9, 3.89339263126077*^9}, {
   3.893396482427949*^9, 3.893396557784583*^9}, {3.893396684842353*^9, 
   3.89339683185153*^9}, {3.8934008462855034`*^9, 3.8934008812412148`*^9}, {
   3.8934009451730413`*^9, 3.8934009767352686`*^9}, {3.8934010296334505`*^9, 
   3.8934010458169637`*^9}, {3.893401227810811*^9, 3.8934012673432436`*^9}, {
   3.893401368763983*^9, 3.8934014794184704`*^9}, {3.8934016306534986`*^9, 
   3.893401683574726*^9}, {3.89340175460909*^9, 3.8934017655042048`*^9}, {
   3.893401911680187*^9, 3.8934019125186853`*^9}, {3.8934024675250006`*^9, 
   3.8934024877628546`*^9}, {3.893424455207156*^9, 3.89342452822206*^9}, 
   3.893424575738535*^9, {3.8934246627256737`*^9, 3.893424698855917*^9}, {
   3.893424743023193*^9, 3.893424768084998*^9}, 3.8934257236674004`*^9, {
   3.893427505839426*^9, 3.8934275330094557`*^9}, {3.8934276336290026`*^9, 
   3.893427749296693*^9}, {3.8934341740469685`*^9, 3.893434179798005*^9}, {
   3.89343435894029*^9, 3.893434363941669*^9}, {3.8934344505407686`*^9, 
   3.893434455434524*^9}, {3.893519727739212*^9, 3.8935197385631623`*^9}, {
   3.895036844613934*^9, 3.895036855852393*^9}, {3.8950369417490597`*^9, 
   3.8950371281437893`*^9}, {3.8950372487481894`*^9, 3.8950372857215843`*^9}, 
   3.8965201047712927`*^9, {3.8967777579414663`*^9, 3.89677786409251*^9}, {
   3.8968417251071415`*^9, 3.896841765657221*^9}, {3.8984950183436623`*^9, 
   3.8984950246396728`*^9}, {3.8985295634712677`*^9, 3.898529567165951*^9}, {
   3.902557780874288*^9, 3.902557866211647*^9}, {3.902557981591077*^9, 
   3.9025579899114265`*^9}, {3.9025580651307335`*^9, 
   3.9025580655245795`*^9}, {3.9055055560432*^9, 3.905505560023321*^9}, {
   3.9055056599476786`*^9, 3.9055060301765995`*^9}, {3.9055061089044313`*^9, 
   3.905506305001817*^9}, 3.9055063905154386`*^9, {3.9055064265331435`*^9, 
   3.9055064326573524`*^9}, {3.9055066588380513`*^9, 
   3.9055071436276817`*^9}, {3.9055071941592083`*^9, 3.905507211164139*^9}, {
   3.905507315895624*^9, 3.905507316493407*^9}, {3.9055073691145926`*^9, 
   3.905507388634494*^9}, {3.9055074900590167`*^9, 3.9055077968836594`*^9}, {
   3.9055078653773737`*^9, 3.9055079063743176`*^9}, {3.9055079527647085`*^9, 
   3.9055080343991404`*^9}, {3.905508064602247*^9, 3.90550806922855*^9}, {
   3.905508159514989*^9, 3.9055081925087376`*^9}, {3.9055082729539967`*^9, 
   3.905508285789571*^9}, {3.9055083498077765`*^9, 3.905508390561697*^9}, 
   3.905508636326395*^9, {3.905508720515654*^9, 3.905508741090497*^9}, {
   3.905508776264496*^9, 3.905508799594994*^9}, 3.9055088687281065`*^9, {
   3.9055090006067486`*^9, 3.9055090299962916`*^9}, {3.9055091990506625`*^9, 
   3.905509228935583*^9}, {3.9055133059477935`*^9, 3.9055134180618887`*^9}, {
   3.9055162936281137`*^9, 3.9055163339918346`*^9}, {3.905516372466316*^9, 
   3.905516395001636*^9}, {3.9055167599691935`*^9, 3.9055170276077876`*^9}, {
   3.905517093560919*^9, 3.905517128276893*^9}, {3.905517167605284*^9, 
   3.90551720728405*^9}, {3.9055173249495835`*^9, 3.905517463610935*^9}, {
   3.9055175344684167`*^9, 3.9055175388257294`*^9}, {3.905667436157593*^9, 
   3.905667446429618*^9}, {3.9056687008834505`*^9, 3.9056687347773666`*^9}, {
   3.90566878932382*^9, 3.9056688043407125`*^9}, 3.905668977395052*^9, {
   3.905698435153984*^9, 3.905698517308263*^9}, {3.905698587449051*^9, 
   3.9056985999462366`*^9}, {3.90569889782007*^9, 3.9056989233950152`*^9}, {
   3.9056989553937263`*^9, 3.9056989556711826`*^9}, {3.905699001817792*^9, 
   3.9056990433552065`*^9}, {3.9056991381411953`*^9, 3.905699138953631*^9}, {
   3.905699238730953*^9, 3.905699247996553*^9}, {3.905699318681655*^9, 
   3.9056993973629475`*^9}, {3.905699429773856*^9, 3.9056994698267784`*^9}, {
   3.905699507213558*^9, 3.9056995605584574`*^9}, 3.905699669695407*^9, {
   3.9056997158008184`*^9, 3.905699757496434*^9}, {3.905701028882305*^9, 
   3.9057010561009207`*^9}, {3.9057011769329095`*^9, 
   3.9057011857139206`*^9}, {3.91017392414937*^9, 3.9101740114218283`*^9}, {
   3.910174742576885*^9, 3.9101749789931145`*^9}, {3.9101750306192136`*^9, 
   3.910175047189313*^9}, {3.910175157104765*^9, 3.9101752837454495`*^9}, {
   3.9102493077384977`*^9, 3.9102493180035925`*^9}, {3.9120758694476604`*^9, 
   3.9120758914673357`*^9}, {3.9121574291635084`*^9, 
   3.9121574296657777`*^9}, {3.912158976542296*^9, 3.912158976887396*^9}, {
   3.91215901002857*^9, 3.912159082210735*^9}, {3.912159206427122*^9, 
   3.9121592340564437`*^9}, {3.9124985567534065`*^9, 3.91249859624119*^9}, {
   3.9125003299152737`*^9, 3.912500366952034*^9}, {3.912500455530143*^9, 
   3.912500537282131*^9}, {3.9125005745067015`*^9, 3.91250065419954*^9}, {
   3.9125006985872145`*^9, 3.9125008413616204`*^9}, {3.9125010892650733`*^9, 
   3.912501109139593*^9}, {3.9125011843572044`*^9, 3.9125012945604444`*^9}, {
   3.9125013293154144`*^9, 3.912501379242343*^9}, {3.9125014216242576`*^9, 
   3.9125014270295687`*^9}, {3.9125016764481564`*^9, 
   3.9125016864685464`*^9}, {3.9125017275300817`*^9, 
   3.9125017388542705`*^9}, {3.912501821474018*^9, 3.9125019663309126`*^9}, {
   3.912502010772153*^9, 3.912502016781851*^9}, {3.9125020800590415`*^9, 
   3.912502149453071*^9}, {3.9125025476758313`*^9, 3.9125025636143436`*^9}, {
   3.912502604823943*^9, 3.9125027174678745`*^9}, {3.9125027760120864`*^9, 
   3.912502830352152*^9}, {3.9125029844461765`*^9, 3.9125029862258606`*^9}, {
   3.9125030713041153`*^9, 3.9125034235333757`*^9}, {3.9125035358354454`*^9, 
   3.912503701205196*^9}, {3.912503737784069*^9, 3.91250380581437*^9}, {
   3.912503841578417*^9, 3.912503856433193*^9}, {3.912504383413185*^9, 
   3.9125043839985466`*^9}, {3.9125307087149987`*^9, 
   3.9125308799003296`*^9}, {3.912531059051177*^9, 3.9125311663339844`*^9}, {
   3.9125341465349617`*^9, 3.9125341481299934`*^9}, {3.9126569993698144`*^9, 
   3.91265699955319*^9}, {3.9126572713892574`*^9, 3.912657453052541*^9}, {
   3.9139785549872684`*^9, 3.913978559452183*^9}, {3.914146835665142*^9, 
   3.914146852000824*^9}, {3.9141468916650877`*^9, 3.914146917080638*^9}, {
   3.9142997891426744`*^9, 3.914299828429942*^9}, {3.9149934246270685`*^9, 
   3.914993466074767*^9}, {3.915182967668269*^9, 3.9151830095678225`*^9}, {
   3.9151830646855774`*^9, 3.915183070151479*^9}, {3.9151832647262177`*^9, 
   3.9151832687942734`*^9}, {3.915183314681617*^9, 3.9151833708433247`*^9}, {
   3.915183431098007*^9, 3.915183446722087*^9}, {3.9152065318409424`*^9, 
   3.9152065336609187`*^9}, {3.915261834639846*^9, 3.9152618605825844`*^9}, 
   3.9154371874717135`*^9, {3.9161556101531286`*^9, 3.9161556361774035`*^9}, {
   3.9161617156977525`*^9, 3.9161617168572645`*^9}, {3.9186624038893523`*^9, 
   3.9186624968833027`*^9}, 3.9186625470069003`*^9, {3.918662722108676*^9, 
   3.918662722738198*^9}, 3.9186645637667894`*^9, 3.93391522653141*^9, {
   3.9347412061137094`*^9, 3.9347412671786857`*^9}, {3.934787479330633*^9, 
   3.934787495118269*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->"In[84]:=",ExpressionUUID->"fb3d4d64-0315-481f-b629-16445305ff61"],

Cell[CellGroupData[{

Cell["Displaying cuts", "Section",
 CellChangeTimes->{{3.90570092403391*^9, 3.905700944394094*^9}, 
   3.9125342998910933`*^9},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"d18df397-565c-4314-b9c2-\
03453c319f04"],

Cell[CellGroupData[{

Cell["Creating functions with cuts", "Subsection",
 CellChangeTimes->{{3.912531648668831*^9, 3.9125316541920595`*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"27037987-e254-4a1f-b19f-\
ea431bbfa0c0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"createCompiledFunctionpT", "[", 
   RowBox[{"zeroValue_", ",", "elcut_", ",", "\[Mu]cut_", ",", "hadrcut_"}], 
   "]"}], ":=", 
  RowBox[{
   RowBox[{"Hold", "@", 
    RowBox[{"Compile", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"id", ",", "_Real"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"charge", ",", "_Real"}], "}"}]}], "}"}], ",", 
      RowBox[{"Module", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"cut", ",", "absid"}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"cut", "=", "zeroValue"}], ";", "\[IndentingNewLine]", 
         RowBox[{"absid", "=", 
          RowBox[{"Abs", "[", "id", "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"charge", "!=", "0."}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"cut", "=", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"absid", "==", "11."}], ",", "elcut", ",", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{"absid", "==", "13."}], ",", "\[Mu]cut", ",", 
                 "hadrcut"}], "]"}]}], "]"}]}], ";"}]}], 
          "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "cut"}]}],
        "\[IndentingNewLine]", "]"}], ",", 
      RowBox[{"CompilationTarget", "->", "\"\<C\>\""}], ",", 
      RowBox[{"RuntimeOptions", "->", "\"\<Speed\>\""}], ",", 
      RowBox[{"RuntimeAttributes", "->", 
       RowBox[{"{", "Listable", "}"}]}], ",", 
      RowBox[{"Parallelization", "->", "True"}]}], "]"}]}], "//", 
   "ReleaseHold"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pTcutLowerID", "=", 
    RowBox[{"createCompiledFunctionpT", "[", 
     RowBox[{
     "pTcutLowerZero", ",", "pTelCutLower", ",", "pT\[Mu]CutLower", ",", 
      "pThadrCutLower"}], "]"}]}], ";"}], "//", 
  "AbsoluteTiming"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pTcutUpperID", "=", 
    RowBox[{"createCompiledFunctionpT", "[", 
     RowBox[{
     "pTcutUpperZero", ",", "pTelCutUpper", ",", "pT\[Mu]CutUpper", ",", 
      "pThadrCutUpper"}], "]"}]}], ";"}], "//", 
  "AbsoluteTiming"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "CompiledFunctionTools`"}], "\n", 
 RowBox[{
  RowBox[{"CompilePrint", "@", "pTcutLowerID"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"createCompiledFunctionE", "[", 
   RowBox[{
   "zeroValue_", ",", "\[Gamma]cut_", ",", "h0cut_", ",", "elcut_", ",", 
    "\[Mu]cut_", ",", "hadrcut_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Hold", "@", 
    RowBox[{"Compile", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"id", ",", "_Real"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"charge", ",", "_Real"}], "}"}]}], "}"}], ",", 
      RowBox[{"Module", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"cut", ",", "absid"}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"cut", "=", "zeroValue"}], ";", "\[IndentingNewLine]", 
         RowBox[{"absid", "=", 
          RowBox[{"Abs", "[", "id", "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"charge", "==", "0."}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"cut", "=", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"absid", "==", "22."}], ",", "\[Gamma]cut", ",", 
               "h0cut"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";",
          "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"charge", "!=", "0."}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"cut", "=", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"absid", "==", "11."}], ",", "elcut", ",", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{"absid", "==", "13."}], ",", "\[Mu]cut", ",", 
                 "hadrcut"}], "]"}]}], "]"}]}], ";"}]}], 
          "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "cut"}]}],
        "\[IndentingNewLine]", "]"}], ",", 
      RowBox[{"CompilationTarget", "->", "\"\<C\>\""}], ",", 
      RowBox[{"RuntimeOptions", "->", "\"\<Speed\>\""}], ",", 
      RowBox[{"RuntimeAttributes", "->", 
       RowBox[{"{", "Listable", "}"}]}], ",", 
      RowBox[{"Parallelization", "->", "True"}]}], "]"}]}], "//", 
   "ReleaseHold"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ecutLowerID", "=", 
    RowBox[{"createCompiledFunctionE", "[", 
     RowBox[{
     "eCutLowerZero", ",", "e\[Gamma]CutLower", ",", "eh0CutLower", ",", 
      "eElCutLower", ",", "e\[Mu]CutLower", ",", "eHadrCutLower"}], "]"}]}], 
   ";"}], "//", "AbsoluteTiming"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ecutUpperID", "=", 
    RowBox[{"createCompiledFunctionE", "[", 
     RowBox[{
     "eCutUpperZero", ",", "e\[Gamma]CutUpper", ",", "eh0CutUpper", ",", 
      "eElCutUpper", ",", "e\[Mu]CutUpper", ",", "eHadrCutUpper"}], "]"}]}], 
   ";"}], "//", "AbsoluteTiming"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "CompiledFunctionTools`"}], "\n", 
 RowBox[{
  RowBox[{"CompilePrint", "@", "ecutLowerID"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"createCompiledFunction", "[", 
    RowBox[{
    "zeroValue_", ",", "h0h0Cut_", ",", "gammaGammaCut_", ",", 
     "mixedNeutralCut_", ",", "hadrCut_", ",", "muCut_", ",", "elCut_", ",", 
     "mixedCut_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"Hold", "@", 
     RowBox[{"Compile", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"id1", ",", "_Real"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"charge1", ",", "_Real"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"id2", ",", "_Real"}], "}"}]}], "}"}], ",", 
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "cut", ",", "absid1", ",", "absid2", ",", "condel1", ",", "condel2",
            ",", "condMu1", ",", "condMu2"}], "}"}], ",", 
         RowBox[{
          RowBox[{"cut", "=", "zeroValue"}], ";", "\[IndentingNewLine]", 
          RowBox[{"absid1", "=", 
           RowBox[{"Abs", "[", "id1", "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"absid2", "=", 
           RowBox[{"Abs", "[", "id2", "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"charge1", "==", "0."}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"cut", "=", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"id2", "!=", "id1"}], ",", "mixedNeutralCut", ",", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{"id1", "==", "22."}], ",", "gammaGammaCut", ",", 
                  "h0h0Cut"}], "]"}]}], "]"}]}], ";"}]}], 
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"charge1", "!=", "0."}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"{", 
               RowBox[{"condel1", ",", "condel2"}], "}"}], "=", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{"absid1", "==", "11."}], ",", "1.", ",", "0."}], 
                 "]"}], ",", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{"absid2", "==", "11."}], ",", "1.", ",", "0."}], 
                 "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"condMu1", ",", "condMu2"}], "}"}], "=", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{"absid1", "==", "13."}], ",", "1.", ",", "0."}], 
                 "]"}], ",", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{"absid2", "==", "13."}], ",", "1.", ",", "0."}], 
                 "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
             RowBox[{"cut", "=", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{
                 "condel1", "+", "condel2", "+", "condMu1", "+", "condMu2"}], 
                 "==", "0."}], ",", "hadrCut", ",", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Max", "[", 
                    RowBox[{
                    RowBox[{"condel1", "*", "condel2"}], ",", 
                    RowBox[{"condMu1", "*", "condMu2"}]}], "]"}], "==", 
                   "0."}], ",", "mixedCut", ",", 
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"condel1", "*", "condel2"}], "==", "1."}], ",", 
                    "elCut", ",", "muCut"}], "]"}]}], "]"}]}], "]"}]}], 
             ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
          "\[IndentingNewLine]", "cut"}]}], "]"}], ",", 
       RowBox[{"CompilationTarget", "->", "\"\<C\>\""}], ",", 
       RowBox[{"RuntimeOptions", "->", "\"\<Speed\>\""}], ",", 
       RowBox[{"RuntimeAttributes", "->", 
        RowBox[{"{", "Listable", "}"}]}], ",", 
       RowBox[{"Parallelization", "->", "True"}]}], "]"}]}], 
    RowBox[{"(*", 
     RowBox[{"/.", " ", 
      RowBox[{"ruleOwn", "[", 
       RowBox[{"{", 
        RowBox[{
        "zeroValue", ",", "h0h0Cut", ",", "gammaGammaCut", ",", 
         "mixedNeutralCut", ",", "hadrCut", ",", "muCut", ",", "elCut", ",", 
         "mixedCut"}], "}"}], "]"}]}], "*)"}], "//", "ReleaseHold"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EtotCutLowerID", "=", 
    RowBox[{"createCompiledFunction", "[", 
     RowBox[{
     "eTotCutLowerZero", ",", "Etoth0h0CutLower", ",", 
      "Etot\[Gamma]\[Gamma]CutLower", ",", "EtotMixedNeutralCutLower", ",", 
      "EtotHadrCutLower", ",", "Etot\[Mu]CutLower", ",", "EtotElCutLower", 
      ",", "EtotMixedCutLower"}], "]"}]}], ";"}], "//", 
  "AbsoluteTiming"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"EtotCutUpperID", "=", 
    RowBox[{"createCompiledFunction", "[", 
     RowBox[{
     "eTotCutUpperZero", ",", "Etoth0h0CutUpper", ",", 
      "Etot\[Gamma]\[Gamma]CutUpper", ",", "EtotMixedNeutralCutUpper", ",", 
      "EtotHadrCutUpper", ",", "Etot\[Mu]CutUpper", ",", "EtotElCutUpper", 
      ",", "EtotMixedCutUpper"}], "]"}]}], ";"}], "//", 
  "AbsoluteTiming"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"minvCutLowerID", "=", 
    RowBox[{"createCompiledFunction", "[", 
     RowBox[{
     "minvCutLowerZero", ",", "minvh0h0CutLower", ",", 
      "minv\[Gamma]\[Gamma]CutLower", ",", "minvMixedNeutralCutLower", ",", 
      "minvHadrCutLower", ",", "minv\[Mu]CutLower", ",", "minvElCutLower", 
      ",", "minvMixedCutLower"}], "]"}]}], ";"}], "//", 
  "AbsoluteTiming"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"minvCutUpperID", "=", 
    RowBox[{"createCompiledFunction", "[", 
     RowBox[{
     "minvCutUpperZero", ",", "minvh0h0CutUpper", ",", 
      "minv\[Gamma]\[Gamma]CutUpper", ",", "minvMixedNeutralCutUpper", ",", 
      "minvHadrCutUpper", ",", "minv\[Mu]CutUpper", ",", "minvElCutUpper", 
      ",", "minvMixedCutUpper"}], "]"}]}], ";"}], "//", 
  "AbsoluteTiming"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "CompiledFunctionTools`"}], "\n", 
 RowBox[{
  RowBox[{"CompilePrint", "@", "EtotCutUpperID"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"AngSepCutID", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"Hold", "@", 
       RowBox[{"Compile", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"id1", ",", "_Real"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"id2", ",", "_Real"}], "}"}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"id1", "==", "22."}], "||", 
            RowBox[{"id1", "==", "130."}]}], ",", "AngSepCut", ",", 
           "AngSepCutCharged"}], "]"}], ",", 
         RowBox[{"CompilationTarget", "->", "\"\<C\>\""}], ",", 
         RowBox[{"RuntimeOptions", "->", "\"\<Speed\>\""}], ",", 
         RowBox[{"RuntimeAttributes", "->", 
          RowBox[{"{", "Listable", "}"}]}], ",", 
         RowBox[{"Parallelization", "->", "True"}]}], "]"}]}], "/.", 
      RowBox[{"ruleOwn", "[", 
       RowBox[{"{", 
        RowBox[{"AngSepCut", ",", "AngSepCutZero", ",", "AngSepCutCharged"}], 
        "}"}], "]"}]}], "//", "ReleaseHold"}]}], ";"}], "//", 
  "AbsoluteTiming"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SScutID", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"Hold", "@", 
       RowBox[{"Compile", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"id1", ",", "_Real"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"id2", ",", "_Real"}], "}"}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"id1", "==", "22."}], "||", 
            RowBox[{"id1", "==", "130."}]}], ",", "SScutNeutral", ",", 
           "SScutCharged"}], "]"}], ",", 
         RowBox[{"CompilationTarget", "->", "\"\<C\>\""}], ",", 
         RowBox[{"RuntimeOptions", "->", "\"\<Speed\>\""}], ",", 
         RowBox[{"RuntimeAttributes", "->", 
          RowBox[{"{", "Listable", "}"}]}], ",", 
         RowBox[{"Parallelization", "->", "True"}]}], "]"}]}], "/.", 
      RowBox[{"ruleOwn", "[", 
       RowBox[{"{", 
        RowBox[{"SScutNeutral", ",", "SScutZero", ",", "SScutCharged"}], 
        "}"}], "]"}]}], "//", "ReleaseHold"}]}], ";"}], "//", 
  "AbsoluteTiming"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"IPcutID", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"Hold", "@", 
       RowBox[{"Compile", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"id1", ",", "_Real"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"id2", ",", "_Real"}], "}"}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"id1", "!=", "22."}], "&&", 
            RowBox[{"id1", "!=", "2112."}], "&&", 
            RowBox[{"id1", "!=", "130."}]}], ",", "IPcut", ",", "IPcutZero"}],
           "]"}], ",", 
         RowBox[{"CompilationTarget", "->", "\"\<C\>\""}], ",", 
         RowBox[{"RuntimeAttributes", "->", 
          RowBox[{"{", "Listable", "}"}]}], ",", 
         RowBox[{"RuntimeOptions", "->", "\"\<Speed\>\""}], ",", 
         RowBox[{"Parallelization", "->", "True"}]}], "]"}]}], "/.", 
      RowBox[{"ruleOwn", "[", 
       RowBox[{"{", 
        RowBox[{"IPcut", ",", "IPcutZero"}], "}"}], "]"}]}], "//", 
     "ReleaseHold"}]}], ";"}], "//", "AbsoluteTiming"}]}], "Input",
 CellChangeTimes->{{3.912504527654226*^9, 3.9125045636240673`*^9}, {
   3.912504640662071*^9, 3.9125046466374917`*^9}, {3.9125048290717735`*^9, 
   3.9125048352209883`*^9}, {3.9125269000892096`*^9, 3.912527235817834*^9}, {
   3.912527276355158*^9, 3.9125274943632984`*^9}, {3.9125279053400207`*^9, 
   3.9125279347359495`*^9}, {3.912528029084727*^9, 3.9125280435568657`*^9}, {
   3.9125282367668805`*^9, 3.912528294828271*^9}, 3.9125283507930756`*^9, {
   3.912528415562868*^9, 3.912528474049858*^9}, {3.912528815296932*^9, 
   3.9125289192480845`*^9}, {3.9125289502857466`*^9, 
   3.9125289832351313`*^9}, {3.9125290828852105`*^9, 
   3.9125291556273265`*^9}, {3.9125293432084246`*^9, 
   3.9125294105286074`*^9}, {3.9125294719208384`*^9, 3.912529544474292*^9}, {
   3.9125295791585517`*^9, 3.9125298364773426`*^9}, {3.9125298785411386`*^9, 
   3.9125299388541527`*^9}, {3.9125299700524273`*^9, 
   3.9125300154172473`*^9}, {3.912530107115341*^9, 3.912530274561037*^9}, {
   3.912530305523058*^9, 3.9125303159086633`*^9}, {3.9125303541784306`*^9, 
   3.9125303584651537`*^9}, {3.9125303918730183`*^9, 
   3.9125304484120045`*^9}, {3.9125304894052553`*^9, 
   3.9125305277927227`*^9}, {3.912530572074617*^9, 3.9125305730671883`*^9}, {
   3.912531018658987*^9, 3.9125310197569985`*^9}, {3.9125312785610948`*^9, 
   3.9125312969667444`*^9}, 3.9125316340782185`*^9, {3.912532114886708*^9, 
   3.9125321440663376`*^9}, {3.9125331835571156`*^9, 
   3.9125333510713105`*^9}, {3.912533396288772*^9, 3.9125335047181225`*^9}, {
   3.9125335375011497`*^9, 3.9125336908487997`*^9}, {3.9125337351643004`*^9, 
   3.912533770057849*^9}, {3.912533926577623*^9, 3.912533964504117*^9}, {
   3.9149934653351126`*^9, 3.9149934653351126`*^9}, {3.9151831082871456`*^9, 
   3.9151831354145966`*^9}, {3.915189726124095*^9, 3.9151897416926823`*^9}, {
   3.9186625785697174`*^9, 3.918662608838994*^9}, {3.918662722146917*^9, 
   3.9186627221589055`*^9}, {3.9339240356441*^9, 3.933924062038103*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[104]:=",ExpressionUUID->"960a9a50-7f21-43a4-93b1-12d22c7261dc"]
}, Closed]],

Cell[CellGroupData[{

Cell["Visualization of the cuts", "Subsection",
 CellChangeTimes->{{3.9125342085302763`*^9, 3.9125342182148285`*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"ea5ff1fe-ed5f-4854-83c3-\
0315e9da61c8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tabbcuts", "=", 
   RowBox[{"SortBy", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"id1", ",", "id2", ",", 
             RowBox[{"ParamPDGidToProduct", "[", "id1", "]"}], ",", 
             RowBox[{"ParamPDGidToProduct", "[", "id2", "]"}], ",", 
             RowBox[{"ParamProductCharge", "[", "id1", "]"}], ",", 
             RowBox[{"ParamProductCharge", "[", "id2", "]"}], ",", 
             RowBox[{"ecutLowerID", "[", 
              RowBox[{
               RowBox[{"id1", "//", "N"}], ",", 
               RowBox[{
                RowBox[{"ParamProductCharge", "[", "id1", "]"}], "//", 
                "N"}]}], "]"}], ",", 
             RowBox[{"ecutUpperID", "[", 
              RowBox[{
               RowBox[{"id1", "//", "N"}], ",", 
               RowBox[{
                RowBox[{"ParamProductCharge", "[", "id1", "]"}], "//", 
                "N"}]}], "]"}], ",", 
             RowBox[{"pTcutLowerID", "[", 
              RowBox[{
               RowBox[{"id1", "//", "N"}], ",", 
               RowBox[{"ParamProductCharge", "[", "id1", "]"}]}], "]"}], ",", 
             RowBox[{"pTcutUpperID", "[", 
              RowBox[{
               RowBox[{"id1", "//", "N"}], ",", 
               RowBox[{
                RowBox[{"ParamProductCharge", "[", "id1", "]"}], "//", 
                "N"}]}], "]"}], ",", 
             RowBox[{"EtotCutLowerID", "[", 
              RowBox[{
               RowBox[{"id1", "//", "N"}], ",", 
               RowBox[{
                RowBox[{"ParamProductCharge", "[", "id1", "]"}], "//", "N"}], 
               ",", 
               RowBox[{"id2", "//", "N"}]}], "]"}], ",", 
             RowBox[{"EtotCutUpperID", "[", 
              RowBox[{
               RowBox[{"id1", "//", "N"}], ",", 
               RowBox[{
                RowBox[{"ParamProductCharge", "[", "id1", "]"}], "//", "N"}], 
               ",", 
               RowBox[{"id2", "//", "N"}]}], "]"}], ",", 
             RowBox[{"IPcutID", "[", 
              RowBox[{
               RowBox[{"id1", "//", "N"}], ",", 
               RowBox[{"id2", "//", "N"}]}], "]"}], ",", 
             RowBox[{"AngSepCutID", "[", 
              RowBox[{
               RowBox[{"id1", "//", "N"}], ",", 
               RowBox[{"id2", "//", "N"}]}], "]"}], ",", 
             RowBox[{"SScutID", "[", 
              RowBox[{
               RowBox[{"id1", "//", "N"}], ",", 
               RowBox[{"id2", "//", "N"}]}], "]"}], ",", 
             RowBox[{"minvCutLowerID", "[", 
              RowBox[{
               RowBox[{"id1", "//", "N"}], ",", 
               RowBox[{
                RowBox[{"ParamProductCharge", "[", "id1", "]"}], "//", "N"}], 
               ",", 
               RowBox[{"id2", "//", "N"}]}], "]"}], ",", 
             RowBox[{"minvCutUpperID", "[", 
              RowBox[{
               RowBox[{"id1", "//", "N"}], ",", 
               RowBox[{
                RowBox[{"ParamProductCharge", "[", "id1", "]"}], "//", "N"}], 
               ",", 
               RowBox[{"id2", "//", "N"}]}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"id1", ",", "detectablepdgs"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"id2", ",", "detectablepdgs"}], "}"}]}], "]"}], ",", 
         "1"}], "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "5", "]"}], "]"}], "+", 
           RowBox[{"#", "[", 
            RowBox[{"[", "6", "]"}], "]"}]}], "\[Equal]", "0"}], "&&", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "<=", 
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}], "&"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "&"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cutsmeaning", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<\!\(\*SubscriptBox[\(pdg\), \(1\)]\)\>\"", ",", 
     "\"\<\!\(\*SubscriptBox[\(pdg\), \(2\)]\)\>\"", ",", 
     "\"\<\!\(\*SubscriptBox[\(id\), \(1\)]\)\>\"", ",", 
     "\"\<\!\(\*SubscriptBox[\(id\), \(2\)]\)\>\"", ",", 
     "\"\<\!\(\*SubscriptBox[\(Q\), \(prod, 1\)]\)\>\"", ",", 
     "\"\<\!\(\*SubscriptBox[\(Q\), \(prod, 2\)]\)\>\"", ",", 
     "\"\<\!\(\*SubscriptBox[\(E\), \(min, 1\)]\) (GeV)\>\"", ",", 
     "\"\<\!\(\*SubscriptBox[\(E\), \(max, 1\)]\) (GeV)\>\"", ",", 
     "\"\<\!\(\*SubscriptBox[\(p\), \(T, min, 1\)]\) (GeV)\>\"", ",", 
     "\"\<\!\(\*SubscriptBox[\(p\), \(T, max, 1\)]\) (GeV)\>\"", ",", 
     "\"\<\!\(\*FractionBox[SubscriptBox[\(E\), \(min, 1 + 2\)], \(GeV\)]\)\>\
\"", ",", 
     "\"\<\!\(\*FractionBox[SubscriptBox[\(E\), \(max, 1 + 2\)], \(GeV\)]\)\>\
\"", ",", "\"\<IP cut (m)\>\"", ",", "\"\<angular separation cut (rad)\>\"", 
     ",", "\"\<Transverse spatial separation cut (m)\>\"", ",", 
     "\"\<\!\(\*SubscriptBox[\(m\), \(inv, min\)]\) (GeV)\>\"", ",", 
     "\"\<\!\(\*SubscriptBox[\(m\), \(inv, max\)]\) (GeV)\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "[", 
       RowBox[{"1", ",", 
        RowBox[{"Length", "[", "cutsmeaning", "]"}]}], "]"}], ",", 
      "cutsmeaning"}], "}"}], ",", "tabbcuts"}], "]"}], "//", 
  "TableForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IfEcuts", "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"Select", "[", 
        RowBox[{"tabbcuts", ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "7", "]"}], "]"}], "!=", "eCutLowerZero"}], "||", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "8", "]"}], "]"}], "!=", "eCutUpperZero"}], "||", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "11", "]"}], "]"}], "!=", "eTotCutLowerZero"}], "||", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "12", "]"}], "]"}], "!=", "eTotCutUpperZero"}]}], 
          "&"}]}], "]"}], "]"}], "==", "0"}], ",", "0", ",", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IfEtotLowercuts", "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"Select", "[", 
        RowBox[{"tabbcuts", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "11", "]"}], "]"}], "!=", "eTotCutLowerZero"}], 
          "&"}]}], "]"}], "]"}], "==", "0"}], ",", "0", ",", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IfEtotUppercuts", "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"Select", "[", 
        RowBox[{"tabbcuts", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "12", "]"}], "]"}], "!=", "eTotCutUpperZero"}], 
          "&"}]}], "]"}], "]"}], "==", "0"}], ",", "0", ",", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IfpTcuts", "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"Select", "[", 
        RowBox[{"tabbcuts", ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "9", "]"}], "]"}], "!=", "pTcutLowerZero"}], "||", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "10", "]"}], "]"}], "!=", "pTcutUpperZero"}]}], 
          "&"}]}], "]"}], "]"}], "==", "0"}], ",", "0", ",", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IfAngSepCuts", "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"Select", "[", 
        RowBox[{"tabbcuts", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "14", "]"}], "]"}], "!=", "AngSepCutZero"}], "&"}]}],
         "]"}], "]"}], "==", "0"}], ",", "0", ",", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IfSScuts", "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"Select", "[", 
        RowBox[{"tabbcuts", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "15", "]"}], "]"}], "!=", "AngSepCutZero"}], "&"}]}],
         "]"}], "]"}], "==", "0"}], ",", "0", ",", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IfIPcuts", "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"Select", "[", 
        RowBox[{"tabbcuts", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "13", "]"}], "]"}], "!=", "IPcutZero"}], "&"}]}], 
        "]"}], "]"}], "==", "0"}], ",", "0", ",", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IfminvCuts", "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"Select", "[", 
        RowBox[{"tabbcuts", ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "16", "]"}], "]"}], "!=", "minvCutLowerZero"}], "||", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "17", "]"}], "]"}], "!=", "minvCutUpperZero"}]}], 
          "&"}]}], "]"}], "]"}], "==", "0"}], ",", "0", ",", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IfminvLowerCuts", "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"Select", "[", 
        RowBox[{"tabbcuts", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "16", "]"}], "]"}], "!=", "minvCutLowerZero"}], 
          "&"}]}], "]"}], "]"}], "==", "0"}], ",", "0", ",", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IfminvUpperCuts", "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"Select", "[", 
        RowBox[{"tabbcuts", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "17", "]"}], "]"}], "!=", "minvCutUpperZero"}], 
          "&"}]}], "]"}], "]"}], "==", "0"}], ",", "0", ",", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WhetherCuts", "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Total", "[", 
       RowBox[{"{", 
        RowBox[{
        "IfEcuts", ",", "IfEtotLowercuts", ",", "IfEtotUppercuts", ",", 
         "IfpTcuts", ",", "IfAngSepCuts", ",", "IfIPcuts", ",", "IfminvCuts", 
         ",", "IfminvLowerCuts", ",", "IfminvUpperCuts"}], "}"}], "]"}], "==",
       "0"}], ",", "0.", ",", "1."}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\"\<Any E cut\>\"", ",", 
      "\"\<Tot \!\(\*SubscriptBox[\(E\), \(lower\)]\) cut\>\"", ",", 
      "\"\<Tot \!\(\*SubscriptBox[\(E\), \(upper\)]\) cut\>\"", ",", 
      "\"\<\!\(\*SubscriptBox[\(p\), \(T\)]\) cut\>\"", ",", 
      "\"\<Angular cut\>\"", ",", "\"\<SS cut\>\"", ",", "\"\<IP cuts\>\"", 
      ",", "\"\<Any \!\(\*SubscriptBox[\(m\), \(inv\\\ cut\)]\)\>\"", ",", 
      "\"\<\!\(\*SubscriptBox[\(m\), \(inv, lower\)]\) cuts\>\"", ",", 
      "\"\<\!\(\*SubscriptBox[\(m\), \(inv, upper\)]\) cuts\>\""}], "}"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{
     "IfEcuts", ",", "IfEtotLowercuts", ",", "IfEtotUppercuts", ",", 
      "IfpTcuts", ",", "IfAngSepCuts", ",", "IfSScuts", ",", "IfIPcuts", ",", 
      "IfminvCuts", ",", "IfminvLowerCuts", ",", "IfminvUpperCuts"}], "}"}]}],
    "}"}], "//", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.9056986399863305`*^9, 3.90569870900927*^9}, {
   3.905699077854807*^9, 3.905699134114379*^9}, {3.90569988936072*^9, 
   3.905699910175376*^9}, 3.9057009285373697`*^9, {3.905700981301016*^9, 
   3.9057010102069345`*^9}, {3.905701142125745*^9, 3.9057011468211517`*^9}, {
   3.9058410302725835`*^9, 3.9058411258962774`*^9}, {3.9058465613625803`*^9, 
   3.905846678252503*^9}, {3.910175441451767*^9, 3.9101755084456563`*^9}, {
   3.9102485430536957`*^9, 3.9102485442094946`*^9}, {3.9121594142239914`*^9, 
   3.9121594145852356`*^9}, {3.9124986071171985`*^9, 3.912498826948338*^9}, {
   3.912498882509398*^9, 3.9124989104178066`*^9}, {3.9124989430220065`*^9, 
   3.912498974419062*^9}, {3.912499044644451*^9, 3.9124990691861334`*^9}, {
   3.91249911005711*^9, 3.912499139444146*^9}, {3.9124992016744165`*^9, 
   3.912499234845409*^9}, {3.9125011060840044`*^9, 3.9125011082754574`*^9}, {
   3.9125011843855104`*^9, 3.91250119970541*^9}, {3.9125043834641995`*^9, 
   3.912504383515438*^9}, 3.912533370616337*^9, {3.9125337972131047`*^9, 
   3.912533798136937*^9}, {3.912533831572016*^9, 3.912533894903903*^9}, {
   3.912535104413927*^9, 3.912535177278549*^9}, {3.912657569217199*^9, 
   3.9126575746206074`*^9}, {3.914993465366354*^9, 3.914993465381977*^9}, {
   3.9152065726584177`*^9, 3.9152065800973606`*^9}, {3.916155636187538*^9, 
   3.9161556515685587`*^9}, {3.916155722144123*^9, 3.916155722190012*^9}, {
   3.9161620710664806`*^9, 3.9161620816266932`*^9}, {3.916162183266341*^9, 
   3.916162183276497*^9}, 3.916162270347494*^9, {3.9186626338251057`*^9, 
   3.9186626484781156`*^9}, {3.918662697360613*^9, 3.918662807089285*^9}, {
   3.9186628592427177`*^9, 3.9186628598962355`*^9}, {3.918662905900796*^9, 
   3.91866290824734*^9}, {3.9199585731291175`*^9, 3.9199585734432507`*^9}, {
   3.933907096373375*^9, 3.93390709832308*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[124]:=",ExpressionUUID->"1c91b5c0-8d50-4730-b770-eb4306978c0a"]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Azimuthal acceptance calculation", "Chapter",
 CellChangeTimes->{{3.887780242487218*^9, 3.88778024992712*^9}, 
   3.8892551838725014`*^9, {3.89348893831735*^9, 3.8934889404126563`*^9}, {
   3.914299973625085*^9, 3.9142999797149916`*^9}, {3.915256050004428*^9, 
   3.915256055468033*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"afd7edaf-b6ab-40b8-995e-\
1ca3aea35549"],

Cell[CellGroupData[{

Cell["Geometry visualization", "Section",
 CellChangeTimes->{{3.914299954342377*^9, 3.914299958414243*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"196fc823-5b82-41f5-adba-\
9d2cefb31a82"],

Cell[BoxData[{
 RowBox[{"Print", "[", "\"\<List of geometric parameters:\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"GeometryGivenExperiment", "\[Equal]", "\"\<Cylinder\>\""}], "||", 
    RowBox[{
    "GeometryGivenExperiment", "\[Equal]", "\"\<Annular cylinder\>\""}]}], 
   ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<Orientation of the detector cross section wrt beamline\>\"", ",", 
        "\"\<Decay volume geometry type\>\"", ",", 
        "\"\<\!\(\*FractionBox[SubscriptBox[\(l\), \(to\\\ fid\)], \(m\)]\)\>\
\"", ",", "\"\<\!\(\*FractionBox[SubscriptBox[\(l\), \(fid\)], \(m\)]\)\>\"", 
        ",", "\"\<\!\(\*FractionBox[SubscriptBox[\(l\), \(fid + det\)], \
\(m\)]\)\>\"", ",", 
        "\"\<\!\(\*FractionBox[SubscriptBox[\(R\), \(inner, dec\\\ vol\)], \
\(m\)]\)\>\"", ",", 
        "\"\<\!\(\*FractionBox[SubscriptBox[\(R\), \(outer, dec\\\ vol\)], \
\(m\)]\)\>\"", ",", 
        "\"\<\!\(\*FractionBox[SubscriptBox[\(R\), \(inner, det\)], \
\(m\)]\)\>\"", ",", 
        "\"\<\!\(\*FractionBox[SubscriptBox[\(R\), \(outer, det\)], \
\(m\)]\)\>\"", ",", 
        "\"\<\!\(\*FractionBox[SubscriptBox[\(\[Theta]\), \(min, decay\\\ \
volume\)], \(rad\)]\)\>\"", ",", 
        "\"\<\!\(\*FractionBox[SubscriptBox[\(\[Theta]\), \(max, decay\\\ \
volume\)], \(rad\)]\)\>\"", ",", 
        "\"\<\!\(\*FractionBox[SubscriptBox[\(\[Theta]\), \(min, det\)], \
\(rad\)]\)\>\"", ",", 
        "\"\<\!\(\*FractionBox[SubscriptBox[\(\[Theta]\), \(max, det\)], \
\(rad\)]\)\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "DetectorPlaneOrientationGivenExperiment", ",", 
        "GeometryGivenExperiment", ",", "zToDecayVolumeGivenExperiment", ",", 
        "dzFidGivenExperiment", ",", "xLongMaxDetectorGivenExperiment", ",", 
        RowBox[{"RinnerDecayVolumeGivenExperiment", "[", "z", "]"}], ",", 
        RowBox[{"RouterDecayVolumeGivenExperiment", "[", "z", "]"}], ",", 
        "RinnerDetectorGivenExperiment", ",", "RouterDetectorGivenExperiment",
         ",", "ThetaDecVolGivenExperimentMin", ",", 
        "ThetaDecVolGivenExperimentMax", ",", "ThetaDetGivenExperimentMin", 
        ",", "ThetaDetGivenExperimentMax"}], "}"}]}], "}"}], "//", 
    "TableForm"}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<Orientation of the detector cross section wrt beamline\>\"", ",", 
        "\"\<Decay volume geometry type\>\"", ",", 
        "\"\<\!\(\*FractionBox[SubscriptBox[\(l\), \(to\\\ fid\)], \(m\)]\)\>\
\"", ",", "\"\<\!\(\*FractionBox[SubscriptBox[\(l\), \(fid\)], \(m\)]\)\>\"", 
        ",", "\"\<\!\(\*FractionBox[SubscriptBox[\(l\), \(fid + det\)], \
\(m\)]\)\>\"", ",", 
        "\"\<\!\(\*FractionBox[SubscriptBox[\(\[CapitalDelta]x\), \(1\\\ dec \
. vol . \)], \(m\)]\)\>\"", ",", 
        "\"\<\!\(\*FractionBox[SubscriptBox[\(\[CapitalDelta]x\), \(2\\\ dec \
. vol . \)], \(m\)]\)\>\"", ",", 
        "\"\<\!\(\*FractionBox[SubscriptBox[\(\[CapitalDelta]x\), \(1 \( \
det\(.\)\)\)], \(m\)]\)\>\"", ",", 
        "\"\<\!\(\*FractionBox[SubscriptBox[\(\[CapitalDelta]x\), \(2 \( \
det\(.\)\)\)], \(m\)]\)\>\"", ",", 
        "\"\<\!\(\*FractionBox[SubscriptBox[\(\[Theta]\), \(min, decay\\\ \
volume\)], \(rad\)]\)\>\"", ",", 
        "\"\<\!\(\*FractionBox[SubscriptBox[\(\[Theta]\), \(max, decay\\\ \
volume\)], \(rad\)]\)\>\"", ",", 
        "\"\<\!\(\*FractionBox[SubscriptBox[\(\[Theta]\), \(min, det\)], \
\(rad\)]\)\>\"", ",", 
        "\"\<\!\(\*FractionBox[SubscriptBox[\(\[Theta]\), \(max, det\)], \
\(rad\)]\)\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "DetectorPlaneOrientationGivenExperiment", ",", 
        "GeometryGivenExperiment", ",", "zToDecayVolumeGivenExperiment", ",", 
        "dzFidGivenExperiment", ",", "xLongMaxDetectorGivenExperiment", ",", 
        RowBox[{"dxDecayVolumeGivenExperiment", "[", "z", "]"}], ",", 
        RowBox[{"dyDecayVolumeGivenExperiment", "[", "z", "]"}], ",", 
        "dxDetectorGivenExperimentMax", ",", "dyDetectorGivenExperimentMax", 
        ",", "ThetaDecVolGivenExperimentMin", ",", 
        "ThetaDecVolGivenExperimentMax", ",", "ThetaDetGivenExperimentMin", 
        ",", "ThetaDetGivenExperimentMax"}], "}"}]}], "}"}], "//", 
    "TableForm"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "Print", "[", 
   "\"\<Experiment geometry. Black point - collision point. The blue domain - \
decay volume. The red domain - detector. The green plane - final plane:\>\"", 
   "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Block", " ", "defining", " ", "relevant", " ", "plots"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"ExperimentPlots", ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"BoxRatioz", "=", "3"}], ";", "\[IndentingNewLine]", 
     RowBox[{"PlotOrigin", "=", 
      RowBox[{"(*", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
         "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", 
          "\"\<False\>\""}], ","}]}], "*)"}], 
      RowBox[{"Graphics3D", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"PointSize", "[", "0.05", "]"}], ",", "Black", ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"Axes", "\[Rule]", "True"}], ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"\"\<x\>\"", ",", "24", ",", "Bold", ",", "Black"}], 
            "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<y\>\"", ",", "24", ",", "Bold", ",", "Black"}], 
            "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<z\>\"", ",", "24", ",", "Bold", ",", "Black"}], 
            "]"}]}], "}"}]}], ",", 
        RowBox[{"AxesOrigin", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
        RowBox[{"ViewProjection", "\[Rule]", "\"\<Orthographic\>\""}], ",", 
        RowBox[{"ViewCenter", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
        RowBox[{"ViewPoint", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.7"}], ",", "0.25", ",", 
           RowBox[{"-", "2"}]}], "}"}]}], ",", 
        RowBox[{"ViewVertical", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ",", 
        RowBox[{"BoxRatios", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "BoxRatioz"}], "}"}]}], ",", 
        RowBox[{"AxesStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Thickness", "[", "0.03", "]"}], "}"}]}], ",", 
        RowBox[{"LabelStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Directive", "[", 
           RowBox[{"Black", ",", "20"}], "]"}], "}"}]}]}], "]"}]}], 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{",", 
        RowBox[{"Graphics3D", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"PointSize", "[", "0.05", "]"}], ",", "Black", ",", 
            RowBox[{"Point", "[", 
             RowBox[{"{", 
              RowBox[{"0", ",", "0", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
          RowBox[{"Axes", "\[Rule]", "True"}], ",", 
          RowBox[{"AxesLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"\"\<x\>\"", ",", "24", ",", "Bold", ",", "Black"}], 
              "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<y\>\"", ",", "24", ",", "Bold", ",", "Black"}], 
              "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<z\>\"", ",", "24", ",", "Bold", ",", "Black"}], 
              "]"}]}], "}"}]}], ",", 
          RowBox[{"AxesOrigin", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
          RowBox[{"ViewProjection", "\[Rule]", "\"\<Orthographic\>\""}], ",", 
          RowBox[{"ViewCenter", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
          RowBox[{"ViewPoint", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "0.7"}], ",", "0.25", ",", 
             RowBox[{"-", "2"}]}], "}"}]}], ",", 
          RowBox[{"ViewVertical", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ",", 
          RowBox[{"BoxRatios", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1", ",", "BoxRatioz"}], "}"}]}], ",", 
          RowBox[{"AxesStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"Thickness", "[", "0.03", "]"}], "}"}]}], ",", 
          RowBox[{"LabelStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"Directive", "[", 
             RowBox[{"Black", ",", "20"}], "]"}], "}"}]}]}], "]"}]}], "]"}], 
      "*)"}], ";", "\[IndentingNewLine]", 
     RowBox[{"PlotFinalPlane", "=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
        "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}],
         ",", 
        RowBox[{"Graphics3D", "[", 
         RowBox[{"{", 
          RowBox[{"Green", ",", 
           RowBox[{"Opacity", "[", "0.2", "]"}], ",", 
           "FinalPlaneGivenExperiment"}], "}"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotDecayVolume", "=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
         "GeometryGivenExperiment", "\[Equal]", "\"\<Annular cylinder\>\""}], 
         "&&", 
         RowBox[{
          RowBox[{"MemberQ", "[", 
           RowBox[{"explistlhcb", ",", "GivenExperiment"}], "]"}], "==", 
          "False"}]}], ",", 
        RowBox[{"Show", "[", 
         RowBox[{
          RowBox[{"Region", "[", 
           RowBox[{"Style", "[", 
            RowBox[{"finAnnular", ",", "White", ",", 
             RowBox[{"Opacity", "[", "1", "]"}], ",", 
             RowBox[{"EdgeForm", "[", 
              RowBox[{"Directive", "[", 
               RowBox[{
                RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Blue", ",", 
                RowBox[{"Opacity", "\[Rule]", " ", "1"}]}], "]"}], "]"}]}], 
            "]"}], "]"}], ",", 
          RowBox[{"Region", "[", 
           RowBox[{"Style", "[", 
            RowBox[{"foutAnnular", ",", "Blue", ",", 
             RowBox[{"Opacity", "[", "0.3", "]"}], ",", 
             RowBox[{"EdgeForm", "[", 
              RowBox[{"Directive", "[", 
               RowBox[{
                RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Blue", ",", 
                RowBox[{"Opacity", "\[Rule]", " ", "0.1"}]}], "]"}], "]"}]}], 
            "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"Region", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"DecayVolumeGeometryGivenExperiment", ",", "Blue", ",", 
            RowBox[{"Opacity", "[", "0.2", "]"}], ",", 
            RowBox[{"EdgeForm", "[", 
             RowBox[{"{", 
              RowBox[{"Thick", ",", "Blue"}], "}"}], "]"}]}], "]"}], ",", 
          RowBox[{"BoxRatios", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1", ",", "BoxRatioz"}], "}"}]}], ",", 
          RowBox[{"Boxed", "\[Rule]", "True"}], ",", 
          RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
       "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"PlotDetector", "=", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
           "GeometryGivenExperiment", "\[Equal]", 
            "\"\<Annular cylinder\>\""}], "&&", 
           RowBox[{
            RowBox[{"MemberQ", "[", 
             RowBox[{"explistlhcb", ",", "GivenExperiment"}], "]"}], "==", 
            "False"}]}], ",", 
          RowBox[{"Show", "[", 
           RowBox[{
            RowBox[{"Region", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"finDetAnnular", ",", "White", ",", 
               RowBox[{"Opacity", "[", "1", "]"}], ",", 
               RowBox[{"EdgeForm", "[", 
                RowBox[{"Directive", "[", 
                 RowBox[{
                  RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Red", ",", 
                  RowBox[{"Opacity", "\[Rule]", " ", "1"}]}], "]"}], "]"}]}], 
              "]"}], "]"}], ",", 
            RowBox[{"Region", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"foutDetAnnular", ",", "Red", ",", 
               RowBox[{"Opacity", "[", "0.2", "]"}], ",", 
               RowBox[{"EdgeForm", "[", 
                RowBox[{"Directive", "[", 
                 RowBox[{
                  RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Red", ",", 
                  RowBox[{"Opacity", "\[Rule]", " ", "0.1"}]}], "]"}], 
                "]"}]}], "]"}], "]"}]}], "]"}], ",", 
          RowBox[{"Region", "[", 
           RowBox[{
            RowBox[{"Style", "[", 
             RowBox[{"DetectorGeometryGivenExperiment", ",", "Red", ",", 
              RowBox[{"Opacity", "[", "0.3", "]"}], ",", 
              RowBox[{"EdgeForm", "[", 
               RowBox[{"{", 
                RowBox[{"Thick", ",", "Red"}], "}"}], "]"}]}], "]"}], ",", 
            RowBox[{"BoxRatios", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"1", ",", "1", ",", "BoxRatioz"}], "}"}]}], ",", 
            RowBox[{"Boxed", "\[Rule]", "True"}], ",", 
            RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]}], "]"}]}]}], "]"}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"PlotFullGeometry", "=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
        "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}],
         ",", 
        RowBox[{"Show", "[", 
         RowBox[{
         "PlotOrigin", ",", "PlotFinalPlane", ",", "PlotDecayVolume", ",", 
          "PlotDetector"}], "]"}], ",", 
        RowBox[{"Show", "[", 
         RowBox[{"PlotOrigin", ",", "PlotDecayVolume"}], "]"}]}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"Plot\[Theta]minmaxDecayVolume", "=", 
      RowBox[{"Show", "[", 
       RowBox[{"PlotOrigin", ",", "PlotDecayVolume", ",", 
        RowBox[{"Graphics3D", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Thick", ",", "Black", ",", 
            RowBox[{"Arrowheads", "[", "Large", "]"}], ",", 
            RowBox[{"Arrow", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"x", ",", "y", ",", "z"}], "}"}], "@@@", 
                "R\[Theta]minDecayVolume"}]}], "}"}], "]"}], ",", "Thick", 
            ",", 
            RowBox[{"Darker", "@", 
             RowBox[{"Darker", "@", "Green"}]}], ",", 
            RowBox[{"Arrow", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"x", ",", "y", ",", "z"}], "}"}], "@@@", 
                "R\[Theta]maxDecayVolume"}]}], "}"}], "]"}]}], "}"}], ",", 
          RowBox[{"ViewPoint", "\[Rule]", "Right"}]}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Plot\[Theta]minmaxDetector", "=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
        "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}],
         ",", 
        RowBox[{"Show", "[", 
         RowBox[{"PlotOrigin", ",", "PlotDetector", ",", 
          RowBox[{"Graphics3D", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Thick", ",", "Black", ",", 
              RowBox[{"Arrowheads", "[", "Large", "]"}], ",", 
              RowBox[{"Arrow", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"x", ",", "y", ",", "z"}], "}"}], "@@@", 
                  "R\[Theta]minEndDetector"}]}], "}"}], "]"}], ",", "Thick", 
              ",", 
              RowBox[{"Darker", "@", 
               RowBox[{"Darker", "@", "Green"}]}], ",", 
              RowBox[{"Arrow", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"x", ",", "y", ",", "z"}], "}"}], "@@@", 
                  "R\[Theta]maxEndDetector"}]}], "}"}], "]"}]}], "}"}], ",", 
            RowBox[{"ViewPoint", "\[Rule]", "Right"}]}], "]"}]}], "]"}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
       "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
        "PlotFullGeometry", ",", "Plot\[Theta]minmaxDecayVolume", ",", 
         "Plot\[Theta]minmaxDetector"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"PlotFullGeometry", ",", "Plot\[Theta]minmaxDecayVolume"}], 
        "}"}]}], "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"expplots", "=", "ExperimentPlots"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"expplots", "[", 
  RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  "\"\<Plots checking the correctness of evaluation of \!\(\*SubscriptBox[\(\
\[Theta]\), \(min\)]\), \!\(\*SubscriptBox[\(\[Theta]\), \(max\)]\) of \
detector and decay volume. The coordinates defining these angles are shown by \
arrows (black - \!\(\*SubscriptBox[\(\[Theta]\), \(min\)]\), green - \
\!\(\*SubscriptBox[\(\[Theta]\), \(max\)]\)):\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"expplots", "[", 
  RowBox[{"[", "2", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
   "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}], ",", 
   RowBox[{"expplots", "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.825956365143117*^9, 3.825956594603039*^9}, {
   3.825956639138173*^9, 3.8259566951232643`*^9}, {3.8259567458138437`*^9, 
   3.825956806430951*^9}, 3.826174227701232*^9, {3.826174279077594*^9, 
   3.8261742790878735`*^9}, {3.8261743689836626`*^9, 
   3.8261743974872384`*^9}, {3.826174438534629*^9, 3.8261744872701063`*^9}, {
   3.8261745377646055`*^9, 3.826174597636716*^9}, {3.8261747227067757`*^9, 
   3.826174778820718*^9}, {3.82617484147989*^9, 3.826174880338788*^9}, {
   3.8261756283121557`*^9, 3.8261757367218485`*^9}, {3.826176838789134*^9, 
   3.82617685682335*^9}, 3.8261768957778873`*^9, {3.8261769949040422`*^9, 
   3.8261770079529552`*^9}, {3.826177079833296*^9, 3.8261772008375673`*^9}, 
   3.8261772548370833`*^9, {3.8262087559101334`*^9, 3.826208759688676*^9}, {
   3.826209135347348*^9, 3.826209189134854*^9}, {3.826215525489664*^9, 
   3.826215548002664*^9}, {3.826215612174975*^9, 3.8262156193793955`*^9}, {
   3.826276511085209*^9, 3.8262765116449003`*^9}, {3.826277041452999*^9, 
   3.826277044404993*^9}, {3.826294083156717*^9, 3.826294083601572*^9}, {
   3.8263553215733786`*^9, 3.8263553240457277`*^9}, {3.8263565262452602`*^9, 
   3.826356530520653*^9}, {3.826365322992877*^9, 3.826365323193494*^9}, {
   3.8263662734436865`*^9, 3.8263662816922183`*^9}, {3.8263663426934376`*^9, 
   3.8263663452347326`*^9}, {3.826382470367403*^9, 3.826382470900257*^9}, {
   3.826386559325774*^9, 3.8263865608675046`*^9}, {3.82642659051136*^9, 
   3.826426591085026*^9}, {3.8266244584174986`*^9, 3.826624461181554*^9}, {
   3.8266245213542824`*^9, 3.826624550581012*^9}, {3.826625322212205*^9, 
   3.826625322399582*^9}, {3.8266266867770967`*^9, 3.8266266868395824`*^9}, {
   3.826627618715682*^9, 3.8266276187627187`*^9}, {3.826628269260454*^9, 
   3.8266282693225236`*^9}, {3.826628862217388*^9, 3.826628862279874*^9}, {
   3.826629691595128*^9, 3.82662969608685*^9}, {3.826630679846695*^9, 
   3.8266306799872866`*^9}, {3.8266312958691635`*^9, 3.826631295962892*^9}, {
   3.826632031198574*^9, 3.8266320312922697`*^9}, {3.826632815086954*^9, 
   3.82663281516746*^9}, {3.8266343862989063`*^9, 3.8266343873302813`*^9}, 
   3.8266485254307227`*^9, {3.826649210475975*^9, 3.8266492211694174`*^9}, {
   3.826649758129819*^9, 3.826649758254792*^9}, {3.8266503065941668`*^9, 
   3.82665031042266*^9}, {3.8271599955467873`*^9, 3.827160004675808*^9}, {
   3.828435290079751*^9, 3.8284352906991887`*^9}, {3.850467495287562*^9, 
   3.8504675634972167`*^9}, {3.8504691277578497`*^9, 3.850469128520671*^9}, {
   3.850499950014495*^9, 3.85049999913968*^9}, {3.8509285693201075`*^9, 
   3.850928573697862*^9}, {3.850928640787422*^9, 3.850928642316141*^9}, {
   3.8509294228448524`*^9, 3.8509294380827675`*^9}, 3.8509295963101377`*^9, {
   3.8509297236672688`*^9, 3.8509297426005926`*^9}, {3.850929935733897*^9, 
   3.850929955046142*^9}, {3.8509304148364277`*^9, 3.8509305038476562`*^9}, {
   3.850930545300007*^9, 3.85093054754897*^9}, {3.851499227148847*^9, 
   3.8514992289738607`*^9}, {3.851500623401193*^9, 3.8515006342921877`*^9}, {
   3.8515833687275105`*^9, 3.851583373978677*^9}, {3.8528032045178256`*^9, 
   3.852803208991775*^9}, {3.8528034951853237`*^9, 3.8528034970072174`*^9}, {
   3.8528045573545036`*^9, 3.852804560389414*^9}, {3.852804835632132*^9, 
   3.852804841702063*^9}, {3.852806625469674*^9, 3.852806625532926*^9}, {
   3.852807250382444*^9, 3.8528072513268347`*^9}, {3.8528783202065444`*^9, 
   3.852878325603436*^9}, {3.8529578209985056`*^9, 3.8529578243697357`*^9}, {
   3.852958123425809*^9, 3.8529581386059055`*^9}, {3.852958173069934*^9, 
   3.8529582061257534`*^9}, {3.8529582876724834`*^9, 
   3.8529583359522996`*^9}, {3.852959756214597*^9, 3.8529598334211664`*^9}, {
   3.852959995664804*^9, 3.8529599997102175`*^9}, {3.8529603009344444`*^9, 
   3.8529603022109013`*^9}, 3.8529712250155697`*^9, {3.852971704981101*^9, 
   3.852971708055544*^9}, {3.8529718968466835`*^9, 3.8529718971469746`*^9}, {
   3.852986875248063*^9, 3.85298687531942*^9}, {3.8529950966334662`*^9, 
   3.8529950967164373`*^9}, {3.853006239309314*^9, 3.853006264004365*^9}, {
   3.8532275824024944`*^9, 3.853227587657615*^9}, 3.853227675554842*^9, {
   3.8532277070394106`*^9, 3.8532277158309155`*^9}, {3.8532297688350086`*^9, 
   3.8532297710504303`*^9}, {3.853231501471925*^9, 3.8532315024182997`*^9}, {
   3.853296957706148*^9, 3.8532969604780035`*^9}, {3.8532970292597275`*^9, 
   3.8532970307999773`*^9}, {3.8532971163410177`*^9, 3.853297117981124*^9}, {
   3.8532995892044926`*^9, 3.8532995942920537`*^9}, {3.8533059874693727`*^9, 
   3.8533060247646646`*^9}, {3.853306908431706*^9, 3.8533069085097237`*^9}, {
   3.8533076777042613`*^9, 3.853307677829238*^9}, {3.853314999913702*^9, 
   3.8533150060713415`*^9}, {3.85349218799399*^9, 3.8534921881364822`*^9}, {
   3.853493116675372*^9, 3.853493129881076*^9}, {3.853493359588817*^9, 
   3.8534933598613515`*^9}, {3.85349507699749*^9, 3.853495077078428*^9}, {
   3.8534953328938217`*^9, 3.853495352266725*^9}, {3.8534967745531178`*^9, 
   3.853496774681977*^9}, {3.853497401283848*^9, 3.853497403425479*^9}, {
   3.8534982870771756`*^9, 3.853498287118455*^9}, {3.8535759797148013`*^9, 
   3.8535759798607817`*^9}, {3.853577218599348*^9, 3.8535772187899885`*^9}, {
   3.8535774498423386`*^9, 3.853577460384327*^9}, {3.853843410104349*^9, 
   3.85384341047168*^9}, {3.8539602261086035`*^9, 3.85396024302984*^9}, {
   3.8539630970227976`*^9, 3.8539631046207457`*^9}, {3.8539883168256674`*^9, 
   3.853988339204003*^9}, {3.8539891798339834`*^9, 3.8539891823786416`*^9}, {
   3.8539913187117863`*^9, 3.8539913194658256`*^9}, {3.8539936954770594`*^9, 
   3.8539936967857275`*^9}, {3.8539951663236284`*^9, 
   3.8539951679712896`*^9}, {3.8540128376081357`*^9, 3.854012842986621*^9}, {
   3.85401357277214*^9, 3.854013595228566*^9}, {3.8540139501961756`*^9, 
   3.854013966282782*^9}, {3.854013999930187*^9, 3.8540139999891853`*^9}, {
   3.8540148285614233`*^9, 3.8540148463384266`*^9}, {3.854014990779154*^9, 
   3.854015000807702*^9}, 3.854015031436695*^9, 3.8540151915925145`*^9, {
   3.8540166669956255`*^9, 3.854016684731978*^9}, {3.8544363766751003`*^9, 
   3.854436381681647*^9}, {3.8563369572773275`*^9, 3.8563369582078624`*^9}, {
   3.8563370902949467`*^9, 3.8563370990553946`*^9}, {3.862461479949154*^9, 
   3.8624614867180023`*^9}, {3.862461527840933*^9, 3.862461537063151*^9}, {
   3.8624673723361034`*^9, 3.862467388941471*^9}, {3.8624676844900055`*^9, 
   3.8624676982883945`*^9}, {3.862468428097989*^9, 3.862468479208429*^9}, {
   3.862471177396188*^9, 3.8624711776455*^9}, {3.8628863137112427`*^9, 
   3.8628863160549574`*^9}, {3.8635253741039777`*^9, 
   3.8635253750467386`*^9}, {3.8635294043498554`*^9, 3.863529409323*^9}, {
   3.863533621587082*^9, 3.8635336223476915`*^9}, {3.863535912919916*^9, 
   3.863535914096141*^9}, {3.8635377403748875`*^9, 3.8635377411126356`*^9}, {
   3.863595550774267*^9, 3.8635955824940205`*^9}, {3.863601307569187*^9, 
   3.8636013114902773`*^9}, {3.87144516036684*^9, 3.87144516742832*^9}, {
   3.8751685732326174`*^9, 3.875168576872418*^9}, {3.8756747368429804`*^9, 
   3.8756747631457386`*^9}, {3.8762782977538986`*^9, 
   3.8762782981737995`*^9}, {3.8762798370937967`*^9, 3.876279837895527*^9}, {
   3.876280781763356*^9, 3.876280783109684*^9}, {3.8768386038044615`*^9, 
   3.8768386057477093`*^9}, {3.8771403330279713`*^9, 
   3.8771403534172273`*^9}, {3.8771406149139442`*^9, 3.877140623724622*^9}, {
   3.877145711598572*^9, 3.877145714544186*^9}, {3.877146005147329*^9, 
   3.8771460061810236`*^9}, {3.8771470913941975`*^9, 3.87714709221233*^9}, {
   3.8771594781033134`*^9, 3.8771595027583675`*^9}, {3.877162983584063*^9, 
   3.877162983800886*^9}, {3.8771631279487925`*^9, 3.8771631289072723`*^9}, {
   3.8771667409051046`*^9, 3.877166743818491*^9}, {3.877288216918637*^9, 
   3.8772882184872494`*^9}, {3.877374749967346*^9, 3.8773747503680725`*^9}, {
   3.8774051330142574`*^9, 3.877405138232565*^9}, {3.8774057600968313`*^9, 
   3.8774057607615523`*^9}, {3.8774064637325835`*^9, 3.877406465601571*^9}, {
   3.87754058093118*^9, 3.8775406149365063`*^9}, {3.877541312852316*^9, 
   3.877541315043932*^9}, {3.877541350825565*^9, 3.8775414048755045`*^9}, {
   3.8775415235789247`*^9, 3.87754153620078*^9}, {3.877541987161762*^9, 
   3.877542027890043*^9}, {3.877542311158325*^9, 3.877542314652703*^9}, {
   3.8775931915777874`*^9, 3.87759320345807*^9}, {3.877602928219652*^9, 
   3.877602936830098*^9}, {3.8776029777897367`*^9, 3.8776029965800548`*^9}, {
   3.8776030301007576`*^9, 3.8776030574338703`*^9}, {3.877603093631563*^9, 
   3.8776031306316204`*^9}, {3.87760316827796*^9, 3.877603255802842*^9}, {
   3.8776034751667595`*^9, 3.877603491372362*^9}, {3.877674820056176*^9, 
   3.877674826905699*^9}, {3.8776785042319937`*^9, 3.8776785196881943`*^9}, {
   3.8776786829290595`*^9, 3.8776786843583126`*^9}, {3.877757285445782*^9, 
   3.8777572859786453`*^9}, {3.878004133981702*^9, 3.878004140311355*^9}, {
   3.883498509222905*^9, 3.8834985558810563`*^9}, {3.8834985932522573`*^9, 
   3.883498603951802*^9}, {3.8834991780088425`*^9, 3.883499201867895*^9}, {
   3.883499233076923*^9, 3.8834993629011445`*^9}, {3.8834994838005047`*^9, 
   3.883499484187072*^9}, {3.883499573584256*^9, 3.883499575254227*^9}, {
   3.883499709187394*^9, 3.8834997105943604`*^9}, {3.883499764528289*^9, 
   3.883499765303599*^9}, {3.883503700274593*^9, 3.8835037006588645`*^9}, {
   3.8835873564956913`*^9, 3.883587362679266*^9}, {3.8835874233395677`*^9, 
   3.883587663636985*^9}, {3.8835878676875477`*^9, 3.883587917445979*^9}, {
   3.8835892222409697`*^9, 3.883589227952155*^9}, 3.8835892852788954`*^9, {
   3.8835893822908783`*^9, 3.8835893853615727`*^9}, {3.883589687869655*^9, 
   3.8835897668784*^9}, 3.883589844249633*^9, {3.8835909265393844`*^9, 
   3.88359096617505*^9}, {3.883591018401631*^9, 3.8835910184394164`*^9}, 
   3.8835910500160418`*^9, {3.883591140717256*^9, 3.8835911430597353`*^9}, {
   3.8835919670600433`*^9, 3.8835921385057764`*^9}, {3.88359220357992*^9, 
   3.8835923007567425`*^9}, {3.8835923395478296`*^9, 3.8835923504166255`*^9}, 
   3.883592428606818*^9, {3.8844291782436666`*^9, 3.884429202017655*^9}, {
   3.8844292330200257`*^9, 3.884429238042514*^9}, {3.884510205609804*^9, 
   3.8845102080422745`*^9}, {3.8848390050688443`*^9, 3.884839119858816*^9}, {
   3.884841431743863*^9, 3.8848414323251543`*^9}, {3.8848427311964483`*^9, 
   3.8848427337408295`*^9}, {3.884843410548025*^9, 3.884843428144661*^9}, {
   3.8848436660903177`*^9, 3.884843667959622*^9}, {3.88492292451219*^9, 
   3.8849229250456142`*^9}, {3.884922962608306*^9, 3.884922971521206*^9}, {
   3.884923015576038*^9, 3.8849230318428783`*^9}, {3.8849235958939724`*^9, 
   3.884923596052619*^9}, {3.885007075154869*^9, 3.8850070994623647`*^9}, {
   3.8850104227741995`*^9, 3.8850104227807093`*^9}, {3.885011324801709*^9, 
   3.8850113257620783`*^9}, {3.885011644548875*^9, 3.8850117217302785`*^9}, {
   3.885012006053252*^9, 3.885012032399571*^9}, {3.8852677825694056`*^9, 
   3.885267783290226*^9}, {3.8852787680160513`*^9, 3.8852787881993227`*^9}, {
   3.885396711428417*^9, 3.885396711886171*^9}, {3.8861412532586255`*^9, 
   3.8861412743481636`*^9}, {3.886141314390862*^9, 3.8861413278136773`*^9}, {
   3.8861417528849745`*^9, 3.886141755026517*^9}, {3.8861493617505045`*^9, 
   3.8861493723848763`*^9}, {3.8861508791202383`*^9, 
   3.8861509026476636`*^9}, {3.8862200314745693`*^9, 
   3.8862200679233475`*^9}, {3.8862260873495245`*^9, 
   3.8862261112029495`*^9}, {3.8862261645877233`*^9, 3.88622616460219*^9}, {
   3.886230844404947*^9, 3.886230862583522*^9}, {3.8862309328938713`*^9, 
   3.8862309598613267`*^9}, {3.8862310577457933`*^9, 
   3.8862311808478036`*^9}, {3.886231228059482*^9, 3.8862313188510137`*^9}, {
   3.886237765522685*^9, 3.8862378274045863`*^9}, {3.8862378629375343`*^9, 
   3.8862378901875167`*^9}, {3.8862379549183173`*^9, 3.886237955435117*^9}, {
   3.8862391426129045`*^9, 3.8862391431643424`*^9}, {3.8862395071290264`*^9, 
   3.886239507638805*^9}, {3.8863238377788067`*^9, 3.8863238393123875`*^9}, 
   3.886324119489802*^9, {3.886324673630917*^9, 3.886324673638929*^9}, {
   3.88632621176244*^9, 3.8863262589435287`*^9}, {3.886406582321301*^9, 
   3.886406587026905*^9}, {3.8864066860581183`*^9, 3.886406701820095*^9}, {
   3.8864067698263855`*^9, 3.886406791744671*^9}, {3.886433833164854*^9, 
   3.8864339708425026`*^9}, {3.8864340286885023`*^9, 3.886434033887722*^9}, {
   3.8864340700511413`*^9, 3.8864341788899813`*^9}, {3.886434226375106*^9, 
   3.886434278404689*^9}, {3.8864343109231253`*^9, 3.8864343604661355`*^9}, {
   3.886435839296185*^9, 3.886435876754363*^9}, {3.8864359232172594`*^9, 
   3.88643592662052*^9}, {3.8864360629775076`*^9, 3.8864360788653836`*^9}, {
   3.8864776193726225`*^9, 3.886477648567931*^9}, {3.8864776888330956`*^9, 
   3.8864777445707684`*^9}, {3.8872050736475096`*^9, 3.887205074331873*^9}, {
   3.8875285373489532`*^9, 3.887528560690392*^9}, {3.887528591450921*^9, 
   3.887528597093752*^9}, {3.887528820764593*^9, 3.8875288375380163`*^9}, 
   3.887528887078096*^9, {3.8875318892835026`*^9, 3.8875319586035614`*^9}, {
   3.8875319967534547`*^9, 3.8875319969974055`*^9}, {3.8875335528828545`*^9, 
   3.8875335716361732`*^9}, {3.8876126182562523`*^9, 3.887612629117178*^9}, 
   3.8876126644410224`*^9, {3.8877761667536545`*^9, 3.8877761679676905`*^9}, {
   3.8877802321984425`*^9, 3.8877803150966635`*^9}, 3.8877806054719987`*^9, {
   3.8884911147365327`*^9, 3.888491151826036*^9}, {3.8884913058523564`*^9, 
   3.8884913179779997`*^9}, {3.888491378393347*^9, 3.88849138012939*^9}, {
   3.8916778801839037`*^9, 3.8916779184025097`*^9}, {3.891764943238824*^9, 
   3.891764943238824*^9}, {3.891765730589286*^9, 3.891765730589286*^9}, {
   3.891788585750533*^9, 3.891788613820451*^9}, {3.891788683366307*^9, 
   3.8917886970906534`*^9}, {3.8934902619025764`*^9, 
   3.8934902745096645`*^9}, {3.897464162482134*^9, 3.897464170209798*^9}, {
   3.9015260720766373`*^9, 3.9015260733500795`*^9}, {3.904985405813881*^9, 
   3.904985437539192*^9}, {3.9102463207425604`*^9, 3.9102463207531176`*^9}, {
   3.910246384128518*^9, 3.9102463841372952`*^9}, {3.910430491038992*^9, 
   3.9104305072569857`*^9}, {3.910431276228114*^9, 3.910431308994628*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[139]:=",ExpressionUUID->"3632028b-cd8a-409b-8c3f-b9ecc02b6377"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"BoxRatioz", "=", "5"}], ";", "\[IndentingNewLine]", 
   RowBox[{"PlotOrigin", "=", 
    RowBox[{"(*", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
       "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}], 
       ","}]}], "*)"}], 
    RowBox[{"Graphics3D", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"PointSize", "[", "0.05", "]"}], ",", "Black", ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
      RowBox[{"Axes", "\[Rule]", "True"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<x\>\"", ",", "24", ",", "Bold", ",", "Black"}], "]"}], 
         ",", 
         RowBox[{"Style", "[", 
          RowBox[{"\"\<y\>\"", ",", "24", ",", "Bold", ",", "Black"}], "]"}], 
         ",", 
         RowBox[{"Style", "[", 
          RowBox[{"\"\<z\>\"", ",", "24", ",", "Bold", ",", "Black"}], 
          "]"}]}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"ViewProjection", "\[Rule]", "\"\<Orthographic\>\""}], ",", 
      RowBox[{"ViewCenter", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"ViewPoint", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.7"}], ",", "0.25", ",", 
         RowBox[{"-", "2"}]}], "}"}]}], ",", 
      RowBox[{"ViewVertical", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ",", 
      RowBox[{"BoxRatios", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "BoxRatioz"}], "}"}]}], ",", 
      RowBox[{"AxesStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Thickness", "[", "0.03", "]"}], "}"}]}], ",", 
      RowBox[{"LabelStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Directive", "[", 
         RowBox[{"Black", ",", "20"}], "]"}], "}"}]}]}], "]"}]}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{",", 
      RowBox[{"Graphics3D", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"PointSize", "[", "0.05", "]"}], ",", "Black", ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"Axes", "\[Rule]", "True"}], ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"\"\<x\>\"", ",", "24", ",", "Bold", ",", "Black"}], 
            "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<y\>\"", ",", "24", ",", "Bold", ",", "Black"}], 
            "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<z\>\"", ",", "24", ",", "Bold", ",", "Black"}], 
            "]"}]}], "}"}]}], ",", 
        RowBox[{"AxesOrigin", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
        RowBox[{"ViewProjection", "\[Rule]", "\"\<Orthographic\>\""}], ",", 
        RowBox[{"ViewCenter", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
        RowBox[{"ViewPoint", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.7"}], ",", "0.25", ",", 
           RowBox[{"-", "2"}]}], "}"}]}], ",", 
        RowBox[{"ViewVertical", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ",", 
        RowBox[{"BoxRatios", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "BoxRatioz"}], "}"}]}], ",", 
        RowBox[{"AxesStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Thickness", "[", "0.03", "]"}], "}"}]}], ",", 
        RowBox[{"LabelStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Directive", "[", 
           RowBox[{"Black", ",", "20"}], "]"}], "}"}]}]}], "]"}]}], "]"}], 
    "*)"}], ";", "\[IndentingNewLine]", 
   RowBox[{"PlotFinalPlane", "=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
      "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}], 
      ",", 
      RowBox[{"Graphics3D", "[", 
       RowBox[{"{", 
        RowBox[{"Green", ",", 
         RowBox[{"Opacity", "[", "0.2", "]"}], ",", 
         "FinalPlaneGivenExperiment"}], "}"}], "]"}]}], "]"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotDecayVolume", "=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
      "GeometryGivenExperiment", "\[Equal]", "\"\<Annular cylinder\>\""}], 
      ",", 
      RowBox[{"Show", "[", 
       RowBox[{
        RowBox[{"Region", "[", 
         RowBox[{"Style", "[", 
          RowBox[{"finAnnular", ",", "White", ",", 
           RowBox[{"Opacity", "[", "1", "]"}]}], 
          RowBox[{"(*", 
           RowBox[{",", 
            RowBox[{"EdgeForm", "[", 
             RowBox[{"Directive", "[", 
              RowBox[{
               RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Blue", ",", 
               RowBox[{"Opacity", "\[Rule]", " ", "1"}]}], "]"}], "]"}]}], 
           "*)"}], "]"}], "]"}], ",", 
        RowBox[{"Region", "[", 
         RowBox[{"Style", "[", 
          RowBox[{"foutAnnular", ",", "Blue", ",", 
           RowBox[{"Opacity", "[", "0.3", "]"}]}], 
          RowBox[{"(*", 
           RowBox[{",", 
            RowBox[{"EdgeForm", "[", 
             RowBox[{"Directive", "[", 
              RowBox[{
               RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Blue", ",", 
               RowBox[{"Opacity", "\[Rule]", " ", "0.1"}]}], "]"}], "]"}]}], 
           "*)"}], "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"Region", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"DecayVolumeGeometryGivenExperiment", ",", "Blue", ",", 
          RowBox[{"Opacity", "[", "0.2", "]"}]}], 
         RowBox[{"(*", 
          RowBox[{",", 
           RowBox[{"EdgeForm", "[", 
            RowBox[{"{", 
             RowBox[{"Thick", ",", "Blue"}], "}"}], "]"}]}], "*)"}], "]"}], 
        ",", 
        RowBox[{"BoxRatios", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "BoxRatioz"}], "}"}]}], ",", 
        RowBox[{"Boxed", "\[Rule]", "True"}], ",", 
        RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]}], "]"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotDetector", "=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
      "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}], 
      ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
         "GeometryGivenExperiment", "\[Equal]", "\"\<Annular cylinder\>\""}], 
         "&&", 
         RowBox[{"GivenExperiment", "!=", "\"\<LHCb-downstream-SciFi\>\""}]}],
         ",", 
        RowBox[{"Show", "[", 
         RowBox[{
          RowBox[{"Region", "[", 
           RowBox[{"Style", "[", 
            RowBox[{"finDetAnnular", ",", "White", ",", 
             RowBox[{"Opacity", "[", "1", "]"}]}], 
            RowBox[{"(*", 
             RowBox[{",", 
              RowBox[{"EdgeForm", "[", 
               RowBox[{"Directive", "[", 
                RowBox[{
                 RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Red", ",", 
                 RowBox[{"Opacity", "\[Rule]", " ", "1"}]}], "]"}], "]"}]}], 
             "*)"}], "]"}], "]"}], ",", 
          RowBox[{"Region", "[", 
           RowBox[{"Style", "[", 
            RowBox[{"foutDetAnnular", ",", "Red", ",", 
             RowBox[{"Opacity", "[", "0.2", "]"}]}], 
            RowBox[{"(*", 
             RowBox[{",", 
              RowBox[{"EdgeForm", "[", 
               RowBox[{"Directive", "[", 
                RowBox[{
                 RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Red", ",", 
                 RowBox[{"Opacity", "\[Rule]", " ", "0.1"}]}], "]"}], "]"}]}],
              "*)"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"Region", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"DetectorGeometryGivenExperiment", ",", "Red", ",", 
            RowBox[{"Opacity", "[", "0.3", "]"}]}], 
           RowBox[{"(*", 
            RowBox[{",", 
             RowBox[{"EdgeForm", "[", 
              RowBox[{"{", 
               RowBox[{"Thick", ",", "Red"}], "}"}], "]"}]}], "*)"}], "]"}], 
          ",", 
          RowBox[{"BoxRatios", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1", ",", "BoxRatioz"}], "}"}]}], ",", 
          RowBox[{"Boxed", "\[Rule]", "True"}], ",", 
          RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]}], "]"}]}], "]"}]}], 
   ";", "\[IndentingNewLine]", 
   RowBox[{"PlotFullGeometry", "=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
      "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}], 
      ",", 
      RowBox[{"Show", "[", 
       RowBox[{"PlotOrigin", 
        RowBox[{"(*", 
         RowBox[{",", "PlotFinalPlane"}], "*)"}], ",", "PlotDecayVolume", ",",
         "PlotDetector"}], "]"}], ",", 
      RowBox[{"Show", "[", 
       RowBox[{"PlotOrigin", ",", "PlotDecayVolume"}], "]"}]}], "]"}]}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.901516641144597*^9, 3.901516733937297*^9}, {
   3.9015210833672247`*^9, 3.901521085864131*^9}, 3.9074067821591396`*^9, {
   3.9101152889875193`*^9, 3.910115347902703*^9}, {3.910115440302128*^9, 
   3.910115443017173*^9}, {3.9101156141818647`*^9, 3.910115630494979*^9}, {
   3.9101156889928665`*^9, 3.910115690970359*^9}, {3.9101157579172363`*^9, 
   3.910115768885145*^9}, {3.910115809927973*^9, 3.9101158302631807`*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[148]:=",ExpressionUUID->"53f9b932-c093-46c2-8541-de00c649281f"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"BoxRatioz", "=", "3"}], ";", "\[IndentingNewLine]", 
   RowBox[{"PlotOrigin", "=", 
    RowBox[{"(*", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
       "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}], 
       ","}]}], "*)"}], 
    RowBox[{"Graphics3D", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"PointSize", "[", "0.05", "]"}], ",", "Black", ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
      RowBox[{"Axes", "\[Rule]", "True"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<x\>\"", ",", "24", ",", "Bold", ",", "Black"}], "]"}], 
         ",", 
         RowBox[{"Style", "[", 
          RowBox[{"\"\<y\>\"", ",", "24", ",", "Bold", ",", "Black"}], "]"}], 
         ",", 
         RowBox[{"Style", "[", 
          RowBox[{"\"\<z\>\"", ",", "24", ",", "Bold", ",", "Black"}], 
          "]"}]}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"ViewProjection", "\[Rule]", "\"\<Orthographic\>\""}], ",", 
      RowBox[{"ViewCenter", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"ViewPoint", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.7"}], ",", "0.25", ",", 
         RowBox[{"-", "2"}]}], "}"}]}], ",", 
      RowBox[{"ViewVertical", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ",", 
      RowBox[{"BoxRatios", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"1", ",", "0.75", ",", "BoxRatioz"}], "}"}]}], ",", 
      RowBox[{"AxesStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Thickness", "[", "0.03", "]"}], "}"}]}], ",", 
      RowBox[{"LabelStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Directive", "[", 
         RowBox[{"Black", ",", "20"}], "]"}], "}"}]}]}], "]"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"UT", "=", 
    RowBox[{"Polygon", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "2.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "1", ",", "2.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "2.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", 
         RowBox[{"-", "1"}], ",", "2.5"}], "}"}]}], "}"}], "]"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotUT", "=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
      "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}], 
      ",", 
      RowBox[{"Graphics3D", "[", 
       RowBox[{"{", 
        RowBox[{"Green", ",", 
         RowBox[{"Opacity", "[", "0.2", "]"}], ",", "UT"}], "}"}], "]"}]}], 
     "]"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"PlotDecayVolume", "=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
       "GeometryGivenExperiment", "\[Equal]", "\"\<Annular cylinder\>\""}], "&&", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{"explistlhcb", ",", "GivenExperiment"}], "]"}], "==", 
        "False"}]}], ",", 
      RowBox[{"Show", "[", 
       RowBox[{
        RowBox[{"Region", "[", 
         RowBox[{"Style", "[", 
          RowBox[{"finAnnular", ",", "White", ",", 
           RowBox[{"Opacity", "[", "1", "]"}], ",", 
           RowBox[{"EdgeForm", "[", 
            RowBox[{"Directive", "[", 
             RowBox[{
              RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Blue", ",", 
              RowBox[{"Opacity", "\[Rule]", " ", "1"}]}], "]"}], "]"}]}], 
          "]"}], "]"}], ",", 
        RowBox[{"Region", "[", 
         RowBox[{"Style", "[", 
          RowBox[{"foutAnnular", ",", "Blue", ",", 
           RowBox[{"Opacity", "[", "0.3", "]"}], ",", 
           RowBox[{"EdgeForm", "[", 
            RowBox[{"Directive", "[", 
             RowBox[{
              RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Blue", ",", 
              RowBox[{"Opacity", "\[Rule]", " ", "0.1"}]}], "]"}], "]"}]}], 
          "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"Region", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"DecayVolumeGeometryGivenExperiment", ",", "Blue", ",", 
          RowBox[{"Opacity", "[", "0.2", "]"}]}], "]"}], ",", 
        RowBox[{"BoxRatios", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "BoxRatioz"}], "}"}]}], ",", 
        RowBox[{"Boxed", "\[Rule]", "True"}], ",", 
        RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]}], "]"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotDetector", "=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
      "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}], 
      ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
         "GeometryGivenExperiment", "\[Equal]", "\"\<Annular cylinder\>\""}], 
         "&&", 
         RowBox[{
          RowBox[{"MemberQ", "[", 
           RowBox[{"explistlhcb", ",", "GivenExperiment"}], "]"}], "==", 
          "False"}]}], ",", 
        RowBox[{"Show", "[", 
         RowBox[{
          RowBox[{"Region", "[", 
           RowBox[{"Style", "[", 
            RowBox[{"finDetAnnular", ",", "White", ",", 
             RowBox[{"Opacity", "[", "1", "]"}], ",", 
             RowBox[{"EdgeForm", "[", 
              RowBox[{"Directive", "[", 
               RowBox[{
                RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Red", ",", 
                RowBox[{"Opacity", "\[Rule]", " ", "1"}]}], "]"}], "]"}]}], 
            "]"}], "]"}], ",", 
          RowBox[{"Region", "[", 
           RowBox[{"Style", "[", 
            RowBox[{"foutDetAnnular", ",", "Red", ",", 
             RowBox[{"Opacity", "[", "0.2", "]"}], ",", 
             RowBox[{"EdgeForm", "[", 
              RowBox[{"Directive", "[", 
               RowBox[{
                RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Red", ",", 
                RowBox[{"Opacity", "\[Rule]", " ", "0.1"}]}], "]"}], "]"}]}], 
            "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"Region", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"DetectorGeometryGivenExperiment", ",", "Red", ",", 
            RowBox[{"Opacity", "[", "0.3", "]"}]}], "]"}], ",", 
          RowBox[{"BoxRatios", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1", ",", "BoxRatioz"}], "}"}]}], ",", 
          RowBox[{"Boxed", "\[Rule]", "True"}], ",", 
          RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]}], "]"}]}], "]"}]}], 
   ";", "\[IndentingNewLine]", 
   RowBox[{"PlotFullGeometry", "=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
      "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}], 
      ",", 
      RowBox[{"Show", "[", 
       RowBox[{
       "PlotOrigin", ",", "PlotUT", ",", "PlotDecayVolume", ",", 
        "PlotDetector"}], "]"}], ",", 
      RowBox[{"Show", "[", 
       RowBox[{"PlotOrigin", ",", "PlotDecayVolume"}], "]"}]}], "]"}]}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.9070529577158575`*^9, 3.907052960880023*^9}, {
  3.9070530684334927`*^9, 3.9070531941397886`*^9}, {3.907406552713443*^9, 
  3.9074065553691792`*^9}, {3.910115307632378*^9, 3.9101153271687775`*^9}, {
  3.910115700042859*^9, 3.9101157280493174`*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[149]:=",ExpressionUUID->"2f8e133a-bcc2-47d9-935d-572ef625003e"],

Cell[CellGroupData[{

Cell["Adjustable plot", "Subsection",
 CellChangeTimes->{3.9142999916855497`*^9},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"9e7149c7-3c71-4559-afb7-\
a449d4f655d5"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"BoxRatioz", "=", "10"}], ";", "\[IndentingNewLine]", 
   RowBox[{"PlotOrigin", "=", 
    RowBox[{"(*", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
       "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}], 
       ","}]}], "*)"}], 
    RowBox[{"Graphics3D", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"PointSize", "[", "0.05", "]"}], ",", "Black", ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
      RowBox[{"Axes", "\[Rule]", "True"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<x\>\"", ",", "24", ",", "Bold", ",", "Black"}], "]"}], 
         ",", 
         RowBox[{"Style", "[", 
          RowBox[{"\"\<y\>\"", ",", "24", ",", "Bold", ",", "Black"}], "]"}], 
         ",", 
         RowBox[{"Style", "[", 
          RowBox[{"\"\<z\>\"", ",", "24", ",", "Bold", ",", "Black"}], 
          "]"}]}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"ViewProjection", "\[Rule]", "\"\<Orthographic\>\""}], ",", 
      RowBox[{"ViewCenter", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"ViewPoint", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.7"}], ",", "0.25", ",", 
         RowBox[{"-", "2"}]}], "}"}]}], ",", 
      RowBox[{"ViewVertical", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ",", 
      RowBox[{"BoxRatios", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1.8", ",", "BoxRatioz"}], "}"}]}], ",", 
      RowBox[{"AxesStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Thickness", "[", "0.03", "]"}], "}"}]}], ",", 
      RowBox[{"LabelStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Directive", "[", 
         RowBox[{"Black", ",", "20"}], "]"}], "}"}]}]}], "]"}]}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{",", 
      RowBox[{"Graphics3D", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"PointSize", "[", "0.05", "]"}], ",", "Black", ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"Axes", "\[Rule]", "True"}], ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"\"\<x\>\"", ",", "24", ",", "Bold", ",", "Black"}], 
            "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<y\>\"", ",", "24", ",", "Bold", ",", "Black"}], 
            "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<z\>\"", ",", "24", ",", "Bold", ",", "Black"}], 
            "]"}]}], "}"}]}], ",", 
        RowBox[{"AxesOrigin", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
        RowBox[{"ViewProjection", "\[Rule]", "\"\<Orthographic\>\""}], ",", 
        RowBox[{"ViewCenter", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
        RowBox[{"ViewPoint", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.7"}], ",", "0.25", ",", 
           RowBox[{"-", "2"}]}], "}"}]}], ",", 
        RowBox[{"ViewVertical", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ",", 
        RowBox[{"BoxRatios", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "BoxRatioz"}], "}"}]}], ",", 
        RowBox[{"AxesStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Thickness", "[", "0.03", "]"}], "}"}]}], ",", 
        RowBox[{"LabelStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Directive", "[", 
           RowBox[{"Black", ",", "20"}], "]"}], "}"}]}]}], "]"}]}], "]"}], 
    "*)"}], ";", "\[IndentingNewLine]", 
   RowBox[{"PlotFinalPlane", "=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
      "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}], 
      ",", 
      RowBox[{"Graphics3D", "[", 
       RowBox[{"{", 
        RowBox[{"Green", ",", 
         RowBox[{"Opacity", "[", "0.2", "]"}], ",", 
         "FinalPlaneGivenExperiment"}], "}"}], "]"}]}], "]"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotDecayVolume", "=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
       "GeometryGivenExperiment", "\[Equal]", "\"\<Annular cylinder\>\""}], "&&", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{"explistlhcb", ",", "GivenExperiment"}], "]"}], "==", 
        "False"}]}], ",", 
      RowBox[{"Show", "[", 
       RowBox[{
        RowBox[{"Region", "[", 
         RowBox[{"Style", "[", 
          RowBox[{"finAnnular", ",", "White", ",", 
           RowBox[{"Opacity", "[", "1", "]"}], ",", 
           RowBox[{"EdgeForm", "[", 
            RowBox[{"Directive", "[", 
             RowBox[{
              RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Blue", ",", 
              RowBox[{"Opacity", "\[Rule]", " ", "1"}]}], "]"}], "]"}]}], 
          "]"}], "]"}], ",", 
        RowBox[{"Region", "[", 
         RowBox[{"Style", "[", 
          RowBox[{"foutAnnular", ",", "Blue", ",", 
           RowBox[{"Opacity", "[", "0.3", "]"}], ",", 
           RowBox[{"EdgeForm", "[", 
            RowBox[{"Directive", "[", 
             RowBox[{
              RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Blue", ",", 
              RowBox[{"Opacity", "\[Rule]", " ", "0.1"}]}], "]"}], "]"}]}], 
          "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"Region", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"DecayVolumeGeometryGivenExperiment", ",", "Blue", ",", 
          RowBox[{"Opacity", "[", "0.2", "]"}], ",", 
          RowBox[{"EdgeForm", "[", 
           RowBox[{"{", 
            RowBox[{"Thick", ",", "Blue"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"BoxRatios", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "BoxRatioz"}], "}"}]}], ",", 
        RowBox[{"Boxed", "\[Rule]", "True"}], ",", 
        RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]}], "]"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotDetector", "=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
      "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}], 
      ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
         "GeometryGivenExperiment", "\[Equal]", "\"\<Annular cylinder\>\""}], 
         "&&", 
         RowBox[{
          RowBox[{"MemberQ", "[", 
           RowBox[{"explistlhcb", ",", "GivenExperiment"}], "]"}], "==", 
          "False"}]}], ",", 
        RowBox[{"Show", "[", 
         RowBox[{
          RowBox[{"Region", "[", 
           RowBox[{"Style", "[", 
            RowBox[{"finDetAnnular", ",", "White", ",", 
             RowBox[{"Opacity", "[", "1", "]"}], ",", 
             RowBox[{"EdgeForm", "[", 
              RowBox[{"Directive", "[", 
               RowBox[{
                RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Red", ",", 
                RowBox[{"Opacity", "\[Rule]", " ", "1"}]}], "]"}], "]"}]}], 
            "]"}], "]"}], ",", 
          RowBox[{"Region", "[", 
           RowBox[{"Style", "[", 
            RowBox[{"foutDetAnnular", ",", "Red", ",", 
             RowBox[{"Opacity", "[", "0.2", "]"}], ",", 
             RowBox[{"EdgeForm", "[", 
              RowBox[{"Directive", "[", 
               RowBox[{
                RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Red", ",", 
                RowBox[{"Opacity", "\[Rule]", " ", "0.1"}]}], "]"}], "]"}]}], 
            "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"Region", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"DetectorGeometryGivenExperiment", ",", "Red", ",", 
            RowBox[{"Opacity", "[", "0.3", "]"}], ",", 
            RowBox[{"EdgeForm", "[", 
             RowBox[{"{", 
              RowBox[{"Thick", ",", "Red"}], "}"}], "]"}]}], "]"}], ",", 
          RowBox[{"BoxRatios", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1", ",", "BoxRatioz"}], "}"}]}], ",", 
          RowBox[{"Boxed", "\[Rule]", "True"}], ",", 
          RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]}], "]"}]}], "]"}]}], 
   ";", "\[IndentingNewLine]", 
   RowBox[{"PlotFullGeometry", "=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
      "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}], 
      ",", 
      RowBox[{"Show", "[", 
       RowBox[{"PlotOrigin", ",", "PlotDecayVolume", ",", "PlotDetector"}], 
       "]"}], ",", 
      RowBox[{"Show", "[", 
       RowBox[{"PlotOrigin", ",", "PlotDecayVolume"}], "]"}]}], "]"}]}], ";", 
   "\[IndentingNewLine]", "PlotFullGeometry"}], "*)"}]], "Input",
 CellChangeTimes->{{3.9052752871671767`*^9, 3.9052753098348846`*^9}, {
  3.9052753955974317`*^9, 3.9052754059272847`*^9}, {3.9055134995809736`*^9, 
  3.905513501713472*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[150]:=",ExpressionUUID->"91d3fa1e-e7c1-4f7a-b2a1-f310fe8d12e9"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Defining \[Theta],E,z grid for the tabulation", "Section",
 CellChangeTimes->{{3.914948007279182*^9, 3.914948017273607*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"0738c17f-438d-4229-b58d-\
4caa27e8bb59"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Grid", " ", "of", " ", "energies", " ", "for", " ", "which", " ", "the", 
    " ", "decay", " ", "products", " ", "acceptance", " ", "will", " ", "be", 
    " ", "generated"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"ELLPvaluesFacility", "[", "\"\<FermilabBD\>\"", "]"}], "=", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "0.005", ",", "0.01", ",", "0.021", ",", "0.05", ",", "0.1", ",", 
          "0.25", ",", "0.5", ",", "0.75", ",", "1.", ",", "1.5", ",", "2.", 
          ",", "2.5", ",", "3.", ",", "3.5", ",", "4.", ",", "4.5", ",", 
          "5."}], "}"}], ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          SuperscriptBox["10", "ELLP"], ",", 
          RowBox[{"{", 
           RowBox[{"ELLP", ",", 
            RowBox[{"Log10", "[", "5.5", "]"}], ",", 
            RowBox[{"Log10", "[", 
             RowBox[{"EmaxFacility", "[", "\"\<FermilabBD\>\"", "]"}], "]"}], 
            ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Log10", "[", 
                RowBox[{"EmaxFacility", "[", "\"\<FermilabBD\>\"", "]"}], 
                "]"}], "-", 
               RowBox[{"Log10", "[", "5.5", "]"}]}], ")"}], "/", "50"}]}], 
           "}"}]}], "]"}]}], "]"}], "//", "N"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ELLPvaluesFacility", "[", "\"\<ESS\>\"", "]"}], "=", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{"e", ",", 
          RowBox[{"{", 
           RowBox[{"e", ",", "0.00501", ",", "0.14001", ",", "0.001"}], 
           "}"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
         "0.141", ",", "0.145", ",", "0.15", ",", "16", ",", "0.17", ",", 
          "0.18", ",", "0.19", ",", "0.2", ",", "0.23", ",", "0.25", ",", 
          "0.27", ",", "0.3", ",", "0.35", ",", "0.4", ",", "0.45", ",", 
          "0.5", ",", "0.55", ",", "0.6", ",", "0.65", ",", "0.7", ",", 
          "0.75", ",", "0.8", ",", "0.85", ",", "0.9", ",", "0.95", ",", "1.",
           ",", "1.1", ",", "1.3", ",", "1.5", ",", "2.", ",", "2.4"}], 
         "}"}]}], "]"}], "//", "N"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ELLPvaluesFacility", "[", "\"\<Serpukhov\>\"", "]"}], "=", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "0.005", ",", "0.01", ",", "0.021", ",", "0.05", ",", "0.1", ",", 
          "0.25", ",", "0.5", ",", "0.75", ",", "1.", ",", "1.5", ",", "2.", 
          ",", "2.5", ",", "3.", ",", "3.5", ",", "4.", ",", "4.5", ",", 
          "5."}], "}"}], ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          SuperscriptBox["10", "ELLP"], ",", 
          RowBox[{"{", 
           RowBox[{"ELLP", ",", 
            RowBox[{"Log10", "[", "5.5", "]"}], ",", 
            RowBox[{"Log10", "[", 
             RowBox[{"EmaxFacility", "[", "\"\<Serpukhov\>\"", "]"}], "]"}], 
            ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Log10", "[", 
                RowBox[{"EmaxFacility", "[", "\"\<Serpukhov\>\"", "]"}], 
                "]"}], "-", 
               RowBox[{"Log10", "[", "5.5", "]"}]}], ")"}], "/", "40"}]}], 
           "}"}]}], "]"}]}], "]"}], "//", "N"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ELLPvaluesFacility", "[", "\"\<SPS\>\"", "]"}], "=", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "0.005", ",", "0.01", ",", "0.021", ",", "0.05", ",", "0.1", ",", 
          "0.25", ",", "0.5", ",", "0.75", ",", "1.", ",", "1.5", ",", "2.", 
          ",", "2.5", ",", "3.", ",", "3.5", ",", "4.", ",", "4.5", ",", 
          "5."}], "}"}], ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          SuperscriptBox["10", "ELLP"], ",", 
          RowBox[{"{", 
           RowBox[{"ELLP", ",", 
            RowBox[{"Log10", "[", "5.5", "]"}], ",", 
            RowBox[{"Log10", "[", 
             RowBox[{"EmaxFacility", "[", "\"\<SPS\>\"", "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Log10", "[", 
                RowBox[{"EmaxFacility", "[", "\"\<SPS\>\"", "]"}], "]"}], "-", 
               RowBox[{"Log10", "[", "5.5", "]"}]}], ")"}], "/", "50"}]}], 
           "}"}]}], "]"}]}], "]"}], "//", "N"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ELLPvaluesFacility", "[", "\"\<LHC\>\"", "]"}], "=", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "0.005", ",", "0.01", ",", "0.021", ",", "0.05", ",", "0.1", ",", 
          "0.25", ",", "0.5", ",", "0.75", ",", "1.", ",", "1.5", ",", "2.", 
          ",", "2.5", ",", "3.", ",", "3.5", ",", "4.", ",", "4.5", ",", 
          "5."}], "}"}], ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          SuperscriptBox["10", "ELLP"], ",", 
          RowBox[{"{", 
           RowBox[{"ELLP", ",", 
            RowBox[{"Log10", "[", "5.5", "]"}], ",", 
            RowBox[{"Log10", "[", "1000", "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Log10", "[", "1000", "]"}], "-", 
               RowBox[{"Log10", "[", "5.5", "]"}]}], ")"}], "/", "50"}]}], 
           "}"}]}], "]"}], ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          SuperscriptBox["10", "ELLP"], ",", 
          RowBox[{"{", 
           RowBox[{"ELLP", ",", 
            RowBox[{"Log10", "[", "1100.", "]"}], ",", 
            RowBox[{"Log10", "[", 
             RowBox[{"EmaxFacility", "[", "\"\<LHC\>\"", "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Log10", "[", 
                RowBox[{"EmaxFacility", "[", "\"\<LHC\>\"", "]"}], "]"}], "-", 
               RowBox[{"Log10", "[", "1100.", "]"}]}], ")"}], "/", "30"}]}], 
           "}"}]}], "]"}]}], "]"}], "//", "N"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ELLPvaluesFacility", "[", "\"\<FCC-hh\>\"", "]"}], "=", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "0.005", ",", "0.011", ",", "0.021", ",", "0.05", ",", "0.1", ",", 
          "0.25", ",", "0.5", ",", "0.75", ",", "1.", ",", "1.5", ",", "2.", 
          ",", "2.5", ",", "3.", ",", "3.5", ",", "4.", ",", "4.5", ",", 
          "5."}], "}"}], ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          SuperscriptBox["10", "ELLP"], ",", 
          RowBox[{"{", 
           RowBox[{"ELLP", ",", 
            RowBox[{"Log10", "[", "5.5", "]"}], ",", 
            RowBox[{"Log10", "[", "1000", "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Log10", "[", "1000", "]"}], "-", 
               RowBox[{"Log10", "[", "5.5", "]"}]}], ")"}], "/", "30"}]}], 
           "}"}]}], "]"}], ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          SuperscriptBox["10", "ELLP"], ",", 
          RowBox[{"{", 
           RowBox[{"ELLP", ",", 
            RowBox[{"Log10", "[", "1100.", "]"}], ",", 
            RowBox[{"Log10", "[", "10000.", "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Log10", "[", "10000.", "]"}], "-", 
               RowBox[{"Log10", "[", "1100.", "]"}]}], ")"}], "/", "30"}]}], 
           "}"}]}], "]"}], ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          SuperscriptBox["10", "ELLP"], ",", 
          RowBox[{"{", 
           RowBox[{"ELLP", ",", 
            RowBox[{"Log10", "[", "11000.", "]"}], ",", 
            RowBox[{"Log10", "[", 
             RowBox[{"EmaxFacility", "[", "\"\<FCC-hh\>\"", "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Log10", "[", 
                RowBox[{"EmaxFacility", "[", "\"\<FCC-hh\>\"", "]"}], "]"}], 
               "-", 
               RowBox[{"Log10", "[", "11000.", "]"}]}], ")"}], "/", "30"}]}], 
           "}"}]}], "]"}]}], "]"}], "//", "N"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Grid", " ", "of", " ", 
      SubscriptBox["\[Theta]", "LLP"]}], ",", 
     SubscriptBox["z", "LLP"]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Theta]LLPrange", "=", 
     RowBox[{"\[Theta]grid", "[", 
      RowBox[{
      "DecayVolumeAsDetectorGivenExperiment", ",", 
       "ThetaDecVolGivenExperimentMin", ",", "ThetaDecVolGivenExperimentMax", 
       ",", "ThetaDetGivenExperimentMin", ",", "ThetaDetGivenExperimentMax"}],
       "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalDelta]zVal", "[", "\[CapitalDelta]z_", "]"}], "=", 
     RowBox[{"Min", "[", 
      RowBox[{
       FractionBox["\[CapitalDelta]z", "10"], ",", 
       RowBox[{"Max", "[", 
        RowBox[{"0.5", ",", 
         RowBox[{"\[CapitalDelta]z", "/", "45."}]}], "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"zLLPrangeTemp", "=", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{"zLLP", ",", 
        RowBox[{"{", 
         RowBox[{
         "zLLP", ",", "zToDecayVolumeGivenExperiment", ",", 
          "zMaxDecayVolumeGivenExperiment", ",", 
          RowBox[{"\[CapitalDelta]zVal", "[", 
           RowBox[{
           "zMaxDecayVolumeGivenExperiment", "-", 
            "zToDecayVolumeGivenExperiment"}], "]"}]}], "}"}]}], "]"}], "//", 
      "N"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"zLLPrange", "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"zLLPrangeTemp", "[", 
         RowBox[{"[", 
          RowBox[{"-", "1"}], "]"}], "]"}], "!=", 
        "zMaxDecayVolumeGivenExperiment"}], ",", 
       RowBox[{"Join", "[", 
        RowBox[{"zLLPrangeTemp", ",", 
         RowBox[{"{", "zMaxDecayVolumeGivenExperiment", "}"}]}], "]"}], ",", 
       "zLLPrangeTemp"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"TableLLPgrid\[Theta]z", "=", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\[Theta]LLP", ",", "zLLP"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Theta]LLP", ",", "\[Theta]LLPrange"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"zLLP", ",", "zLLPrange"}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"List", " ", "of", " ", 
     SubscriptBox["E", "LLP"]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ELLPvalues", "=", 
     RowBox[{"ELLPvaluesFacility", "[", "FacilityGivenExperiment", "]"}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.914561834277459*^9, 3.9145618585340357`*^9}, {
   3.914749391797656*^9, 3.9147494423992476`*^9}, 3.91475234257207*^9, {
   3.9149140848176603`*^9, 3.914914085607323*^9}, {3.9149165770173454`*^9, 
   3.914916673087759*^9}, {3.91491893668371*^9, 3.91491894457267*^9}, {
   3.9149191444836073`*^9, 3.9149191458021684`*^9}, {3.9149203084991417`*^9, 
   3.914920313712681*^9}, {3.9149298321965995`*^9, 3.9149298458919353`*^9}, {
   3.9154371875586014`*^9, 3.9154371876639924`*^9}, {3.916288293081545*^9, 
   3.9162883099684916`*^9}, {3.916288368322131*^9, 3.916288370167237*^9}, {
   3.916294802488123*^9, 3.916294807431783*^9}, 3.9163924084398046`*^9, 
   3.9163925866907516`*^9},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[151]:=",ExpressionUUID->"da27686f-037f-4b5a-a83b-0b9b4a63bb79"]
}, Closed]],

Cell[CellGroupData[{

Cell["Azimuthal acceptance calculations", "Section",
 CellChangeTimes->{{3.9143000113182907`*^9, 3.914300064153672*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"66eab753-4ab9-4942-aca4-\
d5f57a32cff8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"NotebookEvaluate", "[", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], ",", 
      "\"\<codes/azimuthal-acceptance.nb\>\""}], "}"}], "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TableAzimuthalAcceptancesToDet", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Block\[Theta]zLLP\[Epsilon]Az\[Phi]", "[", 
       RowBox[{"EpsilonAzPhiListToDet", ",", "j"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", 
        RowBox[{"Length", "[", "TableLLPgrid\[Theta]z", "]"}], ",", "1"}], 
       "}"}]}], "]"}]}], ";"}], "//", 
  "AbsoluteTiming"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TableAzimuthalAcceptancesNotToDet", "=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
      "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}], 
      ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Block\[Theta]zLLP\[Epsilon]Az\[Phi]", "[", 
         RowBox[{"EpsilonAzPhiListNotToDet", ",", "j"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", 
          RowBox[{"Length", "[", "TableLLPgrid\[Theta]z", "]"}], ",", "1"}], 
         "}"}]}], "]"}]}], "]"}]}], ";"}], "//", 
  "AbsoluteTiming"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"TableLLPgridWithELLPtemp", "[", "dat_", "]"}], ":=", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"dat", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{"ELLPvalues", "[", 
            RowBox[{"[", "k", "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"dat", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"dat", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "[", 
            RowBox[{"[", "3", "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"dat", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "[", 
             RowBox[{"[", "4", "]"}], "]"}], "[", 
            RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"Length", "[", "dat", "]"}], ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", 
           RowBox[{"Length", "[", "ELLPvalues", "]"}], ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", "NofPhiVals", ",", "1"}], "}"}]}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}]}], ";"}], "//", 
   "AbsoluteTiming"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Grid", " ", 
     SubscriptBox["E", "LLP"]}], ",", " ", 
    SubscriptBox["\[Theta]", "LLP"], ",", " ", 
    SubscriptBox["x", 
     RowBox[{"long", ",", "LLP"}]], ",", 
    SubscriptBox["\[Epsilon]", 
     RowBox[{"azimuthal", ",", "LLP"}]], ",", 
    RowBox[{
     SubscriptBox["\[Phi]", "LLP"], " ", "within", " ", "the", " ", "decay", 
     " ", "volume"}], ",", " ", 
    RowBox[{
    "assuming", " ", "that", " ", "LLP", " ", "points", " ", "to", " ", "the",
      " ", "end", " ", "of", " ", "detector"}], ",", " ", 
    RowBox[{
    "or", " ", "not", " ", "points", " ", "to", " ", "the", " ", "end", " ", 
     "of", " ", "detector"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gridLLPtoDet", "=", 
    RowBox[{
    "TableLLPgridWithELLPtemp", "[", "TableAzimuthalAcceptancesToDet", 
     "]"}]}], ";"}], "//", "AbsoluteTiming"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gridLLPnotToDet", "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
       "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}], 
       ",", 
       RowBox[{
       "TableLLPgridWithELLPtemp", "[", "TableAzimuthalAcceptancesNotToDet", 
        "]"}], ",", "gridLLPtoDet"}], "]"}]}], ";"}], "//", 
   "AbsoluteTiming"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "same", " ", "but", " ", "without", " ", "the", " ", "column", 
    " ", 
    SubscriptBox["\[Phi]", "LLP"]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"gridReducedLLPtoDet", ",", "gridReducedLLPnotToDet"}], "}"}], 
    "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"DeleteDuplicatesBy", "[", 
        RowBox[{"gridLLPtoDet", ",", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{"#", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", 
            RowBox[{"#", "[", 
             RowBox[{"[", "4", "]"}], "]"}]}], "}"}], "&"}]}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], "]"}], "]"}], 
      ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
        "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}],
         ",", 
        RowBox[{
         RowBox[{"DeleteDuplicatesBy", "[", 
          RowBox[{"gridLLPnotToDet", ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "3", "]"}], "]"}], ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}], "}"}], "&"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], "]"}], 
         "]"}]}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Meaning", " ", "of", " ", "columns", " ", "in", " ", "the", " ", 
     "tables", " ", "gridLLPtoDet"}], ",", "gridLLPnotToDet"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"index\[Theta]LLP", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"indexELLP", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"indexzLLP", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"indexLLPazAcc", "=", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"index\[Phi]LLP", "=", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<\[Theta] grid:\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"thgrid", "=", 
  RowBox[{"DeleteDuplicates", "[", 
   RowBox[{"gridLLPtoDet", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<E grid:\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"egrid", "=", 
  RowBox[{"DeleteDuplicates", "[", 
   RowBox[{"gridLLPtoDet", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<z grid:\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"zgrid", "=", 
  RowBox[{"DeleteDuplicates", "[", 
   RowBox[{"gridLLPtoDet", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"azaccdata", "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"gridReducedLLPtoDet", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
       "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}], 
       ",", 
       RowBox[{
        RowBox[{"gridReducedLLPtoDet", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", 
           RowBox[{"{", "4", "}"}]}], "]"}], "]"}], "+", 
        RowBox[{"gridReducedLLPnotToDet", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", 
           RowBox[{"{", "4", "}"}]}], "]"}], "]"}]}], ",", 
       RowBox[{"gridReducedLLPtoDet", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"{", "4", "}"}]}], "]"}], "]"}]}], "]"}], ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  "\"\<The volume of the decay volume (in \!\(\*SuperscriptBox[\(m\), \
\(3\)]\)) calculated by the azimuthal acceptance (compare with the true \
volume obtained using simple formulas):\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"azacc", "[", 
    RowBox[{"th_", ",", "z_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"Interpolation", "[", 
     RowBox[{
      RowBox[{"DeleteDuplicatesBy", "[", 
       RowBox[{"azaccdata", ",", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "&"}]}], "]"}], ",", 
      RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}], "[", 
    RowBox[{"th", ",", "z"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\"\<Meaning\>\"", ",", 
      "\"\<Volume - computed as \[Integral]2\!\(\*SubscriptBox[\(\[Pi]\
\[Epsilon]\), \(az\)]\)(\[Theta],z)sin(\[Theta]) \!\(\*SuperscriptBox[\(r\), \
\(2\)]\)(z)d\[Theta]dr\>\"", ",", " ", 
      "\"\<Volume - computed internally as Volume[Decay Volume]\>\"", ",", 
      " ", "\"\<Volume - computed as \[Integral]IfLLPinsideDecVol dx dy \
dz\>\""}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Comment\>\"", ",", "\"\<\>\"", ",", 
      "\"\<Must match the 2nd column with O(few %) precision\>\"", ",", 
      "\"\<Must match the 2nd column with O(few %) precision\>\""}], "}"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Value\>\"", ",", 
      RowBox[{"NIntegrate", "[", 
       RowBox[{
        RowBox[{"2", "*", "Pi", "*", 
         RowBox[{"azacc", "[", 
          RowBox[{"th", ",", "z"}], "]"}], "*", 
         RowBox[{"Sin", "[", "th", "]"}], 
         FractionBox[
          SuperscriptBox["z", "2"], 
          SuperscriptBox[
           RowBox[{"Cos", "[", "th", "]"}], "3"]]}], ",", 
        RowBox[{"{", 
         RowBox[{"th", ",", 
          RowBox[{"thgrid", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"thgrid", "[", 
           RowBox[{"[", 
            RowBox[{"-", "1"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", 
          RowBox[{"zgrid", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"zgrid", "[", 
           RowBox[{"[", 
            RowBox[{"-", "1"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Volume", "[", "DecayVolumeGeometryGivenExperiment", "]"}], ",", 
      RowBox[{"VolumeFromIf", "[", "GivenExperiment", "]"}]}], "}"}]}], "}"}],
   "//", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.9143000776642017`*^9, 3.9143000784940715`*^9}, {
  3.914748851287729*^9, 3.914748852243499*^9}, {3.9147489769739237`*^9, 
  3.914748977216576*^9}, {3.9152561880009193`*^9, 3.915256206605275*^9}, {
  3.9152563993096557`*^9, 3.9152564002462616`*^9}, {3.9154371876710205`*^9, 
  3.9154371878703747`*^9}, {3.9161573698236113`*^9, 3.9161573998108187`*^9}, {
  3.916161942897551*^9, 3.9161619527890663`*^9}, {3.9161624575635176`*^9, 
  3.9161624657662964`*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[163]:=",ExpressionUUID->"efbd8d60-7622-4782-b55c-ea58b1a6e7ba"],

Cell[CellGroupData[{

Cell["Visualization of the generated acceptance points", "Subsubsection",
 CellChangeTimes->{{3.9143000857353244`*^9, 3.9143000865789814`*^9}, {
  3.9147499936620226`*^9, 3.914749996417533*^9}, {3.9154353903115635`*^9, 
  3.9154354016684637`*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"c0171125-d9bd-46e4-ad9a-\
637e9c48371f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "___", "___", "___", "___", "___", "___", "___", "___", "___", "___", 
    "___", "___", "___", "___", "___", "___", "___", "___", "_"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Visualization", " ", "of", " ", "the", " ", "generated", " ", "LLP", " ", 
    "decay", " ", 
    RowBox[{"points", ".", " ", "Uncomment"}], " ", "if", " ", "needed"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "___", "___", "___", "___", "___", "___", "___", "___", "___", "___", 
    "___", "___", "___", "___", "___", "___", "___", "___", "_"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"AzimuthalAcceptanceVisualizationChoice", "=", "\"\<No\>\""}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"AzimuthalAcceptanceVisualizationChoice", "=", 
      RowBox[{"dropdownDialog", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<Yes\>\"", ",", "\"\<No\>\""}], "}"}], ",", 
        "\"\<Do you want to visualize the generated grid of the LLP decay \
points inside the decay volume?\>\""}], "]"}]}], ";"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"AzimuthalAcceptanceVisualizationChoice", "==", "\"\<Yes\>\""}], 
     ",", 
     RowBox[{
     "Print", "[", 
      "\"\<Green points - the decay points of the LLPs pointing to the end of \
the detector. Cyan points - for the LLPs that do not point to the detector \
(less dense grid)\>\"", "]"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"AzimuthalAcceptanceVisualizationChoice", "==", "\"\<Yes\>\""}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"anglestocart", "=", 
       RowBox[{"Compile", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"tab", ",", "_Real", ",", "2"}], "}"}], "}"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              FractionBox[
               RowBox[{"#", "[", 
                RowBox[{"[", "3", "]"}], "]"}], 
               RowBox[{"Cos", "[", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "]"}]], 
              RowBox[{"Sin", "[", 
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "]"}], 
              RowBox[{"Cos", "[", 
               RowBox[{"#", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "]"}]}], ",", 
             RowBox[{
              FractionBox[
               RowBox[{"#", "[", 
                RowBox[{"[", "3", "]"}], "]"}], 
               RowBox[{"Cos", "[", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "]"}]], 
              RowBox[{"Sin", "[", 
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "]"}], 
              RowBox[{"Sin", "[", 
               RowBox[{"#", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "]"}]}], ",", 
             RowBox[{"#", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "&"}], "/@", "tab"}], 
         ",", 
         RowBox[{"CompilationTarget", "->", "\"\<C\>\""}], ",", 
         RowBox[{"RuntimeOptions", "->", "\"\<Speed\>\""}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"pointstodet", "=", 
       RowBox[{"anglestocart", "[", 
        RowBox[{"Select", "[", 
         RowBox[{"gridLLPtoDet", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "!=", "0"}], "&"}]}], "]"}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"pointsnottodet", "=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Length", "[", "gridLLPnotToDet", "]"}], "!=", "0"}], ",", 
         RowBox[{"anglestocart", "[", 
          RowBox[{"Select", "[", 
           RowBox[{"gridLLPnotToDet", ",", 
            RowBox[{
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "4", "]"}], "]"}], "!=", "0"}], "&"}]}], "]"}], 
          "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "The", " ", "commented", " ", "code", " ", "explicitly", " ", "checks",
         " ", "whether", " ", "the", " ", "generate", " ", "point", " ", 
        "ivall", " ", "belongs", " ", "to", " ", "the", " ", "decay", " ", 
        RowBox[{"volume", ".", " ", "The"}], " ", "result", " ", "must", " ", 
        "always", " ", "be", " ", "\"\<True\>\""}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"ivall", "=", "3"}], ";", "\[IndentingNewLine]", 
        RowBox[{"RegionMember", "[", 
         RowBox[{"DecayVolumeGeometryGivenExperiment", ",", 
          RowBox[{"pointstodet", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"PlotDetector1", "=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
         "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", 
          "\"\<False\>\""}], ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
            "GeometryGivenExperiment", "\[Equal]", 
             "\"\<Annular cylinder\>\""}], "&&", 
            RowBox[{
             RowBox[{"StringContainsQ", "[", 
              RowBox[{
              "GivenExperiment", ",", "\"\<LHCb-downstream-SciFi\>\""}], 
              "]"}], "==", "True"}]}], ",", 
           RowBox[{"Show", "[", 
            RowBox[{
             RowBox[{"Region", "[", 
              RowBox[{"Style", "[", 
               RowBox[{"finDetAnnular", ",", "White", ",", 
                RowBox[{"Opacity", "[", "1", "]"}], ",", 
                RowBox[{"EdgeForm", "[", 
                 RowBox[{"Directive", "[", 
                  RowBox[{
                   RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Red", ",", 
                   RowBox[{"Opacity", "\[Rule]", " ", "1"}]}], "]"}], "]"}]}],
                "]"}], "]"}], ",", 
             RowBox[{"Region", "[", 
              RowBox[{"Style", "[", 
               RowBox[{"foutDetAnnular", ",", "Red", ",", 
                RowBox[{"Opacity", "[", "0.1", "]"}], ",", 
                RowBox[{"EdgeForm", "[", 
                 RowBox[{"Directive", "[", 
                  RowBox[{
                   RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Red", ",", 
                   RowBox[{"Opacity", "\[Rule]", " ", "0.1"}]}], "]"}], 
                 "]"}]}], "]"}], "]"}]}], "]"}], ",", 
           RowBox[{"Region", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"DetectorGeometryGivenExperiment", ",", "Red", ",", 
               RowBox[{"Opacity", "[", "0.1", "]"}], ",", 
               RowBox[{"EdgeForm", "[", 
                RowBox[{"{", 
                 RowBox[{"Thick", ",", "Red"}], "}"}], "]"}]}], "]"}], ",", 
             RowBox[{"BoxRatios", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"1", ",", "1", ",", "BoxRatioz"}], "}"}]}], ",", 
             RowBox[{"Boxed", "\[Rule]", "True"}], ",", 
             RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]}], "]"}]}], "]"}]}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"PlotDecayVolume1", "=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
          "GeometryGivenExperiment", "\[Equal]", "\"\<Annular cylinder\>\""}],
           "&&", 
          RowBox[{
           RowBox[{"MemberQ", "[", 
            RowBox[{"explistlhcb", ",", "GivenExperiment"}], "]"}], "==", 
           "False"}]}], ",", 
         RowBox[{"Show", "[", 
          RowBox[{
           RowBox[{"Region", "[", 
            RowBox[{"Style", "[", 
             RowBox[{"finAnnular", ",", "White", ",", 
              RowBox[{"Opacity", "[", "1", "]"}], ",", 
              RowBox[{"EdgeForm", "[", 
               RowBox[{"Directive", "[", 
                RowBox[{
                 RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Blue", ",", 
                 RowBox[{"Opacity", "\[Rule]", " ", "1"}]}], "]"}], "]"}]}], 
             "]"}], "]"}], ",", 
           RowBox[{"Region", "[", 
            RowBox[{"Style", "[", 
             RowBox[{"foutAnnular", ",", "Blue", ",", 
              RowBox[{"Opacity", "[", "0.1", "]"}], ",", 
              RowBox[{"EdgeForm", "[", 
               RowBox[{"Directive", "[", 
                RowBox[{
                 RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Blue", ",", 
                 RowBox[{"Opacity", "\[Rule]", " ", "0.1"}]}], "]"}], "]"}]}],
              "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Region", "[", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"DecayVolumeGeometryGivenExperiment", ",", "Blue", ",", 
             RowBox[{"Opacity", "[", "0.1", "]"}], ",", 
             RowBox[{"EdgeForm", "[", 
              RowBox[{"{", 
               RowBox[{"Thick", ",", "Blue"}], "}"}], "]"}]}], "]"}], ",", 
           RowBox[{"BoxRatios", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"1", ",", "0.2", ",", "1"}], "}"}]}], ",", 
           RowBox[{"Boxed", "\[Rule]", "True"}], ",", 
           RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"fig", "=", 
       RowBox[{"Show", "[", 
        RowBox[{
        "PlotOrigin", ",", "PlotDecayVolume1", ",", "PlotDetector", ",", 
         RowBox[{"ListPointPlot3D", "[", 
          RowBox[{
           RowBox[{"{", "pointstodet", "}"}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"PointSize", "[", "0.005", "]"}], ",", 
                RowBox[{"Darker", "@", "Green"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
                RowBox[{"Darker", "@", "Green"}]}], "}"}], ",", 
              RowBox[{"{", "Black", "}"}]}], "}"}]}], ",", 
           RowBox[{"BoxRatios", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ",", 
           RowBox[{"Boxed", "\[Rule]", "True"}], ",", 
           RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}], ",", 
         RowBox[{"ListPointPlot3D", "[", 
          RowBox[{
           RowBox[{"{", "pointsnottodet", "}"}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"PointSize", "[", "0.005", "]"}], ",", "Cyan"}], 
               "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"PointSize", "[", "0.03", "]"}], ",", 
                RowBox[{"Darker", "@", "Red"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
                RowBox[{"Darker", "@", "Green"}]}], "}"}], ",", 
              RowBox[{"{", "Black", "}"}]}], "}"}]}]}], "]"}]}], "]"}]}]}]}], 
    "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{"Export", "[", 
      RowBox[{
       RowBox[{"FileNameJoin", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"NotebookDirectory", "[", "]"}], ",", 
          "\"\<temp1/mathusla-points.pdf\>\""}], "}"}], "]"}], ",", "fig"}], 
      "]"}], "*)"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.9147488591240444`*^9, 3.9147488597450495`*^9}, {
  3.914748971865179*^9, 3.9147489730628667`*^9}, {3.9154371878812532`*^9, 
  3.915437187915265*^9}, {3.9161573698467073`*^9, 3.9161573796446905`*^9}, {
  3.916161942936762*^9, 3.9161619523663974`*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[185]:=",ExpressionUUID->"5004031e-7fb1-4e9b-b051-46d5e6e78c5a"]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Computing the decay products acceptance (do not launch it manually)\
\>", "Title",
 CellChangeTimes->{{3.887780141514988*^9, 3.8877801438682127`*^9}, {
   3.8877814585563145`*^9, 3.8877814592472353`*^9}, {3.8934364536342463`*^9, 
   3.8934364595743847`*^9}, {3.8969304634212427`*^9, 3.8969304681109114`*^9}, 
   3.9143005155505576`*^9, {3.9339236358980923`*^9, 3.933923636214321*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"f1f9dd6e-804c-4d25-b50c-\
c4cf6b7558a7"],

Cell[CellGroupData[{

Cell["Definitions", "Chapter",
 CellChangeTimes->{{3.8913221765123215`*^9, 3.891322205486955*^9}, {
  3.915255985710208*^9, 3.9152559977091475`*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"37f9d20e-b8e0-4a9e-a0b2-\
905dcc7758f4"],

Cell[CellGroupData[{

Cell["Initializing decay acceptance routines", "Section",
 CellChangeTimes->{{3.891323732291453*^9, 3.89132374118683*^9}, {
   3.891323823354575*^9, 3.8913238234662757`*^9}, {3.893436795887788*^9, 
   3.8934368016086535`*^9}, 3.893436831726281*^9, {3.915255993420688*^9, 
   3.9152560061213307`*^9}, {3.935629677191429*^9, 3.9356296798375416`*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"311d2a43-726e-49ae-9add-\
909244e95d21"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Quiet", "[", 
   RowBox[{"NotebookEvaluate", "[", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NotebookDirectory", "[", "]"}], ",", 
       "\"\<codes/decay-acceptance.nb\>\""}], "}"}], "]"}], "]"}], "]"}], 
  ";"}]], "Input",
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[188]:=",ExpressionUUID->"48959cb7-cea5-714e-a9c2-9129aecc8158"]
}, Closed]],

Cell[CellGroupData[{

Cell["Refining possible decay channels", "Section",
 CellChangeTimes->{{3.904791226880584*^9, 3.904791233348931*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"2fb75ff6-a895-4847-840f-\
5d3c460184fe"],

Cell[BoxData[{
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"ProcessesListRefined", "[", 
      RowBox[{"LLP", ",", "ECALoptionGivenExperiment"}], "]"}], "=", 
     RowBox[{"ProcessesList", "[", 
      RowBox[{"LLP", ",", "ECALoptionGivenExperiment"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{"LLP", ",", "LLPlist"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"MemberQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<CHARM-lepton\>\"", ",", "\"\<CHARM-approx-lepton\>\"", ",", 
        "\"\<BEBC\>\""}], "}"}], ",", "GivenExperiment"}], "]"}], "==", 
    "True"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"relevantprocesses", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(e\), \(+\)]\)\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(e\), \(-\)]\)\>\"", ",", "\"\<Null\>\"", 
         ",", "\"\<Null\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \(+\)]\)\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \(-\)]\)\>\"", ",", 
         "\"\<Null\>\"", ",", "\"\<Null\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \(+\)]\)\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(e\), \(-\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[OverscriptBox[\(\[Nu]\), \(_\)], \
\(e\)]\)\>\"", ",", "\"\<Null\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \(-\)]\)\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(e\), \(+\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)\>\"", ",", 
         "\"\<Null\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \(+\)]\)\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(e\), \(-\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)\>\"", ",", 
         "\"\<Null\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \(-\)]\)\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(e\), \(+\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[OverscriptBox[\(\[Nu]\), \(_\)], \
\(\[Mu]\)]\)\>\"", ",", "\"\<Null\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \(+\)]\)\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \(-\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)\>\"", ",", 
         "\"\<Null\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \(+\)]\)\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \(-\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)\>\"", ",", 
         "\"\<Null\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \(+\)]\)\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \(-\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)\>\"", ",", 
         "\"\<Null\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \(+\)]\)\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \(-\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[OverscriptBox[\(\[Nu]\), \(_\)], \
\(e\)]\)\>\"", ",", "\"\<Null\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \(+\)]\)\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \(-\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[OverscriptBox[\(\[Nu]\), \(_\)], \
\(\[Mu]\)]\)\>\"", ",", "\"\<Null\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \(+\)]\)\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \(-\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[OverscriptBox[\(\[Nu]\), \(_\)], \(\[Tau]\)]\
\)\>\"", ",", "\"\<Null\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(e\), \(+\)]\)\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(e\), \(-\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)\>\"", ",", 
         "\"\<Null\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(e\), \(+\)]\)\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(e\), \(-\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)\>\"", ",", 
         "\"\<Null\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(e\), \(+\)]\)\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(e\), \(-\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)\>\"", ",", 
         "\"\<Null\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(e\), \(+\)]\)\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(e\), \(-\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[OverscriptBox[\(\[Nu]\), \(_\)], \
\(e\)]\)\>\"", ",", "\"\<Null\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(e\), \(+\)]\)\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(e\), \(-\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[OverscriptBox[\(\[Nu]\), \(_\)], \
\(\[Mu]\)]\)\>\"", ",", "\"\<Null\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SuperscriptBox[\(e\), \(+\)]\)\>\"", ",", 
         "\"\<\!\(\*SuperscriptBox[\(e\), \(-\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[OverscriptBox[\(\[Nu]\), \(_\)], \(\[Tau]\)]\
\)\>\"", ",", "\"\<Null\>\""}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{"{", "\"\<BEBC\>\"", "}"}], ",", "GivenExperiment"}], "]"}], 
       "==", "True"}], ",", 
      RowBox[{"relevantprocesses", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"relevantprocesses", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "\"\<\!\(\*SuperscriptBox[\(\[Pi]\), \(0\)]\)\>\"", ",", 
             "\"\<\!\(\*SubscriptBox[\(\[Nu]\), \(e\)]\)\>\"", ",", 
             "\"\<Null\>\"", ",", "\"\<Null\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "\"\<\!\(\*SuperscriptBox[\(\[Pi]\), \(0\)]\)\>\"", ",", 
             "\"\<\!\(\*SubscriptBox[\(\[Nu]\), \(\[Mu]\)]\)\>\"", ",", 
             "\"\<Null\>\"", ",", "\"\<Null\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "\"\<\!\(\*SuperscriptBox[\(\[Pi]\), \(0\)]\)\>\"", ",", 
             "\"\<\!\(\*SubscriptBox[\(\[Nu]\), \(\[Tau]\)]\)\>\"", ",", 
             "\"\<Null\>\"", ",", "\"\<Null\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "\"\<\!\(\*SuperscriptBox[\(\[Pi]\), \(0\)]\)\>\"", ",", 
             "\"\<\!\(\*SubscriptBox[OverscriptBox[\(\[Nu]\), \(_\)], \
\(e\)]\)\>\"", ",", "\"\<Null\>\"", ",", "\"\<Null\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "\"\<\!\(\*SuperscriptBox[\(\[Pi]\), \(0\)]\)\>\"", ",", 
             "\"\<\!\(\*SubscriptBox[OverscriptBox[\(\[Nu]\), \(_\)], \(\[Mu]\
\)]\)\>\"", ",", "\"\<Null\>\"", ",", "\"\<Null\>\""}], "}"}], ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
             "\"\<\!\(\*SuperscriptBox[\(\[Pi]\), \(0\)]\)\>\"", ",", 
              "\"\<\!\(\*SubscriptBox[OverscriptBox[\(\[Nu]\), \(_\)], \(\
\[Tau]\)]\)\>\"", ",", "\"\<Null\>\"", ",", "\"\<Null\>\""}], "}"}], 
            RowBox[{"{", 
             RowBox[{
             "\"\<\!\(\*SuperscriptBox[\(\[Pi]\), \(0\)]\)\>\"", ",", 
              "\"\<\[Nu]\>\"", ",", "\"\<Null\>\"", ",", "\"\<Null\>\""}], 
             "}"}]}], ",", 
           RowBox[{"{", 
            RowBox[{
            "\"\<\[Gamma]\>\"", ",", "\"\<\[Gamma]\>\"", ",", "\"\<Null\>\"", 
             ",", "\"\<Null\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "\"\<\!\(\*SuperscriptBox[\(\[Pi]\), \(0\)]\)\>\"", ",", 
             "\"\<\[Gamma]\>\"", ",", "\"\<Null\>\"", ",", "\"\<Null\>\""}], 
            "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \(+\)]\)\>\"", ",", 
             "\"\<\!\(\*SuperscriptBox[\(\[Pi]\), \(-\)]\)\>\"", ",", 
             "\"\<Null\>\"", ",", "\"\<Null\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "\"\<\!\(\*SuperscriptBox[\(\[Mu]\), \(-\)]\)\>\"", ",", 
             "\"\<\!\(\*SuperscriptBox[\(\[Pi]\), \(+\)]\)\>\"", ",", 
             "\"\<Null\>\"", ",", "\"\<Null\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "\"\<\!\(\*SuperscriptBox[\(e\), \(+\)]\)\>\"", ",", 
             "\"\<\!\(\*SuperscriptBox[\(\[Pi]\), \(-\)]\)\>\"", ",", 
             "\"\<Null\>\"", ",", "\"\<Null\>\""}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "\"\<\!\(\*SuperscriptBox[\(e\), \(-\)]\)\>\"", ",", 
             "\"\<\!\(\*SuperscriptBox[\(\[Pi]\), \(+\)]\)\>\"", ",", 
             "\"\<Null\>\"", ",", "\"\<Null\>\""}], "}"}]}], "}"}]}], 
        "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"ProcessesListRefined", "[", 
         RowBox[{"LLP", ",", "ECALoptionGivenExperiment"}], "]"}], "=", 
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{"ProcessesList", "[", 
           RowBox[{"LLP", ",", "ECALoptionGivenExperiment"}], "]"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"MemberQ", "[", 
             RowBox[{
              RowBox[{"Sort", "/@", "relevantprocesses"}], ",", 
              RowBox[{"Sort", "[", 
               RowBox[{"ListDecayProducts", "[", 
                RowBox[{"LLP", ",", "#"}], "]"}], "]"}]}], "]"}], "==", 
            "True"}], "&"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", 
      RowBox[{"{", 
       RowBox[{"LLP", ",", "LLPlist"}], "}"}]}], "]"}]}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.904791254610733*^9, 3.90479129532124*^9}, {
   3.904791338028764*^9, 3.9047913586765823`*^9}, {3.904791399796554*^9, 
   3.904791408947711*^9}, {3.9047917158907313`*^9, 3.9047917233665185`*^9}, 
   3.904791762175335*^9, {3.904791885462148*^9, 3.9047920449193325`*^9}, {
   3.904792141059723*^9, 3.904792189987359*^9}, {3.9047923964055204`*^9, 
   3.9047924180623894`*^9}, {3.904793242669736*^9, 3.904793449442148*^9}, {
   3.9047938126832294`*^9, 3.904793878130267*^9}, {3.9047940877627707`*^9, 
   3.904794117173868*^9}, {3.9047941698459473`*^9, 3.904794188863519*^9}, {
   3.904794294911703*^9, 3.9047942993714557`*^9}, {3.9058450824775815`*^9, 
   3.9058450834143815`*^9}, {3.9101654009086633`*^9, 
   3.9101654045280976`*^9}, {3.910165927887673*^9, 3.910165998049596*^9}, {
   3.910166041718178*^9, 3.9101661518785233`*^9}, 3.9121591756192293`*^9, {
   3.9154371874984293`*^9, 3.9154371875499315`*^9}, 3.9161554092623415`*^9},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[189]:=",ExpressionUUID->"ca7d3bbe-02c0-4827-aedc-68b83a30c3c3"]
}, Closed]],

Cell[CellGroupData[{

Cell["Mass range for the acceptance computation", "Section",
 CellChangeTimes->{{3.891323732291453*^9, 3.89132374118683*^9}, {
   3.891323823354575*^9, 3.8913238234662757`*^9}, {3.893436795887788*^9, 
   3.8934368016086535`*^9}, 3.893436831726281*^9, 3.915255993420688*^9},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"e4e577a9-1a4e-4507-b25a-\
335a6fdc9ef6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"Mass", " ", "range", " ", "for", " ", 
      RowBox[{"scalars", ".", " ", "If"}], " ", "the", " ", "facility", " ", 
      "is", " ", "not", " ", "FCC"}], "-", 
     RowBox[{
      RowBox[{"hh", "/", "LHC"}], " ", 
      RowBox[{"(", 
       RowBox[{
       "where", " ", "scalars", " ", "heavier", " ", "than", " ", "B", " ", 
        "may", " ", "be", " ", "produced"}], ")"}]}]}], ",", " ", 
    RowBox[{
     RowBox[{
     "then", " ", "the", " ", "mass", " ", "range", " ", "is", " ", "bounded",
       " ", "by", " ", 
      SubscriptBox["m", "B"]}], " ", "-", " ", 
     RowBox[{
      SubscriptBox["m", "\[Pi]"], ".", " ", "Otherwise"}]}], ",", " ", 
    RowBox[{"it", " ", "is", " ", "up", " ", "to", " ", 
     RowBox[{
      SubscriptBox["m", "h"], "/", "2"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"mLLPlistTemp", "[", "\"\<Scalar\>\"", "]"}], "=", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.02", ",", "0.05", ",", "0.1", ",", "0.2", ",", "0.22", ",", "0.3", 
         ",", "0.4", ",", "0.5", ",", "0.7", ",", "0.9", ",", "1.05", ",", 
         "1.3", ",", "1.6", ",", "1.99"}], "}"}], ",", 
       RowBox[{"mjetsrange", "[", "\"\<Scalar\>\"", "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"mLLPlist", "[", "\"\<Scalar\>\"", "]"}], "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"\"\<LHC\>\"", ",", "\"\<FCC-hh\>\""}], "}"}], ",", 
          "FacilityGivenExperiment"}], "]"}], "==", "False"}], ",", 
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"mLLPlistTemp", "[", "\"\<Scalar\>\"", "]"}], ",", 
         RowBox[{
          RowBox[{"#", "<=", "5.1"}], "&"}]}], "]"}], ",", 
       RowBox[{"mLLPlistTemp", "[", "\"\<Scalar\>\"", "]"}]}], "]"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"For", " ", "HNLs"}], " ", "-", " ", "similarly"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"mLLPlistTemp", "[", "LLP", "]"}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"Select", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
              "0.02", ",", "0.05", ",", "0.1", ",", "0.17", ",", "0.35", ",", 
               "0.5", ",", "0.75", ",", "1.", ",", "1.19", ",", "1.5"}], 
              "}"}], ",", 
             RowBox[{
              RowBox[{"#", "<", 
               RowBox[{"Min", "[", 
                RowBox[{"mjetsrange", "[", "LLP", "]"}], "]"}]}], "&"}]}], 
            "]"}], ",", 
           RowBox[{"mjetsrange", "[", "LLP", "]"}], ",", 
           RowBox[{"{", "1.75", "}"}]}], "]"}], "//", "Sort"}], "//", 
        "DeleteDuplicates"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"mLLPlist", "[", "LLP", "]"}], "=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"MemberQ", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"\"\<LHC\>\"", ",", "\"\<FCC-hh\>\""}], "}"}], ",", 
            "FacilityGivenExperiment"}], "]"}], "==", "False"}], ",", 
         RowBox[{"Select", "[", 
          RowBox[{
           RowBox[{"mLLPlistTemp", "[", "LLP", "]"}], ",", 
           RowBox[{
            RowBox[{"#", "<=", "5.3"}], "&"}]}], "]"}], ",", 
         RowBox[{"mLLPlistTemp", "[", "LLP", "]"}]}], "]"}]}], ";"}], 
     "\[IndentingNewLine]", ",", 
     RowBox[{"{", 
      RowBox[{"LLP", ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<HNL-mixing-e\>\"", ",", "\"\<HNL-mixing-mu\>\"", ",", 
         "\"\<HNL-mixing-tau\>\""}], "}"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"ALPs", " ", "coupled", " ", "to", " ", "gluons"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"mLLPlistTemp", "[", "\"\<ALP-gluon\>\"", "]"}], "=", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "0.02", ",", "0.05", ",", "0.1", ",", "0.25", ",", "0.3", ",", 
           "0.5", ",", "0.75", ",", "1.", ",", "1.25", ",", "1.5", ",", "1.8",
            ",", "2.3"}], "}"}], ",", 
         RowBox[{
          RowBox[{"#", "<", 
           RowBox[{"Min", "[", 
            RowBox[{"mjetsrange", "[", "\"\<ALP-gluon\>\"", "]"}], "]"}]}], 
          "&"}]}], "]"}], ",", 
       RowBox[{"mjetsrange", "[", "\"\<ALP-gluon\>\"", "]"}]}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"mLLPlist", "[", "\"\<ALP-gluon\>\"", "]"}], "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"ECALoptionGivenExperiment", "\[Equal]", "\"\<False\>\""}], 
       ",", 
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"mLLPlistTemp", "[", "\"\<ALP-gluon\>\"", "]"}], ",", 
         RowBox[{
          RowBox[{"#", ">", 
           RowBox[{"0.14", "*", "2"}]}], "&"}]}], "]"}], ",", 
       RowBox[{"mLLPlistTemp", "[", "\"\<ALP-gluon\>\"", "]"}]}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"ALPs", " ", "coupled", " ", "to", " ", "fermions"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"mLLPlist", "[", "\"\<ALP-fermion\>\"", "]"}], "=", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "0.02", ",", "0.05", ",", "0.1", ",", "0.22", ",", "0.3", ",", 
           "0.5", ",", "0.6", ",", "0.7", ",", "0.8", ",", "0.9", ",", "1.1", 
           ",", "1.5", ",", "1.8", ",", "2.3"}], "}"}], ",", 
         RowBox[{
          RowBox[{"#", "<", 
           RowBox[{"Min", "[", 
            RowBox[{"mjetsrange", "[", "\"\<ALP-fermion\>\"", "]"}], "]"}]}], 
          "&"}]}], "]"}], ",", 
       RowBox[{"mjetsrange", "[", "\"\<ALP-fermion\>\"", "]"}]}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"ALPs", " ", "coupled", " ", "to", " ", "photons"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"mLLPlist", "[", "\"\<ALP-photon\>\"", "]"}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.02", ",", "0.03", ",", "0.04", ",", "0.05", ",", "0.06", ",", 
         "0.07", ",", "0.08", ",", "0.09", ",", "0.1", ",", "0.25", ",", 
         "0.5", ",", "0.75", ",", "1.", ",", "1.25", ",", "1.5", ",", "1.75", 
         ",", "2.25", ",", "2.75", ",", "3.", ",", "3.5", ",", "4.", ",", 
         "4.5"}], "}"}], "//", "N"}], "//", "Sort"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"mLLPlist", "[", "\"\<DP\>\"", "]"}], "=", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "0.02", ",", "0.03", ",", "0.04", ",", "0.05", ",", "0.06", ",", 
           "0.07", ",", "0.08", ",", "0.09", ",", "0.1", ",", "0.2", ",", 
           "0.22", ",", "0.35", ",", "0.5", ",", "0.75", ",", "1.", ",", 
           "1.25", ",", "1.75", ",", "2.25"}], "}"}], ",", 
         RowBox[{
          RowBox[{"#", "<", 
           RowBox[{"Min", "[", 
            RowBox[{"mjetsrange", "[", "\"\<DP\>\"", "]"}], "]"}]}], "&"}]}], 
        "]"}], ",", 
       RowBox[{"mjetsrange", "[", "\"\<DP\>\"", "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"mLLPlist", "[", "\"\<B-L\>\"", "]"}], "=", 
     RowBox[{
      RowBox[{"mLLPlist", "[", "\"\<B-3Le-Lmu+Ltau\>\"", "]"}], "=", 
      RowBox[{
       RowBox[{"mLLPlist", "[", "\"\<B-Le-3Lmu+Ltau\>\"", "]"}], "=", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Select", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "0.02", ",", "0.03", ",", "0.04", ",", "0.05", ",", "0.06", ",", 
             "0.07", ",", "0.1", ",", "0.2", ",", "0.22", ",", "0.35", ",", 
             "0.5", ",", "0.75", ",", "1.", ",", "1.25", ",", "1.75", ",", 
             "2.25"}], "}"}], ",", 
           RowBox[{
            RowBox[{"#", "<", 
             RowBox[{"Min", "[", 
              RowBox[{"mjetsrange", "[", "\"\<B-L\>\"", "]"}], "]"}]}], 
            "&"}]}], "]"}], ",", 
         RowBox[{"mjetsrange", "[", "\"\<B-L\>\"", "]"}]}], "]"}]}]}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"mLLPlist", "[", "\"\<B-3Lmu\>\"", "]"}], "=", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0.215", ",", "0.25"}], "}"}], ",", 
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"mLLPlist", "[", "\"\<B-L\>\"", "]"}], ",", 
         RowBox[{
          RowBox[{"#", ">", "0.22"}], "&"}]}], "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"FacilityGivenExperiment", "==", "\"\<ESS\>\""}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"mLLPlist", "[", "LLP", "]"}], "=", 
         RowBox[{
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Select", "[", 
              RowBox[{
               RowBox[{"mLLPlist", "[", "LLP", "]"}], ",", 
               RowBox[{
                RowBox[{"#", "<", "2."}], "&"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{
              "0.01", ",", "0.02", ",", "0.03", ",", "0.04", ",", "0.06", ",",
                "0.07", ",", "0.08", ",", "0.09", ",", "0.1", ",", "0.105", 
               ",", "0.11", ",", "0.115", ",", "0.12", ",", "0.125", ",", 
               "0.13", ",", "0.135", ",", "0.15", ",", "0.18", ",", "0.2", 
               ",", "0.22", ",", "0.3", ",", "0.35", ",", "0.4", ",", "0.45", 
               ",", "0.55"}], "}"}]}], "]"}], "//", "DeleteDuplicates"}], "//",
           "Sort"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"LLP", ",", 
          RowBox[{"{", 
           RowBox[{
           "\"\<ALP-gluon\>\"", ",", "\"\<ALP-fermion\>\"", ",", 
            "\"\<ALP-photon\>\"", ",", "\"\<DP\>\"", ",", "\"\<B-L\>\"", ",", 
            "\"\<Scalar\>\""}], "}"}]}], "}"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"mLLPlist", "[", "LLP", "]"}], "=", 
         RowBox[{"{", 
          RowBox[{
          "0.005", ",", "0.01", ",", "0.015", ",", "0.02", ",", "0.025", ",", 
           "0.03", ",", "0.035", ",", "0.04", ",", "0.045", ",", "0.05", ",", 
           "0.055", ",", "0.06", ",", "0.065", ",", "0.07", ",", "0.075", ",",
            "0.08", ",", "0.085", ",", "0.09", ",", "0.095", ",", "0.1", ",", 
           "0.103", ",", "0.105", ",", "0.11", ",", "0.115", ",", "0.12", ",",
            "0.125", ",", "0.13", ",", "0.135", ",", "0.14"}], "}"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"LLP", ",", 
          RowBox[{"{", 
           RowBox[{
           "\"\<HNL-mixing-e\>\"", ",", "\"\<HNL-mixing-mu\>\"", ",", 
            "\"\<HNL-mixing-tau\>\""}], "}"}]}], "}"}]}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.90483427822402*^9, 3.9048342786130257`*^9}, {
   3.904891095640736*^9, 3.9048911083555403`*^9}, {3.9110279635875297`*^9, 
   3.9110279811714044`*^9}, {3.9110280258346977`*^9, 3.91102805460303*^9}, {
   3.9141397726358833`*^9, 3.914139796020625*^9}, {3.9141398264274855`*^9, 
   3.914139830154768*^9}, {3.9147491772830024`*^9, 3.9147492229437723`*^9}, {
   3.914749485072877*^9, 3.9147496287871146`*^9}, {3.9149165501571755`*^9, 
   3.914916555962652*^9}, {3.9149196735110807`*^9, 3.914919765338022*^9}, {
   3.914920097319073*^9, 3.914920145615481*^9}, {3.914920246125176*^9, 
   3.9149202867523923`*^9}, {3.914929712815317*^9, 3.9149297136826305`*^9}, {
   3.9149298901991577`*^9, 3.914929891488798*^9}, {3.9149470738491197`*^9, 
   3.91494707545831*^9}, {3.9151862948475*^9, 3.9151863148671913`*^9}, {
   3.915437187922262*^9, 3.915437188068494*^9}, {3.9156834917930155`*^9, 
   3.915683544266686*^9}, {3.915897421216114*^9, 3.9158974344808297`*^9}, {
   3.9161311772429714`*^9, 3.9161311882281065`*^9}, 3.9162499835957355`*^9, {
   3.9162949325191917`*^9, 3.9162949820505514`*^9}, {3.9162954619023075`*^9, 
   3.9162954624463034`*^9}, {3.916295684024722*^9, 3.916295702501721*^9}, {
   3.916392289302534*^9, 3.916392309425875*^9}, {3.916759342315024*^9, 
   3.9167593476272774`*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[191]:=",ExpressionUUID->"2ad35743-0b2d-4ab7-89ce-2a9bc7c2b2db"]
}, Closed]],

Cell[CellGroupData[{

Cell["Final block", "Section",
 CellChangeTimes->{{3.915256023204398*^9, 3.9152560243517537`*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"cc18ea8d-671e-4ead-bc3a-\
853006a78f1e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "phr0", "=", 
   "\"\<Use old phenomenology from 1901.09966, or the new one from \
2310.03524?\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a0", "=", 
   RowBox[{"{", 
    RowBox[{"\"\<New\>\"", ",", "\"\<Old\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"phr1", "[", "LLP_", "]"}], ":=", 
   RowBox[{"Row", "[", 
    RowBox[{"{", 
     RowBox[{"\"\<Default decay chanels: \>\"", ",", 
      RowBox[{"ProcessesListRefined", "[", 
       RowBox[{"LLP", ",", "ECALoptionGivenExperiment"}], "]"}], ",", 
      "\"\<. Keep them?\>\""}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a1", "=", 
   RowBox[{"{", 
    RowBox[{"\"\<Yes\>\"", ",", "\"\<No\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "phr2", "=", 
   "\"\<How many decay products that in principle may be detected must pass \
all the criteria?\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a2", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<>=2\>\"", ",", "\"\<>=n\>\"", ",", "\"\<All detectable\>\""}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "phr3", "=", 
   "\"\<Heavy LLPs decay into partons. Would you like to use the phase space \
of hadronized decay products of the LLPs, or use partons instead?\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a3", "=", 
   RowBox[{"{", 
    RowBox[{"\"\<Hadronized products\>\"", ",", "\"\<Partons\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FinalBlock", "[", 
   RowBox[{"LLP_", ",", "isim_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"masslist", "=", 
      RowBox[{"mLLPlist", "[", "LLP", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"LLP", "==", "\"\<ALP-fermion\>\""}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"alpfermionselection", "=", 
           RowBox[{"dropdownDialog", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"\"\<New\>\"", ",", "\"\<Old\>\""}], "}"}], ",", 
             RowBox[{"Row", "[", 
              RowBox[{
              "{", "\"\<Use old phenomenology from 1901.09966, or the new one \
from 2310.03524?\>\"", "}"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"LLPchoiceForComputation", "=", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"alpfermionselection", "==", "\"\<New\>\""}], ",", 
             "\"\<ALP-fermion\>\"", ",", 
             "\"\<ALP-fermion-no-hadronic-decays\>\""}], "]"}]}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"LLPchoiceForComputation", "=", "LLP"}], ";"}]}], 
        "\[IndentingNewLine]", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"LLP", "==", "\"\<ALP-fermion\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", "alpfermionselection", "}"}], "=", 
         RowBox[{"choicesDialog", "[", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"LLP", ",", "Bold"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"phr0", ",", "a0"}], "}"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"LLPchoiceForComputation", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"alpfermionselection", "==", "\"\<New\>\""}], ",", 
           "\"\<ALP-fermion\>\"", ",", 
           "\"\<ALP-fermion-no-hadronic-decays\>\""}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"GivenExperiment", "!=", "\"\<CHARM-photon\>\""}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "decaychannelschoice", ",", "acceptancetypechoice", ",", 
             "HadronizationOptionChoice"}], "}"}], "=", 
           RowBox[{"choicesDialog", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"LLP", ",", "Bold"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"phr1", "[", "LLPchoiceForComputation", "]"}], ",", 
                 "a1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"phr2", ",", "a2"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"phr3", ",", "a3"}], "}"}]}], "}"}]}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"decaychannelschoice", ",", "HadronizationOptionChoice"}],
             "}"}], "=", 
           RowBox[{"choicesDialog", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"LLP", ",", "Bold"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"phr1", "[", "LLPchoiceForComputation", "]"}], ",", 
                 "a1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"phr3", ",", "a3"}], "}"}]}], "}"}]}], "]"}]}]}], 
         "]"}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"LLPchoiceForComputation", "=", "LLP"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"GivenExperiment", "!=", "\"\<CHARM-photon\>\""}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "decaychannelschoice", ",", "acceptancetypechoice", ",", 
             "HadronizationOptionChoice"}], "}"}], "=", 
           RowBox[{"choicesDialog", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"LLP", ",", "Bold"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"phr1", "[", "LLPchoiceForComputation", "]"}], ",", 
                 "a1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"phr2", ",", "a2"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"phr3", ",", "a3"}], "}"}]}], "}"}]}], "]"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"decaychannelschoice", ",", "HadronizationOptionChoice"}],
             "}"}], "=", 
           RowBox[{"choicesDialog", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"LLP", ",", "Bold"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"phr1", "[", "LLPchoiceForComputation", "]"}], ",", 
                 "a1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"phr3", ",", "a3"}], "}"}]}], "}"}]}], "]"}]}]}], 
         "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"hadropt", "=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
        "HadronizationOptionChoice", "==", "\"\<Hadronized products\>\""}], 
        ",", "\"\<True\>\"", ",", "\"\<False\>\""}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"acceptancetypechoice", "==", "\"\<>=n\>\""}], ",", 
       RowBox[{
        RowBox[{"DynamicModule", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"input1", "=", "2"}], ",", "list", ",", "phrase"}], "}"}],
           ",", "\[IndentingNewLine]", 
          RowBox[{"DialogInput", "[", 
           RowBox[{"Column", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
              "TextCell", "[", 
               "\"\<Enter the minimal number of detectable tracks:\>\"", 
               "]"}], ",", 
              RowBox[{"InputField", "[", 
               RowBox[{
                RowBox[{"Dynamic", "[", "input1", "]"}], ",", "Expression"}], 
               "]"}], ",", 
              RowBox[{"Button", "[", 
               RowBox[{"\"\<Submit\>\"", ",", 
                RowBox[{"DialogReturn", "[", 
                 RowBox[{
                  RowBox[{"{", "ntracksmin", "}"}], "=", 
                  RowBox[{"{", "input1", "}"}]}], "]"}], ",", 
                RowBox[{"ImageSize", "->", "Automatic"}]}], "]"}]}], "}"}], 
            "]"}], "]"}]}], "]"}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"decaychannelschoice", "=", 
        RowBox[{"dropdownDialog", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"\"\<Yes\>\"", ",", "\"\<No\>\""}], "}"}], ",", 
          RowBox[{"Row", "[", 
           RowBox[{"{", 
            RowBox[{"\"\<Default decay chanels: \>\"", ",", 
             RowBox[{"ProcessesListRefined", "[", 
              RowBox[{
              "LLPchoiceForComputation", ",", "ECALoptionGivenExperiment"}], 
              "]"}], ",", "\"\<. Keep them?\>\""}], "}"}], "]"}]}], "]"}]}], 
       ";"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
      "List", " ", "of", " ", "decay", " ", "processes", " ", "considered", 
       " ", "as", " ", "visible", " ", "for", " ", "the", " ", "given", " ", 
       "calculation"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"proclist", "=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"decaychannelschoice", "==", "\"\<No\>\""}], ",", " ", 
        RowBox[{"selectionDialog", "[", 
         RowBox[{
          RowBox[{"ProcessesListRefined", "[", 
           RowBox[{
           "LLPchoiceForComputation", ",", "ECALoptionGivenExperiment"}], 
           "]"}], ",", "\"\<Select decay channels:\>\""}], "]"}], ",", 
        RowBox[{"ProcessesListRefined", "[", 
         RowBox[{
         "LLPchoiceForComputation", ",", "ECALoptionGivenExperiment"}], 
         "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
      "The", " ", "total", " ", "branching", " ", "ratio", " ", "of", " ", 
       "the", " ", "selected", " ", "visible", " ", "channels"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"BrVisibleExport", "[", "mLLP_", "]"}], "=", 
      RowBox[{"BrVisibleGivenSetup", "[", 
       RowBox[{
       "LLPchoiceForComputation", ",", "mLLP", ",", "proclist", ",", 
        "ECALoptionGivenExperiment"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
       "Redefining", " ", "the", " ", "mass", " ", "list", " ", "such", " ", 
        "that", " ", "it", " ", "matches", " ", "the", " ", "domain", " ", 
        "where", " ", "the", " ", "br", " ", "ratio", " ", "of", " ", 
        "selected", " ", "channels", " ", "is", " ", "non"}], "-", "zero"}], 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{"tabbrvis", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"mLLP", ",", 
          RowBox[{"BrVisibleExport", "[", "mLLP", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"mLLP", ",", 
          RowBox[{"masslist", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"masslist", "[", 
           RowBox[{"[", 
            RowBox[{"-", "1"}], "]"}], "]"}], ",", 
          FractionBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"masslist", "[", 
              RowBox[{"[", 
               RowBox[{"-", "1"}], "]"}], "]"}], "-", 
             RowBox[{"masslist", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "100"]}], "}"}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"mminnonzero", ",", "mmaxnonzero"}], "}"}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{"tabbrvis", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ">", 
            SuperscriptBox["10", 
             RowBox[{"-", "15."}]]}], "&"}]}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "1"}], "]"}], "]"}], "//", "MinMax"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"masslist", "=", 
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"{", "mminnonzero", "}"}], ",", 
         RowBox[{"Select", "[", 
          RowBox[{"masslist", ",", 
           RowBox[{
            RowBox[{"mminnonzero", "<", "#", "<", "mmaxnonzero"}], "&"}]}], 
          "]"}], ",", 
         RowBox[{"{", "mmaxnonzero", "}"}]}], "]"}], "//", "N"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
      "Calculation", " ", "of", " ", "the", " ", "decay", " ", "products", 
       " ", "acceptance", " ", "for", " ", "the", " ", "selected", " ", 
       "visible", " ", "channels"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Length", "[", "proclist", "]"}], "*", 
         RowBox[{"Length", "[", "masslist", "]"}]}], "\[NotEqual]", "0"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"tabcomp", "=", 
          RowBox[{"Monitor", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"FinalBlockMass", "[", 
               RowBox[{"LLPchoiceForComputation", ",", 
                RowBox[{"masslist", "[", 
                 RowBox[{"[", "l", "]"}], "]"}], ",", "proclist", ",", "isim",
                 ",", "hadropt", ",", "acceptancetypechoice"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"l", ",", "1", ",", 
                RowBox[{"Length", "[", "masslist", "]"}], ",", "1"}], "}"}]}],
              "]"}], ",", 
            RowBox[{"Row", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"ProgressIndicator", "[", 
                 RowBox[{"l", ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", 
                    RowBox[{"Length", "[", "masslist", "]"}]}], "}"}]}], 
                 "]"}], ",", "\"\<i = \>\"", ",", "l", ",", "\"\</\>\"", ",", 
                RowBox[{"Length", "[", "masslist", "]"}], ",", 
                "\"\< (\!\(\*SubscriptBox[\(m\), \(LLP\)]\) = \>\"", ",", 
                RowBox[{"masslist", "[", 
                 RowBox[{"[", "l", "]"}], "]"}], ",", "\"\< GeV)\>\""}], 
               "}"}], ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"tabcomp", "=", 
         RowBox[{
          RowBox[{"ResourceFunction", "[", "\"\<MonitorProgress\>\"", "]"}], 
          "@", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"FinalBlockMass", "[", 
             RowBox[{"LLPchoiceForComputation", ",", 
              RowBox[{"masslist", "[", 
               RowBox[{"[", "l", "]"}], "]"}], ",", "proclist", ",", "isim", 
              ",", "hadropt", ",", "acceptancetypechoice", ",", 
              "ntracksmin"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"l", ",", "1", ",", 
              RowBox[{"Length", "[", "masslist", "]"}], ",", "1"}], "}"}]}], 
           "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"GivenExperimentNameFin", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"hadropt", "==", "\"\<True\>\""}], ",", 
           "GivenExperimentName", ",", 
           RowBox[{
           "GivenExperimentName", "<>", "\"\<-no-hadronization\>\""}]}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"filenameexport", "=", 
         RowBox[{"ToString", "@", 
          RowBox[{"StringForm", "[", 
           RowBox[{"\"\<Acceptance_``_for_``.m\>\"", ",", 
            RowBox[{"Sequence", "@@", 
             RowBox[{"{", 
              RowBox[{"GivenExperimentNameFin", ",", "LLP"}], "}"}]}]}], 
           "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Flatten", "[", 
         RowBox[{"tabcomp", ",", "1"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
       "Print", "[", 
        "\"\<No processes for the given LLP/ECAL availability!\>\"", "]"}]}], 
      "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BlockExport", "[", 
   RowBox[{"LLP_", ",", "isim_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"datatemp", "=", 
      RowBox[{"FinalBlock", "[", 
       RowBox[{"LLP", ",", "isim"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Export", "[", 
      RowBox[{
       RowBox[{"FileNameJoin", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<Acceptances\>\"",
           ",", "GivenExperimentNameFin", ",", "filenameexport"}], "}"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "FacilityGivenExperiment", ",", "ECALoptionGivenExperiment", ",", 
         "datatemp", ",", "TableParticlesNumbersGivenExperiment", ",", 
         RowBox[{"BrVisibleExport", "[", "mLLP", "]"}]}], "}"}], ",", 
       "\"\<MX\>\""}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.893582961950735*^9, 3.8935829626824627`*^9}, {
   3.8936893968848577`*^9, 3.8936893974606404`*^9}, {3.8987005042228255`*^9, 
   3.8987005045734777`*^9}, {3.898701856337847*^9, 3.8987018623241267`*^9}, {
   3.898702456562152*^9, 3.8987024568267717`*^9}, {3.9017249679866066`*^9, 
   3.9017249724113703`*^9}, {3.904067171324582*^9, 3.9040671852963543`*^9}, {
   3.9047945111480904`*^9, 3.904794559583746*^9}, 3.904834450990146*^9, {
   3.904888618187772*^9, 3.9048886511067495`*^9}, {3.9048892180834365`*^9, 
   3.90488923991012*^9}, {3.9048904389388885`*^9, 3.904890452962327*^9}, {
   3.9049003499917736`*^9, 3.904900353883464*^9}, {3.9052302407603493`*^9, 
   3.905230377096493*^9}, {3.90523041779224*^9, 3.9052304254511085`*^9}, {
   3.9052308097081423`*^9, 3.9052309050531793`*^9}, {3.905230941820487*^9, 
   3.9052310027655926`*^9}, {3.9052311542718744`*^9, 
   3.9052311562723665`*^9}, {3.9053982154172344`*^9, 3.905398226607583*^9}, {
   3.9058418660121374`*^9, 3.905841914591055*^9}, {3.9059623107307734`*^9, 
   3.905962324614109*^9}, {3.911975955618017*^9, 3.9119760457698507`*^9}, {
   3.9120943834183598`*^9, 3.9120943881616373`*^9}, 3.912160528921958*^9, {
   3.9121608162295923`*^9, 3.9121608212176695`*^9}, {3.912160854627734*^9, 
   3.9121608741677265`*^9}, {3.9121609169415236`*^9, 3.912160984697664*^9}, {
   3.912161033729065*^9, 3.9121610627265167`*^9}, {3.9121616942577887`*^9, 
   3.912161770187453*^9}, {3.9121618050186462`*^9, 3.9121618848486147`*^9}, {
   3.912161952048806*^9, 3.912162006347658*^9}, {3.9121620789990873`*^9, 
   3.912162119327769*^9}, {3.9140930898495655`*^9, 3.9140930989757533`*^9}, {
   3.9145744286332293`*^9, 3.9145744459937925`*^9}, {3.915260318491085*^9, 
   3.9152603728655033`*^9}, {3.9152604087304316`*^9, 
   3.9152605416276956`*^9}, {3.915260943724496*^9, 3.915260967955821*^9}, {
   3.9152616104848614`*^9, 3.915261636404451*^9}, {3.9152616759874287`*^9, 
   3.9152617007513895`*^9}, {3.9154371880745926`*^9, 
   3.9154371882578864`*^9}, {3.916675865574707*^9, 3.9166759446382666`*^9}, {
   3.9168257632221346`*^9, 3.916825782670475*^9}, {3.9168263657964487`*^9, 
   3.916826436827132*^9}, {3.9169745223632092`*^9, 3.9169745249312096`*^9}, {
   3.919309120519627*^9, 3.9193091397915993`*^9}, {3.9199593897142344`*^9, 
   3.9199594016616273`*^9}, {3.9199595252801666`*^9, 
   3.9199595664360647`*^9}, {3.9199596230494432`*^9, 
   3.9199596358230877`*^9}, {3.919959672120443*^9, 3.9199596741659565`*^9}, {
   3.919960237640087*^9, 3.9199602414251304`*^9}, {3.9199631260000753`*^9, 
   3.91996314448448*^9}, 3.9199634208912826`*^9, {3.919963456810178*^9, 
   3.919963457085146*^9}, {3.9200133000329647`*^9, 3.920013310984576*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[202]:=",ExpressionUUID->"a9091338-f05b-4de3-9d38-9aada0073970"],

Cell[CellGroupData[{

Cell["Silent run", "Subsection",
 CellChangeTimes->{{3.919966361155455*^9, 3.9199663627000036`*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"09f44661-663e-4f4a-9f01-\
fb115604f005"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SilentOption", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"SilentOption", "!=", "0"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"alpfermionselection", "=", "\"\<New\>\""}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"acceptancetypechoice", "=", "\"\<>=n\>\""}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"decaychannelschoice", "=", "\"\<Yes\>\""}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"HadronizationOptionChoice", "=", "\"\<Hadronized products\>\""}],
     ";", "\[IndentingNewLine]", 
    RowBox[{"ntracksmin", "=", "4"}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"FinalBlock", "[", 
      RowBox[{"LLP_", ",", "isim_"}], "]"}], ":=", 
     RowBox[{"Block", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"masslist", "=", 
         RowBox[{"mLLPlist", "[", "LLP", "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"LLP", "==", "\"\<ALP-fermion\>\""}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"alpfermionselection", "=", 
              RowBox[{"dropdownDialog", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"\"\<New\>\"", ",", "\"\<Old\>\""}], "}"}], ",", 
                RowBox[{"Row", "[", 
                 RowBox[{
                 "{", "\"\<Use old phenomenology from 1901.09966, or the new \
one from 2310.03524?\>\"", "}"}], "]"}]}], "]"}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"LLPchoiceForComputation", "=", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"alpfermionselection", "==", "\"\<New\>\""}], ",", 
                "\"\<ALP-fermion\>\"", ",", 
                "\"\<ALP-fermion-no-hadronic-decays\>\""}], "]"}]}]}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"LLPchoiceForComputation", "=", "LLP"}], ";"}]}], 
           "\[IndentingNewLine]", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"LLP", "==", "\"\<ALP-fermion\>\""}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"LLPchoiceForComputation", "=", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"alpfermionselection", "==", "\"\<New\>\""}], ",", 
              "\"\<ALP-fermion\>\"", ",", 
              "\"\<ALP-fermion-no-hadronic-decays\>\""}], "]"}]}], ";"}], 
          "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"LLPchoiceForComputation", "=", "LLP"}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"hadropt", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
           "HadronizationOptionChoice", "==", "\"\<Hadronized products\>\""}],
            ",", "\"\<True\>\"", ",", "\"\<False\>\""}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"decaychannelschoice", "=", 
           RowBox[{"dropdownDialog", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"\"\<Yes\>\"", ",", "\"\<No\>\""}], "}"}], ",", 
             RowBox[{"Row", "[", 
              RowBox[{"{", 
               RowBox[{"\"\<Default decay chanels: \>\"", ",", 
                RowBox[{"ProcessesListRefined", "[", 
                 RowBox[{
                 "LLPchoiceForComputation", ",", 
                  "ECALoptionGivenExperiment"}], "]"}], ",", 
                "\"\<. Keep them?\>\""}], "}"}], "]"}]}], "]"}]}], ";"}], 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
         "List", " ", "of", " ", "decay", " ", "processes", " ", "considered",
           " ", "as", " ", "visible", " ", "for", " ", "the", " ", "given", 
          " ", "calculation"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"proclist", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"decaychannelschoice", "==", "\"\<No\>\""}], ",", " ", 
           RowBox[{"selectionDialog", "[", 
            RowBox[{
             RowBox[{"ProcessesListRefined", "[", 
              RowBox[{
              "LLPchoiceForComputation", ",", "ECALoptionGivenExperiment"}], 
              "]"}], ",", "\"\<Select decay channels:\>\""}], "]"}], ",", 
           RowBox[{"ProcessesListRefined", "[", 
            RowBox[{
            "LLPchoiceForComputation", ",", "ECALoptionGivenExperiment"}], 
            "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
         "The", " ", "total", " ", "branching", " ", "ratio", " ", "of", " ", 
          "the", " ", "selected", " ", "visible", " ", "channels"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"BrVisibleExport", "[", "mLLP_", "]"}], "=", 
         RowBox[{"BrVisibleGivenSetup", "[", 
          RowBox[{
          "LLPchoiceForComputation", ",", "mLLP", ",", "proclist", ",", 
           "ECALoptionGivenExperiment"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{
          "Redefining", " ", "the", " ", "mass", " ", "list", " ", "such", 
           " ", "that", " ", "it", " ", "matches", " ", "the", " ", "domain", 
           " ", "where", " ", "the", " ", "br", " ", "ratio", " ", "of", " ", 
           "selected", " ", "channels", " ", "is", " ", "non"}], "-", 
          "zero"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"tabbrvis", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"mLLP", ",", 
             RowBox[{"BrVisibleExport", "[", "mLLP", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"mLLP", ",", 
             RowBox[{"masslist", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"masslist", "[", 
              RowBox[{"[", 
               RowBox[{"-", "1"}], "]"}], "]"}], ",", 
             FractionBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"masslist", "[", 
                 RowBox[{"[", 
                  RowBox[{"-", "1"}], "]"}], "]"}], "-", 
                RowBox[{"masslist", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "100"]}], "}"}]}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"mminnonzero", ",", "mmaxnonzero"}], "}"}], "=", 
         RowBox[{
          RowBox[{
           RowBox[{"Select", "[", 
            RowBox[{"tabbrvis", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}], ">", 
               SuperscriptBox["10", 
                RowBox[{"-", "15."}]]}], "&"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}], "//", "MinMax"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"masslist", "=", 
         RowBox[{
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"{", "mminnonzero", "}"}], ",", 
            RowBox[{"Select", "[", 
             RowBox[{"masslist", ",", 
              RowBox[{
               RowBox[{"mminnonzero", "<", "#", "<", "mmaxnonzero"}], "&"}]}],
              "]"}], ",", 
            RowBox[{"{", "mmaxnonzero", "}"}]}], "]"}], "//", "N"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
         "Calculation", " ", "of", " ", "the", " ", "decay", " ", "products", 
          " ", "acceptance", " ", "for", " ", "the", " ", "selected", " ", 
          "visible", " ", "channels"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Length", "[", "proclist", "]"}], "*", 
            RowBox[{"Length", "[", "masslist", "]"}]}], "\[NotEqual]", "0"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"tabcomp", "=", 
             RowBox[{"Monitor", "[", 
              RowBox[{
               RowBox[{"Table", "[", 
                RowBox[{
                 RowBox[{"FinalBlockMass", "[", 
                  RowBox[{"LLPchoiceForComputation", ",", 
                   RowBox[{"masslist", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], ",", "proclist", ",", 
                   "isim", ",", "hadropt", ",", "acceptancetypechoice"}], 
                  "]"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"l", ",", "1", ",", 
                   RowBox[{"Length", "[", "masslist", "]"}], ",", "1"}], 
                  "}"}]}], "]"}], ",", 
               RowBox[{"Row", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"ProgressIndicator", "[", 
                    RowBox[{"l", ",", 
                    RowBox[{"{", 
                    RowBox[{"1", ",", 
                    RowBox[{"Length", "[", "masslist", "]"}]}], "}"}]}], 
                    "]"}], ",", "\"\<i = \>\"", ",", "l", ",", "\"\</\>\"", 
                   ",", 
                   RowBox[{"Length", "[", "masslist", "]"}], ",", 
                   "\"\< (\!\(\*SubscriptBox[\(m\), \(LLP\)]\) = \>\"", ",", 
                   RowBox[{"masslist", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], ",", "\"\< GeV)\>\""}], 
                  "}"}], ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}], "*)"}], 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"tabcomp", "=", 
            RowBox[{
             RowBox[{
             "ResourceFunction", "[", "\"\<MonitorProgress\>\"", "]"}], "@", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"FinalBlockMass", "[", 
                RowBox[{"LLPchoiceForComputation", ",", 
                 RowBox[{"masslist", "[", 
                  RowBox[{"[", "l", "]"}], "]"}], ",", "proclist", ",", 
                 "isim", ",", "hadropt", ",", "acceptancetypechoice", ",", 
                 "ntracksmin"}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"l", ",", "1", ",", 
                 RowBox[{"Length", "[", "masslist", "]"}], ",", "1"}], 
                "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"GivenExperimentNameFin", "=", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"hadropt", "==", "\"\<True\>\""}], ",", 
              "GivenExperimentName", ",", 
              RowBox[{
              "GivenExperimentName", "<>", "\"\<-no-hadronization\>\""}]}], 
             "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"filenameexport", "=", 
            RowBox[{"ToString", "@", 
             RowBox[{"StringForm", "[", 
              RowBox[{"\"\<Acceptance_``_for_``.m\>\"", ",", 
               RowBox[{"Sequence", "@@", 
                RowBox[{"{", 
                 RowBox[{"GivenExperimentNameFin", ",", "LLP"}], "}"}]}]}], 
              "]"}]}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Flatten", "[", 
            RowBox[{"tabcomp", ",", "1"}], "]"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
          "Print", "[", 
           "\"\<No processes for the given LLP/ECAL availability!\>\"", 
           "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"BlockExport", "[", 
      RowBox[{"LLP_", ",", "isim_"}], "]"}], ":=", 
     RowBox[{"Block", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"datatemp", "=", 
         RowBox[{"FinalBlock", "[", 
          RowBox[{"LLP", ",", "isim"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Export", "[", 
         RowBox[{
          RowBox[{"FileNameJoin", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"NotebookDirectory", "[", "]"}], ",", 
             "\"\<Acceptances\>\"", ",", "GivenExperimentNameFin", ",", 
             "filenameexport"}], "}"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
           "FacilityGivenExperiment", ",", "ECALoptionGivenExperiment", ",", 
            "datatemp", ",", "TableParticlesNumbersGivenExperiment", ",", 
            RowBox[{"BrVisibleExport", "[", "mLLP", "]"}]}], "}"}], ",", 
          "\"\<MX\>\""}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.919966381252241*^9, 3.919966423541964*^9}, {
  3.9199664754343987`*^9, 3.9199664830199313`*^9}, {3.9199665205428977`*^9, 
  3.9199666900455556`*^9}, {3.919966744290177*^9, 3.9199667445003366`*^9}, {
  3.9199668392671366`*^9, 3.9199668393190393`*^9}, {3.9200132859992666`*^9, 
  3.9200132877165565`*^9}, {3.9200134801844563`*^9, 3.9200134808040075`*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[212]:=",ExpressionUUID->"53ffba7d-4ea4-4649-b0b1-b41ebb9d4d04"],

Cell[BoxData[
 RowBox[{
  RowBox[{"fdf", "=", 
   RowBox[{"FinalBlockMass", "[", 
    RowBox[{
    "\"\<DP\>\"", ",", "0.01", ",", "proclist", ",", "100", ",", 
     "\"\<True\>\"", ",", "\"\<>=2\>\"", ",", "2"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.9347870328446965`*^9, 3.934787068342279*^9}},
 CellLabel->
  "In[2775]:=",ExpressionUUID->"0c1ef6a7-76df-48bf-b4a0-5a01f04f05db"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Select", "[", 
    RowBox[{"fdf", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ">", "350"}], "&"}]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", 
     RowBox[{"-", "1"}]}], "]"}], "]"}], "//", "Mean"}]], "Input",
 CellChangeTimes->{{3.9347873534892917`*^9, 3.9347873893379087`*^9}},
 CellLabel->
  "In[2781]:=",ExpressionUUID->"8801a67c-6317-4874-b2b8-6f9213863e76"]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Actual computation of the decay acceptance", "Chapter",
 CellChangeTimes->{{3.8850061437436857`*^9, 3.8850061450832815`*^9}, {
   3.886145449456651*^9, 3.8861454859360905`*^9}, {3.887781460454486*^9, 
   3.8877814772686296`*^9}, 3.8882541572532434`*^9, 3.8896946090029707`*^9, {
   3.8908162850087905`*^9, 3.89081628646469*^9}, 3.8933529899662642`*^9, {
   3.893436990617954*^9, 3.893436996266165*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"1122703c-072d-4bea-922d-\
683873975a0e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"BlockAcceptanceComputation", "[", "LLP_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"nb", "=", 
      RowBox[{"EvaluationNotebook", "[", "]"}]}], ";", "\n", 
     RowBox[{"NotebookFind", "[", 
      RowBox[{"nb", ",", "LLP", ",", "All", ",", "CellTags"}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"SelectionEvaluate", "[", "nb", "]"}]}]}], "\[IndentingNewLine]",
    "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<List of LLPs:\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"LLPlistReduced", "=", 
  RowBox[{
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"LLPlist", ",", 
       RowBox[{
        RowBox[{"!", 
         RowBox[{"MemberQ", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "\"\<HNL-mixing-e\>\"", ",", "\"\<HNL-mixing-mu\>\"", ",", 
             "\"\<HNL-mixing-tau\>\"", ",", 
             "\"\<ALP-fermion-no-hadronic-decays\>\""}], "}"}], ",", "#"}], 
          "]"}]}], "&"}]}], "]"}], ",", 
     RowBox[{"{", "\"\<HNL\>\"", "}"}]}], "]"}], "//", 
   "Sort"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"selectionDialog", "[", 
   RowBox[{"list_", ",", "phrase_"}], "]"}], ":=", 
  RowBox[{"DialogInput", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"choice", "=", 
      RowBox[{"{", "}"}]}], "}"}], ",", 
    RowBox[{"Column", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Row", "[", 
        RowBox[{"{", "phrase", "}"}], "]"}], ",", 
       RowBox[{"TogglerBar", "[", 
        RowBox[{
         RowBox[{"Dynamic", "[", "choice", "]"}], ",", "list", ",", 
         RowBox[{"Appearance", "->", "\"\<Vertical\>\""}]}], "]"}], ",", 
       RowBox[{"Button", "[", 
        RowBox[{"\"\<OK\>\"", ",", 
         RowBox[{"DialogReturn", "[", "choice", "]"}]}], "]"}]}], "}"}], 
     "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  "\"\<List of LLPs for which the acceptance will be computed:\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"SelectedLLPlistTemp", "=", 
  RowBox[{"selectionDialog", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Join", "[", "LLPlistReduced", "]"}], "//", "Sort"}], ",", 
    "\"\<Select LLPs for which acceptances will be computed:\>\""}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SelectedLLPlist", "=", 
   RowBox[{"Join", "[", "SelectedLLPlistTemp", 
    RowBox[{"(*", 
     RowBox[{",", 
      RowBox[{"{", "\"\<Technical\>\"", "}"}]}], "*)"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GivenExperimentName", "=", 
   RowBox[{"DialogInput", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"cut", "=", "GivenExperiment"}], "}"}], ",", 
     RowBox[{"Column", "[", 
      RowBox[{"{", 
       RowBox[{"\"\<Enter the name of the experiment for exporting:\>\"", ",", 
        RowBox[{"InputField", "[", 
         RowBox[{
          RowBox[{"Dynamic", "[", "cut", "]"}], ",", "String"}], "]"}], ",", 
        RowBox[{"Button", "[", 
         RowBox[{"\"\<Proceed\>\"", ",", 
          RowBox[{"DialogReturn", "[", "cut", "]"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", "Automatic"}]}], "]"}]}], "}"}], 
      "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"DirectoryQ", "[", "\"\<Acceptances\>\"", "]"}], "//", 
       "ToString"}], ")"}], "\[Equal]", "\"\<False\>\""}], ",", 
    RowBox[{"CreateDirectory", "[", "\"\<Acceptances\>\"", "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"DirectoryQ", "[", 
         RowBox[{"FileNameJoin", "[", 
          RowBox[{"{", 
           RowBox[{"\"\<Acceptances\>\"", ",", "GivenExperimentName"}], "}"}],
           "]"}], "]"}], "//", "ToString"}], ")"}], "\[Equal]", 
      "\"\<False\>\""}], ",", 
     RowBox[{"CreateDirectory", "[", 
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{"\"\<Acceptances\>\"", ",", "GivenExperimentName"}], "}"}], 
       "]"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"ChoiceDialog", "[", 
    RowBox[{
    "\"\<Choose the LLP for which acceptances will be computed:\>\"", ",", 
     RowBox[{"Join", "[", 
      RowBox[{"LLPlistReduced", ",", 
       RowBox[{"{", "\"\<All\>\"", "}"}]}], "]"}], ",", 
     RowBox[{"Appearance", "\[Rule]", 
      RowBox[{"\"\<Vertical\>\"", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Automatic", ",", "3"}], "}"}]}]}]}], "]"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ivaltest", "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"GivenExperiment", "==", "\"\<SHiNESS\>\""}], ",", 
     SuperscriptBox["10", "4"], ",", "1000"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Do", "[", 
    RowBox[{
     RowBox[{"BlockAcceptanceComputation", "[", 
      RowBox[{"SelectedLLPlist", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "SelectedLLPlist", "]"}], ",", "1"}], "}"}]}], 
    "]"}], "*)"}]}]}], "Input",
 CellChangeTimes->{
  3.8896950595137253`*^9, {3.8904130243273077`*^9, 3.890413033547454*^9}, {
   3.890413133306282*^9, 3.890413164761125*^9}, {3.8904141629070535`*^9, 
   3.8904141638350925`*^9}, 3.892883367269068*^9, {3.893233746308257*^9, 
   3.8932337700855803`*^9}, {3.8933482345206532`*^9, 3.8933482501765194`*^9}, 
   3.8941244115567007`*^9, {3.8987018737205153`*^9, 3.8987018753553934`*^9}, {
   3.8987019122797337`*^9, 3.8987019130039053`*^9}, {3.9017337142875385`*^9, 
   3.90173376901267*^9}, {3.9025586059197598`*^9, 3.9025586311667233`*^9}, {
   3.9040631070251017`*^9, 3.9040631285708213`*^9}, {3.904066967949132*^9, 
   3.9040670647256765`*^9}, {3.9040678761475725`*^9, 3.904067898822685*^9}, {
   3.9048341779179535`*^9, 3.904834192131352*^9}, {3.9048359432939706`*^9, 
   3.904835954657815*^9}, 3.904838398370827*^9, {3.904844835522743*^9, 
   3.904844901294034*^9}, 3.9048887436571302`*^9, {3.9048894090370913`*^9, 
   3.9048894141924086`*^9}, 3.9048906466333795`*^9, 3.904890765032191*^9, 
   3.904890980838414*^9, 3.904897590267807*^9, 3.9049000802951903`*^9, 
   3.9049004991668596`*^9, {3.905230785136306*^9, 3.90523079506658*^9}, {
   3.9058418190778837`*^9, 3.905841823751466*^9}, {3.9102609081252975`*^9, 
   3.910260941495719*^9}, {3.9112333698084307`*^9, 3.911233370546249*^9}, {
   3.9121617786487746`*^9, 3.912161778887848*^9}, {3.912162163367823*^9, 
   3.912162163601643*^9}, 3.9144053197263775`*^9, {3.9145708919757957`*^9, 
   3.9145708948954563`*^9}, {3.915437188390131*^9, 3.915437188430652*^9}, 
   3.915639447652668*^9, {3.9156402890879726`*^9, 3.915640289316105*^9}, 
   3.9156814764468746`*^9, {3.915865485198324*^9, 3.9158654948496113`*^9}, 
   3.916136802421788*^9, {3.933923809988985*^9, 3.9339238140374546`*^9}, {
   3.9339247608636265`*^9, 3.933924763491953*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[214]:=",ExpressionUUID->"515acc55-6b67-4659-9023-26157b42bcc9"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Chapter to be automatically launched by the previous chapter. No need to \
launch it manually\
\>", "Title",
 CellChangeTimes->{{3.8896883278364477`*^9, 3.889688379627076*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"50fe94e7-41b3-4591-8230-\
3cb2e8dd141f"],

Cell[CellGroupData[{

Cell["Scalar", "Chapter",
 CellChangeTimes->{{3.8896886159303627`*^9, 3.8896886165850496`*^9}, {
   3.890211278099838*^9, 3.89021127819596*^9}, {3.890211408420647*^9, 
   3.890211411055007*^9}, 3.914573595807684*^9},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"f484ff0b-b8e0-465d-a715-\
b1fad05c034b"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<Scalar\>\""}], "]"}], "||", 
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<All\>\""}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dataS", "=", 
      RowBox[{"BlockExport", "[", 
       RowBox[{"\"\<Scalar\>\"", ",", "ivaltest"}], "]"}]}], ";"}], "//", 
    "AbsoluteTiming"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.8896885802459803`*^9, 3.8896885827689047`*^9}, {
   3.890286002584097*^9, 3.890286005940942*^9}, {3.890410901345583*^9, 
   3.8904109035068307`*^9}, 3.8906394066157846`*^9, {3.890816223385516*^9, 
   3.890816223619833*^9}, {3.8913265507626486`*^9, 3.891326566098019*^9}, {
   3.8913266097136097`*^9, 3.8913266114175863`*^9}, {3.8913268968571424`*^9, 
   3.891326907713011*^9}, {3.898701929394251*^9, 3.898701930138372*^9}, {
   3.9017250415954337`*^9, 3.901725043232337*^9}, {3.903978340083085*^9, 
   3.9039783412366867`*^9}, {3.9039798655576477`*^9, 3.9039798665096188`*^9}, 
   3.904066812814445*^9, {3.9040669084551287`*^9, 3.9040669089997005`*^9}, 
   3.9048341958212495`*^9, 3.9121621757178483`*^9, {3.9339244761821823`*^9, 
   3.9339244934606113`*^9}, {3.9339245455326633`*^9, 3.9339245814894905`*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[225]:=",ExpressionUUID->"55f30a0f-e2c9-4c8b-b746-0563c020463e"]
}, Closed]],

Cell[CellGroupData[{

Cell["HNL", "Chapter",
 CellChangeTimes->{{3.8896886159303627`*^9, 3.8896886165850496`*^9}, {
   3.889688683716093*^9, 3.8896886857401342`*^9}, 3.9145735968644953`*^9},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"d7170412-afdc-4161-8e10-\
84572948fcb6"],

Cell[CellGroupData[{

Cell["e mixing", "Section",
 CellChangeTimes->{{3.8896776028040915`*^9, 3.88967761588931*^9}, {
  3.8896886191080112`*^9, 3.889688643231896*^9}, {3.8908159984033375`*^9, 
  3.890815999325034*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"ddd02bff-99e7-4be3-9ae8-\
7da7f1f9e7f6"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<HNL\>\""}], "]"}], "||", 
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<All\>\""}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dataS", "=", 
      RowBox[{"BlockExport", "[", 
       RowBox[{"\"\<HNL-mixing-e\>\"", ",", "ivaltest"}], "]"}]}], ";"}], "//",
     "AbsoluteTiming"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.890816018273184*^9, 3.890816020624732*^9}, {
   3.8908160568387513`*^9, 3.890816062188861*^9}, {3.8913269142971125`*^9, 
   3.8913269178328753`*^9}, {3.8987019570852327`*^9, 3.8987019581146774`*^9}, 
   3.9017250472823524`*^9, 3.904066814812254*^9, 3.904066911590951*^9, 
   3.9048341997893047`*^9, 3.9121621778076906`*^9, {3.933924592817642*^9, 
   3.933924602194515*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[226]:=",ExpressionUUID->"2d691514-165d-4155-9fe4-90d3eceffacc"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[Mu] mixing", "Section",
 CellChangeTimes->{{3.8896776028040915`*^9, 3.88967761588931*^9}, {
  3.8896886191080112`*^9, 3.889688643231896*^9}, {3.8908159984033375`*^9, 
  3.890816006127554*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"c5e48e31-838c-4e45-a1b5-\
f2bc8b547930"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<HNL\>\""}], "]"}], "||", 
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<All\>\""}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dataS", "=", 
      RowBox[{"BlockExport", "[", 
       RowBox[{"\"\<HNL-mixing-mu\>\"", ",", 
        SuperscriptBox["10", "3"]}], "]"}]}], ";"}], "//", 
    "AbsoluteTiming"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.890816046930589*^9, 3.8908160685155964`*^9}, {
   3.8913269211286597`*^9, 3.8913269239969816`*^9}, {3.8987019615871563`*^9, 
   3.8987019623446865`*^9}, 3.901725049237804*^9, 3.9040631285756426`*^9, 
   3.904066816853175*^9, 3.9040669132764196`*^9, 3.904834201138288*^9, 
   3.912162179791603*^9, {3.91564027997274*^9, 3.915640281016702*^9}, {
   3.9315051726745777`*^9, 3.9315051732541943`*^9}, {3.933924607409809*^9, 
   3.933924612935791*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[227]:=",ExpressionUUID->"0281b42f-6a7b-4ff8-bd75-dc322a4b576b"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[Tau] mixing", "Section",
 CellChangeTimes->{{3.8896776028040915`*^9, 3.88967761588931*^9}, {
  3.8896886191080112`*^9, 3.889688643231896*^9}, {3.8908159984033375`*^9, 
  3.8908160107629995`*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"ae7d6707-c19e-41ed-bcfa-\
5f6075b93690"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<HNL\>\""}], "]"}], "||", 
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<All\>\""}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dataS", "=", 
      RowBox[{"BlockExport", "[", 
       RowBox[{"\"\<HNL-mixing-tau\>\"", ",", 
        SuperscriptBox["10", "3"]}], "]"}]}], ";"}], "//", 
    "AbsoluteTiming"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.8908160518188677`*^9, 3.8908160779349165`*^9}, {
   3.891326926176611*^9, 3.8913269324090004`*^9}, {3.8987019639933434`*^9, 
   3.898701969297323*^9}, 3.901725051096363*^9, 3.904063107035528*^9, 
   3.9040668188833933`*^9, 3.904066915002926*^9, 3.9048342033923273`*^9, {
   3.9068009449239655`*^9, 3.9068009731559124`*^9}, 3.9121621819574184`*^9, 
   3.9156401870254135`*^9, 3.9156402856642675`*^9, {3.933924617544508*^9, 
   3.9339246226598377`*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[228]:=",ExpressionUUID->"d16f6260-c035-4ea6-b79c-64f9982fc872"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Dark photon", "Chapter",
 CellChangeTimes->{{3.8896886159303627`*^9, 3.8896886165850496`*^9}, {
  3.8896886874423647`*^9, 3.889688689953738*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"a2a27669-55db-42a0-91ac-\
e576f69cbd28"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<DP\>\""}], "]"}], "||", 
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<All\>\""}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dataS", "=", 
      RowBox[{"BlockExport", "[", 
       RowBox[{"\"\<DP\>\"", ",", "ivaltest"}], "]"}]}], ";"}], "//", 
    "AbsoluteTiming"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.8896885802459803`*^9, 3.8896885827689047`*^9}, {
   3.889694214540489*^9, 3.8896942153880816`*^9}, {3.890410983681602*^9, 
   3.8904109839319196`*^9}, 3.8904133470651274`*^9, {3.890816085201006*^9, 
   3.8908160911196613`*^9}, {3.891326934409067*^9, 3.8913269372174606`*^9}, 
   3.898701970718356*^9, 3.9017250523184357`*^9, 3.9040668239528775`*^9, 
   3.9040669177932444`*^9, 3.9048342049248123`*^9, 3.9121621835377707`*^9, {
   3.9339246263988934`*^9, 3.933924631149866*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[229]:=",ExpressionUUID->"277a7732-e700-4a66-9ac3-96adad0b972c"]
}, Closed]],

Cell[CellGroupData[{

Cell["ALP-fermion", "Chapter",
 CellChangeTimes->{{3.8896886159303627`*^9, 3.8896886165850496`*^9}, {
  3.889688691481767*^9, 3.8896886928026557`*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"e3a0350b-2791-49aa-98c6-\
3529a2c654c1"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<ALP-fermion\>\""}], "]"}], "||", 
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<All\>\""}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dataS", "=", 
      RowBox[{"BlockExport", "[", 
       RowBox[{"\"\<ALP-fermion\>\"", ",", "ivaltest"}], "]"}]}], ";"}], "//",
     "AbsoluteTiming"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.8908161001874895`*^9, 3.8908161065598884`*^9}, {
   3.8913269399930305`*^9, 3.891326945104858*^9}, 3.8933482501790314`*^9, 
   3.8987019722492504`*^9, 3.9017250538282585`*^9, 3.904066826595016*^9, 
   3.9040669198609405`*^9, {3.904834207299658*^9, 3.90483420850706*^9}, 
   3.9121621859574027`*^9, {3.933924633995077*^9, 3.9339246409813595`*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[230]:=",ExpressionUUID->"a918caa4-7727-46ab-8a89-82e88c0362fe"]
}, Closed]],

Cell[CellGroupData[{

Cell["ALP-gluon", "Chapter",
 CellChangeTimes->{{3.8896886159303627`*^9, 3.8896886165850496`*^9}, {
  3.8896886944223056`*^9, 3.8896886966354637`*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"81e7c979-05d1-46d3-9f30-\
c348d4ad85ee"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<ALP-gluon\>\""}], "]"}], "||", 
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<All\>\""}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dataS", "=", 
      RowBox[{"BlockExport", "[", 
       RowBox[{"\"\<ALP-gluon\>\"", ",", "ivaltest"}], "]"}]}], ";"}], "//", 
    "AbsoluteTiming"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.8896885802459803`*^9, 3.8896885827689047`*^9}, {
   3.8896899373248334`*^9, 3.8896899390426464`*^9}, {3.8904109916380396`*^9, 
   3.8904109920829134`*^9}, 3.8904133374848413`*^9, {3.8908161143241005`*^9, 
   3.8908161290543623`*^9}, {3.8913269484244795`*^9, 3.891326951768643*^9}, 
   3.8933482428877687`*^9, 3.898701973231733*^9, 3.9017250559509397`*^9, 
   3.904066829718545*^9, 3.9040669227381296`*^9, {3.9048342103581743`*^9, 
   3.904834210506663*^9}, 3.9121621876083264`*^9, {3.933924644504236*^9, 
   3.933924652379776*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[231]:=",ExpressionUUID->"aba09ef3-d167-4755-87ff-1a83c4b688d5"]
}, Closed]],

Cell[CellGroupData[{

Cell["ALP-photon", "Chapter",
 CellChangeTimes->{{3.8896886159303627`*^9, 3.8896886165850496`*^9}, {
  3.8896886980974836`*^9, 3.889688699338743*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"5625edba-b5ba-4cb5-9940-\
c9858cc46292"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<ALP-photon\>\""}], "]"}], "||", 
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<All\>\""}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dataS", "=", 
      RowBox[{"BlockExport", "[", 
       RowBox[{"\"\<ALP-photon\>\"", ",", "ivaltest"}], "]"}]}], ";"}], "//", 
    "AbsoluteTiming"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.8908161401122093`*^9, 3.8908161460060034`*^9}, {
   3.8913269550648193`*^9, 3.891326958625289*^9}, 3.8933482345256605`*^9, 
   3.898701974555247*^9, 3.901725057262084*^9, 3.904834212239154*^9, 
   3.912162189787862*^9, {3.933924656858162*^9, 3.933924665179596*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[232]:=",ExpressionUUID->"dd98e7ac-70d9-42c3-b9cb-4d75c194750b"]
}, Closed]],

Cell[CellGroupData[{

Cell["B-L mediator", "Chapter",
 CellChangeTimes->{{3.8896886159303627`*^9, 3.8896886165850496`*^9}, {
  3.8896886980974836`*^9, 3.889688699338743*^9}, {3.8941245471984444`*^9, 
  3.8941245487614183`*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"e232d438-2751-493d-800c-\
f3a635b2cec9"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<B-L\>\""}], "]"}], "||", 
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<All\>\""}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dataS", "=", 
      RowBox[{"BlockExport", "[", 
       RowBox[{"\"\<B-L\>\"", ",", "ivaltest"}], "]"}]}], ";"}], "//", 
    "AbsoluteTiming"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.8908161401122093`*^9, 3.8908161460060034`*^9}, {
   3.8913269550648193`*^9, 3.891326958625289*^9}, 3.8933482345256605`*^9, {
   3.8941245521775813`*^9, 3.894124552789379*^9}, 3.8987019761246915`*^9, 
   3.9017250586568685`*^9, 3.904066832304923*^9, 3.9040669251551285`*^9, 
   3.9048342176353683`*^9, {3.9121621917176294`*^9, 3.9121621939677258`*^9}, {
   3.9339246689432087`*^9, 3.933924673657854*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[233]:=",ExpressionUUID->"3b3d14d3-13f5-445f-9eff-9c44a6e40057"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{"B", "-", 
    RowBox[{"3", 
     SubscriptBox["L", "\[Mu]"]}]}], TraditionalForm]],ExpressionUUID->
  "a9dfcdd0-e07b-4999-bb43-f576b4fdae6b"],
 " mediator"
}], "Chapter",
 CellChangeTimes->{{3.8896886159303627`*^9, 3.8896886165850496`*^9}, {
  3.8896886980974836`*^9, 3.889688699338743*^9}, {3.8941245471984444`*^9, 
  3.8941245487614183`*^9}, {3.8963272477784033`*^9, 3.896327248648427*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"16a85890-a485-4861-9461-\
a18557ef8b7a"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<B-3Lmu\>\""}], "]"}], "||", 
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<All\>\""}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dataS", "=", 
      RowBox[{"BlockExport", "[", 
       RowBox[{"\"\<B-3Lmu\>\"", ",", "ivaltest"}], "]"}]}], ";"}], "//", 
    "AbsoluteTiming"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.8908161401122093`*^9, 3.8908161460060034`*^9}, {
   3.8913269550648193`*^9, 3.891326958625289*^9}, 3.8933482345256605`*^9, {
   3.8941245521775813`*^9, 3.894124552789379*^9}, {3.896327250054564*^9, 
   3.896327251023274*^9}, 3.898701977787983*^9, 3.9017250604750338`*^9, 
   3.9040668348207035`*^9, 3.9040669273338366`*^9, 3.9048342189092026`*^9, 
   3.912162196467767*^9, {3.9339246775053825`*^9, 3.933924684502531*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[234]:=",ExpressionUUID->"0df95c35-68af-4247-97fd-763c96e776b6"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{"B", "-", 
    RowBox[{"3", 
     SubscriptBox["L", "e"]}], "-", 
    SubscriptBox["L", "\[Mu]"], "+", 
    SubscriptBox["L", "\[Tau]"]}], TraditionalForm]],ExpressionUUID->
  "06d20822-7652-4f2e-a24b-4c18e93b83a2"],
 " mediator"
}], "Chapter",
 CellChangeTimes->{{3.8896886159303627`*^9, 3.8896886165850496`*^9}, {
  3.8896886980974836`*^9, 3.889688699338743*^9}, {3.8941245471984444`*^9, 
  3.8941245487614183`*^9}, {3.8963273153961496`*^9, 3.8963273195096984`*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"09c9ab33-2637-4916-82f6-\
caddf0b81315"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<B-3Le-Lmu+Ltau\>\""}], "]"}], "||", 
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<All\>\""}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dataS", "=", 
      RowBox[{"BlockExport", "[", 
       RowBox[{"\"\<B-3Le-Lmu+Ltau\>\"", ",", "ivaltest"}], "]"}]}], ";"}], "//",
     "AbsoluteTiming"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.8908161401122093`*^9, 3.8908161460060034`*^9}, {
   3.8913269550648193`*^9, 3.891326958625289*^9}, 3.8933482345256605`*^9, {
   3.8941245521775813`*^9, 3.894124552789379*^9}, {3.896327307150777*^9, 
   3.8963273127352066`*^9}, 3.8987019795558057`*^9, 3.9017250617527933`*^9, 
   3.904066851661615*^9, 3.9040669306381903`*^9, 3.904834221087583*^9, 
   3.912162198698868*^9, {3.9339247050342903`*^9, 3.933924713192936*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[235]:=",ExpressionUUID->"45ceb630-a695-4c25-89a6-3527c7c47038"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{"B", "-", 
    SubscriptBox["L", "e"], "-", 
    RowBox[{"3", 
     SubscriptBox["L", "\[Mu]"]}], "+", 
    SubscriptBox["L", "\[Tau]"]}], TraditionalForm]],ExpressionUUID->
  "6185be72-64df-4f80-a810-18a90acff797"],
 " mediator"
}], "Chapter",
 CellChangeTimes->{{3.8896886159303627`*^9, 3.8896886165850496`*^9}, {
  3.8896886980974836`*^9, 3.889688699338743*^9}, {3.8941245471984444`*^9, 
  3.8941245487614183`*^9}, {3.8963273223545914`*^9, 3.8963273265510225`*^9}},
 CellTags->
  "Acceptance-computation",ExpressionUUID->"26258063-ea7b-4e5b-a279-\
5922ac490d37"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<B-Le-3Lmu+Ltau\>\""}], "]"}], "||", 
    RowBox[{"MemberQ", "[", 
     RowBox[{"SelectedLLPlist", ",", "\"\<All\>\""}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dataS", "=", 
      RowBox[{"BlockExport", "[", 
       RowBox[{"\"\<B-Le-3Lmu+Ltau\>\"", ",", "ivaltest"}], "]"}]}], ";"}], "//",
     "AbsoluteTiming"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.8908161401122093`*^9, 3.8908161460060034`*^9}, {
   3.8913269550648193`*^9, 3.891326958625289*^9}, 3.8933482345256605`*^9, {
   3.8941245521775813`*^9, 3.894124552789379*^9}, {3.8963273009815197`*^9, 
   3.8963273048769073`*^9}, 3.898701981125592*^9, 3.901725063275606*^9, 
   3.904066853813018*^9, 3.9040669328055983`*^9, 3.9048342225080447`*^9, 
   3.9121622006192255`*^9, {3.933924719550318*^9, 3.9339247256494446`*^9}},
 CellTags->"Acceptance-computation",
 CellLabel->
  "In[236]:=",ExpressionUUID->"f7b64747-fa0c-49f9-85dd-31038f24baee"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Deleting generated cells", "Title",
 CellChangeTimes->{{3.9025559465149946`*^9, 3.9025559494966087`*^9}, {
   3.9025574606272383`*^9, 3.902557472341508*^9}, 3.935507821110736*^9},
 CellTags->"Technical",ExpressionUUID->"19ea33ab-556d-4e65-b877-19f398ffbc00"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"FrontEndTokenExecute", "[", "\"\<DeleteGeneratedCells\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FrontEndTokenExecute", "[", "\"\<SelectAll\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "FrontEndTokenExecute", "[", "\"\<SelectionCloseAllGroups\>\"", "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.9025559062888603`*^9, 3.9025559062888603`*^9}, {
  3.902555964086707*^9, 3.902555989355214*^9}, {3.9025575340856752`*^9, 
  3.902557572290028*^9}, {3.902558525346404*^9, 3.9025585343800073`*^9}, {
  3.9025586514301004`*^9, 3.902558660382742*^9}, {3.9028053646947365`*^9, 
  3.9028053674697666`*^9}, {3.9029372692134156`*^9, 3.9029372786579924`*^9}, {
  3.9140935651833477`*^9, 3.9140936117057467`*^9}, {3.9146710687603626`*^9, 
  3.9146710694857187`*^9}, {3.9347059542225904`*^9, 3.934705961141672*^9}},
 CellTags->"Technical",
 CellLabel->
  "In[1353]:=",ExpressionUUID->"1e4ba83e-9fe0-4106-aa7a-c23a0ac9b933"]
}, Closed]],

Cell[CellGroupData[{

Cell["Some tests", "Title",
 CellChangeTimes->{{3.9161371490476866`*^9, 
  3.916137151049125*^9}},ExpressionUUID->"555bdaaf-7698-4823-9f59-\
42d64c26975b"],

Cell[CellGroupData[{

Cell["Some tests", "Section",
 CellChangeTimes->{{3.915255848733577*^9, 
  3.9152558540876417`*^9}},ExpressionUUID->"97c2751a-bbd5-42bc-92f1-\
50818e659d81"],

Cell[CellGroupData[{

Cell["SHiNESS", "Subsection",
 CellChangeTimes->{{3.9152559104380164`*^9, 
  3.915255912339693*^9}},ExpressionUUID->"87dd6ce1-0fb6-44fd-803a-\
2b0c25413110"],

Cell[CellGroupData[{

Cell["Definitions", "Subsubsection",
 CellChangeTimes->{{3.915862786297736*^9, 3.9158627884565697`*^9}, {
  3.9158674373548837`*^9, 
  3.9158674386726847`*^9}},ExpressionUUID->"b3c28421-1d30-4e34-9c81-\
12d3cba6c2ec"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ENdistrFrom\[Mu]", "[", 
    RowBox[{"mN_", ",", "EN_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "/", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"1.", "*", "EN"}], " ", "-", " ", 
         RowBox[{"4.761904761904762", "*", 
          RowBox[{"mN", "^", "2"}]}], " ", "-", " ", "0.05249999999999999"}], 
        ")"}], "^", "3"}]}], ")"}], "*", "\n", "  ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"EN", "^", "2"}], " ", "-", " ", 
          RowBox[{"mN", "^", "2"}]}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"0.04409999999999999", "*", 
           RowBox[{"EN", "^", "2"}]}], " ", "+", " ", 
          RowBox[{"EN", "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{"0.42", "*", 
                RowBox[{"mN", "^", "2"}]}], ")"}]}], " ", "-", " ", 
             "0.004630394999999999"}], ")"}]}], " ", "+", " ", 
          RowBox[{"mN", "^", "4"}], " ", "+", " ", 
          RowBox[{"0.022049499999999996", "*", 
           RowBox[{"mN", "^", "2"}]}], " ", "+", " ", 
          "0.00012154511256249997"}], ")"}]}], "]"}], "*", "\n", "   ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2.2399999999999998", "*", 
         RowBox[{"EN", "^", "4"}]}], " ", "+", " ", 
        RowBox[{
         RowBox[{"EN", "^", "3"}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{"37.33333333333331", "*", 
              RowBox[{"mN", "^", "2"}]}], ")"}]}], " ", "-", " ", 
           "0.4115986666666664"}], ")"}]}], " ", "+", " ", 
        RowBox[{
         RowBox[{"EN", "^", "2"}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"203.17460317460308", "*", 
            RowBox[{"mN", "^", "4"}]}], " ", "+", " ", 
           RowBox[{"5.599993650793649", "*", 
            RowBox[{"mN", "^", "2"}]}], " ", "+", " ", 
           "0.024695929998412688"}], ")"}]}], " ", "+", " ", "\n", "    ", 
        RowBox[{"EN", "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{"362.8117913832198", "*", 
              RowBox[{"mN", "^", "6"}]}], ")"}]}], " ", "-", " ", 
           RowBox[{"22.666666666666657", "*", 
            RowBox[{"mN", "^", "4"}]}], " ", "-", " ", 
           RowBox[{"0.24990133331065745", "*", 
            RowBox[{"mN", "^", "2"}]}], " ", "-", " ", 
           "0.00048620249974999755"}], ")"}]}], " ", "+", " ", 
        RowBox[{"25.396825396825378", "*", 
         RowBox[{"mN", "^", "6"}]}], " ", "+", " ", 
        RowBox[{"0.5600063492063486", "*", 
         RowBox[{"mN", "^", "4"}]}], " ", "+", " ", 
        RowBox[{"0.0030870699968253965", "*", 
         RowBox[{"mN", "^", "2"}]}], " ", "-", " ", "\n", "    ", 
        "3.825065264528859*^-20"}], ")"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ENmaxFrom\[Mu]", "[", "mN_", "]"}], "=", 
   FractionBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["0.105", "2"], "+", 
      SuperscriptBox["mN", "2"], "-", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"0.5", "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "3"}]]}], ")"}], "2"]}], ")"}], 
    RowBox[{"0.105", "*", "2"}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"energysampling", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Hold", "@", 
      RowBox[{"Compile", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"mN", ",", "_Real"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"nevents", ",", "_Integer"}], "}"}]}], "}"}], ",", 
        RowBox[{"Module", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"enrand", ",", "weights"}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"enrand", "=", 
            RowBox[{"RandomReal", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"mN", ",", 
                RowBox[{"ENmaxFrom\[Mu]", "[", "mN", "]"}]}], "}"}], ",", 
              RowBox[{"Max", "[", 
               RowBox[{
                SuperscriptBox["10", "6"], ",", "nevents"}], "]"}]}], "]"}]}],
            ";", "\[IndentingNewLine]", 
           RowBox[{"weights", "=", 
            RowBox[{"ENdistrFrom\[Mu]", "[", 
             RowBox[{"mN", ",", "enrand"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"RandomChoice", "[", 
            RowBox[{
             RowBox[{"weights", "->", "enrand"}], ",", "nevents"}], "]"}]}]}],
          "\[IndentingNewLine]", "]"}], ",", 
        RowBox[{"CompilationTarget", "->", "\"\<C\>\""}], ",", 
        RowBox[{"RuntimeOptions", "->", "\"\<Speed\>\""}], ",", 
        RowBox[{"RuntimeAttributes", "->", 
         RowBox[{"{", "Listable", "}"}]}], ",", 
        RowBox[{"Parallelization", "->", "True"}]}], "]"}]}], "/.", 
     RowBox[{"ruleDown", "[", 
      RowBox[{"{", 
       RowBox[{"ENdistrFrom\[Mu]", ",", "ENmaxFrom\[Mu]"}], "}"}], "]"}]}], "//",
     "ReleaseHold"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "CompiledFunctionTools`"}], "\n", 
 RowBox[{
  RowBox[{"CompilePrint", "@", "energysampling"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EnergySampling", "[", 
   RowBox[{"prod_", ",", "mN_", ",", "Nevents_"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"prod", "==", "\"\<\[Mu]\>\""}], ",", 
    RowBox[{"energysampling", "[", 
     RowBox[{"mN", ",", "Nevents"}], "]"}], ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"prod", "==", "\"\<Fake \[Mu]\>\""}], ",", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["0.105", "2"], "+", 
          SuperscriptBox["mN", "2"]}], 
         RowBox[{"2", "*", "0.105"}]], ",", "Nevents"}], "]"}], ",", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["0.135", "2"], "+", 
          SuperscriptBox["mN", "2"], "-", 
          SuperscriptBox["0.105", "2"]}], 
         RowBox[{"2", "*", "0.135"}]], ",", "Nevents"}], "]"}]}], "]"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"boosting", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Hold", "@", 
       RowBox[{"Compile", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"energies", ",", "_Real"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"momenta", ",", "_Real", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"phasespace", ",", "_Real", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"mass", ",", "_Real"}], "}"}]}], "}"}], ",", 
         RowBox[{"Module", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "pxm", ",", "pym", ",", "pzm", ",", "pxd1", ",", "pyd1", ",", 
             "pzd1", ",", "ed1", ",", "pxd2", ",", "pyd2", ",", "pzd2", ",", 
             "ed2", ",", "px1lab", ",", "py1lab", ",", "pz1lab", ",", "e1lab",
              ",", "px2lab", ",", "py2lab", ",", "pz2lab", ",", "e2lab", ",", 
             "mass1", ",", "mass2"}], "}"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"pxm", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"momenta", ",", "1"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"pym", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"momenta", ",", "2"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"pzm", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"momenta", ",", "3"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"pxd1", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"phasespace", ",", "indexpx1"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"pyd1", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"phasespace", ",", "indexpy1"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"pzd1", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"phasespace", ",", "indexpz1"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"ed1", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"phasespace", ",", "indexE1"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"mass1", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"phasespace", ",", "indexm1"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"pxd2", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"phasespace", ",", 
               RowBox[{"LengthDataProduct", "+", "indexpx1"}]}], "]"}]}], ";",
             "\[IndentingNewLine]", 
            RowBox[{"pyd2", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"phasespace", ",", 
               RowBox[{"LengthDataProduct", "+", "indexpy1"}]}], "]"}]}], ";",
             "\[IndentingNewLine]", 
            RowBox[{"pzd2", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"phasespace", ",", 
               RowBox[{"LengthDataProduct", "+", "indexpz1"}]}], "]"}]}], ";",
             "\[IndentingNewLine]", 
            RowBox[{"ed2", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"phasespace", ",", 
               RowBox[{"LengthDataProduct", "+", "indexE1"}]}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"mass2", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"phasespace", ",", 
               RowBox[{"LengthDataProduct", "+", "indexm1"}]}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"px1lab", "=", 
             RowBox[{"pproductLab1Cart", "[", 
              RowBox[{
              "pxm", ",", "pym", ",", "pzm", ",", "energies", ",", "mass", 
               ",", "pxd1", ",", "pyd1", ",", "pzd1", ",", "ed1"}], "]"}]}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{"py1lab", "=", 
             RowBox[{"pproductLab2Cart", "[", 
              RowBox[{
              "pxm", ",", "pym", ",", "pzm", ",", "energies", ",", "mass", 
               ",", "pxd1", ",", "pyd1", ",", "pzd1", ",", "ed1"}], "]"}]}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{"pz1lab", "=", 
             RowBox[{"pproductLab3Cart", "[", 
              RowBox[{
              "pxm", ",", "pym", ",", "pzm", ",", "energies", ",", "mass", 
               ",", "pxd1", ",", "pyd1", ",", "pzd1", ",", "ed1"}], "]"}]}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{"e1lab", "=", 
             RowBox[{"EproductLabCart", "[", 
              RowBox[{
              "pxm", ",", "pym", ",", "pzm", ",", "energies", ",", "mass", 
               ",", "pxd1", ",", "pyd1", ",", "pzd1", ",", "ed1"}], "]"}]}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{"px2lab", "=", 
             RowBox[{"pproductLab1Cart", "[", 
              RowBox[{
              "pxm", ",", "pym", ",", "pzm", ",", "energies", ",", "mass", 
               ",", "pxd2", ",", "pyd2", ",", "pzd2", ",", "ed2"}], "]"}]}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{"py2lab", "=", 
             RowBox[{"pproductLab2Cart", "[", 
              RowBox[{
              "pxm", ",", "pym", ",", "pzm", ",", "energies", ",", "mass", 
               ",", "pxd2", ",", "pyd2", ",", "pzd2", ",", "ed2"}], "]"}]}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{"pz2lab", "=", 
             RowBox[{"pproductLab3Cart", "[", 
              RowBox[{
              "pxm", ",", "pym", ",", "pzm", ",", "energies", ",", "mass", 
               ",", "pxd2", ",", "pyd2", ",", "pzd2", ",", "ed2"}], "]"}]}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{"e2lab", "=", 
             RowBox[{"EproductLabCart", "[", 
              RowBox[{
              "pxm", ",", "pym", ",", "pzm", ",", "energies", ",", "mass", 
               ",", "pxd2", ",", "pyd2", ",", "pzd2", ",", "ed2"}], "]"}]}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{
             "px1lab", ",", "py1lab", ",", "pz1lab", ",", "e1lab", ",", 
              "mass1", ",", "px2lab", ",", "py2lab", ",", "pz2lab", ",", 
              "e2lab", ",", "mass2"}], "}"}]}]}], "\[IndentingNewLine]", 
          "]"}], ",", 
         RowBox[{"CompilationTarget", "->", "\"\<C\>\""}], ",", 
         RowBox[{"RuntimeAttributes", "->", 
          RowBox[{"{", "Listable", "}"}]}], ",", 
         RowBox[{"RuntimeOptions", "->", "\"\<Speed\>\""}], ",", 
         RowBox[{"Parallelization", "->", "True"}]}], "]"}]}], "/.", 
      RowBox[{"ruleDown", "[", 
       RowBox[{"{", 
        RowBox[{
        "pproductLab1Cart", ",", "pproductLab2Cart", ",", "pproductLab3Cart", 
         ",", "EproductLabCart"}], "}"}], "]"}]}], "/.", 
     RowBox[{"ruleOwn", "[", 
      RowBox[{"{", 
       RowBox[{
       "LengthDataProduct", ",", "indexpx1", ",", "indexpy1", ",", "indexpz1",
         ",", "indexE1", ",", "indexm1"}], "}"}], "]"}]}], "//", 
    "ReleaseHold"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Alpha]Smearing", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Hold", "@", 
       RowBox[{"Compile", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"daughtermomenta", ",", "_Real", ",", "1"}], "}"}], "}"}], 
         ",", 
         RowBox[{"Module", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "energy1", ",", "energy2", ",", "mass1", ",", "mass2", ",", "px1",
              ",", "px2", ",", "py1", ",", "py2", ",", "pz1", ",", "pz2", ",",
              "\[Theta]1", ",", "\[Theta]2", ",", "\[Phi]1", ",", "\[Phi]2", 
             ",", "\[Theta]smeared1", ",", "\[Theta]smeared2", ",", 
             "\[Alpha]Kelly", ",", "\[Alpha]My", ",", "u1", ",", "u2", ",", 
             "z1", ",", "z2", ",", "\[Alpha]Unsmeared"}], "}"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"energy1", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"daughtermomenta", ",", "indexE1"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"energy2", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"daughtermomenta", ",", 
               RowBox[{"indexm1", "+", "indexE1"}]}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"mass1", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"daughtermomenta", ",", "indexm1"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"mass2", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"daughtermomenta", ",", 
               RowBox[{"indexm1", "+", "indexm1"}]}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"px1", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"daughtermomenta", ",", "indexpx1"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"py1", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"daughtermomenta", ",", "indexpy1"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"pz1", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"daughtermomenta", ",", "indexpz1"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"px2", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"daughtermomenta", ",", 
               RowBox[{"indexm1", "+", "indexpx1"}]}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"py2", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"daughtermomenta", ",", 
               RowBox[{"indexm1", "+", "indexpy1"}]}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"pz2", "=", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"daughtermomenta", ",", 
               RowBox[{"indexm1", "+", "indexpz1"}]}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"\[Theta]1", "=", 
             RowBox[{"\[Theta]Val", "[", 
              RowBox[{"px1", ",", "py1", ",", "pz1"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"\[Theta]2", "=", 
             RowBox[{"\[Theta]Val", "[", 
              RowBox[{"px2", ",", "py2", ",", "pz2"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"\[Phi]1", "=", 
             RowBox[{"\[Phi]Val", "[", 
              RowBox[{"px1", ",", "py1"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"\[Phi]2", "=", 
             RowBox[{"\[Phi]Val", "[", 
              RowBox[{"px1", ",", "py1"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"u1", "=", 
             RowBox[{"RandomReal", "[", 
              RowBox[{"{", 
               RowBox[{"0", ",", "1"}], "}"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"u2", "=", 
             RowBox[{"RandomReal", "[", 
              RowBox[{"{", 
               RowBox[{"0", ",", "1"}], "}"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"z1", "=", 
             RowBox[{
              RowBox[{"Sqrt", "[", 
               RowBox[{
                RowBox[{"-", "2."}], " ", 
                RowBox[{"Log", "[", "u1", "]"}]}], "]"}], " ", 
              RowBox[{"Cos", "[", 
               RowBox[{"2.", " ", "Pi", " ", "u2"}], "]"}]}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"u1", "=", 
             RowBox[{"RandomReal", "[", 
              RowBox[{"{", 
               RowBox[{"0", ",", "1"}], "}"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"u2", "=", 
             RowBox[{"RandomReal", "[", 
              RowBox[{"{", 
               RowBox[{"0", ",", "1"}], "}"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"z2", "=", 
             RowBox[{
              RowBox[{"Sqrt", "[", 
               RowBox[{
                RowBox[{"-", "2."}], " ", 
                RowBox[{"Log", "[", "u1", "]"}]}], "]"}], " ", 
              RowBox[{"Cos", "[", 
               RowBox[{"2.", " ", "Pi", " ", "u2"}], "]"}]}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"\[Theta]smeared1", "=", 
             RowBox[{"\[Theta]1", "+", 
              RowBox[{
               FractionBox["Pi", "180."], "*", "10", "*", "z1"}]}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"\[Theta]smeared2", "=", 
             RowBox[{"\[Theta]2", "+", 
              RowBox[{
               FractionBox["Pi", "180."], "*", "10", "*", "z2"}]}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"u1", "=", 
             RowBox[{"RandomReal", "[", 
              RowBox[{"{", 
               RowBox[{"0", ",", "1"}], "}"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"u2", "=", 
             RowBox[{"RandomReal", "[", 
              RowBox[{"{", 
               RowBox[{"0", ",", "1"}], "}"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"z2", "=", 
             RowBox[{
              RowBox[{"Sqrt", "[", 
               RowBox[{
                RowBox[{"-", "2."}], " ", 
                RowBox[{"Log", "[", "u1", "]"}]}], "]"}], " ", 
              RowBox[{"Cos", "[", 
               RowBox[{"2.", " ", "Pi", " ", "u2"}], "]"}]}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"\[Alpha]Kelly", "=", 
             RowBox[{"ArcCos", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Cos", "[", 
                 RowBox[{"\[Phi]2", "-", "\[Phi]1"}], "]"}], 
                RowBox[{"Sin", "[", "\[Theta]smeared1", "]"}], 
                RowBox[{"Sin", "[", "\[Theta]smeared2", "]"}]}], "+", 
               RowBox[{
                RowBox[{"Cos", "[", "\[Theta]smeared1", "]"}], "*", 
                RowBox[{"Cos", "[", "\[Theta]smeared2", "]"}]}]}], "]"}]}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{"(*", 
             RowBox[{
              RowBox[{"\[Alpha]Kelly", "=", 
               RowBox[{"ArcCos", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Cos", "[", 
                   RowBox[{"\[Phi]2", "-", "\[Phi]1", "+", 
                    RowBox[{
                    FractionBox["Pi", "180."], "*", "10", "*", "z2"}]}], 
                   "]"}], 
                  RowBox[{"Sin", "[", "\[Theta]smeared1", "]"}], 
                  RowBox[{"Sin", "[", "\[Theta]smeared2", "]"}]}], "+", 
                 RowBox[{
                  RowBox[{"Cos", "[", "\[Theta]smeared1", "]"}], "*", 
                  RowBox[{"Cos", "[", "\[Theta]smeared2", "]"}]}]}], "]"}]}], 
              ";"}], "*)"}], "\[IndentingNewLine]", 
            RowBox[{"u1", "=", 
             RowBox[{"RandomReal", "[", 
              RowBox[{"{", 
               RowBox[{"0", ",", "1"}], "}"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"u2", "=", 
             RowBox[{"RandomReal", "[", 
              RowBox[{"{", 
               RowBox[{"0", ",", "1"}], "}"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"z2", "=", 
             RowBox[{
              RowBox[{"Sqrt", "[", 
               RowBox[{
                RowBox[{"-", "2."}], " ", 
                RowBox[{"Log", "[", "u1", "]"}]}], "]"}], " ", 
              RowBox[{"Cos", "[", 
               RowBox[{"2.", " ", "Pi", " ", "u2"}], "]"}]}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"\[Alpha]Unsmeared", "=", 
             RowBox[{"ArcCos", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Cos", "[", 
                 RowBox[{"\[Phi]2", "-", "\[Phi]1"}], "]"}], 
                RowBox[{"Sin", "[", "\[Theta]1", "]"}], 
                RowBox[{"Sin", "[", "\[Theta]2", "]"}]}], "+", 
               RowBox[{
                RowBox[{"Cos", "[", "\[Theta]1", "]"}], "*", 
                RowBox[{"Cos", "[", "\[Theta]2", "]"}]}]}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"\[Alpha]My", "=", 
             RowBox[{"(*", 
              RowBox[{"Min", "[", 
               RowBox[{"Pi", ",", 
                RowBox[{"Max", "[", 
                 RowBox[{"0.", ",", 
                  RowBox[{"\[Alpha]Unsmeared", "+", 
                   RowBox[{
                    FractionBox["Pi", "180."], "*", "10", "*", "z2"}]}]}], 
                 "]"}]}], "]"}], "*)"}], 
             RowBox[{"ArcCos", "[", 
              RowBox[{"Cos", "[", 
               RowBox[{"\[Alpha]Unsmeared", "+", 
                RowBox[{
                 FractionBox["Pi", "180."], "*", "10", "*", "z2"}]}], "]"}], 
              "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{
             "\[Alpha]Unsmeared", ",", "\[Alpha]My", ",", "\[Alpha]Kelly"}], 
             "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", 
         RowBox[{"CompilationTarget", "->", "\"\<C\>\""}], ",", 
         RowBox[{"RuntimeAttributes", "->", 
          RowBox[{"{", "Listable", "}"}]}], ",", 
         RowBox[{"RuntimeOptions", "->", "\"\<Speed\>\""}], ",", 
         RowBox[{"Parallelization", "->", "True"}]}], "]"}]}], "/.", 
      RowBox[{"ruleDown", "[", 
       RowBox[{"{", 
        RowBox[{"\[Theta]Val", ",", "\[Phi]Val"}], "}"}], "]"}]}], "/.", 
     RowBox[{"ruleOwn", "[", 
      RowBox[{"{", 
       RowBox[{
       "indexm1", ",", "indexE1", ",", "indexpx1", ",", "indexpy1", ",", 
        "indexpz1"}], "}"}], "]"}]}], "//", "ReleaseHold"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"selection", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Hold", "@", 
      RowBox[{"Compile", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"finaldata", ",", "_Real", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Ecut", ",", "_Real"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"\[Theta]cut", ",", "_Real"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"index", ",", "_Integer"}], "}"}]}], "}"}], ",", 
        RowBox[{"Module", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"datasel", ",", "len"}], "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"datasel", "=", 
            RowBox[{"Select", "[", 
             RowBox[{"finaldata", ",", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", "indexE1", "]"}], "]"}], ">", "Ecut"}], "&&", 
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", 
                   RowBox[{"indexE1", "+", "indexm1"}], "]"}], "]"}], ">", 
                 "Ecut"}], "&&", 
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", 
                   RowBox[{"-", "index"}], "]"}], "]"}], ">", 
                 "\[Theta]cut"}]}], "&"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           FractionBox[
            RowBox[{"Total", "[", 
             RowBox[{"datasel", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", 
                RowBox[{"-", "4"}]}], "]"}], "]"}], "]"}], 
            RowBox[{"Total", "[", 
             RowBox[{"finaldata", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", 
                RowBox[{"-", "4"}]}], "]"}], "]"}], "]"}]]}]}], 
         "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", 
        RowBox[{"CompilationTarget", "->", "\"\<C\>\""}], ",", 
        RowBox[{"RuntimeOptions", "->", "\"\<Speed\>\""}], ",", 
        RowBox[{"RuntimeAttributes", "->", 
         RowBox[{"{", "Listable", "}"}]}], ",", 
        RowBox[{"Parallelization", "->", "True"}]}], "]"}]}], "/.", 
     RowBox[{"ruleOwn", "[", 
      RowBox[{"{", 
       RowBox[{"indexE1", ",", "indexm1"}], "}"}], "]"}]}], "//", 
    "ReleaseHold"}]}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[Theta]\[Phi]Vals", "=", 
     RowBox[{
      RowBox[{"Select", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gridLLPtoDet", "//", "N"}], "//", 
         "Developer`ToPackedArray"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "!=", "0."}], "&"}]}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "]"}], "]"}]}], ";"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[Theta]\[Phi]Vals", "=", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ArcCos", "[", 
         RowBox[{"RandomReal", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
           RowBox[{"5", "*", 
            SuperscriptBox["10", "5"]}]}], "]"}], "]"}], ",", 
        RowBox[{"RandomReal", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}], ",", 
          RowBox[{"5", "*", 
           SuperscriptBox["10", "5"]}]}], "]"}]}], "}"}], "//", 
      "Transpose"}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pts", "=", 
    RowBox[{"RandomPoint", "[", 
     RowBox[{"DecayVolumeGeometryGivenExperiment", ",", 
      RowBox[{"3", "*", 
       SuperscriptBox["10", "5"]}]}], "]"}]}], ";"}], "//", 
  "AbsoluteTiming"}], "\[IndentingNewLine]", 
 RowBox[{"\[Theta]\[Phi]ValsRand", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Hold", "@", 
     RowBox[{"Compile", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ptscyl", ",", "_Real", ",", "1"}], "}"}], "}"}], ",", 
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\[Theta]Val", "[", 
            RowBox[{
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"ptscyl", ",", "1"}], "]"}], ",", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"ptscyl", ",", "2"}], "]"}], ",", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"ptscyl", ",", "3"}], "]"}]}], "]"}], ",", 
           RowBox[{"\[Phi]Val", "[", 
            RowBox[{
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"ptscyl", ",", "1"}], "]"}], ",", 
             RowBox[{"Compile`GetElement", "[", 
              RowBox[{"ptscyl", ",", "2"}], "]"}]}], "]"}]}], "}"}]}], 
        "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", 
       RowBox[{"CompilationTarget", "->", "\"\<C\>\""}], ",", 
       RowBox[{"RuntimeOptions", "->", "\"\<Speed\>\""}], ",", 
       RowBox[{"RuntimeAttributes", "->", 
        RowBox[{"{", "Listable", "}"}]}], ",", 
       RowBox[{"Parallelization", "->", "True"}]}], "]"}]}], "/.", 
    RowBox[{"ruleDown", "[", 
     RowBox[{"{", 
      RowBox[{"\[Theta]Val", ",", "\[Phi]Val"}], "}"}], "]"}]}], "//", 
   "ReleaseHold"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Theta]\[Phi]Vals", "=", 
    RowBox[{"\[Theta]\[Phi]ValsRand", "[", "pts", "]"}]}], ";"}], "//", 
  "AbsoluteTiming"}]}], "Input",
 CellChangeTimes->{{3.915862790632863*^9, 3.915862852437273*^9}, {
   3.9158629477154417`*^9, 3.91586300535867*^9}, {3.915863117767583*^9, 
   3.9158631217639627`*^9}, {3.915863659677009*^9, 3.915863673722836*^9}, {
   3.9158640154892406`*^9, 3.915864052163368*^9}, {3.915864306659155*^9, 
   3.9158643111060944`*^9}, {3.9158644557283993`*^9, 3.9158644744959*^9}, {
   3.915864992481909*^9, 3.915864992717168*^9}, {3.9158651690264482`*^9, 
   3.91586518581351*^9}, {3.9158675060565977`*^9, 3.91586751572176*^9}, {
   3.9158734457595806`*^9, 3.915873445824895*^9}, {3.915874214881744*^9, 
   3.9158742580021505`*^9}, {3.916137737227318*^9, 3.916137780029812*^9}, {
   3.9161385963309665`*^9, 3.9161386162865086`*^9}, {3.9161391938775406`*^9, 
   3.916139197328638*^9}, {3.9161393882452145`*^9, 3.9161393905967903`*^9}, 
   3.916157369854842*^9, 
   3.9161619447505083`*^9},ExpressionUUID->"7b719f2b-8caf-4a4f-8b9a-\
da7844fd148b"]
}, Closed]],

Cell[CellGroupData[{

Cell["Phase space: HNLs, decay products", "Subsubsection",
 CellChangeTimes->{{3.9158628668239822`*^9, 
  3.9158628742182217`*^9}},ExpressionUUID->"3beb02a3-e81c-4b7d-8e6a-\
3ae946215fb8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"nn", "=", 
   RowBox[{"Length", "[", "\[Theta]\[Phi]Vals", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mass", "=", "0.02"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"phasespace", "=", 
    RowBox[{"PhaseSpacePerDecayChannel", "[", 
     RowBox[{
     "\"\<HNL-mixing-mu\>\"", ",", "mass", ",", "\"\<ee\[Nu]\>\"", ",", "nn", 
      ",", "\"\<True\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"\[Theta]", ",", 
    RowBox[{
    "\[Phi]", " ", "for", " ", "which", " ", "HNLs", " ", "would", " ", "fly",
      " ", "to", " ", "the", " ", "detector"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"angles", "=", 
    RowBox[{"Take", "[", 
     RowBox[{"\[Theta]\[Phi]Vals", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "nn"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"HNL", " ", "energies"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"prod", "=", "\"\<Fake \[Mu]\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"energies", "=", 
   RowBox[{"EnergySampling", "[", 
    RowBox[{"prod", ",", "mass", ",", "nn"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"momenta", "=", 
   RowBox[{
    SqrtBox[
     RowBox[{
      SuperscriptBox["energies", "2"], "-", 
      SuperscriptBox["mass", "2"]}]], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[", 
          RowBox[{"angles", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], 
         RowBox[{"Cos", "[", 
          RowBox[{"angles", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"Sin", "[", 
          RowBox[{"angles", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], 
         RowBox[{"Sin", "[", 
          RowBox[{"angles", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], ",", 
        RowBox[{"Cos", "[", 
         RowBox[{"angles", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}], "//", 
      "Transpose"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"daughtermomenta", "=", 
   RowBox[{"boosting", "[", 
    RowBox[{"energies", ",", "momenta", ",", "phasespace", ",", "mass"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Histogram", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"daughtermomenta", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "indexE1"}], "]"}], "]"}], ",", 
    RowBox[{"daughtermomenta", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", 
       RowBox[{"indexE1", "+", "indexm1"}]}], "]"}], "]"}], ",", 
    RowBox[{
     RowBox[{"daughtermomenta", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "indexE1"}], "]"}], "]"}], "+", 
     RowBox[{"daughtermomenta", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", 
        RowBox[{"indexE1", "+", "indexm1"}]}], "]"}], "]"}]}]}], "}"}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.9158628862404757`*^9, 3.915862925817545*^9}, {
   3.9158629630090084`*^9, 3.915862986532132*^9}, {3.915864549884794*^9, 
   3.9158645500574684`*^9}, {3.915864756955636*^9, 3.9158647729102387`*^9}, {
   3.915865191550894*^9, 3.9158651993747554`*^9}, {3.9158653550576286`*^9, 
   3.9158653552469683`*^9}, {3.9158734942438774`*^9, 3.915873494476473*^9}, {
   3.9158736037802134`*^9, 3.9158736039451056`*^9}, {3.9158743674868746`*^9, 
   3.9158743925882187`*^9}, {3.9161381845909414`*^9, 3.916138188252731*^9}, {
   3.916140138562574*^9, 3.9161401547220945`*^9}, 3.9161541531287565`*^9, {
   3.916154215773855*^9, 3.9161542162878532`*^9}},
 CellLabel->
  "In[1557]:=",ExpressionUUID->"042d45b7-eb53-4604-aadd-11b9b6e2ceeb"]
}, Closed]],

Cell[CellGroupData[{

Cell["Smearing", "Subsubsection",
 CellChangeTimes->{{3.915862815192909*^9, 3.9158628158691087`*^9}, {
  3.915862980491355*^9, 
  3.9158629819382324`*^9}},ExpressionUUID->"d0a693c0-a607-427a-a26d-\
b126525d9973"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Alpha]Vals", "=", 
   RowBox[{"\[Alpha]Smearing", "[", "daughtermomenta", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Histogram", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Alpha]Vals", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
     RowBox[{"\[Alpha]Vals", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
     RowBox[{"\[Alpha]Vals", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "3"}], "]"}], "]"}]}], "}"}], ",", "100", ",", 
   "\"\<ProbabilityDensity\>\"", ",", 
   RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Black", ",", " ", "22"}], "]"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<\[Alpha] [rad]\>\"", ",", "\"\<Fraction\>\""}], "}"}]}], 
   ",", 
   RowBox[{"ChartLegends", "\[Rule]", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"#", ",", "18"}], "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{
        "\"\<Unsmeared\>\"", ",", "\"\<Smeared \[Alpha]\>\"", ",", 
         "\"\<Smeared \!\(\*SubscriptBox[\(\[Theta]\), \(1, 2\)]\)\>\""}], 
        "}"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"0.2", ",", "0.8"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"ChartStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Opacity", "[", 
       RowBox[{".15", ",", "Red"}], "]"}], ",", 
      RowBox[{"Opacity", "[", 
       RowBox[{".15", ",", "Blue"}], "]"}], ",", 
      RowBox[{"Opacity", "[", 
       RowBox[{".3", ",", 
        RowBox[{"Darker", "@", "Green"}]}], "]"}]}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
      RowBox[{"Row", "[", 
       RowBox[{"{", 
        RowBox[{"prod", "<>", "\"\<->N+X, N->ee\[Nu]\>\""}], "}"}], "]"}], 
      ",", "18", ",", "Black"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"weights", "=", 
   FractionBox["1", 
    SqrtBox[
     RowBox[{
      SuperscriptBox["energies", "2"], "-", 
      SuperscriptBox["mass", "2"]}]]]}], 
  RowBox[{"(*", 
   FractionBox[
    RowBox[{"Sin", "[", 
     RowBox[{"angles", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], 
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{"Cos", "[", 
       RowBox[{"angles", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], "]"}], 
     SqrtBox[
      RowBox[{
       SuperscriptBox["energies", "2"], "-", 
       SuperscriptBox["mass", "2"]}]]}]], "*)"}], 
  RowBox[{"(*", 
   RowBox[{"Table", "[", 
    RowBox[{"1.", ",", 
     RowBox[{"Length", "[", "angles", "]"}]}], "]"}], "*)"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"finaldata", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"daughtermomenta", ",", 
     RowBox[{"Partition", "[", 
      RowBox[{"weights", ",", "1"}], "]"}], ",", "\[Alpha]Vals", ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"selection", "[", 
    RowBox[{"finaldata", ",", "0.017", ",", 
     RowBox[{"15", "*", 
      FractionBox["Pi", "180."]}], ",", "3"}], "]"}], ",", 
   RowBox[{"selection", "[", 
    RowBox[{"finaldata", ",", "0.017", ",", 
     RowBox[{"15", "*", 
      FractionBox["Pi", "180."]}], ",", "2"}], "]"}], ",", 
   RowBox[{"selection", "[", 
    RowBox[{"finaldata", ",", "0.017", ",", 
     RowBox[{"15", "*", 
      FractionBox["Pi", "180."]}], ",", "1"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"selection", "[", 
    RowBox[{"finaldata", ",", "0.017", ",", "0.", ",", "3"}], "]"}]}], 
  "}"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"selection", "[", 
    RowBox[{"finaldata", ",", "0.01", ",", 
     RowBox[{"15", "*", 
      FractionBox["Pi", "180."]}], ",", "3"}], "]"}], ",", 
   RowBox[{"selection", "[", 
    RowBox[{"finaldata", ",", "0.01", ",", 
     RowBox[{"15", "*", 
      FractionBox["Pi", "180."]}], ",", "2"}], "]"}], ",", 
   RowBox[{"selection", "[", 
    RowBox[{"finaldata", ",", "0.01", ",", 
     RowBox[{"15", "*", 
      FractionBox["Pi", "180."]}], ",", "1"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"selection", "[", 
    RowBox[{"finaldata", ",", "0.01", ",", "0.", ",", "3"}], "]"}]}], 
  "}"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwl0VtIkwEAhuExLCInpYGOFUTBNsxpUBqR87AuzBJF0m05l9Ba3WUtOszJ
2mpGq4SoxrKQEKGQFaK2zJZY6JCgoBQcZXm4iGZTEaOjc9X//l18PNcf7ybL
8f1HpBKJJFMY/ohNj3zWzOsqpjZGcKJjbBHLIhVx7HGH/mJbTUgWFUyyja7F
+tw8BarsKiUamgb+O3xoC55xHM3Ch4mifDzZW1WAJu3OarR2uURdxkQtLm3N
NuPlDU2N6NiXHMSVxSv6cNX39c+wy+n+gHcOTIjaZ1Xz+EsXXsDX4dz0GcGS
otgOfKIvL0RDT8ox7L2Y1oD95pAHr5T+9mLAbW/GeGHmdXTac3yoPax2fhGc
Xn3zPCrU6ksY/dNwDcfV1rvoqum8h3Wa6gCa2lKCmDFYPoTp3pio9NvoCKYF
t4/h5slPUWzfVfoVPQvJS9j/LiuBLVV+W0zQu0bnwNjVWtks/7Z1iu7WD+Xh
YGpEdDleV4I3jNpKlN/3m/HjnrJGPGdYvoAv/H0e1OwdfzSH3YrHaHpQ/BR9
t3JCWHn67cCJbKHXYsZz1J+tf4nhV6dEZe+tk+icU07hsMUosQl2NOdL8aC8
IBV9PwPrUCt3K9HSqlBha+hNC7YnzdzGfw73VUo=
  "],
 CellLabel->
  "In[1566]:=",ExpressionUUID->"39a428c4-b028-490c-b893-b32cb609ad67"]
}, Closed]],

Cell[CellGroupData[{

Cell["Comparing with Soleti", "Subsubsection",
 CellChangeTimes->{{3.9158717355546308`*^9, 
  3.915871739708872*^9}},ExpressionUUID->"e280ff60-885b-4959-af96-\
73b50dfe3879"],

Cell[BoxData[
 RowBox[{
  RowBox[{"phasespaceSoleti", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"0.5", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "3"}]]}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"4", "+", "2"}], "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"4", "+", "3"}], "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"4", "+", "4"}], "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", 
         RowBox[{"4", "+", "1"}], "]"}], "]"}], ",", 
       RowBox[{"0.5", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "3"}]]}]}], "}"}], "&"}], "/@", 
    RowBox[{"Import", "[", 
     RowBox[{
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", "\"\<temp1/shiness/phasespace_0.02.txt\>\"", "}"}], "]"}],
       ",", "\"\<Table\>\""}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.9158717413245544`*^9, 3.915871774813902*^9}, {
  3.915872050599184*^9, 3.915872079120224*^9}},
 CellLabel->
  "In[1572]:=",ExpressionUUID->"16183463-c71c-4106-babe-b9f142e92695"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pt1", "=", 
   RowBox[{"Histogram", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"daughtermomenta", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "indexE1"}], "]"}], "]"}], ",", 
       RowBox[{"phasespaceSoleti", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "indexE1"}], "]"}], "]"}]}], "}"}], ",", "100", 
     ",", "\"\<ProbabilityDensity\>\"", ",", 
     RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", " ", "22"}], "]"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(E\), \(e1\)]\) [GeV]\>\"", ",", 
        "\"\<Fraction\>\""}], "}"}]}], ",", 
     RowBox[{"ChartLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#", ",", "18"}], "]"}], "&"}], "/@", 
         RowBox[{"{", 
          RowBox[{"\"\<SensCalc\>\"", ",", "\"\<Roberto\>\""}], "}"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"0.8", ",", "0.8"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ChartStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Opacity", "[", 
         RowBox[{".15", ",", "Red"}], "]"}], ",", 
        RowBox[{"Opacity", "[", 
         RowBox[{".15", ",", "Blue"}], "]"}], ",", 
        RowBox[{"Opacity", "[", 
         RowBox[{".3", ",", 
          RowBox[{"Darker", "@", "Green"}]}], "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"Row", "[", 
         RowBox[{"{", 
          RowBox[{"prod", "<>", "\"\<->N+X, N->ee\[Nu]\>\""}], "}"}], "]"}], 
        ",", "18", ",", "Black"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pt2", "=", 
   RowBox[{"Histogram", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"daughtermomenta", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"indexm1", "+", "indexE1"}]}], "]"}], "]"}], ",", 
       RowBox[{"phasespaceSoleti", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"indexm1", "+", "indexE1"}]}], "]"}], "]"}]}], "}"}], ",", 
     "100", ",", "\"\<ProbabilityDensity\>\"", ",", 
     RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", " ", "22"}], "]"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(E\), \(e2\)]\) [GeV]\>\"", ",", 
        "\"\<Fraction\>\""}], "}"}]}], ",", 
     RowBox[{"ChartLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#", ",", "18"}], "]"}], "&"}], "/@", 
         RowBox[{"{", 
          RowBox[{"\"\<SensCalc\>\"", ",", "\"\<Roberto\>\""}], "}"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"0.8", ",", "0.8"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ChartStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Opacity", "[", 
         RowBox[{".15", ",", "Red"}], "]"}], ",", 
        RowBox[{"Opacity", "[", 
         RowBox[{".15", ",", "Blue"}], "]"}], ",", 
        RowBox[{"Opacity", "[", 
         RowBox[{".3", ",", 
          RowBox[{"Darker", "@", "Green"}]}], "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"Row", "[", 
         RowBox[{"{", 
          RowBox[{"prod", "<>", "\"\<->N+X, N->ee\[Nu]\>\""}], "}"}], "]"}], 
        ",", "18", ",", "Black"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pt3", "=", 
   RowBox[{"Histogram", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"daughtermomenta", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "indexE1"}], "]"}], "]"}], "+", 
        RowBox[{"daughtermomenta", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", 
           RowBox[{"indexm1", "+", "indexE1"}]}], "]"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"phasespaceSoleti", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", 
           RowBox[{"indexm1", "+", "indexE1"}]}], "]"}], "]"}], "+", 
        RowBox[{"phasespaceSoleti", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "indexE1"}], "]"}], "]"}]}]}], "}"}], ",", 
     "100", ",", "\"\<ProbabilityDensity\>\"", ",", 
     RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", " ", "22"}], "]"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(E\), \(e1\)]\)+\!\(\*SubscriptBox[\(E\), \
\(e2\)]\) [GeV]\>\"", ",", "\"\<Fraction\>\""}], "}"}]}], ",", 
     RowBox[{"ChartLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#", ",", "18"}], "]"}], "&"}], "/@", 
         RowBox[{"{", 
          RowBox[{"\"\<SensCalc\>\"", ",", "\"\<Roberto\>\""}], "}"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"0.15", ",", "0.8"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ChartStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Opacity", "[", 
         RowBox[{".15", ",", "Red"}], "]"}], ",", 
        RowBox[{"Opacity", "[", 
         RowBox[{".15", ",", "Blue"}], "]"}], ",", 
        RowBox[{"Opacity", "[", 
         RowBox[{".3", ",", 
          RowBox[{"Darker", "@", "Green"}]}], "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"Row", "[", 
         RowBox[{"{", 
          RowBox[{"prod", "<>", "\"\<->N+X, N->ee\[Nu]\>\""}], "}"}], "]"}], 
        ",", "18", ",", "Black"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Style", "[", 
   RowBox[{
    RowBox[{"Row", "[", 
     RowBox[{"{", 
      RowBox[{"pt1", ",", "pt2", ",", "pt3"}], "}"}], "]"}], ",", 
    RowBox[{"ImageSizeMultipliers", "->", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "1", ",", "1"}], "}"}]}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.915872085623722*^9, 3.915872163673793*^9}, {
  3.915873865844614*^9, 3.91587388604222*^9}, {3.915873939566578*^9, 
  3.9158740663336134`*^9}, {3.915874103228449*^9, 3.915874108010093*^9}},
 CellLabel->
  "In[1573]:=",ExpressionUUID->"56df3192-030e-4015-9c58-dec99747fd21"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Final state multiplicity", "Subsection",
 CellChangeTimes->{{3.9152558671767387`*^9, 
  3.915255870309824*^9}},ExpressionUUID->"11c8408e-3a4c-4e27-afa6-\
ac15134ef890"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"(*", 
   RowBox[{"Multiplicity", " ", "per", " ", "given", " ", "particle"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"mtp", "[", "mt_", "]"}], ":=", 
    RowBox[{
     RowBox[{
      RowBox[{"Switch", "[", 
       RowBox[{
       "mt", ",", "111.", ",", "2", ",", "310.", ",", "2", ",", "221.", ",", 
        FractionBox[
         RowBox[{
          RowBox[{"2", "*", "0.4"}], "+", 
          RowBox[{"6", "*", "0.32"}], "+", 
          RowBox[{"4", "*", "0.23"}]}], 
         RowBox[{"0.4", "+", "0.32", "+", "0.23"}]], ",", "113.", ",", "2", 
        ",", "213.", ",", "3", ",", "331.", ",", 
        RowBox[{"2", "+", 
         FractionBox[
          RowBox[{
           RowBox[{"2", "*", "0.4"}], "+", 
           RowBox[{"6", "*", "0.32"}], "+", 
           RowBox[{"4", "*", "0.23"}]}], 
          RowBox[{"0.4", "+", "0.32", "+", "0.23"}]]}], ",", "223.", ",", "4",
         ",", "12.", ",", "0.", ",", 
        RowBox[{"-", "12."}], ",", "0", ",", "14.", ",", "0", ",", 
        RowBox[{"-", "14."}], ",", "0", ",", "16.", ",", "0", ",", 
        RowBox[{"-", "16."}], ",", "0", ",", "_", ",", "1"}], "]"}], 
      "\[IndentingNewLine]", 
      RowBox[{"mtpNoECAL", "[", "mt_", "]"}]}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"Switch", "[", 
        RowBox[{
        "mt", ",", "111.", ",", "2", ",", "310.", ",", "2", ",", "221.", ",", 
         FractionBox[
          RowBox[{
           RowBox[{"2", "*", "0.4"}], "+", 
           RowBox[{"6", "*", "0.32"}], "+", 
           RowBox[{"4", "*", "0.23"}]}], 
          RowBox[{"0.4", "+", "0.32", "+", "0.23"}]], ",", "113.", ",", "2", 
         ",", "213.", ",", "3", ",", "331.", ",", 
         RowBox[{"2", "+", 
          FractionBox[
           RowBox[{
            RowBox[{"2", "*", "0.4"}], "+", 
            RowBox[{"6", "*", "0.32"}], "+", 
            RowBox[{"4", "*", "0.23"}]}], 
           RowBox[{"0.4", "+", "0.32", "+", "0.23"}]]}], ",", "223.", ",", 
         "4", ",", "12.", ",", "0.", ",", 
         RowBox[{"-", "12."}], ",", "0", ",", "14.", ",", "0", ",", 
         RowBox[{"-", "14."}], ",", "0", ",", "16.", ",", "0", ",", 
         RowBox[{"-", "16."}], ",", "0", ",", "22.", ",", "0", ",", "130.", 
         ",", "0", ",", "_", ",", "1"}], "]"}], "\[IndentingNewLine]", 
       RowBox[{"mtp", "[", "210.", "]"}], "\[IndentingNewLine]", 
       RowBox[{"listphasespaces", "[", 
        RowBox[{"LLP_", ",", "mLLP_"}], "]"}]}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{"Block", "[", 
         RowBox[{
          RowBox[{"{", "}"}], ",", 
          RowBox[{
           RowBox[{"procslist", "=", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"proc", ",", 
                RowBox[{"ListBrRatios", "[", 
                 RowBox[{"LLP", ",", "mLLP", ",", "proc"}], "]"}], ",", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"ListBrRatios", "[", 
                    RowBox[{"LLP", ",", "mLLP", ",", "proc"}], "]"}], ">", 
                   SuperscriptBox["10", 
                    RowBox[{"-", "3."}]]}], ",", 
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"JetsPresence", "[", 
                    RowBox[{"LLP", ",", "proc"}], "]"}], "==", 
                    "\"\<Yes\>\""}], ",", 
                    RowBox[{"TakingHadronizedPhaseSpace", "[", 
                    RowBox[{
                    RowBox[{"PhaseSpaceDecaysRestJets", "[", 
                    RowBox[{"LLP", ",", "proc", ",", "mLLP"}], "]"}], ",", 
                    "30"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"PhaseSpaceDecaysRest", "[", 
                    RowBox[{
                    "LLP", ",", "proc", ",", "mLLP", ",", "30", ",", 
                    "\"\<True\>\""}], "]"}], "}"}]}], "]"}], ",", 
                  RowBox[{"{", "0", "}"}]}], "]"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"proc", ",", 
                RowBox[{"ProcessesList", "[", 
                 RowBox[{"LLP", ",", "\"\<True\>\""}], "]"}]}], "}"}]}], 
             "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"procslist", "=", 
            RowBox[{"Select", "[", 
             RowBox[{"procslist", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"#", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], ">", 
                SuperscriptBox["10", 
                 RowBox[{"-", "3"}]]}], "&"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"multiplicity", "[", "i_", "]"}], ":=", 
            RowBox[{"Module", "[", 
             RowBox[{
              RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Do", "[", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"DATA", "[", "j", "]"}], "=", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"procslist", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "[", 
                    RowBox[{"[", "3", "]"}], "]"}], "[", 
                    RowBox[{"[", "j", "]"}], "]"}]}], ";", 
                  "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"len", "[", "j", "]"}], "=", 
                   RowBox[{"Length", "[", 
                    RowBox[{"DATA", "[", "j", "]"}], "]"}]}], ";", 
                  "\[IndentingNewLine]", 
                  RowBox[{"numparts", "=", 
                   FractionBox[
                    RowBox[{"Length", "[", 
                    RowBox[{
                    RowBox[{"DATA", "[", "j", "]"}], "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "]"}], "8"]}], ";", 
                  "\[IndentingNewLine]", 
                  RowBox[{"pdgpos", "=", 
                   RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"8", "*", 
                    RowBox[{"(", 
                    RowBox[{"m", "-", "1"}], ")"}]}], "+", "6"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"m", ",", "1", ",", "numparts", ",", "1"}], 
                    "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
                  RowBox[{"pdgs", "=", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"DATA", "[", "j", "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{"All", ",", "pdgpos"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ";", 
                  "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"mtpval", "[", "j", "]"}], "=", 
                   RowBox[{"Sum", "[", 
                    RowBox[{
                    RowBox[{"mtp", "[", 
                    RowBox[{"pdgs", "[", 
                    RowBox[{"[", "m", "]"}], "]"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"m", ",", "1", ",", 
                    RowBox[{"Length", "[", "pdgs", "]"}], ",", "1"}], "}"}]}],
                     "]"}]}], ";", "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"mtpNoECALval", "[", "j", "]"}], "=", 
                   RowBox[{"Sum", "[", 
                    RowBox[{
                    RowBox[{"mtpNoECAL", "[", 
                    RowBox[{"pdgs", "[", 
                    RowBox[{"[", "m", "]"}], "]"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"m", ",", "1", ",", 
                    RowBox[{"Length", "[", "pdgs", "]"}], ",", "1"}], "}"}]}],
                     "]"}]}], ";"}], "\[IndentingNewLine]", ",", 
                 RowBox[{"{", 
                  RowBox[{"j", ",", "1", ",", 
                   RowBox[{"Length", "[", 
                    RowBox[{
                    RowBox[{"procslist", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "[", 
                    RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", "1"}], 
                  "}"}]}], "]"}], ";", "\[IndentingNewLine]", 
               RowBox[{"{", 
                RowBox[{
                 FractionBox[
                  RowBox[{"Sum", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"len", "[", "j", "]"}], "*", 
                    RowBox[{"mtpval", "[", "j", "]"}]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"j", ",", "1", ",", 
                    RowBox[{"Length", "[", 
                    RowBox[{
                    RowBox[{"procslist", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "[", 
                    RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", "1"}], 
                    "}"}]}], "]"}], 
                  RowBox[{"Sum", "[", 
                   RowBox[{
                    RowBox[{"len", "[", "j", "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"j", ",", "1", ",", 
                    RowBox[{"Length", "[", 
                    RowBox[{
                    RowBox[{"procslist", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "[", 
                    RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", "1"}], 
                    "}"}]}], "]"}]], ",", 
                 FractionBox[
                  RowBox[{"Sum", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"len", "[", "j", "]"}], "*", 
                    RowBox[{"mtpNoECALval", "[", "j", "]"}]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"j", ",", "1", ",", 
                    RowBox[{"Length", "[", 
                    RowBox[{
                    RowBox[{"procslist", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "[", 
                    RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", "1"}], 
                    "}"}]}], "]"}], 
                  RowBox[{"Sum", "[", 
                   RowBox[{
                    RowBox[{"len", "[", "j", "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"j", ",", "1", ",", 
                    RowBox[{"Length", "[", 
                    RowBox[{
                    RowBox[{"procslist", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "[", 
                    RowBox[{"[", "3", "]"}], "]"}], "]"}], ",", "1"}], 
                    "}"}]}], "]"}]]}], "}"}]}]}], "\[IndentingNewLine]", 
             "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"list", "=", 
            FractionBox[
             RowBox[{"Sum", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"procslist", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], "[", 
                 RowBox[{"[", "2", "]"}], "]"}], 
                RowBox[{"multiplicity", "[", "i", "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{"Length", "[", "procslist", "]"}], ",", "1"}], 
                "}"}]}], "]"}], 
             RowBox[{"Sum", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"procslist", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "[", 
                RowBox[{"[", "2", "]"}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", 
                 RowBox[{"Length", "[", "procslist", "]"}], ",", "1"}], 
                "}"}]}], "]"}]]}]}]}], "\[IndentingNewLine]", "]"}], 
        "\[IndentingNewLine]", 
        RowBox[{"mulslist", "[", "LLP_", "]"}]}], ":=", 
       RowBox[{
        RowBox[{
         RowBox[{"Block", "[", 
          RowBox[{
           RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"ttt2", "=", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"mLLPlist", "[", "LLP", "]"}], "[", 
                  RowBox[{"[", "k", "]"}], "]"}], ",", 
                 RowBox[{"listphasespaces", "[", 
                  RowBox[{"LLP", ",", 
                   RowBox[{
                    RowBox[{"mLLPlist", "[", "LLP", "]"}], "[", 
                    RowBox[{"[", "k", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"k", ",", "1", ",", 
                 RowBox[{"Length", "[", 
                  RowBox[{"mLLPlist", "[", "LLP", "]"}], "]"}], ",", "1"}], 
                "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Table", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"ttt2", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "[", 
                   RowBox[{"[", "1", "]"}], "]"}], ",", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"ttt2", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"i", ",", "1", ",", 
                  RowBox[{"Length", "[", "ttt2", "]"}], ",", "1"}], "}"}]}], 
               "]"}], ",", 
              RowBox[{"Table", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"ttt2", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "[", 
                   RowBox[{"[", "1", "]"}], "]"}], ",", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"ttt2", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"i", ",", "1", ",", 
                  RowBox[{"Length", "[", "ttt2", "]"}], ",", "1"}], "}"}]}], 
               "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}], 
         "\[IndentingNewLine]", "fipsformult"}], "=", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Scalar\>\"", ",", "\"\<HNL-mixing-e\>\"", ",", 
          "\"\<ALP-gluon\>\""}], "}"}]}]}]}]}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"multlist", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"mulslist", "[", "LLP", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"LLP", ",", "fipsformult"}], "}"}]}], "]"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"multlist", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"multlist", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"multlist", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"multlist", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"multlist", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"multlist", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"Joined", "->", "True"}], ",", 
       RowBox[{"PlotStyle", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Thick", ",", "Blue"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Thick", ",", "Blue", ",", 
            RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Thick", ",", 
            RowBox[{"Darker", "@", "Red"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Thick", ",", 
            RowBox[{"Darker", "@", "Red"}], ",", 
            RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Thick", ",", 
            RowBox[{"Darker", "@", 
             RowBox[{"Darker", "@", "Green"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Thick", ",", 
            RowBox[{"Darker", "@", 
             RowBox[{"Darker", "@", "Green"}]}], ",", 
            RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(m\), \(LLP\)]\) [GeV]\>\"", " ", ",", " ", 
          "\"\<\!\(\*SubscriptBox[\(n\), \(per\\\ decay\)]\)\>\""}], "}"}]}], 
       ",", 
       RowBox[{"FrameStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{"Black", ",", " ", "23"}], "]"}]}], ",", 
       RowBox[{"ImageSize", "->", "Large"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.05", ",", "4.5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "12"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Row", "[", 
           RowBox[{
           "{", "\"\<Dashed: charged only. Solid: incl. \
\[Gamma],\!\(\*SubscriptBox[SuperscriptBox[\(K\), \(0\)], \(L\)]\)\>\"", 
            "}"}], "]"}], ",", "18", ",", "Black"}], "]"}]}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0.9", ",", "0.9", ",", "0.9", ",", "0.9", ",", "0.9"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotStyle", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Thick", ",", "Blue"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Thick", ",", 
            RowBox[{"Darker", "@", "Red"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Thick", ",", 
            RowBox[{"Darker", "@", 
             RowBox[{"Darker", "@", "Green"}]}]}], "}"}]}], "}"}]}], ",", 
       RowBox[{"PlotLegends", "\[Rule]", 
        RowBox[{"Placed", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Style", "[", 
             RowBox[{"#", ",", "18"}], "]"}], "&"}], "/@", "fipsformult"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"0.24", ",", "0.8"}], "}"}]}], "]"}]}]}], "]"}]}], "]"}]}],
   "*)"}]], "Input",
 CellChangeTimes->{{3.9077352605039473`*^9, 3.907735273695648*^9}, {
  3.9077353504853797`*^9, 3.907735453524109*^9}, {3.907735511703977*^9, 
  3.907735520755029*^9}, {3.9077355786775603`*^9, 3.907735594846073*^9}, {
  3.9077356387457347`*^9, 3.9077356873647833`*^9}, {3.9077364096588945`*^9, 
  3.9077364098116903`*^9}, {3.9077365286980963`*^9, 3.9077365313939533`*^9}, {
  3.9154355190740104`*^9, 3.915435519078*^9}, {3.915437188263983*^9, 
  3.915437188353697*^9}, {3.916155441793273*^9, 3.916155441797327*^9}, {
  3.916156454011566*^9, 
  3.9161564540165834`*^9}},ExpressionUUID->"1cb50a8a-a918-4df5-9cde-\
e7036a7f1497"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "In the limit ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["E", "LLP"], "/", 
     SubscriptBox["m", "LLP"]}], " ", ">>", " ", 
    RowBox[{
    "1", " ", "and", " ", "in", " ", "absence", " ", "of", " ", "energy", " ",
      "cut", " ", "and", " ", "magnetic", " ", "field", " ", 
     RowBox[{"etc", "."}]}]}], TraditionalForm]],ExpressionUUID->
  "0231fb8e-a406-4536-94c0-50ab1ed39ada"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Epsilon]", "decay"], TraditionalForm]],ExpressionUUID->
  "ba5d8bec-d539-4af2-9f09-af2df3224d4c"],
 " must tend to 1 for the LLPs pointing to the detector and to 0 for those \
that do not point to the detector"
}], "Subsection",
 CellChangeTimes->{{3.915255883134713*^9, 3.9152558849802136`*^9}, {
  3.9154371883599777`*^9, 
  3.915437188375434*^9}},ExpressionUUID->"fbb4d58b-3993-4266-9e68-\
a92398696cd6"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"mtest", "=", "1.9"}], ";", "\[IndentingNewLine]", 
     RowBox[{"LLPtest", "=", "\"\<Scalar\>\""}], ";", "\[IndentingNewLine]", 
     RowBox[{"test1", "=", 
      RowBox[{"FinalBlockMass", "[", 
       RowBox[{"LLPtest", ",", "mtest", ",", 
        RowBox[{"ProcessesListRefined", "[", 
         RowBox[{"LLPtest", ",", "ECALoptionGivenExperiment"}], "]"}], ",", 
        "1000", ",", "\"\<True\>\"", ",", "\"\<>=2\>\""}], "]"}]}], ";"}], "//", 
    RowBox[{"AbsoluteTiming", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"TableAzDecayAcceptanceToDet", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "5"}], "]"}], "]"}], "//", "Mean"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Select", "[", 
          RowBox[{"TableAzDecayAcceptanceToDet", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ">", "40"}], "&"}]}], "]"}], 
         "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "5"}], "]"}], "]"}], "//", "Mean"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Select", "[", 
          RowBox[{"TableAzDecayAcceptanceToDet", ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ">", "40"}], "&&", 
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "4", "]"}], "]"}], "!=", "0"}]}], "&"}]}], "]"}], 
         "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "5"}], "]"}], "]"}], "//", "Mean"}]}], "}"}], 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
       "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}], 
       ",", 
       RowBox[{
        RowBox[{"TableAzDecayAcceptanceNotToDet", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "5"}], "]"}], "]"}], "//", "Mean"}]}], "]"}], 
     "\[IndentingNewLine]", "hist1"}]}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Histogram", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{"TableAzDecayAcceptanceToDet", ",", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ">", 
             RowBox[{"50", "*", "mtest"}]}], "&&", 
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "!=", "0"}]}], "&"}]}], "]"}], 
        "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "5"}], "]"}], "]"}], ",", "100"}], "]"}], 
     "\[IndentingNewLine]", "hist2"}], "=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
      "DecayVolumeAsDetectorGivenExperiment", "\[Equal]", "\"\<False\>\""}], 
      ",", 
      RowBox[{"Histogram", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Select", "[", 
          RowBox[{"TableAzDecayAcceptanceNotToDet", ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ">", 
              RowBox[{"10", "*", "mtest"}]}], "&&", 
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "4", "]"}], "]"}], "!=", "0"}]}], "&"}]}], "]"}], 
         "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "5"}], "]"}], "]"}], ",", "100"}], "]"}]}], 
     "]"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.8966849821972322`*^9, 3.8966849876580353`*^9}, {
   3.896685311623889*^9, 3.8966853129403286`*^9}, {3.8966853877832203`*^9, 
   3.896685389093462*^9}, {3.896685552846079*^9, 3.89668555356523*^9}, {
   3.896687214992599*^9, 3.896687227450447*^9}, {3.8966872674660125`*^9, 
   3.8966872726493473`*^9}, {3.896931021076855*^9, 3.8969310234790134`*^9}, {
   3.8982720928472757`*^9, 3.898272093320781*^9}, {3.8982722540378757`*^9, 
   3.898272270255378*^9}, {3.8982723577835402`*^9, 3.8982723581461325`*^9}, {
   3.898272393757736*^9, 3.8982723945139017`*^9}, {3.898272967208449*^9, 
   3.8982729677262025`*^9}, {3.8982732230309944`*^9, 
   3.8982732233809543`*^9}, {3.898273922471218*^9, 3.8982739230226154`*^9}, 
   3.898314289151243*^9, {3.8983146939077253`*^9, 3.8983146949697013`*^9}, {
   3.898314753336387*^9, 3.8983147542224503`*^9}, {3.8983149541813536`*^9, 
   3.8983149555993776`*^9}, 3.8983155496444054`*^9, {3.8983158427462616`*^9, 
   3.898315843761125*^9}, {3.898315914985832*^9, 3.898315915139016*^9}, {
   3.8983161853288994`*^9, 3.898316186872927*^9}, {3.898316829945923*^9, 
   3.898316842570878*^9}, {3.898316880998889*^9, 3.898316881227354*^9}, {
   3.8983224014200425`*^9, 3.8983224027435703`*^9}, {3.8983228244733067`*^9, 
   3.8983228250418644`*^9}, {3.898323341351182*^9, 3.8983233422053413`*^9}, {
   3.8983239226719284`*^9, 3.898323923295745*^9}, {3.8983244089305563`*^9, 
   3.8983244389332705`*^9}, {3.8983246302173467`*^9, 3.8983246316053886`*^9}, 
   3.8983302037368402`*^9, {3.8983302676550617`*^9, 3.898330267839654*^9}, {
   3.898330667142806*^9, 3.898330667821171*^9}, {3.898412093060505*^9, 
   3.898412093606071*^9}, {3.898448752227045*^9, 3.8984487577271338`*^9}, {
   3.8985297704742055`*^9, 3.8985297709104605`*^9}, {3.898530498184548*^9, 
   3.8985304986453204`*^9}, {3.898531023690016*^9, 3.8985310244015512`*^9}, {
   3.898612545234087*^9, 3.8986125462561707`*^9}, {3.898676676543725*^9, 
   3.898676721708968*^9}, {3.898677238297482*^9, 3.8986772386960897`*^9}, {
   3.8986772998289776`*^9, 3.8986772999500804`*^9}, {3.8986774708096557`*^9, 
   3.8986774708836994`*^9}, 3.898677536952311*^9, 3.8987006965982723`*^9, {
   3.898700989747971*^9, 3.898700989810085*^9}, {3.8987011736299286`*^9, 
   3.8987011743125124`*^9}, 3.898701434570332*^9, {3.901726127159152*^9, 
   3.901726140635537*^9}, {3.9017360307047796`*^9, 3.901736031300296*^9}, {
   3.901816449214236*^9, 3.9018164515471215`*^9}, {3.902916525089614*^9, 
   3.9029165780967503`*^9}, 3.9029166932042613`*^9, {3.902916990415892*^9, 
   3.9029169929961395`*^9}, {3.9029346712179136`*^9, 3.902934673855463*^9}, {
   3.9043830251950216`*^9, 3.9043830424215736`*^9}, {3.904383205851673*^9, 
   3.904383234594989*^9}, {3.9043833365016766`*^9, 3.9043833410427*^9}, {
   3.9043833718848543`*^9, 3.904383371924673*^9}, {3.904495273204714*^9, 
   3.9044952789961896`*^9}, {3.9047946629523673`*^9, 3.904794667336237*^9}, {
   3.9049178872569685`*^9, 3.904917890464098*^9}, {3.904917937890029*^9, 
   3.9049179734046144`*^9}, {3.9050099587939*^9, 3.9050099797858105`*^9}, {
   3.9050101181246552`*^9, 3.905010119747447*^9}, {3.9050101921538305`*^9, 
   3.905010200848841*^9}, {3.9050106148625712`*^9, 3.905010615180094*^9}, 
   3.9050106624345264`*^9, {3.905010855410098*^9, 3.905010858506298*^9}, {
   3.9058417301173167`*^9, 3.9058417319136963`*^9}, {3.905841770129757*^9, 
   3.905841774418664*^9}, {3.9058424903065724`*^9, 3.9058424920512643`*^9}, {
   3.905845301569536*^9, 3.9058453074408393`*^9}, 3.9058453410700297`*^9, {
   3.905845662755277*^9, 3.905845662989628*^9}, {3.9058457006285067`*^9, 
   3.905845704021366*^9}, {3.9058457870589886`*^9, 3.9058458162030315`*^9}, {
   3.9058469758904963`*^9, 3.905846977759283*^9}, {3.906128631446783*^9, 
   3.906128634455733*^9}, {3.9072346024192095`*^9, 3.907234605959091*^9}, {
   3.9072346661294947`*^9, 3.907234670232582*^9}, {3.9072347410683885`*^9, 
   3.9072347426178865`*^9}, {3.9072347984416356`*^9, 3.907234831980938*^9}, {
   3.9072349959274063`*^9, 3.9072349982453623`*^9}, {3.9072355253035617`*^9, 
   3.907235527416916*^9}, {3.907235570122077*^9, 3.9072356114423027`*^9}, {
   3.9072356454301605`*^9, 3.90723571958103*^9}, {3.9072357512337275`*^9, 
   3.9072357587310643`*^9}, {3.9072358036832676`*^9, 3.907235804567831*^9}, {
   3.9072359425121527`*^9, 3.907235944989139*^9}, {3.9072540029541836`*^9, 
   3.9072540178202467`*^9}, {3.9072540884783006`*^9, 
   3.9072540893270555`*^9}, {3.9072541339043083`*^9, 
   3.9072541386606936`*^9}, {3.9149144203930097`*^9, 
   3.9149144216217337`*^9}, {3.9154371883821363`*^9, 3.9154371883866305`*^9}},
 CellLabel->
  "In[633]:=",ExpressionUUID->"e04ee279-f808-4684-9817-358f012f3c7d"]
}, Closed]]
}, Closed]]
}, Closed]]
},
WindowSize->{1142.1, 642.9},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
TaggingRules-><|"TryRealOnly" -> False|>,
ShowCellTags->True,
Magnification:>0.9 Inherited,
FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"6aa7ea67-0b78-dd4e-a01c-c438711de45d"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Evaluation"->{
  Cell[1703, 48, 365, 6, 76, "Title",ExpressionUUID->"f0d20480-5665-403d-a88a-e38db6e4fff2",
   CellTags->"Evaluation"],
  Cell[2093, 58, 221, 3, 73, "Chapter",ExpressionUUID->"92ecf04f-6598-4c98-90eb-63f4447733f5",
   CellTags->"Evaluation"],
  Cell[2317, 63, 5668, 148, 311, "Input",ExpressionUUID->"a1578c42-2de5-4ca8-9dba-fe18521b9ae6",
   CellTags->"Evaluation"],
  Cell[8022, 216, 194, 3, 73, "Chapter",ExpressionUUID->"68db0e70-7200-3c44-9b10-7a1d383990bc",
   CellTags->"Evaluation"],
  Cell[8219, 221, 3541, 91, 260, "Input",ExpressionUUID->"c697f538-781c-e84b-84e1-406b17117d9f",
   CellTags->"Evaluation"],
  Cell[11797, 317, 189, 3, 73, "Chapter",ExpressionUUID->"d88269ba-b141-6e49-9f83-3e2b1fa6c22a",
   CellTags->"Evaluation"],
  Cell[11989, 322, 1287, 35, 106, "Input",ExpressionUUID->"f536aab8-8eee-bd42-97e7-3bd199154326",
   CellTags->"Evaluation"],
  Cell[13546, 370, 288, 5, 73, "Chapter",ExpressionUUID->"67cb32f9-d6bb-4863-a1b8-1fd6e984778c",
   CellTags->{"Evaluation", "Re-evaluation"}],
  Cell[13837, 377, 7053, 159, 534, "Input",ExpressionUUID->"13990e39-f852-4c8d-b5ff-fd4b4bc0b794",
   CellTags->{"Evaluation", "Re-evaluation"}],
  Cell[20927, 541, 194, 3, 73, "Chapter",ExpressionUUID->"37f1ef16-5d41-4c55-a5ad-ab15c8e3f116",
   CellTags->"Evaluation"],
  Cell[21124, 546, 900, 20, 72, "Input",ExpressionUUID->"3abbb0b6-0c7e-4736-a509-0b5fb51d5700",
   CellTags->"Evaluation"],
  Cell[22061, 571, 218, 3, 73, "Chapter",ExpressionUUID->"fa941f2d-baf5-384d-94cb-38b4e2ca6969",
   CellTags->"Evaluation"],
  Cell[22282, 576, 1124, 27, 157, "Input",ExpressionUUID->"c88cc3ed-e15f-e44e-8320-ebafc5b4c9ca",
   CellTags->"Evaluation"]},
 "Re-evaluation"->{
  Cell[13546, 370, 288, 5, 73, "Chapter",ExpressionUUID->"67cb32f9-d6bb-4863-a1b8-1fd6e984778c",
   CellTags->{"Evaluation", "Re-evaluation"}],
  Cell[13837, 377, 7053, 159, 534, "Input",ExpressionUUID->"13990e39-f852-4c8d-b5ff-fd4b4bc0b794",
   CellTags->{"Evaluation", "Re-evaluation"}]},
 "Acceptance-computation"->{
  Cell[23455, 609, 226, 4, 76, "Title",ExpressionUUID->"081c4f71-8748-cb42-86f3-fd03fce3c053",
   CellTags->"Acceptance-computation"],
  Cell[23706, 617, 243, 5, 73, "Chapter",ExpressionUUID->"6c5eb7ec-54f2-6648-b4fc-1fe284926718",
   CellTags->"Acceptance-computation"],
  Cell[23952, 624, 16832, 452, 1236, "Input",ExpressionUUID->"6945de8c-d1bc-4261-8784-a35d73653231",
   CellTags->"Acceptance-computation"],
  Cell[40821, 1081, 370, 6, 73, "Chapter",ExpressionUUID->"6542b8fd-6447-40c5-a489-c8544719ee88",
   CellTags->"Acceptance-computation"],
  Cell[41194, 1089, 36498, 771, 1506, "Input",ExpressionUUID->"fb3d4d64-0315-481f-b629-16445305ff61",
   CellTags->"Acceptance-computation"],
  Cell[77717, 1864, 224, 5, 72, "Section",ExpressionUUID->"d18df397-565c-4314-b9c2-03453c319f04",
   CellTags->"Acceptance-computation"],
  Cell[77966, 1873, 215, 4, 60, "Subsection",ExpressionUUID->"27037987-e254-4a1f-b19f-ea431bbfa0c0",
   CellTags->"Acceptance-computation"],
  Cell[78184, 1879, 17337, 411, 1065, "Input",ExpressionUUID->"960a9a50-7f21-43a4-93b1-12d22c7261dc",
   CellTags->"Acceptance-computation"],
  Cell[95558, 2295, 214, 4, 60, "Subsection",ExpressionUUID->"ea5ff1fe-ed5f-4854-83c3-0315e9da61c8",
   CellTags->"Acceptance-computation"],
  Cell[95775, 2301, 14096, 354, 518, "Input",ExpressionUUID->"1c91b5c0-8d50-4730-b770-eb4306978c0a",
   CellTags->"Acceptance-computation"],
  Cell[109932, 2662, 390, 7, 73, "Chapter",ExpressionUUID->"afd7edaf-b6ab-40b8-995e-1ca3aea35549",
   CellTags->"Acceptance-computation"],
  Cell[110347, 2673, 204, 4, 72, "Section",ExpressionUUID->"196fc823-5b82-41f5-adba-9d2cefb31a82",
   CellTags->"Acceptance-computation"],
  Cell[110554, 2679, 32898, 622, 1062, "Input",ExpressionUUID->"3632028b-cd8a-409b-8c3f-b9ecc02b6377",
   CellTags->"Acceptance-computation"],
  Cell[143455, 3303, 9844, 247, 363, "Input",ExpressionUUID->"53f9b932-c093-46c2-8541-de00c649281f",
   CellTags->"Acceptance-computation"],
  Cell[153302, 3552, 7734, 197, 311, "Input",ExpressionUUID->"2f8e133a-bcc2-47d9-935d-572ef625003e",
   CellTags->"Acceptance-computation"],
  Cell[161061, 3753, 178, 4, 60, "Subsection",ExpressionUUID->"9e7149c7-3c71-4559-afb7-a449d4f655d5",
   CellTags->"Acceptance-computation"],
  Cell[161242, 3759, 9384, 234, 363, "Input",ExpressionUUID->"91d3fa1e-e7c1-4f7a-b2a1-f310fe8d12e9",
   CellTags->"Acceptance-computation"],
  Cell[170675, 3999, 227, 4, 72, "Section",ExpressionUUID->"0738c17f-438d-4229-b58d-4caa27e8bb59",
   CellTags->"Acceptance-computation"],
  Cell[170905, 4005, 11902, 296, 615, "Input",ExpressionUUID->"da27686f-037f-4b5a-a83b-0b9b4a63bb79",
   CellTags->"Acceptance-computation"],
  Cell[182844, 4306, 217, 4, 72, "Section",ExpressionUUID->"66eab753-4ab9-4942-aca4-d5f57a32cff8",
   CellTags->"Acceptance-computation"],
  Cell[183064, 4312, 11875, 314, 664, "Input",ExpressionUUID->"efbd8d60-7622-4782-b55c-ea58b1a6e7ba",
   CellTags->"Acceptance-computation"],
  Cell[194964, 4630, 344, 6, 52, "Subsubsection",ExpressionUUID->"c0171125-d9bd-46e4-ad9a-637e9c48371f",
   CellTags->"Acceptance-computation"],
  Cell[195311, 4638, 11944, 285, 610, "Input",ExpressionUUID->"5004031e-7fb1-4e9b-b051-46d5e6e78c5a",
   CellTags->"Acceptance-computation"],
  Cell[207328, 4931, 491, 9, 131, "Title",ExpressionUUID->"f1f9dd6e-804c-4d25-b50c-c4cf6b7558a7",
   CellTags->"Acceptance-computation"],
  Cell[207844, 4944, 246, 5, 73, "Chapter",ExpressionUUID->"37f9d20e-b8e0-4a9e-a0b2-905dcc7758f4",
   CellTags->"Acceptance-computation"],
  Cell[208115, 4953, 445, 7, 72, "Section",ExpressionUUID->"311d2a43-726e-49ae-9add-909244e95d21",
   CellTags->"Acceptance-computation"],
  Cell[208563, 4962, 421, 12, 38, "Input",ExpressionUUID->"48959cb7-cea5-714e-a9c2-9129aecc8158",
   CellTags->"Acceptance-computation"],
  Cell[209021, 4979, 214, 4, 72, "Section",ExpressionUUID->"2fb75ff6-a895-4847-840f-5d3c460184fe",
   CellTags->"Acceptance-computation"],
  Cell[209238, 4985, 11419, 247, 327, "Input",ExpressionUUID->"ca7d3bbe-02c0-4827-aedc-68b83a30c3c3",
   CellTags->"Acceptance-computation"],
  Cell[220694, 5237, 370, 6, 72, "Section",ExpressionUUID->"e4e577a9-1a4e-4507-b25a-335a6fdc9ef6",
   CellTags->"Acceptance-computation"],
  Cell[221067, 5245, 12846, 313, 603, "Input",ExpressionUUID->"2ad35743-0b2d-4ab7-89ce-2a9bc7c2b2db",
   CellTags->"Acceptance-computation"],
  Cell[233950, 5563, 195, 4, 72, "Section",ExpressionUUID->"cc18ea8d-671e-4ead-bc3a-853006a78f1e",
   CellTags->"Acceptance-computation"],
  Cell[234148, 5569, 20282, 475, 1083, "Input",ExpressionUUID->"a9091338-f05b-4de3-9d38-9aada0073970",
   CellTags->"Acceptance-computation"],
  Cell[254455, 6048, 197, 4, 60, "Subsection",ExpressionUUID->"09f44661-663e-4f4a-9f01-fb115604f005",
   CellTags->"Acceptance-computation"],
  Cell[254655, 6054, 13162, 297, 892, "Input",ExpressionUUID->"53ffba7d-4ea4-4649-b0b1-b41ebb9d4d04",
   CellTags->"Acceptance-computation"],
  Cell[268755, 6385, 505, 8, 73, "Chapter",ExpressionUUID->"1122703c-072d-4bea-922d-683873975a0e",
   CellTags->"Acceptance-computation"],
  Cell[269263, 6395, 7252, 173, 382, "Input",ExpressionUUID->"515acc55-6b67-4659-9023-26157b42bcc9",
   CellTags->"Acceptance-computation"],
  Cell[276564, 6574, 283, 7, 131, "Title",ExpressionUUID->"50fe94e7-41b3-4591-8230-3cb2e8dd141f",
   CellTags->"Acceptance-computation"],
  Cell[276872, 6585, 313, 6, 73, "Chapter",ExpressionUUID->"f484ff0b-b8e0-465d-a715-b1fad05c034b",
   CellTags->"Acceptance-computation"],
  Cell[277188, 6593, 1463, 28, 72, "Input",ExpressionUUID->"55f30a0f-e2c9-4c8b-b746-0563c020463e",
   CellTags->"Acceptance-computation"],
  Cell[278688, 6626, 265, 5, 73, "Chapter",ExpressionUUID->"d7170412-afdc-4161-8e10-84572948fcb6",
   CellTags->"Acceptance-computation"],
  Cell[278978, 6635, 293, 6, 72, "Section",ExpressionUUID->"ddd02bff-99e7-4be3-9ae8-7da7f1f9e7f6",
   CellTags->"Acceptance-computation"],
  Cell[279274, 6643, 1030, 23, 72, "Input",ExpressionUUID->"2d691514-165d-4155-9fe4-90d3eceffacc",
   CellTags->"Acceptance-computation"],
  Cell[280341, 6671, 297, 6, 72, "Section",ExpressionUUID->"c5e48e31-838c-4e45-a1b5-f2bc8b547930",
   CellTags->"Acceptance-computation"],
  Cell[280641, 6679, 1128, 25, 79, "Input",ExpressionUUID->"0281b42f-6a7b-4ff8-bd75-dc322a4b576b",
   CellTags->"Acceptance-computation"],
  Cell[281806, 6709, 300, 6, 72, "Section",ExpressionUUID->"ae7d6707-c19e-41ed-bcfa-5f6075b93690",
   CellTags->"Acceptance-computation"],
  Cell[282109, 6717, 1134, 25, 79, "Input",ExpressionUUID->"d16f6260-c035-4ea6-b79c-64f9982fc872",
   CellTags->"Acceptance-computation"],
  Cell[283292, 6748, 248, 5, 73, "Chapter",ExpressionUUID->"a2a27669-55db-42a0-91ac-e576f69cbd28",
   CellTags->"Acceptance-computation"],
  Cell[283543, 6755, 1123, 24, 72, "Input",ExpressionUUID->"277a7732-e700-4a66-9ac3-96adad0b972c",
   CellTags->"Acceptance-computation"],
  Cell[284703, 6784, 248, 5, 73, "Chapter",ExpressionUUID->"e3a0350b-2791-49aa-98c6-3529a2c654c1",
   CellTags->"Acceptance-computation"],
  Cell[284954, 6791, 1010, 22, 72, "Input",ExpressionUUID->"a918caa4-7727-46ab-8a89-82e88c0362fe",
   CellTags->"Acceptance-computation"],
  Cell[286001, 6818, 248, 5, 73, "Chapter",ExpressionUUID->"81e7c979-05d1-46d3-9f30-c348d4ad85ee",
   CellTags->"Acceptance-computation"],
  Cell[286252, 6825, 1191, 25, 72, "Input",ExpressionUUID->"aba09ef3-d167-4755-87ff-1a83c4b688d5",
   CellTags->"Acceptance-computation"],
  Cell[287480, 6855, 247, 5, 73, "Chapter",ExpressionUUID->"5625edba-b5ba-4cb5-9940-c9858cc46292",
   CellTags->"Acceptance-computation"],
  Cell[287730, 6862, 927, 21, 72, "Input",ExpressionUUID->"dd98e7ac-70d9-42c3-b9cb-4d75c194750b",
   CellTags->"Acceptance-computation"],
  Cell[288694, 6888, 302, 6, 73, "Chapter",ExpressionUUID->"e232d438-2751-493d-800c-f3a635b2cec9",
   CellTags->"Acceptance-computation"],
  Cell[288999, 6896, 1051, 23, 72, "Input",ExpressionUUID->"3b3d14d3-13f5-445f-9eff-9c44a6e40057",
   CellTags->"Acceptance-computation"],
  Cell[290087, 6924, 543, 14, 74, "Chapter",ExpressionUUID->"16a85890-a485-4861-9461-a18557ef8b7a",
   CellTags->"Acceptance-computation"],
  Cell[290633, 6940, 1075, 23, 72, "Input",ExpressionUUID->"0df95c35-68af-4247-97fd-763c96e776b6",
   CellTags->"Acceptance-computation"],
  Cell[291745, 6968, 618, 16, 74, "Chapter",ExpressionUUID->"09c9ab33-2637-4916-82f6-caddf0b81315",
   CellTags->"Acceptance-computation"],
  Cell[292366, 6986, 1091, 23, 72, "Input",ExpressionUUID->"45ceb630-a695-4c25-89a6-3527c7c47038",
   CellTags->"Acceptance-computation"],
  Cell[293494, 7014, 618, 16, 74, "Chapter",ExpressionUUID->"26258063-ea7b-4e5b-a279-5922ac490d37",
   CellTags->"Acceptance-computation"],
  Cell[294115, 7032, 1093, 23, 72, "Input",ExpressionUUID->"f7b64747-fa0c-49f9-85dd-31038f24baee",
   CellTags->"Acceptance-computation"]},
 "Technical"->{
  Cell[295257, 7061, 264, 3, 76, "Title",ExpressionUUID->"19ea33ab-556d-4e65-b877-19f398ffbc00",
   CellTags->"Technical"],
  Cell[295524, 7066, 996, 20, 72, "Input",ExpressionUUID->"1e4ba83e-9fe0-4106-aa7a-c23a0ac9b933",
   CellTags->"Technical"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Evaluation", 376251, 9055},
 {"Re-evaluation", 377931, 9082},
 {"Acceptance-computation", 378251, 9087},
 {"Technical", 387076, 9214}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 207, 3, 86, "Title",ExpressionUUID->"be5b0a69-a859-4e14-9302-15ea02706e41"],
Cell[790, 27, 876, 16, 77, "Input",ExpressionUUID->"91675345-8e36-4745-9302-f9529663728a"]
}, Closed]],
Cell[CellGroupData[{
Cell[1703, 48, 365, 6, 76, "Title",ExpressionUUID->"f0d20480-5665-403d-a88a-e38db6e4fff2",
 CellTags->"Evaluation"],
Cell[CellGroupData[{
Cell[2093, 58, 221, 3, 73, "Chapter",ExpressionUUID->"92ecf04f-6598-4c98-90eb-63f4447733f5",
 CellTags->"Evaluation"],
Cell[2317, 63, 5668, 148, 311, "Input",ExpressionUUID->"a1578c42-2de5-4ca8-9dba-fe18521b9ae6",
 CellTags->"Evaluation"]
}, Closed]],
Cell[CellGroupData[{
Cell[8022, 216, 194, 3, 73, "Chapter",ExpressionUUID->"68db0e70-7200-3c44-9b10-7a1d383990bc",
 CellTags->"Evaluation"],
Cell[8219, 221, 3541, 91, 260, "Input",ExpressionUUID->"c697f538-781c-e84b-84e1-406b17117d9f",
 CellTags->"Evaluation"]
}, Closed]],
Cell[CellGroupData[{
Cell[11797, 317, 189, 3, 73, "Chapter",ExpressionUUID->"d88269ba-b141-6e49-9f83-3e2b1fa6c22a",
 CellTags->"Evaluation"],
Cell[11989, 322, 1287, 35, 106, "Input",ExpressionUUID->"f536aab8-8eee-bd42-97e7-3bd199154326",
 CellTags->"Evaluation"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[13325, 363, 196, 3, 63, "Title",ExpressionUUID->"913455a8-f5be-b54d-ac22-98f69dbcb83b"],
Cell[CellGroupData[{
Cell[13546, 370, 288, 5, 73, "Chapter",ExpressionUUID->"67cb32f9-d6bb-4863-a1b8-1fd6e984778c",
 CellTags->{"Evaluation", "Re-evaluation"}],
Cell[13837, 377, 7053, 159, 534, "Input",ExpressionUUID->"13990e39-f852-4c8d-b5ff-fd4b4bc0b794",
 CellTags->{"Evaluation", "Re-evaluation"}]
}, Closed]],
Cell[CellGroupData[{
Cell[20927, 541, 194, 3, 73, "Chapter",ExpressionUUID->"37f1ef16-5d41-4c55-a5ad-ab15c8e3f116",
 CellTags->"Evaluation"],
Cell[21124, 546, 900, 20, 72, "Input",ExpressionUUID->"3abbb0b6-0c7e-4736-a509-0b5fb51d5700",
 CellTags->"Evaluation"]
}, Closed]],
Cell[CellGroupData[{
Cell[22061, 571, 218, 3, 73, "Chapter",ExpressionUUID->"fa941f2d-baf5-384d-94cb-38b4e2ca6969",
 CellTags->"Evaluation"],
Cell[22282, 576, 1124, 27, 157, "Input",ExpressionUUID->"c88cc3ed-e15f-e44e-8320-ebafc5b4c9ca",
 CellTags->"Evaluation"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[23455, 609, 226, 4, 76, "Title",ExpressionUUID->"081c4f71-8748-cb42-86f3-fd03fce3c053",
 CellTags->"Acceptance-computation"],
Cell[CellGroupData[{
Cell[23706, 617, 243, 5, 73, "Chapter",ExpressionUUID->"6c5eb7ec-54f2-6648-b4fc-1fe284926718",
 CellTags->"Acceptance-computation"],
Cell[23952, 624, 16832, 452, 1236, "Input",ExpressionUUID->"6945de8c-d1bc-4261-8784-a35d73653231",
 CellTags->"Acceptance-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[40821, 1081, 370, 6, 73, "Chapter",ExpressionUUID->"6542b8fd-6447-40c5-a489-c8544719ee88",
 CellTags->"Acceptance-computation"],
Cell[41194, 1089, 36498, 771, 1506, "Input",ExpressionUUID->"fb3d4d64-0315-481f-b629-16445305ff61",
 CellTags->"Acceptance-computation"],
Cell[CellGroupData[{
Cell[77717, 1864, 224, 5, 72, "Section",ExpressionUUID->"d18df397-565c-4314-b9c2-03453c319f04",
 CellTags->"Acceptance-computation"],
Cell[CellGroupData[{
Cell[77966, 1873, 215, 4, 60, "Subsection",ExpressionUUID->"27037987-e254-4a1f-b19f-ea431bbfa0c0",
 CellTags->"Acceptance-computation"],
Cell[78184, 1879, 17337, 411, 1065, "Input",ExpressionUUID->"960a9a50-7f21-43a4-93b1-12d22c7261dc",
 CellTags->"Acceptance-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[95558, 2295, 214, 4, 60, "Subsection",ExpressionUUID->"ea5ff1fe-ed5f-4854-83c3-0315e9da61c8",
 CellTags->"Acceptance-computation"],
Cell[95775, 2301, 14096, 354, 518, "Input",ExpressionUUID->"1c91b5c0-8d50-4730-b770-eb4306978c0a",
 CellTags->"Acceptance-computation"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[109932, 2662, 390, 7, 73, "Chapter",ExpressionUUID->"afd7edaf-b6ab-40b8-995e-1ca3aea35549",
 CellTags->"Acceptance-computation"],
Cell[CellGroupData[{
Cell[110347, 2673, 204, 4, 72, "Section",ExpressionUUID->"196fc823-5b82-41f5-adba-9d2cefb31a82",
 CellTags->"Acceptance-computation"],
Cell[110554, 2679, 32898, 622, 1062, "Input",ExpressionUUID->"3632028b-cd8a-409b-8c3f-b9ecc02b6377",
 CellTags->"Acceptance-computation"],
Cell[143455, 3303, 9844, 247, 363, "Input",ExpressionUUID->"53f9b932-c093-46c2-8541-de00c649281f",
 CellTags->"Acceptance-computation"],
Cell[153302, 3552, 7734, 197, 311, "Input",ExpressionUUID->"2f8e133a-bcc2-47d9-935d-572ef625003e",
 CellTags->"Acceptance-computation"],
Cell[CellGroupData[{
Cell[161061, 3753, 178, 4, 60, "Subsection",ExpressionUUID->"9e7149c7-3c71-4559-afb7-a449d4f655d5",
 CellTags->"Acceptance-computation"],
Cell[161242, 3759, 9384, 234, 363, "Input",ExpressionUUID->"91d3fa1e-e7c1-4f7a-b2a1-f310fe8d12e9",
 CellTags->"Acceptance-computation"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[170675, 3999, 227, 4, 72, "Section",ExpressionUUID->"0738c17f-438d-4229-b58d-4caa27e8bb59",
 CellTags->"Acceptance-computation"],
Cell[170905, 4005, 11902, 296, 615, "Input",ExpressionUUID->"da27686f-037f-4b5a-a83b-0b9b4a63bb79",
 CellTags->"Acceptance-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[182844, 4306, 217, 4, 72, "Section",ExpressionUUID->"66eab753-4ab9-4942-aca4-d5f57a32cff8",
 CellTags->"Acceptance-computation"],
Cell[183064, 4312, 11875, 314, 664, "Input",ExpressionUUID->"efbd8d60-7622-4782-b55c-ea58b1a6e7ba",
 CellTags->"Acceptance-computation"],
Cell[CellGroupData[{
Cell[194964, 4630, 344, 6, 52, "Subsubsection",ExpressionUUID->"c0171125-d9bd-46e4-ad9a-637e9c48371f",
 CellTags->"Acceptance-computation"],
Cell[195311, 4638, 11944, 285, 610, "Input",ExpressionUUID->"5004031e-7fb1-4e9b-b051-46d5e6e78c5a",
 CellTags->"Acceptance-computation"]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[207328, 4931, 491, 9, 131, "Title",ExpressionUUID->"f1f9dd6e-804c-4d25-b50c-c4cf6b7558a7",
 CellTags->"Acceptance-computation"],
Cell[CellGroupData[{
Cell[207844, 4944, 246, 5, 73, "Chapter",ExpressionUUID->"37f9d20e-b8e0-4a9e-a0b2-905dcc7758f4",
 CellTags->"Acceptance-computation"],
Cell[CellGroupData[{
Cell[208115, 4953, 445, 7, 72, "Section",ExpressionUUID->"311d2a43-726e-49ae-9add-909244e95d21",
 CellTags->"Acceptance-computation"],
Cell[208563, 4962, 421, 12, 38, "Input",ExpressionUUID->"48959cb7-cea5-714e-a9c2-9129aecc8158",
 CellTags->"Acceptance-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[209021, 4979, 214, 4, 72, "Section",ExpressionUUID->"2fb75ff6-a895-4847-840f-5d3c460184fe",
 CellTags->"Acceptance-computation"],
Cell[209238, 4985, 11419, 247, 327, "Input",ExpressionUUID->"ca7d3bbe-02c0-4827-aedc-68b83a30c3c3",
 CellTags->"Acceptance-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[220694, 5237, 370, 6, 72, "Section",ExpressionUUID->"e4e577a9-1a4e-4507-b25a-335a6fdc9ef6",
 CellTags->"Acceptance-computation"],
Cell[221067, 5245, 12846, 313, 603, "Input",ExpressionUUID->"2ad35743-0b2d-4ab7-89ce-2a9bc7c2b2db",
 CellTags->"Acceptance-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[233950, 5563, 195, 4, 72, "Section",ExpressionUUID->"cc18ea8d-671e-4ead-bc3a-853006a78f1e",
 CellTags->"Acceptance-computation"],
Cell[234148, 5569, 20282, 475, 1083, "Input",ExpressionUUID->"a9091338-f05b-4de3-9d38-9aada0073970",
 CellTags->"Acceptance-computation"],
Cell[CellGroupData[{
Cell[254455, 6048, 197, 4, 60, "Subsection",ExpressionUUID->"09f44661-663e-4f4a-9f01-fb115604f005",
 CellTags->"Acceptance-computation"],
Cell[254655, 6054, 13162, 297, 892, "Input",ExpressionUUID->"53ffba7d-4ea4-4649-b0b1-b41ebb9d4d04",
 CellTags->"Acceptance-computation"],
Cell[267820, 6353, 391, 9, 25, "Input",ExpressionUUID->"0c1ef6a7-76df-48bf-b4a0-5a01f04f05db"],
Cell[268214, 6364, 480, 14, 25, "Input",ExpressionUUID->"8801a67c-6317-4874-b2b8-6f9213863e76"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[268755, 6385, 505, 8, 73, "Chapter",ExpressionUUID->"1122703c-072d-4bea-922d-683873975a0e",
 CellTags->"Acceptance-computation"],
Cell[269263, 6395, 7252, 173, 382, "Input",ExpressionUUID->"515acc55-6b67-4659-9023-26157b42bcc9",
 CellTags->"Acceptance-computation"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[276564, 6574, 283, 7, 131, "Title",ExpressionUUID->"50fe94e7-41b3-4591-8230-3cb2e8dd141f",
 CellTags->"Acceptance-computation"],
Cell[CellGroupData[{
Cell[276872, 6585, 313, 6, 73, "Chapter",ExpressionUUID->"f484ff0b-b8e0-465d-a715-b1fad05c034b",
 CellTags->"Acceptance-computation"],
Cell[277188, 6593, 1463, 28, 72, "Input",ExpressionUUID->"55f30a0f-e2c9-4c8b-b746-0563c020463e",
 CellTags->"Acceptance-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[278688, 6626, 265, 5, 73, "Chapter",ExpressionUUID->"d7170412-afdc-4161-8e10-84572948fcb6",
 CellTags->"Acceptance-computation"],
Cell[CellGroupData[{
Cell[278978, 6635, 293, 6, 72, "Section",ExpressionUUID->"ddd02bff-99e7-4be3-9ae8-7da7f1f9e7f6",
 CellTags->"Acceptance-computation"],
Cell[279274, 6643, 1030, 23, 72, "Input",ExpressionUUID->"2d691514-165d-4155-9fe4-90d3eceffacc",
 CellTags->"Acceptance-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[280341, 6671, 297, 6, 72, "Section",ExpressionUUID->"c5e48e31-838c-4e45-a1b5-f2bc8b547930",
 CellTags->"Acceptance-computation"],
Cell[280641, 6679, 1128, 25, 79, "Input",ExpressionUUID->"0281b42f-6a7b-4ff8-bd75-dc322a4b576b",
 CellTags->"Acceptance-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[281806, 6709, 300, 6, 72, "Section",ExpressionUUID->"ae7d6707-c19e-41ed-bcfa-5f6075b93690",
 CellTags->"Acceptance-computation"],
Cell[282109, 6717, 1134, 25, 79, "Input",ExpressionUUID->"d16f6260-c035-4ea6-b79c-64f9982fc872",
 CellTags->"Acceptance-computation"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[283292, 6748, 248, 5, 73, "Chapter",ExpressionUUID->"a2a27669-55db-42a0-91ac-e576f69cbd28",
 CellTags->"Acceptance-computation"],
Cell[283543, 6755, 1123, 24, 72, "Input",ExpressionUUID->"277a7732-e700-4a66-9ac3-96adad0b972c",
 CellTags->"Acceptance-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[284703, 6784, 248, 5, 73, "Chapter",ExpressionUUID->"e3a0350b-2791-49aa-98c6-3529a2c654c1",
 CellTags->"Acceptance-computation"],
Cell[284954, 6791, 1010, 22, 72, "Input",ExpressionUUID->"a918caa4-7727-46ab-8a89-82e88c0362fe",
 CellTags->"Acceptance-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[286001, 6818, 248, 5, 73, "Chapter",ExpressionUUID->"81e7c979-05d1-46d3-9f30-c348d4ad85ee",
 CellTags->"Acceptance-computation"],
Cell[286252, 6825, 1191, 25, 72, "Input",ExpressionUUID->"aba09ef3-d167-4755-87ff-1a83c4b688d5",
 CellTags->"Acceptance-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[287480, 6855, 247, 5, 73, "Chapter",ExpressionUUID->"5625edba-b5ba-4cb5-9940-c9858cc46292",
 CellTags->"Acceptance-computation"],
Cell[287730, 6862, 927, 21, 72, "Input",ExpressionUUID->"dd98e7ac-70d9-42c3-b9cb-4d75c194750b",
 CellTags->"Acceptance-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[288694, 6888, 302, 6, 73, "Chapter",ExpressionUUID->"e232d438-2751-493d-800c-f3a635b2cec9",
 CellTags->"Acceptance-computation"],
Cell[288999, 6896, 1051, 23, 72, "Input",ExpressionUUID->"3b3d14d3-13f5-445f-9eff-9c44a6e40057",
 CellTags->"Acceptance-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[290087, 6924, 543, 14, 74, "Chapter",ExpressionUUID->"16a85890-a485-4861-9461-a18557ef8b7a",
 CellTags->"Acceptance-computation"],
Cell[290633, 6940, 1075, 23, 72, "Input",ExpressionUUID->"0df95c35-68af-4247-97fd-763c96e776b6",
 CellTags->"Acceptance-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[291745, 6968, 618, 16, 74, "Chapter",ExpressionUUID->"09c9ab33-2637-4916-82f6-caddf0b81315",
 CellTags->"Acceptance-computation"],
Cell[292366, 6986, 1091, 23, 72, "Input",ExpressionUUID->"45ceb630-a695-4c25-89a6-3527c7c47038",
 CellTags->"Acceptance-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[293494, 7014, 618, 16, 74, "Chapter",ExpressionUUID->"26258063-ea7b-4e5b-a279-5922ac490d37",
 CellTags->"Acceptance-computation"],
Cell[294115, 7032, 1093, 23, 72, "Input",ExpressionUUID->"f7b64747-fa0c-49f9-85dd-31038f24baee",
 CellTags->"Acceptance-computation"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[295257, 7061, 264, 3, 76, "Title",ExpressionUUID->"19ea33ab-556d-4e65-b877-19f398ffbc00",
 CellTags->"Technical"],
Cell[295524, 7066, 996, 20, 72, "Input",ExpressionUUID->"1e4ba83e-9fe0-4106-aa7a-c23a0ac9b933",
 CellTags->"Technical"]
}, Closed]],
Cell[CellGroupData[{
Cell[296557, 7091, 155, 3, 63, "Title",ExpressionUUID->"555bdaaf-7698-4823-9f59-42d64c26975b"],
Cell[CellGroupData[{
Cell[296737, 7098, 157, 3, 58, "Section",ExpressionUUID->"97c2751a-bbd5-42bc-92f1-50818e659d81"],
Cell[CellGroupData[{
Cell[296919, 7105, 157, 3, 45, "Subsection",ExpressionUUID->"87dd6ce1-0fb6-44fd-803a-2b0c25413110"],
Cell[CellGroupData[{
Cell[297101, 7112, 217, 4, 38, "Subsubsection",ExpressionUUID->"b3c28421-1d30-4e34-9c81-12d3cba6c2ec"],
Cell[297321, 7118, 30990, 740, 1994, "Input",ExpressionUUID->"7b719f2b-8caf-4a4f-8b9a-da7844fd148b"]
}, Closed]],
Cell[CellGroupData[{
Cell[328348, 7863, 188, 3, 38, "Subsubsection",ExpressionUUID->"3beb02a3-e81c-4b7d-8e6a-3ae946215fb8"],
Cell[328539, 7868, 3949, 105, 216, "Input",ExpressionUUID->"042d45b7-eb53-4604-aadd-11b9b6e2ceeb"]
}, Closed]],
Cell[CellGroupData[{
Cell[332525, 7978, 212, 4, 38, "Subsubsection",ExpressionUUID->"d0a693c0-a607-427a-a26d-b126525d9973"],
Cell[332740, 7984, 5303, 145, 261, "Input",ExpressionUUID->"39a428c4-b028-490c-b893-b32cb609ad67"]
}, Closed]],
Cell[CellGroupData[{
Cell[338080, 8134, 174, 3, 38, "Subsubsection",ExpressionUUID->"e280ff60-885b-4959-af96-73b50dfe3879"],
Cell[338257, 8139, 1440, 41, 27, "Input",ExpressionUUID->"16183463-c71c-4106-babe-b9f142e92695"],
Cell[339700, 8182, 7051, 186, 229, "Input",ExpressionUUID->"56df3192-030e-4015-9c58-dec99747fd21"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[346800, 8374, 174, 3, 45, "Subsection",ExpressionUUID->"11c8408e-3a4c-4e27-afa6-ac15134ef890"],
Cell[346977, 8379, 19629, 463, 711, "Input",ExpressionUUID->"1cb50a8a-a918-4df5-9cde-e7036a7f1497"]
}, Closed]],
Cell[CellGroupData[{
Cell[366643, 8847, 894, 24, 56, "Subsection",ExpressionUUID->"fbb4d58b-3993-4266-9e68-a92398696cd6"],
Cell[367540, 8873, 8226, 163, 126, "Input",ExpressionUUID->"e04ee279-f808-4684-9817-358f012f3c7d"]
}, Closed]]
}, Closed]]
}, Closed]]
}
]
*)