3. B mediators sensitivity.nb

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

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

(* CreatedBy='Mathematica 13.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    324159,       7671]
NotebookOptionsPosition[    282826,       7085]
NotebookOutlinePosition[    308994,       7408]
CellTagsIndexPosition[    308607,       7396]
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->"a222097c-b8fb-4f67-a366-\
7db27eeb342d"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ParallelEvaluate", "[", 
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CloseKernels", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LaunchKernels", "[", "]"}], ";"}], "\[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[{"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.893573113541499*^9, {
   3.89366535580302*^9, 3.8936653565596275`*^9}, {3.895053865536884*^9, 
   3.8950538657696643`*^9}, {3.895127061998116*^9, 3.8951270800527506`*^9}, 
   3.9025629436017327`*^9, 3.9027295382725515`*^9, 3.9028895266343613`*^9, {
   3.9038925204404736`*^9, 3.903892532444302*^9}, {3.914667224378135*^9, 
   3.9146672345615835`*^9}, {3.916810414011035*^9, 3.916810416581723*^9}, {
   3.916810548923877*^9, 3.916810549983526*^9}, {3.9168222887635956`*^9, 
   3.9168222889931517`*^9}, {3.9169945815853124`*^9, 
   3.9169945825333104`*^9}, {3.917021537205845*^9, 3.91702154000883*^9}, {
   3.917027053550149*^9, 3.9170270555919833`*^9}},
 CellLabel->
  "In[156]:=",ExpressionUUID->"e9206bed-97fb-42c9-918b-c6f3ef8e98e3"]
}, Closed]],

Cell[CellGroupData[{

Cell["Definitions", "Title",
 CellChangeTimes->{{3.8765025649423122`*^9, 3.876502598054132*^9}, {
  3.876502741347786*^9, 3.876502742695223*^9}, {3.876503237989088*^9, 
  3.876503241621973*^9}},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"752b4fdc-e1a6-4c94-8dd6-\
4965459f99e8"],

Cell[CellGroupData[{

Cell["Various directories", "Chapter",
 CellChangeTimes->{{3.913804059957842*^9, 3.913804062327417*^9}},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"c88d67e3-e48b-41f7-9d02-\
54fef0734f5d"],

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[{"LLPdirName", "=", 
   RowBox[{"dropdownDialog", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<B-L\>\"", ",", "\"\<B-3Lmu\>\"", ",", "\"\<B-3Le-Lmu+Ltau\>\"", 
       ",", "\"\<B-Le-3Lmu+Ltau\>\""}], "}"}], ",", 
     "\"\<Select the type of the mediator:\>\""}], "]"}]}], 
  "\[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.9138854890993285`*^9, 3.9138854893084154`*^9}, {3.913969876893875*^9, 
   3.91396987726208*^9}, {3.9156430398321657`*^9, 3.91564303984923*^9}, {
   3.9346029258090897`*^9, 3.9346029724601355`*^9}, {3.93469758210417*^9, 
   3.934697582932027*^9}},
 CellTags->{"Acceptance", "Number-of-events+sensitivity"},
 CellLabel->
  "In[171]:=",ExpressionUUID->"aecd7161-4762-4b3e-9a79-22cedb586d48"]
}, Closed]],

Cell[CellGroupData[{

Cell["Parameters and critical definitions", "Chapter",
 CellChangeTimes->{{3.8765032665997076`*^9, 3.876503268324252*^9}, 
   3.8867405532570024`*^9, {3.913886938897626*^9, 3.91388694220303*^9}},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"3d935dfa-9d3e-49d0-91d9-\
fb64a81b96aa"],

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[{"{", "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[{"Conversion", " ", "units"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GeVMinusOneTom", "=", 
   RowBox[{"2", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "16"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"chbarval", "=", 
    RowBox[{"3", "*", 
     SuperscriptBox["10", "8"], "*", "6.58", "*", 
     SuperscriptBox["10", 
      RowBox[{"-", "25"}]]}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"EM", " ", "coupling"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Alpha]EMval", "=", 
    RowBox[{"1", "/", "137"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Mesons", " ", "masses"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"mSM", "[", "\"\<Omega\>\"", "]"}], ",", 
     RowBox[{"mSM", "[", "\"\<Pi0\>\"", "]"}], ",", 
     RowBox[{"mSM", "[", "\"\<Eta\>\"", "]"}], ",", 
     RowBox[{"mSM", "[", "\"\<EtaPr\>\"", "]"}], ",", 
     RowBox[{"mSM", "[", "\"\<p\>\"", "]"}]}], "}"}], "=", 
   RowBox[{"{", 
    RowBox[{"0.78", ",", "0.135", ",", "0.547", ",", "0.958", ",", "0.939"}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalGamma]SM", "[", "\"\<Omega\>\"", "]"}], "=", "0.0084"}],
    ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Various", " ", "br", " ", "ratios"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Br\[Pi]To\[Gamma]\[Gamma]", "=", "0.98799"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Br\[Eta]To\[Gamma]\[Gamma]", "=", "0.3931181"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Br\[Omega]To\[Pi]\[Gamma]", "=", "0.0834941"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Br\[Eta]prTo\[Gamma]\[Gamma]", "=", "0.0219297"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Sigma]pNucleonInpb", "[", "Atarget_", "]"}], "=", 
   RowBox[{"51", "*", 
    SuperscriptBox["Atarget", 
     RowBox[{"-", "0.29"}]], "*", 
    SuperscriptBox["10", "9"]}]}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQAmIQfXJKx6frD984TpX/B6aV+ay5bgJpL5cGbhD985VM
V9zXN47lN9X6QHRm1uZdIPqZ9IPdIJp/WS5nPJBWWbAGTH+xU0xIANJZYVPz
QXRi5d5SED3rc3sZiP5RnN8Mom2vHG0B0XeF93WB6ICJzt0gesLXlBnpQHrR
XqGZIFpCbdoWEP0hxXQ7iJariXkGou8djQPTKTLqKzKAtLlo6GoQXcB0oU3p
zxvH91JXwLT37/gER6a3jn4TgnJB9L4puatAdMSmtLUgusZL+NZuIO0Sbw2m
Bcwsn25heeu4I2E1mI663OEQzP7WkYNxDph+16P0TkXzreOWX+5fQfQ25xoP
VSB9+UKSJ4i2jVo2C0SnTWWbDaLjrPR3qQNpvb2mYJovrFLVD0hPX5ytBqIl
LKcZgmiW8mfGIHpL7Q2hGwFA97T8BdMAk3rUuQ==
  "],
 CellTags->{"Acceptance", "Number-of-events+sensitivity"},
 CellLabel->
  "In[179]:=",ExpressionUUID->"86c7b34a-191d-435a-9fbb-ccca611a3d95"]
}, Closed]],

Cell[CellGroupData[{

Cell["LLP phenomenology: production probabilities, decay widths", "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.913885745903579*^9, 3.9138857697080164`*^9}, 3.913954281288325*^9, 
   3.9156430398678246`*^9},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"c44daf01-3afa-4ab7-bff1-\
19609a46411c"],

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->"9aa924e7-0d40-4a10-9a05-\
5031709f222a"],

Cell[CellGroupData[{

Cell["Via decays of mesons and mixing", "Subsection",
 CellChangeTimes->{{3.8867412989661756`*^9, 3.8867413212030272`*^9}, 
   3.9341784414069138`*^9},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"707aa229-8345-4167-b845-\
a95fddf5536d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"PmotherToLLP", "//", "Clear"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Qel", "=", 
   RowBox[{"DiagonalMatrix", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"2", "/", "3"}], ",", 
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{"1", "/", "3"}], ")"}]}], ",", 
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{"1", "/", "3"}], ")"}]}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T\[Omega]", " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "/", "2"}], ")"}], 
    RowBox[{"DiagonalMatrix", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "0"}], "}"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T\[Phi]", " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{"\[Sqrt]", "2"}], ")"}]}], ")"}], 
    RowBox[{"DiagonalMatrix", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "1"}], "}"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f\[Omega]N", "=", "17.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g\[Omega]", "=", 
   RowBox[{"17.1", "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", "3"}], ")"}], 
        RowBox[{"Tr", "[", "T\[Omega]", "]"}]}], ")"}], "/", 
      RowBox[{"Tr", "[", 
       RowBox[{"Qel", ".", "T\[Omega]"}], "]"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Br\[Pi]0ToV", "[", "mV_", "]"}], "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"mV", "<", 
      RowBox[{"mSM", "[", "\"\<Pi0\>\"", "]"}]}], ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{
       FractionBox["2", "\[Alpha]EMval"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           SuperscriptBox["mV", "2"], "/", 
           SuperscriptBox[
            RowBox[{"mSM", "[", "\"\<Pi0\>\"", "]"}], "2"]}]}], ")"}], "3"], 
       "*", "Br\[Pi]To\[Gamma]\[Gamma]"}], "]"}], ",", "0"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Br\[Eta]ToV", "[", "mV_", "]"}], "=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"mV", "<", 
       RowBox[{"mSM", "[", "\"\<Eta\>\"", "]"}]}], ",", 
      RowBox[{"Evaluate", "[", 
       RowBox[{
        FractionBox["2", "\[Alpha]EMval"], "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{
            SuperscriptBox["mV", "2"], "/", 
            SuperscriptBox[
             RowBox[{"mSM", "[", "\"\<Eta\>\"", "]"}], "2"]}]}], ")"}], "3"], 
        "*", "Br\[Eta]To\[Gamma]\[Gamma]"}], "]"}], ",", "0"}], "]"}]}], 
   ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"Br\[Omega]ToV", "[", "mV_", "]"}], "=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"mV", "<", 
        RowBox[{"m\[Omega]", "-", "m\[Pi]0"}]}], ",", 
       RowBox[{"Br\[Omega]To\[Pi]\[Gamma]", "*", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["m\[Omega]", "2"], "-", 
           SuperscriptBox["mV", "2"], "-", 
           SuperscriptBox["m\[Pi]0", "2"]}], ")"}], "2"], "*", 
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["m\[Omega]", "2"], "-", 
              SuperscriptBox["mV", "2"], "+", 
              SuperscriptBox["m\[Pi]0", "2"]}], ")"}], "2"], "-", 
           RowBox[{"4", "*", 
            SuperscriptBox["m\[Omega]", "2"], "*", 
            SuperscriptBox["m\[Pi]0", "2"]}]}], "]"}], "/", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["m\[Omega]", "2"], "-", 
            SuperscriptBox["mV", "2"]}], ")"}], "3"]}]}], ",", "0"}], "]"}]}],
     ";"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Br\[Eta]prToV", "[", "mV_", "]"}], "=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"mV", "<", 
      RowBox[{"mSM", "[", "\"\<EtaPr\>\"", "]"}]}], ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{
       FractionBox["2", "\[Alpha]EMval"], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           SuperscriptBox["mV", "2"], "/", 
           SuperscriptBox[
            RowBox[{"mSM", "[", "\"\<EtaPr\>\"", "]"}], "2"]}]}], ")"}], "3"],
        "*", "Br\[Eta]prTo\[Gamma]\[Gamma]"}], "]"}], ",", "0"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"BrDecay", "[", 
       RowBox[{"mLLP_", ",", "\[Alpha]B_", ",", "\"\<Pi0\>\""}], "]"}], ",", 
      RowBox[{"BrDecay", "[", 
       RowBox[{"mLLP_", ",", "\[Epsilon]2_", ",", "\"\<Eta\>\""}], "]"}], ",", 
      RowBox[{"BrDecay", "[", 
       RowBox[{"mLLP_", ",", "\[Epsilon]2_", ",", "\"\<EtaPr\>\""}], "]"}]}], 
     "}"}], "=", 
    RowBox[{"\[Alpha]B", "*", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Br\[Pi]0ToV", "[", "mLLP", "]"}], ",", 
       RowBox[{"Br\[Eta]ToV", "[", "mLLP", "]"}], ",", 
       RowBox[{"Br\[Eta]prToV", "[", "mLLP", "]"}]}], "}"}]}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"Mixing", " ", "angle", " ", 
      SuperscriptBox["\[Omega]", "0"]}], "-", 
     RowBox[{
      RowBox[{"BL", ".", " ", "Following"}], " ", 
      RowBox[{"https", ":"}]}]}], "//", 
    RowBox[{
     RowBox[{
      RowBox[{"arxiv", ".", "org"}], "/", "pdf"}], "/", 
     RowBox[{"1810.01879", ".", "pdf"}]}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Theta]BL\[Omega]2", "[", 
    RowBox[{"mLLP_", ",", "\[Alpha]B_"}], "]"}], "=", 
   RowBox[{
    FractionBox[
     RowBox[{"4", "Pi", "*", "\[Alpha]B"}], "g\[Omega]"], "*", 
    FractionBox[
     SuperscriptBox[
      RowBox[{"mSM", "[", "\"\<Omega\>\"", "]"}], "4"], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["mLLP", "2"], "-", 
         SuperscriptBox[
          RowBox[{"mSM", "[", "\"\<Omega\>\"", "]"}], "2"]}], ")"}], "2"], 
      "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"\[CapitalGamma]SM", "[", "\"\<Omega\>\"", "]"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"mSM", "[", "\"\<Omega\>\"", "]"}], "2"]}]}]]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FacilitiesList", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<SPS\>\"", ",", "\"\<FermilabBD\>\"", ",", "\"\<LHC\>\"", ",", 
     "\"\<FCC-hh\>\"", ",", "\"\<Serpukhov\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"PmotherToLLP", "[", 
      RowBox[{"mLLP_", ",", "\[Alpha]B_", ",", "part", ",", "Facility"}], 
      "]"}], "=", 
     RowBox[{"BrDecay", "[", 
      RowBox[{"mLLP", ",", "\[Alpha]B", ",", "part"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{"part", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<Pi0\>\"", ",", "\"\<Eta\>\"", ",", "\"\<EtaPr\>\""}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Facility", ",", "FacilitiesList"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"PmotherToLLP", "[", 
      RowBox[{
      "mLLP_", ",", "\[Alpha]B_", ",", "\"\<Mixing-Old\>\"", ",", 
       "Facility"}], "]"}], "=", 
     RowBox[{"Yield\[Omega]", "*", 
      RowBox[{"\[Theta]BL\[Omega]2", "[", 
       RowBox[{"mLLP", ",", "\[Alpha]B"}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{"Facility", ",", "FacilitiesList"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.9346030536922197`*^9, 3.9346030841153975`*^9}, {
  3.9346996824354496`*^9, 3.934699686917145*^9}},
 CellTags->{"Acceptance", "Number-of-events+sensitivity"},
 CellLabel->
  "In[191]:=",ExpressionUUID->"385cb0c4-59c1-4c13-8630-b548024770b2"]
}, Closed]],

Cell[CellGroupData[{

Cell["Via Drell-Yan", "Subsection",
 CellChangeTimes->{{3.934178450342802*^9, 3.9341784530070715`*^9}},
 CellTags->{
  "Number-of-events+sensitivity", 
   "Acceptance"},ExpressionUUID->"27db9bc8-64cd-447f-b8a1-f5edd35f9aa4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "___", "___", "___", "___", "___", "___", "___", "___", "___", "__"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Production", " ", "from", " ", "Drell"}], "-", 
    RowBox[{"Yan", " ", "process"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "___", "___", "___", "___", "___", "___", "___", "___", "___", "__"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   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_\>\"", "<>", "LLPdirName", "<>", "\"\<_\>\"", 
              "<>", "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_", ",", "\[Alpha]B_", ",", "\"\<DrellYan\>\"", ",", 
          "Facility"}], "]"}], "=", 
        RowBox[{"\[Alpha]B", "*", 
         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\>\""}], 
        "}"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"},
 CellLabel->
  "In[205]:=",ExpressionUUID->"4396d201-cdae-4cd6-bfbc-8b03e3ffd8e6"]
}, Closed]],

Cell[CellGroupData[{

Cell["Via bremsstrahlung", "Subsection",
 CellChangeTimes->{{3.934178450342802*^9, 3.9341784593374634`*^9}},
 CellTags->{
  "Number-of-events+sensitivity", 
   "Acceptance"},ExpressionUUID->"9dc01385-0d01-48eb-9766-7b03e8538c25"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"___", "___", "___", "___", "___", "_"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", "Bremsstrahlung", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"___", "___", "___", "___", "___", "_"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"BremProd", "[", "Facility_", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"bremprobfiles", "=", 
        RowBox[{"FileNames", "[", 
         RowBox[{
          RowBox[{"\"\<Pbrem*_\>\"", "<>", "Facility", "<>", "\"\<.m\>\""}], 
          ",", 
          RowBox[{"directory", "[", "\"\<Production weights\>\"", "]"}]}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"bremprobfiles", "!=", 
          RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
          "Scanning", " ", "over", " ", "all", " ", "available", " ", "files",
            " ", "with", " ", "the", " ", "bremsstrahlung", " ", 
           RowBox[{"probability", ".", " ", "They"}], " ", "describe", " ", 
           "different", " ", "descriptions", " ", "of", " ", "the", " ", 
           "bremsstrahlung"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
          "Extract", " ", "the", " ", "bremsstrahlung", " ", "description", 
           " ", "from", " ", "the", " ", "filename"}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"bremprobfilenames", "=", 
           RowBox[{
            RowBox[{
             RowBox[{"Last", "@", 
              RowBox[{"FileNameSplit", "[", "#", "]"}]}], "&"}], "/@", 
            "bremprobfiles"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"bremdescription", "=", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"\"\<Bremsstrahlung-\>\"", "<>", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"StringSplit", "[", 
                  RowBox[{"#", ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    "\"\<Pbrem_\>\"", "<>", "LLPdirName", "<>", "\"\<_\>\""}],
                     ",", "\"\<_\>\""}], "}"}]}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], ")"}]}], "&"}], "/@", 
             "bremprobfilenames"}], ")"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"Do", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"datbrem", "[", 
               RowBox[{"mLLP_", ",", "\[Theta]LLP_"}], "]"}], "=", 
              RowBox[{"Import", "[", 
               RowBox[{
                RowBox[{"bremprobfiles", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", "\"\<MX\>\""}], "]"}]}],
              ";", "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"StringContainsQ", "[", 
                RowBox[{
                 RowBox[{"bremdescription", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], ",", "\"\<Baseline\>\""}], 
                "]"}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"PmotherToLLP", "[", 
                  RowBox[{"mLLP_", ",", "\[Alpha]B_", ",", 
                   RowBox[{"bremdescription", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ",", "Facility"}], "]"}], 
                 "=", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"datbrem", "[", 
                    RowBox[{"mLLP", ",", "\[Theta]LLP"}], "]"}], "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "*", "\[Alpha]B"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"ELLPmin", "[", 
                  RowBox[{
                   RowBox[{"bremdescription", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ",", "Facility"}], "]"}], 
                 "=", 
                 RowBox[{"Evaluate", "[", 
                  RowBox[{
                   RowBox[{"datbrem", "[", 
                    RowBox[{"mLLP", ",", "\[Theta]LLP"}], "]"}], "[", 
                   RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"\[Theta]maxBrem", "[", 
                  RowBox[{
                   RowBox[{"bremdescription", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ",", "Facility"}], "]"}], 
                 "=", 
                 RowBox[{"Evaluate", "[", 
                  RowBox[{
                   RowBox[{"datbrem", "[", 
                    RowBox[{"mLLP", ",", "\[Theta]LLP"}], "]"}], "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"ELLPmax", "[", 
                  RowBox[{"mLLP_", ",", "\[Theta]LLP_", ",", 
                   RowBox[{"bremdescription", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ",", "Facility"}], "]"}], 
                 "=", 
                 RowBox[{"Evaluate", "[", 
                  RowBox[{
                   RowBox[{"datbrem", "[", 
                    RowBox[{"mLLP", ",", "\[Theta]LLP"}], "]"}], "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "]"}]}], ";"}], 
               "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
               RowBox[{"Do", "[", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"PmotherToLLP", "[", 
                    RowBox[{"mLLP_", ",", "\[Alpha]B_", ",", 
                    RowBox[{
                    RowBox[{"bremdescription", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "<>", "\"\<-\>\"", "<>", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"datbrem", "[", 
                    RowBox[{"mLLP", ",", "\[Theta]LLP"}], "]"}], "[", 
                    RowBox[{"[", "j", "]"}], "]"}], "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ",", "Facility"}], 
                    "]"}], "=", 
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"datbrem", "[", 
                    RowBox[{"mLLP", ",", "\[Theta]LLP"}], "]"}], "[", 
                    RowBox[{"[", "j", "]"}], "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "*", "\[Alpha]B"}]}], ";",
                   "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"ELLPmin", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"bremdescription", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "<>", "\"\<-\>\"", "<>", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"datbrem", "[", 
                    RowBox[{"mLLP", ",", "\[Theta]LLP"}], "]"}], "[", 
                    RowBox[{"[", "j", "]"}], "]"}], "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ",", "Facility"}], 
                    "]"}], "=", 
                   RowBox[{"Evaluate", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"datbrem", "[", 
                    RowBox[{"mLLP", ",", "\[Theta]LLP"}], "]"}], "[", 
                    RowBox[{"[", "j", "]"}], "]"}], "[", 
                    RowBox[{"[", "3", "]"}], "]"}], "]"}]}], ";", 
                  "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"\[Theta]maxBrem", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"bremdescription", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "<>", "\"\<-\>\"", "<>", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"datbrem", "[", 
                    RowBox[{"mLLP", ",", "\[Theta]LLP"}], "]"}], "[", 
                    RowBox[{"[", "j", "]"}], "]"}], "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ",", "Facility"}], 
                    "]"}], "=", 
                   RowBox[{"Evaluate", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"datbrem", "[", 
                    RowBox[{"mLLP", ",", "\[Theta]LLP"}], "]"}], "[", 
                    RowBox[{"[", "j", "]"}], "]"}], "[", 
                    RowBox[{"[", "4", "]"}], "]"}], "]"}]}], ";", 
                  "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"ELLPmax", "[", 
                    RowBox[{"mLLP_", ",", "\[Theta]LLP_", ",", 
                    RowBox[{
                    RowBox[{"bremdescription", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "<>", "\"\<-\>\"", "<>", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"datbrem", "[", 
                    RowBox[{"mLLP", ",", "\[Theta]LLP"}], "]"}], "[", 
                    RowBox[{"[", "j", "]"}], "]"}], "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ",", "Facility"}], 
                    "]"}], "=", 
                   RowBox[{"Evaluate", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"datbrem", "[", 
                    RowBox[{"mLLP", ",", "\[Theta]LLP"}], "]"}], "[", 
                    RowBox[{"[", "j", "]"}], "]"}], "[", 
                    RowBox[{"[", "5", "]"}], "]"}], "]"}]}], ";"}], 
                 "\[IndentingNewLine]", ",", 
                 RowBox[{"{", 
                  RowBox[{"j", ",", "1", ",", 
                   RowBox[{"Length", "[", 
                    RowBox[{"datbrem", "[", 
                    RowBox[{"mLLP", ",", "\[Theta]LLP"}], "]"}], "]"}], ",", 
                   "1"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}], 
            "\[IndentingNewLine]", ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{"Length", "[", "bremdescription", "]"}], ",", "1"}], 
             "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], 
     "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"BremProd", "[", "Facility", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"Facility", ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<FCC-hh\>\"", ",", "\"\<Serpukhov\>\"", ",", "\"\<SPS\>\"", ",", 
         "\"\<FermilabBD\>\"", ",", "\"\<LHC\>\""}], "}"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"WeightsCombinations", "=", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Keys", "[", 
          RowBox[{"DownValues", "@", "PmotherToLLP"}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1", ",", "#"}], "]"}], "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}]}], "//", "Transpose"}], "//", 
     "Sort"}]}]}]}]], "Input",
 CellChangeTimes->{{3.886741324632948*^9, 3.88674133750587*^9}, {
   3.886743349704631*^9, 3.886743469951105*^9}, {3.8867435208363976`*^9, 
   3.886743559442109*^9}, {3.8867436030673923`*^9, 3.8867436380024014`*^9}, {
   3.886743677147029*^9, 3.886743791056388*^9}, {3.886759023397938*^9, 
   3.886759051632529*^9}, {3.886759084894906*^9, 3.886759102806116*^9}, {
   3.886759322833825*^9, 3.886759324091713*^9}, {3.8867597957163935`*^9, 
   3.886760018253701*^9}, {3.8867600560403585`*^9, 3.8867601972064524`*^9}, {
   3.8867608717265434`*^9, 3.886760928433196*^9}, {3.8902877382139034`*^9, 
   3.8902877885168395`*^9}, {3.890287908819491*^9, 3.8902879384574685`*^9}, 
   3.890287972630889*^9, {3.892180139844576*^9, 3.8921801533898745`*^9}, {
   3.895134860239647*^9, 3.8951348618856735`*^9}, {3.913885646039929*^9, 
   3.9138856461076612`*^9}, {3.913886132582429*^9, 3.9138862291902003`*^9}, {
   3.9138862898048983`*^9, 3.913886296467663*^9}, {3.9138863354750943`*^9, 
   3.913886444520909*^9}, {3.913886535421424*^9, 3.9138865559413123`*^9}, {
   3.9138866804744043`*^9, 3.91388669116334*^9}, {3.9138867279182673`*^9, 
   3.913886743667845*^9}, {3.913886776305146*^9, 3.913886808473711*^9}, 
   3.913891300284439*^9, {3.9138914285753727`*^9, 3.9138914308549423`*^9}, {
   3.913969890911222*^9, 3.913969893001618*^9}, {3.913969940460579*^9, 
   3.9139700284988656`*^9}, {3.913970098093526*^9, 3.9139702739320292`*^9}, {
   3.9139738777924857`*^9, 3.9139738918530717`*^9}, {3.9139740357543077`*^9, 
   3.913974049988567*^9}, 3.9140620991207333`*^9, {3.914066828782312*^9, 
   3.914066829983427*^9}, {3.9140870961369047`*^9, 3.9140870975147123`*^9}, {
   3.914654243621011*^9, 3.9146542522144117`*^9}, {3.915643039908432*^9, 
   3.915643040067526*^9}, 3.9168532669465156`*^9, 3.934603042981923*^9, {
   3.9346031274475484`*^9, 3.9346031681614494`*^9}, {3.9346032027950983`*^9, 
   3.9346032205556335`*^9}, 3.935135026252051*^9},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"0166a59f-9d3d-479a-a683-\
c535024f17c0"]
}, Closed]]
}, Closed]],

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->"25bfaeb6-8690-41e7-92f5-\
52897e91da4d"],

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"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   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"}]}], "*)"}], "\n", 
   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[{
    RowBox[{"DistrCombinations", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ExtractedProductionParameters", "/@", "matchingFiles"}], 
       ")"}], "//", "Sort"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"SelectedMixingChoice", "==", "\"\<Revised\>\""}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"DistrCombinations", "=", 
       RowBox[{"Select", "[", 
        RowBox[{"DistrCombinations", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "!=", "\"\<Mixing-Old\>\""}], 
          "&"}]}], "]"}]}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
      RowBox[{"DistrCombinations", "=", 
       RowBox[{"Select", "[", 
        RowBox[{"DistrCombinations", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "!=", "\"\<Mixing\>\""}], "&"}]}],
         "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{"DistrCombinations", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
         "\"\<Bremsstrahlung-FR\>\""}], "]"}], "||", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{"DistrCombinations", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
         "\"\<Bremsstrahlung-AP\>\""}], "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"FacilitiesFR", "=", 
        RowBox[{
         RowBox[{"Select", "[", 
          RowBox[{"DistrCombinations", ",", 
           RowBox[{
            RowBox[{"StringContainsQ", "[", 
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"{", "\"\<FR\>\"", "}"}]}], "]"}], "&"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"FacilitiesAP", "=", 
        RowBox[{
         RowBox[{"Select", "[", 
          RowBox[{"DistrCombinations", ",", 
           RowBox[{
            RowBox[{"StringContainsQ", "[", 
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"{", "\"\<AP\>\"", "}"}]}], "]"}], "&"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"DistrCombinationsToCheck", "=", 
        RowBox[{"Select", "[", 
         RowBox[{"DistrCombinations", ",", 
          RowBox[{
           RowBox[{"!", 
            RowBox[{"StringContainsQ", "[", 
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"\"\<FR\>\"", ",", "\"\<AP\>\""}], "}"}]}], "]"}]}], 
           "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"DistrCombinationsToCheck", "=", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{"DistrCombinationsToCheck", ",", 
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"LLPdirName", ",", "brem", ",", "fac"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"fac", ",", "FacilitiesFR"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"brem", ",", 
                 RowBox[{
                  RowBox[{"Select", "[", 
                   RowBox[{"WeightsCombinations", ",", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "==", "fac"}], "&&", 
                    RowBox[{"StringContainsQ", "[", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", "\"\<FR\>\""}], 
                    "]"}]}], "&"}]}], "]"}], "[", 
                  RowBox[{"[", 
                   RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}]}], "]"}], 
             ",", "1"}], "]"}], ",", 
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"LLPdirName", ",", "brem", ",", "fac"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"fac", ",", "FacilitiesAP"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"brem", ",", 
                 RowBox[{
                  RowBox[{"Select", "[", 
                   RowBox[{"WeightsCombinations", ",", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "==", "fac"}], "&&", 
                    RowBox[{"StringContainsQ", "[", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", "\"\<AP\>\""}], 
                    "]"}]}], "&"}]}], "]"}], "[", 
                  RowBox[{"[", 
                   RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}]}], "]"}], 
             ",", "1"}], "]"}]}], "]"}], "//", "Sort"}]}], ";"}], 
      "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
      RowBox[{"DistrCombinationsToCheck", "=", "DistrCombinations"}]}], 
     "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
   "Print", "[", 
    "\"\<If there are production weights to all available distributions:\>\"",
     "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"IfCondDistrToWeights", "=", "True"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"IfCondDistrToWeights", "=", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{"WeightsCombinations", ",", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "==", 
             RowBox[{
              RowBox[{"DistrCombinationsToCheck", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "&&", 
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "==", 
             RowBox[{
              RowBox[{"DistrCombinationsToCheck", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "[", 
              RowBox[{"[", "3", "]"}], "]"}]}]}], "&"}]}], "]"}], "!=", 
        RowBox[{"{", "}"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"IfCondDistrToWeights", "==", "False"}], ",", 
        RowBox[{"Break", "[", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
     ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "DistrCombinationsToCheck", "]"}], ",", "1"}], 
      "}"}]}], "]"}], "\[IndentingNewLine]", "IfCondDistrToWeights", 
   "\[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.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.9156430398993397`*^9, 
   3.915643039901335*^9}, 3.9346032662566824`*^9, {3.934603306187125*^9, 
   3.934603306357274*^9}},
 CellTags->{"Acceptance", "Number-of-events+sensitivity"},
 CellLabel->
  "In[210]:=",ExpressionUUID->"2391b5cf-52fa-4025-80dc-3a7d8678ebf5"]
}, Closed]],

Cell[CellGroupData[{

Cell["Decays", "Section",
 CellChangeTimes->{{3.877584114519929*^9, 3.877584115297123*^9}},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"904fe6c1-5930-470c-8f3c-\
85e7b8958d71"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Decay", " ", "width", " ", "in", " ", "GeV"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalGamma]LLP", "[", 
      RowBox[{"mLLP_", ",", "\[Alpha]B_"}], "]"}], "=", 
     RowBox[{"\[Alpha]B", "*", 
      RowBox[{"10", "^", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Interpolation", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Log10", "[", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
               RowBox[{"Log10", "[", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], "&"}], "/@", 
            RowBox[{"Import", "[", 
             RowBox[{
              RowBox[{"FileNameJoin", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"directory", "[", "\"\<Decays\>\"", "]"}], ",", 
                 "\"\<GammaTotBL.txt\>\""}], "}"}], "]"}], ",", 
              "\"\<Table\>\""}], "]"}]}], ",", 
           RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}], "[", 
         RowBox[{"Log10", "[", "mLLP", "]"}], "]"}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"LogLogPlot", "[", 
    RowBox[{
     RowBox[{"\[CapitalGamma]LLP", "[", 
      RowBox[{"mLLP", ",", "1"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"mLLP", ",", "0.05", ",", "5"}], "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Decay", " ", "length"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"c\[Tau]LLP", "[", 
      RowBox[{"mLLP_", ",", "\[Alpha]B_"}], "]"}], "=", 
     FractionBox["chbarval", 
      RowBox[{"\[CapitalGamma]LLP", "[", 
       RowBox[{"mLLP", ",", "\[Alpha]B"}], "]"}]]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ldecayLLP", "[", 
      RowBox[{"mLLP_", ",", "\[Alpha]B_", ",", "ELLP_"}], "]"}], "=", 
     RowBox[{
      RowBox[{"c\[Tau]LLP", "[", 
       RowBox[{"mLLP", ",", "\[Alpha]B"}], "]"}], "*", 
      FractionBox[
       SqrtBox[
        RowBox[{
         SuperscriptBox["ELLP", "2"], "-", 
         SuperscriptBox["mLLP", "2"]}]], "mLLP"]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.8765027030040936`*^9, 3.876502712230002*^9}, {
   3.8765056490712585`*^9, 3.8765056684143023`*^9}, {3.8775935816940823`*^9, 
   3.877593651036413*^9}, {3.8775936851602736`*^9, 3.877593693594926*^9}, {
   3.8867405804606123`*^9, 3.886740855468573*^9}, {3.886740927115221*^9, 
   3.8867410004506335`*^9}, {3.8867589177998257`*^9, 3.886758933299265*^9}, 
   3.8868371903483343`*^9, {3.892180950096738*^9, 3.892180969099872*^9}, {
   3.8928884714154296`*^9, 3.892888477362914*^9}, {3.904903264799167*^9, 
   3.904903264924593*^9}, {3.9138856219576783`*^9, 3.9138856725915384`*^9}, {
   3.9139702811401625`*^9, 3.913970297883662*^9}, 3.913973634713272*^9, {
   3.9156430400765443`*^9, 3.915643040126316*^9}},
 CellTags->{"Acceptance", "Number-of-events+sensitivity"},
 CellLabel->
  "In[221]:=",ExpressionUUID->"7a4cea05-f338-47c2-86e1-3d4b56cd4991"]
}, 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->"fc943042-861c-4387-aede-\
92247472f866"],

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[225]:=",ExpressionUUID->"600aaa28-0ac6-4dd8-8dac-b7fc637d1ee8"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Specifying the experiment", "Title",
 CellChangeTimes->{{3.8876177939846563`*^9, 3.8876177965376587`*^9}},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"5e63df0d-91ae-4964-bbc1-\
6d7e2d620461"],

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.886821665769628*^9, 3.8868216684602585`*^9}, {
   3.887617086304534*^9, 3.8876170990910044`*^9}, 3.889080211074895*^9, {
   3.890287800311657*^9, 3.890287802587648*^9}, {3.892189472726385*^9, 
   3.8921895121150846`*^9}, 3.892705546310735*^9, 3.8932345108531446`*^9, 
   3.902763528561518*^9, {3.902889537778877*^9, 3.9028895446827335`*^9}, {
   3.9138868703932114`*^9, 3.913886928383787*^9}, 3.915643040140436*^9},
 CellTags->{"Acceptance", "Number-of-events+sensitivity"},
 CellLabel->
  "In[226]:=",ExpressionUUID->"e0f77240-4f2d-4c39-b6d4-43538a2813c5"],

Cell[CellGroupData[{

Cell["Running block for next sections", "Chapter",
 CellChangeTimes->{{3.902729140157612*^9, 3.90272914444062*^9}},
 CellTags->{
  "Acceptance", 
   "Number-of-events+sensitivity"},ExpressionUUID->"2d00059d-0a81-4d8f-8b45-\
4d8e48ade8e9"],

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.902889536609843*^9, 
   3.9038925480063467`*^9, {3.9146669334078903`*^9, 3.9146669346924987`*^9}, {
   3.914667191738005*^9, 3.9146671942827597`*^9}},
 CellTags->{"Acceptance", "Number-of-events+sensitivity"},
 CellLabel->
  "In[236]:=",ExpressionUUID->"97ec1b2d-5b46-4299-8a35-8afa25bf7baf"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Number of events", "Title",
 CellChangeTimes->{{3.885140281753849*^9, 3.8851402836781845`*^9}},
 CellTags->
  "Number-of-events-computation+sensitivity",ExpressionUUID->"a2d501c7-16ef-\
47af-adb1-fb0630b36136"],

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->"05ed6ba9-86ad-\
4240-9b8e-153acd985c31"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SelectedExperiment", "=", 
   RowBox[{"SelectedExperimentList", "[", 
    RowBox[{"[", 
     RowBox[{"icounter", "++"}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.916672448691073*^9, 3.9166724492284126`*^9}},
 CellTags->{
  "Acceptance-computation", "Number-of-events-computation+sensitivity"},
 CellLabel->
  "In[238]:=",ExpressionUUID->"7f21e584-3f9e-44f2-b19b-12f9c3e44940"]
}, Closed]],

Cell[CellGroupData[{

Cell["Cross-sections, acceptances", "Chapter",
 CellChangeTimes->{{3.885020695565913*^9, 3.885020698644303*^9}, 
   3.887617827187765*^9, {3.89463726983397*^9, 3.894637273109426*^9}},
 CellTags->{
  "Acceptance-computation", 
   "Number-of-events-computation+sensitivity"},ExpressionUUID->"a3d3caec-641f-\
4570-97b0-9ef5dcfc0772"],

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[{"listquantities", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"#", "//", "ToString"}], ")"}], "&"}], "/@", 
     RowBox[{"{", 
      RowBox[{
      "Npot", ",", "PPi0", ",", "PEta", ",", "PEtapr", ",", "POmega", ",", 
       "Atarget"}], "}"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"quantityselector", "[", "quantity_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Select", "[", 
       RowBox[{"CrossSectionData", ",", 
        RowBox[{
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "quantity"}], "&"}]}], 
       "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}], "//", "N"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"NpotGivenExperiment", ",", 
     RowBox[{"ProbMother", "[", "\"\<Pi0\>\"", "]"}], ",", 
     RowBox[{"ProbMother", "[", "\"\<Eta\>\"", "]"}], ",", 
     RowBox[{"ProbMother", "[", "\"\<EtaPr\>\"", "]"}], ",", 
     RowBox[{"ProbMother", "[", "\"\<Omega\>\"", "]"}], ",", "AtargetVal"}], 
    "}"}], "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"quantityselector", "[", "quantity", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"quantity", ",", "listquantities"}], "}"}]}], "]"}]}], 
  "\[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[{
   "\"\<Search for dark photons 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"}]}], "Input",
 CellChangeTimes->{{3.8921748442124033`*^9, 3.892174924863473*^9}, {
   3.892888493615114*^9, 3.892888495922745*^9}, {3.894178999539856*^9, 
   3.8941789997847443`*^9}, 3.894382708283858*^9, {3.8946372752697067`*^9, 
   3.8946372755375957`*^9}, 3.894781717122591*^9, {3.895053884461896*^9, 
   3.895053887613945*^9}, {3.899198252634884*^9, 3.89919827008097*^9}, {
   3.899215227082757*^9, 3.899215228721673*^9}, {3.9027635076975436`*^9, 
   3.902763508122694*^9}, {3.902763783256745*^9, 3.902763785618586*^9}, {
   3.9048896890123234`*^9, 3.9048896904995394`*^9}, {3.9049007877418613`*^9, 
   3.9049008009407682`*^9}, {3.9049010126152215`*^9, 3.904901012646469*^9}, 
   3.9049018234921083`*^9, {3.913885646171348*^9, 3.913885656271843*^9}, {
   3.9138869564213033`*^9, 3.9138870719643497`*^9}, {3.9138871161748323`*^9, 
   3.9138872180306273`*^9}, 3.913887277391947*^9, 3.913887317714735*^9, {
   3.9138874178618784`*^9, 3.9138874521893015`*^9}, 3.9138875140360203`*^9, {
   3.9138907770747414`*^9, 3.9138907840641837`*^9}, {3.9138911582620163`*^9, 
   3.913891163428483*^9}, {3.913970332713909*^9, 3.913970341189805*^9}, {
   3.914514939528563*^9, 3.9145149472050157`*^9}, {3.9156430401591835`*^9, 
   3.9156430402792015`*^9}, {3.916673661188572*^9, 3.9166736642046876`*^9}, {
   3.9346035006815434`*^9, 3.934603500708866*^9}},
 CellTags->{
  "Acceptance-computation", "Number-of-events-computation+sensitivity"},
 CellLabel->
  "In[239]:=",ExpressionUUID->"5fb9b107-abc0-435f-9210-1319404ec512"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Angle-energy distributions and differential yields  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.887617811213402*^9, 
   3.88761781429661*^9}, {3.896334961873438*^9, 3.8963349667311535`*^9}},
 CellTags->{
  "Number-of-events-computation", "Acceptance-computation", 
   "Number-of-events-computation+sensitivity"},ExpressionUUID->"3ff4cebc-9031-\
49d0-a479-a1e9cfff7aba"],

Cell[CellGroupData[{

Cell["Importing and definitions", "Section",
 CellChangeTimes->{{3.934180644626505*^9, 3.934180647632351*^9}},
 CellTags->{
  "Number-of-events-computation", "Number-of-events-computation+sensitivity", 
   "Acceptance-computation"},ExpressionUUID->"0ac5c719-0096-477d-bada-\
93a52aa33e5a"],

Cell[CellGroupData[{

Cell["Specifying production channels", "Subsection",
 CellChangeTimes->{{3.9341808932682676`*^9, 3.9341808978783426`*^9}, {
  3.934218558336424*^9, 3.9342185679340367`*^9}},
 CellTags->{
  "Acceptance-computation", "Number-of-events-computation", 
   "Number-of-events-computation+sensitivity"},ExpressionUUID->"4a5c7164-09af-\
41c0-b7df-ea90217fc74c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "List", " ", "of", " ", "production", " ", "channels", " ", "for", " ", 
    "the", " ", "selected", " ", "facility"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"ProductionPatternSelectedDistr", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"DistrCombinations", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "==", "FacilityGivenExperiment"}], 
        "&"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ProductionPatternSelected", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"DistrCombinationsToCheck", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "==", "FacilityGivenExperiment"}], 
        "&"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ProductionListTemp", "=", 
     RowBox[{
      RowBox[{"ProductionPatternSelected", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}], "//", "DeleteDuplicates"}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "Selecting", " ", "only", " ", "those", " ", "bremsstrahlung", " ", 
      "channels", " ", "for", " ", "which", " ", "the", " ", "distribution", 
      " ", "is", " ", "non"}], "-", "zero"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"BremVariantsGivenFacility", "=", 
     RowBox[{
      RowBox[{"Select", "[", 
       RowBox[{
        RowBox[{"WeightsCombinations", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "==", "FacilityGivenExperiment"}],
           "&&", 
          RowBox[{"StringContainsQ", "[", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", "\"\<Bremsstrahlung\>\""}], 
           "]"}]}], "&"}]}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"ProbMother", "[", "channel", "]"}], "=", "1"}], ";"}], 
     "\[IndentingNewLine]", ",", 
     RowBox[{"{", 
      RowBox[{"channel", ",", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"{", "\"\<DrellYan\>\"", "}"}], ",", 
         "BremVariantsGivenFacility", ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Mixing\>\"", ",", "\"\<Mixing-Old\>\""}], "}"}]}], 
        "]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", "\"\<Production list:\>\"", "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Deciding", " ", "if", " ", "the", " ", "bremsstrahlung", " ", 
     "contributes", " ", "to", " ", "the", " ", "production", " ", "by", " ", 
     "comparing", " ", 
     SubscriptBox["\[Theta]", 
      RowBox[{"max", ",", "brem"}]], " ", "with", " ", 
     SubscriptBox["\[Theta]", 
      RowBox[{"min", ",", "experiment"}]]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"ELLPmax", "[", 
        RowBox[{"mLLP_", ",", "\[Theta]LLP_", ",", "ch"}], "]"}], "=", 
       RowBox[{"ELLPmax", "[", 
        RowBox[{
        "mLLP", ",", "\[Theta]LLP", ",", "ch", ",", 
         "FacilityGivenExperiment"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ELLPmin", "[", "ch", "]"}], "=", 
       RowBox[{"ELLPmin", "[", 
        RowBox[{"ch", ",", "FacilityGivenExperiment"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"\[Theta]maxBrem", "[", "ch", "]"}], "=", 
       RowBox[{"\[Theta]maxBrem", "[", 
        RowBox[{"ch", ",", "FacilityGivenExperiment"}], "]"}]}]}], 
     "\[IndentingNewLine]", ",", 
     RowBox[{"{", 
      RowBox[{"ch", ",", "BremVariantsGivenFacility"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ProdListBrem", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"ProductionListTemp", ",", 
       RowBox[{
        RowBox[{"StringContainsQ", "[", 
         RowBox[{"#", ",", "\"\<Bremsstrahlung\>\""}], "]"}], "&"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"ProdListBremSelected", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"ProdListBrem", ",", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Theta]maxBrem", "[", "#", "]"}], ">", "\[Theta]minExp"}],
          "&"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ProdListBremSelected", "=", "ProdListBrem"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ProductionList", "=", 
    RowBox[{"Join", "[", 
     RowBox[{"ProdListBremSelected", ",", 
      RowBox[{"Select", "[", 
       RowBox[{"ProductionListTemp", ",", 
        RowBox[{
         RowBox[{"!", 
          RowBox[{"StringContainsQ", "[", 
           RowBox[{"#", ",", "\"\<Bremsstrahlung\>\""}], "]"}]}], "&"}]}], 
       "]"}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Production", " ", "list", " ", "with", " ", "only", " ", "baseline", " ",
      "bremsstrahlung", " ", "description"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"BremSelected", "=", "\"\<Bremsstrahlung-AP-Central\>\""}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ProductionListBaseline", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"ProductionList", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"!", 
          RowBox[{"StringContainsQ", "[", 
           RowBox[{"#", ",", "\"\<Bremsstrahlung\>\""}], "]"}]}], "||", 
         RowBox[{"#", "==", "BremSelected"}]}], "&"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"!", 
         RowBox[{"MemberQ", "[", 
          RowBox[{"ProductionList", ",", 
           RowBox[{"_String", "?", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"StringContainsQ", "[", 
               RowBox[{"#", ",", "pattern"}], "]"}], "&"}], ")"}]}]}], 
          "]"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"ProductionPatternSelectedDistr", "=", 
         RowBox[{"Select", "[", 
          RowBox[{"ProductionPatternSelectedDistr", ",", 
           RowBox[{
            RowBox[{"!", 
             RowBox[{"StringContainsQ", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}], ",", "pattern"}], "]"}]}], 
            "&"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}], 
     "\[IndentingNewLine]", ",", 
     RowBox[{"{", 
      RowBox[{"pattern", ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<AP\>\"", ",", "\"\<Fouroghi-Ritz\>\"", ",", "\"\<Baseline\>\""}],
         "}"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"BremVariantsGivenFacility", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"ProductionList", ",", 
       RowBox[{
        RowBox[{"StringContainsQ", "[", 
         RowBox[{"#", ",", "\"\<Bremsstrahlung\>\""}], "]"}], "&"}]}], 
      "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.9341809008331413`*^9, {3.9342136550621533`*^9, 3.9342136625750804`*^9}, {
   3.9342136936480284`*^9, 3.934213730906671*^9}, {3.9342142521798525`*^9, 
   3.934214329804173*^9}, {3.9342153687217464`*^9, 3.934215408825349*^9}, {
   3.934218470980182*^9, 3.9342184907355137`*^9}, {3.934220014951741*^9, 
   3.9342200324395914`*^9}, {3.9342204747469893`*^9, 
   3.9342204752158785`*^9}, {3.934473129912497*^9, 3.934473139112607*^9}, {
   3.934473221915594*^9, 3.934473241085556*^9}, 3.9344741088583755`*^9, {
   3.9345555682197657`*^9, 3.934555609805334*^9}, 3.934597816924536*^9, {
   3.934600923492016*^9, 3.9346009328711786`*^9}, {3.934701229378125*^9, 
   3.9347012296757174`*^9}, 3.9351350262680454`*^9},
 CellTags->{
  "Acceptance-computation", "Number-of-events-computation", 
   "Number-of-events-computation+sensitivity"},ExpressionUUID->"c6b9ef38-e559-\
4c1e-b281-b7eec176399a"]
}, Closed]],

Cell[CellGroupData[{

Cell["Importing distributions", "Subsection",
 CellChangeTimes->{{3.934180740253267*^9, 3.934180742083174*^9}, {
  3.9344742392407455`*^9, 3.9344742433345695`*^9}},
 CellTags->{
  "Acceptance-computation", "Number-of-events-computation", 
   "Number-of-events-computation+sensitivity"},ExpressionUUID->"8cdf9b8c-e8b5-\
4066-bd6d-249d3956b914"],

Cell[BoxData[{
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"prod", ",", "prodbrem"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"prod", "=", 
       RowBox[{
        RowBox[{"ProductionPatternSelectedDistr", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"dirimp", "=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"StringContainsQ", "[", 
           RowBox[{"prod", ",", 
            RowBox[{"{", 
             RowBox[{"\"\<DrellYan\>\"", ",", "\"\<Mixing\>\""}], "}"}]}], 
           "]"}], "&&", 
          RowBox[{"!", 
           RowBox[{"StringContainsQ", "[", 
            RowBox[{"prod", ",", 
             RowBox[{"{", "\"\<Mixing-Old\>\"", "}"}]}], "]"}]}]}], ",", 
         RowBox[{"FileNameJoin", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"directory", "[", "\"\<Distribution\>\"", "]"}], ",", 
            "\"\<Pregenerated\>\""}], "}"}], "]"}], ",", 
         RowBox[{"directory", "[", "\"\<Distribution\>\"", "]"}]}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "Importing", " ", "the", " ", "data", " ", "with", " ", 
        "distribution"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"!", 
         RowBox[{"StringContainsQ", "[", 
          RowBox[{"prod", ",", 
           RowBox[{"{", 
            RowBox[{"\"\<AP\>\"", ",", "\"\<FR\>\""}], "}"}]}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"DistrDataImport", "[", "prod", "]"}], "=", 
          RowBox[{"Abs", "[", 
           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]", ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{
          "If", " ", "the", " ", "selected", " ", "channel", " ", "is", " ", 
           "Bremsstrahlung", " ", "under", " ", "the", " ", "description", 
           " ", "of", " ", "AP", " ", "or", " ", "FR"}], ",", " ", 
          RowBox[{
          "then", " ", "there", " ", "are", " ", "variants", " ", "for", " ", 
           "the", " ", "description", " ", "parametrizing", " ", "the", " ", 
           "theoretical", " ", "uncertainty"}]}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"DistrDataImportTemp", "[", "prod", "]"}], "=", 
          RowBox[{"Import", "[", 
           RowBox[{
            RowBox[{"FileNameJoin", "[", 
             RowBox[{"{", 
              RowBox[{"dirimp", ",", 
               RowBox[{
               "\"\<DoubleDistr_\>\"", "<>", "LLPdirName", "<>", "\"\<_\>\"", 
                "<>", "prod", "<>", "\"\<_\>\"", "<>", 
                "FacilityGivenExperiment", "<>", "\"\<.m\>\""}]}], "}"}], 
             "]"}], ",", "\"\<MX\>\""}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"Do", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"prodbrem", "=", 
             RowBox[{"prod", "<>", "\"\<-\>\"", "<>", 
              RowBox[{
               RowBox[{
                RowBox[{"DistrDataImportTemp", "[", "prod", "]"}], "[", 
                RowBox[{"[", "j", "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"DistrDataImport", "[", "prodbrem", "]"}], "=", 
             RowBox[{
              RowBox[{
               RowBox[{"DistrDataImportTemp", "[", "prod", "]"}], "[", 
               RowBox[{"[", "j", "]"}], "]"}], "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"mlistDistr", "[", "prodbrem", "]"}], "=", 
             RowBox[{"DeleteDuplicates", "[", 
              RowBox[{
               RowBox[{"DistrDataImport", "[", "prodbrem", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"mLLPmin", "[", "prodbrem", "]"}], ",", 
               RowBox[{"mLLPmax", "[", "prodbrem", "]"}]}], "}"}], "=", 
             RowBox[{"MinMax", "[", 
              RowBox[{"mlistDistr", "[", "prodbrem", "]"}], "]"}]}], ";"}], 
           "\[IndentingNewLine]", ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", "1", ",", 
             RowBox[{"Length", "[", 
              RowBox[{"DistrDataImportTemp", "[", "prod", "]"}], "]"}], ",", 
             "1"}], "}"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
      ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", 
     RowBox[{"Length", "[", "ProductionPatternSelectedDistr", "]"}], ",", 
     "1"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      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[{"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[{"If", "[", 
       RowBox[{
        RowBox[{"StringContainsQ", "[", 
         RowBox[{"prod", ",", "\"\<Bremsstrahlung\>\""}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"DoubleDistrLLPint", "[", 
          RowBox[{"mLLP_", ",", "\[Theta]LLP_", ",", "ELLP_", ",", "prod"}], 
          "]"}], "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"ELLP", "<=", 
            RowBox[{"ELLPmax", "[", 
             RowBox[{"mLLP", ",", "\[Theta]LLP", ",", "prod"}], "]"}]}], ",", 
           RowBox[{"Evaluate", "[", 
            RowBox[{"DoubleDistrLLPint", "[", 
             RowBox[{"mLLP", ",", "\[Theta]LLP", ",", "ELLP", ",", "prod"}], 
             "]"}], "]"}], ",", "0."}], "]"}]}]}], "]"}], ";", 
      "\[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[{
          RowBox[{"Atarget", "->", "AtargetVal"}], ",", 
          RowBox[{"Yield\[Omega]", "->", 
           RowBox[{"ProbMother", "[", "\"\<Omega\>\"", "]"}]}]}], "}"}]}]}], 
      ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{"prod", ",", "ProductionList"}], "}"}]}], 
  "]"}], "\[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[{"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[{"!", 
          RowBox[{"StringContainsQ", "[", 
           RowBox[{"#", ",", "\"\<Bremsstrahlung\>\""}], "]"}]}], "&"}]}], 
       "]"}]}], "}"}]}], "]"}], "//", "AbsoluteTiming"}]}], "Input",
 CellChangeTimes->{
  3.9341807845806675`*^9, 3.934214307032079*^9, {3.9342155410828047`*^9, 
   3.9342155846964006`*^9}, {3.934215620725315*^9, 3.934215703880828*^9}, {
   3.9342157486922917`*^9, 3.9342159080820465`*^9}, {3.9342159447090163`*^9, 
   3.9342159496738663`*^9}, {3.934215980035202*^9, 3.9342159914806213`*^9}, {
   3.934216048453127*^9, 3.9342160921093807`*^9}, {3.9342161417133284`*^9, 
   3.934216164786214*^9}, 3.9342178008978844`*^9, {3.9342183565411205`*^9, 
   3.9342184602415223`*^9}, {3.9344730789929667`*^9, 3.9344730887615805`*^9}, 
   3.9344731187625914`*^9, {3.9344741536938057`*^9, 3.934474157329474*^9}, {
   3.934476009268197*^9, 3.9344760126281433`*^9}, {3.9345555975546775`*^9, 
   3.9345556098154087`*^9}, {3.9346035584267044`*^9, 3.934603561735422*^9}, {
   3.9346036373843517`*^9, 3.9346036466263323`*^9}, 3.9346978739467244`*^9, 
   3.9347028213213873`*^9},
 CellTags->{
  "Acceptance-computation", "Number-of-events-computation", 
   "Number-of-events-computation+sensitivity"},
 CellLabel->
  "In[264]:=",ExpressionUUID->"6e2f9ee3-7fcc-4ab3-b8ed-a134a47db935"]
}, Closed]],

Cell[CellGroupData[{

Cell["Exporting averaged distribution", "Subsection",
 CellChangeTimes->{{3.934180740253267*^9, 3.934180747742608*^9}, {
  3.9342184269992228`*^9, 3.934218430923875*^9}},
 CellTags->{
  "Acceptance-computation", "Number-of-events-computation", 
   "Number-of-events-computation+sensitivity"},ExpressionUUID->"5d5a21a3-a818-\
4a9a-b642-58c86b95131b"],

Cell[BoxData[{
 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[{
       RowBox[{"(", 
        RowBox[{"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", ",", "ProductionListBaseline"}], "}"}]}], "]"}]}]}],
      "}"}], ",", "\"\<MX\>\""}], "]"}], ";"}]}], "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.9138882251043167`*^9, 
   3.9138882251093035`*^9}, {3.9140573961516905`*^9, 3.914057451010392*^9}, {
   3.9140667249964046`*^9, 3.9140667374592443`*^9}, {3.9140668849922748`*^9, 
   3.9140668860566907`*^9}, 3.915184627030238*^9, {3.9156430601988077`*^9, 
   3.9156430604241543`*^9}, 3.915727587776414*^9, {3.916672566533353*^9, 
   3.9166725686001234`*^9}, {3.9166726094945087`*^9, 
   3.9166726096747155`*^9}, {3.916679849894617*^9, 3.9166798503945646`*^9}, {
   3.9168533614169364`*^9, 3.916853382014995*^9}, {3.916853454789669*^9, 
   3.9168535530919013`*^9}, {3.91685422632805*^9, 3.9168542271898108`*^9}, 
   3.916856429758537*^9, 3.9168567750740905`*^9, {3.916994194511986*^9, 
   3.916994194639786*^9}, 3.928576878808322*^9, {3.9285769295898595`*^9, 
   3.928577135245227*^9}, {3.9304940756391134`*^9, 3.9304942536874704`*^9}, {
   3.930494292641827*^9, 3.9304943056256866`*^9}, {3.9304954383171363`*^9, 
   3.930495439377903*^9}, {3.9304954744111834`*^9, 3.9304955596511307`*^9}, {
   3.930495594730049*^9, 3.93049563725099*^9}, {3.9304956810266666`*^9, 
   3.930495682018281*^9}, {3.934177965824263*^9, 3.934178024335834*^9}, {
   3.9341780660321517`*^9, 3.934178109488278*^9}, {3.9341781687198305`*^9, 
   3.9341782811178565`*^9}, {3.934180632550871*^9, 3.934180632806182*^9}, {
   3.9341806890054445`*^9, 3.9341806931598024`*^9}, {3.934218259952458*^9, 
   3.93421826091879*^9}, {3.934218296442099*^9, 3.9342183541896987`*^9}, {
   3.93421840615699*^9, 3.9342184371250544`*^9}, 3.9345978169333267`*^9},
 CellTags->{
  "Number-of-events-computation", "Acceptance-computation", 
   "Number-of-events-computation+sensitivity"},
 CellLabel->
  "In[268]:=",ExpressionUUID->"59b329f7-9117-479d-be33-c16e841f521f"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Plots", "Section",
 CellChangeTimes->{{3.9341806241273217`*^9, 3.9341806246845126`*^9}},
 CellTags->{
  "Number-of-events-computation", "Number-of-events-computation+sensitivity", 
   "Acceptance-computation"},ExpressionUUID->"014c331c-d75e-4497-abf3-\
55f2c8120459"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ptenergies", "=", 
   RowBox[{"LogLogPlot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"ELLPmax", "[", 
         RowBox[{"0.1", ",", "\[Theta]LLP", ",", "prod"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"prod", ",", "ProductionListBaseline"}], "}"}]}], "]"}], 
      "]"}], ",", 
     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"}], "]"}], "&"}], "/@", 
         "ProductionListBaseline"}], ",", "Right"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ptprodprob", "=", 
   RowBox[{"LogLogPlot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"ProbLLP", "[", 
         RowBox[{"ma", ",", "1", ",", "prod"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"prod", ",", "ProductionListBaseline"}], "}"}]}], "]"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ma", ",", "mmin\[Epsilon]", ",", "mmax\[Epsilon]"}], "}"}], 
     ",", 
     RowBox[{"Frame", "->", "True"}], ",", 
     RowBox[{"ImageSize", "->", "Large"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#", ",", "16"}], "]"}], "&"}], "/@", 
         "ProductionListBaseline"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.2", ",", "0.28"}], "}"}]}], "]"}]}], ",", " ", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", " ", "25"}], "]"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.02", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          SuperscriptBox["10", 
           RowBox[{"-", "4"}]], ",", 
          SuperscriptBox["10", "5"]}], "}"}]}], "}"}]}], ",", 
     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", ",", 
          RowBox[{"Darker", "@", "Cyan"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Magenta"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Brown"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "0.66"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(m\), \(LLP\)]\) [GeV]\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(P\), \(prod\)]\)/\!\(\*SubscriptBox[\(\
\[Alpha]\), \(B\)]\)\>\""}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"Row", "[", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Production probabilities of \>\"", ",", "LLPdirName", ",", 
           "\"\< at \>\"", ",", "SelectedExperiment"}], "}"}], "]"}], ",", 
        "18", ",", "Black"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ptprodprobbrem", "=", 
   RowBox[{"LogLogPlot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"ProbLLP", "[", 
         RowBox[{"ma", ",", "1", ",", "prod"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"prod", ",", "BremVariantsGivenFacility"}], "}"}]}], "]"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"ma", ",", "mmin\[Epsilon]", ",", "mmax\[Epsilon]"}], "}"}], 
     ",", 
     RowBox[{"Frame", "->", "True"}], ",", 
     RowBox[{"ImageSize", "->", "Large"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#", ",", "16"}], "]"}], "&"}], "/@", 
         "BremVariantsGivenFacility"}], ",", "Right"}], "]"}]}], ",", " ", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", " ", "25"}], "]"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.02", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.01", ",", "10000"}], "}"}]}], "}"}]}], ",", 
     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", ",", 
          RowBox[{"Darker", "@", "Cyan"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Magenta"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Brown"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "0.66"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(m\), \(LLP\)]\) [GeV]\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(P\), \(prod\)]\)/\!\(\*SubscriptBox[\(\
\[Alpha]\), \(B\)]\)\>\""}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"Row", "[", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Production probabilities of \>\"", ",", "LLPdirName", ",", 
           "\"\< at \>\"", ",", "SelectedExperiment"}], "}"}], "]"}], ",", 
        "18", ",", "Black"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Style", "[", 
  RowBox[{
   RowBox[{"Row", "[", 
    RowBox[{"{", 
     RowBox[{"ptprodprob", ",", "ptenergies", ",", "ptprodprobbrem"}], "}"}], 
    "]"}], ",", 
   RowBox[{"ImageSizeMultipliers", "->", 
    RowBox[{"{", 
     RowBox[{"1", ",", " ", "1", ",", "1"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.934218518515441*^9, 3.934218537902442*^9}, 
   3.9342185941166706`*^9, {3.9342186376090508`*^9, 3.9342186376374598`*^9}, {
   3.93421938331448*^9, 3.9342193923497753`*^9}, {3.9345978169333267`*^9, 
   3.934597816943096*^9}, {3.934603689501496*^9, 3.9346037225667005`*^9}, {
   3.9346037556569457`*^9, 3.9346037615973563`*^9}, {3.9347012453587017`*^9, 
   3.934701261127347*^9}},
 CellTags->{
  "Number-of-events-computation", "Number-of-events-computation+sensitivity", 
   "Acceptance-computation"},
 CellLabel->
  "In[271]:=",ExpressionUUID->"bae4d3ba-ef55-4f3c-a7e8-76606988fc4e"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Number of events", "Chapter",
 CellChangeTimes->{{3.8935731783578434`*^9, 3.893573180246764*^9}},
 CellTags->{
  "Number-of-events-computation", 
   "Number-of-events-computation+sensitivity"},ExpressionUUID->"16b9c77d-7f55-\
4a60-a2ad-eff97d5c1762"],

Cell[CellGroupData[{

Cell["Number of events - using the mapping method ", "Section",
 CellChangeTimes->{{3.897198873663946*^9, 3.8971988750678434`*^9}, 
   3.9165065585390453`*^9, 3.9165070655729046`*^9},
 CellTags->{
  "Acceptance-computation", 
   "Number-of-events-computation+sensitivity"},ExpressionUUID->"e53ebab4-0d78-\
43f0-ab23-ff6728d33041"],

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->"b011e9f4-be79-\
4a31-b820-cdfb73bacfef"],

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", ",", 
      RowBox[{"\[Theta]maxBrem", "[", "prod", "]"}]}], "]"}]}], ",", 
   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[{"!", 
             RowBox[{"StringContainsQ", "[", 
              RowBox[{"ProdChannel", ",", "\"\<Bremsstrahlung\>\""}], "]"}]}],
             ",", 
            RowBox[{"N", "[", "m", "]"}], ",", 
            RowBox[{"ELLPmin", "[", "ProdChannel", "]"}]}], "]"}]}], ";", 
         "\[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[{"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[{"Log10", "[", "tabt", "]"}], "//", "N"}]}]}], 
       "\[IndentingNewLine]", "]"}]}]}]}], "\[IndentingNewLine]", "]"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "___", "___", "___", "___", "___", "___", "___", "___", "___", "___", 
    "___", "___", "___", "___", "___", "___", "___", "_"}], "*)"}], 
  "\[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[{
   "___", "___", "___", "___", "___", "___", "___", "___", "___", "___", 
    "___", "___", "___", "___", "___", "___", "___", "_"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
     "The", " ", "block", " ", "which", " ", "sets", " ", "all", " ", "the", 
      " ", "values", " ", "of", " ", 
      SubscriptBox["\[Epsilon]", "Full"], "\[Times]", 
      SubscriptBox["f", 
       RowBox[{"\[Theta]", ",", "E"}]], " ", "for", " ", "which", " ", "E"}], 
     " ", "<", " ", 
     RowBox[{
      SubscriptBox["E", "max"], " ", "to", " ", "zero"}]}], ",", " ", 
    RowBox[{"for", " ", "Bremsstrahlung"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"createCompiledFunctionBrem", "[", "BremChoice_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "func", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"func", "[", 
        RowBox[{"mfip_", ",", "th_"}], "]"}], "=", 
       RowBox[{"ELLPmax", "[", 
        RowBox[{"mfip", ",", "th", ",", "BremChoice"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Hold", "@", 
         RowBox[{"Compile", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"angleenergy", ",", "_Real", ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"mfip", ",", "_Real"}], "}"}]}], "}"}], ",", 
           RowBox[{"Module", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"angles", ",", "energies", ",", "distrvals", ",", "d"}],
               "}"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"angles", "=", 
               RowBox[{"Compile`GetElement", "[", 
                RowBox[{"angleenergy", ",", "1"}], "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"energies", "=", 
               RowBox[{"Compile`GetElement", "[", 
                RowBox[{"angleenergy", ",", "2"}], "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"distrvals", "=", 
               RowBox[{"Compile`GetElement", "[", 
                RowBox[{"angleenergy", ",", "3"}], "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"d", "=", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{"energies", "<", 
                  RowBox[{"func", "[", 
                   RowBox[{"mfip", ",", "angles"}], "]"}]}], ",", "distrvals",
                  ",", 
                 RowBox[{"10", "^", 
                  RowBox[{"-", "90."}]}]}], "]"}]}], ";", 
              "\[IndentingNewLine]", "d"}]}], "]"}], ",", 
           RowBox[{"CompilationTarget", "->", "\"\<C\>\""}], ",", 
           RowBox[{"RuntimeOptions", "->", "\"\<Speed\>\""}], ",", 
           RowBox[{"RuntimeAttributes", "->", 
            RowBox[{"{", "Listable", "}"}]}], ",", 
           RowBox[{"Parallelization", "->", "True"}]}], "]"}]}], "/.", " ", 
        RowBox[{"DownValues", "@", "func"}]}], "//", "ReleaseHold"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Generate", " ", "a", " ", "dictionary", " ", "of", " ", "compiled", " ", 
    "functions", " ", "for", " ", "each", " ", "variant"}], "*)"}], 
  RowBox[{
   RowBox[{"compiledBremCutter", "=", 
    RowBox[{"AssociationThread", "[", 
     RowBox[{"BremVariantsGivenFacility", ",", 
      RowBox[{
      "createCompiledFunctionBrem", "/@", "BremVariantsGivenFacility"}]}], 
     "]"}]}], ";"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"BremCut", "[", 
    RowBox[{
    "OutGrid\[Theta]final_", ",", "OutGridEfinal_", ",", "distr_", ",", 
     "mLLP_", ",", "bremChoice_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"angleenergy", "=", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"10", "^", 
          RowBox[{"Tuples", "[", 
           RowBox[{"{", 
            RowBox[{"OutGrid\[Theta]final", ",", "OutGridEfinal"}], "}"}], 
           "]"}]}], ",", 
         RowBox[{"Partition", "[", 
          RowBox[{"distr", ",", "1"}], "]"}], ",", "2"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"compiledFunc", "=", 
       RowBox[{"compiledBremCutter", "[", "bremChoice", "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"compiledFunc", "[", 
       RowBox[{"angleenergy", ",", "mLLP"}], "]"}]}]}], "\[IndentingNewLine]",
     "]"}]}], ";"}], "\[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.916678014200655*^9, 3.9166808128021994`*^9, 3.916855187259576*^9, 
   3.916855361061887*^9, {3.916855462239227*^9, 3.9168554643913035`*^9}, 
   3.9181398618832145`*^9, {3.9181441879063487`*^9, 3.9181441895059876`*^9}, {
   3.934700911921713*^9, 3.934700913812061*^9}, 3.9347009506726203`*^9, {
   3.9347034606082387`*^9, 3.934703473006446*^9}, {3.934739347645939*^9, 
   3.9347393508197207`*^9}},
 CellTags->{
  "Acceptance-computation", 
   "Number-of-events-computation+sensitivity"},ExpressionUUID->"138b990f-824a-\
4336-a2c9-e07e4b312056"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Generalized acceptances", "Subsection",
 CellChangeTimes->{{3.9165071505021195`*^9, 3.9165071536920986`*^9}},
 CellTags->{
  "Acceptance-computation", 
   "Number-of-events-computation+sensitivity"},ExpressionUUID->"4f11c12c-0526-\
429f-a4a5-21f3e3e2bd5e"],

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", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"mlistAcceptance", "[", "prod", "]"}], "=", 
       RowBox[{"Join", "[", 
        RowBox[{
         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"}], 
              "]"}]}], "}"}]}], "]"}], ",", 
         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[{
         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]", ",", 
       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", ",", "ProductionListBaseline"}], "}"}]}], "]"}], 
        ",", 
        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", ",", "ProductionListBaseline"}], "}"}]}], "]"}], 
        ",", 
        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", ",", "ProductionListBaseline"}], "}"}]}], "]"}]}], 
       "}"}]}]}], ";"}], "\[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.934700971964466*^9, 3.9347009771032896`*^9}},
 CellTags->{
  "Acceptance-computation", "Number-of-events-computation+sensitivity"},
 CellLabel->
  "In[282]:=",ExpressionUUID->"de39135b-ddd9-4a99-badb-2dc558cd2c48"]
}, Open  ]],

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->"b7e46968-6f4c-\
4b87-890b-b123c316b0dc"],

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", "2"]}]]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"UpperBoundEstimate", "[", 
      RowBox[{"mLLP_", ",", "prod"}], "]"}], "=", 
     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"}], "]"}]}],
                "]"}]]}]}], "}"}]}], "]"}], "]"}], "]"}], ")"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"prod", ",", "ProductionList"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ProdTest", "=", 
   RowBox[{"ProductionList", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[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}, {3.9166727678270264`*^9, 
   3.9166727868341904`*^9}, {3.916811121100667*^9, 3.9168111218985777`*^9}},
 CellTags->{
  "Acceptance-computation", "Number-of-events-computation+sensitivity"},
 CellLabel->
  "In[290]:=",ExpressionUUID->"1b7d16c1-a919-4bbd-837c-8f08730f6537"]
}, 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", 
   "Acceptance-computation"},ExpressionUUID->"9bf6548b-5c2c-47b6-a7d5-\
3b501c16bf87"],

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.9166727968540945`*^9, 
   3.9166728372092457`*^9}},
 CellTags->{
  "Number-of-events-computation+sensitivity", "Acceptance-computation"},
 CellLabel->
  "In[293]:=",ExpressionUUID->"cb7ddcc7-4511-4b1b-adcf-1a7b808e576e"]
}, 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", 
   "Acceptance-computation"},ExpressionUUID->"53f82cdd-aed4-4f3d-8394-\
c6f88bf32ed9"],

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[{
     RowBox[{"IntegralLLP", "[", 
      RowBox[{"mLLP_", ",", "finv_", ",", "ProdChannel_"}], "]"}], ":=", 
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{"IntegrandLLP", "[", 
          RowBox[{"mLLP", ",", "finv", ",", 
           RowBox[{"Exp", "[", "\[Theta]LLP", "]"}], ",", 
           RowBox[{"Exp", "[", "ELLP", "]"}], ",", 
           RowBox[{"Exp", "[", "zLLP", "]"}], ",", "ProdChannel"}], "]"}], 
         "]"}], 
        RowBox[{"Exp", "[", 
         RowBox[{"\[Theta]LLP", "+", "ELLP", "+", "zLLP"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Theta]LLP", ",", 
         RowBox[{"Log", "[", "\[Theta]minExp", "]"}], ",", 
         RowBox[{"Log", "[", "\[Theta]maxExp", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"ELLP", ",", 
         RowBox[{"Log", "[", "mLLP", "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"ELLPmax", "[", 
           RowBox[{"mLLP", ",", 
            RowBox[{"Exp", "[", "\[Theta]LLP", "]"}], ",", "ProdChannel"}], 
           "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"zLLP", ",", 
         RowBox[{"Log", "[", 
          RowBox[{"zmin\[Theta]", "[", 
           RowBox[{"Exp", "[", "\[Theta]LLP", "]"}], "]"}], "]"}], ",", 
         RowBox[{"Log", "[", 
          RowBox[{"zmax\[Theta]", "[", 
           RowBox[{"Exp", "[", "\[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."}], "]"}]}]}]}]], "Input",
 CellTags->{
  "Number-of-events-computation+sensitivity", "Acceptance-computation"},
 CellLabel->
  "In[295]:=",ExpressionUUID->"3ab27229-78da-412b-bce0-83d8ab93bec2"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tests", "Section",
 CellChangeTimes->{{3.8972012736109533`*^9, 3.897201275449023*^9}, {
  3.9166730149125247`*^9, 3.916673017271925*^9}, {3.9166730902782764`*^9, 
  3.9166730910359907`*^9}},
 CellTags->
  "Number-of-events-computation+sensitivity",ExpressionUUID->"3a2b0c2a-e0af-\
4d23-b59b-68499c2b67e3"],

Cell[CellGroupData[{

Cell["Total number of events", "Subsection",
 CellChangeTimes->{{3.892111289211891*^9, 3.892111293865343*^9}, {
  3.93470110830593*^9, 3.934701110585882*^9}},
 CellTags->
  "Number-of-events-computation+sensitivity",ExpressionUUID->"f7f76001-b0d3-\
4594-9cc4-d5e7fb6f6c65"],

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[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mtest", "=", 
     RowBox[{"Max", "[", 
      RowBox[{
       FractionBox[
        RowBox[{
         RowBox[{"mLLPmax", "[", "ProdTest", "]"}], "+", 
         RowBox[{"mLLPmin", "[", "ProdTest", "]"}]}], "2"], ",", 
       RowBox[{"1.2", "*", "mmin\[Epsilon]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Epsilon]2list", "=", 
     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[{"-", "17."}], ",", 
         RowBox[{"-", "3."}], ",", "0.3"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dat1", "=", 
      RowBox[{"NeventsDiscret", "[", 
       RowBox[{"mtest", ",", "ProdTest", ",", "\[Epsilon]2list"}], "]"}]}], 
     ";"}], "//", "AbsoluteTiming"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dat2", "=", 
      RowBox[{"ParallelTable", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"\[Epsilon]2list", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"c\[Tau]LLP", "[", 
           RowBox[{"mtest", ",", 
            RowBox[{"\[Epsilon]2list", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
          RowBox[{"NeventsInt", "[", 
           RowBox[{"mtest", ",", 
            RowBox[{"\[Epsilon]2list", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", "ProdTest"}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"Length", "[", "\[Epsilon]2list", "]"}], ",", "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.8972305813039556`*^9, {
   3.897497510731538*^9, 3.89749751125323*^9}, {3.902767311298179*^9, 
   3.902767314971142*^9}, 3.913885628281992*^9, {3.9138909049631968`*^9, 
   3.9138909075735703`*^9}, {3.9138924586138153`*^9, 3.913892484937354*^9}, {
   3.913977632763244*^9, 3.9139776371781855`*^9}, {3.914060611820261*^9, 
   3.9140606165631547`*^9}, {3.914060754306946*^9, 3.914060758151827*^9}, {
   3.9140661649260087`*^9, 3.914066165299016*^9}, 3.9144928342705812`*^9, {
   3.914493274362196*^9, 3.9144932960373006`*^9}, 3.9144933745468297`*^9, {
   3.914514390791649*^9, 3.914514396799925*^9}, 3.91451500763321*^9, {
   3.9151840345413003`*^9, 3.9151840346541643`*^9}, {3.9151841490177746`*^9, 
   3.9151841512887573`*^9}, {3.9156430652941766`*^9, 3.915643065297191*^9}, 
   3.9166731411610813`*^9},
 CellTags->"Number-of-events-computation+sensitivity",
 CellLabel->
  "In[299]:=",ExpressionUUID->"37228393-0d0c-436e-bc3b-30f61941ac9c"]
}, Closed]],

Cell[CellGroupData[{

Cell["Differential number of events", "Subsection",
 CellChangeTimes->{{3.892111289211891*^9, 3.892111293865343*^9}},
 CellTags->
  "Number-of-events-computation+sensitivity",ExpressionUUID->"4ab70f07-9169-\
49e3-8027-ca08d6e26b73"],

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", ",", "ProductionListBaseline"}], "}"}]}], "]"}], 
       ";", "\[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.05"}], "]"}]}], ";"}], "\[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\), \(V\)]\) = \>\"", ",", 
            "mvaltest", ",", 
            "\"\< GeV, \!\(\*SubscriptBox[\(\[Alpha]\), \(B\)]\) = \>\"", ",", 
            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.8972292867488394`*^9, 
   3.89722929702377*^9}, {3.8972306661965404`*^9, 3.8972306721050725`*^9}, {
   3.8975308343870435`*^9, 3.897530869153321*^9}, {3.8975310380863085`*^9, 
   3.89753104461861*^9}, {3.897531900362914*^9, 3.897531900595253*^9}, {
   3.9027678930208297`*^9, 3.9027678936528425`*^9}, 3.9138856283067827`*^9, {
   3.913890462711218*^9, 3.9138904981911244`*^9}, {3.9140605326688194`*^9, 
   3.9140605336567073`*^9}, {3.915643065351285*^9, 3.9156430653710737`*^9}, {
   3.9166731600344844`*^9, 3.9166731605717616`*^9}, {3.916673280296506*^9, 
   3.9166732810468893`*^9}, {3.9166733394090853`*^9, 
   3.9166733620337677`*^9}, {3.9166734368007584`*^9, 3.91667343719798*^9}, {
   3.9166737283591523`*^9, 3.91667373012189*^9}, {3.916807176967904*^9, 
   3.9168072194300737`*^9}, {3.91680757334956*^9, 3.9168075887276125`*^9}, 
   3.9168089716781893`*^9, 3.916809136869836*^9, {3.916811166027975*^9, 
   3.9168111684297657`*^9}, 3.916855041346441*^9, {3.934701200559654*^9, 
   3.934701201091159*^9}},
 CellTags->"Number-of-events-computation+sensitivity",
 CellLabel->
  "In[305]:=",ExpressionUUID->"8b2df4ae-967d-46fb-aec6-6813b886b784"]
}, 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->"5e3ed301-4045-\
46e3-86e8-e81e39f5ea25"],

Cell[CellGroupData[{

Cell["Definitions", "Chapter",
 CellChangeTimes->{{3.8850542017641125`*^9, 3.885054203349573*^9}},
 CellTags->
  "Number-of-events-computation+sensitivity",ExpressionUUID->"8121da88-795e-\
4f0e-b92a-de6f9a444f8c"],

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[{"FilenameNeventsInt", "[", "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[{"FilenameNeventsInt", "[", "#", "]"}], "&"}], "/@", 
  "ProductionList"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"mRangeExport", "[", "prod", "]"}], "=", 
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "0.021", ",", "0.03", ",", "0.035", ",", "0.04", ",", "0.045", ",", 
          "0.05", ",", "0.055", ",", "0.06", ",", "0.07", ",", "0.08", ",", 
          "0.09", ",", "0.1", ",", "0.11", ",", "0.12", ",", "0.125", ",", 
          "0.13", ",", "0.14", ",", "0.15", ",", "0.17", ",", "0.2", ",", 
          "0.215", ",", "0.25", ",", "0.3", ",", "0.35", ",", "0.4", ",", 
          "0.45", ",", "0.5", ",", "0.54", ",", "0.55", ",", "0.6", ",", 
          "0.65", ",", "0.7", ",", "0.72", ",", "0.73", ",", "0.74", ",", 
          "0.75", ",", "0.76", ",", "0.77", ",", "0.775", ",", "0.78", ",", 
          "0.785", ",", "0.79", ",", "0.795", ",", "0.8", ",", "0.81", ",", 
          "0.82", ",", "0.84", ",", "0.9", ",", "0.95", ",", "0.97", ",", "1",
           ",", "1.005", ",", "1.01", ",", "1.012", ",", "1.015", ",", 
          "1.017", ",", "1.02", ",", "1.025", ",", "1.03", ",", "1.05", ",", 
          "1.07", ",", "1.09", ",", "1.1", ",", "1.2", ",", "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.8", ",", "2.9", ",", "3.", ",", 
          "3.05", ",", "3.1"}], "}"}], ",", 
        RowBox[{"Table", "[", 
         RowBox[{"mLLP", ",", 
          RowBox[{"{", 
           RowBox[{"mLLP", ",", "3.21", ",", 
            RowBox[{"Max", "[", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"mLLPmax", "[", "prod", "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"prod", ",", "ProductionList"}], "}"}]}], "]"}], 
             "]"}], ",", 
            FractionBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Max", "[", 
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{"mLLPmax", "[", "prod", "]"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"prod", ",", "ProductionList"}], "}"}]}], "]"}], 
                "]"}], "-", "3"}], ")"}], "20"]}], "}"}]}], "]"}]}], "]"}], "//",
       "N"}]}], "\[IndentingNewLine]", ",", 
    RowBox[{"{", 
     RowBox[{"prod", ",", "ProductionList"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"couplingsRangeExport", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      SuperscriptBox["10", "x"], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "20.8"}], ",", 
        RowBox[{"-", "6"}], ",", "0.03"}], "}"}]}], "]"}], "//", "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.88684029377495*^9, 3.8868404665509343`*^9}, {3.8868414104888535`*^9, 
   3.8868414225159225`*^9}, {3.8890817621378937`*^9, 3.889081762140961*^9}, {
   3.88908460476051*^9, 3.889084604763502*^9}, {3.892188794960414*^9, 
   3.8921888564262486`*^9}, 3.892276504856449*^9, {3.892705877974984*^9, 
   3.8927058964920373`*^9}, {3.89270597977682*^9, 3.892706000159081*^9}, 
   3.892890275686406*^9, 3.892890565684495*^9, {3.8928906683120165`*^9, 
   3.8928906691645193`*^9}, {3.8928921066767316`*^9, 3.892892205794788*^9}, {
   3.8928923091023135`*^9, 3.8928923130853605`*^9}, {3.892893113220736*^9, 
   3.8928931146965623`*^9}, {3.8950540496809034`*^9, 
   3.8950540764821167`*^9}, {3.8950762756864758`*^9, 
   3.8950763083391457`*^9}, {3.895129045455325*^9, 3.895129092773349*^9}, {
   3.896335021554511*^9, 3.896335031114843*^9}, {3.8972293188333693`*^9, 
   3.897229318835312*^9}, {3.904712366400467*^9, 3.9047124185854053`*^9}, {
   3.9047124502939787`*^9, 3.9047124639937067`*^9}, {3.907408873347437*^9, 
   3.907408874085919*^9}, {3.907409082450775*^9, 3.90740910474655*^9}, {
   3.9138856464879036`*^9, 3.9138856464899817`*^9}, {3.913890462716206*^9, 
   3.9138904627202673`*^9}, 3.9138915048050413`*^9, {3.9138915838094063`*^9, 
   3.913891621993849*^9}, {3.9139704594571085`*^9, 3.913970460444643*^9}, {
   3.9139743212743883`*^9, 3.913974321386245*^9}, {3.914514959483796*^9, 
   3.9145149594877863`*^9}, {3.915643041195798*^9, 3.9156430412240496`*^9}, {
   3.934703841357723*^9, 3.9347038561370754`*^9}, {3.934704123902627*^9, 
   3.93470415994409*^9}},
 CellTags->"Number-of-events-computation+sensitivity",
 CellLabel->
  "In[481]:=",ExpressionUUID->"4d2a805b-fd5a-4bd2-97ee-2d057693c463"]
}, Closed]],

Cell[CellGroupData[{

Cell["Exporting", "Chapter",
 CellChangeTimes->{{3.885054212114191*^9, 3.885054213032151*^9}},
 CellTags->
  "Number-of-events-computation+sensitivity",ExpressionUUID->"e55d87a1-49c0-\
4d5d-8043-fc0f241a662d"],

Cell[CellGroupData[{

Cell["Common definition", "Section",
 CellChangeTimes->{{3.8921886043857117`*^9, 3.8921886076155424`*^9}},
 CellTags->
  "Number-of-events-computation+sensitivity",ExpressionUUID->"c3e51185-2757-\
4cc1-a540-484ca9829552"],

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[{"FilenameNeventsInt", "[", "ProdChannel", "]"}]}], "}"}], 
        "]"}], ",", 
       RowBox[{"Flatten", "[", 
        RowBox[{"TabFrom", ",", "1"}], "]"}], ",", "\"\<Table\>\""}], 
      "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Monitor", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"prod", "=", 
        RowBox[{"ProductionList", "[", 
         RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"BlockExport", "[", "prod", "]"}]}], ",", 
      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.9145149594954095`*^9, {
   3.914667009080821*^9, 3.9146670092449164`*^9}, 3.915643041232052*^9},
 CellTags->"Number-of-events-computation+sensitivity",
 CellLabel->
  "In[405]:=",ExpressionUUID->"24015966-ee86-4c0c-989f-46b921daff03"]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Computing sensitivities", "Title",
 CellChangeTimes->{{3.885020809493571*^9, 3.88502081261261*^9}},
 CellTags->{
  "Sensitivity", 
   "Re-evaluation"},ExpressionUUID->"b1bc93fd-4c6c-42dc-81a1-73484db188bd"],

Cell[CellGroupData[{

Cell["Basic definitions", "Chapter",
 CellChangeTimes->{{3.9138314745388813`*^9, 3.913831477098402*^9}},
 CellTags->{
  "Sensitivity", 
   "Re-evaluation"},ExpressionUUID->"97db36ff-3d96-4131-883d-1acc7c19095b"],

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[{"LLPdirName", "=", 
  RowBox[{"dropdownDialog", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\"\<B-L\>\"", ",", "\"\<B-3Lmu\>\"", ",", "\"\<B-3Le-Lmu+Ltau\>\"", 
      ",", "\"\<B-Le-3Lmu+Ltau\>\""}], "}"}], ",", 
    "\"\<Select the type of the mediator:\>\""}], 
   "]"}]}], "\[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]", "]"}]}], "Input",
 CellChangeTimes->{{3.9138315400875525`*^9, 3.91383154039198*^9}, {
   3.913891670421169*^9, 3.913891673276001*^9}, {3.913955090567734*^9, 
   3.9139550906928043`*^9}, 3.9139706033708844`*^9, 3.9146668993946486`*^9, {
   3.9152626877214518`*^9, 3.9152626880128555`*^9}, {3.9156430412440367`*^9, 
   3.915643041267748*^9}, 3.93460298162704*^9, {3.934697595481768*^9, 
   3.9346975960027237`*^9}},
 CellTags->{"Re-evaluation", "Sensitivity"},
 CellLabel->
  "In[408]:=",ExpressionUUID->"2d9dfdcc-0eff-4bca-bb9a-a34d63a101a7"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Specifying the experiment and interpolating tabulated number of events\
\>", "Chapter",
 CellChangeTimes->{{3.8865657605515084`*^9, 3.886565789800824*^9}, {
  3.8891547325867977`*^9, 3.8891547373469143`*^9}},
 CellTags->
  "Sensitivity-computation",ExpressionUUID->"f5d6267a-dfd1-422f-a14b-\
5ac5f9bb6224"],

Cell[CellGroupData[{

Cell["Selecting the experiment", "Section",
 CellChangeTimes->{{3.9139658068606853`*^9, 3.913965811150226*^9}},
 CellTags->
  "Sensitivity-computation",ExpressionUUID->"2e7c1ecd-fa85-4581-93d7-\
cfbd33ba9be3"],

Cell[BoxData[{
 RowBox[{"Print", "[", "\"\<Selected experiment:\>\"", 
  "]"}], "\[IndentingNewLine]", 
 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.886840860661646*^9, 3.886840860664637*^9}, 
   3.8890817880618696`*^9, {3.8891547447151575`*^9, 3.8891549444728413`*^9}, {
   3.8891555762544374`*^9, 3.8891555856760416`*^9}, {3.8932345510125337`*^9, 
   3.89323456368647*^9}, {3.89357120648059*^9, 3.8935714592585745`*^9}, {
   3.893571545207655*^9, 3.8935715786721*^9}, {3.8935716945595617`*^9, 
   3.8935717354831114`*^9}, {3.893572484980073*^9, 3.8935725300692596`*^9}, {
   3.895054024169799*^9, 3.8950540417214823`*^9}, 3.89684678645724*^9, 
   3.89919325721731*^9, {3.905403972343326*^9, 3.9054039725337305`*^9}, {
   3.907411978163224*^9, 3.9074119810572186`*^9}, {3.907412091826584*^9, 
   3.907412094086093*^9}, {3.9138856464971056`*^9, 3.9138856465141516`*^9}, {
   3.9138916838349504`*^9, 3.913891827396206*^9}, {3.9138921667513247`*^9, 
   3.913892172717104*^9}, {3.913892368507559*^9, 3.9138923707397146`*^9}, {
   3.913954268074481*^9, 3.9139542724904437`*^9}, 3.913954515586889*^9, {
   3.9139550482633314`*^9, 3.913955048705912*^9}, {3.913955096763817*^9, 
   3.913955158064865*^9}, {3.913955220888626*^9, 3.9139554719164515`*^9}, {
   3.9139555299768157`*^9, 3.913955594188072*^9}, {3.9139558613427095`*^9, 
   3.9139559117838964`*^9}, {3.9139559447796946`*^9, 
   3.9139560410144596`*^9}, {3.913963274949171*^9, 3.913963326902071*^9}, {
   3.9139633600739164`*^9, 3.9139635321188793`*^9}, {3.913963598616632*^9, 
   3.9139636458854485`*^9}, 3.9139640986736097`*^9, {3.9139652026009254`*^9, 
   3.9139652159221773`*^9}, {3.913965669649431*^9, 3.913965669801878*^9}, {
   3.913965852616486*^9, 3.9139658533797336`*^9}, {3.913973573823986*^9, 
   3.9139735858443227`*^9}, 3.9145149595024004`*^9, {3.9146667866680994`*^9, 
   3.914666802606837*^9}, 3.9146686483838224`*^9, {3.9156430412762356`*^9, 
   3.9156430412862406`*^9}, {3.915820919928549*^9, 3.915820919928549*^9}},
 CellTags->"Sensitivity-computation",
 CellLabel->
  "In[425]:=",ExpressionUUID->"193b719a-6333-4030-ac71-be791774afa4"]
}, Closed]],

Cell[CellGroupData[{

Cell["Importing data and interpolations", "Section",
 CellChangeTimes->{{3.9139658068606853`*^9, 3.9139658231084366`*^9}},
 CellTags->
  "Sensitivity-computation",ExpressionUUID->"8d1b17c9-390b-4e03-842f-\
8cf2b54d7abe"],

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", ",", 
        "\"\<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_", ",", "\[Alpha]B_", ",", "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]", "\[Alpha]B", 
            "\[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", "[", "\[Alpha]B", "]"}]}], "]"}], ")"}]}], 
           "]"}], ",", "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"}], "}"}]}], "]"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.913970298986431*^9, 3.9139702990034065`*^9}, {
   3.913970533064809*^9, 3.913970537437964*^9}, {3.9139735884944715`*^9, 
   3.9139735892705536`*^9}, {3.914062282252572*^9, 3.9140622829879313`*^9}, {
   3.914514959520219*^9, 3.914514959537241*^9}, 3.9146668306271057`*^9, {
   3.914670767721162*^9, 3.9146707677377434`*^9}, {3.9156430413057795`*^9, 
   3.9156430413474255`*^9}, {3.9158209199415708`*^9, 
   3.9158209199575243`*^9}, {3.934701429662324*^9, 3.934701429822565*^9}},
 CellTags->"Sensitivity-computation",
 CellLabel->
  "In[435]:=",ExpressionUUID->"18662e31-56ea-4c12-b7b8-94f92338fc39"],

Cell[CellGroupData[{

Cell["Accounting for various bremsstrahlung descriptions", "Subsection",
 CellChangeTimes->{{3.9344213636600704`*^9, 3.934421371467765*^9}},
 CellTags->
  "Sensitivity-computation",ExpressionUUID->"ba50b405-0c56-4497-8fdb-\
7ec58e3bb0c4"],

Cell[BoxData[{
 RowBox[{"Print", "[", "\"\<List of various bremsstrahlung channels:\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BremChannelsList", "=", 
   RowBox[{
    RowBox[{"Select", "[", 
     RowBox[{"ProductionChannelsList", ",", 
      RowBox[{
       RowBox[{"StringContainsQ", "[", 
        RowBox[{"#", ",", "\"\<Bremsstrahlung\>\""}], "]"}], "&"}]}], "]"}], "//",
     "Sort"}]}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "Defining", " ", "the", " ", "baseline", " ", "bremsstrahlung", " ", 
    "setup"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BremChannelBaseline", "=", "\"\<Bremsstrahlung-AP-Central\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"BremChannelsList", "==", 
     RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ProductionChannelsListUnified", "=", "ProductionChannelsList"}],
      ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"MemberQ", "[", 
        RowBox[{"BremChannelsList", ",", "BremChannelBaseline"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ProductionChannelsBaseline", "=", 
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"Select", "[", 
            RowBox[{"ProductionChannelsList", ",", 
             RowBox[{
              RowBox[{"!", 
               RowBox[{"StringContainsQ", "[", 
                RowBox[{"#", ",", "\"\<Bremsstrahlung\>\""}], "]"}]}], 
              "&"}]}], "]"}], ",", 
           RowBox[{"{", "BremChannelBaseline", "}"}]}], "]"}]}], ";"}], 
       "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
       RowBox[{"ProductionChannelsBaseline", "=", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"Select", "[", 
           RowBox[{"ProductionChannelsList", ",", 
            RowBox[{
             RowBox[{"!", 
              RowBox[{"StringContainsQ", "[", 
               RowBox[{"#", ",", "\"\<Bremsstrahlung\>\""}], "]"}]}], "&"}]}],
            "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"BremChannelsList", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "}"}]}], "]"}]}]}], 
      "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"ProductionChannelsListUnified", "=", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{"ProductionChannelsList", ",", 
          RowBox[{
           RowBox[{"!", 
            RowBox[{"StringContainsQ", "[", 
             RowBox[{"#", ",", "\"\<Bremsstrahlung\>\""}], "]"}]}], "&"}]}], 
         "]"}], ",", 
        RowBox[{"{", "\"\<Bremsstrahlung\>\"", "}"}]}], "]"}]}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MapThread", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"BremNameExportPattern", "[", "#1", "]"}], "=", "#2"}], ")"}], 
     "&"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\"\<Bremsstrahlung-\>\"", "<>", "#"}], ")"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{
        "\"\<FR-Upper\>\"", ",", "\"\<FR-Central\>\"", ",", 
         "\"\<FR-Lower\>\"", ",", "\"\<Baseline\>\"", ",", "\"\<AP-Upper\>\"",
          ",", "\"\<AP-Central\>\"", ",", "\"\<AP-Lower\>\""}], "}"}]}], ",", 
      RowBox[{"{", 
       RowBox[{
       "\"\<FR-Upper\>\"", ",", "\"\<FR-Central\>\"", ",", "\"\<FR-Lower\>\"",
         ",", "\"\<Baseline\>\"", ",", "\"\<AP-Upper\>\"", ",", 
        "\"\<AP-Central\>\"", ",", "\"\<AP-Lower\>\""}], "}"}]}], "}"}]}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"NevIntOverall", "[", 
    RowBox[{"mLLP_", ",", "\[Alpha]B_"}], "]"}], "=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{"NevInt", "[", 
      RowBox[{"mLLP", ",", "\[Alpha]B", ",", "prod"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"prod", ",", "ProductionChannelsBaseline"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pt", "[", "mLLP_", "]"}], ":=", 
  RowBox[{"LogLogPlot", "[", 
   RowBox[{
    RowBox[{"Evaluate", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"NevInt", "[", 
        RowBox[{"mLLP", ",", "y", ",", "prod"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"prod", ",", "ProductionChannelsBaseline"}], "}"}]}], "]"}], 
     "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", 
      RowBox[{"couplingminmaxOverall", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"couplingminmaxOverall", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"Placed", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"#", ",", "15"}], "]"}], "&"}], "/@", 
        "ProductionChannelsBaseline"}], ",", "Right"}], "]"}]}], ",", 
    RowBox[{"PlotRange", "->", 
     RowBox[{"{", 
      RowBox[{"couplingminmaxOverall", ",", 
       RowBox[{"{", 
        RowBox[{
         SuperscriptBox["10", 
          RowBox[{"-", "2"}]], ",", "NevMaxOverall"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"Frame", "->", "True"}], ",", 
    RowBox[{"ImageSize", "->", "Large"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(B\)]\)\>\"", " ", ",", " ", 
       "\"\<\!\(\*SubscriptBox[\(N\), \(events\)]\)[\!\(\*SubscriptBox[\(m\), \
\(V\)]\),\!\(\*SubscriptBox[\(\[Alpha]\), \(B\)]\)]\>\""}], "}"}]}], ",", 
    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[{
         "ExperimentFolder", ",", 
          "\"\<. \!\(\*SubscriptBox[\(m\), \(V\)]\) = \>\"", ",", "mLLP", ",",
           " ", "\"\< GeV\>\""}], "}"}], "]"}], ",", "20", ",", "Black"}], 
      "]"}]}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"pt", "[", "0.7", "]"}]}], "Input",
 CellChangeTimes->{{3.9344214061369877`*^9, 3.9344214204168596`*^9}, {
  3.9344218908614206`*^9, 3.934421911216852*^9}, {3.934421946639409*^9, 
  3.93442203218508*^9}, {3.9344226880216246`*^9, 3.9344226886615286`*^9}, {
  3.9344227585794473`*^9, 3.9344227618807783`*^9}, {3.9344229632846923`*^9, 
  3.934422985720289*^9}, {3.9344232039753017`*^9, 3.9344232051634417`*^9}, {
  3.934425118417382*^9, 3.9344251228031607`*^9}, {3.934555568906765*^9, 
  3.934555609855014*^9}, {3.9347013883618474`*^9, 3.93470141589386*^9}, {
  3.934701569805521*^9, 3.9347015699619627`*^9}, {3.9351350262990503`*^9, 
  3.9351350263020563`*^9}},
 CellTags->
  "Sensitivity-computation",ExpressionUUID->"f0e8ae89-0a8f-473c-9289-\
64e2000277c0"]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Sensitivity", "Chapter",
 CellChangeTimes->{{3.8865657605515084`*^9, 3.886565789800824*^9}, {
  3.8891547325867977`*^9, 3.8891547373469143`*^9}, {3.913965830034291*^9, 
  3.9139658311040325`*^9}},
 CellTags->
  "Sensitivity-computation",ExpressionUUID->"2bd30740-e737-4e0f-ad70-\
2c4c7fe4c2b1"],

Cell[CellGroupData[{

Cell["Events density plot", "Section",
 CellChangeTimes->{{3.8928925129732084`*^9, 3.8928925141322923`*^9}, {
  3.892910359615284*^9, 3.892910363538608*^9}},
 CellTags->
  "Sensitivity-computation",ExpressionUUID->"9432283d-d8de-4637-9083-\
140509059561"],

Cell[BoxData[{
 RowBox[{"plot", "=", 
  RowBox[{"DensityPlot", "[", 
   RowBox[{
    RowBox[{"Evaluate", "[", 
     RowBox[{"Log10", "[", 
      RowBox[{"NevIntOverall", "[", 
       RowBox[{"mLLP", ",", "\[Alpha]B"}], "]"}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"mLLP", ",", 
      RowBox[{"mminmaxOverall", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"mminmaxOverall", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Alpha]B", ",", 
      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\), \(V\)]\) [GeV]\>\"", ",", 
       "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(B\)]\)\>\""}], "}"}]}], ",", 
    " ", 
    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[{"Export", "[", 
  RowBox[{
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], ",", 
      "\"\<plots/SensCalc/NeventsDensityPlotExample.pdf\>\""}], "}"}], "]"}], 
   ",", "plot", ",", 
   RowBox[{"\"\<AllowRasterization\>\"", "->", "False"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8929096922410564`*^9, 3.892909806303069*^9}, {
   3.8929100920281754`*^9, 3.8929100955435038`*^9}, {3.8929101335841722`*^9, 
   3.892910162228066*^9}, {3.8929101949082084`*^9, 3.8929101952618375`*^9}, {
   3.893481779378194*^9, 3.893481781603961*^9}, {3.8935713726623445`*^9, 
   3.8935713726663337`*^9}, 3.893571593533576*^9, {3.893600462416499*^9, 
   3.893600464823284*^9}, {3.8936007175747695`*^9, 3.8936007273021555`*^9}, {
   3.8936008794615602`*^9, 3.8936008816425495`*^9}, {3.893605565414917*^9, 
   3.8936055685099897`*^9}, {3.894552167897132*^9, 3.894552190947688*^9}, {
   3.9138856465220795`*^9, 3.9138856465250854`*^9}, {3.9139635639485736`*^9, 
   3.913963579089311*^9}, 3.9139636566744375`*^9, {3.9139640983446198`*^9, 
   3.913964098352851*^9}, {3.9139656696637654`*^9, 3.9139656696674147`*^9}, {
   3.913970299007409*^9, 3.9139702990104027`*^9}, {3.913970527821686*^9, 
   3.913970529283331*^9}, {3.9156430413565154`*^9, 3.9156430413596992`*^9}},
 CellTags->"Sensitivity-computation",
 CellLabel->
  "In[455]:=",ExpressionUUID->"3ab4da79-5ac6-4b50-8143-1d3ae68d8510"]
}, Closed]],

Cell[CellGroupData[{

Cell["Importing constraints", "Section",
 CellChangeTimes->{{3.9139638439670105`*^9, 3.9139638463219385`*^9}},
 CellTags->
  "Sensitivity-computation",ExpressionUUID->"3c4cfac3-f927-4bc5-af73-\
b3d1923be6d9"],

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.913954473848921*^9, 3.9139545020914497`*^9}, {
   3.913954538781415*^9, 3.9139547566326075`*^9}, {3.9139551197291293`*^9, 
   3.913955119731121*^9}, {3.913955157942445*^9, 3.913955157944439*^9}, {
   3.9139637161395655`*^9, 3.9139637459797597`*^9}, 3.9139638034238195`*^9, 
   3.9139638559036703`*^9, 3.9139704985431767`*^9, 3.914666849928027*^9, {
   3.915643041368591*^9, 3.9156430413787427`*^9}},
 CellTags->"Sensitivity-computation",
 CellLabel->
  "In[457]:=",ExpressionUUID->"66a0703c-f97f-4e26-b287-5d7aa8b54911"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Sensitivity evaluation", "Section",
 CellChangeTimes->{{3.9139638518488245`*^9, 3.913963854535544*^9}},
 CellTags->
  "Sensitivity-computation",ExpressionUUID->"9b8099c1-76b0-422e-8317-\
f390d01da712"],

Cell[CellGroupData[{

Cell["Sensitivity calculator block", "Subsection",
 CellChangeTimes->{{3.9344284768399067`*^9, 3.9344284803812065`*^9}, {
  3.9345997252424593`*^9, 3.934599726886627*^9}},
 CellTags->
  "Sensitivity-computation",ExpressionUUID->"410f176e-a3df-401b-b8f7-\
858f02955121"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SensitivityExtractor", "[", 
   RowBox[{"SelectedProduction_", ",", "Npot_", ",", "NevMin_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"RegSens", ",", "SensTemp"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"NevTot", "[", 
       RowBox[{"mLLP_", ",", "\[Epsilon]2_"}], "]"}], "=", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{"NevInt", "[", 
         RowBox[{"mLLP", ",", "\[Epsilon]2", ",", "prod"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"prod", ",", "SelectedProduction"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"RegSens", "=", 
      RowBox[{"RegionPlot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          FractionBox["Npot", "NpotDefault"], 
          RowBox[{"NevTot", "[", 
           RowBox[{
            SuperscriptBox["10", "mLLP"], ",", 
            SuperscriptBox["10", "\[Epsilon]2"]}], "]"}]}], "\[GreaterEqual]",
          "NevMin"}], ",", 
        RowBox[{"{", 
         RowBox[{"mLLP", ",", 
          RowBox[{"Log10", "[", 
           RowBox[{"mminmaxOverall", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
          RowBox[{"Log10", "[", 
           RowBox[{"mminmaxOverall", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[Epsilon]2", ",", 
          RowBox[{"Log10", "[", 
           RowBox[{"couplingminmaxOverall", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
          RowBox[{"Log10", "[", 
           RowBox[{"couplingminmaxOverall", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"PlotPoints", "->", "300"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"SensTemp", "=", 
      RowBox[{"Cases", "[", 
       RowBox[{
        RowBox[{"Normal", "@", "RegSens"}], ",", 
        RowBox[{
         RowBox[{"Line", "[", "x_", "]"}], "\[RuleDelayed]", "x"}], ",", 
        "Infinity"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"10", "^", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{"10", "^", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "&"}], "/@", 
        RowBox[{"SensTemp", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"Length", "[", "SensTemp", "]"}], ",", "1"}], "}"}]}], 
      "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SensitivityExtractorBrem", "[", 
   RowBox[{"SelectedProduction_", ",", "i_", ",", "Npot_", ",", "NevMin_"}], 
   "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"bremch", ",", "selprod"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"bremch", "=", 
      RowBox[{"BremChannelsList", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"selprod", "=", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{"SelectedProduction", ",", 
          RowBox[{
           RowBox[{"#", "!=", "\"\<Bremsstrahlung\>\""}], "&"}]}], "]"}], ",", 
        RowBox[{"{", "bremch", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"i", ",", "selprod", ",", 
       RowBox[{"BremNameExportPattern", "[", "bremch", "]"}], ",", 
       RowBox[{"SensitivityExtractor", "[", 
        RowBox[{"selprod", ",", "Npot", ",", "NevMin"}], "]"}]}], "}"}]}]}], 
   "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SensitivityBlock", "[", 
   RowBox[{"NevMin_", ",", "Npot_", ",", "SelectedProduction_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"MemberQ", "[", 
         RowBox[{"SelectedProduction", ",", "\"\<Bremsstrahlung\>\""}], 
         "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"TabSens", "=", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"1", ",", "SelectedProduction", ",", "\"\<None\>\"", ",", 
            RowBox[{"SensitivityExtractor", "[", 
             RowBox[{"SelectedProduction", ",", "Npot", ",", "NevMin"}], 
             "]"}]}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"TabSens", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"SensitivityExtractorBrem", "[", 
            RowBox[{
            "SelectedProduction", ",", "i", ",", "Npot", ",", "NevMin"}], 
            "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{"Length", "[", "BremChannelsList", "]"}], ",", "1"}], 
            "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"filenameexport", "=", 
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"directory", "[", "\"\<Sensitivity-LLP-exp\>\"", "]"}], ",", 
         RowBox[{"ToString", "@", 
          RowBox[{"StringForm", "[", 
           RowBox[{"\"\<Sensitivity_``_at_``_Nev=``_Npot=``.\>\"", ",", 
            RowBox[{"Sequence", "@@", 
             RowBox[{"{", 
              RowBox[{"LLPdirName", ",", "ExperimentFolder", ",", 
               RowBox[{"NevMin", "//", "ToString"}], ",", 
               RowBox[{
                RowBox[{
                 RowBox[{"N", "[", "Npot", "]"}], "//", "CForm"}], "//", 
                "ToString"}]}], "}"}]}]}], "]"}]}]}], "}"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"assocData", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Association", "[", 
          RowBox[{
           RowBox[{"\"\<Index\>\"", "->", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", 
           RowBox[{"\"\<Production modes\>\"", "->", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], ",", 
           RowBox[{"\"\<Bremsstrahlung description\>\"", "->", 
            RowBox[{"#", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}], ",", 
           RowBox[{"\"\<Sensitivity domains\>\"", "->", 
            RowBox[{"#", "[", 
             RowBox[{"[", "4", "]"}], "]"}]}]}], "]"}], "&"}], ",", 
        "TabSens"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Export", "[", 
      RowBox[{
       RowBox[{"filenameexport", "<>", "\"\<mx\>\""}], ",", "TabSens", ",", 
       "\"\<MX\>\""}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Export", "[", 
      RowBox[{
       RowBox[{"filenameexport", "<>", "\"\<json\>\""}], ",", "assocData", 
       ",", "\"\<JSON\>\""}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"(*", "TabSens", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"Import", "[", 
      RowBox[{
       RowBox[{"filenameexport", "<>", "\"\<mx\>\""}], ",", "\"\<MX\>\""}], 
      "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.934421479980956*^9, 3.934421485637372*^9}, {
   3.9344215212004547`*^9, 3.9344216544224505`*^9}, {3.934421813294731*^9, 
   3.93442184894899*^9}, {3.9344225795802717`*^9, 3.93442259848044*^9}, {
   3.9344226459818587`*^9, 3.9344226510014877`*^9}, {3.9344230006660337`*^9, 
   3.9344230638395133`*^9}, {3.9344231355251417`*^9, 3.934423156451792*^9}, {
   3.934423215387514*^9, 3.9344232768091245`*^9}, {3.9344234615918875`*^9, 
   3.9344234629753327`*^9}, {3.9344235257969522`*^9, 3.934423532738423*^9}, {
   3.934423565109843*^9, 3.9344235672259784`*^9}, {3.9344236206065826`*^9, 
   3.9344236262941875`*^9}, 3.934423717560384*^9, {3.934424163055132*^9, 
   3.934424289932214*^9}, {3.9344243294173565`*^9, 3.934424340227537*^9}, {
   3.934424459148281*^9, 3.9344245173287725`*^9}, {3.9344246092525973`*^9, 
   3.934424658569865*^9}, {3.934424739992304*^9, 3.9344247632089224`*^9}, {
   3.934424888109357*^9, 3.9344249791220064`*^9}, {3.934425254878038*^9, 
   3.934425258561247*^9}, {3.934425404757271*^9, 3.934425404804878*^9}, {
   3.9344279717944*^9, 3.934428038199317*^9}, {3.9344281562037163`*^9, 
   3.9344281576640196`*^9}, {3.934428813513471*^9, 3.934428827909872*^9}, 
   3.934446479432088*^9, {3.934447035578642*^9, 3.9344470368597403`*^9}, {
   3.934784167803815*^9, 3.9347841695207434`*^9}},
 CellTags->
  "Sensitivity-computation",ExpressionUUID->"7f58be03-682c-4f75-b4e9-\
8be1c90e708a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Sensitivity setup and plot", "Subsection",
 CellChangeTimes->{{3.93442849021461*^9, 3.934428496021304*^9}},
 CellTags->
  "Sensitivity-computation",ExpressionUUID->"d85fdedd-243c-471b-8449-\
3e13d1dd4d82"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"productionlist", "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"{", "\"\<All\>\"", "}"}], ",", 
     "ProductionChannelsListUnified"}], "]"}]}], ";"}], "\[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", "=", "ProductionChannelsListUnified"}], 
    ";"}]}], "]"}], "\[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[{
  RowBox[{"legends", "=", 
   RowBox[{"sens", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", 
      RowBox[{"-", "2"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sensregions", "=", 
   RowBox[{"sens", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", 
      RowBox[{"-", "1"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ColorsForPlot", "=", 
   RowBox[{"{", 
    RowBox[{
     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", ",", " ", "Black"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", 
       RowBox[{"Lighter", "@", "Brown"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", 
       RowBox[{"Lighter", "@", "Blue"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", 
       RowBox[{"Lighter", "@", "Red"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", 
       RowBox[{"Lighter", "@", "Green"}]}], "}"}], ",", 
     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", ",", 
       RowBox[{"Darker", "@", "Cyan"}], ",", 
       RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Magenta", ",", 
       RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Black", ",", 
       RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", 
       RowBox[{"Lighter", "@", "Brown"}], ",", 
       RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", 
       RowBox[{"Lighter", "@", "Blue"}], ",", 
       RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", 
       RowBox[{"Lighter", "@", "Red"}], ",", 
       RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", 
       RowBox[{"Lighter", "@", "Green"}], ",", 
       RowBox[{"Dashing", "[", "0.02", "]"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plotstylelist", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"ConstantArray", "[", 
        RowBox[{
         RowBox[{"ColorsForPlot", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"MatrixQ", "[", 
            RowBox[{"sensregions", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", "1", ",", 
           RowBox[{"Length", "@", 
            RowBox[{"sensregions", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"Length", "[", "sensregions", "]"}], ",", "1"}], "}"}]}], 
      "]"}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListLogLogPlot", "[", 
    RowBox[{
     RowBox[{"Cases", "[", 
      RowBox[{
       RowBox[{"ExcludedRegions", "[", "LLPdirName", "]"}], ",", 
       RowBox[{"_", "?", "MatrixQ"}], ",", "All"}], "]"}], ",", 
     RowBox[{"Joined", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(m\), \(V\)]\) [GeV]\>\"", " ", ",", " ", 
        "\"\<\!\(\*SubscriptBox[\(\[Alpha]\), \(B\)]\)\>\""}], "}"}]}], ",", 
     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[{"0.3", 
           RowBox[{"Min", "[", 
            RowBox[{"Flatten", "[", "sensregions", "]"}], "]"}]}], ",", 
          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[{"sensregions", ",", 
       RowBox[{"_", "?", "MatrixQ"}], ",", "All"}], "]"}], ",", 
     RowBox[{"Joined", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "plotstylelist"}], ",", 
     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[{
          "GivenExperimentForSensitivityComputation", ",", 
           "\"\<, \!\(\*SubscriptBox[\(N\), \(events\)]\) \[GreaterEqual] \
\>\"", ",", "NevMinVal"}], "}"}], "]"}], ",", "18", ",", "Black"}], "]"}]}]}],
     "]"}], ",", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<Excluded\>\"", ",", "24", ",", "Black"}], "]"}], ",", 
       RowBox[{"Scaled", "[", 
        RowBox[{"{", 
         RowBox[{"0.7", ",", "0.95"}], "}"}], "]"}]}], "]"}], "}"}], "]"}], 
   ",", 
   RowBox[{"LogLogPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "10"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"DeleteDuplicates", "[", "plotstylelist", "]"}]}], ",", 
     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[{
          "GivenExperimentForSensitivityComputation", ",", 
           "\"\<, \!\(\*SubscriptBox[\(N\), \(events\)]\) \[GreaterEqual] \
\>\"", ",", "NevMinVal"}], "}"}], "]"}], ",", "18", ",", "Black"}], "]"}]}], 
     ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#", ",", "15"}], "]"}], "&"}], "/@", "legends"}], ",", 
        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.8891549915062704`*^9, 3.889154993345764*^9}, {
   3.8891550726092916`*^9, 3.8891550770006027`*^9}, {3.889155121639572*^9, 
   3.8891551652523565`*^9}, {3.8891552062371397`*^9, 3.889155265897581*^9}, {
   3.889155479601365*^9, 3.8891554816320353`*^9}, {3.893571372676326*^9, 
   3.8935713726903877`*^9}, {3.893571601881855*^9, 3.893571615039663*^9}, {
   3.895053897017438*^9, 3.895053913667447*^9}, {3.8950539675027623`*^9, 
   3.895053982046572*^9}, {3.8950547143224044`*^9, 3.8950547266846137`*^9}, {
   3.8950767393111925`*^9, 3.8950767394248295`*^9}, 3.8950767893304987`*^9, {
   3.895124505321786*^9, 3.89512453121947*^9}, {3.8956553541843185`*^9, 
   3.8956554026141047`*^9}, {3.8961546653491325`*^9, 
   3.8961546658914757`*^9}, {3.896155101225853*^9, 3.89615510727777*^9}, {
   3.8963350116975923`*^9, 3.896335014109411*^9}, 3.9061946955346165`*^9, {
   3.9072588156578064`*^9, 3.9072588179012136`*^9}, 3.9121559814843984`*^9, {
   3.9138856465382867`*^9, 3.9138856465433846`*^9}, {3.913891860173438*^9, 
   3.9138918659831095`*^9}, {3.913963752775922*^9, 3.9139638379784517`*^9}, {
   3.913963934973338*^9, 3.9139639785347033`*^9}, {3.91396409837434*^9, 
   3.913964098390565*^9}, 3.913965549614134*^9, {3.913965669687707*^9, 
   3.913965669702223*^9}, {3.9146673955031853`*^9, 3.914667401790114*^9}, 
   3.914667704420864*^9, {3.9152623903935328`*^9, 3.915262416380659*^9}, 
   3.9152624585549393`*^9, {3.915262489482725*^9, 3.9152624919616766`*^9}, {
   3.915298261386327*^9, 3.915298267152412*^9}, {3.915643066483992*^9, 
   3.9156430665113087`*^9}, {3.917341578038809*^9, 3.9173415782277284`*^9}, {
   3.9342232470497665`*^9, 3.934223247777672*^9}, 3.934421094054416*^9, {
   3.9344250421277943`*^9, 3.934425056537165*^9}, {3.9344277859634514`*^9, 
   3.9344278167695284`*^9}, {3.9344285452056046`*^9, 3.934428633683076*^9}, {
   3.9344287308014545`*^9, 3.9344287340235643`*^9}, {3.9344289007439384`*^9, 
   3.934428913837747*^9}, {3.9344488990680714`*^9, 3.934448935852513*^9}, {
   3.9347014920442905`*^9, 3.9347014959542427`*^9}},
 CellTags->"Sensitivity-computation",
 CellLabel->
  "In[466]:=",ExpressionUUID->"93fb1611-9aae-48d4-bc46-1835a318d5fc"]
}, Closed]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Deleting generated cells", "Title",
 CellChangeTimes->{{3.9025559465149946`*^9, 
  3.9025559494966087`*^9}},ExpressionUUID->"b6dbba5e-2ce5-4e56-9e24-\
be89180359ed"],

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.9027633074676013`*^9, 
   3.9027633076573524`*^9}, 3.9039719046130233`*^9, {3.9181486791337595`*^9, 
   3.9181486828019733`*^9}, 3.920048294704229*^9},
 CellLabel->
  "In[490]:=",ExpressionUUID->"0d35f299-057b-492a-876e-ecea06c237c1"]
}, Closed]]
},
WindowSize->{1141.2, 642.9},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
TaggingRules-><|"TryRealOnly" -> False|>,
ShowCellTags->True,
Magnification:>0.8 Inherited,
FrontEndVersion->"13.2 for Microsoft Windows (64-bit) (November 18, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"70a28d82-09ef-4920-acb8-b61c30b79114"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Acceptance"->{
  Cell[5698, 152, 317, 7, 69, "Title",ExpressionUUID->"752b4fdc-e1a6-4c94-8dd6-4965459f99e8",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[6040, 163, 227, 5, 66, "Chapter",ExpressionUUID->"c88d67e3-e48b-41f7-9d02-54fef0734f5d",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[6270, 170, 4841, 124, 217, "Input",ExpressionUUID->"aecd7161-4762-4b3e-9a79-22cedb586d48",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[11148, 299, 318, 6, 66, "Chapter",ExpressionUUID->"3d935dfa-9d3e-49d0-91d9-fb64a81b96aa",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[11469, 307, 5216, 142, 341, "Input",ExpressionUUID->"86c7b34a-191d-435a-9fbb-ccca611a3d95",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[16722, 454, 594, 10, 66, "Chapter",ExpressionUUID->"c44daf01-3afa-4ab7-bff1-19609a46411c",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[17341, 468, 285, 6, 66, "Section",ExpressionUUID->"9aa924e7-0d40-4a10-9a05-5031709f222a",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[17651, 478, 274, 6, 54, "Subsection",ExpressionUUID->"707aa229-8345-4167-b845-a95fddf5536d",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[17928, 486, 8103, 240, 419, "Input",ExpressionUUID->"385cb0c4-59c1-4c13-8630-b548024770b2",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[26068, 731, 224, 4, 54, "Subsection",ExpressionUUID->"27db9bc8-64cd-447f-b8a1-f5edd35f9aa4",
   CellTags->{"Number-of-events+sensitivity", "Acceptance"}],
  Cell[26295, 737, 4040, 104, 235, "Input",ExpressionUUID->"4396d201-cdae-4cd6-bfbc-8b03e3ffd8e6",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[30372, 846, 229, 4, 54, "Subsection",ExpressionUUID->"9dc01385-0d01-48eb-9766-7b03e8538c25",
   CellTags->{"Number-of-events+sensitivity", "Acceptance"}],
  Cell[30604, 852, 13209, 280, 495, "Input",ExpressionUUID->"0166a59f-9d3d-479a-a683-c535024f17c0",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[43862, 1138, 297, 6, 66, "Section",ExpressionUUID->"25bfaeb6-8690-41e7-92f5-52897e91da4d",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[44162, 1146, 10653, 261, 538, "Input",ExpressionUUID->"2391b5cf-52fa-4025-80dc-3a7d8678ebf5",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[54852, 1412, 214, 5, 66, "Section",ExpressionUUID->"904fe6c1-5930-470c-8f3c-85e7b8958d71",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[55069, 1419, 3298, 80, 166, "Input",ExpressionUUID->"7a4cea05-f338-47c2-86e1-3d4b56cd4991",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[58416, 1505, 287, 6, 66, "Chapter",ExpressionUUID->"fc943042-861c-4387-aede-92247472f866",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[58706, 1513, 1483, 34, 95, "Input",ExpressionUUID->"600aaa28-0ac6-4dd8-8dac-b7fc637d1ee8",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[60238, 1553, 235, 5, 69, "Title",ExpressionUUID->"5e63df0d-91ae-4964-bbc1-6d7e2d620461",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[60476, 1560, 4647, 115, 278, "Input",ExpressionUUID->"e0f77240-4f2d-4c39-b6d4-43538a2813c5",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[65148, 1679, 238, 5, 66, "Chapter",ExpressionUUID->"2d00059d-0a81-4d8f-8b45-4d8e48ade8e9",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[65389, 1686, 2080, 50, 248, "Input",ExpressionUUID->"97ec1b2d-5b46-4299-8a35-8afa25bf7baf",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}]},
 "Number-of-events+sensitivity"->{
  Cell[5698, 152, 317, 7, 69, "Title",ExpressionUUID->"752b4fdc-e1a6-4c94-8dd6-4965459f99e8",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[6040, 163, 227, 5, 66, "Chapter",ExpressionUUID->"c88d67e3-e48b-41f7-9d02-54fef0734f5d",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[6270, 170, 4841, 124, 217, "Input",ExpressionUUID->"aecd7161-4762-4b3e-9a79-22cedb586d48",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[11148, 299, 318, 6, 66, "Chapter",ExpressionUUID->"3d935dfa-9d3e-49d0-91d9-fb64a81b96aa",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[11469, 307, 5216, 142, 341, "Input",ExpressionUUID->"86c7b34a-191d-435a-9fbb-ccca611a3d95",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[16722, 454, 594, 10, 66, "Chapter",ExpressionUUID->"c44daf01-3afa-4ab7-bff1-19609a46411c",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[17341, 468, 285, 6, 66, "Section",ExpressionUUID->"9aa924e7-0d40-4a10-9a05-5031709f222a",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[17651, 478, 274, 6, 54, "Subsection",ExpressionUUID->"707aa229-8345-4167-b845-a95fddf5536d",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[17928, 486, 8103, 240, 419, "Input",ExpressionUUID->"385cb0c4-59c1-4c13-8630-b548024770b2",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[26068, 731, 224, 4, 54, "Subsection",ExpressionUUID->"27db9bc8-64cd-447f-b8a1-f5edd35f9aa4",
   CellTags->{"Number-of-events+sensitivity", "Acceptance"}],
  Cell[26295, 737, 4040, 104, 235, "Input",ExpressionUUID->"4396d201-cdae-4cd6-bfbc-8b03e3ffd8e6",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[30372, 846, 229, 4, 54, "Subsection",ExpressionUUID->"9dc01385-0d01-48eb-9766-7b03e8538c25",
   CellTags->{"Number-of-events+sensitivity", "Acceptance"}],
  Cell[30604, 852, 13209, 280, 495, "Input",ExpressionUUID->"0166a59f-9d3d-479a-a683-c535024f17c0",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[43862, 1138, 297, 6, 66, "Section",ExpressionUUID->"25bfaeb6-8690-41e7-92f5-52897e91da4d",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[44162, 1146, 10653, 261, 538, "Input",ExpressionUUID->"2391b5cf-52fa-4025-80dc-3a7d8678ebf5",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[54852, 1412, 214, 5, 66, "Section",ExpressionUUID->"904fe6c1-5930-470c-8f3c-85e7b8958d71",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[55069, 1419, 3298, 80, 166, "Input",ExpressionUUID->"7a4cea05-f338-47c2-86e1-3d4b56cd4991",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[58416, 1505, 287, 6, 66, "Chapter",ExpressionUUID->"fc943042-861c-4387-aede-92247472f866",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[58706, 1513, 1483, 34, 95, "Input",ExpressionUUID->"600aaa28-0ac6-4dd8-8dac-b7fc637d1ee8",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[60238, 1553, 235, 5, 69, "Title",ExpressionUUID->"5e63df0d-91ae-4964-bbc1-6d7e2d620461",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[60476, 1560, 4647, 115, 278, "Input",ExpressionUUID->"e0f77240-4f2d-4c39-b6d4-43538a2813c5",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[65148, 1679, 238, 5, 66, "Chapter",ExpressionUUID->"2d00059d-0a81-4d8f-8b45-4d8e48ade8e9",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
  Cell[65389, 1686, 2080, 50, 248, "Input",ExpressionUUID->"97ec1b2d-5b46-4299-8a35-8afa25bf7baf",
   CellTags->{"Acceptance", "Number-of-events+sensitivity"}]},
 "Number-of-events-computation+sensitivity"->{
  Cell[67518, 1742, 216, 4, 69, "Title",ExpressionUUID->"a2d501c7-16ef-47af-adb1-fb0630b36136",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[67759, 1750, 308, 6, 66, "Chapter",ExpressionUUID->"05ed6ba9-86ad-4240-9b8e-153acd985c31",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[68070, 1758, 425, 10, 33, "Input",ExpressionUUID->"7f21e584-3f9e-44f2-b19b-12f9c3e44940",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[68532, 1773, 330, 6, 58, "Chapter",ExpressionUUID->"a3d3caec-641f-4570-97b0-9ef5dcfc0772",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[68865, 1781, 10502, 253, 393, "Input",ExpressionUUID->"5fb9b107-abc0-435f-9210-1319404ec512",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[79404, 2039, 573, 10, 58, "Chapter",ExpressionUUID->"3ff4cebc-9031-49d0-a479-a1e9cfff7aba",
   CellTags->{"Number-of-events-computation", "Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[80002, 2053, 289, 5, 66, "Section",ExpressionUUID->"0ac5c719-0096-477d-bada-93a52aa33e5a",
   CellTags->{"Number-of-events-computation", "Number-of-events-computation+sensitivity", "Acceptance-computation"}],
  Cell[80316, 2062, 352, 6, 54, "Subsection",ExpressionUUID->"4a5c7164-09af-41c0-b7df-ea90217fc74c",
   CellTags->{"Acceptance-computation", "Number-of-events-computation", "Number-of-events-computation+sensitivity"}],
  Cell[80671, 2070, 8319, 212, 463, "Input",ExpressionUUID->"c6b9ef38-e559-4c1e-b281-b7eec176399a",
   CellTags->{"Acceptance-computation", "Number-of-events-computation", "Number-of-events-computation+sensitivity"}],
  Cell[89027, 2287, 343, 6, 54, "Subsection",ExpressionUUID->"8cdf9b8c-e8b5-4066-bd6d-249d3956b914",
   CellTags->{"Acceptance-computation", "Number-of-events-computation", "Number-of-events-computation+sensitivity"}],
  Cell[89373, 2295, 12574, 301, 631, "Input",ExpressionUUID->"6e2f9ee3-7fcc-4ab3-b8ed-a134a47db935",
   CellTags->{"Acceptance-computation", "Number-of-events-computation", "Number-of-events-computation+sensitivity"}],
  Cell[101984, 2601, 349, 6, 54, "Subsection",ExpressionUUID->"5d5a21a3-a818-4a9a-b642-58c86b95131b",
   CellTags->{"Acceptance-computation", "Number-of-events-computation", "Number-of-events-computation+sensitivity"}],
  Cell[102336, 2609, 5078, 108, 110, "Input",ExpressionUUID->"59b329f7-9117-479d-be33-c16e841f521f",
   CellTags->{"Number-of-events-computation", "Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[107463, 2723, 273, 5, 55, "Section",ExpressionUUID->"014c331c-d75e-4497-abf3-55f2c8120459",
   CellTags->{"Number-of-events-computation", "Number-of-events-computation+sensitivity", "Acceptance-computation"}],
  Cell[107739, 2730, 7320, 195, 197, "Input",ExpressionUUID->"bae4d3ba-ef55-4f3c-a7e8-76606988fc4e",
   CellTags->{"Number-of-events-computation", "Number-of-events-computation+sensitivity", "Acceptance-computation"}],
  Cell[115108, 2931, 256, 5, 66, "Chapter",ExpressionUUID->"16b9c77d-7f55-4a60-a2ad-eff97d5c1762",
   CellTags->{"Number-of-events-computation", "Number-of-events-computation+sensitivity"}],
  Cell[115389, 2940, 330, 6, 66, "Section",ExpressionUUID->"e53ebab4-0d78-43f0-ab23-ff6728d33041",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[115744, 2950, 388, 7, 54, "Subsection",ExpressionUUID->"b011e9f4-be79-4a31-b820-cdfb73bacfef",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[116135, 2959, 14359, 342, 681, "Input",ExpressionUUID->"138b990f-824a-4336-a2c9-e07e4b312056",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[130531, 3306, 262, 5, 54, "Subsection",ExpressionUUID->"4f11c12c-0526-429f-a4a5-21f3e3e2bd5e",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[130796, 3313, 17921, 451, 620, "Input",ExpressionUUID->"de39135b-ddd9-4a99-badb-2dc558cd2c48",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[148754, 3769, 284, 5, 54, "Subsection",ExpressionUUID->"b7e46968-6f4c-4b87-890b-b123c316b0dc",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[149041, 3776, 5774, 131, 281, "Input",ExpressionUUID->"1b7d16c1-a919-4bbd-837c-8f08730f6537",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[154852, 3912, 309, 6, 42, "Subsection",ExpressionUUID->"9bf6548b-5c2c-47b6-a7d5-3b501c16bf87",
   CellTags->{"Number-of-events-computation+sensitivity", "Acceptance-computation"}],
  Cell[155164, 3920, 5726, 125, 187, "Input",ExpressionUUID->"cb7ddcc7-4511-4b1b-adcf-1a7b808e576e",
   CellTags->{"Number-of-events-computation+sensitivity", "Acceptance-computation"}],
  Cell[160927, 4050, 335, 8, 42, "Subsection",ExpressionUUID->"53f82cdd-aed4-4f3d-8394-c6f88bf32ed9",
   CellTags->{"Number-of-events-computation+sensitivity", "Acceptance-computation"}],
  Cell[161265, 4060, 7121, 179, 270, "Input",ExpressionUUID->"3ab27229-78da-412b-bce0-83d8ab93bec2",
   CellTags->{"Number-of-events-computation+sensitivity", "Acceptance-computation"}],
  Cell[168435, 4245, 311, 6, 66, "Section",ExpressionUUID->"3a2b0c2a-e0af-4d23-b59b-68499c2b67e3",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[168771, 4255, 273, 5, 54, "Subsection",ExpressionUUID->"f7f76001-b0d3-4594-9cc4-d5e7fb6f6c65",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[169047, 4262, 11405, 269, 316, "Input",ExpressionUUID->"37228393-0d0c-436e-bc3b-30f61941ac9c",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[180489, 4536, 232, 4, 54, "Subsection",ExpressionUUID->"4ab70f07-9169-49e3-8027-ca08d6e26b73",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[180724, 4542, 20662, 491, 844, "Input",ExpressionUUID->"8b2df4ae-967d-46fb-aec6-6813b886b784",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[201459, 5041, 262, 5, 89, "Title",ExpressionUUID->"5e3ed301-4045-46e3-86e8-e81e39f5ea25",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[201746, 5050, 213, 4, 67, "Chapter",ExpressionUUID->"8121da88-795e-4f0e-b92a-de6f9a444f8c",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[201962, 5056, 7967, 169, 303, "Input",ExpressionUUID->"4d2a805b-fd5a-4bd2-97ee-2d057693c463",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[209966, 5230, 209, 4, 66, "Chapter",ExpressionUUID->"e55d87a1-49c0-4d5d-8043-fc0f241a662d",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[210200, 5238, 221, 4, 66, "Section",ExpressionUUID->"c3e51185-2757-4cc1-a540-484ca9829552",
   CellTags->"Number-of-events-computation+sensitivity"],
  Cell[210424, 5244, 3608, 82, 187, "Input",ExpressionUUID->"24015966-ee86-4c0c-989f-46b921daff03",
   CellTags->"Number-of-events-computation+sensitivity"]},
 "Acceptance-computation"->{
  Cell[67759, 1750, 308, 6, 66, "Chapter",ExpressionUUID->"05ed6ba9-86ad-4240-9b8e-153acd985c31",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[68070, 1758, 425, 10, 33, "Input",ExpressionUUID->"7f21e584-3f9e-44f2-b19b-12f9c3e44940",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[68532, 1773, 330, 6, 58, "Chapter",ExpressionUUID->"a3d3caec-641f-4570-97b0-9ef5dcfc0772",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[68865, 1781, 10502, 253, 393, "Input",ExpressionUUID->"5fb9b107-abc0-435f-9210-1319404ec512",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[79404, 2039, 573, 10, 58, "Chapter",ExpressionUUID->"3ff4cebc-9031-49d0-a479-a1e9cfff7aba",
   CellTags->{"Number-of-events-computation", "Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[80002, 2053, 289, 5, 66, "Section",ExpressionUUID->"0ac5c719-0096-477d-bada-93a52aa33e5a",
   CellTags->{"Number-of-events-computation", "Number-of-events-computation+sensitivity", "Acceptance-computation"}],
  Cell[80316, 2062, 352, 6, 54, "Subsection",ExpressionUUID->"4a5c7164-09af-41c0-b7df-ea90217fc74c",
   CellTags->{"Acceptance-computation", "Number-of-events-computation", "Number-of-events-computation+sensitivity"}],
  Cell[80671, 2070, 8319, 212, 463, "Input",ExpressionUUID->"c6b9ef38-e559-4c1e-b281-b7eec176399a",
   CellTags->{"Acceptance-computation", "Number-of-events-computation", "Number-of-events-computation+sensitivity"}],
  Cell[89027, 2287, 343, 6, 54, "Subsection",ExpressionUUID->"8cdf9b8c-e8b5-4066-bd6d-249d3956b914",
   CellTags->{"Acceptance-computation", "Number-of-events-computation", "Number-of-events-computation+sensitivity"}],
  Cell[89373, 2295, 12574, 301, 631, "Input",ExpressionUUID->"6e2f9ee3-7fcc-4ab3-b8ed-a134a47db935",
   CellTags->{"Acceptance-computation", "Number-of-events-computation", "Number-of-events-computation+sensitivity"}],
  Cell[101984, 2601, 349, 6, 54, "Subsection",ExpressionUUID->"5d5a21a3-a818-4a9a-b642-58c86b95131b",
   CellTags->{"Acceptance-computation", "Number-of-events-computation", "Number-of-events-computation+sensitivity"}],
  Cell[102336, 2609, 5078, 108, 110, "Input",ExpressionUUID->"59b329f7-9117-479d-be33-c16e841f521f",
   CellTags->{"Number-of-events-computation", "Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[107463, 2723, 273, 5, 55, "Section",ExpressionUUID->"014c331c-d75e-4497-abf3-55f2c8120459",
   CellTags->{"Number-of-events-computation", "Number-of-events-computation+sensitivity", "Acceptance-computation"}],
  Cell[107739, 2730, 7320, 195, 197, "Input",ExpressionUUID->"bae4d3ba-ef55-4f3c-a7e8-76606988fc4e",
   CellTags->{"Number-of-events-computation", "Number-of-events-computation+sensitivity", "Acceptance-computation"}],
  Cell[115389, 2940, 330, 6, 66, "Section",ExpressionUUID->"e53ebab4-0d78-43f0-ab23-ff6728d33041",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[115744, 2950, 388, 7, 54, "Subsection",ExpressionUUID->"b011e9f4-be79-4a31-b820-cdfb73bacfef",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[116135, 2959, 14359, 342, 681, "Input",ExpressionUUID->"138b990f-824a-4336-a2c9-e07e4b312056",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[130531, 3306, 262, 5, 54, "Subsection",ExpressionUUID->"4f11c12c-0526-429f-a4a5-21f3e3e2bd5e",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[130796, 3313, 17921, 451, 620, "Input",ExpressionUUID->"de39135b-ddd9-4a99-badb-2dc558cd2c48",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[148754, 3769, 284, 5, 54, "Subsection",ExpressionUUID->"b7e46968-6f4c-4b87-890b-b123c316b0dc",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[149041, 3776, 5774, 131, 281, "Input",ExpressionUUID->"1b7d16c1-a919-4bbd-837c-8f08730f6537",
   CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[154852, 3912, 309, 6, 42, "Subsection",ExpressionUUID->"9bf6548b-5c2c-47b6-a7d5-3b501c16bf87",
   CellTags->{"Number-of-events-computation+sensitivity", "Acceptance-computation"}],
  Cell[155164, 3920, 5726, 125, 187, "Input",ExpressionUUID->"cb7ddcc7-4511-4b1b-adcf-1a7b808e576e",
   CellTags->{"Number-of-events-computation+sensitivity", "Acceptance-computation"}],
  Cell[160927, 4050, 335, 8, 42, "Subsection",ExpressionUUID->"53f82cdd-aed4-4f3d-8394-c6f88bf32ed9",
   CellTags->{"Number-of-events-computation+sensitivity", "Acceptance-computation"}],
  Cell[161265, 4060, 7121, 179, 270, "Input",ExpressionUUID->"3ab27229-78da-412b-bce0-83d8ab93bec2",
   CellTags->{"Number-of-events-computation+sensitivity", "Acceptance-computation"}]},
 "Number-of-events-computation"->{
  Cell[79404, 2039, 573, 10, 58, "Chapter",ExpressionUUID->"3ff4cebc-9031-49d0-a479-a1e9cfff7aba",
   CellTags->{"Number-of-events-computation", "Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[80002, 2053, 289, 5, 66, "Section",ExpressionUUID->"0ac5c719-0096-477d-bada-93a52aa33e5a",
   CellTags->{"Number-of-events-computation", "Number-of-events-computation+sensitivity", "Acceptance-computation"}],
  Cell[80316, 2062, 352, 6, 54, "Subsection",ExpressionUUID->"4a5c7164-09af-41c0-b7df-ea90217fc74c",
   CellTags->{"Acceptance-computation", "Number-of-events-computation", "Number-of-events-computation+sensitivity"}],
  Cell[80671, 2070, 8319, 212, 463, "Input",ExpressionUUID->"c6b9ef38-e559-4c1e-b281-b7eec176399a",
   CellTags->{"Acceptance-computation", "Number-of-events-computation", "Number-of-events-computation+sensitivity"}],
  Cell[89027, 2287, 343, 6, 54, "Subsection",ExpressionUUID->"8cdf9b8c-e8b5-4066-bd6d-249d3956b914",
   CellTags->{"Acceptance-computation", "Number-of-events-computation", "Number-of-events-computation+sensitivity"}],
  Cell[89373, 2295, 12574, 301, 631, "Input",ExpressionUUID->"6e2f9ee3-7fcc-4ab3-b8ed-a134a47db935",
   CellTags->{"Acceptance-computation", "Number-of-events-computation", "Number-of-events-computation+sensitivity"}],
  Cell[101984, 2601, 349, 6, 54, "Subsection",ExpressionUUID->"5d5a21a3-a818-4a9a-b642-58c86b95131b",
   CellTags->{"Acceptance-computation", "Number-of-events-computation", "Number-of-events-computation+sensitivity"}],
  Cell[102336, 2609, 5078, 108, 110, "Input",ExpressionUUID->"59b329f7-9117-479d-be33-c16e841f521f",
   CellTags->{"Number-of-events-computation", "Acceptance-computation", "Number-of-events-computation+sensitivity"}],
  Cell[107463, 2723, 273, 5, 55, "Section",ExpressionUUID->"014c331c-d75e-4497-abf3-55f2c8120459",
   CellTags->{"Number-of-events-computation", "Number-of-events-computation+sensitivity", "Acceptance-computation"}],
  Cell[107739, 2730, 7320, 195, 197, "Input",ExpressionUUID->"bae4d3ba-ef55-4f3c-a7e8-76606988fc4e",
   CellTags->{"Number-of-events-computation", "Number-of-events-computation+sensitivity", "Acceptance-computation"}],
  Cell[115108, 2931, 256, 5, 66, "Chapter",ExpressionUUID->"16b9c77d-7f55-4a60-a2ad-eff97d5c1762",
   CellTags->{"Number-of-events-computation", "Number-of-events-computation+sensitivity"}]},
 "Sensitivity"->{
  Cell[214093, 5333, 212, 4, 69, "Title",ExpressionUUID->"b1bc93fd-4c6c-42dc-81a1-73484db188bd",
   CellTags->{"Sensitivity", "Re-evaluation"}],
  Cell[214330, 5341, 211, 4, 66, "Chapter",ExpressionUUID->"97db36ff-3d96-4131-883d-1acc7c19095b",
   CellTags->{"Sensitivity", "Re-evaluation"}],
  Cell[214544, 5347, 8080, 213, 448, "Input",ExpressionUUID->"2d9dfdcc-0eff-4bca-bb9a-a34d63a101a7",
   CellTags->{"Re-evaluation", "Sensitivity"}]},
 "Re-evaluation"->{
  Cell[214093, 5333, 212, 4, 69, "Title",ExpressionUUID->"b1bc93fd-4c6c-42dc-81a1-73484db188bd",
   CellTags->{"Sensitivity", "Re-evaluation"}],
  Cell[214330, 5341, 211, 4, 66, "Chapter",ExpressionUUID->"97db36ff-3d96-4131-883d-1acc7c19095b",
   CellTags->{"Sensitivity", "Re-evaluation"}],
  Cell[214544, 5347, 8080, 213, 448, "Input",ExpressionUUID->"2d9dfdcc-0eff-4bca-bb9a-a34d63a101a7",
   CellTags->{"Re-evaluation", "Sensitivity"}]},
 "Sensitivity-computation"->{
  Cell[222661, 5565, 316, 7, 58, "Chapter",ExpressionUUID->"f5d6267a-dfd1-422f-a14b-5ac5f9bb6224",
   CellTags->"Sensitivity-computation"],
  Cell[223002, 5576, 209, 4, 66, "Section",ExpressionUUID->"2e7c1ecd-fa85-4581-93d7-cfbd33ba9be3",
   CellTags->"Sensitivity-computation"],
  Cell[223214, 5582, 5332, 114, 263, "Input",ExpressionUUID->"193b719a-6333-4030-ac71-be791774afa4",
   CellTags->"Sensitivity-computation"],
  Cell[228583, 5701, 220, 4, 66, "Section",ExpressionUUID->"8d1b17c9-390b-4e03-842f-8cf2b54d7abe",
   CellTags->"Sensitivity-computation"],
  Cell[228806, 5707, 10280, 263, 475, "Input",ExpressionUUID->"18662e31-56ea-4c12-b7b8-94f92338fc39",
   CellTags->"Sensitivity-computation"],
  Cell[239111, 5974, 238, 4, 54, "Subsection",ExpressionUUID->"ba50b405-0c56-4497-8fdb-7ec58e3bb0c4",
   CellTags->"Sensitivity-computation"],
  Cell[239352, 5980, 8020, 203, 376, "Input",ExpressionUUID->"f0e8ae89-0a8f-473c-9289-64e2000277c0",
   CellTags->"Sensitivity-computation"],
  Cell[247433, 6190, 300, 6, 58, "Chapter",ExpressionUUID->"2bd30740-e737-4e0f-ad70-2c4c7fe4c2b1",
   CellTags->"Sensitivity-computation"],
  Cell[247758, 6200, 255, 5, 66, "Section",ExpressionUUID->"9432283d-d8de-4637-9083-140509059561",
   CellTags->"Sensitivity-computation"],
  Cell[248016, 6207, 4785, 113, 126, "Input",ExpressionUUID->"3ab4da79-5ac6-4b50-8143-1d3ae68d8510",
   CellTags->"Sensitivity-computation"],
  Cell[252838, 6325, 208, 4, 55, "Section",ExpressionUUID->"3c4cfac3-f927-4bc5-af73-b3d1923be6d9",
   CellTags->"Sensitivity-computation"],
  Cell[253049, 6331, 2612, 67, 186, "Input",ExpressionUUID->"66a0703c-f97f-4e26-b287-5d7aa8b54911",
   CellTags->"Sensitivity-computation"],
  Cell[255698, 6403, 207, 4, 66, "Section",ExpressionUUID->"9b8099c1-76b0-422e-8317-f390d01da712",
   CellTags->"Sensitivity-computation"],
  Cell[255930, 6411, 269, 5, 54, "Subsection",ExpressionUUID->"410f176e-a3df-401b-b8f7-858f02955121",
   CellTags->"Sensitivity-computation"],
  Cell[256202, 6418, 8746, 203, 472, "Input",ExpressionUUID->"7f58be03-682c-4f75-b4e9-8be1c90e708a",
   CellTags->"Sensitivity-computation"],
  Cell[264985, 6626, 211, 4, 54, "Subsection",ExpressionUUID->"d85fdedd-243c-471b-8449-3e13d1dd4d82",
   CellTags->"Sensitivity-computation"],
  Cell[265199, 6632, 16645, 421, 479, "Input",ExpressionUUID->"93fb1611-9aae-48d4-bc46-1835a318d5fc",
   CellTags->"Sensitivity-computation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Acceptance", 283275, 7099},
 {"Number-of-events+sensitivity", 286999, 7146},
 {"Number-of-events-computation+sensitivity", 290735, 7193},
 {"Acceptance-computation", 297833, 7270},
 {"Number-of-events-computation", 302852, 7321},
 {"Sensitivity", 305245, 7344},
 {"Re-evaluation", 305707, 7351},
 {"Sensitivity-computation", 306179, 7358}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 207, 3, 78, "Title",ExpressionUUID->"a222097c-b8fb-4f67-a366-7db27eeb342d"],
Cell[790, 27, 4871, 120, 329, "Input",ExpressionUUID->"e9206bed-97fb-42c9-918b-c6f3ef8e98e3"]
}, Closed]],
Cell[CellGroupData[{
Cell[5698, 152, 317, 7, 69, "Title",ExpressionUUID->"752b4fdc-e1a6-4c94-8dd6-4965459f99e8",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[CellGroupData[{
Cell[6040, 163, 227, 5, 66, "Chapter",ExpressionUUID->"c88d67e3-e48b-41f7-9d02-54fef0734f5d",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[6270, 170, 4841, 124, 217, "Input",ExpressionUUID->"aecd7161-4762-4b3e-9a79-22cedb586d48",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}]
}, Closed]],
Cell[CellGroupData[{
Cell[11148, 299, 318, 6, 66, "Chapter",ExpressionUUID->"3d935dfa-9d3e-49d0-91d9-fb64a81b96aa",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[11469, 307, 5216, 142, 341, "Input",ExpressionUUID->"86c7b34a-191d-435a-9fbb-ccca611a3d95",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}]
}, Closed]],
Cell[CellGroupData[{
Cell[16722, 454, 594, 10, 66, "Chapter",ExpressionUUID->"c44daf01-3afa-4ab7-bff1-19609a46411c",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[CellGroupData[{
Cell[17341, 468, 285, 6, 66, "Section",ExpressionUUID->"9aa924e7-0d40-4a10-9a05-5031709f222a",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[CellGroupData[{
Cell[17651, 478, 274, 6, 54, "Subsection",ExpressionUUID->"707aa229-8345-4167-b845-a95fddf5536d",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[17928, 486, 8103, 240, 419, "Input",ExpressionUUID->"385cb0c4-59c1-4c13-8630-b548024770b2",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}]
}, Closed]],
Cell[CellGroupData[{
Cell[26068, 731, 224, 4, 54, "Subsection",ExpressionUUID->"27db9bc8-64cd-447f-b8a1-f5edd35f9aa4",
 CellTags->{"Number-of-events+sensitivity", "Acceptance"}],
Cell[26295, 737, 4040, 104, 235, "Input",ExpressionUUID->"4396d201-cdae-4cd6-bfbc-8b03e3ffd8e6",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}]
}, Closed]],
Cell[CellGroupData[{
Cell[30372, 846, 229, 4, 54, "Subsection",ExpressionUUID->"9dc01385-0d01-48eb-9766-7b03e8538c25",
 CellTags->{"Number-of-events+sensitivity", "Acceptance"}],
Cell[30604, 852, 13209, 280, 495, "Input",ExpressionUUID->"0166a59f-9d3d-479a-a683-c535024f17c0",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[43862, 1138, 297, 6, 66, "Section",ExpressionUUID->"25bfaeb6-8690-41e7-92f5-52897e91da4d",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[44162, 1146, 10653, 261, 538, "Input",ExpressionUUID->"2391b5cf-52fa-4025-80dc-3a7d8678ebf5",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}]
}, Closed]],
Cell[CellGroupData[{
Cell[54852, 1412, 214, 5, 66, "Section",ExpressionUUID->"904fe6c1-5930-470c-8f3c-85e7b8958d71",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[55069, 1419, 3298, 80, 166, "Input",ExpressionUUID->"7a4cea05-f338-47c2-86e1-3d4b56cd4991",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[58416, 1505, 287, 6, 66, "Chapter",ExpressionUUID->"fc943042-861c-4387-aede-92247472f866",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[58706, 1513, 1483, 34, 95, "Input",ExpressionUUID->"600aaa28-0ac6-4dd8-8dac-b7fc637d1ee8",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[60238, 1553, 235, 5, 69, "Title",ExpressionUUID->"5e63df0d-91ae-4964-bbc1-6d7e2d620461",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[60476, 1560, 4647, 115, 278, "Input",ExpressionUUID->"e0f77240-4f2d-4c39-b6d4-43538a2813c5",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[CellGroupData[{
Cell[65148, 1679, 238, 5, 66, "Chapter",ExpressionUUID->"2d00059d-0a81-4d8f-8b45-4d8e48ade8e9",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}],
Cell[65389, 1686, 2080, 50, 248, "Input",ExpressionUUID->"97ec1b2d-5b46-4299-8a35-8afa25bf7baf",
 CellTags->{"Acceptance", "Number-of-events+sensitivity"}]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[67518, 1742, 216, 4, 69, "Title",ExpressionUUID->"a2d501c7-16ef-47af-adb1-fb0630b36136",
 CellTags->"Number-of-events-computation+sensitivity"],
Cell[CellGroupData[{
Cell[67759, 1750, 308, 6, 66, "Chapter",ExpressionUUID->"05ed6ba9-86ad-4240-9b8e-153acd985c31",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
Cell[68070, 1758, 425, 10, 33, "Input",ExpressionUUID->"7f21e584-3f9e-44f2-b19b-12f9c3e44940",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}]
}, Closed]],
Cell[CellGroupData[{
Cell[68532, 1773, 330, 6, 58, "Chapter",ExpressionUUID->"a3d3caec-641f-4570-97b0-9ef5dcfc0772",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
Cell[68865, 1781, 10502, 253, 393, "Input",ExpressionUUID->"5fb9b107-abc0-435f-9210-1319404ec512",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}]
}, Closed]],
Cell[CellGroupData[{
Cell[79404, 2039, 573, 10, 58, "Chapter",ExpressionUUID->"3ff4cebc-9031-49d0-a479-a1e9cfff7aba",
 CellTags->{"Number-of-events-computation", "Acceptance-computation", "Number-of-events-computation+sensitivity"}],
Cell[CellGroupData[{
Cell[80002, 2053, 289, 5, 66, "Section",ExpressionUUID->"0ac5c719-0096-477d-bada-93a52aa33e5a",
 CellTags->{"Number-of-events-computation", "Number-of-events-computation+sensitivity", "Acceptance-computation"}],
Cell[CellGroupData[{
Cell[80316, 2062, 352, 6, 54, "Subsection",ExpressionUUID->"4a5c7164-09af-41c0-b7df-ea90217fc74c",
 CellTags->{"Acceptance-computation", "Number-of-events-computation", "Number-of-events-computation+sensitivity"}],
Cell[80671, 2070, 8319, 212, 463, "Input",ExpressionUUID->"c6b9ef38-e559-4c1e-b281-b7eec176399a",
 CellTags->{"Acceptance-computation", "Number-of-events-computation", "Number-of-events-computation+sensitivity"}]
}, Closed]],
Cell[CellGroupData[{
Cell[89027, 2287, 343, 6, 54, "Subsection",ExpressionUUID->"8cdf9b8c-e8b5-4066-bd6d-249d3956b914",
 CellTags->{"Acceptance-computation", "Number-of-events-computation", "Number-of-events-computation+sensitivity"}],
Cell[89373, 2295, 12574, 301, 631, "Input",ExpressionUUID->"6e2f9ee3-7fcc-4ab3-b8ed-a134a47db935",
 CellTags->{"Acceptance-computation", "Number-of-events-computation", "Number-of-events-computation+sensitivity"}]
}, Closed]],
Cell[CellGroupData[{
Cell[101984, 2601, 349, 6, 54, "Subsection",ExpressionUUID->"5d5a21a3-a818-4a9a-b642-58c86b95131b",
 CellTags->{"Acceptance-computation", "Number-of-events-computation", "Number-of-events-computation+sensitivity"}],
Cell[102336, 2609, 5078, 108, 110, "Input",ExpressionUUID->"59b329f7-9117-479d-be33-c16e841f521f",
 CellTags->{"Number-of-events-computation", "Acceptance-computation", "Number-of-events-computation+sensitivity"}]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[107463, 2723, 273, 5, 55, "Section",ExpressionUUID->"014c331c-d75e-4497-abf3-55f2c8120459",
 CellTags->{"Number-of-events-computation", "Number-of-events-computation+sensitivity", "Acceptance-computation"}],
Cell[107739, 2730, 7320, 195, 197, "Input",ExpressionUUID->"bae4d3ba-ef55-4f3c-a7e8-76606988fc4e",
 CellTags->{"Number-of-events-computation", "Number-of-events-computation+sensitivity", "Acceptance-computation"}]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[115108, 2931, 256, 5, 66, "Chapter",ExpressionUUID->"16b9c77d-7f55-4a60-a2ad-eff97d5c1762",
 CellTags->{"Number-of-events-computation", "Number-of-events-computation+sensitivity"}],
Cell[CellGroupData[{
Cell[115389, 2940, 330, 6, 66, "Section",ExpressionUUID->"e53ebab4-0d78-43f0-ab23-ff6728d33041",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
Cell[CellGroupData[{
Cell[115744, 2950, 388, 7, 54, "Subsection",ExpressionUUID->"b011e9f4-be79-4a31-b820-cdfb73bacfef",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
Cell[116135, 2959, 14359, 342, 681, "Input",ExpressionUUID->"138b990f-824a-4336-a2c9-e07e4b312056",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}]
}, Open  ]],
Cell[CellGroupData[{
Cell[130531, 3306, 262, 5, 54, "Subsection",ExpressionUUID->"4f11c12c-0526-429f-a4a5-21f3e3e2bd5e",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
Cell[130796, 3313, 17921, 451, 620, "Input",ExpressionUUID->"de39135b-ddd9-4a99-badb-2dc558cd2c48",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}]
}, Open  ]],
Cell[CellGroupData[{
Cell[148754, 3769, 284, 5, 54, "Subsection",ExpressionUUID->"b7e46968-6f4c-4b87-890b-b123c316b0dc",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}],
Cell[149041, 3776, 5774, 131, 281, "Input",ExpressionUUID->"1b7d16c1-a919-4bbd-837c-8f08730f6537",
 CellTags->{"Acceptance-computation", "Number-of-events-computation+sensitivity"}]
}, Closed]],
Cell[CellGroupData[{
Cell[154852, 3912, 309, 6, 42, "Subsection",ExpressionUUID->"9bf6548b-5c2c-47b6-a7d5-3b501c16bf87",
 CellTags->{"Number-of-events-computation+sensitivity", "Acceptance-computation"}],
Cell[155164, 3920, 5726, 125, 187, "Input",ExpressionUUID->"cb7ddcc7-4511-4b1b-adcf-1a7b808e576e",
 CellTags->{"Number-of-events-computation+sensitivity", "Acceptance-computation"}]
}, Closed]],
Cell[CellGroupData[{
Cell[160927, 4050, 335, 8, 42, "Subsection",ExpressionUUID->"53f82cdd-aed4-4f3d-8394-c6f88bf32ed9",
 CellTags->{"Number-of-events-computation+sensitivity", "Acceptance-computation"}],
Cell[161265, 4060, 7121, 179, 270, "Input",ExpressionUUID->"3ab27229-78da-412b-bce0-83d8ab93bec2",
 CellTags->{"Number-of-events-computation+sensitivity", "Acceptance-computation"}]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[168435, 4245, 311, 6, 66, "Section",ExpressionUUID->"3a2b0c2a-e0af-4d23-b59b-68499c2b67e3",
 CellTags->"Number-of-events-computation+sensitivity"],
Cell[CellGroupData[{
Cell[168771, 4255, 273, 5, 54, "Subsection",ExpressionUUID->"f7f76001-b0d3-4594-9cc4-d5e7fb6f6c65",
 CellTags->"Number-of-events-computation+sensitivity"],
Cell[169047, 4262, 11405, 269, 316, "Input",ExpressionUUID->"37228393-0d0c-436e-bc3b-30f61941ac9c",
 CellTags->"Number-of-events-computation+sensitivity"]
}, Closed]],
Cell[CellGroupData[{
Cell[180489, 4536, 232, 4, 54, "Subsection",ExpressionUUID->"4ab70f07-9169-49e3-8027-ca08d6e26b73",
 CellTags->"Number-of-events-computation+sensitivity"],
Cell[180724, 4542, 20662, 491, 844, "Input",ExpressionUUID->"8b2df4ae-967d-46fb-aec6-6813b886b784",
 CellTags->"Number-of-events-computation+sensitivity"]
}, Closed]]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[201459, 5041, 262, 5, 89, "Title",ExpressionUUID->"5e3ed301-4045-46e3-86e8-e81e39f5ea25",
 CellTags->"Number-of-events-computation+sensitivity"],
Cell[CellGroupData[{
Cell[201746, 5050, 213, 4, 67, "Chapter",ExpressionUUID->"8121da88-795e-4f0e-b92a-de6f9a444f8c",
 CellTags->"Number-of-events-computation+sensitivity"],
Cell[201962, 5056, 7967, 169, 303, "Input",ExpressionUUID->"4d2a805b-fd5a-4bd2-97ee-2d057693c463",
 CellTags->"Number-of-events-computation+sensitivity"]
}, Closed]],
Cell[CellGroupData[{
Cell[209966, 5230, 209, 4, 66, "Chapter",ExpressionUUID->"e55d87a1-49c0-4d5d-8043-fc0f241a662d",
 CellTags->"Number-of-events-computation+sensitivity"],
Cell[CellGroupData[{
Cell[210200, 5238, 221, 4, 66, "Section",ExpressionUUID->"c3e51185-2757-4cc1-a540-484ca9829552",
 CellTags->"Number-of-events-computation+sensitivity"],
Cell[210424, 5244, 3608, 82, 187, "Input",ExpressionUUID->"24015966-ee86-4c0c-989f-46b921daff03",
 CellTags->"Number-of-events-computation+sensitivity"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[214093, 5333, 212, 4, 69, "Title",ExpressionUUID->"b1bc93fd-4c6c-42dc-81a1-73484db188bd",
 CellTags->{"Sensitivity", "Re-evaluation"}],
Cell[CellGroupData[{
Cell[214330, 5341, 211, 4, 66, "Chapter",ExpressionUUID->"97db36ff-3d96-4131-883d-1acc7c19095b",
 CellTags->{"Sensitivity", "Re-evaluation"}],
Cell[214544, 5347, 8080, 213, 448, "Input",ExpressionUUID->"2d9dfdcc-0eff-4bca-bb9a-a34d63a101a7",
 CellTags->{"Re-evaluation", "Sensitivity"}]
}, Closed]],
Cell[CellGroupData[{
Cell[222661, 5565, 316, 7, 58, "Chapter",ExpressionUUID->"f5d6267a-dfd1-422f-a14b-5ac5f9bb6224",
 CellTags->"Sensitivity-computation"],
Cell[CellGroupData[{
Cell[223002, 5576, 209, 4, 66, "Section",ExpressionUUID->"2e7c1ecd-fa85-4581-93d7-cfbd33ba9be3",
 CellTags->"Sensitivity-computation"],
Cell[223214, 5582, 5332, 114, 263, "Input",ExpressionUUID->"193b719a-6333-4030-ac71-be791774afa4",
 CellTags->"Sensitivity-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[228583, 5701, 220, 4, 66, "Section",ExpressionUUID->"8d1b17c9-390b-4e03-842f-8cf2b54d7abe",
 CellTags->"Sensitivity-computation"],
Cell[228806, 5707, 10280, 263, 475, "Input",ExpressionUUID->"18662e31-56ea-4c12-b7b8-94f92338fc39",
 CellTags->"Sensitivity-computation"],
Cell[CellGroupData[{
Cell[239111, 5974, 238, 4, 54, "Subsection",ExpressionUUID->"ba50b405-0c56-4497-8fdb-7ec58e3bb0c4",
 CellTags->"Sensitivity-computation"],
Cell[239352, 5980, 8020, 203, 376, "Input",ExpressionUUID->"f0e8ae89-0a8f-473c-9289-64e2000277c0",
 CellTags->"Sensitivity-computation"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[247433, 6190, 300, 6, 58, "Chapter",ExpressionUUID->"2bd30740-e737-4e0f-ad70-2c4c7fe4c2b1",
 CellTags->"Sensitivity-computation"],
Cell[CellGroupData[{
Cell[247758, 6200, 255, 5, 66, "Section",ExpressionUUID->"9432283d-d8de-4637-9083-140509059561",
 CellTags->"Sensitivity-computation"],
Cell[248016, 6207, 4785, 113, 126, "Input",ExpressionUUID->"3ab4da79-5ac6-4b50-8143-1d3ae68d8510",
 CellTags->"Sensitivity-computation"]
}, Closed]],
Cell[CellGroupData[{
Cell[252838, 6325, 208, 4, 55, "Section",ExpressionUUID->"3c4cfac3-f927-4bc5-af73-b3d1923be6d9",
 CellTags->"Sensitivity-computation"],
Cell[253049, 6331, 2612, 67, 186, "Input",ExpressionUUID->"66a0703c-f97f-4e26-b287-5d7aa8b54911",
 CellTags->"Sensitivity-computation"]
}, Open  ]],
Cell[CellGroupData[{
Cell[255698, 6403, 207, 4, 66, "Section",ExpressionUUID->"9b8099c1-76b0-422e-8317-f390d01da712",
 CellTags->"Sensitivity-computation"],
Cell[CellGroupData[{
Cell[255930, 6411, 269, 5, 54, "Subsection",ExpressionUUID->"410f176e-a3df-401b-b8f7-858f02955121",
 CellTags->"Sensitivity-computation"],
Cell[256202, 6418, 8746, 203, 472, "Input",ExpressionUUID->"7f58be03-682c-4f75-b4e9-8be1c90e708a",
 CellTags->"Sensitivity-computation"]
}, Open  ]],
Cell[CellGroupData[{
Cell[264985, 6626, 211, 4, 54, "Subsection",ExpressionUUID->"d85fdedd-243c-471b-8449-3e13d1dd4d82",
 CellTags->"Sensitivity-computation"],
Cell[265199, 6632, 16645, 421, 479, "Input",ExpressionUUID->"93fb1611-9aae-48d4-bc46-1835a318d5fc",
 CellTags->"Sensitivity-computation"]
}, Closed]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[281917, 7061, 171, 3, 78, "Title",ExpressionUUID->"b6dbba5e-2ce5-4e56-9e24-be89180359ed"],
Cell[282091, 7066, 719, 16, 54, "Input",ExpressionUUID->"0d35f299-057b-492a-876e-ecea06c237c1"]
}, Closed]]
}
]
*)