TOPRingPlotterModule.cc

/**************************************************************************
 * basf2 (Belle II Analysis Software Framework)                           *
 * Author: The Belle II Collaboration                                     *
 *                                                                        *
 * See git log for contributors and copyright holders.                    *
 * This file is licensed under LGPL-3.0, see LICENSE.md.                  *
 **************************************************************************/
 
#include <top/modules/TOPRingPlotter/TOPRingPlotterModule.h>
 
#include <analysis/dataobjects/ParticleList.h>
#include <analysis/dataobjects/Particle.h>
 
#include <framework/datastore/StoreArray.h>
#include <framework/datastore/StoreObjPtr.h>
 
#include <framework/logging/Logger.h>
#include <framework/utilities/MakeROOTCompatible.h>
 
#include <iostream>
#include <TRandom.h>
#include <TDirectory.h>
 
// framework - DataStore
#include <framework/datastore/DataStore.h>
#include <framework/datastore/StoreArray.h>
#include <framework/datastore/StoreObjPtr.h>
 
// framework aux
#include <framework/gearbox/Unit.h>
#include <framework/gearbox/Const.h>
#include <framework/logging/Logger.h>
 
// DataStore classes
#include <mdst/dataobjects/Track.h>
#include <mdst/dataobjects/MCParticle.h>
#include <top/dataobjects/TOPLikelihoodScanResult.h>
#include <top/dataobjects/TOPLikelihood.h>
#include <top/dataobjects/TOPBarHit.h>
#include <tracking/dataobjects/ExtHit.h>
#include <top/dataobjects/TOPDigit.h>
#include <mdst/dataobjects/ECLCluster.h>
 
#include <top/geometry/TOPGeometryPar.h>
#include <top/reconstruction_cpp/TOPTrack.h>
#include <top/reconstruction_cpp/PDFConstructor.h>
#include <top/reconstruction_cpp/TOPRecoManager.h>
 
using namespace Belle2;
using namespace TOP;
using namespace Belle2::Variable;
 
 
REG_MODULE(TOPRingPlotter);
 
TOPRingPlotterModule::TOPRingPlotterModule() : Module()
{
  // Set module properties
  setDescription(
    R"DOC(A module to plot the x-t images from TOP, and in general study the distribution of the digits associated to the particles in a particleList)DOC");
 
  // Parameter definitions
  addParam("particleList", m_particleList, "List of particles to be used for plotting", std::string("pi+:all"));
  addParam("variables", m_variables, "List of variables to be saved", {});
  addParam("pdgHyp", m_pdgHyp, "List of pdg codes for which the PDF is sampled and saved. Valid values are 11, 13, 211, 321, 2212.",
           m_pdgHyp);
  addParam("outputName", m_outputName, "Name of the output file", std::string("TOPRings.root"));
  addParam("nToys", m_toyNumber,
           "Number of toys used to sample the PDFs. Set it to a large number for a precise sampling of the PDF in the histograms (suggested for small number of events) ",
           1);
  addParam("saveHistograms", m_saveHistograms,
           "Set true to save the histograms of the maps in addition to the list of sampled pseudo-digits", false);
  addParam("saveLLScan", m_saveLLScan,
           "Set true to save the results of the LL scan. Requires to add TOPLLScannerModule to the path", false);
 
}
 
 
void TOPRingPlotterModule::resetTree()
{
  m_pdfSamplesP = 0;
  m_pdfToysP = 0;
  m_pdfSamplesK = 0;
  m_pdfToysK = 0;
  m_pdfSamplesPI = 0;
  m_pdfToysPI = 0;
  m_pdfSamplesMU = 0;
  m_pdfToysMU = 0;
  m_pdfSamplesE = 0;
  m_pdfToysE = 0;
  m_hitMapMCK->Reset();
  m_hitMapMCPI->Reset();
  m_hitMapMCP->Reset();
  m_hitMapMCE->Reset();
  m_hitMapMCMU->Reset();
  m_nScanPoints = 0;
 
  for (int i = 0; i < 10000; i++) {
    m_scanMass[i] = 0;
    m_scanLL[i] = 0;
  }
 
  for (int i = 0; i < m_MaxPDFPhotons; i++) {
    m_pdfPixelE[i] = 0;
    m_pdfTimeE[i] = 0;
    m_pdfPixelMU[i] = 0;
    m_pdfTimeMU[i] = 0;
    m_pdfPixelPI[i] = 0;
    m_pdfTimePI[i] = 0;
    m_pdfPixelK[i] = 0;
    m_pdfTimeK[i] = 0;
    m_pdfPixelP[i] = 0;
    m_pdfTimeP[i] = 0;
  }
 
 
  m_nDigits = 0;
 
  for (int i = 0; i < m_MaxPhotons; i++) {
    m_digitTime[i] = 0;
    m_digitChannel[i] = 0;
    m_digitPixel[i] = 0;
    m_digitPixelCol[i] = 0;
    m_digitPixelRow[i] = 0;
    m_digitAmplitude[i] = 0;
    m_digitWidth[i] = 0;
    m_digitASICChannel[i] = 0;
    m_digitPMTNumber[i] = 0;
    m_digitSlot[i] = {0};
    m_digitBoardstack[i] = {0};
    m_digitCarrier[i] = {0};
    m_digitAsic[i] = {0};
    m_digitQuality[i] = {0};
  }
 
 
  return;
}
 
 
void TOPRingPlotterModule::fillPDF(Belle2::Const::ChargedStable ch, const Track* track, TH2F* histo, short* pixelArray,
                                   float* timeArray, int& arrayGuard, int& toyCounter)
{
 
  if (not track) return;
 
  TOPTrack trkPDF(*track);
 
  if (!trkPDF.isValid())
    return;
 
  PDFConstructor pdfConstructor(trkPDF, ch, PDFConstructor::c_Fine);
  if (not pdfConstructor.isValid()) return;
 
  arrayGuard = 0; // this keeps track of the total number of PDF samples we have saved so far
  m_pdfAsHisto->Reset(); // clan the histogram that will contain the PDf to be sampled
 
  // loops of pixels and PDF peaks to make a full sampling of the PDF
  for (int pixelID = 1; pixelID <= 512; pixelID++) {
    for (int iBinY = 1; iBinY < 500 + 1; iBinY++) {
      // MARKO'S Trick HERE
      auto time = m_pdfAsHisto->GetYaxis()->GetBinCenter(iBinY);
      auto pdfVal = pdfConstructor.getPDFValue(pixelID, time, 0.070); // average electronic time reso = 70 ps
      m_pdfAsHisto->Fill(pixelID - 0.5, time, pdfVal * 0.2); // bins are 1 px  X  0.2 ns wide
      short pixelCol = (pixelID - 1) % 64 + 1;
      histo->Fill(pixelCol, time, pdfVal * 1.6); // bins in the map are 8 px  X  0.2 ns wide
    }
  }
 
  auto nExpPhot = pdfConstructor.getExpectedPhotons();
 
  m_pdfAsHisto->Scale(nExpPhot);
  histo->Scale(nExpPhot);
 
  // loop over the toys
  for (int iSim = 0; iSim < m_toyNumber; iSim++) {
    // tmp arrays. Before appending the PDF-based digits to the list, we want to be sure
    // that their total number does not exceeds the size of pixelArray and timeArray.
    // We run the full toy for an event storing the results here, and we copy them to timeArray and pixelArray only
    // if there's enough room.
    std::vector<float> tmpTime;
    std::vector<short> tmpPixel;
 
    short numPhot = gRandom->Poisson(nExpPhot);
 
    for (short rn = 0; rn < numPhot; rn++) {
      double time = 0;
      double pxID = 0;
      m_pdfAsHisto->GetRandom2(pxID, time);
      tmpTime.push_back(time);
      tmpPixel.push_back(short(pxID));
    }
 
    // before transferring the results of the PDF sampling into pixelArray and timeArray, check if there's
    // enough room.
    if (arrayGuard + tmpTime.size() < m_MaxPDFPhotons) {
      for (unsigned int iPh = 0; iPh < tmpTime.size(); iPh++) {
        pixelArray[arrayGuard] = tmpPixel[iPh];
        timeArray[arrayGuard] = tmpTime[iPh];
        arrayGuard++;
      }
      toyCounter++;
    } else {
      return; // we already reached the max size of the arrays for sampling, no point in keep doing this
    }
  }
 
  return;
}
 
 
void TOPRingPlotterModule::initialize()
{
 
  // Check the list of pdg hypotheses
  for (auto pdg : m_pdgHyp) {
    if ((pdg != Const::electron.getPDGCode()) and (pdg != Const::pion.getPDGCode()) and (pdg != Const::kaon.getPDGCode()) and
        (pdg != Const::muon.getPDGCode()) and (pdg != Const::proton.getPDGCode()))
      B2FATAL("Invalid PDG hypothesis for the PDF evaluation: " << pdg);
    short duplicateCount = 0;
    for (auto pdg2 : m_pdgHyp) {
      if (pdg == pdg2)
        duplicateCount++;
    }
    if (duplicateCount > 1)
      B2FATAL("Duplicate PDG hypothesis found");
  }
 
  m_hitMapMCK = new TH2F("hitMapMCK", "x-t map of the kaon PDF", 64, 0, 64, 500, 0, 100);
  m_hitMapMCPI = new TH2F("hitMapMCPI", "x-t map of the pion PDF", 64, 0, 64, 500, 0, 100);
  m_hitMapMCP = new TH2F("hitMapMCP", "x-t map of the proton PDF", 64, 0, 64, 500, 0, 100);
  m_hitMapMCE = new TH2F("hitMapMCE", "x-t map of the electron PDF", 64, 0, 64, 500, 0, 100);
  m_hitMapMCMU = new TH2F("hitMapMCMU", "x-t map of the muon PDF", 64, 0, 64, 500, 0, 100);
 
  m_pdfAsHisto = new TH2F("pdfAsHisto", "tms holder for the pdf to be sampled", 512, 0, 512, 500, 0, 100);
 
  TDirectory::TContext context;
  B2INFO("creating a tree for TOPRingPlotterModule");
  m_outputFile = new TFile(m_outputName.c_str(), "recreate");
  m_tree = new TTree("tree", "tree");
 
  if (m_saveHistograms) {
    for (auto pdg : m_pdgHyp) {
      if (pdg == Const::electron.getPDGCode())
        m_tree->Branch("hitMapMCE", "TH2F", &m_hitMapMCE, 32000, 0);
      else if (pdg == Const::muon.getPDGCode())
        m_tree->Branch("hitMapMCMU", "TH2F", &m_hitMapMCMU, 32000, 0);
      else if (pdg == Const::pion.getPDGCode())
        m_tree->Branch("hitMapMCPI", "TH2F", &m_hitMapMCPI, 32000, 0);
      else if (pdg == Const::kaon.getPDGCode())
        m_tree->Branch("hitMapMCK", "TH2F", &m_hitMapMCK, 32000, 0);
      else if (pdg == Const::proton.getPDGCode())
        m_tree->Branch("hitMapMCP", "TH2F", &m_hitMapMCP, 32000, 0);
    }
  }
 
  m_tree->Branch("nDigits", &m_nDigits, "m_nDigits/S");
  m_tree->Branch("digitTime", m_digitTime, "m_digitTime[m_nDigits]/F");
  m_tree->Branch("digitAmplitude", m_digitAmplitude, "m_digitAmplitude[m_nDigits]/F");
  m_tree->Branch("digitWidth", m_digitWidth, "m_digitWidth[m_nDigits]/F");
  m_tree->Branch("digitChannel", m_digitChannel, "m_digitChannel[m_nDigits]/S");
  m_tree->Branch("digitPixel", m_digitPixel, "m_digitPixel[m_nDigits]/S");
  m_tree->Branch("digitPixelCol", m_digitPixelCol, "m_digitPixelCol[m_nDigits]/S");
  m_tree->Branch("digitPixelRow", m_digitPixelRow, "m_digitPixelRow[m_nDigits]/S");
  m_tree->Branch("digitASICChannel", m_digitASICChannel, "m_digitASICChannel[m_nDigits]/S");
  m_tree->Branch("digitPMTNumber", m_digitPMTNumber, "m_digitPMTNumber[m_nDigits]/S");
  m_tree->Branch("digitSlot", m_digitSlot, "m_digitSlot[m_nDigits]/S");
  m_tree->Branch("digitBoardstack", m_digitBoardstack, "m_digitBoardstack[m_nDigits]/S");
  m_tree->Branch("digitCarrier", m_digitCarrier, "m_digitCarrier[m_nDigits]/S");
  m_tree->Branch("digitAsic", m_digitAsic, "m_digitAsic[m_nDigits]/S");
  m_tree->Branch("digitQuality", m_digitQuality, "m_digitQuality[m_nDigits]/S");
 
  m_tree->Branch("pdfSamplesP", &m_pdfSamplesP, "m_pdfSamplesP/I");
  m_tree->Branch("pdfToysP", &m_pdfToysP, "m_pdfToysP/I");
  m_tree->Branch("pdfPixelP", m_pdfPixelP, "m_pdfPixelP[m_pdfSamplesP]/S");
  m_tree->Branch("pdfTimeP", m_pdfTimeP, "m_pdfTimeP[m_pdfSamplesP]/F");
 
  m_tree->Branch("pdfSamplesK", &m_pdfSamplesK, "m_pdfSamplesK/I");
  m_tree->Branch("pdfToysK", &m_pdfToysK, "m_pdfToysK/I");
  m_tree->Branch("pdfPixelK", m_pdfPixelK, "m_pdfPixelK[m_pdfSamplesK]/S");
  m_tree->Branch("pdfTimeK", m_pdfTimeK, "m_pdfTimeK[m_pdfSamplesK]/F");
 
  m_tree->Branch("pdfSamplesPI", &m_pdfSamplesPI, "m_pdfSamplesPI/I");
  m_tree->Branch("pdfToysPI", &m_pdfToysPI, "m_pdfToysPI/I");
  m_tree->Branch("pdfPixelPI", m_pdfPixelPI, "m_pdfPixelPI[m_pdfSamplesPI]/S");
  m_tree->Branch("pdfTimePI", m_pdfTimePI, "m_pdfTimePI[m_pdfSamplesPI]/F");
 
  m_tree->Branch("pdfSamplesMU", &m_pdfSamplesMU, "m_pdfSamplesMU/I");
  m_tree->Branch("pdfToysMU", &m_pdfToysMU, "m_pdfToysMU/I");
  m_tree->Branch("pdfPixelMU", m_pdfPixelMU, "m_pdfPixelMU[m_pdfSamplesMU]/S");
  m_tree->Branch("pdfTimeMU", m_pdfTimeMU, "m_pdfTimeMU[m_pdfSamplesMU]/F");
 
  m_tree->Branch("pdfSamplesE", &m_pdfSamplesE, "m_pdfSamplesE/I");
  m_tree->Branch("pdfToysE", &m_pdfToysE, "m_pdfToysE/I");
  m_tree->Branch("pdfPixelE", m_pdfPixelE, "m_pdfPixelE[m_pdfSamplesE]/S");
  m_tree->Branch("pdfTimeE", m_pdfTimeE, "m_pdfTimeE[m_pdfSamplesE]/F");
 
  if (m_saveLLScan) {
    m_tree->Branch("nScanPoints", &m_nScanPoints, "m_nScanPoints/I");
    m_tree->Branch("scanMass", m_scanMass, "m_scanMass[m_nScanPoints]/F");
    m_tree->Branch("scanLL", m_scanLL, "m_scanLL[m_nScanPoints]/F");
  }
 
  // This parts parses the list of variables and creates the branches in the output tree.
  // This is copy-pasted from VariablesToNtupleModule
  m_variables = Variable::Manager::Instance().resolveCollections(m_variables);
  m_branchAddresses.resize(m_variables.size() + 1);
  size_t enumerate = 0;
  for (const std::string& varStr : m_variables) {
    std::string branchName = MakeROOTCompatible::makeROOTCompatible(varStr);
    m_tree->Branch(branchName.c_str(), &m_branchAddresses[enumerate], (branchName + "/D").c_str());
 
    const Variable::Manager::Var* var = Variable::Manager::Instance().getVariable(varStr);
    if (!var) {
      B2ERROR("Variable '" << varStr << "' is not available in Variable::Manager!");
    } else {
      if (m_particleList.empty() && var->description.find("[Eventbased]") == std::string::npos) {
        B2ERROR("Variable '" << varStr << "' is not an event-based variable, "
                "but you are using VariablesToNtuple without a decay string, i.e. in the event-wise mode.\n"
                "If you have created an event-based alias you can wrap your alias with `eventCached` to "
                "declare it as event based, which avoids this error.\n\n"
                "vm.addAlias('myAliasName', 'eventCached(myAlias)')");
        continue;
      }
      m_functions.push_back(var->function);
    }
    enumerate++;
  }
 
  StoreArray<Track> tracks;
  tracks.isRequired();
  StoreArray<ExtHit> extHits;
  extHits.isRequired();
  StoreArray<TOPLikelihood> likelihoods;
  likelihoods.isRequired();
  StoreArray<TOPDigit> digits;
  digits.isRequired();
  StoreArray<TOPBarHit> barHits;
  barHits.isOptional();
  StoreArray<TOPLikelihoodScanResult> likelihoodScans;
  likelihoodScans.isOptional();
 
}
 
 
void TOPRingPlotterModule::event()
{
  TOPRecoManager::setTimeWindow(0, 100);
 
  StoreArray<TOPDigit> digits;
  StoreObjPtr<ParticleList> particles(m_particleList);
 
  // skip on invalid lists
  if (! particles.isValid())
    return;
 
  // loops over all particles
  int n_part = particles->getListSize();
  for (int i = 0; i < n_part; i++) {
 
    // Reset the tree variables to the default values
    resetTree();
 
    // Get the track associated to the particle
    const Particle* particle = particles->getParticle(i);
    const Track* track = particle->getTrack();
 
    bool isFromTrack = true;
    short moduleID = 0;
    short deltaModule = 0;
 
    // If there's no track, we will use the cluster position
    // to pin-point the moduleID. This is meant to allow to use
    // the module to study ECL backsplashes and conversions in the
    // TOP volume
    if (!track) {
      const ECLCluster* clstr = particle->getECLCluster();
      if (! clstr)
        continue; // if there's not even a cluster, we can't do much
      else {
        if (clstr->getDetectorRegion() != 2)
          continue; // the cluster is not in the barrel
        isFromTrack = false;
        // find the two slots closer to the cluster
        auto phi = particle->getECLCluster()->getPhi();
        if (phi < 0)
          phi = 2 * TMath::Pi() - phi;
        auto rawModuleID = phi / (TMath::Pi() / 8) + 1;
        moduleID = int(rawModuleID);
        if (rawModuleID - moduleID > 0.5) {
          deltaModule = 1;
          if (moduleID == 16)
            deltaModule = -15; // ad-hoc treatment for the 16-1 boundary
        } else {
          deltaModule = -1;
          if (moduleID == 1)
            deltaModule = 15; // ad-hoc treatment for the 1-16 boundary
        }
      }
    } else {
      // Check if one can make a TOP track
      TOPTrack trk(*track);
      if (!trk.isValid())
        continue;
      moduleID = trk.getModuleID();
    }
 
    if (moduleID < 1)
      continue;
 
    // Save the digit info for all the topDigits in the module where the track was extrapolated
    for (const auto& digi : digits) {
      // if we have a cluster, save the digits from the two modules closer to the cluster
      if (m_nDigits >= m_MaxPhotons) break;
      if ((digi.getModuleID() == moduleID) || (!isFromTrack && digi.getModuleID() == moduleID + deltaModule)) {
        m_digitTime[m_nDigits] = digi.getTime();
        m_digitChannel[m_nDigits] = digi.getChannel();
        m_digitPixel[m_nDigits] = digi.getPixelID();
        m_digitPixelCol[m_nDigits] = digi.getPixelCol();
        m_digitPixelRow[m_nDigits] = digi.getPixelRow();
        m_digitAmplitude[m_nDigits] = digi.getPulseHeight();
        m_digitWidth[m_nDigits] = digi.getPulseWidth();
        m_digitASICChannel[m_nDigits] = digi.getASICChannel();
        m_digitPMTNumber[m_nDigits] = digi.getPMTNumber();
        m_digitSlot[m_nDigits] = digi.getModuleID();
        m_digitBoardstack[m_nDigits] = digi.getBoardstackNumber();
        m_digitCarrier[m_nDigits] = digi.getCarrierNumber();
        m_digitAsic[m_nDigits] = digi.getASICNumber();
        m_digitQuality[m_nDigits] = digi.getHitQuality();
        m_nDigits++;
      }
    }
 
    // Save the track variables from the VM
    for (unsigned int iVar = 0; iVar < m_variables.size(); iVar++) {
      if (std::holds_alternative<double>(m_functions[iVar](particle))) {
        m_branchAddresses[iVar] = std::get<double>(m_functions[iVar](particle));
      } else if (std::holds_alternative<int>(m_functions[iVar](particle))) {
        m_branchAddresses[iVar] = (double)std::get<int>(m_functions[iVar](particle));
      } else if (std::holds_alternative<bool>(m_functions[iVar](particle))) {
        m_branchAddresses[iVar] = (double)std::get<bool>(m_functions[iVar](particle));
      }
    }
 
 
    // Save the PDF samplings
    if (isFromTrack) {
 
      if (m_saveLLScan) {
        auto llScan = track->getRelated<TOPLikelihoodScanResult>();
        auto masses = llScan->getCoarseScanMassPoints();
        auto lls = llScan->getCoarseScanLLValues();
        m_nScanPoints = lls.size();
        for (unsigned int j = 0; j < lls.size(); j++) {
          m_scanMass[j] = masses[j];
          m_scanLL[j] = lls[j];
        }
      }
 
      for (auto pdg : m_pdgHyp) {
        if (pdg == Const::electron.getPDGCode())
          fillPDF(Belle2::Const::electron, track, m_hitMapMCE, m_pdfPixelE, m_pdfTimeE, m_pdfSamplesE, m_pdfToysE);
        else if (pdg == Const::muon.getPDGCode())
          fillPDF(Belle2::Const::muon, track, m_hitMapMCMU, m_pdfPixelMU, m_pdfTimeMU, m_pdfSamplesMU, m_pdfToysMU);
        else if (pdg == Const::pion.getPDGCode())
          fillPDF(Belle2::Const::pion, track, m_hitMapMCPI, m_pdfPixelPI, m_pdfTimePI, m_pdfSamplesPI, m_pdfToysPI);
        else if (pdg == Const::kaon.getPDGCode())
          fillPDF(Belle2::Const::kaon, track, m_hitMapMCK, m_pdfPixelK, m_pdfTimeK, m_pdfSamplesK, m_pdfToysK);
        else if (pdg == Const::proton.getPDGCode())
          fillPDF(Belle2::Const::proton, track, m_hitMapMCP, m_pdfPixelP, m_pdfTimeP, m_pdfSamplesP, m_pdfToysP);
      }
    }
 
    m_tree->Fill();
  }
  return;
}
 
 
void TOPRingPlotterModule::terminate()
{
  TDirectory::TContext context;
  m_outputFile->cd();
  m_tree->Write();
  m_outputFile->Close();
}