3. ALP-gluon sensitivity.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[    273948,       6563]
NotebookOptionsPosition[    244376,       6111]
NotebookOutlinePosition[    261856,       6346]
CellTagsIndexPosition[    261552,       6336]
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->"0839ea5b-1982-4dfb-8c5d-\
195bcd99f6e9"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ParallelEvaluate", "[", 
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 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[{
  RowBox[{"CloseKernels", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LaunchKernels", "[", "]"}], ";"}], "\[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[{"infoDialog", "[", "phrase_", "]"}], ":=", 
  RowBox[{"DialogInput", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"choice", "=", "\"\<\>\""}], "}"}], ",", 
    RowBox[{"Column", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"TextCell", "[", "phrase", "]"}], ",", 
       RowBox[{"Button", "[", 
        RowBox[{"\"\<Proceed\>\"", ",", 
         RowBox[{"DialogReturn", "[", "choice", "]"}]}], "]"}]}], "}"}], 
     "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"DirectoryQ", "[", 
        RowBox[{"FileNameJoin", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"NotebookDirectory", "[", "]"}], ",", 
           "\"\<Auxiliary data\>\""}], "}"}], "]"}], "]"}], "//", 
       "ToString"}], ")"}], "\[Equal]", "\"\<False\>\""}], ",", 
    RowBox[{"CreateDirectory", "[", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"NotebookDirectory", "[", "]"}], ",", 
        "\"\<Auxiliary data\>\""}], "}"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"choiceslist", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Tabulated Nevents+sensitivity\>\"", ",", 
     "\"\<Sensitivity only (tabulated Nevents must be produced before)\>\"", 
     ",", "\"\<Acceptance\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"taglist", "[", "\"\<Acceptance\>\"", "]"}], "=", 
   "\"\<Acceptance\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"taglist", "[", "\"\<Tabulated Nevents+sensitivity\>\"", "]"}], 
   "=", "\"\<Number-of-events+sensitivity\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
   "taglist", "[", 
    "\"\<Sensitivity only (tabulated Nevents must be produced before)\>\"", 
    "]"}], "=", "\"\<Sensitivity\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"computationchoice", "=", 
   RowBox[{"dropdownDialog", "[", 
    RowBox[{
    "choiceslist", ",", 
     "\"\<Do you want to compute the tabulated number of events and then \
sensitivity, or just sensitivity (if the tabulated number of events has been \
already produced)?\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"tagselected", "=", 
  RowBox[{"taglist", "[", "computationchoice", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"BlockEvaluation", "[", "tagselected", "]"}]}], "Input",
 CellChangeTimes->{{3.893437585709897*^9, 3.8934375895369635`*^9}, {
   3.8934376329497385`*^9, 3.893437658846809*^9}, 3.8935730495823717`*^9, {
   3.8936653425702004`*^9, 3.8936653432627907`*^9}, {3.8950526655121717`*^9, 
   3.895052665712869*^9}, {3.895126994040556*^9, 3.8951270001060944`*^9}, {
   3.902561886909021*^9, 3.9025619879179907`*^9}, {3.902562067085945*^9, 
   3.9025620673227577`*^9}, 3.9027294885937986`*^9, {3.903788557154269*^9, 
   3.9037885613831005`*^9}, {3.9038033934699326`*^9, 
   3.9038034371611333`*^9}, {3.903854932333012*^9, 3.9038549328265457`*^9}, {
   3.9146655153366585`*^9, 3.91466553588784*^9}, {3.9168224565291305`*^9, 
   3.9168224567551365`*^9}, {3.9170215579935164`*^9, 3.9170215582897778`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"3ff672e3-e982-49fe-8fe3-e69285f06990"]
}, Closed]],

Cell[CellGroupData[{

Cell["Preliminary definitions", "Title",
 CellChangeTimes->{{3.7552434949579296`*^9, 3.755243495237189*^9}, {
   3.88501652694691*^9, 3.885016532955313*^9}, {3.8850204805201235`*^9, 
   3.885020485584347*^9}, 3.887617574733776*^9},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"dc98cc40-afde-45ba-ae22-\
74afbd95ce04"],

Cell[CellGroupData[{

Cell["Various directories", "Chapter",
 CellChangeTimes->{{3.913804059957842*^9, 3.913804062327417*^9}},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"1320ba97-7abe-4017-b5a5-\
ae36b7fec1b3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"LLPdirName", "=", "\"\<ALP-gluon\>\""}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Set", " ", "the", " ", "directory", " ", "for", " ", "the", " ", "search",
     " ", "where", " ", "tabulated", " ", "acceptances", " ", "are", " ", 
    "located"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"directory", "[", "\"\<Acceptances\>\"", "]"}], "=", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<Acceptances\>\""}], 
      "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Set", " ", "the", " ", "directory", " ", "for", " ", "the", " ", 
     "search", " ", "where", " ", "tabulated", " ", "angle"}], "-", 
    RowBox[{"energy", " ", "distributions", " ", "are", " ", "located"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"directory", "[", "\"\<Distribution\>\"", "]"}], "=", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NotebookDirectory", "[", "]"}], ",", 
       "\"\<spectra/New physics particles spectra\>\"", ",", "LLPdirName"}], 
      "}"}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "directory", " ", "storing", " ", "production", " ", "weights",
     " ", "of", " ", "the", " ", "given", " ", "LLP"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"directory", "[", "\"\<Production weights\>\"", "]"}], "=", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<phenomenology\>\"", 
       ",", "LLPdirName", ",", "\"\<Production probabilities\>\""}], "}"}], 
     "]"}]}], ";"}], " ", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Directory", " ", "to", " ", "which", " ", "various", " ", "auxillary", 
    " ", "datasets", " ", "will", " ", "be", " ", "stored"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"directory", "[", "\"\<Auxiliary\>\"", "]"}], "=", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<Auxiliary data\>\"",
        ",", "LLPdirName"}], "}"}], "]"}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"!", 
      RowBox[{"DirectoryQ", "[", 
       RowBox[{"directory", "[", "\"\<Auxiliary\>\"", "]"}], "]"}]}], ",", 
     RowBox[{"CreateDirectory", "[", 
      RowBox[{"directory", "[", "\"\<Auxiliary\>\"", "]"}], "]"}]}], "]"}], 
   ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Directory", " ", "containing", " ", "decay", " ", "widths", " ", "of", 
    " ", "the", " ", "LLPs"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"directory", "[", "\"\<Decays\>\"", "]"}], "=", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<phenomenology\>\"", 
       ",", "LLPdirName", ",", "\"\<decay widths\>\""}], "}"}], "]"}]}], 
   ";"}], " "}]}], "Input",
 CellChangeTimes->{{3.913804080271287*^9, 3.913804171309696*^9}, {
   3.913804205284999*^9, 3.913804380241178*^9}, {3.9138103204454637`*^9, 
   3.9138103216469903`*^9}, 3.9138295316757774`*^9, {3.9138664030078764`*^9, 
   3.9138664044074554`*^9}, {3.913871718367205*^9, 3.9138717189543257`*^9}, {
   3.9156429956931515`*^9, 3.9156429957114162`*^9}},
 CellTags->{"Acceptance", "Number-of-events+sensitivity"},
 CellLabel->"In[16]:=",ExpressionUUID->"d67e103e-ff85-49fc-80ad-39fdd6887281"]
}, Closed]],

Cell[CellGroupData[{

Cell["Parameters and various functions", "Chapter",
 CellChangeTimes->{{3.8846619009140606`*^9, 3.884661902476644*^9}, {
  3.885017296053095*^9, 3.8850172996856313`*^9}},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"9e90539e-357b-496f-b4bb-\
a60bd5224fbd"],

Cell[BoxData[{
 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[{"infoDialog", "[", "phrase_", "]"}], ":=", 
  RowBox[{"DialogInput", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"choice", "=", "\"\<\>\""}], "}"}], ",", 
    RowBox[{"Column", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"TextCell", "[", "phrase", "]"}], ",", 
       RowBox[{"Button", "[", 
        RowBox[{"\"\<Proceed\>\"", ",", 
         RowBox[{"DialogReturn", "[", "choice", "]"}]}], "]"}]}], "}"}], 
     "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"selectionDialog", "[", 
    RowBox[{"list_", ",", "phrase_"}], "]"}], ":=", 
   RowBox[{"DialogInput", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"choice", "=", 
       RowBox[{"{", "}"}]}], "}"}], ",", 
     RowBox[{"Column", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Row", "[", 
         RowBox[{
         "{", "\"\<Select the experiments for which the number of events will \
be computed:\>\"", "}"}], "]"}], ",", 
        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[{"(*", "chbar", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"chbar", "=", " ", 
    RowBox[{"6.6", "*", 
     SuperscriptBox["10", 
      RowBox[{"-", "25"}]], "*", "3", "*", 
     SuperscriptBox["10", "8"]}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Decay", " ", "width", " ", "of", " ", "mesons"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Tau]\[Pi]0", "=", 
   RowBox[{"8.52", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "17"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]\[Pi]0", "=", 
   FractionBox["chbar", "\[Tau]\[Pi]0"]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Tau]B", "=", 
   RowBox[{"1.64", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "12"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hbar", "=", 
   RowBox[{"6.58", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "25"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalGamma]BdecayGeV", "=", 
    FractionBox["hbar", "\[Tau]B"]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Bare", " ", "quark", " ", "masses", " ", "from", " ", "pdg"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"md", "=", 
   RowBox[{"4.67", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "3"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mu", "=", 
   RowBox[{"2.16", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "3"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ms", "=", "0.093"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", "Scales", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalLambda]wVal", "=", "80"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalLambda]QCDval", "=", "0.34"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Coupling", " ", "constants"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Alpha]EM", "=", 
   RowBox[{"1", "/", "137"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Alpha]W", "=", 
   RowBox[{"1", "/", "29."}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f\[Pi]", "=", "0.093"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Theta]\[Eta]\[Eta]pr", "=", 
    RowBox[{"ArcSin", "[", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "3."}], "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Cross", "-", "sections"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Sigma]pNucleonInpb", "[", "Atarget_", "]"}], "=", 
   RowBox[{"51", "*", 
    SuperscriptBox["Atarget", 
     RowBox[{"-", "0.29"}]], "*", 
    SuperscriptBox["10", "9"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Sigma]ppLHC", "=", 
    RowBox[{"72", "*", 
     SuperscriptBox["10", "9"]}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Masses", " ", "of", " ", "various", " ", "SM", " ", "particles"}],
    "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"mSM", "[", "\"\<Bplus\>\"", "]"}], ",", 
      RowBox[{"mSM", "[", "\"\<Kplus\>\"", "]"}], ",", 
      RowBox[{"mSM", "[", "\"\<PiPlus\>\"", "]"}], ",", 
      RowBox[{"mSM", "[", "\"\<h\>\"", "]"}], ",", 
      RowBox[{"mSM", "[", "\"\<Bs\>\"", "]"}]}], "}"}], "=", 
    RowBox[{"{", 
     RowBox[{"5.279", ",", "0.495", ",", "0.139", ",", "62.5", ",", "5.366"}],
      "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Alpha]S", "[", "ma_", "]"}], " ", "=", " ", 
     RowBox[{
      RowBox[{"Interpolation", "[", 
       RowBox[{
        RowBox[{"Import", "[", 
         RowBox[{
          RowBox[{"FileNameJoin", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"NotebookDirectory", "[", "]"}], ",", 
             "\"\<phenomenology/AlphaS.txt\>\""}], "}"}], "]"}], ",", 
          "\"\<Table\>\""}], "]"}], ",", 
        RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}], "[", "ma", 
      "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"___", "___", "___", "___", "___", "___", "__"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"B", "/", "K"}], " ", "fragmentation", " ", "fractions"}], "*)"}],
   "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"___", "___", "___", "___", "___", "___", "__"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Fragmentation", " ", "fractions", " ", "at", " ", "the", " ", 
     RowBox[{"LHC", ".", " ", "For"}], " ", "the", " ", "moment"}], ",", " ", 
    RowBox[{
     RowBox[{
     "the", " ", "same", " ", "fractions", " ", "are", " ", "assumed", " ", 
      "to", " ", "be", " ", "at", " ", "the", " ", "FCC"}], "-", "hh"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fbtob0", "[", "\"\<LHC\>\"", "]"}], "=", 
   RowBox[{
    RowBox[{"fbtobplus", "[", "\"\<LHC\>\"", "]"}], "=", 
    RowBox[{
     RowBox[{"fbtob0", "[", "\"\<FCC-hh\>\"", "]"}], "=", 
     RowBox[{
      RowBox[{"fbtobplus", "[", "\"\<FCC-hh\>\"", "]"}], "=", "0.324"}]}]}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fbtobs", "[", "\"\<LHC\>\"", "]"}], "=", 
    RowBox[{
     RowBox[{"fbtobs", "[", "\"\<FCC-hh\>\"", "]"}], "=", "0.09"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Fragmentation", " ", "fractions", " ", "at", " ", 
    RowBox[{"SPS", ".", " ", "From"}], " ", "SHiP", " ", "physics", " ", 
    "paper"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fbtobs", "[", "\"\<SPS\>\"", "]"}], "=", "0.11"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fbtob0", "[", "\"\<SPS\>\"", "]"}], "=", 
   RowBox[{
    RowBox[{"fbtobplus", "[", "\"\<SPS\>\"", "]"}], "=", "0.411"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fstokplus", "[", "\"\<SPS\>\"", "]"}], "=", "0.5"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fstok0l", "[", "\"\<SPS\>\"", "]"}], "=", "0.25"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"Fraction", " ", "of", " ", 
      SuperscriptBox["K", 
       RowBox[{"+", 
        RowBox[{"/", "-"}]}]], " ", "decaying", " ", "in"}], "-", 
     RowBox[{"flight", " ", "at", " ", "SPS"}]}], ",", " ", 
    RowBox[{
     RowBox[{"from", " ", 
      RowBox[{"https", ":"}]}], "//", 
     RowBox[{
      RowBox[{
       RowBox[{"arxiv", ".", "org"}], "/", "pdf"}], "/", 
      RowBox[{"2004.07974", ".", "pdf"}]}]}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fractionDecayInFlightKplusKminus", "=", 
    RowBox[{"(", 
     RowBox[{"0.29", "+", "0.07"}], ")"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Fragmentation", " ", "fractions", " ", "at", " ", 
    RowBox[{"FermilabBD", ".", " ", "Assumed"}], " ", "to", " ", "be", " ", 
    "the", " ", "same", " ", "as", " ", "at", " ", "SPS"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fbtobs", "[", "\"\<FermilabBD\>\"", "]"}], "=", "0.11"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fbtob0", "[", "\"\<FermilabBD\>\"", "]"}], "=", 
    RowBox[{
     RowBox[{"fbtobplus", "[", "\"\<FermilabBD\>\"", "]"}], "=", "0.411"}]}], 
   ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Fragmentation", " ", "fractions", " ", "at", " ", 
    RowBox[{"Serpukhov", ".", " ", "Assumed"}], " ", "to", " ", "be", " ", 
    "zero"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fbtobs", "[", "\"\<Serpukhov\>\"", "]"}], "=", "0."}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fbtob0", "[", "\"\<Serpukhov\>\"", "]"}], "=", 
   RowBox[{
    RowBox[{"fbtobplus", "[", "\"\<Serpukhov\>\"", "]"}], "=", "0."}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.884661904994011*^9, 3.884661921540403*^9}, {
   3.8850164522887964`*^9, 3.8850165245568185`*^9}, {3.885016628097911*^9, 
   3.8850166282886553`*^9}, 3.885016710182028*^9, {3.8850167568987885`*^9, 
   3.885016762395402*^9}, {3.885016799450395*^9, 3.8850170557864246`*^9}, {
   3.88501712653312*^9, 3.885017216885895*^9}, {3.8850173024453783`*^9, 
   3.8850173372383676`*^9}, {3.885017399572728*^9, 3.88501741270778*^9}, {
   3.8850174625354366`*^9, 3.885017462658634*^9}, {3.8850175591211877`*^9, 
   3.8850175593408356`*^9}, {3.8850182535473127`*^9, 
   3.8850182538962827`*^9}, {3.885018314394388*^9, 3.885018333197164*^9}, {
   3.8850189741121674`*^9, 3.885018974433589*^9}, 3.8850190966970725`*^9, {
   3.885019721482507*^9, 3.8850197654258046`*^9}, {3.885019828534438*^9, 
   3.8850198661946564`*^9}, {3.88501995528426*^9, 3.8850201480526233`*^9}, {
   3.885020185062007*^9, 3.8850201894992275`*^9}, {3.885020291896063*^9, 
   3.8850203335305076`*^9}, {3.885020432284384*^9, 3.8850204475138783`*^9}, {
   3.8850205949824495`*^9, 3.885020600587699*^9}, {3.8850212843213625`*^9, 
   3.88502132833275*^9}, {3.885032891250867*^9, 3.8850329826946216`*^9}, {
   3.885033159126209*^9, 3.885033161690289*^9}, {3.8850331946913424`*^9, 
   3.8850331954065113`*^9}, {3.8850336204217644`*^9, 
   3.8850336226032686`*^9}, {3.8850342557191987`*^9, 
   3.8850344920061417`*^9}, {3.8850345924696712`*^9, 3.885034596199212*^9}, {
   3.885137383509305*^9, 3.8851374066552467`*^9}, {3.8851374685027866`*^9, 
   3.8851376554160604`*^9}, {3.885137692569293*^9, 3.885137784659045*^9}, {
   3.8851378255007744`*^9, 3.885137825675703*^9}, {3.8851383907242584`*^9, 
   3.885138392478346*^9}, {3.88513944801902*^9, 3.8851394797221875`*^9}, {
   3.885139512250944*^9, 3.8851395456971464`*^9}, {3.8851395939313083`*^9, 
   3.885139596117799*^9}, {3.885962358064992*^9, 3.8859624268736916`*^9}, {
   3.8859624953843336`*^9, 3.8859626830961175`*^9}, {3.885962735843563*^9, 
   3.8859627976972876`*^9}, {3.8859628301191607`*^9, 3.885962890857554*^9}, {
   3.885963158435935*^9, 3.885963249728134*^9}, {3.885964057005262*^9, 
   3.885964083223074*^9}, {3.8859661974588585`*^9, 3.8859662142093754`*^9}, {
   3.885966318198004*^9, 3.885966320641197*^9}, {3.885966447872212*^9, 
   3.885966506060196*^9}, {3.8859675052817345`*^9, 3.8859675311750975`*^9}, {
   3.885967601307781*^9, 3.885967609066586*^9}, {3.8859683762378*^9, 
   3.885968381214256*^9}, {3.8859738304157605`*^9, 3.8859738349173265`*^9}, {
   3.8865683607492385`*^9, 3.886568363243331*^9}, {3.886574653457847*^9, 
   3.8865746733313556`*^9}, {3.8866746207176623`*^9, 3.886674629953519*^9}, {
   3.8866936475288982`*^9, 3.8866936498862143`*^9}, {3.8902888345172024`*^9, 
   3.890288834677594*^9}, {3.8934972089819107`*^9, 3.8934972163689437`*^9}, {
   3.893520919046756*^9, 3.8935209190527515`*^9}, {3.893740434030961*^9, 
   3.893740543984796*^9}, {3.893745916046507*^9, 3.8937459169433384`*^9}, {
   3.8956586709714384`*^9, 3.895658671930601*^9}, {3.905231730357545*^9, 
   3.905231734237323*^9}, {3.9138664799503975`*^9, 3.913866531148331*^9}},
 CellTags->{"Acceptance", "Number-of-events+sensitivity"},
 CellLabel->"In[23]:=",ExpressionUUID->"81abd027-7ae4-4675-ae59-2bfc340f66bb"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Alpha]", "strong"], TraditionalForm]],ExpressionUUID->
  "3ea45a80-d2f8-4118-a831-57756e86519a"],
 " (a rough fit from https://arxiv.org/abs/2201.05170)"
}], "Section",
 CellChangeTimes->{{3.8866936676352615`*^9, 3.8866936710660887`*^9}, {
  3.893742189097562*^9, 3.893742216894745*^9}},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"7c55ffb2-0d9e-426c-8145-\
0f4c17afabe4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"fitfunc", "[", 
    RowBox[{"a1_", ",", "a2_", ",", "a3_", ",", "a4_", ",", "ma_"}], "]"}], 
   "=", 
   RowBox[{"a1", "+", 
    RowBox[{"a2", "*", "ma"}], "+", 
    RowBox[{"a3", "*", 
     SuperscriptBox["ma", "2"]}], "+", 
    RowBox[{"a4", "*", 
     SuperscriptBox["ma", "3"]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"coefsols", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"fitfunc", "[", 
         RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4", ",", "1"}], "]"}], 
        "\[Equal]", "1"}], "&&", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"fitfunc", "[", 
             RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4", ",", "ma"}], 
             "]"}], ",", "ma"}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{"ma", "\[Rule]", "1"}], "}"}]}], ")"}], "\[Equal]", "0"}], 
       "&&", 
       RowBox[{
        RowBox[{"fitfunc", "[", 
         RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4", ",", "1.5"}], "]"}], "==", 
        FractionBox[
         RowBox[{"4", "*", "Pi"}], 
         RowBox[{"7", "*", "2", "*", 
          RowBox[{"Log", "[", 
           FractionBox["1.5", "0.34"], "]"}]}]]}], "&&", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"fitfunc", "[", 
             RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4", ",", "ma"}], 
             "]"}], ",", "ma"}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{"ma", "\[Rule]", "1.5"}], "}"}]}], ")"}], "\[Equal]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            FractionBox[
             RowBox[{"4", "*", "Pi"}], 
             RowBox[{"7", "*", "2", "*", 
              RowBox[{"Log", "[", 
               FractionBox["ma", "0.34"], "]"}]}]], ",", "ma"}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{"ma", "\[Rule]", "1.5"}], "}"}]}], ")"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a1", ",", "a2", ",", "a3", ",", "a4"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Alpha]S", "[", "ma_", "]"}], "=", 
   RowBox[{"Piecewise", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{"ma", "\[LessEqual]", "1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"fitfunc", "[", 
          RowBox[{
           RowBox[{"a1", "/.", "coefsols"}], ",", 
           RowBox[{"a2", "/.", "coefsols"}], ",", 
           RowBox[{"a3", "/.", "coefsols"}], ",", 
           RowBox[{"a4", "/.", "coefsols"}], ",", "ma"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"1", "<", "ma", "\[LessEqual]", "1.5"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        FractionBox[
         RowBox[{"4", "*", "Pi"}], 
         RowBox[{"7", "*", "2", "*", 
          RowBox[{"Log", "[", 
           FractionBox["ma", "0.34"], "]"}]}]], ",", 
        RowBox[{"ma", ">", "1.5"}]}], "}"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"LogLogPlot", "[", 
  RowBox[{
   RowBox[{"\[Alpha]S", "[", "ma", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"ma", ",", "0.5", ",", "3"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8866936834284678`*^9, 3.8866937901201963`*^9}, {
   3.893742186438052*^9, 3.893742187521503*^9}, 3.893742240238215*^9},
 CellTags->{"Acceptance", "Number-of-events+sensitivity"},
 CellLabel->"In[55]:=",ExpressionUUID->"ff9f349f-4e9a-429c-bf55-03b67960b621"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "LLP phenomenology: production probabilities, decay widths (finv == ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    SuperscriptBox["f", 
     RowBox[{"-", "1"}]], "G"], TraditionalForm]],ExpressionUUID->
  "67e377a0-e14f-43fe-ad49-f5406080c411"],
 ")"
}], "Chapter",
 CellChangeTimes->{{3.835270415198964*^9, 3.8352704154970675`*^9}, {
   3.854441650570236*^9, 3.8544416515373263`*^9}, {3.885016402104937*^9, 
   3.8850164030053596`*^9}, 3.885019196491799*^9, {3.885019273945055*^9, 
   3.88501928458453*^9}, {3.9137189927638807`*^9, 3.9137190046798325`*^9}, {
   3.913885716759034*^9, 3.9138857170412054`*^9}, 3.9156429957300444`*^9, {
   3.9165110273298607`*^9, 3.9165110322385736`*^9}},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"89802de9-cd6b-471a-b913-\
4f949b4b89c5"],

Cell[CellGroupData[{

Cell["Scanning for tabulated distributions", "Section",
 CellChangeTimes->{{3.9137150010274553`*^9, 3.9137150224099426`*^9}, {
  3.913715411520641*^9, 3.913715414252445*^9}},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"dd9e6701-41aa-4962-a9b7-\
dd611f556fa6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Define", " ", "the", " ", "file", " ", "pattern"}], "*)"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"pattern", "=", "\"\<DoubleDistr_*_*_*.m\>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Search", " ", "for", " ", "files", " ", "matching", " ", "the", " ", 
     "pattern", " ", "in", " ", "the", " ", "directory", " ", "and", " ", 
     "its", " ", "subdirectories"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"matchingFiles", "=", 
     RowBox[{"FileNames", "[", 
      RowBox[{"pattern", ",", 
       RowBox[{"{", 
        RowBox[{"directory", "[", "\"\<Distribution\>\"", "]"}], "}"}], ",", 
       "Infinity"}], "]"}]}], ";"}], "\n", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"List", " ", "of", " ", "LLPs"}], ",", " ", 
     RowBox[{"production", " ", "modes"}], ",", " ", 
     RowBox[{
     "and", " ", "facilities", " ", "for", " ", "which", " ", "the", " ", 
      "tabulated", " ", "distributions", " ", "have", " ", "been", " ", 
      "computed", " ", "at", " ", "the", " ", "previous", " ", "stage", " ", 
      "of", " ", "using", " ", "SensCalc"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ExtractedProductionParameters", "=", 
     RowBox[{"Function", "[", 
      RowBox[{"filename", ",", 
       RowBox[{
        RowBox[{"parts", "=", 
         RowBox[{"StringSplit", "[", 
          RowBox[{
           RowBox[{"FileNameTake", "[", "filename", "]"}], ",", "\"\<_\>\""}],
           "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"parts", "[", 
           RowBox[{"[", "2", "]"}], "]"}], ",", 
          RowBox[{"parts", "[", 
           RowBox[{"[", "3", "]"}], "]"}], ",", 
          RowBox[{"StringDrop", "[", 
           RowBox[{
            RowBox[{"parts", "[", 
             RowBox[{"[", "4", "]"}], "]"}], ",", 
            RowBox[{"-", "2"}]}], "]"}]}], "}"}]}]}], " ", "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"combinations", " ", "selected", " ", "LLP"}], ",", " ", 
     RowBox[{"production", " ", "channel"}], ",", " ", 
     RowBox[{
     "facility", " ", "for", " ", "which", " ", "the", " ", "tabulated", " ", 
      "distributions", " ", "are", " ", "present"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"DistrCombinations", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ExtractedProductionParameters", "/@", "matchingFiles"}], ")"}],
      "//", "Sort"}]}]}]}]], "Input",
 CellChangeTimes->{{3.9137151636915593`*^9, 3.9137152465178137`*^9}, {
   3.9137153053586187`*^9, 3.913715399589816*^9}, {3.913718678447782*^9, 
   3.913718708673525*^9}, {3.913719203960288*^9, 3.9137192388759937`*^9}, {
   3.913804074855399*^9, 3.913804089247952*^9}, 3.9138043135262485`*^9, {
   3.913810357631002*^9, 3.913810363616334*^9}, {3.9138256248481245`*^9, 
   3.9138256471350822`*^9}, 3.9138665659237595`*^9, {3.915642995743043*^9, 
   3.9156429957440405`*^9}},
 CellTags->{"Acceptance", "Number-of-events+sensitivity"},
 CellLabel->"In[59]:=",ExpressionUUID->"d7f75d59-b6b8-43b5-84f6-94a071f6c958"]
}, Closed]],

Cell[CellGroupData[{

Cell["Production probabilities", "Section",
 CellChangeTimes->{{3.826713169183443*^9, 3.8267131698544655`*^9}, {
  3.885138658855132*^9, 3.8851386649516826`*^9}},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"78ee7ba3-4532-4920-80f8-\
e1fc4e784430"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ProductionProbabilitiesCoefs", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"directory", "[", "\"\<Production weights\>\"", "]"}], ",", 
        "\"\<Coefs-production-Gluon-scale-1000.-GeV.m\>\""}], "}"}], "]"}], 
     ",", "\"\<MX\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vh", "=", "246."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Theta]am02", "[", 
      RowBox[{"\"\<Pi0\>\"", ",", "ma_", ",", "finv_"}], "]"}], ",", 
     RowBox[{"\[Theta]am02", "[", 
      RowBox[{"\"\<Eta\>\"", ",", "ma_", ",", "finv_"}], "]"}], ",", 
     RowBox[{"\[Theta]am02", "[", 
      RowBox[{"\"\<EtaPr\>\"", ",", "ma_", ",", "finv_"}], "]"}], ",", 
     RowBox[{"BrBtoALPtotal", "[", 
      RowBox[{"ma_", ",", "finv_"}], "]"}], ",", 
     RowBox[{"cGGeff", "[", 
      RowBox[{"ma_", ",", "finv_"}], "]"}], ",", 
     RowBox[{"BrBtoALPKplus", "[", 
      RowBox[{"ma_", ",", "finv_"}], "]"}], ",", 
     RowBox[{"BrBtoALPKstar", "[", 
      RowBox[{"ma_", ",", "finv_"}], "]"}]}], "}"}], "=", 
   RowBox[{"ProductionProbabilitiesCoefs", "/.", 
    RowBox[{"{", 
     RowBox[{"f", "->", 
      SuperscriptBox["finv", 
       RowBox[{"-", "1"}]]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"LogLogPlot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]am02", "[", 
       RowBox[{"\"\<Pi0\>\"", ",", "ma", ",", "1"}], "]"}], ",", 
      RowBox[{"\[Theta]am02", "[", 
       RowBox[{"\"\<Eta\>\"", ",", "ma", ",", "1"}], "]"}], ",", 
      RowBox[{"\[Theta]am02", "[", 
       RowBox[{"\"\<EtaPr\>\"", ",", "ma", ",", "1"}], "]"}]}], "}"}], "]"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"ma", ",", "0.1", ",", "10"}], "}"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FacilitiesList", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<ESS\>\"", ",", "\"\<SPS\>\"", ",", "\"\<FermilabBD\>\"", ",", 
     "\"\<LHC\>\"", ",", "\"\<FCC-hh\>\"", ",", "\"\<Serpukhov\>\""}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"PmotherToLLP", "[", 
      RowBox[{"mLLP_", ",", "finv_", ",", "part", ",", "Facility"}], "]"}], 
     "=", 
     RowBox[{"\[Theta]am02", "[", 
      RowBox[{"part", ",", "mLLP", ",", "finv"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{"part", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<Pi0\>\"", ",", "\"\<Eta\>\"", ",", "\"\<EtaPr\>\""}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Facility", ",", "FacilitiesList"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"PmotherToLLP", "[", 
       RowBox[{"mLLP_", ",", "finv_", ",", "\"\<B\>\"", ",", "Facility"}], 
       "]"}], "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"fbtob0", "[", "Facility", "]"}], "+", 
         RowBox[{"fbtobplus", "[", "Facility", "]"}]}], ")"}], 
       RowBox[{"BrBtoALPtotal", "[", 
        RowBox[{"mLLP", ",", "finv"}], "]"}]}]}], ";"}], 
    "\[IndentingNewLine]", ",", 
    RowBox[{"{", 
     RowBox[{"Facility", ",", "FacilitiesList"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Production", " ", "from", " ", "Drell"}], "-", 
    RowBox[{"Yan", " ", "process"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Sigma]DrellYanData", "[", "Facility_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"dat", "=", 
      RowBox[{"Import", "[", 
       RowBox[{
        RowBox[{"FileNameJoin", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"directory", "[", "\"\<Production weights\>\"", "]"}], ",", 
           RowBox[{
           "\"\<sigmaDrellYan_ALP-gluon_\>\"", "<>", "Facility", "<>", 
            "\"\<.txt\>\""}]}], "}"}], "]"}], ",", "\"\<Table\>\""}], "]"}]}],
      ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"MinMaxMassesDrellYan", "[", "Facility", "]"}], "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Min", "[", 
         RowBox[{"dat", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], ",", 
        RowBox[{"Min", "[", 
         RowBox[{"4", ",", 
          RowBox[{"Max", "[", 
           RowBox[{"dat", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]}], "]"}]}], 
       "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"int", "[", "ma_", "]"}], "=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"MinMaxMassesDrellYan", "[", "Facility", "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", " ", "ma", 
         "\[LessEqual]", 
         RowBox[{
          RowBox[{"MinMaxMassesDrellYan", "[", "Facility", "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], ",", 
        RowBox[{"Evaluate", "[", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Interpolation", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Log10", "[", 
                   RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
                  RowBox[{"Log10", "[", 
                   RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "+", 
                    SuperscriptBox["10", 
                    RowBox[{"-", "90"}]]}], "]"}]}], "}"}], "&"}], "/@", 
               "dat"}], ",", 
              RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}], "[", 
            RowBox[{"Log10", "[", "ma", "]"}], "]"}], ")"}]}], "]"}], ",", 
        "0"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"PmotherToLLP", "[", 
       RowBox[{
       "mLLP_", ",", "finv_", ",", "\"\<DrellYan\>\"", ",", "Facility"}], 
       "]"}], "=", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Abs", "[", 
         RowBox[{"cGGeff", "[", 
          RowBox[{"mLLP", ",", "finv"}], "]"}], "]"}], "2"], "*", 
       FractionBox[
        RowBox[{"int", "[", "mLLP", "]"}], 
        RowBox[{"\[Sigma]pNucleonInpb", "[", "Atarget", "]"}]]}]}]}]}], 
   "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"\[Sigma]DrellYanData", "[", "Facility", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"Facility", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<SPS\>\"", ",", "\"\<FermilabBD\>\"", ",", "\"\<LHC\>\""}], 
      "}"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WeightsCombinations", "=", 
   RowBox[{"Cases", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Keys", "[", 
           RowBox[{"DownValues", "@", "PmotherToLLP"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1", ",", "#"}], "]"}], "]"}], "&"}], "/@", 
        RowBox[{"{", 
         RowBox[{"3", ",", "4"}], "}"}]}], "//", "Transpose"}], "//", 
      "Sort"}], ",", 
     RowBox[{"_", "?", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{
          RowBox[{"DistrCombinations", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", 
             RowBox[{"{", 
              RowBox[{"2", ",", "3"}], "}"}]}], "]"}], "]"}], ",", "#"}], 
         "]"}], "&"}], ")"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  "\"\<If there are production weights to all available distributions:\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"IfCondDistrToWeights", "=", 
  RowBox[{
   RowBox[{"DistrCombinations", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "3"}], "}"}]}], "]"}], "]"}], "==", 
   "WeightsCombinations"}]}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"!", "IfCondDistrToWeights"}], ",", 
   RowBox[{
    RowBox[{
    "infoDialog", "[", 
     "\"\<You have not provided the production probabilities PmotherToLLP to \
all the generated tabulated distributions! Please do this first to avoid \
problems\>\"", "]"}], ";"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.903789100961299*^9, 3.9037893216023073`*^9}, {
   3.903789523395295*^9, 3.9037895724096284`*^9}, {3.9037896047683144`*^9, 
   3.9037897735656195`*^9}, {3.9037898903249865`*^9, 
   3.9037899000449486`*^9}, {3.9037899642050085`*^9, 
   3.9037900057850637`*^9}, {3.9037900367013836`*^9, 
   3.9037900569756083`*^9}, {3.903790184930455*^9, 3.9037902290750723`*^9}, {
   3.903790296392641*^9, 3.9037903616060886`*^9}, {3.9052322085806866`*^9, 
   3.905232251160842*^9}, {3.9057041721278706`*^9, 3.905704172799265*^9}, {
   3.910436960236367*^9, 3.9104369662151794`*^9}, {3.9138666043191004`*^9, 
   3.9138668331482787`*^9}, {3.913866923560096*^9, 3.9138669837047405`*^9}, {
   3.913867121436616*^9, 3.9138671481875563`*^9}, {3.913867226227738*^9, 
   3.913867280909151*^9}, {3.9138673124389005`*^9, 3.9138674588623276`*^9}, {
   3.9138692668786926`*^9, 3.913869300866382*^9}, 3.913869391160121*^9, {
   3.91387068921657*^9, 3.9138707160377755`*^9}, {3.9138717533438354`*^9, 
   3.913871817652246*^9}, {3.913872759126435*^9, 3.9138728301257257`*^9}, {
   3.913872865777351*^9, 3.9138728657874804`*^9}, {3.913886522119502*^9, 
   3.9138865235973263`*^9}, {3.9138868295368032`*^9, 
   3.9138868298512278`*^9}, {3.915642995759033*^9, 3.9156429957979527`*^9}, {
   3.9162508451378508`*^9, 3.91625084657168*^9}},
 CellTags->{"Acceptance", "Number-of-events+sensitivity"},
 CellLabel->"In[63]:=",ExpressionUUID->"fec40a05-ba64-4ab5-86c9-a0eb22a607d0"]
}, Closed]],

Cell[CellGroupData[{

Cell["ALP lifetime and branching ratios", "Section",
 CellChangeTimes->{{3.7725113836218624`*^9, 3.7725113869263587`*^9}, {
   3.826651830998455*^9, 3.826651834218698*^9}, {3.8267130444352474`*^9, 
   3.8267130466742153`*^9}, {3.885139954002949*^9, 3.8851399560519075`*^9}, 
   3.8859669419752054`*^9},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"12e0bee4-6a1a-451c-b99f-\
fa0db8a155eb"],

Cell[CellGroupData[{

Cell["Lifetimes and branching ratios", "Subsection",
 CellChangeTimes->{{3.826651853928807*^9, 3.8266518561959257`*^9}, {
   3.877248260034466*^9, 3.8772482610102777`*^9}, 3.8851399575347958`*^9, {
   3.903790416325832*^9, 3.9037904195043745`*^9}},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"0a5caafb-270c-4b49-8d0a-\
a733f8c6fed5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "List", " ", "of", " ", "widths", " ", "of", " ", "the", " ", "ALP", " ", 
    "into", " ", "various", " ", "final", " ", "states"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"DecayWidthsDataTemp", "=", 
     RowBox[{"Import", "[", 
      RowBox[{
       RowBox[{"FileNameJoin", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"directory", "[", "\"\<Decays\>\"", "]"}], ",", 
          "\"\<Widths-model-Gluon-scale-1000.-GeV.m\>\""}], "}"}], "]"}], 
       ",", "\"\<MX\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"DecayWidthsDataTemp2", "=", 
     RowBox[{"DecayWidthsDataTemp", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{"i", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"Length", "[", 
           RowBox[{"DecayWidthsDataTemp2", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", "1"}], "}"}]}], "]"}],
       ",", 
      RowBox[{"DecayWidthsDataTemp2", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "//", "TableForm"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"DecayWidthsData", "=", 
     RowBox[{"Drop", "[", 
      RowBox[{"DecayWidthsDataTemp2", ",", "3"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Total", " ", "decay", " ", "width", " ", "and", " ", "lifetime"}], 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"totalwidthdata", "=", 
     RowBox[{"DecayWidthsData", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalGamma]LLP", "[", 
      RowBox[{"mLLP_", ",", "finv_"}], "]"}], "=", 
     RowBox[{
      SuperscriptBox["finv", "2"], "*", 
      RowBox[{
       RowBox[{"Interpolation", "[", 
        RowBox[{"totalwidthdata", ",", 
         RowBox[{"InterpolationOrder", "->", "1"}]}], "]"}], "[", "mLLP", 
       "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"c\[Tau]LLP", "[", 
      RowBox[{"mLLP_", ",", "finv_"}], "]"}], "=", 
     FractionBox["chbar", 
      RowBox[{"\[CapitalGamma]LLP", "[", 
       RowBox[{"mLLP", ",", "finv"}], "]"}]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ldecayLLP", "[", 
      RowBox[{"mLLP_", ",", "finv_", ",", "ELLP_"}], "]"}], "=", 
     RowBox[{
      RowBox[{"c\[Tau]LLP", "[", 
       RowBox[{"mLLP", ",", "finv"}], "]"}], 
      FractionBox[
       SqrtBox[
        RowBox[{
         SuperscriptBox["ELLP", "2"], "-", 
         SuperscriptBox["mLLP", "2"]}]], "mLLP"]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.8859667506271453`*^9, 3.8859667912060575`*^9}, {
   3.8859668364245796`*^9, 3.8859669074950113`*^9}, 3.8859669419823914`*^9, {
   3.8859715979950085`*^9, 3.8859716035792685`*^9}, {3.885974695642521*^9, 
   3.885974721565711*^9}, {3.886673217124567*^9, 3.886673218603608*^9}, {
   3.889769657115446*^9, 3.8897697543792963`*^9}, {3.903789673385208*^9, 
   3.903789673405342*^9}, {3.9037903163143153`*^9, 3.9037903275646253`*^9}, {
   3.903790500628828*^9, 3.903790729474674*^9}, {3.9037907845403433`*^9, 
   3.9037908533741627`*^9}, {3.9037908912108645`*^9, 
   3.9037911007246227`*^9}, {3.9037933373491344`*^9, 3.903793339945244*^9}, {
   3.9037937001663465`*^9, 3.903793717204276*^9}, {3.904902837278482*^9, 
   3.904902837561043*^9}, {3.904902887149907*^9, 3.9049028887197638`*^9}, {
   3.905231744853395*^9, 3.905231948969136*^9}, {3.9052320214476357`*^9, 
   3.9052320316413155`*^9}, {3.9057040844572673`*^9, 
   3.9057041222670794`*^9}, {3.905704159567094*^9, 3.905704160407111*^9}, {
   3.9059620387064934`*^9, 3.905962043600975*^9}, 3.9138667522164497`*^9, {
   3.9138674945173087`*^9, 3.9138675182935505`*^9}, {3.9138675520577965`*^9, 
   3.913867616821158*^9}, {3.9138693084804173`*^9, 3.9138693175719366`*^9}, 
   3.9138694747743816`*^9, {3.9138718044300237`*^9, 3.9138718044446735`*^9}, {
   3.913872918448682*^9, 3.9138729367079315`*^9}, {3.913873313686558*^9, 
   3.9138733234976673`*^9}, {3.9156429958059883`*^9, 3.91564299584202*^9}},
 CellTags->{"Acceptance", "Number-of-events+sensitivity"},
 CellLabel->"In[76]:=",ExpressionUUID->"6b40e71e-4d73-422f-a8a1-e2d1d3309f91"]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Loading necessary routines", "Chapter",
 CellChangeTimes->{{3.891315426588935*^9, 3.891315432542842*^9}, {
  3.9165033404709945`*^9, 3.9165033463985844`*^9}},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"3f6b67f8-cd18-4859-a818-\
3f6119c8c1a8"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Length", "[", "inecessary", "]"}], "==", "0"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"NotebookEvaluate", "[", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"NotebookDirectory", "[", "]"}], ",", 
        "\"\<codes/generic.nb\>\""}], "}"}], "]"}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"NotebookEvaluate", "[", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"NotebookDirectory", "[", "]"}], ",", 
        "\"\<codes/for-sensitivities.nb\>\""}], "}"}], "]"}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"inecessary", "=", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.890711783488103*^9, 3.89071178348964*^9}, {
   3.8907121412539587`*^9, 3.8907121413711557`*^9}, {3.890712694841427*^9, 
   3.8907126950000925`*^9}, {3.890712790376151*^9, 3.8907128219919777`*^9}, {
   3.891018553068019*^9, 3.8910185548862777`*^9}, {3.914141327087761*^9, 
   3.9141413282588053`*^9}, 3.9165033910195627`*^9, {3.916503434997039*^9, 
   3.9165034401725807`*^9}, {3.9165108789774036`*^9, 
   3.9165108974096084`*^9}, {3.9165109290075464`*^9, 3.916510969839264*^9}},
 CellTags->{"Acceptance", "Number-of-events+sensitivity"},
 CellLabel->"In[84]:=",ExpressionUUID->"24563de8-033b-4182-b723-da04d3119759"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Specifying the experiments", "Title",
 CellChangeTimes->{{3.8876174764645414`*^9, 3.887617482214775*^9}, 
   3.903805898537039*^9},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"bd147158-f526-489d-afb7-\
12c825eddce3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SetDirectory", "[", 
    RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Parent", " ", "directory"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"NotebookDirectory", "[", "]"}], "//", "ParentDirectory"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ExperimentDirectoriesList", "=", 
    RowBox[{"Select", "[", 
     RowBox[{
      RowBox[{"FileNames", "[", 
       RowBox[{"\"\<*\>\"", ",", 
        RowBox[{"directory", "[", "\"\<Acceptances\>\"", "]"}], ",", "1"}], 
       "]"}], ",", "DirectoryQ"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"List", " ", "of", " ", "available", " ", "experiments", " ", 
    RowBox[{"(", 
     RowBox[{
     "for", " ", "which", " ", "the", " ", "geometry", " ", "has", " ", 
      "been", " ", "implemented"}], ")"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ExperimentsListTemp", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"FileNameTake", "[", 
      RowBox[{
       RowBox[{"ExperimentDirectoriesList", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"-", "1"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "ExperimentDirectoriesList", "]"}], ",", "1"}], 
      "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ExperimentsListTemp2", "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Partition", "[", 
      RowBox[{"ExperimentsListTemp", ",", "1"}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"TrueQ", "@", 
         RowBox[{"FileExistsQ", "@", 
          RowBox[{"FileNameJoin", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"directory", "[", "\"\<Acceptances\>\"", "]"}], ",", 
             RowBox[{"ExperimentsListTemp", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", 
             RowBox[{"ToString", "@", 
              RowBox[{"StringForm", "[", 
               RowBox[{"\"\<Acceptance_``_for_``.m\>\"", ",", 
                RowBox[{"Sequence", "@@", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"ExperimentsListTemp", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ",", "LLPdirName"}], 
                  "}"}]}]}], "]"}]}]}], "}"}], "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"Length", "[", "ExperimentsListTemp", "]"}]}], "}"}]}], 
      "]"}], ",", "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ExperimentsList", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Select", "[", 
     RowBox[{"ExperimentsListTemp2", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "True"}], "&"}]}], "]"}],
     "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}], "//", 
   "Sort"}]}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Length", "[", "ExperimentsList", "]"}], "\[Equal]", "0"}], ",", 
   RowBox[{
   "Print", "[", 
    "\"\<No experiment is available, generate first the acceptance for the \
given experiment using module 1\>\"", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<Selected experiments:\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"SelectedExperimentList", "=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "ExperimentsList", "]"}], "\[NotEqual]", "0"}], 
    ",", 
    RowBox[{"selectionDialog", "[", 
     RowBox[{"ExperimentsList", ",", "\"\<Select the experiments:\>\""}], 
     "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"icounter", "=", "1"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8851403254718485`*^9, 3.8851403429411273`*^9}, {
   3.8854395484478483`*^9, 3.885439559226637*^9}, {3.8854397351242537`*^9, 
   3.885439739219259*^9}, {3.8858794196350574`*^9, 3.885879423032172*^9}, 
   3.886141121558817*^9, {3.8876173384285884`*^9, 3.8876173431379876`*^9}, 
   3.8879528512136784`*^9, 3.888910953061735*^9, {3.8889918645451765`*^9, 
   3.888991864973507*^9}, {3.8902889299209604`*^9, 3.890288929973218*^9}, {
   3.892132996360413*^9, 3.8921329963973475`*^9}, {3.8922734872098565`*^9, 
   3.892273493459851*^9}, 3.89323426738691*^9, {3.893234348855938*^9, 
   3.89323434901425*^9}, 3.893348200726568*^9, 3.902557307526181*^9, {
   3.902762608567563*^9, 3.902762613326627*^9}, 3.9037911191735964`*^9, {
   3.9037911899337234`*^9, 3.903791190104163*^9}, {3.905231719911791*^9, 
   3.9052317257412796`*^9}, {3.913867733576295*^9, 3.9138677694805813`*^9}, 
   3.9138678726081395`*^9, 3.9156429958501873`*^9, 3.9162892317060657`*^9},
 CellTags->{"Acceptance", "Number-of-events+sensitivity"},
 CellLabel->"In[85]:=",ExpressionUUID->"c05031d8-0efd-4502-a294-675e6231eb7c"],

Cell[CellGroupData[{

Cell["Running block for next sections", "Chapter",
 CellChangeTimes->{{3.902729140157612*^9, 3.90272914444062*^9}},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"f6b19458-661d-4b9a-84b2-\
be5f3bbf270c"],

Cell[BoxData[{
 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[{"If", "[", 
  RowBox[{
   RowBox[{"tagselected", "==", "\"\<Number-of-events+sensitivity\>\""}], ",",
    "\[IndentingNewLine]", 
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
      "BlockEvaluation", "[", 
       "\"\<Number-of-events-computation+sensitivity\>\"", "]"}], ";"}], 
     "\[IndentingNewLine]", ",", 
     RowBox[{"{", 
      RowBox[{"icounter", ",", "1", ",", 
       RowBox[{"Length", "[", "SelectedExperimentList", "]"}], ",", "1"}], 
      "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"tagselected", "==", "\"\<Acceptance\>\""}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
        "BlockEvaluation", "[", "\"\<Acceptance-computation\>\"", "]"}], 
        ";"}], "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"icounter", ",", "1", ",", 
         RowBox[{"Length", "[", "SelectedExperimentList", "]"}], ",", "1"}], 
        "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.9027291581950865`*^9, 3.902729215695462*^9}, {
   3.902761777481885*^9, 3.902761802513644*^9}, {3.9037911874337673`*^9, 
   3.9037911876837664`*^9}, 3.903803493616716*^9, {3.9146656488833723`*^9, 
   3.914665652291284*^9}, {3.9146669481058254`*^9, 3.914666969278264*^9}, {
   3.9146670884724073`*^9, 3.914667095197031*^9}, {3.9146671492098513`*^9, 
   3.9146671512528377`*^9}},
 CellTags->{"Acceptance", "Number-of-events+sensitivity"},
 CellLabel->"In[95]:=",ExpressionUUID->"4c060b6c-ecc3-4469-86c0-269c265b419b"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Number of events", "Title",
 CellChangeTimes->{{3.885140281753849*^9, 3.8851402836781845`*^9}},
 CellTags->
  "Number-of-events-computation+sensitivity",ExpressionUUID->"3e9a02fd-97c3-\
44ee-9f5b-9ca3983b66da"],

Cell[CellGroupData[{

Cell["Particular experiment", "Chapter",
 CellChangeTimes->{{3.9165042001551485`*^9, 3.9165042041207294`*^9}, {
  3.9165090857383037`*^9, 3.916509094318386*^9}},
 CellTags->{
  "Acceptance-computation", 
   "Number-of-events-computation+sensitivity"},ExpressionUUID->"76fe3cd1-27a0-\
4d11-852c-ea3c40d76fef"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SelectedExperiment", "=", 
   RowBox[{"SelectedExperimentList", "[", 
    RowBox[{"[", 
     RowBox[{"icounter", "++"}], "]"}], "]"}]}], ";"}]], "Input",
 CellTags->{
  "Acceptance-computation", "Number-of-events-computation+sensitivity"},
 CellLabel->
  "In[183]:=",ExpressionUUID->"10bc767d-43ce-4bd8-89d0-83fd85f2bb40"]
}, Closed]],

Cell[CellGroupData[{

Cell["Cross-sections, acceptances", "Chapter",
 CellChangeTimes->{{3.8876175155563755`*^9, 3.8876175192967377`*^9}, {
  3.8946372037023845`*^9, 3.8946372090126057`*^9}},
 CellTags->{
  "Acceptance-computation", 
   "Number-of-events-computation+sensitivity"},ExpressionUUID->"4cb86986-b7a3-\
4409-91ed-f7461f351ed0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"dataAcceptances", "=", 
    RowBox[{"Import", "[", 
     RowBox[{
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{"FileNameJoin", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"directory", "[", "\"\<Acceptances\>\"", "]"}], ",", 
           "SelectedExperiment", ",", 
           RowBox[{"ToString", "@", 
            RowBox[{"StringForm", "[", 
             RowBox[{"\"\<Acceptance_``_for_``.m\>\"", ",", 
              RowBox[{"Sequence", "@@", 
               RowBox[{"{", 
                RowBox[{"SelectedExperiment", ",", "LLPdirName"}], "}"}]}]}], 
             "]"}]}]}], "}"}], "]"}], "}"}], "]"}], ",", "\"\<MX\>\""}], 
     "]"}]}], ";"}], "//", "AbsoluteTiming"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"FacilityGivenExperiment", ",", "FullAcceptanceData0", ",", 
     RowBox[{"BrVis", "[", "mLLP_", "]"}]}], "}"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"dataAcceptances", "[", 
      RowBox[{"[", "#", "]"}], "]"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"1", ",", "3", ",", "5"}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LogLogPlot", "[", 
   RowBox[{
    RowBox[{"Evaluate", "[", 
     RowBox[{"BrVis", "[", "mLLP", "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"mLLP", ",", "0.02", ",", "10"}], "}"}], ",", 
    RowBox[{"Frame", "->", "True"}], ",", 
    RowBox[{"ImageSize", "->", "Large"}], ",", 
    RowBox[{"FrameStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Black", ",", " ", "22"}], "]"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Thickness", "[", "0.003", "]"}], ",", "Blue"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Thickness", "[", "0.003", "]"}], ",", 
         RowBox[{"Darker", "@", "Red"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Thickness", "[", "0.003", "]"}], ",", 
         RowBox[{"Darker", "@", 
          RowBox[{"Darker", "@", "Green"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Thickness", "[", "0.003", "]"}], ",", "Black"}], "}"}]}], 
      "}"}]}], ",", 
    RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0.1", ",", "10"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.01", ",", "1.2"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<m [GeV]\>\"", ",", 
       "\"\<\!\(\*SubscriptBox[\(Br\), \(vis\)]\)\>\""}], "}"}]}], ",", 
    RowBox[{"PlotLabel", "\[Rule]", " ", 
     RowBox[{"Style", "[", 
      RowBox[{
       RowBox[{"Row", "[", 
        RowBox[{"{", 
         RowBox[{"\"\<For \>\"", ",", "SelectedExperiment"}], "}"}], "]"}], 
       ",", " ", "20", ",", " ", "Black"}], "]"}]}]}], "]"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"___", "___", "___", "___", "___", "___", "___", "___", "___"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Interpolation", " ", "of", " ", "the", " ", "tabulated", " ", 
     "azimuthal", " ", "acceptance"}], ",", " ", 
    RowBox[{"extracting", " ", 
     SubscriptBox["\[Theta]", 
      RowBox[{"min", "/", "max"}]]}], ",", " ", 
    RowBox[{"etc", "."}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"___", "___", "___", "___", "___", "___", "___", "___", "___"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"AzimuthalAcceptanceInt", "[", 
       RowBox[{"\[Theta]LLP_", ",", "zLLP_"}], "]"}], ",", 
      "\[Theta]minExpAll", ",", "\[Theta]maxExpAll", ",", "\[Theta]minExp", 
      ",", "\[Theta]maxExp", ",", "zminExp", ",", "zmaxExp", ",", 
      RowBox[{"zmin\[Theta]", "[", "\[Theta]LLP_", "]"}], ",", 
      RowBox[{"zmax\[Theta]", "[", "\[Theta]LLP_", "]"}]}], "}"}], "=", 
    RowBox[{"Block\[Epsilon]Azimuthal", "[", "FullAcceptanceData0", "]"}]}], 
   ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Logarithmized", " ", "data", " ", "with", " ", "full", " ", 
     "acceptance"}], ",", " ", 
    RowBox[{
    "and", " ", "also", " ", "decay", " ", "acceptance", " ", "and", " ", 
     "full", " ", "acceptance", " ", "interpolations"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"FullAcceptanceData", ",", 
     RowBox[{"DecayAcceptanceInt", "[", 
      RowBox[{"mLLP_", ",", "\[Theta]LLP_", ",", "ELLP_", ",", "zLLP_"}], 
      "]"}], ",", 
     RowBox[{"FullAcceptanceInt", "[", 
      RowBox[{"mLLP_", ",", "\[Theta]LLP_", ",", "ELLP_", ",", "zLLP_"}], 
      "]"}], ",", "InGridm\[Epsilon]", ",", "InGrid\[Theta]\[Epsilon]", ",", 
     "InGridE\[Epsilon]", ",", "InGridz\[Epsilon]", ",", "\[Epsilon]vals", 
     ",", "\[Epsilon]azvals", ",", "mmin\[Epsilon]", ",", "mmax\[Epsilon]"}], 
    "}"}], "=", 
   RowBox[{"Block\[Epsilon]Decay", "[", 
    RowBox[{"FullAcceptanceData0", ",", "zminExp", ",", "BrVis"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CrossSectionData", "=", 
   RowBox[{
    RowBox[{"dataAcceptances", "[", 
     RowBox[{"[", "4", "]"}], "]"}], "//", "Transpose"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NpotGivenExperiment", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Select", "[", 
       RowBox[{"CrossSectionData", ",", 
        RowBox[{
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "\"\<Npot\>\""}], 
         "&"}]}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}], "//", "N"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ProbMother", "[", "\"\<B\>\"", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"CrossSectionData", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "\"\<Pb\>\""}], "&"}]}],
       "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ProbMother", "[", "\"\<Pi0\>\"", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"CrossSectionData", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "\"\<PPi0\>\""}], 
        "&"}]}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ProbMother", "[", "\"\<Eta\>\"", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"CrossSectionData", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "\"\<PEta\>\""}], 
        "&"}]}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ProbMother", "[", "\"\<EtaPr\>\"", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"CrossSectionData", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "\"\<PEtapr\>\""}], 
        "&"}]}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ProbMother", "[", "\"\<DrellYan\>\"", "]"}], "=", "1."}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AtargetVal", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"CrossSectionData", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "\"\<Atarget\>\""}], 
        "&"}]}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<\!\(\*SubscriptBox[\(\[Chi]\), \(b\\\ or\\\ \*OverscriptBox[\(b\), \
\(_\)]\)]\)\>\"", ",", 
       "\"\<\!\(\*SubscriptBox[\(\[Chi]\), SuperscriptBox[\(\[Pi]\), \
\(0\)]]\)\>\"", ",", "\"\<\!\(\*SubscriptBox[\(\[Chi]\), \(\[Eta]\)]\)\>\"", 
       ",", "\"\<\!\(\*SubscriptBox[\(\[Chi]\), \(\[Eta]'\)]\)\>\""}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ProbMother", "[", "\"\<B\>\"", "]"}], ",", 
       RowBox[{"ProbMother", "[", "\"\<Pi0\>\"", "]"}], ",", 
       RowBox[{"ProbMother", "[", "\"\<Eta\>\"", "]"}], ",", 
       RowBox[{"ProbMother", "[", "\"\<EtaPr\>\"", "]"}]}], "}"}]}], "}"}], "//",
    "TableForm"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"infoDialog", "[", 
    RowBox[{"Row", "[", 
     RowBox[{"{", 
      RowBox[{
      "\"\<The number of proton collisions is \>\"", ",", " ", 
       "NpotGivenExperiment", ",", 
       "\"\<. You may change it at the stage of computing the sensitivities\>\
\""}], "}"}], "]"}], "]"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Row", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
    "\"\<Search for \>\"", "<>", "LLPdirName", " ", "<>", "\"\< at \>\""}], 
    ",", " ", "SelectedExperiment", ",", " ", "\"\< located at \>\"", ",", 
    "FacilityGivenExperiment", ",", 
    "\"\<. \!\(\*SubscriptBox[\(N\), \(collisions\)]\) = \>\"", ",", 
    "NpotGivenExperiment"}], "}"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\"\<Quantity\>\"", ",", 
      "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(min\)]\), rad\>\"", ",", 
      "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(max\)]\), rad\>\"", ",", 
      "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(min\)]\)(\!\(\*SubscriptBox[\(\
\[Epsilon]\), \(dec\)]\)), rad\>\"", ",", 
      "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(max\)]\)(\!\(\*SubscriptBox[\(\
\[Epsilon]\), \(dec\)]\)), rad\>\"", ",", 
      "\"\<\!\(\*SubscriptBox[\(z\), \(min\)]\), m\>\"", ",", 
      "\"\<\!\(\*SubscriptBox[\(z\), \(max\)]\), m\>\""}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Description\>\"", ",", "\"\<Min angle covered by experiment\>\"", 
      ",", "\"\<Max angle covered by experiment\>\"", ",", 
      "\"\<Min angle where \!\(\*SubscriptBox[\(\[Epsilon]\), \(decay\)]\)\
\[NotEqual]0\>\"", ",", 
      "\"\<Max angle where \!\(\*SubscriptBox[\(\[Epsilon]\), \(decay\)]\)\
\[NotEqual]0\>\"", ",", "\"\<Min long. displacement of the decay volume\>\"", 
      ",", "\"\<Max long. displacement of the decay volume\>\""}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Value\>\"", ",", "\[Theta]minExpAll", ",", "\[Theta]maxExpAll", ",",
       "\[Theta]minExp", ",", "\[Theta]maxExp", ",", "zminExp", ",", 
      "zmaxExp"}], "}"}]}], "}"}], "//", 
  "TableForm"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.916251173539231*^9, 3.9162511737225804`*^9}, {
   3.9162854040736876`*^9, 3.9162854095536427`*^9}, 3.916287125468828*^9, {
   3.9162874482060547`*^9, 3.916287453674517*^9}, {3.9165035320027027`*^9, 
   3.9165035321642723`*^9}, {3.916503918435957*^9, 3.9165039519088273`*^9}, {
   3.916504132017181*^9, 3.9165041935770597`*^9}, 3.9165042339914446`*^9, {
   3.9165042651588464`*^9, 3.9165042740503426`*^9}, {3.9165044921155214`*^9, 
   3.9165045233309402`*^9}, {3.9165045589369617`*^9, 3.916504559159195*^9}, {
   3.916505109628378*^9, 3.916505133884837*^9}, {3.916505330421117*^9, 
   3.916505330781499*^9}, {3.9165055300027122`*^9, 3.9165055302172647`*^9}, {
   3.9165064939911013`*^9, 3.9165064942532*^9}, {3.9165065382463965`*^9, 
   3.9165065407795734`*^9}},
 CellTags->{
  "Acceptance-computation", "Number-of-events-computation+sensitivity"},
 CellLabel->
  "In[184]:=",ExpressionUUID->"68cd4c52-a57e-49cb-9552-92e7a8059080"]
}, Closed]],

Cell[CellGroupData[{

Cell["Angle-energy distributions for the given experiment", "Chapter",
 CellChangeTimes->{{3.885020702966837*^9, 3.885020711525731*^9}, {
   3.8850216924759345`*^9, 3.8850216984444695`*^9}, {3.8851404110391607`*^9, 
   3.8851404117847*^9}, 3.8859669420079484`*^9, {3.8876173662884827`*^9, 
   3.8876173699611483`*^9}, {3.896334866051643*^9, 3.896334870004681*^9}},
 CellTags->{
  "Acceptance-computation", 
   "Number-of-events-computation+sensitivity"},ExpressionUUID->"9c0a6fa2-083d-\
438f-84cb-5fa122f734c4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ProductionPatternSelected", "=", 
   RowBox[{"Select", "[", 
    RowBox[{"DistrCombinations", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "3", "]"}], "]"}], "==", "FacilityGivenExperiment"}], 
      "&"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<Production list:\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"ProductionList", "=", 
  RowBox[{
   RowBox[{"ProductionPatternSelected", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}], "//", 
   "DeleteDuplicates"}]}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "prod", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"prod", "=", 
       RowBox[{
        RowBox[{"ProductionPatternSelected", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "Importing", " ", "the", " ", "data", " ", "with", " ", 
        "distribution"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"dirimp", "=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"prod", "==", "\"\<DrellYan\>\""}], ",", 
         RowBox[{"FileNameJoin", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"directory", "[", "\"\<Distribution\>\"", "]"}], ",", 
            "\"\<Pregenerated\>\""}], "}"}], "]"}], ",", 
         RowBox[{"directory", "[", "\"\<Distribution\>\"", "]"}]}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"DistrDataImport", "[", "prod", "]"}], "=", 
       RowBox[{"Import", "[", 
        RowBox[{
         RowBox[{"FileNameJoin", "[", 
          RowBox[{"{", 
           RowBox[{"dirimp", ",", 
            RowBox[{
            "\"\<DoubleDistr_\>\"", "<>", "LLPdirName", "<>", "\"\<_\>\"", "<>",
              "prod", "<>", "\"\<_\>\"", "<>", "FacilityGivenExperiment", 
             "<>", "\"\<.m\>\""}]}], "}"}], "]"}], ",", "\"\<MX\>\""}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"prod", "==", "\"\<DrellYan\>\""}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"DistrDataImport", "[", "prod", "]"}], "=", 
          RowBox[{"Select", "[", 
           RowBox[{
            RowBox[{"DistrDataImport", "[", "prod", "]"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
               "MinMaxMassesDrellYan", "[", "FacilityGivenExperiment", "]"}], 
               "[", 
               RowBox[{"[", "1", "]"}], "]"}], "<=", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "<=", 
              RowBox[{
               RowBox[{
               "MinMaxMassesDrellYan", "[", "FacilityGivenExperiment", "]"}], 
               "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}]}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"Min", "/", "mass"}], " ", "mass", " ", "of", " ", "the", " ",
         "LLP", " ", "from", " ", "the", " ", "data"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"mlistDistr", "[", "prod", "]"}], "=", 
       RowBox[{"DeleteDuplicates", "[", 
        RowBox[{
         RowBox[{"DistrDataImport", "[", "prod", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"mLLPmin", "[", "prod", "]"}], ",", 
         RowBox[{"mLLPmax", "[", "prod", "]"}]}], "}"}], "=", 
       RowBox[{"MinMax", "[", 
        RowBox[{"mlistDistr", "[", "prod", "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "Interpolation", " ", "of", " ", "the", " ", "tabulated", " ", 
        "distribution"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"DoubleDistrLLPint", "[", 
        RowBox[{"mLLP_", ",", "\[Theta]LLP_", ",", "ELLP_", ",", "prod"}], 
        "]"}], "=", 
       RowBox[{"10", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Interpolation", "[", 
           RowBox[{
            RowBox[{"distrlogComp", "[", 
             RowBox[{"DistrDataImport", "[", "prod", "]"}], "]"}], ",", 
            RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}], "[", 
          RowBox[{
           RowBox[{"Log10", "[", "mLLP", "]"}], ",", 
           RowBox[{"Log10", "[", "\[Theta]LLP", "]"}], ",", 
           RowBox[{"Log10", "[", "ELLP", "]"}]}], "]"}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"Probability", " ", "to", " ", "produce", " ", "LLP"}], "*)"}],
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ProbLLP", "[", 
        RowBox[{"mLLP_", ",", "finv_", ",", "prod"}], "]"}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"ProbMother", "[", "prod", "]"}], "*", 
         RowBox[{"PmotherToLLP", "[", 
          RowBox[{
          "mLLP", ",", "finv", ",", "prod", ",", "FacilityGivenExperiment"}], 
          "]"}]}], "/.", 
        RowBox[{"{", 
         RowBox[{"Atarget", "->", "AtargetVal"}], "}"}]}]}], ";"}]}], 
    "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", 
     RowBox[{"Length", "[", "ProductionPatternSelected", "]"}], ",", "1"}], 
    "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"directory", "[", "\"\<Auxiliary-experiment\>\"", "]"}], "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"directory", "[", "\"\<Auxiliary\>\"", "]"}], ",", 
      "SelectedExperiment"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"!", 
     RowBox[{"DirectoryQ", "[", 
      RowBox[{"directory", "[", "\"\<Auxiliary-experiment\>\"", "]"}], 
      "]"}]}], ",", 
    RowBox[{"CreateDirectory", "[", 
     RowBox[{"directory", "[", "\"\<Auxiliary-experiment\>\"", "]"}], "]"}]}],
    "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"directory", "[", "\"\<Auxiliary-experiment\>\"", "]"}], ",", 
       RowBox[{
       "\"\<Double-Distr-Averaged-\>\"", "<>", "LLPdirName", "<>", 
        "\"\<.m\>\""}]}], "}"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"mLLPmin", "[", "prod", "]"}], "<", "mLLP", "<", 
           RowBox[{"mLLPmax", "[", "prod", "]"}]}], ",", 
          RowBox[{"Evaluate", "[", 
           RowBox[{"ProbLLP", "[", 
            RowBox[{"mLLP", ",", "1", ",", "prod"}], "]"}], "]"}], ",", "0"}],
          "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"prod", ",", "ProductionList"}], "}"}]}], "]"}], ",", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"mLLPmin", "[", "prod", "]"}], "<", "mLLP", "<", 
             RowBox[{"mLLPmax", "[", "prod", "]"}]}], ",", 
            RowBox[{"Evaluate", "[", 
             RowBox[{"ProbLLP", "[", 
              RowBox[{"mLLP", ",", "1", ",", "prod"}], "]"}], "]"}], ",", 
            "0"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"prod", ",", "ProductionList"}], "}"}]}], "]"}]], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"mLLPmin", "[", "prod", "]"}], "<", "mLLP", "<", 
            RowBox[{"mLLPmax", "[", "prod", "]"}]}], ",", 
           RowBox[{"Evaluate", "[", 
            RowBox[{
             RowBox[{"ProbLLP", "[", 
              RowBox[{"mLLP", ",", "1", ",", "prod"}], "]"}], "*", 
             RowBox[{"DoubleDistrLLPint", "[", 
              RowBox[{"mLLP", ",", "\[Theta]LLP", ",", "ELLP", ",", "prod"}], 
              "]"}]}], "]"}], ",", "0"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"prod", ",", "ProductionList"}], "}"}]}], "]"}]}]}], "}"}], 
    ",", "\"\<MX\>\""}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"GridInFinal", "[", "prod", "]"}], ",", 
         RowBox[{"DistrVals", "[", "prod", "]"}]}], "}"}], "=", 
       RowBox[{"BlockGridsValsDistr", "[", 
        RowBox[{"prod", ",", "DistrDataImport"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"prod", ",", "ProductionList"}], "}"}]}], "]"}], ";"}], "//", 
   "AbsoluteTiming"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "___", "___", "___", "___", "___", "___", "___", "___", "___", "_"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Finding", " ", 
    SubscriptBox["E", "max"], 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["m", "LLP"], ",", 
      SubscriptBox["\[Theta]", "LLP"]}], ")"}], " ", "for", " ", "the", " ", 
    "angular", " ", "range", " ", "at", " ", "the", " ", "given", " ", 
    "experiment"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "___", "___", "___", "___", "___", "___", "___", "___", "___", "_"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Do", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"ELLPmax", "[", 
       RowBox[{"mfip_", ",", "\[Theta]fip_", ",", "prod"}], "]"}], "=", 
      RowBox[{"EmaxBlock", "[", 
       RowBox[{
       "prod", ",", "8", ",", "DistrDataImport", ",", 
        "FacilityGivenExperiment"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"prod", ",", 
       RowBox[{"Select", "[", 
        RowBox[{"ProductionList", ",", 
         RowBox[{
          RowBox[{"#", "!=", "\"\<Bremsstrahlung\>\""}], "&"}]}], "]"}]}], 
      "}"}]}], "]"}], "//", "AbsoluteTiming"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Temporary", " ", "fix", " ", "for", " ", "ALPs", " ", "from", " ", 
    "mixing"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"SelectedExperiment", "==", "\"\<NuCal\>\""}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ELLPmax", "[", 
        RowBox[{"mfip_", ",", "\[Theta]fip_", ",", "prod"}], "]"}], "=", 
       "70."}], ",", 
      RowBox[{"{", 
       RowBox[{"prod", ",", 
        RowBox[{"Select", "[", 
         RowBox[{"ProductionList", ",", 
          RowBox[{
           RowBox[{"#", "!=", "\"\<Bremsstrahlung\>\""}], "&"}]}], "]"}]}], 
       "}"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"SelectedExperiment", "==", "\"\<NA62-dump\>\""}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ELLPmax", "[", 
        RowBox[{"mfip_", ",", "\[Theta]fip_", ",", "prod"}], "]"}], "=", 
       "400."}], ",", 
      RowBox[{"{", 
       RowBox[{"prod", ",", 
        RowBox[{"Select", "[", 
         RowBox[{"ProductionList", ",", 
          RowBox[{
           RowBox[{"#", "!=", "\"\<Bremsstrahlung\>\""}], "&"}]}], "]"}]}], 
       "}"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ptenergies", "=", 
   RowBox[{"LogLogPlot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"ELLPmax", "[", 
         RowBox[{"0.1", ",", "\[Theta]LLP", ",", "prod"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"prod", ",", "ProductionList"}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Theta]LLP", ",", "\[Theta]minExp", ",", "\[Theta]maxExp"}], 
      "}"}], ",", 
     RowBox[{"Frame", "->", "True"}], ",", 
     RowBox[{"ImageSize", "->", "Large"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#", ",", "15"}], "]"}], "&"}], "/@", "ProductionList"}], 
        ",", "Right"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ptprodprob", "=", 
   RowBox[{"LogLogPlot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"ProbLLP", "[", 
         RowBox[{"ma", ",", "1", ",", "prod"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"prod", ",", "ProductionList"}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ma", ",", "mmin\[Epsilon]", ",", "mmax\[Epsilon]"}], "}"}], 
     ",", 
     RowBox[{"Frame", "->", "True"}], ",", 
     RowBox[{"ImageSize", "->", "Large"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#", ",", "15"}], "]"}], "&"}], "/@", "ProductionList"}], 
        ",", "Right"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Style", "[", 
  RowBox[{
   RowBox[{"Row", "[", 
    RowBox[{"{", 
     RowBox[{"ptprodprob", ",", "ptenergies"}], "}"}], "]"}], ",", 
   RowBox[{"ImageSizeMultipliers", "->", 
    RowBox[{"{", 
     RowBox[{"1", ",", " ", "1"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.9138264426995506`*^9, 3.9138265779867573`*^9}, {
   3.913826965658716*^9, 3.9138270942523136`*^9}, 3.913827173058236*^9, 
   3.9138280725351963`*^9, {3.9138685969328623`*^9, 3.9138686662515535`*^9}, {
   3.9138687097216063`*^9, 3.913868827467691*^9}, {3.9138699081836786`*^9, 
   3.913869908527342*^9}, {3.9138700197640233`*^9, 3.913870024259905*^9}, {
   3.913870742059718*^9, 3.913870786176013*^9}, {3.913871804452815*^9, 
   3.9138718044574027`*^9}, {3.9156429960123367`*^9, 3.9156429961205664`*^9}, 
   3.9162513252963047`*^9, {3.916287561155079*^9, 3.916287704198366*^9}, {
   3.916504616759512*^9, 3.9165046236416073`*^9}, {3.9165054192465663`*^9, 
   3.916505466772704*^9}, 3.916856683654804*^9, {3.918148620489293*^9, 
   3.9181486279490232`*^9}, {3.918152700992757*^9, 3.9181527081491346`*^9}},
 CellTags->{
  "Acceptance-computation", "Number-of-events-computation+sensitivity"},
 CellLabel->
  "In[200]:=",ExpressionUUID->"0de53151-929c-4ae2-86de-1774b0e4638d"]
}, Closed]],

Cell[CellGroupData[{

Cell["Number of events", "Chapter",
 CellChangeTimes->{{3.8935731783578434`*^9, 3.893573180246764*^9}},
 CellTags->
  "Number-of-events-computation+sensitivity",ExpressionUUID->"913a2300-dec2-\
4b0f-8b44-4b75cf0adccf"],

Cell[CellGroupData[{

Cell["Number of events ", "Section",
 CellChangeTimes->{{3.897198873663946*^9, 3.8971988750678434`*^9}, 
   3.9165065585390453`*^9, 3.9165070655729046`*^9, 3.9166798862174683`*^9},
 CellTags->{
  "Acceptance-computation", 
   "Number-of-events-computation+sensitivity"},ExpressionUUID->"b0772e57-8882-\
4e3d-a1f7-c9c6f58dc7ac"],

Cell[CellGroupData[{

Cell["Initializing all routines", "Subsection",
 CellChangeTimes->{{3.897199076623907*^9, 3.8971990900052223`*^9}, {
   3.8972009084104066`*^9, 3.897200920680235*^9}, 3.916506561920749*^9, {
   3.9165071319109154`*^9, 3.916507136145134*^9}},
 CellTags->{
  "Acceptance-computation", 
   "Number-of-events-computation+sensitivity"},ExpressionUUID->"09bda361-200e-\
4474-a4eb-51f045b744b2"],

Cell[BoxData[{
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"OutGrid\[Theta]final", "[", "prod", "]"}], ",", 
      RowBox[{"\[CapitalDelta]\[Theta]vals", "[", "prod", "]"}]}], "}"}], "=", 
    RowBox[{"OutGrid\[Theta]Temp", "[", 
     RowBox[{
     "InGrid\[Theta]\[Epsilon]", ",", "30", ",", "prod", ",", 
      "\[Theta]maxBrem"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"prod", ",", "ProductionList"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"OutGridzfinal", ",", "\[CapitalDelta]zvals"}], "}"}], "=", 
    RowBox[{"OutGridszTemp", "[", 
     RowBox[{"InGridz\[Epsilon]", ",", "30", ",", "zminExp"}], "]"}]}], ";"}],
   "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Final", " ", "energy", " ", 
     RowBox[{"grid", ".", " ", "Mass"}]}], "-", " ", 
    RowBox[{"and", " ", "production", " ", "channel"}], "-", "dependent"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"FacilityGivenExperiment", "!=", "\"\<ESS\>\""}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"StepEtemp", "[", "Efip_", "]"}], "=", 
      RowBox[{"Piecewise", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.3", ",", 
           RowBox[{"Efip", "\[LessEqual]", "2.5"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.5", ",", 
           RowBox[{"2.5", "<", "Efip", "<", "35"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", 
           RowBox[{"35", "\[LessEqual]", "Efip", "\[LessEqual]", "50"}]}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", 
           RowBox[{"50", "<", "Efip", "<", "160"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"5", ",", 
           RowBox[{"160", "\[LessEqual]", "Efip", "<=", "400"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"25", ",", 
           RowBox[{"400", "<", "Efip", "<", "600"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"50", ",", 
           RowBox[{"600", "<=", "Efip", "<", "2000"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"200", ",", 
           RowBox[{"2000", "\[LessEqual]", "Efip", "<", "4000"}]}], "}"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"400", ",", 
           RowBox[{"4000", "\[LessEqual]", "Efip", "<", "7000"}]}], "}"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"500", ",", 
           RowBox[{
           "7000", "\[LessEqual]", "Efip", "\[LessEqual]", "50000"}]}], 
          "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"OutGridEnergy", "[", 
       RowBox[{"m_", ",", "ProdChannel_"}], "]"}], ":=", 
      RowBox[{"Block", "[", 
       RowBox[{
        RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"emin", "=", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"ProdChannel", "!=", "\"\<Bremsstrahlung\>\""}], ",", 
            RowBox[{"N", "[", "m", "]"}], ",", 
            RowBox[{"ELLPmin", "[", "\"\<Bremsstrahlung\>\"", "]"}]}], 
           "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"egridtemp", "=", 
          RowBox[{
           RowBox[{"With", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"start", "=", "emin"}], ",", 
               RowBox[{"end", "=", 
                RowBox[{"ELLPmax", "[", 
                 RowBox[{"m", ",", "\[Theta]minExp", ",", "ProdChannel"}], 
                 "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
             RowBox[{"Log10", "[", 
              RowBox[{"NestWhileList", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"#", "+", 
                  RowBox[{"StepEtemp", "[", "#", "]"}]}], "&"}], ",", "start",
                 ",", 
                RowBox[{
                 RowBox[{"#", "\[LessEqual]", "end"}], "&"}], ",", "1", ",", 
                "\[Infinity]", ",", 
                RowBox[{"-", "1"}]}], "]"}], "]"}]}], "]"}], "//", "N"}]}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Length", "[", "egridtemp", "]"}], "==", "1"}], ",", 
           RowBox[{"egridtemp", "=", 
            RowBox[{"Join", "[", 
             RowBox[{"egridtemp", ",", 
              RowBox[{"{", 
               RowBox[{"Log10", "[", 
                RowBox[{"2", "*", "emin"}], "]"}], "}"}]}], "]"}]}]}], "]"}], 
         ";", "\[IndentingNewLine]", "egridtemp"}]}], "\[IndentingNewLine]", 
       "]"}]}]}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"StepEtemp", "[", "Efip_", "]"}], "=", "0.001"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"OutGridEnergy", "[", 
       RowBox[{"m_", ",", "ProdChannel_"}], "]"}], ":=", 
      RowBox[{"Block", "[", 
       RowBox[{
        RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"tabt", "=", 
           RowBox[{"Table", "[", 
            RowBox[{"e", ",", 
             RowBox[{"{", 
              RowBox[{"e", ",", 
               RowBox[{"1.0001", "m"}], ",", 
               RowBox[{"ELLPmax", "[", 
                RowBox[{"m", ",", "\[Theta]minExp", ",", "ProdChannel"}], 
                "]"}], ",", "0.001"}], "}"}]}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Length", "[", "tabt", "]"}], "==", "1"}], ",", 
            RowBox[{"tabt", "=", 
             RowBox[{
              RowBox[{
               RowBox[{"Join", "[", 
                RowBox[{"tabt", ",", 
                 RowBox[{"{", 
                  RowBox[{"ELLPmax", "[", 
                   RowBox[{"m", ",", "\[Theta]minExp", ",", "ProdChannel"}], 
                   "]"}], "}"}]}], "]"}], "//", "Sort"}], "//", 
              "DeleteDuplicates"}]}]}], "]"}], ";"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"tabt", "=", 
          RowBox[{
           RowBox[{
            RowBox[{"Join", "[", 
             RowBox[{
              RowBox[{"Select", "[", 
               RowBox[{
                RowBox[{"10", "^", "InGridE\[Epsilon]"}], ",", 
                RowBox[{
                 RowBox[{"m", "<", "#", "<", 
                  RowBox[{"ELLPmax", "[", 
                   RowBox[{"m", ",", "\[Theta]minExp", ",", "ProdChannel"}], 
                   "]"}]}], "&"}]}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"ELLPmax", "[", 
                RowBox[{"m", ",", "\[Theta]minExp", ",", "ProdChannel"}], 
                "]"}], "}"}]}], "]"}], "//", "Sort"}], "//", 
           "DeleteDuplicates"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Log10", "[", "tabt", "]"}], "//", "N"}]}]}], 
       "\[IndentingNewLine]", "]"}]}]}]}], "\[IndentingNewLine]", "]"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Block", " ", "that", " ", "computes", " ", "the", " ", "grid", " ", 
     SubscriptBox["\[Theta]", "S"]}], ",", 
    SubscriptBox["E", "S"], ",", 
    SubscriptBox["z", "S"], ",", " ", 
    RowBox[{
     SubscriptBox["\[Epsilon]", "Full"], "\[Times]", 
     SubscriptBox["f", 
      RowBox[{
       SubscriptBox["\[Theta]", "S"], ",", 
       SubscriptBox["E", "S"]}]]}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TableIntegrandDiscret", "[", 
   RowBox[{"m_", ",", "ProdChannel_", ",", "\[Epsilon]DecOp_"}], "]"}], ":=", 
  RowBox[{"TableIntegrandDiscretTemp", "[", 
   RowBox[{
   "m", ",", "ProdChannel", ",", "\[Epsilon]DecOp", ",", "\[Epsilon]vals", 
    ",", "\[Epsilon]azvals", ",", 
    RowBox[{"OutGrid\[Theta]final", "[", "ProdChannel", "]"}], ",", 
    "OutGridzfinal", ",", "OutGridEnergy", ",", "InGridm\[Epsilon]", ",", 
    "InGrid\[Theta]\[Epsilon]", ",", "InGridE\[Epsilon]", ",", 
    "InGridz\[Epsilon]", ",", 
    RowBox[{"\[CapitalDelta]\[Theta]vals", "[", "ProdChannel", "]"}], ",", 
    "\[CapitalDelta]zvals", ",", "zminExp", ",", "GridInFinal", ",", 
    "DistrVals", ",", "FacilityGivenExperiment", ",", "ELLPmax", ",", 
    "\[Theta]minExp"}], "]"}]}]}], "Input",
 CellChangeTimes->{
  3.914065400601883*^9, {3.9144955915086913`*^9, 3.914495605102999*^9}, {
   3.9144963994464297`*^9, 3.91449645003281*^9}, 3.9156429961809263`*^9, 
   3.9162514062581673`*^9, {3.916332203281742*^9, 3.9163322040420866`*^9}, {
   3.916332256159724*^9, 3.916332315776701*^9}, {3.916332682855117*^9, 
   3.9163326972784367`*^9}, {3.916332729581109*^9, 3.9163327827424307`*^9}, {
   3.916332995032469*^9, 3.9163330418518543`*^9}, {3.9163330893535175`*^9, 
   3.9163331201157775`*^9}, {3.9163883031455355`*^9, 
   3.9163883099402237`*^9}, {3.91639027241718*^9, 3.9163902725145645`*^9}, {
   3.916390440036625*^9, 3.9163904429286966`*^9}, {3.9163913725242844`*^9, 
   3.9163913900649643`*^9}, {3.9165060112532883`*^9, 
   3.9165060531405983`*^9}, {3.916506386454261*^9, 3.9165063916867723`*^9}, {
   3.9165064378147545`*^9, 3.9165064402046285`*^9}, {3.9165066063487997`*^9, 
   3.9165066068133373`*^9}, {3.916506770781*^9, 3.916506770986845*^9}, {
   3.916506818360832*^9, 3.9165068344941483`*^9}, {3.91650702210918*^9, 
   3.916507055596775*^9}, 3.9165070945532026`*^9, {3.9165072348013864`*^9, 
   3.916507258828418*^9}, {3.9165082243803825`*^9, 3.9165082246202836`*^9}, {
   3.9165089341902933`*^9, 3.9165089344447165`*^9}, {3.916671056709384*^9, 
   3.9166710572925243`*^9}, {3.916671102174552*^9, 3.9166711025636616`*^9}, 
   3.916680209356353*^9, {3.916763700163747*^9, 3.916763735081332*^9}, {
   3.9167637657945323`*^9, 3.9167637686631947`*^9}, 3.9168551246377473`*^9, 
   3.9168552883087473`*^9, {3.916855405962035*^9, 3.916855407763837*^9}, {
   3.9181394711318083`*^9, 3.918139476958158*^9}, {3.918144058743101*^9, 
   3.918144063662957*^9}, 3.934739493130162*^9},
 CellTags->{
  "Acceptance-computation", 
   "Number-of-events-computation+sensitivity"},ExpressionUUID->"07d9d00a-b1e3-\
45a3-8431-e5ba54203718"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Generalized acceptances", "Subsection",
 CellChangeTimes->{{3.9165071505021195`*^9, 3.9165071536920986`*^9}},
 CellTags->{
  "Acceptance-computation", 
   "Number-of-events-computation+sensitivity"},ExpressionUUID->"38691406-6de0-\
4e83-9a5b-27156e5454d3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Tabulated", " ", "acceptance"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FactorANUBISceiling", "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"SelectedExperiment", "==", "\"\<ANUBIS-ceiling\>\""}], ",", 
       "2", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"AcceptanceDiscret", "[", 
     RowBox[{
     "m_", ",", "ProdChannel_", ",", "\[Epsilon]decOp_", ",", "decProb_"}], 
     "]"}], ":=", 
    RowBox[{"AcceptanceDiscretTemp", "[", 
     RowBox[{
     "m", ",", "ProdChannel", ",", "\[Epsilon]decOp", ",", "decProb", ",", 
      "mLLPmin", ",", "mmin\[Epsilon]", ",", "mLLPmax", ",", "mmax\[Epsilon]",
       ",", "ELLPmax", ",", "\[Theta]minExp", ",", "TableIntegrandDiscret", 
      ",", "BrVis", ",", "zmaxExp", ",", "zminExp", ",", 
      "FactorANUBISceiling", ",", "0."}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"FacilityGivenExperiment", "==", "\"\<ESS\>\""}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"mlistAcceptance", "[", "prod", "]"}], "=", 
         RowBox[{"Select", "[", 
          RowBox[{
           RowBox[{"10", "^", "InGridm\[Epsilon]"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"mLLPmin", "[", "prod", "]"}], "<", "#", "<", 
             RowBox[{"mLLPmax", "[", "prod", "]"}]}], "&"}]}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"mlistAcceptance", "[", "prod", "]"}], "=", 
         RowBox[{"Join", "[", 
          RowBox[{"Table", "[", 
           RowBox[{"m", ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{"1.01", 
               RowBox[{"Max", "[", 
                RowBox[{
                 RowBox[{"mLLPmin", "[", "prod", "]"}], ",", 
                 "mmin\[Epsilon]"}], "]"}]}], ",", 
              RowBox[{"0.95", 
               RowBox[{"Min", "[", 
                RowBox[{
                 RowBox[{"mLLPmax", "[", "prod", "]"}], ",", 
                 "mmax\[Epsilon]"}], "]"}]}], ",", 
              RowBox[{"Min", "[", 
               RowBox[{
                FractionBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"0.95", 
                    RowBox[{"Min", "[", 
                    RowBox[{
                    RowBox[{"mLLPmax", "[", "prod", "]"}], ",", 
                    "mmax\[Epsilon]"}], "]"}]}], "-", 
                   RowBox[{"1.01", 
                    RowBox[{"Max", "[", 
                    RowBox[{
                    RowBox[{"mLLPmin", "[", "prod", "]"}], ",", 
                    "mmin\[Epsilon]"}], "]"}]}]}], ")"}], "20"], ",", "2"}], 
               "]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"0.99", 
          RowBox[{"Min", "[", 
           RowBox[{
            RowBox[{"mLLPmax", "[", "prod", "]"}], ",", "mmax\[Epsilon]"}], 
           "]"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"prod", ",", "ProductionList"}], "}"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[Epsilon]GeomTabs", "[", "prod", "]"}], "=", 
         RowBox[{"ParallelTable", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"m", ",", 
             RowBox[{"AcceptanceDiscret", "[", 
              RowBox[{"m", ",", "prod", ",", "\"\<False\>\"", ",", "0"}], 
              "]"}], ",", 
             RowBox[{"AcceptanceDiscret", "[", 
              RowBox[{"m", ",", "prod", ",", "\"\<True\>\"", ",", "0"}], 
              "]"}], ",", 
             RowBox[{"AcceptanceDiscret", "[", 
              RowBox[{"m", ",", "prod", ",", "\"\<False\>\"", ",", "1"}], 
              "]"}], ",", 
             RowBox[{"AcceptanceDiscret", "[", 
              RowBox[{"m", ",", "prod", ",", "\"\<True\>\"", ",", "1"}], 
              "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", 
             RowBox[{"mlistAcceptance", "[", "prod", "]"}]}], "}"}]}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"FacilityGivenExperiment", "!=", "\"\<ESS\>\""}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"\[Epsilon]GeomTabs", "[", "prod", "]"}], "=", 
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"Join", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"Max", "[", 
                  RowBox[{
                   RowBox[{"mLLPmin", "[", "prod", "]"}], ",", 
                   "mmin\[Epsilon]"}], "]"}], "}"}], ",", 
                RowBox[{"Drop", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"\[Epsilon]GeomTabs", "[", "prod", "]"}], "[", 
                   RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "]"}]}], "]"}],
               "}"}], ",", 
             RowBox[{"\[Epsilon]GeomTabs", "[", "prod", "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"Join", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"Min", "[", 
                  RowBox[{
                   RowBox[{"mLLPmax", "[", "prod", "]"}], ",", 
                   "mmax\[Epsilon]"}], "]"}], "}"}], ",", 
                RowBox[{"Drop", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"\[Epsilon]GeomTabs", "[", "prod", "]"}], "[", 
                   RowBox[{"[", 
                    RowBox[{"-", "1"}], "]"}], "]"}], ",", "1"}], "]"}]}], 
               "]"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}],
        "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"prod", ",", "ProductionList"}], "}"}]}], "]"}], ";"}], "//", 
    "AbsoluteTiming"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PlotAcc", "[", "ProdChannel_", "]"}], ":=", 
    RowBox[{"ListLogPlot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Epsilon]GeomTabs", "[", "ProdChannel", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"\[Epsilon]GeomTabs", "[", "ProdChannel", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"\[Epsilon]GeomTabs", "[", "ProdChannel", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"\[Epsilon]GeomTabs", "[", "ProdChannel", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "5"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}], 
      ",", 
      RowBox[{"FrameStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Black", ",", " ", "22"}], "]"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Thickness", "[", "0.003", "]"}], ",", "Blue"}], "}"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Thickness", "[", "0.003", "]"}], ",", 
           RowBox[{"Darker", "@", "Red"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Thickness", "[", "0.003", "]"}], ",", 
           RowBox[{"Darker", "@", 
            RowBox[{"Darker", "@", "Green"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Thickness", "[", "0.003", "]"}], ",", "Black"}], "}"}]}], 
        "}"}]}], ",", 
      RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"MinMax", "[", 
          RowBox[{
           RowBox[{"\[Epsilon]GeomTabs", "[", "ProdChannel", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Max", "[", 
            RowBox[{
             RowBox[{"0.9", 
              RowBox[{"Min", "[", 
               RowBox[{
                RowBox[{"Min", "[", 
                 RowBox[{
                  RowBox[{"\[Epsilon]GeomTabs", "[", "ProdChannel", "]"}], 
                  "[", 
                  RowBox[{"[", 
                   RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"Min", "[", 
                 RowBox[{
                  RowBox[{"\[Epsilon]GeomTabs", "[", "ProdChannel", "]"}], 
                  "[", 
                  RowBox[{"[", 
                   RowBox[{"All", ",", "3"}], "]"}], "]"}], "]"}]}], "]"}]}], 
             ",", 
             SuperscriptBox["10", 
              RowBox[{"-", "5"}]]}], "]"}], ",", 
           RowBox[{"1.1", 
            RowBox[{"Max", "[", 
             RowBox[{
              RowBox[{"Max", "[", 
               RowBox[{
                RowBox[{"\[Epsilon]GeomTabs", "[", "ProdChannel", "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"Max", "[", 
               RowBox[{
                RowBox[{"\[Epsilon]GeomTabs", "[", "ProdChannel", "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}]}], "]"}]}]}], 
          "}"}]}], "}"}]}], ",", 
      RowBox[{"Joined", "\[Rule]", "True"}], ",", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<m [GeV]\>\"", ",", "\"\<Acceptance\>\""}], "}"}]}], ",", 
      RowBox[{"PlotLabel", "\[Rule]", " ", 
       RowBox[{"Style", "[", 
        RowBox[{
         RowBox[{"Row", "[", 
          RowBox[{"{", 
           RowBox[{"\"\<From \>\"", ",", "ProdChannel"}], "}"}], "]"}], ",", 
         " ", "20", ",", " ", "Black"}], "]"}]}], ",", 
      RowBox[{"PlotLegends", "\[Rule]", 
       RowBox[{"Placed", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"Style", "[", 
             RowBox[{"#", ",", " ", "18"}], "]"}], "&"}], "/@", 
           RowBox[{"{", 
            RowBox[{
            "\"\<<\!\(\*SubscriptBox[\(\[Epsilon]\), \(LLP\)]\)>\>\"", ",", 
             "\"\<<\!\(\*SubscriptBox[\(\[Epsilon]\), \
\(LLP\)]\)\!\(\*SubscriptBox[\(\[Epsilon]\), \(decay\)]\)>\>\"", ",", 
             "\"\<c\[Tau]<\!\(\*SubscriptBox[\(\[Epsilon]\), \
\(LLP\)]\)\!\(\*SubscriptBox[\(P\), \(decay\)]\)>\>\"", ",", 
             "\"\<c\[Tau]<\!\(\*SubscriptBox[\(\[Epsilon]\), \
\(LLP\)]\)\!\(\*SubscriptBox[\(P\), \(decay\)]\)\!\(\*SubscriptBox[\(\
\[Epsilon]\), \(decay\)]\)>\>\""}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.75", ",", "0.2"}], "}"}]}], "]"}]}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Style", "[", 
    RowBox[{
     RowBox[{"Row", "[", 
      RowBox[{"Evaluate", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"PlotAcc", "[", "prod", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"prod", ",", "ProductionList"}], "}"}]}], "]"}], "]"}], 
      "]"}], ",", 
     RowBox[{"ImageSizeMultipliers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"FilenameAcceptance", "[", "prod", "]"}], "=", 
        RowBox[{"ToString", "@", 
         RowBox[{"StringForm", "[", 
          RowBox[{"\"\<Acceptance_ALP-fermion_at_``_From_``.dat\>\"", ",", 
           RowBox[{"Sequence", "@@", 
            RowBox[{"{", 
             RowBox[{"SelectedExperiment", ",", 
              RowBox[{"ExportList", "[", "prod", "]"}]}], "}"}]}]}], 
          "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Export", "[", 
        RowBox[{
         RowBox[{"FileNameJoin", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"NotebookDirectory", "[", "]"}], ",", 
            "\"\<Auxiliary data/ALPs with fermion coupling\>\"", ",", 
            "SelectedExperiment", ",", 
            RowBox[{"FilenameAcceptance", "[", "prod", "]"}]}], "}"}], "]"}], 
         ",", 
         RowBox[{
          RowBox[{"\[Epsilon]GeomTabs", "[", "prod", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2", ",", "4", ",", "5"}], "}"}]}], "]"}], 
          "]"}], ",", "\"\<Table\>\""}], "]"}]}], "\[IndentingNewLine]", ",", 
      RowBox[{"{", 
       RowBox[{"prod", ",", "ProductionList"}], "}"}]}], "]"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"AccAveraged", "[", 
      RowBox[{"mLLP_", ",", "c\[Tau]_"}], "]"}], "=", 
     RowBox[{"NpotGivenExperiment", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"mLLPmin", "[", "prod", "]"}], "<", "mLLP", "<", 
             RowBox[{"mLLPmax", "[", "prod", "]"}]}], ",", 
            RowBox[{"Evaluate", "[", 
             RowBox[{"ProbLLP", "[", 
              RowBox[{"mLLP", ",", "1", ",", "prod"}], "]"}], "]"}], ",", 
            "0"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"prod", ",", "ProductionList"}], "}"}]}], "]"}], ",", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Max", "[", 
              RowBox[{
               RowBox[{"mLLPmin", "[", "prod", "]"}], ",", "mmin\[Epsilon]"}],
               "]"}], "<", "mLLP", "<", 
             RowBox[{"Min", "[", 
              RowBox[{
               RowBox[{"mLLPmax", "[", "prod", "]"}], ",", "mmax\[Epsilon]"}],
               "]"}]}], ",", 
            RowBox[{"Evaluate", "[", 
             RowBox[{
              RowBox[{"ProbLLP", "[", 
               RowBox[{"mLLP", ",", "1", ",", "prod"}], "]"}], "*", 
              RowBox[{
               RowBox[{"Interpolation", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"\[Epsilon]GeomTabs", "[", "prod", "]"}], "[", 
                  RowBox[{"[", 
                   RowBox[{"All", ",", 
                    RowBox[{"{", 
                    RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
                 RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}], "[",
                "mLLP", "]"}]}], "]"}], ",", "0"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"prod", ",", "ProductionList"}], "}"}]}], "]"}], ",", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Max", "[", 
              RowBox[{
               RowBox[{"mLLPmin", "[", "prod", "]"}], ",", "mmin\[Epsilon]"}],
               "]"}], "<", "mLLP", "<", 
             RowBox[{"Min", "[", 
              RowBox[{
               RowBox[{"mLLPmax", "[", "prod", "]"}], ",", "mmax\[Epsilon]"}],
               "]"}]}], ",", 
            RowBox[{"Evaluate", "[", 
             RowBox[{
              FractionBox[
               RowBox[{"ProbLLP", "[", 
                RowBox[{"mLLP", ",", "1", ",", "prod"}], "]"}], "c\[Tau]"], 
              "*", 
              RowBox[{
               RowBox[{"Interpolation", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"\[Epsilon]GeomTabs", "[", "prod", "]"}], "[", 
                  RowBox[{"[", 
                   RowBox[{"All", ",", 
                    RowBox[{"{", 
                    RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}], ",", 
                 RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}], "[",
                "mLLP", "]"}]}], "]"}], ",", "0"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"prod", ",", "ProductionList"}], "}"}]}], "]"}], ",", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Max", "[", 
              RowBox[{
               RowBox[{"mLLPmin", "[", "prod", "]"}], ",", "mmin\[Epsilon]"}],
               "]"}], "<", "mLLP", "<", 
             RowBox[{"Min", "[", 
              RowBox[{
               RowBox[{"mLLPmax", "[", "prod", "]"}], ",", "mmax\[Epsilon]"}],
               "]"}]}], ",", 
            RowBox[{"Evaluate", "[", 
             RowBox[{
              FractionBox[
               RowBox[{"ProbLLP", "[", 
                RowBox[{"mLLP", ",", "1", ",", "prod"}], "]"}], "c\[Tau]"], 
              "*", 
              RowBox[{
               RowBox[{"Interpolation", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"\[Epsilon]GeomTabs", "[", "prod", "]"}], "[", 
                  RowBox[{"[", 
                   RowBox[{"All", ",", 
                    RowBox[{"{", 
                    RowBox[{"1", ",", "5"}], "}"}]}], "]"}], "]"}], ",", 
                 RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}], "[",
                "mLLP", "]"}]}], "]"}], ",", "0"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"prod", ",", "ProductionList"}], "}"}]}], "]"}]}], 
       "}"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"directory", "[", "\"\<Auxiliary-experiment\>\"", "]"}], ",", 
         RowBox[{
         "\"\<AcceptanceAveraged-\>\"", "<>", "LLPdirName", "<>", 
          "\"\<.m\>\""}]}], "}"}], "]"}], ",", 
      RowBox[{"AccAveraged", "[", 
       RowBox[{"mLLP", ",", "c\[Tau]"}], "]"}], ",", "\"\<MX\>\""}], "]"}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.9165072608467913`*^9, 3.91650727179105*^9}, {
  3.916511834115503*^9, 3.9165119704481926`*^9}, {3.9166711144696927`*^9, 
  3.9166711149830294`*^9}, {3.916760656127347*^9, 3.9167607390644336`*^9}, {
  3.9167672439378185`*^9, 3.916767253090568*^9}},
 CellTags->{
  "Acceptance-computation", "Number-of-events-computation+sensitivity"},
 CellLabel->
  "In[218]:=",ExpressionUUID->"62f71aad-b0ff-4528-8f22-b1315e141cf5"]
}, Closed]],

Cell[CellGroupData[{

Cell["Rough estimates of the upper and lower bounds", "Subsection",
 CellChangeTimes->{{3.8850328066928463`*^9, 3.8850328135228024`*^9}},
 CellTags->{
  "Acceptance-computation", 
   "Number-of-events-computation+sensitivity"},ExpressionUUID->"1f64e19f-68db-\
451d-9c11-af942b7e295b"],

Cell[CellGroupData[{

Cell["Definitions", "Subsubsection",
 CellChangeTimes->{{3.877676708463168*^9, 3.877676711193803*^9}},
 CellTags->{
  "Acceptance-computation", 
   "Number-of-events-computation+sensitivity"},ExpressionUUID->"302d1c5e-c6d1-\
4ad1-a0b1-edca90a5022b"],

Cell[BoxData[{
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"LowerBoundEstimate", "[", 
      RowBox[{"mLLP_", ",", "prod"}], "]"}], "=", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"NpotGivenExperiment", "*", 
         RowBox[{"ProbLLP", "[", 
          RowBox[{"mLLP", ",", "1", ",", "prod"}], "]"}], "*", 
         RowBox[{
          RowBox[{"Interpolation", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Epsilon]GeomTabs", "[", "prod", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "5"}], "}"}]}], "]"}], "]"}], ",", 
            RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}], "[", 
          "mLLP", "]"}]}], 
        RowBox[{"2.3", 
         RowBox[{"ldecayLLP", "[", 
          RowBox[{"mLLP", ",", "1", ",", "ELLP"}], "]"}], 
         FractionBox["mLLP", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["ELLP", "2"], "-", 
            SuperscriptBox["mLLP", "2"]}]]]}]], ")"}], 
      RowBox[{"-", 
       FractionBox["1", "4"]}]]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"UpperBoundEstimate", "[", 
      RowBox[{"mLLP_", ",", "prod"}], "]"}], "=", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"Abs", "[", 
        RowBox[{"Re", "[", 
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"ProductLog", "[", 
              RowBox[{
               RowBox[{"-", "1"}], ",", 
               RowBox[{
                RowBox[{"-", "2.3"}], "*", 
                FractionBox["b", "a"]}]}], "]"}], "b"]}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a", "\[Rule]", " ", 
              RowBox[{"NpotGivenExperiment", "*", 
               RowBox[{"ProbLLP", "[", 
                RowBox[{"mLLP", ",", "1", ",", "prod"}], "]"}], "*", 
               RowBox[{
                RowBox[{"Interpolation", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"\[Epsilon]GeomTabs", "[", "prod", "]"}], "[", 
                   RowBox[{"[", 
                    RowBox[{"All", ",", 
                    RowBox[{"{", 
                    RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
                  RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}], 
                "[", "mLLP", "]"}]}]}], ",", 
             RowBox[{"b", "\[Rule]", 
              FractionBox["zminExp", 
               RowBox[{"ldecayLLP", "[", 
                RowBox[{"mLLP", ",", "1", ",", 
                 RowBox[{"ELLPmax", "[", 
                  RowBox[{"0.5", ",", "\[Theta]minExp", ",", "prod"}], 
                  "]"}]}], "]"}]]}]}], "}"}]}], "]"}], "]"}], "]"}], ")"}], 
      FractionBox["1", "2"]]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"prod", ",", "ProductionList"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ProdTest", "=", "\"\<Pi0\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"LogLogPlot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"0.3", 
       RowBox[{"LowerBoundEstimate", "[", 
        RowBox[{"mLLP", ",", "ProdTest"}], "]"}]}], ",", 
      RowBox[{"1.8", 
       RowBox[{"UpperBoundEstimate", "[", 
        RowBox[{"mLLP", ",", "ProdTest"}], "]"}]}]}], "}"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"mLLP", ",", 
     RowBox[{"Max", "[", 
      RowBox[{
       RowBox[{"mLLPmin", "[", "ProdTest", "]"}], ",", "mmin\[Epsilon]"}], 
      "]"}], ",", 
     RowBox[{"Min", "[", 
      RowBox[{
       RowBox[{"mLLPmax", "[", "ProdTest", "]"}], ",", "mmax\[Epsilon]"}], 
      "]"}]}], "}"}], ",", 
   RowBox[{"Frame", "->", "True"}], ",", 
   RowBox[{"ImageSize", "->", "Large"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8927045521296835`*^9, 3.892704618398532*^9}, {
   3.892704651576499*^9, 3.892704652867281*^9}, 3.8951292466391563`*^9, {
   3.8972064547512426`*^9, 3.8972064548441195`*^9}, {3.8972065272743893`*^9, 
   3.8972065273639555`*^9}, {3.897208556347765*^9, 3.8972085563922853`*^9}, {
   3.8972086426345124`*^9, 3.897208654173244*^9}, {3.897232414966792*^9, 
   3.8972324175870733`*^9}, {3.8972329876997476`*^9, 3.897233009729268*^9}, {
   3.8972333224369483`*^9, 3.8972333287617497`*^9}, 3.897233684153979*^9, {
   3.8972340069416475`*^9, 3.897234007169805*^9}, {3.897234114920539*^9, 
   3.8972341194170074`*^9}, {3.9027273710668883`*^9, 3.902727371070483*^9}, {
   3.9037896747950044`*^9, 3.903789674805071*^9}, {3.903791118363947*^9, 
   3.9037911183684855`*^9}, {3.9037936813200336`*^9, 3.903793682290308*^9}, {
   3.9049231517292624`*^9, 3.904923157976531*^9}, {3.9049231902009006`*^9, 
   3.904923190656528*^9}, 3.904926376200742*^9, {3.911027289230471*^9, 
   3.9110273124658933`*^9}, {3.9110277505648003`*^9, 3.911027764091008*^9}, 
   3.913866752239462*^9, {3.9138675516462307`*^9, 3.9138675637833986`*^9}, {
   3.9138682212474923`*^9, 3.913868221253111*^9}, {3.9138690439766445`*^9, 
   3.913869043981699*^9}, {3.9138691384932814`*^9, 3.913869147288597*^9}, {
   3.913869202156701*^9, 3.9138692055185556`*^9}, {3.913869239652417*^9, 
   3.9138692400334797`*^9}, {3.913869474546574*^9, 3.913869474546574*^9}, {
   3.913870429970599*^9, 3.913870442530464*^9}, {3.9138744135974054`*^9, 
   3.913874414587882*^9}, {3.9156429963777814`*^9, 3.915642996428277*^9}, {
   3.916391759919177*^9, 3.916391773937995*^9}, {3.916512010716703*^9, 
   3.9165120302839413`*^9}},
 CellTags->{
  "Acceptance-computation", "Number-of-events-computation+sensitivity"},
 CellLabel->
  "In[226]:=",ExpressionUUID->"2013639a-846d-4ea2-a0b9-81d0edd1cc67"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Number of events - fast", "Subsection",
 CellChangeTimes->{{3.897206442190997*^9, 3.8972064427846107`*^9}, {
  3.905840324777521*^9, 3.905840328994842*^9}},
 CellTags->
  "Number-of-events-computation+sensitivity",ExpressionUUID->"42ab82d5-4d7e-\
4d06-8eb9-6e821b04db69"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"FactorLowerBound", "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MemberQ", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<ANUBIS-shaft-volume-1\>\"", ",", 
          "\"\<ANUBIS-shaft-volume-2\>\"", ",", 
          "\"\<ANUBIS-shaft-volume-3\>\""}], "}"}], ",", 
        "SelectedExperiment"}], "]"}], "==", "True"}], ",", "0.1", ",", 
     "0.3"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NeventsDiscret", "[", 
   RowBox[{"m_", ",", "ProdChannel_", ",", "couplinglist_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"NevDiscret", ",", "NpotTimes\[Chi]val", ",", "zshift"}], "}"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Max", "[", 
        RowBox[{
         RowBox[{"mLLPmin", "[", "ProdChannel", "]"}], ",", 
         "mmin\[Epsilon]"}], "]"}], "<", "m", "<", 
       RowBox[{"Min", "[", 
        RowBox[{
         RowBox[{"mLLPmax", "[", "ProdChannel", "]"}], ",", 
         "mmax\[Epsilon]"}], "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"integrandtab", "=", 
        RowBox[{"TableIntegrandDiscret", "[", 
         RowBox[{"m", ",", "ProdChannel", ",", "\"\<True\>\""}], "]"}]}], ";",
        "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"NpotTimes\[Chi]val", "[", "coupling_", "]"}], "=", 
        RowBox[{"NpotGivenExperiment", "*", 
         RowBox[{"ProbLLP", "[", 
          RowBox[{"m", ",", "coupling", ",", "ProdChannel"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"lowerbound", ",", "upperbound"}], "}"}], "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"LowerBoundEstimate", "[", 
           RowBox[{"m", ",", "ProdChannel"}], "]"}], ",", 
          RowBox[{"UpperBoundEstimate", "[", 
           RowBox[{"m", ",", "ProdChannel"}], "]"}]}], "}"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"brvis", "=", 
        RowBox[{"BrVis", "[", "m", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"NevDiscret", "[", "coupling_", "]"}], ":=", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"0.1", "lowerbound"}], "<", "coupling", "<", 
           RowBox[{"(*", "1.5", "*)"}], 
           RowBox[{"2", "upperbound"}]}], ",", 
          RowBox[{
           RowBox[{"NpotTimes\[Chi]val", "[", "coupling", "]"}], "*", "brvis",
            "*", 
           RowBox[{"sumcompile", "[", 
            RowBox[{"tableprefac", "[", 
             RowBox[{"integrandtab", ",", "m", ",", 
              RowBox[{"c\[Tau]LLP", "[", 
               RowBox[{"m", ",", "coupling"}], "]"}], ",", "1", ",", "0."}], 
             "]"}], "]"}]}], ",", "0."}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"m", ",", 
           RowBox[{"couplinglist", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"NevDiscret", "[", 
            RowBox[{"couplinglist", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"Length", "[", "couplinglist", "]"}], ",", "1"}], "}"}]}], 
        "]"}]}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"m", ",", 
          RowBox[{"couplinglist", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", "0."}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"Length", "[", "couplinglist", "]"}], ",", "1"}], "}"}]}], 
       "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.897200964730176*^9, 3.897200965970766*^9}, {
   3.89720118259857*^9, 3.8972011870868115`*^9}, {3.8972012433916793`*^9, 
   3.8972012434804716`*^9}, {3.8972021109080114`*^9, 3.897202111357911*^9}, {
   3.897205130000824*^9, 3.8972051305748835`*^9}, 3.897206599004672*^9, {
   3.8972085445054307`*^9, 3.8972085493226857`*^9}, {3.897208729717713*^9, 
   3.897208782995672*^9}, {3.8972323557542253`*^9, 3.897232355758215*^9}, {
   3.8972325208882675`*^9, 3.897232579312927*^9}, {3.8972330183637056`*^9, 
   3.8972330186824365`*^9}, {3.8972330557477093`*^9, 
   3.8972330786629725`*^9}, {3.8972331885872264`*^9, 
   3.8972331892740192`*^9}, {3.897233372953797*^9, 3.8972334102237387`*^9}, {
   3.897233632248149*^9, 3.8972337068313646`*^9}, {3.897233770343194*^9, 
   3.897233794850586*^9}, {3.897234027583762*^9, 3.897234039222018*^9}, 
   3.902727371095085*^9, {3.903789674824919*^9, 3.9037896748651905`*^9}, {
   3.903790316364489*^9, 3.903790327604648*^9}, 3.903791118373599*^9, {
   3.903793681334241*^9, 3.903793681337234*^9}, {3.903793815495824*^9, 
   3.9037938405670385`*^9}, {3.9110273360582485`*^9, 3.911027382154455*^9}, {
   3.9110275909078875`*^9, 3.9110276162959757`*^9}, {3.911027735769429*^9, 
   3.9110277360519323`*^9}, {3.91102782490703*^9, 3.9110278664472694`*^9}, {
   3.911027908345337*^9, 3.9110279086712365`*^9}, 3.913867583368688*^9, {
   3.9138687734466343`*^9, 3.9138687783364944`*^9}, 3.913869043987434*^9, {
   3.91386913849867*^9, 3.91386914700126*^9}, {3.9138718044634438`*^9, 
   3.9138718044763327`*^9}, {3.9138744265895786`*^9, 
   3.9138744439740767`*^9}, {3.915642996438535*^9, 3.9156429964465075`*^9}, {
   3.9166711739039955`*^9, 3.9166711755719423`*^9}, 3.916678793983737*^9, {
   3.9166791229422555`*^9, 3.916679124073281*^9}},
 CellTags->"Number-of-events-computation+sensitivity",
 CellLabel->
  "In[229]:=",ExpressionUUID->"963c4344-4087-43c6-b6e8-508b30bff543"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Number of events - slow (using built-in Mathematica functions Interpolation, \
NIntegrate)\
\>", "Subsection",
 CellChangeTimes->{{3.916673042143861*^9, 3.9166730501366386`*^9}},
 CellTags->
  "Number-of-events-computation+sensitivity",ExpressionUUID->"a2111b3d-b948-\
4362-97ab-aedd46e94fb9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Differential", " ", "decay", " ", "probability", " ", 
     FractionBox["1", "ldecay"], 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "l"}], "/", "ldecay"}], "]"}]}], ",", " ", 
    RowBox[{
    "where", " ", "l", " ", "is", " ", "expressed", " ", "in", " ", "terms", 
     " ", "of", " ", "the", " ", "longitudinal", " ", "displacement", " ", 
     "z", " ", "and", " ", "polar", " ", "angle", " ", "\[Theta]", " ", "as", 
     " ", 
     RowBox[{"z", "/", "cos\[Theta]"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Differential", " ", "decay", " ", "probability", " ", 
     RowBox[{"(", 
      RowBox[{"1", "/", "ldecay"}], ")"}], 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "l"}], "/", "ldecay"}], "]"}]}], ",", " ", 
    RowBox[{
    "where", " ", "l", " ", "is", " ", "expressed", " ", "in", " ", "terms", 
     " ", "of", " ", "the", " ", "longitudinal", " ", "displacement", " ", 
     "z", " ", "and", " ", "polar", " ", "angle", " ", "\[Theta]", " ", "as", 
     " ", 
     RowBox[{"z", "/", "cos\[Theta]"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"PdecayDensity", "[", 
      RowBox[{
      "mLLP_", ",", "coupling_", ",", "\[Theta]LLP_", ",", "ELLP_", ",", 
       "zLLP_"}], "]"}], "=", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "zLLP"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Cos", "[", "\[Theta]LLP", "]"}], "*", 
          RowBox[{"ldecayLLP", "[", 
           RowBox[{"mLLP", ",", "coupling", ",", "ELLP"}], "]"}]}], ")"}]}], 
       "]"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{"Cos", "[", "\[Theta]LLP", "]"}], "]"}], "*", 
        RowBox[{"ldecayLLP", "[", 
         RowBox[{"mLLP", ",", "coupling", ",", "ELLP"}], "]"}]}], ")"}]}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "The", " ", "integrand", " ", "determining", " ", "the", " ", 
     "differential", " ", "rate", " ", "for", " ", "events"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Do", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"IntegrandLLP", "[", 
       RowBox[{
       "mLLP_", ",", "coupling_", ",", "\[Theta]LLP_", ",", "ELLP_", ",", 
        "zLLP_", ",", "prod"}], "]"}], "=", 
      RowBox[{
       RowBox[{"DoubleDistrLLPint", "[", 
        RowBox[{"mLLP", ",", "\[Theta]LLP", ",", "ELLP", ",", "prod"}], "]"}],
        "*", 
       RowBox[{"PdecayDensity", "[", 
        RowBox[{
        "mLLP", ",", "coupling", ",", "\[Theta]LLP", ",", "ELLP", ",", 
         "zLLP"}], "]"}], "*", 
       RowBox[{"AzimuthalAcceptanceInt", "[", 
        RowBox[{"\[Theta]LLP", ",", "zLLP"}], "]"}], "*", 
       RowBox[{"DecayAcceptanceInt", "[", 
        RowBox[{"mLLP", ",", "\[Theta]LLP", ",", "ELLP", ",", "zLLP"}], 
        "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"prod", ",", "ProductionList"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"IntegralLLP", "[", 
     RowBox[{"mLLP_", ",", "coupling_", ",", "ProdChannel_"}], "]"}], ":=", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{"IntegrandLLP", "[", 
         RowBox[{"mLLP", ",", "coupling", ",", "\[Theta]LLP", ",", 
          RowBox[{"Exp", "[", "ELLP", "]"}], ",", "zLLP", ",", 
          "ProdChannel"}], "]"}], 
        RowBox[{"Exp", "[", "ELLP", "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]LLP", ",", "\[Theta]minExp", ",", "\[Theta]maxExp"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"ELLP", ",", 
        RowBox[{"Log", "[", "mLLP", "]"}], ",", 
        RowBox[{"Log", "[", 
         RowBox[{"ELLPmax", "[", 
          RowBox[{"mLLP", ",", "\[Theta]LLP", ",", "ProdChannel"}], "]"}], 
         "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"zLLP", ",", 
        RowBox[{"zmin\[Theta]", "[", "\[Theta]LLP", "]"}], ",", 
        RowBox[{"zmax\[Theta]", "[", "\[Theta]LLP", "]"}]}], "}"}], ",", 
      RowBox[{"Method", "\[Rule]", "\"\<AdaptiveMonteCarlo\>\""}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"NeventsInt", "[", 
     RowBox[{"mLLP_", ",", "coupling_", ",", "ProdChannel_"}], "]"}], ":=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"mLLPmin", "[", "ProdChannel", "]"}], "\[LessEqual]", "mLLP", 
        "\[LessEqual]", 
        RowBox[{"mLLPmax", "[", "ProdChannel", "]"}]}], "&&", 
       RowBox[{
        RowBox[{"BrVis", "[", "mLLP", "]"}], "!=", "0"}]}], ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"0.1", 
          RowBox[{"LowerBoundEstimate", "[", 
           RowBox[{"mLLP", ",", "ProdChannel"}], "]"}]}], "<", "coupling", 
         "<", 
         RowBox[{"2", 
          RowBox[{"UpperBoundEstimate", "[", 
           RowBox[{"mLLP", ",", "ProdChannel"}], "]"}]}]}], ",", 
        RowBox[{"NpotGivenExperiment", "*", 
         RowBox[{"ProbLLP", "[", 
          RowBox[{"mLLP", ",", "coupling", ",", "ProdChannel"}], "]"}], "*", 
         RowBox[{"IntegralLLP", "[", 
          RowBox[{"mLLP", ",", "coupling", ",", "ProdChannel"}], "]"}]}], ",",
         "0."}], "]"}], ",", "0."}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"IntegralLLPE", "[", 
     RowBox[{"mLLP_", ",", "coupling_", ",", "ProdChannel_", ",", "ELLP_"}], 
     "]"}], ":=", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{"Abs", "[", 
       RowBox[{"IntegrandLLP", "[", 
        RowBox[{
        "mLLP", ",", "coupling", ",", "\[Theta]LLP", ",", "ELLP", ",", "zLLP",
          ",", "ProdChannel"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]LLP", ",", "\[Theta]minExp", ",", "\[Theta]maxExp"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"zLLP", ",", 
        RowBox[{"zmin\[Theta]", "[", "\[Theta]LLP", "]"}], ",", 
        RowBox[{"zmax\[Theta]", "[", "\[Theta]LLP", "]"}]}], "}"}], ",", 
      RowBox[{"Method", "\[Rule]", "\"\<AdaptiveMonteCarlo\>\""}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"NeventsDiffInt", "[", 
     RowBox[{"mLLP_", ",", "coupling_", ",", "ProdChannel_", ",", "ELLP_"}], 
     "]"}], ":=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"mLLPmin", "[", "ProdChannel", "]"}], "\[LessEqual]", "mLLP", 
        "\[LessEqual]", 
        RowBox[{"mLLPmax", "[", "ProdChannel", "]"}]}], "&&", 
       RowBox[{
        RowBox[{"BrVis", "[", "mLLP", "]"}], "!=", "0"}], "&&", 
       RowBox[{"mLLP", "<", "ELLP", "<=", 
        RowBox[{"ELLPmax", "[", 
         RowBox[{"mLLP", ",", "\[Theta]minExp", ",", "ProdChannel"}], 
         "]"}]}]}], ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"0.1", 
          RowBox[{"LowerBoundEstimate", "[", 
           RowBox[{"mLLP", ",", "ProdChannel"}], "]"}]}], "<", "coupling", 
         "<", 
         RowBox[{"2", 
          RowBox[{"UpperBoundEstimate", "[", 
           RowBox[{"mLLP", ",", "ProdChannel"}], "]"}]}]}], ",", 
        RowBox[{"NpotGivenExperiment", "*", 
         RowBox[{"ProbLLP", "[", 
          RowBox[{"mLLP", ",", "coupling", ",", "ProdChannel"}], "]"}], "*", 
         RowBox[{"IntegralLLPE", "[", 
          RowBox[{"mLLP", ",", "coupling", ",", "ProdChannel", ",", "ELLP"}], 
          "]"}]}], ",", "0."}], "]"}], ",", "0."}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.9167656467381687`*^9, 3.9167657391983356`*^9}, {
  3.916765918065031*^9, 3.9167659215606313`*^9}, {3.9167662758901176`*^9, 
  3.916766280761902*^9}},
 CellTags->"Number-of-events-computation+sensitivity",
 CellLabel->
  "In[231]:=",ExpressionUUID->"46f4d46b-66b1-4ab0-8fc9-e4f181080153"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tests", "Section",
 CellChangeTimes->{{3.8972012736109533`*^9, 3.897201275449023*^9}, {
  3.9165074771770973`*^9, 3.916507477391102*^9}, {3.9166730568371887`*^9, 
  3.916673057524472*^9}},
 CellTags->
  "Number-of-events-computation+sensitivity",ExpressionUUID->"d97cf69b-14d7-\
4226-84be-25aa41979380"],

Cell[CellGroupData[{

Cell["Total number of events", "Subsection",
 CellChangeTimes->{{3.9166731223415008`*^9, 3.9166731263809366`*^9}},
 CellTags->
  "Number-of-events-computation+sensitivity",ExpressionUUID->"8b643ea4-d4cf-\
439d-bf42-7d3cf2368f19"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "This", " ", "is", " ", "a", " ", "comparison", " ", "between", " ", 
     "the", " ", "slow", " ", "and", " ", "fast", " ", "integration", " ", 
     RowBox[{"methods", ".", " ", "For"}], " ", "the", " ", "selected", " ", 
     "mass", " ", "and", " ", "production", " ", "channel"}], ",", " ", 
    RowBox[{
    "the", " ", "numbers", " ", "of", " ", "events", " ", "obtained", " ", 
     "using", " ", "the", " ", "methods", " ", "should", " ", "agree", " ", 
     "within", " ", "10", "%"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"If", " ", "the", " ", "agreement", " ", "is", " ", "worse"}], 
    ",", " ", 
    RowBox[{
    "there", " ", "may", " ", "be", " ", "a", " ", "few", " ", "reasons"}]}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"1", ")"}], " ", "The", " ", "grid", " ", "for", " ", "the", " ",
      "fast", " ", "method", " ", "is", " ", "not", " ", "dense", " ", 
     RowBox[{"enough", ".", " ", "Try"}], " ", "to", " ", "increase", " ", 
     "the", " ", "grid", " ", "density", " ", 
     RowBox[{"(", 
      RowBox[{
      "OutGrid\[Theta]final", ",", " ", "OutGridEfinal", ",", " ", 
       "OutGridzfinal"}], ")"}], " ", "to", " ", "see", " ", "whether", " ", 
     "the", " ", "agreement", " ", 
     RowBox[{"improves", ".", " ", "Sometimes"}]}], ",", " ", 
    RowBox[{
    "even", " ", "a", " ", "slightly", " ", "denser", " ", "grid", " ", "for",
      " ", 
     RowBox[{"e", ".", "g", ".", " ", "z"}], " ", "may", " ", "lead", " ", 
     "to", " ", "a", " ", "significant", " ", "improvement", " ", "in", " ", 
     "the", " ", "agrement"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"2", ")"}], " ", "The", " ", "Monte"}], "-", 
      RowBox[{
      "Carlo", " ", "integrator", " ", "for", " ", "the", " ", "slow", " ", 
       "method", " ", "fails", " ", "to", " ", "evaluate", " ", 
       "properly"}]}], ";", " ", 
     RowBox[{
     "this", " ", "may", " ", "happen", " ", "if", " ", "the", " ", "range", 
      " ", "of", " ", "the", " ", "integration", " ", "over", " ", "energies",
       " ", "is", " ", "too", " ", "large", " ", "compared", " ", "to", " ", 
      "the", " ", "domain", " ", "where", " ", "most", " ", "of", " ", "the", 
      " ", "events", " ", "actually", " ", "are", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"off", "-", 
         RowBox[{
         "axis", " ", "experiments", " ", "such", " ", "as", " ", "MATHUSLA", 
          " ", "and", " ", "ANUBIS"}]}], ")"}], ".", " ", "Another"}], " ", 
      "symptom", " ", "is", " ", "that", " ", "for", " ", "the", " ", "given",
       " ", "mass", " ", "and", " ", "coupling", " ", "the", " ", "integral", 
      " ", "\"\<jumps\>\""}]}], ",", " ", 
    RowBox[{"i", ".", "e", "."}], ",", " ", 
    RowBox[{
    "returns", " ", "values", " ", "with", " ", "large", " ", "error"}]}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "A", " ", "separate", " ", "discussion", " ", "should", " ", "be", " ", 
     "made", " ", "for", " ", "the", " ", "couplings", " ", "belong", " ", 
     "to", " ", "the", " ", "domain", " ", "c\[Tau]", " ", "\[Gamma]", " ", 
     RowBox[{
      RowBox[{"<<", " ", 
       SubscriptBox["z", "experiment"]}], ".", " ", "The"}], " ", 
     "discrepancy", " ", "may", " ", "be", " ", "significant"}], ",", " ", 
    RowBox[{
    "and", " ", "the", " ", "reason", " ", "is", " ", "insufficient", " ", 
     "grid", " ", "density", " ", "for", " ", "the", " ", "fast", " ", 
     "integration", " ", 
     RowBox[{"method", ".", " ", "However"}]}], ",", " ", 
    RowBox[{
    "due", " ", "to", " ", "the", " ", "exponential", " ", "suppression", " ",
      "of", " ", "the", " ", "number", " ", "of", " ", "events"}], ",", " ", 
    RowBox[{
    "this", " ", "may", " ", "be", " ", "compensated", " ", "by", " ", "a", 
     " ", "tiny", " ", "shift", " ", "in", " ", "the", " ", "coupling"}], ",",
     " ", 
    RowBox[{
    "so", " ", "the", " ", "discrepancy", " ", "should", " ", "be", " ", 
     "considered", " ", "as", " ", 
     RowBox[{"appropriate", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"ProdTest", "=", 
     RowBox[{"ProductionList", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mtest", "=", 
     RowBox[{"Max", "[", 
      RowBox[{
       FractionBox[
        RowBox[{
         RowBox[{"mLLPmax", "[", "ProdTest", "]"}], "+", 
         RowBox[{"mLLPmin", "[", "ProdTest", "]"}]}], "2"], ",", 
       RowBox[{"1.2", "*", "mmin\[Epsilon]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"couplinglist", "=", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         SuperscriptBox["10", 
          RowBox[{"-", "12"}]], ",", 
         RowBox[{"3", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "12"}]]}], ",", 
         RowBox[{"5", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "12"}]]}], ",", 
         SuperscriptBox["10", 
          RowBox[{"-", "11"}]], ",", 
         RowBox[{"5", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "11"}]]}], ",", 
         SuperscriptBox["10", 
          RowBox[{"-", "10"}]], ",", 
         RowBox[{"5", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "10"}]]}], ",", 
         SuperscriptBox["10", 
          RowBox[{"-", "9"}]], ",", 
         RowBox[{"5", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "9"}]]}], ",", 
         SuperscriptBox["10", 
          RowBox[{"-", "8"}]], ",", 
         RowBox[{"2", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "8"}]]}], ",", 
         RowBox[{"4", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "8"}]]}], ",", 
         SuperscriptBox["10", 
          RowBox[{"-", "7"}]], ",", 
         RowBox[{"5", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "7"}]]}], ",", 
         RowBox[{"6", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "7"}]]}], ",", 
         RowBox[{"7", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "7"}]]}], ",", 
         RowBox[{"8", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "7"}]]}], ",", 
         RowBox[{"9", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "7"}]]}], ",", 
         SuperscriptBox["10", 
          RowBox[{"-", "6"}]], ",", 
         RowBox[{"2", "*", 
          SuperscriptBox["10", 
           RowBox[{"-", "6"}]]}]}], "}"}], "//", "N"}], "*)"}], 
     RowBox[{"Table", "[", 
      RowBox[{
       SuperscriptBox["10", "x"], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "7.5"}], ",", 
         RowBox[{"-", "0.3"}], ",", "0.1"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dat1", "=", 
      RowBox[{"NeventsDiscret", "[", 
       RowBox[{"mtest", ",", "ProdTest", ",", "couplinglist"}], "]"}]}], 
     ";"}], "//", "AbsoluteTiming"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dat2", "=", 
      RowBox[{"ParallelTable", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"couplinglist", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"c\[Tau]LLP", "[", 
           RowBox[{"mtest", ",", 
            RowBox[{"couplinglist", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
          RowBox[{"NeventsInt", "[", 
           RowBox[{"mtest", ",", 
            RowBox[{"couplinglist", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", "ProdTest"}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"Length", "[", "couplinglist", "]"}], ",", "1"}], "}"}]}], 
       "]"}]}], ";"}], "//", "AbsoluteTiming"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*FractionBox[SubscriptBox[\(m\), \(LLP\)], \(GeV\)]\)\>\"", 
         ",", "\"\<coupling\>\"", ",", 
         "\"\<\!\(\*FractionBox[\(c\[Tau]\), SubscriptBox[\(z\), \
\(min\)]]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[\(N\), \(events, fast\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[\(N\), \(events, slow\)]\)\>\""}], "}"}], 
       "}"}], ",", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"dat1", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           FractionBox[
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "zminExp"], "}"}], "&"}], "/@", 
         "dat2"}], ",", 
        RowBox[{"dat1", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", 
           RowBox[{"{", "3", "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"dat2", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", 
           RowBox[{"{", "3", "}"}]}], "]"}], "]"}], ",", "2"}], "]"}]}], 
     "]"}], "//", "TableForm"}]}]}]], "Input",
 CellChangeTimes->{{3.892111330393669*^9, 3.8921113703258653`*^9}, {
   3.8921114855521097`*^9, 3.8921114891326914`*^9}, {3.8921115909252915`*^9, 
   3.89211160107533*^9}, {3.892112023350475*^9, 3.8921120715940514`*^9}, {
   3.8921121043874707`*^9, 3.892112190091645*^9}, {3.892112748834139*^9, 
   3.892112748933666*^9}, {3.8921130465455704`*^9, 3.8921130470314426`*^9}, {
   3.8921131989548674`*^9, 3.8921131992395306`*^9}, {3.892113256325259*^9, 
   3.892113256434625*^9}, {3.892113458241603*^9, 3.8921135323303742`*^9}, {
   3.892116361437076*^9, 3.8921163614848557`*^9}, {3.893257780692194*^9, 
   3.893257792940939*^9}, {3.893260545232792*^9, 3.893260566765787*^9}, {
   3.896953530728937*^9, 3.896953531233162*^9}, {3.896953744363188*^9, 
   3.8969537469343243`*^9}, {3.896953883310589*^9, 3.896953884008139*^9}, {
   3.896971240286153*^9, 3.896971246695673*^9}, {3.8969733757056828`*^9, 
   3.896973378633896*^9}, {3.8969760731711082`*^9, 3.896976348233163*^9}, {
   3.8969763786206193`*^9, 3.896976403680397*^9}, {3.8969764343671703`*^9, 
   3.8969764672032614`*^9}, 3.8972088334478965`*^9, 3.8972326136604834`*^9, 
   3.897233424756247*^9, 3.8972340704293666`*^9, {3.9037938624346867`*^9, 
   3.9037938636976957`*^9}, {3.9049233552208714`*^9, 
   3.9049233846445026`*^9}, {3.905233491599722*^9, 3.9052334916831083`*^9}, {
   3.9104192195014668`*^9, 3.910419220919059*^9}, {3.910437157740117*^9, 
   3.910437198942398*^9}, 3.913866752244583*^9, 3.913867583374674*^9, {
   3.913869518281082*^9, 3.9138695346166315`*^9}, {3.9138740675789223`*^9, 
   3.9138740809976482`*^9}, {3.91387681476606*^9, 3.9138768200447187`*^9}, {
   3.9138810373100653`*^9, 3.913881064778409*^9}, 3.913881099289591*^9, 
   3.913881550640315*^9, {3.913881585879263*^9, 3.9138815982880993`*^9}, {
   3.913881660929047*^9, 3.91388166133914*^9}, {3.914496761652851*^9, 
   3.9144967641801987`*^9}, {3.9144968071881685`*^9, 3.91449701363063*^9}, {
   3.9144970517823005`*^9, 3.9144971085541267`*^9}, 3.914514827811349*^9, {
   3.9156429967004967`*^9, 3.9156429967030597`*^9}, {3.9158780985312195`*^9, 
   3.915878110222004*^9}, {3.9166729113902054`*^9, 3.916672990591911*^9}, {
   3.9167649947762575`*^9, 3.9167649948252363`*^9}},
 CellTags->"Number-of-events-computation+sensitivity",
 CellLabel->
  "In[237]:=",ExpressionUUID->"6608ca61-80df-4c49-a1f8-56118e7339da"]
}, Closed]],

Cell[CellGroupData[{

Cell["Differential number of events", "Subsection",
 CellChangeTimes->{{3.892111289211891*^9, 3.892111293865343*^9}},
 CellTags->
  "Number-of-events-computation+sensitivity",ExpressionUUID->"748b8b59-c490-\
462f-bf37-7dc6537c8d0d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Variable", " ", "=", " ", "\"\<\!\(\*SubscriptBox[\(E\), \(X\)]\)\>\""}],
     ",", "\"\<\!\(\*SubscriptBox[\(z\), \(X\)]\)\>\"", ",", 
    RowBox[{
     RowBox[{
     "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(X\)]\)\>\"", ".", " ", "The"}], 
     " ", "number", " ", "belongs", " ", "to", " ", "the", " ", "column", " ",
      "in", " ", "the", " ", "tabulated", " ", "data"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"iVal", ":=", 
    RowBox[{"Association", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(E\), \(X\)]\)\>\"", " ", "\[Rule]", "2"}], 
       ",", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(X\)]\)\>\"", "\[Rule]", "1"}], 
       ",", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(z\), \(X\)]\)\>\"", "\[Rule]", "3"}]}], 
      "}"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
     "\[CapitalDelta]xvals", "[", 
      "\"\<\!\(\*SubscriptBox[\(E\), \(X\)]\)\>\"", "]"}], ":=", 
     "\[CapitalDelta]Evals"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
     "\[CapitalDelta]xvals", "[", 
      "\"\<\!\(\*SubscriptBox[\(z\), \(X\)]\)\>\"", "]"}], "=", 
     "\[CapitalDelta]zvals"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalDelta]xvals", "[", 
        RowBox[{
        "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(X\)]\)\>\"", ",", "prod"}], 
        "]"}], "=", 
       RowBox[{"\[CapitalDelta]\[Theta]vals", "[", "prod", "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"prod", ",", "ProductionList"}], "}"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"LegendX", ":=", 
    RowBox[{"Association", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(E\), \(X\)]\)\>\"", "\[Rule]", 
        "\"\<\!\(\*SubscriptBox[\(E\), \(X\)]\) [GeV]\>\""}], ",", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(X\)]\)\>\"", "\[Rule]", 
        "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(X\)]\) [rad]\>\""}], ",", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(z\), \(X\)]\)\>\"", "\[Rule]", " ", 
        "\"\<\!\(\*SubscriptBox[\(z\), \(X\)]\) [m]\>\""}]}], "}"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"LegendY", ":=", 
    RowBox[{"Association", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(E\), \(X\)]\)\>\"", "\[Rule]", 
        "\"\<\!\(\*SubscriptBox[\(dN\), \(ev\)]\)/\!\(\*SubscriptBox[\(dE\), \
\(X\)]\) [\!\(\*SuperscriptBox[\(GeV\), \(-1\)]\)]\>\""}], ",", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(\[Theta]\), \(X\)]\)\>\"", "\[Rule]", 
        "\"\<\!\(\*SubscriptBox[\(dN\), \(ev\)]\)/\!\(\*SubscriptBox[\(d\
\[Theta]\), \(X\)]\) [\!\(\*SuperscriptBox[\(rad\), \(-1\)]\)]\>\""}], ",", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(z\), \(X\)]\)\>\"", "\[Rule]", " ", 
        "\"\<\!\(\*SubscriptBox[\(dN\), \(ev\)]\)/\!\(\*SubscriptBox[\(dz\), \
\(X\)]\) [\!\(\*SuperscriptBox[\(m\), \(-1\)]\)]\>\""}]}], "}"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Differential", " ", "number", " ", "of", " ", "events"}], "*)"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"NeventsDifferentialDiscretProd", "[", 
     RowBox[{"m_", ",", "ProdChannel_", ",", "coupling_", ",", "Variable_"}], 
     "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "NpotTimes\[Chi]val", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ival", "=", 
        RowBox[{"iVal", "[", "Variable", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"NpotTimes\[Chi]val", "=", 
        RowBox[{"NpotGivenExperiment", "*", 
         RowBox[{"ProbLLP", "[", 
          RowBox[{"m", ",", "coupling", ",", "ProdChannel"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"tablegrid0", "=", 
        RowBox[{"TableIntegrandDiscret", "[", 
         RowBox[{"m", ",", "ProdChannel", ",", "\"\<True\>\""}], "]"}]}], ";",
        "\[IndentingNewLine]", 
       RowBox[{"OutGridEfinalTemp", "=", 
        RowBox[{"OutGridEnergy", "[", 
         RowBox[{
          RowBox[{"N", "[", "m", "]"}], ",", "ProdChannel"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"\[CapitalDelta]Evals", "=", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Rest", "[", 
           SuperscriptBox["10", "OutGridEfinalTemp"], "]"}], "-", 
          RowBox[{"Most", "[", 
           SuperscriptBox["10", "OutGridEfinalTemp"], "]"}]}], ")"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"\[CapitalDelta]xval", "=", 
        RowBox[{"\[CapitalDelta]xvals", "[", "Variable", "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"c\[Tau]Val", "=", 
        RowBox[{"c\[Tau]LLP", "[", 
         RowBox[{"m", ",", "coupling"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"brvis", "=", 
        RowBox[{"BrVis", "[", "m", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"ilist", "=", 
        RowBox[{"DeleteDuplicates", "[", 
         RowBox[{"{", 
          RowBox[{"ival", ",", "1", ",", "2", ",", "3"}], "}"}], "]"}]}], ";",
        "\[IndentingNewLine]", 
       RowBox[{"tablegrid1", "=", 
        RowBox[{"SortBy", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", 
                RowBox[{"ilist", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", 
                RowBox[{"ilist", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", 
                RowBox[{"ilist", "[", 
                 RowBox[{"[", "3", "]"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}], "}"}], "&"}], "/@", 
           RowBox[{"tableGridPrefac", "[", 
            RowBox[{"tablegrid0", ",", "m", ",", "c\[Tau]Val", ",", "0."}], 
            "]"}]}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"#", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "&"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"GridQuantity", "=", 
        RowBox[{
         RowBox[{"tablegrid1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1"}], "]"}], "]"}], "//", 
         "DeleteDuplicates"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"LengthPerVariable", "=", 
        RowBox[{
         RowBox[{"Length", "[", "tablegrid1", "]"}], "/", 
         RowBox[{"Length", "[", "GridQuantity", "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"tab1", "=", 
        RowBox[{"NdiffCompiled", "[", 
         RowBox[{
         "tablegrid1", ",", "GridQuantity", ",", "LengthPerVariable", ",", 
          RowBox[{"NpotTimes\[Chi]val", "*", "brvis"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"tab1", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", 
            RowBox[{"{", "1", "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"Partition", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"tab1", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2"}], "]"}], "]"}], "*", 
            SuperscriptBox["\[CapitalDelta]xval", 
             RowBox[{"-", "1"}]]}], ",", "1"}], "]"}], ",", "2"}], "]"}]}]}], 
     "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"NeventsDifferentialDiscret", "[", 
     RowBox[{"m_", ",", "coupling_", ",", "Variable_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "NdiffInt", ",", "LegendList", ",", "QuantityMinMax", ",", 
        "ValueMinMax"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"prodlisttemp", "=", 
        RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Do", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Max", "[", 
             RowBox[{
              RowBox[{"mLLPmin", "[", "prod", "]"}], ",", "mmin\[Epsilon]"}], 
             "]"}], "<", "m", "<", 
            RowBox[{"Min", "[", 
             RowBox[{
              RowBox[{"mLLPmax", "[", "prod", "]"}], ",", "mmax\[Epsilon]"}], 
             "]"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"prodlisttemp", "=", 
             RowBox[{"Join", "[", 
              RowBox[{"prodlisttemp", ",", 
               RowBox[{"{", "prod", "}"}]}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"NdiffData", "[", "prod", "]"}], "=", 
             RowBox[{"NeventsDifferentialDiscretProd", "[", 
              RowBox[{"m", ",", "prod", ",", "coupling", ",", "Variable"}], 
              "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"XvalminmaxNdiff", "=", 
             RowBox[{
              RowBox[{
               RowBox[{"Select", "[", 
                RowBox[{
                 RowBox[{"NdiffData", "[", "prod", "]"}], ",", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], ">", 
                   SuperscriptBox["10", 
                    RowBox[{"-", "40"}]]}], "&"}]}], "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "1"}], "]"}], "]"}], "//", "MinMax"}]}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"NdiffInt", "[", 
              RowBox[{"X_", ",", "prod"}], "]"}], "=", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"XvalminmaxNdiff", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "<", "X", "<", 
                RowBox[{"XvalminmaxNdiff", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], ",", 
               RowBox[{"Evaluate", "[", 
                RowBox[{"10", "^", 
                 RowBox[{
                  RowBox[{"Interpolation", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Log10", "[", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
                    RowBox[{"Log10", "[", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "+", 
                    SuperscriptBox["10", 
                    RowBox[{"-", "90"}]]}], "]"}]}], "}"}], "&"}], "/@", 
                    RowBox[{"NdiffData", "[", "prod", "]"}]}], ",", 
                    RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}], 
                  "[", 
                  RowBox[{"Log10", "[", "X", "]"}], "]"}]}], "]"}], ",", 
               "0"}], "]"}]}]}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"prod", ",", "ProductionList"}], "}"}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"NdiffInt", "[", 
         RowBox[{"X_", ",", "\"\<Total\>\""}], "]"}], "=", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{"NdiffInt", "[", 
           RowBox[{"X", ",", "prod"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"prod", ",", "prodlisttemp"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"LegendList", "=", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"{", "\"\<Total\>\"", "}"}], ",", "prodlisttemp"}], "]"}]}],
        ";", "\[IndentingNewLine]", 
       RowBox[{"QuantityMinMax", "=", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"MinMax", "[", 
              RowBox[{
               RowBox[{"NdiffData", "[", "prod", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"prod", ",", "prodlisttemp"}], "}"}]}], "]"}], ",", 
           "1"}], "]"}], "//", "MinMax"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"ValueMinMax", "=", 
        RowBox[{"Max", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Max", "[", 
            RowBox[{
             RowBox[{"NdiffData", "[", "#", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "&"}], "/@", 
          "prodlisttemp"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"NdiffInt", "[", 
            RowBox[{"X", ",", "prod"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"prod", ",", "LegendList"}], "}"}]}], "]"}], ",", 
         "LegendList", ",", "QuantityMinMax", ",", "ValueMinMax"}], "}"}]}]}],
      "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mvaltest", "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"FacilityGivenExperiment", "==", "\"\<ESS\>\""}], ",", "0.04", 
       ",", "0.2"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"couplingvaltest", "=", 
     RowBox[{"1.4", 
      RowBox[{"LowerBoundEstimate", "[", 
       RowBox[{"mvaltest", ",", "\"\<Pi0\>\""}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"quantity", "=", "\"\<\!\(\*SubscriptBox[\(E\), \(X\)]\)\>\""}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NdiffTab", "[", "X_", "]"}], ",", "LegendList", ",", 
       "QuantityMinMax", ",", "ValueMinMax"}], "}"}], "=", 
     RowBox[{"NeventsDifferentialDiscret", "[", 
      RowBox[{"mvaltest", ",", "couplingvaltest", ",", "quantity"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"prch", "=", 
        RowBox[{"LegendList", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"NdiffInt", "[", 
         RowBox[{"X_", ",", "prch"}], "]"}], "=", 
        RowBox[{
         RowBox[{"NdiffTab", "[", "X", "]"}], "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"Length", "[", "LegendList", "]"}]}], "}"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"plotdiff", "=", 
    RowBox[{"LogLogPlot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"NdiffInt", "[", 
          RowBox[{"X", ",", "prod"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"prod", ",", "LegendList"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"X", ",", 
        RowBox[{"QuantityMinMax", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"QuantityMinMax", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{
           SuperscriptBox["10", 
            RowBox[{"-", "5"}]], ",", 
           RowBox[{"2", "ValueMinMax"}]}], "}"}]}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Thick", ",", "Black"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Thick", ",", "Blue"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Thick", ",", 
           RowBox[{"Darker", "@", "Red"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Thick", ",", 
           RowBox[{"Darker", "@", 
            RowBox[{"Darker", "@", "Green"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Thick", ",", 
           RowBox[{"Darker", "@", "Cyan"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Thick", ",", "Magenta"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Thick", ",", "Blue", ",", 
           RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Thick", ",", 
           RowBox[{"Darker", "@", "Red"}], ",", 
           RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Thick", ",", 
           RowBox[{"Darker", "@", 
            RowBox[{"Darker", "@", "Green"}]}], ",", 
           RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}]}], "}"}]}], ",", 
      RowBox[{"PlotLegends", "\[Rule]", 
       RowBox[{"Placed", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"#", ",", "20"}], "]"}], "&"}], "/@", "LegendList"}], ",",
          "Right"}], "]"}]}], ",", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"LegendX", "[", "quantity", "]"}], " ", ",", 
         RowBox[{"LegendY", "[", "quantity", "]"}]}], "}"}]}], ",", 
      RowBox[{"FrameStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Black", ",", " ", "18"}], "]"}]}], ",", 
      RowBox[{"PlotLabel", "\[Rule]", 
       RowBox[{"Style", "[", 
        RowBox[{
         RowBox[{"Row", "[", 
          RowBox[{"{", 
           RowBox[{
           "SelectedExperiment", ",", 
            "\"\<. \!\(\*SubscriptBox[\(m\), \(a\)]\) = \>\"", ",", 
            "mvaltest", ",", 
            "\"\< GeV, \!\(\*SubscriptBox[SuperscriptBox[\(f\), \(-1\)], \
\(G\)]\) = \>\"", ",", 
            RowBox[{"couplingvaltest", "//", "N"}]}], "}"}], "]"}], ",", "14",
          ",", "Black"}], "]"}]}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.8921163996135225`*^9, 3.8921164016036096`*^9}, {
   3.8921164560955544`*^9, 3.892116475031265*^9}, {3.892116516434699*^9, 
   3.8921165782759094`*^9}, {3.8921166461579666`*^9, 
   3.8921166470109124`*^9}, {3.8921167042134895`*^9, 3.892116729930051*^9}, {
   3.8927049818255663`*^9, 3.8927049991222277`*^9}, {3.8929115471019087`*^9, 
   3.892911593659387*^9}, {3.8929721720425777`*^9, 3.892972173350433*^9}, {
   3.8929722208773427`*^9, 3.8929722211847763`*^9}, {3.8932578131000147`*^9, 
   3.893257813645747*^9}, {3.8934746693595037`*^9, 3.893474675301323*^9}, {
   3.8935154039618015`*^9, 3.893515450284458*^9}, {3.893515943430369*^9, 
   3.893515962817915*^9}, 3.893516005738713*^9, {3.893516036174548*^9, 
   3.893516050479193*^9}, {3.893516088577403*^9, 3.893516089018369*^9}, {
   3.893516189974946*^9, 3.8935161902213464`*^9}, {3.8935162352543807`*^9, 
   3.8935162734266047`*^9}, {3.893516595793399*^9, 3.893516611219179*^9}, {
   3.893606026577932*^9, 3.8936060575609436`*^9}, 3.8955578364377675`*^9, {
   3.8969794021337876`*^9, 3.89697940417612*^9}, {3.897206579842867*^9, 
   3.897206594529684*^9}, {3.8972085445254173`*^9, 3.8972085493347607`*^9}, {
   3.897208919899889*^9, 3.897208931547951*^9}, {3.897232355781791*^9, 
   3.8972323557889285`*^9}, {3.897232650441552*^9, 3.8972326556138897`*^9}, {
   3.8972334458167295`*^9, 3.8972334518776407`*^9}, {3.8972337389260225`*^9, 
   3.8972337484870095`*^9}, {3.8972341759970245`*^9, 3.8972341805239077`*^9}, 
   3.9027273711383595`*^9, 3.903790322052125*^9, 3.9037911184037747`*^9, {
   3.90379388260617*^9, 3.90379391368436*^9}, {3.903793985440897*^9, 
   3.9037939966975904`*^9}, {3.903806138641766*^9, 3.9038061415710564`*^9}, {
   3.9049234022965193`*^9, 3.904923404719922*^9}, {3.9049234552044992`*^9, 
   3.9049234557077*^9}, {3.905241298600586*^9, 3.905241322456391*^9}, 
   3.9138675833998885`*^9, {3.9138682129108057`*^9, 3.9138682129163513`*^9}, {
   3.9138687734647865`*^9, 3.9138687783481526`*^9}, {3.913868990884107*^9, 
   3.9138689908925776`*^9}, 3.9138690440046268`*^9, {3.913871804520094*^9, 
   3.9138718176925616`*^9}, {3.913874095556819*^9, 3.913874098948403*^9}, {
   3.913877232309046*^9, 3.91387723268427*^9}, {3.9138796546092234`*^9, 
   3.91387965462405*^9}, {3.913881645619234*^9, 3.913881646128089*^9}, {
   3.9138817045526066`*^9, 3.9138817092702045`*^9}, {3.9144962634466343`*^9, 
   3.9144962636579084`*^9}, {3.9156429967325897`*^9, 
   3.9156429967532835`*^9}, {3.916289412312564*^9, 3.9162896164655113`*^9}, {
   3.9162896759598684`*^9, 3.916289806201638*^9}, 3.9163945964185715`*^9, {
   3.916395341223231*^9, 3.916395345479702*^9}, {3.9163954358459415`*^9, 
   3.9163954767547026`*^9}, 3.9165075760329185`*^9, 3.9165076364486437`*^9, {
   3.91650772903246*^9, 3.9165077581477613`*^9}, {3.9165115197870893`*^9, 
   3.9165115201957626`*^9}, {3.9165121382558374`*^9, 3.916512144983124*^9}, {
   3.9165122548977995`*^9, 3.916512283348137*^9}, {3.916646757115737*^9, 
   3.9166467592929344`*^9}, {3.916671907731246*^9, 3.9166719140582223`*^9}, {
   3.9166733010223756`*^9, 3.9166733176246023`*^9}, {3.9167651509492083`*^9, 
   3.9167653510067854`*^9}, {3.916765494084095*^9, 3.9167655028579893`*^9}, {
   3.9168061151569767`*^9, 3.91680611529914*^9}, {3.916808195709697*^9, 
   3.9168082014717283`*^9}, 3.9168550009720397`*^9},
 CellTags->"Number-of-events-computation+sensitivity",
 CellLabel->
  "In[243]:=",ExpressionUUID->"46c1a4a5-1c46-489a-a061-206c6b7873bc"]
}, Closed]]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exporting tabulated number of events", "Title",
 CellChangeTimes->{{3.8850207904521627`*^9, 3.885020796464762*^9}, 
   3.886649940088234*^9},
 CellTags->
  "Number-of-events-computation+sensitivity",ExpressionUUID->"0923b405-c0ba-\
437a-a0a1-eb2d8707c8c5"],

Cell[CellGroupData[{

Cell["Definitions", "Chapter",
 CellChangeTimes->{{3.8850542017641125`*^9, 3.885054203349573*^9}},
 CellTags->
  "Number-of-events-computation+sensitivity",ExpressionUUID->"2ada0cc1-1695-\
4a57-a86b-b11e240b979f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"directory", "[", "\"\<Nevents\>\"", "]"}], "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], ",", 
      "\"\<Tabulated Nevents\>\""}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"directory", "[", "\"\<Nevents-LLP\>\"", "]"}], "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], ",", 
      "\"\<Tabulated Nevents\>\"", ",", "LLPdirName"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"directory", "[", "\"\<Nevents-LLP-experiment\>\"", "]"}], "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], ",", 
      "\"\<Tabulated Nevents\>\"", ",", "LLPdirName", ",", 
      "SelectedExperiment"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"!", 
       RowBox[{"DirectoryQ", "[", 
        RowBox[{"directory", "[", "#", "]"}], "]"}]}], ",", 
      RowBox[{"CreateDirectory", "[", 
       RowBox[{"directory", "[", "#", "]"}], "]"}]}], "]"}], "&"}], "/@", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Nevents\>\"", ",", "\"\<Nevents-LLP\>\"", ",", 
     "\"\<Nevents-LLP-experiment\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  "\"\<Filenames with tabulated \!\(\*SubscriptBox[\(N\), \(events\)]\):\>\"",
   "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"FilenameNevents", "[", "prod", "]"}], "=", 
    RowBox[{"ToString", "@", 
     RowBox[{"StringForm", "[", 
      RowBox[{"\"\<Nevents_``_``_at_``_Npot=``.dat\>\"", ",", 
       RowBox[{"Sequence", "@@", 
        RowBox[{"{", 
         RowBox[{"LLPdirName", ",", "prod", ",", "SelectedExperiment", ",", 
          RowBox[{
           RowBox[{"NpotGivenExperiment", "//", "CForm"}], "//", 
           "ToString"}]}], "}"}]}]}], "]"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"prod", ",", "ProductionList"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"FilenameNevents", "[", "#", "]"}], "&"}], "/@", 
  "ProductionList"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"mRangeExport", "[", "prod", "]"}], "=", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "0.01", ",", "0.015", ",", "0.02", ",", "0.025", ",", "0.03", ",", 
          "0.035", ",", "0.04", ",", "0.045", ",", "0.05", ",", "0.06", ",", 
          "0.07", ",", "0.08", ",", "0.09", ",", "0.1", ",", "0.11", ",", 
          "0.12", ",", "0.13", ",", "0.14", ",", "0.143", ",", "0.148", ",", 
          "0.151", ",", "0.18", ",", "0.2", ",", "0.21", ",", "0.215", ",", 
          "0.218", ",", "0.22", ",", "0.225", ",", "0.23", ",", "0.24", ",", 
          "0.25", ",", "0.27", ",", "0.301", ",", "0.33", ",", "0.35", ",", 
          "0.38", ",", "0.4", ",", "0.425", ",", "0.45", ",", "0.47", ",", 
          "0.5", ",", "0.51", ",", "0.52", ",", "0.53", ",", "0.535", ",", 
          "0.54", ",", "0.543", ",", "0.544", ",", "0.545", ",", "0.546", ",",
           "0.55", ",", "0.56", ",", "0.57", ",", "0.58", ",", "0.59", ",", 
          "0.6", ",", "0.61", ",", "0.62", ",", "0.63", ",", "0.64", ",", 
          "0.65", ",", "0.67", ",", "0.7", ",", "0.725", ",", "0.75", ",", 
          "0.77", ",", "0.8", ",", "0.825", ",", "0.85", ",", "0.87", ",", 
          "0.88", ",", "0.89", ",", "0.9", ",", "0.91", ",", "0.92", ",", 
          "0.93", ",", "0.94", ",", "0.95", ",", "0.953", ",", "0.954", ",", 
          "0.955", ",", "0.956", ",", "0.96", ",", "0.961", ",", "0.962", ",",
           "0.963", ",", "0.966", ",", "0.97", ",", "0.973", ",", "0.975", 
          ",", "0.98", ",", "1.", ",", "1.01", ",", "1.02", ",", "1.03", ",", 
          "1.05", ",", "1.07", ",", "1.1", ",", "1.12", ",", "1.15", ",", 
          "1.2", ",", "1.25", ",", "1.3", ",", "1.4", ",", "1.5", ",", "1.6", 
          ",", "1.7", ",", "1.8", ",", "1.9", ",", "2.", ",", "2.1", ",", 
          "2.2", ",", "2.3", ",", "2.4", ",", "2.5", ",", "2.6", ",", "2.7", 
          ",", "2.9", ",", "3.2", ",", "3.3", ",", "3.4", ",", "3.5", ",", 
          "3.6", ",", "3.7", ",", "3.8", ",", "3.9", ",", "4.", ",", "4.1", 
          ",", "4.2", ",", "4.3", ",", "4.4", ",", "4.5", ",", "4.6", ",", 
          "4.7", ",", "4.76"}], "}"}], "//", "N"}], ",", 
       RowBox[{
        RowBox[{"#", ">=", "mmin\[Epsilon]"}], "&"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{"prod", ",", "ProductionList"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"couplingsRangeExport", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      SuperscriptBox["10", "x"], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "11."}], ",", 
        RowBox[{"-", "1"}], ",", "0.017"}], "}"}]}], "]"}], "//", "N"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8850528402073092`*^9, 3.885052964529935*^9}, {
   3.8850529967024455`*^9, 3.88505313318991*^9}, {3.885053172661522*^9, 
   3.885053247354876*^9}, {3.885053717249408*^9, 3.8850537696983976`*^9}, {
   3.885054057416253*^9, 3.88505420740788*^9}, {3.8850542428480587`*^9, 
   3.885054257815028*^9}, {3.885054905514982*^9, 3.885054927992525*^9}, {
   3.88523276755499*^9, 3.885232776819412*^9}, {3.8854556204578223`*^9, 
   3.8854556494874506`*^9}, {3.8854560165278835`*^9, 
   3.8854561921232824`*^9}, {3.8854563516684437`*^9, 
   3.8854563631681647`*^9}, {3.885456439233843*^9, 3.885456605782855*^9}, {
   3.8854567400235205`*^9, 3.885456743964001*^9}, {3.885542660052145*^9, 
   3.8855427304549437`*^9}, {3.8855427881537523`*^9, 3.885542788237467*^9}, {
   3.8855430067620525`*^9, 3.885543013668437*^9}, 3.885966882096207*^9, {
   3.8859669421437807`*^9, 3.8859669421488247`*^9}, {3.885968641323983*^9, 
   3.8859686709916077`*^9}, {3.8859700818035088`*^9, 3.885970116005333*^9}, {
   3.8859726427933483`*^9, 3.8859726621626787`*^9}, {3.8859727076000075`*^9, 
   3.885972770558454*^9}, {3.8860482606809826`*^9, 3.886048270758037*^9}, 
   3.8927074033680506`*^9, {3.892710424494131*^9, 3.8927104396943245`*^9}, {
   3.8929125643997126`*^9, 3.8929125705695467`*^9}, {3.893498037302079*^9, 
   3.893498051475497*^9}, {3.8950528099087305`*^9, 3.8950528378354964`*^9}, {
   3.895069852359413*^9, 3.895069870098545*^9}, {3.8950705608302083`*^9, 
   3.895070565809863*^9}, {3.89507701915416*^9, 3.8950770253258543`*^9}, {
   3.8951278228356895`*^9, 3.8951278681121364`*^9}, {3.8955602017177663`*^9, 
   3.895560203921951*^9}, {3.9027274496040297`*^9, 3.902727450274849*^9}, {
   3.9037911184139233`*^9, 3.903791118423604*^9}, {3.903794012559026*^9, 
   3.903794083915003*^9}, {3.9037944167176495`*^9, 3.9037944454163094`*^9}, {
   3.9037952705519886`*^9, 3.903795270602932*^9}, {3.903797141226776*^9, 
   3.903797172010522*^9}, {3.9037975243027196`*^9, 3.903797527105424*^9}, {
   3.9052336822497454`*^9, 3.9052336869139786`*^9}, {3.9101686014836874`*^9, 
   3.9101686075014696`*^9}, {3.911026697129974*^9, 3.911026781892647*^9}, {
   3.913869518284073*^9, 3.913869518287491*^9}, {3.9138696020664196`*^9, 
   3.9138696621848106`*^9}, {3.9138821703273973`*^9, 
   3.9138821744093027`*^9}, {3.9143993364943857`*^9, 
   3.9143993481228437`*^9}, {3.915642996844098*^9, 3.915642996860921*^9}, {
   3.9158781593886876`*^9, 3.915878173944133*^9}, {3.916393351327223*^9, 
   3.916393364199032*^9}, {3.91651218626814*^9, 3.9165121927656302`*^9}},
 CellTags->"Number-of-events-computation+sensitivity",
 CellLabel->
  "In[257]:=",ExpressionUUID->"d36d89ea-2d97-457b-aa5b-4b098e8235d8"]
}, Closed]],

Cell[CellGroupData[{

Cell["Exporting", "Chapter",
 CellChangeTimes->{{3.885054212114191*^9, 3.885054213032151*^9}},
 CellTags->
  "Number-of-events-computation+sensitivity",ExpressionUUID->"a58bd3a7-f345-\
470d-ba5e-82c520e24a7e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"BlockExport", "[", "ProdChannel_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "mlist", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"mlist", "=", 
      RowBox[{"mRangeExport", "[", "ProdChannel", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"TabFrom", "=", 
      RowBox[{"ParallelTable", "[", 
       RowBox[{
        RowBox[{"Quiet", "[", 
         RowBox[{"NeventsDiscret", "[", 
          RowBox[{
           RowBox[{"mlist", "[", 
            RowBox[{"[", "k", "]"}], "]"}], ",", "ProdChannel", ",", 
           "couplingsRangeExport"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "1", ",", 
          RowBox[{"Length", "[", "mlist", "]"}], ",", "1"}], "}"}]}], "]"}]}],
      ";", "\[IndentingNewLine]", 
     RowBox[{"Export", "[", 
      RowBox[{
       RowBox[{"FileNameJoin", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"directory", "[", "\"\<Nevents-LLP-experiment\>\"", "]"}], 
          ",", 
          RowBox[{"FilenameNevents", "[", "ProdChannel", "]"}]}], "}"}], 
        "]"}], ",", 
       RowBox[{"Flatten", "[", 
        RowBox[{"TabFrom", ",", "1"}], "]"}], ",", "\"\<Table\>\""}], 
      "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Monitor", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Module", "[", 
       RowBox[{
        RowBox[{"{", "prod", "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"prod", "=", 
          RowBox[{"ProductionList", "[", 
           RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"BlockExport", "[", "prod", "]"}]}]}], "\[IndentingNewLine]",
        "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", 
        RowBox[{"Length", "[", "ProductionList", "]"}], ",", "1"}], "}"}]}], 
     "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Row", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ProgressIndicator", "[", 
        RowBox[{"j", ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", 
           RowBox[{"Length", "[", "ProductionList", "]"}]}], "}"}]}], "]"}], 
       ",", "\"\< Production mode = \>\"", ",", 
       RowBox[{"ProductionList", "[", 
        RowBox[{"[", "j", "]"}], "]"}], ",", "\"\< (\>\"", ",", " ", "j", 
       ",", "\"\</\>\"", ",", 
       RowBox[{"Length", "[", "ProductionList", "]"}], ",", "\"\<)\>\""}], 
      "}"}], "]"}]}], "]"}], "//", "AbsoluteTiming"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"icounter", ">", 
    RowBox[{"Length", "[", "SelectedExperimentList", "]"}]}], ",", 
   RowBox[{"BlockEvaluation", "[", "\"\<Sensitivity\>\"", "]"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.8921886102299604`*^9, 3.892188661864987*^9}, {
   3.892188696661598*^9, 3.892188782889353*^9}, {3.8921888713769283`*^9, 
   3.8921888914281387`*^9}, {3.892190937661848*^9, 3.8921909466626697`*^9}, {
   3.8922765048644934`*^9, 3.8922765048725324`*^9}, {3.892541051864915*^9, 
   3.8925411081031237`*^9}, {3.8925422299627275`*^9, 
   3.8925422591259813`*^9}, {3.892542627960807*^9, 3.8925426356350746`*^9}, {
   3.8927104746862555`*^9, 3.892710508465253*^9}, {3.8950703812229633`*^9, 
   3.895070389767537*^9}, 3.9027274561413517`*^9, {3.9037911184286413`*^9, 
   3.90379111843118*^9}, 3.9037940600873704`*^9, 3.9138695182916346`*^9, {
   3.9138696778224015`*^9, 3.9138697217311115`*^9}, {3.9143996243187623`*^9, 
   3.914399633625167*^9}, {3.9146656807477803`*^9, 3.9146656814277797`*^9}, 
   3.9156429968689537`*^9},
 CellTags->"Number-of-events-computation+sensitivity",
 CellLabel->
  "In[266]:=",ExpressionUUID->"b5ddb613-f8ce-4354-bf3e-3dc63b62f3d5"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Computing sensitivities", "Title",
 CellChangeTimes->{{3.885020809493571*^9, 3.88502081261261*^9}},
 CellTags->
  "Sensitivity",ExpressionUUID->"9cbf5dbf-7d97-438c-bab1-6a4374076885"],

Cell[CellGroupData[{

Cell["Basic definitions", "Chapter",
 CellChangeTimes->{{3.9138314745388813`*^9, 3.913831477098402*^9}},
 CellTags->
  "Sensitivity",ExpressionUUID->"9d756e77-cb38-4749-bd1a-ec57f9fa383a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"LLPdirName", "=", "\"\<ALP-gluon\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"directory", "[", "\"\<Sensitivity\>\"", "]"}], "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], ",", 
      "\"\<Sensitivity domains\>\""}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"directory", "[", "\"\<Sensitivity-LLP\>\"", "]"}], "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"directory", "[", "\"\<Sensitivity\>\"", "]"}], ",", 
      "LLPdirName"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"!", 
       RowBox[{"DirectoryQ", "[", 
        RowBox[{"directory", "[", "#", "]"}], "]"}]}], ",", 
      RowBox[{"CreateDirectory", "[", 
       RowBox[{"directory", "[", "#", "]"}], "]"}]}], "]"}], "&"}], "/@", 
   RowBox[{"{", 
    RowBox[{"\"\<Sensitivity\>\"", ",", "\"\<Sensitivity-LLP\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"directory", "[", "\"\<Nevents-LLP\>\"", "]"}], "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], ",", 
      "\"\<Tabulated Nevents\>\"", ",", "LLPdirName"}], "}"}], "]"}]}], 
  ";"}], "\[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[{"infoDialog", "[", "phrase_", "]"}], ":=", 
  RowBox[{"DialogInput", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"choice", "=", "\"\<\>\""}], "}"}], ",", 
    RowBox[{"Column", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"TextCell", "[", "phrase", "]"}], ",", 
       RowBox[{"Button", "[", 
        RowBox[{"\"\<Proceed\>\"", ",", 
         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[{"ExperimentDirectoriesListNevents", "=", 
   RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{"FileNames", "[", 
      RowBox[{"\"\<*\>\"", ",", 
       RowBox[{"directory", "[", "\"\<Nevents-LLP\>\"", "]"}], ",", "1"}], 
      "]"}], ",", "DirectoryQ"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{
  "\"\<List of available experiments with tabulated \!\(\*SubscriptBox[\(N\), \
\(events\)]\) for\>\"", " ", "<>", "LLPdirName", "<>", "\"\<:\>\""}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ExperimentsListNevents", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"FileNameTake", "[", 
       RowBox[{
        RowBox[{"ExperimentDirectoriesListNevents", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"-", "1"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"Length", "[", "ExperimentDirectoriesListNevents", "]"}], ",",
         "1"}], "}"}]}], "]"}], "//", "Sort"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ExperimentsListNevents", "//", "TableForm"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Length", "[", "ExperimentsListNevents", "]"}], "\[Equal]", "0"}],
    ",", 
   RowBox[{
   "Print", "[", 
    "\"\<No experiment is available, generate first the acceptance for the \
given experiment using module 1\>\"", "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SelectedExperimentList", "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Length", "[", "ExperimentsListNevents", "]"}], "\[NotEqual]",
         "0"}], ",", 
       RowBox[{"selectionDialog", "[", 
        RowBox[{
        "ExperimentsListNevents", ",", 
         "\"\<Select the experiments for which the sensitivity will be \
computed:\>\""}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"icounter", "=", "1"}], ";", "\[IndentingNewLine]", 
    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", "[", "\"\<Sensitivity-computation\>\"", "]"}], 
       ";"}], "\[IndentingNewLine]", ",", 
      RowBox[{"{", 
       RowBox[{"icounter", ",", "1", ",", 
        RowBox[{"Length", "[", "SelectedExperimentList", "]"}], ",", "1"}], 
       "}"}]}], "]"}]}]}], "\[IndentingNewLine]", 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.9138315400875525`*^9, 3.91383154039198*^9}, {
   3.913871030317705*^9, 3.9138710360181913`*^9}, {3.9139644847016315`*^9, 
   3.913964485416628*^9}, {3.9139724456373444`*^9, 3.913972445778761*^9}, {
   3.914665701497957*^9, 3.9146657017767367`*^9}, 3.914665747326212*^9, {
   3.914665805927826*^9, 3.914665841488042*^9}, {3.9152626107192097`*^9, 
   3.9152626112812023`*^9}, {3.9156429968842297`*^9, 3.9156429969124117`*^9}},
 CellTags->"Sensitivity",
 CellLabel->
  "In[269]:=",ExpressionUUID->"09272721-e148-43d5-8826-7b8fa3f9f2fc"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Specifying the experiment and interpolating the tabulated number of events\
\>", "Chapter",
 CellChangeTimes->{{3.8865657605515084`*^9, 3.886565789800824*^9}, {
  3.889154717919751*^9, 3.88915472812621*^9}},
 CellTags->
  "Sensitivity-computation",ExpressionUUID->"cba6efcf-5800-47ae-95bb-\
fbf537eda806"],

Cell[CellGroupData[{

Cell["Specifying the experiment", "Section",
 CellChangeTimes->{{3.9139671158319907`*^9, 3.9139671186954403`*^9}},
 CellTags->
  "Sensitivity-computation",ExpressionUUID->"76c411c2-f893-4e38-99a1-\
177c07b87388"],

Cell[BoxData[{
 RowBox[{"Print", "[", "\"\<Selected experiment:\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GivenExperimentForSensitivityComputation", "=", 
   RowBox[{"SelectedExperimentList", "[", 
    RowBox[{"[", 
     RowBox[{"icounter", "++"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CondANUBIS", "=", 
   RowBox[{"MemberQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<ANUBIS-shaft-volume-1\>\"", ",", "\"\<ANUBIS-shaft-volume-2\>\"", 
       ",", "\"\<ANUBIS-shaft-volume-3\>\""}], "}"}], ",", 
     "GivenExperimentForSensitivityComputation"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"CondANUBIS", "\[Equal]", "True"}], ",", 
   RowBox[{"infoDialog", "[", 
    RowBox[{"Row", "[", 
     RowBox[{
     "{", "\"\<One of the modules of ANUBIS-shaft is chosen. The full \
sensitivity includes three modules. The importing will be over all modules, \
so for all ot the the sensitivity has to be computed\>\"", "}"}], "]"}], 
    "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"CondANUBIS", "\[Equal]", "False"}], ",", 
    RowBox[{"GivenExperimentForSensitivityComputationList", "=", 
     RowBox[{"{", "GivenExperimentForSensitivityComputation", "}"}]}], ",", 
    RowBox[{"GivenExperimentForSensitivityComputationList", "=", 
     RowBox[{"{", 
      RowBox[{
      "\"\<ANUBIS-shaft-volume-1\>\"", ",", "\"\<ANUBIS-shaft-volume-2\>\"", 
       ",", "\"\<ANUBIS-shaft-volume-3\>\""}], "}"}]}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PathsNeventsSelected", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Do", "[", 
    RowBox[{
     RowBox[{"PathsNeventsSelected", "=", 
      RowBox[{"Join", "[", 
       RowBox[{"PathsNeventsSelected", ",", 
        RowBox[{"FileNames", "[", 
         RowBox[{"\"\<*.dat\>\"", ",", 
          RowBox[{"FileNameJoin", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"directory", "[", "\"\<Nevents-LLP\>\"", "]"}], ",", 
             "exp"}], "}"}], "]"}]}], "]"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"exp", ",", "GivenExperimentForSensitivityComputationList"}], 
      "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Creating", " ", "the", " ", "directory", " ", "for", " ", "exporting", 
    " ", "sensitivity", " ", "curves"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ExperimentFolder", "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"CondANUBIS", "\[Equal]", "True"}], ",", "\"\<ANUBIS\>\"", ",", 
     "GivenExperimentForSensitivityComputation"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"directory", "[", "\"\<Sensitivity-LLP-exp\>\"", "]"}], "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"directory", "[", "\"\<Sensitivity-LLP\>\"", "]"}], ",", 
      "ExperimentFolder"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"!", 
    RowBox[{"DirectoryQ", "[", 
     RowBox[{"directory", "[", "\"\<Sensitivity-LLP-exp\>\"", "]"}], "]"}]}], 
   ",", 
   RowBox[{"CreateDirectory", "[", 
    RowBox[{"directory", "[", "\"\<Sensitivity-LLP-exp\>\"", "]"}], "]"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.913967153247506*^9, 3.913967156174393*^9}, {
  3.914665948927691*^9, 3.9146659689134073`*^9}, {3.9156429969207525`*^9, 
  3.915642996929902*^9}, {3.9158210104229703`*^9, 3.9158210104287148`*^9}},
 CellTags->"Sensitivity-computation",
 CellLabel->
  "In[321]:=",ExpressionUUID->"f9e8020b-b9a1-46bc-afca-81c65707b14a"]
}, Closed]],

Cell[CellGroupData[{

Cell["Importing and interpolations", "Section",
 CellChangeTimes->{{3.9139671158319907`*^9, 3.913967129158965*^9}},
 CellTags->
  "Sensitivity-computation",ExpressionUUID->"afe9991e-af99-4650-a9ab-\
3f2649dbe555"],

Cell[BoxData[{
 RowBox[{"Print", "[", "\"\<List of production channels:\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FilenamesNevents", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Last", "@", 
      RowBox[{"FileNameSplit", "@", 
       RowBox[{"PathsNeventsSelected", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "PathsNeventsSelected", "]"}], ",", "1"}], 
      "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"FilenameParameters", "[", "i_", "]"}], ":=", 
   RowBox[{
    RowBox[{"StringCases", "[", 
     RowBox[{
      RowBox[{"FilenamesNevents", "[", 
       RowBox[{"[", "i", "]"}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"\"\<Nevents_\>\"", "<>", "LLPdirName", "<>", "\"\<_\>\""}], "~~",
         "mother__", "~~", "\"\<_at_\>\"", "~~", "experiment__", "~~", 
        "\"\<_Npot=\>\"", "~~", "Npot__", "~~", "\"\<.dat\>\""}], ":>", 
       RowBox[{"{", 
        RowBox[{"mother", ",", "experiment", ",", "Npot"}], "}"}]}]}], "]"}], 
    "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "___", "___", "___", "___", "___", "___", "___", "___", "___", "___", 
    "___", "___", "___", "___", "___", "___", "___", "___"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Importing", " ", "and", " ", "interpolation"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "___", "___", "___", "___", "___", "___", "___", "___", "___", "___", 
    "___", "___", "___", "___", "___", "___", "___", "___"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ProductionInfoList", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"FilenameParameters", "[", "i", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "FilenamesNevents", "]"}], ",", "1"}], "}"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Mother\>\"", ",", "\"\<Experiment\>\"", ",", 
       "\"\<\!\(\*SubscriptBox[\(N\), \(PoT\)]\)\>\""}], "}"}], "}"}], ",", 
    "ProductionInfoList"}], "]"}], "//", "TableForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ProductionChannelsList", "=", 
   RowBox[{"ProductionInfoList", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NpotDefault", "=", 
   RowBox[{
    RowBox[{"Interpreter", "[", "\"\<Number\>\"", "]"}], "[", 
    RowBox[{
     RowBox[{"ProductionInfoList", "[", 
      RowBox[{"[", "1", "]"}], "]"}], "[", 
     RowBox[{"[", "3", "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NeventsTabulated", "//", "Clear"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Epsilon]reco", "[", "mLLP_", "]"}], "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"StringContainsQ", "[", 
       RowBox[{
       "GivenExperimentForSensitivityComputation", ",", 
        "\"\<CHARM-photon\>\""}], "]"}], "==", "True"}], ",", "0.51", ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"StringContainsQ", "[", 
         RowBox[{
         "GivenExperimentForSensitivityComputation", ",", 
          "\"\<LHCb-downstream\>\""}], "]"}], "\[Equal]", "True"}], ",", 
       "0.4", ",", "1"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "prod", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"prod", "=", 
       RowBox[{"ProductionChannelsList", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "The", " ", "condition", " ", "if", " ", "one", " ", "sums", " ", 
        "the", " ", "number", " ", "of", " ", "events", " ", "for", " ", 
        "the", " ", "same", " ", "production", " ", "mode", " ", "over", " ", 
        "several", " ", "experiments"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"IfprodExists", "=", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Keys", "[", 
           RowBox[{"DownValues", "@", "NeventsTabulated"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "1", ",", "1"}], "]"}], "]"}], ",", "prod"}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"NeventsTabulated", "[", "prod", "]"}], "=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"!", "IfprodExists"}], ",", 
         RowBox[{"Import", "[", 
          RowBox[{
           RowBox[{"PathsNeventsSelected", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", "\"\<Table\>\""}], "]"}], 
         ",", 
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"NeventsTabulated", "[", "prod", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"NeventsTabulated", "[", "prod", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", 
               RowBox[{"{", "3", "}"}]}], "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"Import", "[", 
              RowBox[{
               RowBox[{"PathsNeventsSelected", "[", 
                RowBox[{"[", "i", "]"}], "]"}], ",", "\"\<Table\>\""}], "]"}],
              "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", 
               RowBox[{"{", "3", "}"}]}], "]"}], "]"}]}]}], "]"}]}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"mminmax", "[", "prod", "]"}], ",", 
         RowBox[{"couplingminmax", "[", "prod", "]"}]}], "}"}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"NeventsTabulated", "[", "prod", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "#"}], "]"}], "]"}], "//", "MinMax"}], ")"}],
          "&"}], "/@", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"NevMax", "[", "prod", "]"}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"NeventsTabulated", "[", "prod", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}], "//", "Max"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"NevInt", "[", 
        RowBox[{"mLLP_", ",", "finv_", ",", "prod"}], "]"}], "=", 
       RowBox[{
        RowBox[{"\[Epsilon]reco", "[", "mLLP", "]"}], "*", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"mminmax", "[", "prod", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", " ", "mLLP", 
            "\[LessEqual]", 
            RowBox[{
             RowBox[{"mminmax", "[", "prod", "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], "&&", 
           RowBox[{
            RowBox[{
             RowBox[{"couplingminmax", "[", "prod", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", "finv", 
            "\[LessEqual]", 
            RowBox[{
             RowBox[{"couplingminmax", "[", "prod", "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
          RowBox[{"Evaluate", "[", 
           RowBox[{"10", "^", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Interpolation", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Log10", "[", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
                    RowBox[{"Log10", "[", 
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
                    RowBox[{"Log10", "[", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "3", "]"}], "]"}], "+", 
                    SuperscriptBox["10", 
                    RowBox[{"-", "90"}]]}], "]"}]}], "}"}], "&"}], "/@", 
                 RowBox[{"NeventsTabulated", "[", "prod", "]"}]}], ",", 
                RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}], "[", 
              RowBox[{
               RowBox[{"Log10", "[", "mLLP", "]"}], ",", 
               RowBox[{"Log10", "[", "finv", "]"}]}], "]"}], ")"}]}], "]"}], 
          ",", "0"}], "]"}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", 
     RowBox[{"Length", "[", "ProductionInfoList", "]"}], ",", "1"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"mminmaxOverall", ",", "couplingminmaxOverall"}], "}"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"MinMax", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"#", "[", "prod", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"prod", ",", "ProductionChannelsList"}], "}"}]}], "]"}], "//",
        "Flatten"}], "]"}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"mminmax", ",", "couplingminmax"}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NevMaxOverall", "=", 
   RowBox[{"Max", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"NevMax", "[", "prod", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"prod", ",", "ProductionChannelsList"}], "}"}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"NevIntOverall", "[", 
    RowBox[{"mLLP_", ",", "finv_"}], "]"}], "=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{"NevInt", "[", 
      RowBox[{"mLLP", ",", "finv", ",", "prod"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"prod", ",", "ProductionChannelsList"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plotNev", "[", "mLLP_", "]"}], ":=", 
  RowBox[{"LogLogPlot", "[", 
   RowBox[{
    RowBox[{"Evaluate", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"NevInt", "[", 
        RowBox[{"mLLP", ",", "finv", ",", "prod"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"prod", ",", "ProductionChannelsList"}], "}"}]}], "]"}], 
     "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"finv", ",", 
      RowBox[{"couplingminmaxOverall", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"couplingminmaxOverall", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"Placed", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"#", ",", "15"}], "]"}], "&"}], "/@", 
        "ProductionChannelsList"}], ",", "Right"}], "]"}]}], ",", 
    RowBox[{"PlotRange", "->", 
     RowBox[{"{", 
      RowBox[{"couplingminmaxOverall", ",", 
       RowBox[{"{", 
        RowBox[{
         SuperscriptBox["10", 
          RowBox[{"-", "3"}]], ",", "NevMaxOverall"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"Frame", "->", "True"}], ",", 
    RowBox[{"ImageSize", "->", "Large"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\!\(\*SubscriptBox[SuperscriptBox[\(f\), \(-1\)], \(G\)]\) \
[\!\(\*SuperscriptBox[\(GeV\), \(-1\)]\)]\>\"", " ", ",", " ", 
       "\"\<\!\(\*SubscriptBox[\(N\), \(events\)]\)[\!\(\*SubscriptBox[\(m\), \
\(a\)]\),\!\(\*SubscriptBox[\(f\), \(G\)]\)]\>\""}], "}"}]}], ",", 
    RowBox[{"FrameStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Black", ",", " ", "23"}], "]"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Thick", ",", "Blue"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Thick", ",", 
         RowBox[{"Darker", "@", "Red"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Thick", ",", 
         RowBox[{"Darker", "@", 
          RowBox[{"Darker", "@", "Green"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Thick", ",", "Black"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Thick", ",", "Blue", ",", 
         RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Thick", ",", 
         RowBox[{"Darker", "@", "Red"}], ",", 
         RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Thick", ",", 
         RowBox[{"Darker", "@", 
          RowBox[{"Darker", "@", "Green"}]}], ",", 
         RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Thick", ",", "Black", ",", 
         RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}]}], "}"}]}], ",", 
    RowBox[{"PlotLabel", "\[Rule]", 
     RowBox[{"Style", "[", 
      RowBox[{
       RowBox[{"Row", "[", 
        RowBox[{"{", 
         RowBox[{
         "GivenExperimentForSensitivityComputation", ",", 
          "\"\<. \!\(\*SubscriptBox[\(m\), \(a\)]\) = \>\"", ",", "mLLP", ",",
           " ", "\"\< GeV\>\""}], "}"}], "]"}], ",", "20", ",", "Black"}], 
      "]"}]}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"plotNev", "[", "0.6", "]"}]}], "Input",
 CellChangeTimes->{{3.8889934219191484`*^9, 3.8889934572936487`*^9}, {
   3.888993488436164*^9, 3.8889935196298246`*^9}, {3.888993631131192*^9, 
   3.8889936317673717`*^9}, {3.8889941168931828`*^9, 3.888994131488901*^9}, {
   3.8891549520226474`*^9, 3.8891549556386333`*^9}, {3.88915555629116*^9, 
   3.889155565695465*^9}, {3.8932343882289743`*^9, 3.89323440249368*^9}, {
   3.8935709181807127`*^9, 3.8935709459623632`*^9}, {3.8935709969349823`*^9, 
   3.893571049142565*^9}, {3.893571774685277*^9, 3.8935717805547934`*^9}, {
   3.8935723217820005`*^9, 3.893572363431644*^9}, {3.893744918014161*^9, 
   3.893744938342885*^9}, {3.8950528479286084`*^9, 3.895052904223016*^9}, {
   3.896846565306531*^9, 3.896846570642375*^9}, 3.8991934061928263`*^9, {
   3.9037911184438295`*^9, 3.903791118468619*^9}, {3.903793882094927*^9, 
   3.9037938820984917`*^9}, {3.903797026745615*^9, 3.9037970452607574`*^9}, {
   3.9049216111057444`*^9, 3.904921662274201*^9}, {3.9049217218934107`*^9, 
   3.9049217261997075`*^9}, {3.90492396885961*^9, 3.9049239690813828`*^9}, {
   3.9049240804362497`*^9, 3.9049240805085564`*^9}, {3.904924179607125*^9, 
   3.904924179705194*^9}, {3.9052412440770025`*^9, 3.90524124436055*^9}, {
   3.905242084580451*^9, 3.9052420935576477`*^9}, {3.9052421641249113`*^9, 
   3.905242164296854*^9}, {3.9052422710738254`*^9, 3.905242280663824*^9}, 
   3.9052780094855423`*^9, {3.9054038445509152`*^9, 3.905403844832307*^9}, 
   3.9058346238696585`*^9, {3.9058347300087337`*^9, 3.905834752542229*^9}, {
   3.907411732383304*^9, 3.907411756240266*^9}, {3.907412241347188*^9, 
   3.9074122616342597`*^9}, {3.907646540157587*^9, 3.907646541817969*^9}, {
   3.907646769227744*^9, 3.907646770045806*^9}, {3.9102621771594887`*^9, 
   3.9102622003857803`*^9}, {3.9104198602211523`*^9, 3.91041992062967*^9}, {
   3.912155734548005*^9, 3.9121557351760345`*^9}, {3.9138675516719847`*^9, 
   3.9138675697677517`*^9}, {3.9138687892109585`*^9, 3.913868789217184*^9}, 
   3.9138694472004433`*^9, {3.913869518299142*^9, 3.913869518315772*^9}, {
   3.9138710596580105`*^9, 3.9138712184697266`*^9}, 3.9138714395639257`*^9, {
   3.913871484442711*^9, 3.913871484514428*^9}, {3.913964035930587*^9, 
   3.913964083316618*^9}, {3.9139641518721075`*^9, 3.9139642425880857`*^9}, 
   3.913964298376277*^9, {3.9139644713529673`*^9, 3.9139645300624847`*^9}, {
   3.913964642418497*^9, 3.913964680686364*^9}, {3.913964746879249*^9, 
   3.9139647521084733`*^9}, {3.9139656339886966`*^9, 3.913965639559452*^9}, {
   3.9139671378072557`*^9, 3.9139671579005785`*^9}, 3.914062796826866*^9, {
   3.915642996950162*^9, 3.915642996990489*^9}, {3.9158210104287148`*^9, 
   3.9158210104485292`*^9}, {3.9163951188537245`*^9, 3.916395126273196*^9}},
 CellTags->"Sensitivity-computation",
 CellLabel->
  "In[331]:=",ExpressionUUID->"4760b97a-5fba-4033-9e4e-0bb3c4067fd8"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Sensitivity computation", "Chapter",
 CellChangeTimes->{{3.8889936571476183`*^9, 3.8889936597112193`*^9}},
 CellTags->
  "Sensitivity-computation",ExpressionUUID->"6973c073-2e4b-4c34-a088-\
4365694bce10"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["N", "events"], TraditionalForm]],ExpressionUUID->
  "63089b52-1194-4599-8751-82b040220b0d"],
 " density plot"
}], "Section",
 CellChangeTimes->{{3.892912581226515*^9, 3.892912582686805*^9}, {
  3.8929126354946766`*^9, 3.8929126370083904`*^9}},
 CellTags->
  "Sensitivity-computation",ExpressionUUID->"6167139e-4c45-4268-875c-\
9bdaf70aadf5"],

Cell[BoxData[{
 RowBox[{"plot", "=", 
  RowBox[{"DensityPlot", "[", 
   RowBox[{
    RowBox[{"Evaluate", "[", 
     RowBox[{"Log10", "[", 
      RowBox[{"NevIntOverall", "[", 
       RowBox[{"mLLP", ",", "y"}], "]"}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"mLLP", ",", 
      RowBox[{"mminmaxOverall", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"mminmaxOverall", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", 
      RowBox[{"couplingminmaxOverall", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"couplingminmaxOverall", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"ScalingFunctions", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<Log\>\"", ",", "\"\<Log\>\""}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", "0.78"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"All", ",", "All", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log10", "[", "2.3", "]"}], ",", 
         RowBox[{"Log10", "[", "NevMaxOverall", "]"}]}], "}"}]}], "}"}]}], 
    ",", 
    RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\!\(\*SubscriptBox[\(m\), \(a\)]\) [GeV]\>\"", ",", 
       "\"\<\!\(\*SubscriptBox[SuperscriptBox[\(f\), \(-1\)], \(G\)]\) \
[\!\(\*SuperscriptBox[\(GeV\), \(-1\)]\)]\>\""}], "}"}]}], ",", " ", 
    RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", " ", 
    RowBox[{"FrameStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Black", ",", " ", "25"}], "]"}]}], ",", 
    RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"Placed", "[", 
      RowBox[{
       RowBox[{"BarLegend", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Automatic", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Log10", "[", "2.3", "]"}], ",", 
             RowBox[{"Log10", "[", "NevMaxOverall", "]"}]}], "}"}]}], "}"}], 
         ",", 
         RowBox[{"LegendMarkerSize", "\[Rule]", "340"}], ",", 
         RowBox[{"LegendLabel", "\[Rule]", 
          RowBox[{"Placed", "[", 
           RowBox[{
           "\"\<\!\(\*SubscriptBox[\(Log\), \
\(10\)]\)[\!\(\*SubscriptBox[\(N\), \(ev\)]\)]\>\"", ",", "Bottom"}], "]"}]}],
          ",", 
         RowBox[{"LabelStyle", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"FontSize", "\[Rule]", "22"}], "}"}]}], ",", 
         RowBox[{"Method", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FrameStyle", "\[Rule]", "Black"}], ",", 
            RowBox[{"AxesStyle", "\[Rule]", "None"}], ",", 
            RowBox[{"TicksStyle", "\[Rule]", "Black"}]}], "}"}]}]}], "]"}], 
       ",", "Right"}], "]"}]}], ",", 
    RowBox[{"PlotLabel", "\[Rule]", 
     RowBox[{"Style", "[", 
      RowBox[{
       RowBox[{"Row", "[", 
        RowBox[{"{", "ExperimentFolder", "}"}], "]"}], ",", "20", ",", 
       "Black"}], "]"}]}]}], 
   RowBox[{"(*", 
    RowBox[{",", 
     RowBox[{"FrameTicks", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Automatic", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"TicksPlotx", ",", "None"}], "}"}]}], "}"}]}]}], "*)"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"NotebookDirectory", "[", "]"}], ",", 
        "\"\<plots/SensCalc/NeventsDensityPlotExample.pdf\>\""}], "}"}], 
      "]"}], ",", "plot", ",", 
     RowBox[{"\"\<AllowRasterization\>\"", "->", "False"}]}], "]"}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.8929126599219103`*^9, 3.8929126956857305`*^9}, {
  3.893571057642872*^9, 3.893571063922956*^9}, {3.893744928154723*^9, 
  3.893744928154723*^9}, {3.8937450416896353`*^9, 3.8937450720779657`*^9}, {
  3.8937454492214108`*^9, 3.8937454519340353`*^9}, {3.9037896751851945`*^9, 
  3.9037896751902313`*^9}, {3.903790322054761*^9, 3.903790327609686*^9}, {
  3.9037945809753046`*^9, 3.903794589179802*^9}, {3.90379703592099*^9, 
  3.9037970359259777`*^9}, {3.91386755796309*^9, 3.9138675579666634`*^9}, {
  3.913964112108584*^9, 3.913964135212936*^9}, {3.913964310235572*^9, 
  3.9139643110894804`*^9}, {3.9139645367217827`*^9, 3.9139645440824423`*^9}, {
  3.9139656340064692`*^9, 3.9139656340106616`*^9}, {3.915642997001714*^9, 
  3.9156429970043154`*^9}},
 CellTags->"Sensitivity-computation",
 CellLabel->
  "In[346]:=",ExpressionUUID->"ab4d3c25-8960-43d0-841a-38bc85173588"]
}, Closed]],

Cell[CellGroupData[{

Cell["Constraints importing", "Section",
 CellChangeTimes->{{3.895052713576123*^9, 3.895052715327282*^9}, {
  3.913967299387415*^9, 3.913967300849271*^9}},
 CellTags->
  "Sensitivity-computation",ExpressionUUID->"d57a2d3d-381f-479e-bde3-\
49c0fb15579a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"importformat", "[", "\"\<txt\>\"", "]"}], "=", 
   RowBox[{
    RowBox[{"importformat", "[", "\"\<dat\>\"", "]"}], "=", 
    "\"\<Table\>\""}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"importformat", "[", "\"\<m\>\"", "]"}], "=", 
   RowBox[{
    RowBox[{"importformat", "[", "\"\<mx\>\"", "]"}], "=", "\"\<MX\>\""}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"importformat", "[", "\"\<xls\>\"", "]"}], "=", "\"\<XLS\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dir", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<contours\>\"", ",", 
      "LLPdirName"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"DirectoryQ", "[", "dir", "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"filenames", "=", 
      RowBox[{"FileNames", "[", 
       RowBox[{
        RowBox[{"LLPdirName", "<>", "\"\<-excluded*\>\""}], ",", "dir", ",", 
        "Infinity"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ExcludedRegions", "[", "LLPdirName", "]"}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"Import", "[", 
         RowBox[{"#", ",", 
          RowBox[{"importformat", "[", 
           RowBox[{"FileExtension", "[", "#", "]"}], "]"}]}], "]"}], "&"}], "/@", 
       RowBox[{"FileNames", "[", 
        RowBox[{
         RowBox[{"LLPdirName", "<>", "\"\<-excluded*\>\""}], ",", "dir", ",", 
         "Infinity"}], "]"}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"!", 
    RowBox[{"DirectoryQ", "[", "dir", "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ExcludedRegions", "[", "LLPdirName", "]"}], "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"10.", ",", "10."}], "}"}], "}"}], "}"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.903794607976071*^9, 3.9037946091391277`*^9}, 
   3.9037950242375803`*^9, {3.914663829724105*^9, 3.9146638864002028`*^9}, {
   3.9146639634790745`*^9, 3.9146639691212807`*^9}, 3.9146665721390686`*^9, {
   3.9156429970126553`*^9, 3.9156429970218625`*^9}},
 CellTags->"Sensitivity-computation",
 CellLabel->
  "In[347]:=",ExpressionUUID->"4018b168-837a-415b-ac72-f91c637de913"]
}, Closed]],

Cell[CellGroupData[{

Cell["Sensitivity", "Section",
 CellChangeTimes->{{3.895052721789363*^9, 3.8950527227812586`*^9}},
 CellTags->
  "Sensitivity-computation",ExpressionUUID->"9f6548e1-453f-47b5-b82c-\
a2ef474f018e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SensitivityBlock", "[", 
   RowBox[{"Nev_", ",", "Npot_", ",", "SelectedProduction_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"NevTot", "[", 
       RowBox[{"mLLP_", ",", "finv_"}], "]"}], "=", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{"NevInt", "[", 
         RowBox[{"mLLP", ",", "finv", ",", "prod"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"prod", ",", "SelectedProduction"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"RegSens1", "=", 
      RowBox[{"RegionPlot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          FractionBox["Npot", "NpotDefault"], 
          RowBox[{"NevTot", "[", 
           RowBox[{
            SuperscriptBox["10", "mLLP"], ",", 
            SuperscriptBox["10", "ga"]}], "]"}], "*", 
          RowBox[{"Boole", "[", 
           RowBox[{"!", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"0.125", "<", 
               SuperscriptBox["10", "mLLP"], "<", "0.14"}], "||", 
              RowBox[{"0.538", "<", 
               SuperscriptBox["10", "mLLP"], "<", "0.555"}], "||", 
              RowBox[{"0.94", "<", 
               SuperscriptBox["10", "mLLP"], "<", "0.974"}]}], ")"}]}], 
           "]"}]}], "\[GreaterEqual]", "Nev"}], ",", 
        RowBox[{"{", 
         RowBox[{"mLLP", ",", 
          RowBox[{"Log10", "[", 
           RowBox[{"mminmaxOverall", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
          RowBox[{"Log10", "[", "0.125", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ga", ",", 
          RowBox[{"Log10", "[", 
           RowBox[{"couplingminmaxOverall", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
          RowBox[{"Log10", "[", 
           RowBox[{"couplingminmaxOverall", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"PlotPoints", "->", "200"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"RegSens2", "=", 
      RowBox[{"RegionPlot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          FractionBox["Npot", "NpotDefault"], 
          RowBox[{"NevTot", "[", 
           RowBox[{
            SuperscriptBox["10", "mLLP"], ",", 
            SuperscriptBox["10", "ga"]}], "]"}], "*", 
          RowBox[{"Boole", "[", 
           RowBox[{"!", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"0.125", "<", 
               SuperscriptBox["10", "mLLP"], "<", "0.14"}], "||", 
              RowBox[{"0.538", "<", 
               SuperscriptBox["10", "mLLP"], "<", "0.555"}], "||", 
              RowBox[{"0.94", "<", 
               SuperscriptBox["10", "mLLP"], "<", "0.974"}]}], ")"}]}], 
           "]"}]}], "\[GreaterEqual]", "Nev"}], ",", 
        RowBox[{"{", 
         RowBox[{"mLLP", ",", 
          RowBox[{"Log10", "[", "0.14", "]"}], ",", 
          RowBox[{"Log10", "[", "0.538", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ga", ",", 
          RowBox[{"Log10", "[", 
           RowBox[{"couplingminmaxOverall", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
          RowBox[{"Log10", "[", 
           RowBox[{"couplingminmaxOverall", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"PlotPoints", "->", "200"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"RegSens3", "=", 
      RowBox[{"RegionPlot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          FractionBox["Npot", "NpotDefault"], 
          RowBox[{"NevTot", "[", 
           RowBox[{
            SuperscriptBox["10", "mLLP"], ",", 
            SuperscriptBox["10", "ga"]}], "]"}], "*", 
          RowBox[{"Boole", "[", 
           RowBox[{"!", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"0.125", "<", 
               SuperscriptBox["10", "mLLP"], "<", "0.14"}], "||", 
              RowBox[{"0.538", "<", 
               SuperscriptBox["10", "mLLP"], "<", "0.555"}], "||", 
              RowBox[{"0.94", "<", 
               SuperscriptBox["10", "mLLP"], "<", "0.974"}]}], ")"}]}], 
           "]"}]}], "\[GreaterEqual]", "Nev"}], ",", 
        RowBox[{"{", 
         RowBox[{"mLLP", ",", 
          RowBox[{"Log10", "[", "0.538", "]"}], ",", 
          RowBox[{"Log10", "[", "0.94", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ga", ",", 
          RowBox[{"Log10", "[", 
           RowBox[{"couplingminmaxOverall", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
          RowBox[{"Log10", "[", 
           RowBox[{"couplingminmaxOverall", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"PlotPoints", "->", "200"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"RegSens4", "=", 
      RowBox[{"RegionPlot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          FractionBox["Npot", "NpotDefault"], 
          RowBox[{"NevTot", "[", 
           RowBox[{
            SuperscriptBox["10", "mLLP"], ",", 
            SuperscriptBox["10", "ga"]}], "]"}], "*", 
          RowBox[{"Boole", "[", 
           RowBox[{"!", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"0.125", "<", 
               SuperscriptBox["10", "mLLP"], "<", "0.14"}], "||", 
              RowBox[{"0.538", "<", 
               SuperscriptBox["10", "mLLP"], "<", "0.555"}], "||", 
              RowBox[{"0.94", "<", 
               SuperscriptBox["10", "mLLP"], "<", "0.974"}]}], ")"}]}], 
           "]"}]}], "\[GreaterEqual]", "Nev"}], ",", 
        RowBox[{"{", 
         RowBox[{"mLLP", ",", 
          RowBox[{"Log10", "[", "0.974", "]"}], ",", 
          RowBox[{"Log10", "[", 
           RowBox[{"mminmaxOverall", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"ga", ",", 
          RowBox[{"Log10", "[", 
           RowBox[{"couplingminmaxOverall", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
          RowBox[{"Log10", "[", 
           RowBox[{"couplingminmaxOverall", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"PlotPoints", "->", "200"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"Sens", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"10", "^", 
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", 
            RowBox[{"10", "^", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "&"}], "/@", 
         RowBox[{"Partition", "[", 
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{"Cases", "[", 
             RowBox[{
              RowBox[{"Normal", "@", "RegSens"}], ",", 
              RowBox[{
               RowBox[{"Line", "[", "x_", "]"}], "\[RuleDelayed]", "x"}], ",",
               "Infinity"}], "]"}], "]"}], ",", "2"}], "]"}]}]}], ";"}], 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{"SensTemp", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"Cases", "[", 
         RowBox[{
          RowBox[{"Normal", "@", "#"}], ",", 
          RowBox[{
           RowBox[{"Line", "[", "x_", "]"}], "\[RuleDelayed]", "x"}], ",", 
          "Infinity"}], "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{
        "RegSens1", ",", "RegSens2", ",", "RegSens3", ",", "RegSens4"}], 
        "}"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"SensTemp1", "=", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"SensTemp", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"SensTemp", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"SensTemp", "[", 
         RowBox[{"[", "3", "]"}], "]"}], ",", 
        RowBox[{"SensTemp", "[", 
         RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Sens", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"10", "^", 
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", 
            RowBox[{"10", "^", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "&"}], "/@", 
         RowBox[{"SensTemp1", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"Length", "[", "SensTemp1", "]"}], ",", "1"}], "}"}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Export", "[", 
      RowBox[{
       RowBox[{"FileNameJoin", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"directory", "[", "\"\<Sensitivity-LLP-exp\>\"", "]"}], ",", 
          RowBox[{"ToString", "@", 
           RowBox[{"StringForm", "[", 
            RowBox[{"\"\<Sensitivity_``_at_``_Nev=``_Npot=``.xls\>\"", ",", 
             RowBox[{"Sequence", "@@", 
              RowBox[{"{", 
               RowBox[{"LLPdirName", ",", "ExperimentFolder", ",", 
                RowBox[{"Nev", "//", "ToString"}], ",", 
                RowBox[{
                 RowBox[{"Npot", "//", "CForm"}], "//", "ToString"}]}], 
               "}"}]}]}], "]"}]}]}], "}"}], "]"}], ",", "Sens"}], "]"}], ";", 
     "\[IndentingNewLine]", "Sens"}]}], "\[IndentingNewLine]", 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"productionlist", "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"{", "\"\<All\>\"", "}"}], ",", "ProductionChannelsList"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DynamicModule", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"input1", "=", "NpotDefault"}], ",", 
      RowBox[{"input2", "=", "2.3"}], ",", 
      RowBox[{"choice", "=", 
       RowBox[{"{", "\"\<All\>\"", "}"}]}], ",", "list", ",", "phrase"}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"DialogInput", "[", 
     RowBox[{"Column", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"ExperimentFolder", ",", "Bold"}], "]"}], ",", 
        RowBox[{
        "TextCell", "[", "\"\<Enter the number of proton collisions:\>\"", 
         "]"}], ",", 
        RowBox[{"InputField", "[", 
         RowBox[{
          RowBox[{"Dynamic", "[", "input1", "]"}], ",", "Expression"}], "]"}],
         ",", 
        RowBox[{
        "TextCell", "[", 
         "\"\<Enter the value of N_ev,min for which the sensitivity will be \
computed:\>\"", "]"}], ",", 
        RowBox[{"InputField", "[", 
         RowBox[{
          RowBox[{"Dynamic", "[", "input2", "]"}], ",", "Expression"}], "]"}],
         ",", 
        RowBox[{"Row", "[", 
         RowBox[{
         "{", "\"\<Select the production channels to be used for the \
sensitivity calculation:\>\"", "}"}], "]"}], ",", 
        RowBox[{"Pane", "[", 
         RowBox[{
          RowBox[{"TogglerBar", "[", 
           RowBox[{
            RowBox[{"Dynamic", "[", "choice", "]"}], ",", "productionlist", 
            ",", 
            RowBox[{"Appearance", "->", 
             RowBox[{"\"\<Vertical\>\"", "->", 
              RowBox[{"{", 
               RowBox[{"Automatic", ",", "1"}], "}"}]}]}]}], "]"}], ",", 
          RowBox[{"ImageSize", "->", 
           RowBox[{"{", 
            RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], ",", 
          RowBox[{"Scrollbars", "->", 
           RowBox[{"{", 
            RowBox[{"False", ",", "True"}], "}"}]}]}], "]"}], ",", 
        RowBox[{"Button", "[", 
         RowBox[{"\"\<Submit\>\"", ",", 
          RowBox[{"DialogReturn", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"NpotVal", ",", "NevMinVal", ",", "SelectedProduction"}],
              "}"}], "=", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"input1", ",", "input2", ",", "choice"}], "}"}], "//", 
             "N"}]}], "]"}], ",", 
          RowBox[{"ImageSize", "->", "Automatic"}]}], "]"}]}], "}"}], "]"}], 
     "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"MemberQ", "[", 
    RowBox[{"SelectedProduction", ",", "\"\<All\>\""}], "]"}], ",", 
   RowBox[{
    RowBox[{"SelectedProduction", "=", "ProductionChannelsList"}], ";"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\"\<\!\(\*SubscriptBox[\(N\), \(PoT\)]\) for computation\>\"", ",", 
      "\"\<\!\(\*SubscriptBox[\(N\), \(ev, min\)]\)\>\"", ",", 
      "\"\<Selected production modes\>\""}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"NpotVal", ",", "NevMinVal", ",", "SelectedProduction"}], 
     "}"}]}], "}"}], "//", "TableForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sens", "=", 
   RowBox[{"SensitivityBlock", "[", 
    RowBox[{"NevMinVal", ",", "NpotVal", ",", "SelectedProduction"}], "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListLogLogPlot", "[", 
    RowBox[{
     RowBox[{"Cases", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"ExcludedRegions", "[", "LLPdirName", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"_", "?", "MatrixQ"}], ",", "All"}], "]"}], ",", 
     RowBox[{"Joined", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(m\), \(a\)]\) [GeV]\>\"", " ", ",", " ", 
        "\"\<\!\(\*SuperscriptBox[SubscriptBox[\(f\), \(G\)], \(-1\)]\) [\!\(\
\*SuperscriptBox[\(GeV\), \(-1\)]\)]\>\""}], "}"}]}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", " ", "23"}], "]"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"Thick", ",", "Gray"}], "}"}], "}"}]}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"True", ",", 
           RowBox[{"Directive", "[", 
            RowBox[{"Gray", ",", 
             RowBox[{"Opacity", "[", "0.3", "]"}]}], "]"}]}], "}"}]}], ",", 
        RowBox[{"2", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"True", ",", 
           RowBox[{"Directive", "[", 
            RowBox[{"Gray", ",", 
             RowBox[{"Opacity", "[", "0.3", "]"}]}], "]"}]}], "}"}]}], ",", 
        RowBox[{"3", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"True", ",", 
           RowBox[{"Directive", "[", 
            RowBox[{"Gray", ",", 
             RowBox[{"Opacity", "[", "0.3", "]"}]}], "]"}]}], "}"}]}], ",", 
        RowBox[{"4", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"True", ",", 
           RowBox[{"Directive", "[", 
            RowBox[{"Gray", ",", 
             RowBox[{"Opacity", "[", "0.3", "]"}]}], "]"}]}], "}"}]}]}], 
       "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1.01", 
           RowBox[{"mminmaxOverall", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ",", 
          RowBox[{"1.1", 
           RowBox[{"mminmaxOverall", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"couplingminmaxOverall", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"Max", "[", 
           RowBox[{"0.2", ",", 
            RowBox[{"0.99", 
             RowBox[{"couplingminmaxOverall", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}]}], "}"}]}], "}"}]}], 
     ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"Row", "[", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(N\), \(events\)]\) \[GreaterEqual] \>\"", 
           ",", "NevMinVal"}], "}"}], "]"}], ",", "18", ",", "Black"}], 
       "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ListLogLogPlot", "[", 
    RowBox[{
     RowBox[{"Cases", "[", 
      RowBox[{"sens", ",", 
       RowBox[{"_", "?", "MatrixQ"}], ",", "All"}], "]"}], ",", 
     RowBox[{"Joined", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Flatten", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"Thick", ",", "Blue"}], "}"}], ",", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"MatrixQ", "[", "sens", "]"}], ",", "1", ",", 
             RowBox[{"Length", "@", "sens"}]}], "]"}]}], "]"}], "}"}], ",", 
        "1"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1.01", 
           RowBox[{"mminmaxOverall", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ",", 
          RowBox[{"1.1", 
           RowBox[{"mminmaxOverall", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.3", 
           RowBox[{"Min", "[", 
            RowBox[{"Flatten", "[", "Sens", "]"}], "]"}]}], ",", 
          RowBox[{"0.99", 
           RowBox[{"couplingminmaxOverall", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"Row", "[", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(N\), \(events\)]\) \[GreaterEqual] \>\"", 
           ",", "NevMinVal"}], "}"}], "]"}], ",", "18", ",", "Black"}], 
       "]"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#", ",", "15"}], "]"}], "&"}], "/@", 
         RowBox[{"{", "GivenExperimentForSensitivityComputation", "}"}]}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"0.2", ",", "0.15"}], "}"}]}], "]"}]}]}], "]"}], ",", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<Excluded\>\"", ",", "24", ",", "Black"}], "]"}], ",", 
       RowBox[{"Scaled", "[", 
        RowBox[{"{", 
         RowBox[{"0.7", ",", "0.95"}], "}"}], "]"}]}], "]"}], "}"}], "]"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.8889936997762337`*^9, 3.8889937382921906`*^9}, {
   3.88899385262287*^9, 3.888993853042823*^9}, {3.8889939031947403`*^9, 
   3.8889939052817664`*^9}, {3.8889939588761787`*^9, 3.888994072394391*^9}, {
   3.8889941392721796`*^9, 3.8889941490041194`*^9}, {3.8889941930377913`*^9, 
   3.888994195131672*^9}, {3.8889942375929303`*^9, 3.888994293018688*^9}, 
   3.889155194091461*^9, {3.8891555444676304`*^9, 3.889155549549215*^9}, {
   3.893571069154917*^9, 3.893571071767774*^9}, {3.8935717622889104`*^9, 
   3.893571762661867*^9}, {3.8937449281930075`*^9, 3.8937449281930075`*^9}, {
   3.895052697251217*^9, 3.8950527065423837`*^9}, {3.895052741520686*^9, 
   3.895052773888977*^9}, {3.8950531140499244`*^9, 3.8950531238647213`*^9}, {
   3.8950534729321213`*^9, 3.8950534805926685`*^9}, {3.895054123563283*^9, 
   3.895054124582183*^9}, {3.89506997775191*^9, 3.895069978330577*^9}, 
   3.8950768982807426`*^9, {3.8955602490044713`*^9, 3.895560287932702*^9}, {
   3.895560370984571*^9, 3.8955603759796324`*^9}, {3.895560785367902*^9, 
   3.895560786049657*^9}, {3.8956541535400777`*^9, 3.895654263939839*^9}, {
   3.8956543140076876`*^9, 3.895654320367178*^9}, {3.895654423200385*^9, 
   3.8956544481154737`*^9}, {3.895654565591157*^9, 3.895654588365079*^9}, {
   3.8956549560646706`*^9, 3.8956549563255477`*^9}, {3.8961553899588184`*^9, 
   3.8961553997391524`*^9}, {3.897234346691803*^9, 3.897234358286152*^9}, {
   3.8975468465813923`*^9, 3.8975468508167267`*^9}, {3.8975468853793488`*^9, 
   3.897546895875827*^9}, {3.903791118494033*^9, 3.903791118498568*^9}, 
   3.9037950980239325`*^9, {3.9037970359365463`*^9, 3.903797035991943*^9}, 
   3.9037971257176876`*^9, {3.903797196741515*^9, 3.903797301701374*^9}, 
   3.903854322563696*^9, {3.906194481542715*^9, 3.9061945201280785`*^9}, {
   3.9072587100895395`*^9, 3.9072587160108223`*^9}, {3.912155799675736*^9, 
   3.912155807333581*^9}, {3.9121643449720187`*^9, 3.9121643509522777`*^9}, {
   3.9138675579944167`*^9, 3.9138675580204244`*^9}, {3.9138715965312796`*^9, 
   3.9138716276874847`*^9}, {3.9138719120212083`*^9, 
   3.9138719199085875`*^9}, {3.9139643504873505`*^9, 3.913964379658358*^9}, {
   3.913964572154082*^9, 3.9139646080225725`*^9}, 3.913965562361379*^9, {
   3.913965634034275*^9, 3.9139656341035943`*^9}, {3.9146658909381113`*^9, 
   3.914665921326827*^9}, {3.914666192147833*^9, 3.9146661927662926`*^9}, {
   3.9146663089179897`*^9, 3.914666309396596*^9}, 3.914666521358018*^9, {
   3.9152626192463336`*^9, 3.915262623648288*^9}, {3.915298144843195*^9, 
   3.9152981509930887`*^9}, {3.9156429970506935`*^9, 3.91564299719407*^9}, {
   3.9162899317194767`*^9, 3.9162899320540724`*^9}, 3.9164596397671323`*^9},
 CellTags->"Sensitivity-computation",
 CellLabel->
  "In[353]:=",ExpressionUUID->"8f64fab3-94e2-432a-9ab3-44e819bfd780"]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Deleting generated cells", "Title",
 CellChangeTimes->{{3.9025559465149946`*^9, 
  3.9025559494966087`*^9}},ExpressionUUID->"519ed843-8f32-4e91-84d0-\
5f5d5f152eee"],

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.9025615684818387`*^9, 
   3.9025615698168364`*^9}, {3.902729327686987*^9, 3.9027293300327225`*^9}, {
   3.9027673630554657`*^9, 3.902767365763246*^9}, {3.9028567330422525`*^9, 
   3.902856748718687*^9}, {3.9039717334857006`*^9, 3.903971734143115*^9}, {
   3.9181488191231093`*^9, 3.918148824518332*^9}, 3.9200482510516415`*^9},
 CellLabel->"In[4]:=",ExpressionUUID->"da6a725b-270d-45e0-bd71-6f5132a81d48"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.91958912091343*^9, 
  3.919589121035282*^9}},ExpressionUUID->"0b403f30-a3bf-4727-8bcb-\
0362f9a09fda"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.919589123332487*^9, 
  3.919589123446026*^9}},ExpressionUUID->"44dd3271-d0c6-481b-9a45-\
036436435ea1"]
}, Closed]]
},
WindowSize->{1016.5, 607.},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
TaggingRules-><|"TryRealOnly" -> False|>,
ShowCellTags->True,
Magnification:>0.7 Inherited,
FrontEndVersion->"13.2 for Microsoft Windows (64-bit) (November 18, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"6c19ba18-5de7-4f37-a5a0-bdc790dcbcd8"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Acceptance"->{
  Cell[5654, 150, 354, 7, 60, "Title",ExpressionUUID->"dc98cc40-afde-45ba-ae22-74afbd95ce04",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[6033, 161, 227, 5, 58, "Chapter",ExpressionUUID->"1320ba97-7abe-4017-b5a5-ae36b7fec1b3",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[6263, 168, 3762, 96, 177, "Input",ExpressionUUID->"d67e103e-ff85-49fc-80ad-39fdd6887281",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[10062, 269, 293, 6, 58, "Chapter",ExpressionUUID->"9e90539e-357b-496f-b4bb-a60bd5224fbd",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[10358, 277, 13695, 340, 751, "Input",ExpressionUUID->"81abd027-7ae4-4675-ae59-2bfc340f66bb",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[24078, 621, 471, 12, 58, "Section",ExpressionUUID->"7c55ffb2-0d9e-426c-8145-0f4c17afabe4",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[24552, 635, 3686, 102, 186, "Input",ExpressionUUID->"ff9f349f-4e9a-429c-bf55-03b67960b621",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[28287, 743, 831, 19, 58, "Chapter",ExpressionUUID->"89802de9-cd6b-471a-b913-4f949b4b89c5",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[29143, 766, 297, 6, 57, "Section",ExpressionUUID->"dd9e6701-41aa-4962-a9b7-dd611f556fa6",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[29443, 774, 3153, 72, 137, "Input",ExpressionUUID->"d7f75d59-b6b8-43b5-84f6-94a071f6c958",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[32633, 851, 285, 6, 57, "Section",ExpressionUUID->"78ee7ba3-4532-4920-80f8-e1fc4e784430",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[32921, 859, 10108, 256, 400, "Input",ExpressionUUID->"fec40a05-ba64-4ab5-86c9-a0eb22a607d0",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[43066, 1120, 425, 8, 57, "Section",ExpressionUUID->"12e0bee4-6a1a-451c-b99f-fa0db8a155eb",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[43516, 1132, 371, 7, 47, "Subsection",ExpressionUUID->"0a5caafb-270c-4b49-8d0a-a733f8c6fed5",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[43890, 1141, 4492, 105, 189, "Input",ExpressionUUID->"6b40e71e-4d73-422f-a8a1-e2d1d3309f91",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[48443, 1253, 287, 6, 58, "Chapter",ExpressionUUID->"3f6b67f8-cd18-4859-a818-3f6119c8c1a8",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[48733, 1261, 1479, 33, 83, "Input",ExpressionUUID->"24563de8-033b-4182-b723-da04d3119759",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[50261, 1300, 260, 6, 60, "Title",ExpressionUUID->"bd147158-f526-489d-afb7-12c825eddce3",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[50524, 1308, 4945, 118, 243, "Input",ExpressionUUID->"c05031d8-0efd-4502-a294-675e6231eb7c",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[55494, 1430, 238, 5, 58, "Chapter",ExpressionUUID->"f6b19458-661d-4b9a-84b2-be5f3bbf270c",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[55735, 1437, 2206, 51, 217, "Input",ExpressionUUID->"4c060b6c-ecc3-4469-86c0-269c265b419b",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}]},
 "Number-of-events+sensitivity"->{
  Cell[5654, 150, 354, 7, 60, "Title",ExpressionUUID->"dc98cc40-afde-45ba-ae22-74afbd95ce04",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[6033, 161, 227, 5, 58, "Chapter",ExpressionUUID->"1320ba97-7abe-4017-b5a5-ae36b7fec1b3",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[6263, 168, 3762, 96, 177, "Input",ExpressionUUID->"d67e103e-ff85-49fc-80ad-39fdd6887281",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[10062, 269, 293, 6, 58, "Chapter",ExpressionUUID->"9e90539e-357b-496f-b4bb-a60bd5224fbd",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[10358, 277, 13695, 340, 751, "Input",ExpressionUUID->"81abd027-7ae4-4675-ae59-2bfc340f66bb",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[24078, 621, 471, 12, 58, "Section",ExpressionUUID->"7c55ffb2-0d9e-426c-8145-0f4c17afabe4",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[24552, 635, 3686, 102, 186, "Input",ExpressionUUID->"ff9f349f-4e9a-429c-bf55-03b67960b621",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[28287, 743, 831, 19, 58, "Chapter",ExpressionUUID->"89802de9-cd6b-471a-b913-4f949b4b89c5",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[29143, 766, 297, 6, 57, "Section",ExpressionUUID->"dd9e6701-41aa-4962-a9b7-dd611f556fa6",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[29443, 774, 3153, 72, 137, "Input",ExpressionUUID->"d7f75d59-b6b8-43b5-84f6-94a071f6c958",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[32633, 851, 285, 6, 57, "Section",ExpressionUUID->"78ee7ba3-4532-4920-80f8-e1fc4e784430",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[32921, 859, 10108, 256, 400, "Input",ExpressionUUID->"fec40a05-ba64-4ab5-86c9-a0eb22a607d0",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[43066, 1120, 425, 8, 57, "Section",ExpressionUUID->"12e0bee4-6a1a-451c-b99f-fa0db8a155eb",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[43516, 1132, 371, 7, 47, "Subsection",ExpressionUUID->"0a5caafb-270c-4b49-8d0a-a733f8c6fed5",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[43890, 1141, 4492, 105, 189, "Input",ExpressionUUID->"6b40e71e-4d73-422f-a8a1-e2d1d3309f91",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[48443, 1253, 287, 6, 58, "Chapter",ExpressionUUID->"3f6b67f8-cd18-4859-a818-3f6119c8c1a8",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[48733, 1261, 1479, 33, 83, "Input",ExpressionUUID->"24563de8-033b-4182-b723-da04d3119759",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[50261, 1300, 260, 6, 60, "Title",ExpressionUUID->"bd147158-f526-489d-afb7-12c825eddce3",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[50524, 1308, 4945, 118, 243, "Input",ExpressionUUID->"c05031d8-0efd-4502-a294-675e6231eb7c",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[55494, 1430, 238, 5, 58, "Chapter",ExpressionUUID->"f6b19458-661d-4b9a-84b2-be5f3bbf270c",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[55735, 1437, 2206, 51, 217, "Input",ExpressionUUID->"4c060b6c-ecc3-4469-86c0-269c265b419b",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}]},
 "Number-of-events-computation+sensitivity"->{
  Cell[57990, 1494, 216, 4, 60, "Title",ExpressionUUID->"3e9a02fd-97c3-44ee-9f5b-9ca3983b66da",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[58231, 1502, 308, 6, 58, "Chapter",ExpressionUUID->"76fe3cd1-27a0-4d11-852c-ea3c40d76fef",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[58542, 1510, 357, 9, 30, "Input",ExpressionUUID->"10bc767d-43ce-4bd8-89d0-83fd85f2bb40",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[58936, 1524, 316, 6, 51, "Chapter",ExpressionUUID->"4cb86986-b7a3-4409-91ed-f7461f351ed0",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[59255, 1532, 12188, 314, 414, "Input",ExpressionUUID->"68cd4c52-a57e-49cb-9552-92e7a8059080",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[71480, 1851, 511, 8, 51, "Chapter",ExpressionUUID->"9c0a6fa2-083d-438f-84cb-5fa122f734c4",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[71994, 1861, 14557, 378, 621, "Input",ExpressionUUID->"0de53151-929c-4ae2-86de-1774b0e4638d",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[86588, 2244, 218, 4, 51, "Chapter",ExpressionUUID->"913a2300-dec2-4b0f-8b44-4b75cf0adccf",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[86831, 2252, 327, 6, 57, "Section",ExpressionUUID->"b0772e57-8882-4e3d-a1f7-c9c6f58dc7ac",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[87183, 2262, 388, 7, 47, "Subsection",ExpressionUUID->"09bda361-200e-4474-a4eb-51f045b744b2",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[87574, 2271, 10189, 239, 351, "Input",ExpressionUUID->"07d9d00a-b1e3-45a3-8431-e5ba54203718",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[97800, 2515, 262, 5, 47, "Subsection",ExpressionUUID->"38691406-6de0-4e83-9a5b-27156e5454d3",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[98065, 2522, 18807, 468, 616, "Input",ExpressionUUID->"62f71aad-b0ff-4528-8f22-b1315e141cf5",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[116909, 2995, 284, 5, 37, "Subsection",ExpressionUUID->"1f64e19f-68db-451d-9c11-af942b7e295b",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[117218, 3004, 249, 5, 41, "Subsubsection",ExpressionUUID->"302d1c5e-c6d1-4ad1-a0b1-edca90a5022b",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[117470, 3011, 5704, 130, 259, "Input",ExpressionUUID->"2013639a-846d-4ea2-a0b9-81d0edd1cc67",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[123223, 3147, 277, 5, 37, "Subsection",ExpressionUUID->"42ab82d5-4d7e-4d06-8eb9-6e821b04db69",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[123503, 3154, 5715, 124, 163, "Input",ExpressionUUID->"963c4344-4087-43c6-b6e8-508b30bff543",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[129255, 3283, 303, 7, 37, "Subsection",ExpressionUUID->"a2111b3d-b948-4362-97ab-aedd46e94fb9",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[129561, 3292, 7830, 195, 266, "Input",ExpressionUUID->"46f4d46b-66b1-4ab0-8fc9-e4f181080153",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[137440, 3493, 309, 6, 57, "Section",ExpressionUUID->"d97cf69b-14d7-4226-84be-25aa41979380",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[137774, 3503, 229, 4, 47, "Subsection",ExpressionUUID->"8b643ea4-d4cf-439d-bf42-7d3cf2368f19",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[138006, 3509, 11687, 272, 295, "Input",ExpressionUUID->"6608ca61-80df-4c49-a1f8-56118e7339da",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[149730, 3786, 232, 4, 47, "Subsection",ExpressionUUID->"748b8b59-c490-462f-bf37-7dc6537c8d0d",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[149965, 3792, 21765, 506, 738, "Input",ExpressionUUID->"46c1a4a5-1c46-489a-a061-206c6b7873bc",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[171803, 4306, 262, 5, 77, "Title",ExpressionUUID->"0923b405-c0ba-437a-a0a1-eb2d8707c8c5",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[172090, 4315, 213, 4, 58, "Chapter",ExpressionUUID->"2ada0cc1-1695-4a57-a86b-b11e240b979f",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[172306, 4321, 7808, 157, 245, "Input",ExpressionUUID->"d36d89ea-2d97-457b-aa5b-4b098e8235d8",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[180151, 4483, 209, 4, 58, "Chapter",ExpressionUUID->"a58bd3a7-f345-470d-ba5e-82c520e24a7e",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[180363, 4489, 3798, 87, 190, "Input",ExpressionUUID->"b5ddb613-f8ce-4354-bf3e-3dc63b62f3d5",
   CellTags->"Number-of-events-computation+sensitivity"]},
 "Acceptance-computation"->{
  Cell[58231, 1502, 308, 6, 58, "Chapter",ExpressionUUID->"76fe3cd1-27a0-4d11-852c-ea3c40d76fef",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[58542, 1510, 357, 9, 30, "Input",ExpressionUUID->"10bc767d-43ce-4bd8-89d0-83fd85f2bb40",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[58936, 1524, 316, 6, 51, "Chapter",ExpressionUUID->"4cb86986-b7a3-4409-91ed-f7461f351ed0",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[59255, 1532, 12188, 314, 414, "Input",ExpressionUUID->"68cd4c52-a57e-49cb-9552-92e7a8059080",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[71480, 1851, 511, 8, 51, "Chapter",ExpressionUUID->"9c0a6fa2-083d-438f-84cb-5fa122f734c4",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[71994, 1861, 14557, 378, 621, "Input",ExpressionUUID->"0de53151-929c-4ae2-86de-1774b0e4638d",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[86831, 2252, 327, 6, 57, "Section",ExpressionUUID->"b0772e57-8882-4e3d-a1f7-c9c6f58dc7ac",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[87183, 2262, 388, 7, 47, "Subsection",ExpressionUUID->"09bda361-200e-4474-a4eb-51f045b744b2",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[87574, 2271, 10189, 239, 351, "Input",ExpressionUUID->"07d9d00a-b1e3-45a3-8431-e5ba54203718",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[97800, 2515, 262, 5, 47, "Subsection",ExpressionUUID->"38691406-6de0-4e83-9a5b-27156e5454d3",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[98065, 2522, 18807, 468, 616, "Input",ExpressionUUID->"62f71aad-b0ff-4528-8f22-b1315e141cf5",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[116909, 2995, 284, 5, 37, "Subsection",ExpressionUUID->"1f64e19f-68db-451d-9c11-af942b7e295b",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[117218, 3004, 249, 5, 41, "Subsubsection",ExpressionUUID->"302d1c5e-c6d1-4ad1-a0b1-edca90a5022b",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[117470, 3011, 5704, 130, 259, "Input",ExpressionUUID->"2013639a-846d-4ea2-a0b9-81d0edd1cc67",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}]},
 "Sensitivity"->{
  Cell[184210, 4582, 189, 3, 60, "Title",ExpressionUUID->"9cbf5dbf-7d97-438c-bab1-6a4374076885",
   CellTags->"Sensitivity"],
  Cell[184424, 4589, 188, 3, 58, "Chapter",ExpressionUUID->"9d756e77-cb38-4749-bd1a-ec57f9fa383a",
   CellTags->"Sensitivity"],
  Cell[184615, 4594, 7267, 190, 390, "Input",ExpressionUUID->"09272721-e148-43d5-8826-7b8fa3f9f2fc",
   CellTags->"Sensitivity"]},
 "Sensitivity-computation"->{
  Cell[191919, 4789, 315, 7, 58, "Chapter",ExpressionUUID->"cba6efcf-5800-47ae-95bb-fbf537eda806",
   CellTags->"Sensitivity-computation"],
  Cell[192259, 4800, 212, 4, 57, "Section",ExpressionUUID->"76c411c2-f893-4e38-99a1-177c07b87388",
   CellTags->"Sensitivity-computation"],
  Cell[192474, 4806, 3711, 93, 230, "Input",ExpressionUUID->"f9e8020b-b9a1-46bc-afca-81c65707b14a",
   CellTags->"Sensitivity-computation"],
  Cell[196222, 4904, 213, 4, 57, "Section",ExpressionUUID->"afe9991e-af99-4650-a9ab-3f2649dbe555",
   CellTags->"Sensitivity-computation"],
  Cell[196438, 4910, 16390, 395, 543, "Input",ExpressionUUID->"4760b97a-5fba-4033-9e4e-0bb3c4067fd8",
   CellTags->"Sensitivity-computation"],
  Cell[212877, 5311, 210, 4, 58, "Chapter",ExpressionUUID->"6973c073-2e4b-4c34-a088-4365694bce10",
   CellTags->"Sensitivity-computation"],
  Cell[213112, 5319, 400, 11, 57, "Section",ExpressionUUID->"6167139e-4c45-4268-875c-9bdaf70aadf5",
   CellTags->"Sensitivity-computation"],
  Cell[213515, 5332, 4671, 114, 115, "Input",ExpressionUUID->"ab4d3c25-8960-43d0-841a-38bc85173588",
   CellTags->"Sensitivity-computation"],
  Cell[218223, 5451, 253, 5, 57, "Section",ExpressionUUID->"d57a2d3d-381f-479e-bde3-49c0fb15579a",
   CellTags->"Sensitivity-computation"],
  Cell[218479, 5458, 2466, 65, 163, "Input",ExpressionUUID->"4018b168-837a-415b-ac72-f91c637de913",
   CellTags->"Sensitivity-computation"],
  Cell[220982, 5528, 196, 4, 57, "Section",ExpressionUUID->"9f6548e1-453f-47b5-b82c-a2ef474f018e",
   CellTags->"Sensitivity-computation"],
  Cell[221181, 5534, 21745, 535, 636, "Input",ExpressionUUID->"8f64fab3-94e2-432a-9ab3-44e819bfd780",
   CellTags->"Sensitivity-computation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Acceptance", 244824, 6125},
 {"Number-of-events+sensitivity", 248221, 6168},
 {"Number-of-events-computation+sensitivity", 251630, 6211},
 {"Acceptance-computation", 256797, 6272},
 {"Sensitivity", 259422, 6301},
 {"Sensitivity-computation", 259837, 6308}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 207, 3, 68, "Title",ExpressionUUID->"0839ea5b-1982-4dfb-8c5d-195bcd99f6e9"],
Cell[790, 27, 4827, 118, 287, "Input",ExpressionUUID->"3ff672e3-e982-49fe-8fe3-e69285f06990"]
}, Closed]],
Cell[CellGroupData[{
Cell[5654, 150, 354, 7, 60, "Title",ExpressionUUID->"dc98cc40-afde-45ba-ae22-74afbd95ce04",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[CellGroupData[{
Cell[6033, 161, 227, 5, 58, "Chapter",ExpressionUUID->"1320ba97-7abe-4017-b5a5-ae36b7fec1b3",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[6263, 168, 3762, 96, 177, "Input",ExpressionUUID->"d67e103e-ff85-49fc-80ad-39fdd6887281",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}]
}, Closed]],
Cell[CellGroupData[{
Cell[10062, 269, 293, 6, 58, "Chapter",ExpressionUUID->"9e90539e-357b-496f-b4bb-a60bd5224fbd",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[10358, 277, 13695, 340, 751, "Input",ExpressionUUID->"81abd027-7ae4-4675-ae59-2bfc340f66bb",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[CellGroupData[{
Cell[24078, 621, 471, 12, 58, "Section",ExpressionUUID->"7c55ffb2-0d9e-426c-8145-0f4c17afabe4",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[24552, 635, 3686, 102, 186, "Input",ExpressionUUID->"ff9f349f-4e9a-429c-bf55-03b67960b621",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[28287, 743, 831, 19, 58, "Chapter",ExpressionUUID->"89802de9-cd6b-471a-b913-4f949b4b89c5",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[CellGroupData[{
Cell[29143, 766, 297, 6, 57, "Section",ExpressionUUID->"dd9e6701-41aa-4962-a9b7-dd611f556fa6",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[29443, 774, 3153, 72, 137, "Input",ExpressionUUID->"d7f75d59-b6b8-43b5-84f6-94a071f6c958",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}]
}, Closed]],
Cell[CellGroupData[{
Cell[32633, 851, 285, 6, 57, "Section",ExpressionUUID->"78ee7ba3-4532-4920-80f8-e1fc4e784430",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[32921, 859, 10108, 256, 400, "Input",ExpressionUUID->"fec40a05-ba64-4ab5-86c9-a0eb22a607d0",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}]
}, Closed]],
Cell[CellGroupData[{
Cell[43066, 1120, 425, 8, 57, "Section",ExpressionUUID->"12e0bee4-6a1a-451c-b99f-fa0db8a155eb",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[CellGroupData[{
Cell[43516, 1132, 371, 7, 47, "Subsection",ExpressionUUID->"0a5caafb-270c-4b49-8d0a-a733f8c6fed5",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[43890, 1141, 4492, 105, 189, "Input",ExpressionUUID->"6b40e71e-4d73-422f-a8a1-e2d1d3309f91",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[48443, 1253, 287, 6, 58, "Chapter",ExpressionUUID->"3f6b67f8-cd18-4859-a818-3f6119c8c1a8",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[48733, 1261, 1479, 33, 83, "Input",ExpressionUUID->"24563de8-033b-4182-b723-da04d3119759",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[50261, 1300, 260, 6, 60, "Title",ExpressionUUID->"bd147158-f526-489d-afb7-12c825eddce3",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[50524, 1308, 4945, 118, 243, "Input",ExpressionUUID->"c05031d8-0efd-4502-a294-675e6231eb7c",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[CellGroupData[{
Cell[55494, 1430, 238, 5, 58, "Chapter",ExpressionUUID->"f6b19458-661d-4b9a-84b2-be5f3bbf270c",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[55735, 1437, 2206, 51, 217, "Input",ExpressionUUID->"4c060b6c-ecc3-4469-86c0-269c265b419b",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[57990, 1494, 216, 4, 60, "Title",ExpressionUUID->"3e9a02fd-97c3-44ee-9f5b-9ca3983b66da",
 CellTags->"Number-of-events-computation+sensitivity"],
Cell[CellGroupData[{
Cell[58231, 1502, 308, 6, 58, "Chapter",ExpressionUUID->"76fe3cd1-27a0-4d11-852c-ea3c40d76fef",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
Cell[58542, 1510, 357, 9, 30, "Input",ExpressionUUID->"10bc767d-43ce-4bd8-89d0-83fd85f2bb40",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}]
}, Closed]],
Cell[CellGroupData[{
Cell[58936, 1524, 316, 6, 51, "Chapter",ExpressionUUID->"4cb86986-b7a3-4409-91ed-f7461f351ed0",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
Cell[59255, 1532, 12188, 314, 414, "Input",ExpressionUUID->"68cd4c52-a57e-49cb-9552-92e7a8059080",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}]
}, Closed]],
Cell[CellGroupData[{
Cell[71480, 1851, 511, 8, 51, "Chapter",ExpressionUUID->"9c0a6fa2-083d-438f-84cb-5fa122f734c4",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
Cell[71994, 1861, 14557, 378, 621, "Input",ExpressionUUID->"0de53151-929c-4ae2-86de-1774b0e4638d",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}]
}, Closed]],
Cell[CellGroupData[{
Cell[86588, 2244, 218, 4, 51, "Chapter",ExpressionUUID->"913a2300-dec2-4b0f-8b44-4b75cf0adccf",
 CellTags->"Number-of-events-computation+sensitivity"],
Cell[CellGroupData[{
Cell[86831, 2252, 327, 6, 57, "Section",ExpressionUUID->"b0772e57-8882-4e3d-a1f7-c9c6f58dc7ac",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
Cell[CellGroupData[{
Cell[87183, 2262, 388, 7, 47, "Subsection",ExpressionUUID->"09bda361-200e-4474-a4eb-51f045b744b2",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
Cell[87574, 2271, 10189, 239, 351, "Input",ExpressionUUID->"07d9d00a-b1e3-45a3-8431-e5ba54203718",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}]
}, Open  ]],
Cell[CellGroupData[{
Cell[97800, 2515, 262, 5, 47, "Subsection",ExpressionUUID->"38691406-6de0-4e83-9a5b-27156e5454d3",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
Cell[98065, 2522, 18807, 468, 616, "Input",ExpressionUUID->"62f71aad-b0ff-4528-8f22-b1315e141cf5",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}]
}, Closed]],
Cell[CellGroupData[{
Cell[116909, 2995, 284, 5, 37, "Subsection",ExpressionUUID->"1f64e19f-68db-451d-9c11-af942b7e295b",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
Cell[CellGroupData[{
Cell[117218, 3004, 249, 5, 41, "Subsubsection",ExpressionUUID->"302d1c5e-c6d1-4ad1-a0b1-edca90a5022b",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
Cell[117470, 3011, 5704, 130, 259, "Input",ExpressionUUID->"2013639a-846d-4ea2-a0b9-81d0edd1cc67",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[123223, 3147, 277, 5, 37, "Subsection",ExpressionUUID->"42ab82d5-4d7e-4d06-8eb9-6e821b04db69",
 CellTags->"Number-of-events-computation+sensitivity"],
Cell[123503, 3154, 5715, 124, 163, "Input",ExpressionUUID->"963c4344-4087-43c6-b6e8-508b30bff543",
 CellTags->"Number-of-events-computation+sensitivity"]
}, Closed]],
Cell[CellGroupData[{
Cell[129255, 3283, 303, 7, 37, "Subsection",ExpressionUUID->"a2111b3d-b948-4362-97ab-aedd46e94fb9",
 CellTags->"Number-of-events-computation+sensitivity"],
Cell[129561, 3292, 7830, 195, 266, "Input",ExpressionUUID->"46f4d46b-66b1-4ab0-8fc9-e4f181080153",
 CellTags->"Number-of-events-computation+sensitivity"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[137440, 3493, 309, 6, 57, "Section",ExpressionUUID->"d97cf69b-14d7-4226-84be-25aa41979380",
 CellTags->"Number-of-events-computation+sensitivity"],
Cell[CellGroupData[{
Cell[137774, 3503, 229, 4, 47, "Subsection",ExpressionUUID->"8b643ea4-d4cf-439d-bf42-7d3cf2368f19",
 CellTags->"Number-of-events-computation+sensitivity"],
Cell[138006, 3509, 11687, 272, 295, "Input",ExpressionUUID->"6608ca61-80df-4c49-a1f8-56118e7339da",
 CellTags->"Number-of-events-computation+sensitivity"]
}, Closed]],
Cell[CellGroupData[{
Cell[149730, 3786, 232, 4, 47, "Subsection",ExpressionUUID->"748b8b59-c490-462f-bf37-7dc6537c8d0d",
 CellTags->"Number-of-events-computation+sensitivity"],
Cell[149965, 3792, 21765, 506, 738, "Input",ExpressionUUID->"46c1a4a5-1c46-489a-a061-206c6b7873bc",
 CellTags->"Number-of-events-computation+sensitivity"]
}, Closed]]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[171803, 4306, 262, 5, 77, "Title",ExpressionUUID->"0923b405-c0ba-437a-a0a1-eb2d8707c8c5",
 CellTags->"Number-of-events-computation+sensitivity"],
Cell[CellGroupData[{
Cell[172090, 4315, 213, 4, 58, "Chapter",ExpressionUUID->"2ada0cc1-1695-4a57-a86b-b11e240b979f",
 CellTags->"Number-of-events-computation+sensitivity"],
Cell[172306, 4321, 7808, 157, 245, "Input",ExpressionUUID->"d36d89ea-2d97-457b-aa5b-4b098e8235d8",
 CellTags->"Number-of-events-computation+sensitivity"]
}, Closed]],
Cell[CellGroupData[{
Cell[180151, 4483, 209, 4, 58, "Chapter",ExpressionUUID->"a58bd3a7-f345-470d-ba5e-82c520e24a7e",
 CellTags->"Number-of-events-computation+sensitivity"],
Cell[180363, 4489, 3798, 87, 190, "Input",ExpressionUUID->"b5ddb613-f8ce-4354-bf3e-3dc63b62f3d5",
 CellTags->"Number-of-events-computation+sensitivity"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[184210, 4582, 189, 3, 60, "Title",ExpressionUUID->"9cbf5dbf-7d97-438c-bab1-6a4374076885",
 CellTags->"Sensitivity"],
Cell[CellGroupData[{
Cell[184424, 4589, 188, 3, 58, "Chapter",ExpressionUUID->"9d756e77-cb38-4749-bd1a-ec57f9fa383a",
 CellTags->"Sensitivity"],
Cell[184615, 4594, 7267, 190, 390, "Input",ExpressionUUID->"09272721-e148-43d5-8826-7b8fa3f9f2fc",
 CellTags->"Sensitivity"]
}, Closed]],
Cell[CellGroupData[{
Cell[191919, 4789, 315, 7, 58, "Chapter",ExpressionUUID->"cba6efcf-5800-47ae-95bb-fbf537eda806",
 CellTags->"Sensitivity-computation"],
Cell[CellGroupData[{
Cell[192259, 4800, 212, 4, 57, "Section",ExpressionUUID->"76c411c2-f893-4e38-99a1-177c07b87388",
 CellTags->"Sensitivity-computation"],
Cell[192474, 4806, 3711, 93, 230, "Input",ExpressionUUID->"f9e8020b-b9a1-46bc-afca-81c65707b14a",
 CellTags->"Sensitivity-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[196222, 4904, 213, 4, 57, "Section",ExpressionUUID->"afe9991e-af99-4650-a9ab-3f2649dbe555",
 CellTags->"Sensitivity-computation"],
Cell[196438, 4910, 16390, 395, 543, "Input",ExpressionUUID->"4760b97a-5fba-4033-9e4e-0bb3c4067fd8",
 CellTags->"Sensitivity-computation"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[212877, 5311, 210, 4, 58, "Chapter",ExpressionUUID->"6973c073-2e4b-4c34-a088-4365694bce10",
 CellTags->"Sensitivity-computation"],
Cell[CellGroupData[{
Cell[213112, 5319, 400, 11, 57, "Section",ExpressionUUID->"6167139e-4c45-4268-875c-9bdaf70aadf5",
 CellTags->"Sensitivity-computation"],
Cell[213515, 5332, 4671, 114, 115, "Input",ExpressionUUID->"ab4d3c25-8960-43d0-841a-38bc85173588",
 CellTags->"Sensitivity-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[218223, 5451, 253, 5, 57, "Section",ExpressionUUID->"d57a2d3d-381f-479e-bde3-49c0fb15579a",
 CellTags->"Sensitivity-computation"],
Cell[218479, 5458, 2466, 65, 163, "Input",ExpressionUUID->"4018b168-837a-415b-ac72-f91c637de913",
 CellTags->"Sensitivity-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[220982, 5528, 196, 4, 57, "Section",ExpressionUUID->"9f6548e1-453f-47b5-b82c-a2ef474f018e",
 CellTags->"Sensitivity-computation"],
Cell[221181, 5534, 21745, 535, 636, "Input",ExpressionUUID->"8f64fab3-94e2-432a-9ab3-44e819bfd780",
 CellTags->"Sensitivity-computation"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[242987, 6076, 171, 3, 51, "Title",ExpressionUUID->"519ed843-8f32-4e91-84d0-5f5d5f152eee"],
Cell[243161, 6081, 890, 17, 47, "Input",ExpressionUUID->"da6a725b-270d-45e0-bd71-6f5132a81d48"],
Cell[244054, 6100, 151, 3, 21, "Input",ExpressionUUID->"0b403f30-a3bf-4727-8bcb-0362f9a09fda"],
Cell[244208, 6105, 152, 3, 21, "Input",ExpressionUUID->"44dd3271-d0c6-481b-9a45-036436435ea1"]
}, Closed]]
}
]
*)