BaryonResonanceDecayer.cxx

Go to the documentation of this file.

//____________________________________________________________________________
/*
 Copyright (c) 2003-2020, The GENIE Collaboration
 For the full text of the license visit http://copyright.genie-mc.org

 Costas Andreopoulos <constantinos.andreopoulos \at cern.ch>
 University of Liverpool & STFC Rutherford Appleton Laboratory
*/
//____________________________________________________________________________
#include <cmath>

#include <cmath>

#include <TClonesArray.h>
#include <TDecayChannel.h>
#include <TMath.h>

#include "Framework/GHEP/GHepFlags.h" 
#include "Framework/EventGen/EVGThreadException.h" 
#include "Framework/Conventions/Controls.h"
#include "Framework/Conventions/Constants.h"
#include "Framework/ParticleData/PDGLibrary.h"
#include "Framework/ParticleData/PDGCodes.h"
#include "Framework/ParticleData/PDGUtils.h"
#include "Framework/ParticleData/BaryonResUtils.h"
#include "Framework/GHEP/GHepStatus.h"
#include "Framework/GHEP/GHepParticle.h"
#include "Framework/GHEP/GHepRecord.h"
#include "Framework/Numerical/RandomGen.h"
#include "Framework/Utils/PrintUtils.h"
#include "Framework/Utils/StringUtils.h"
#include "Framework/Messenger/Messenger.h"
#include "Physics/Decay/BaryonResonanceDecayer.h"
#include "Math/GSLMinimizer.h"
#include <Math/WrappedParamFunction.h>

using namespace genie;
using namespace genie::controls;
using namespace genie::constants;
//____________________________________________________________________________
BaryonResonanceDecayer::BaryonResonanceDecayer() :
Decayer("genie::BaryonResonanceDecayer")
{
  this->Initialize();
}
//____________________________________________________________________________
BaryonResonanceDecayer::BaryonResonanceDecayer(string config) :
Decayer("genie::BaryonResonanceDecayer", config)
{
  this->Initialize();
}
//____________________________________________________________________________
BaryonResonanceDecayer::~BaryonResonanceDecayer()
{

  for ( unsigned int i = 0; i < fRParams.size() ; ++i ) {
    delete fRParams[i] ;
  }

}
//____________________________________________________________________________
void BaryonResonanceDecayer::ProcessEventRecord(GHepRecord * event) const
{
  LOG("ResonanceDecay", pINFO)
    << "Running resonance decayer "
    << ((fRunBefHadroTransp) ? "*before*" : "*after*") << " FSI";

  // Loop over particles, find unstable ones and decay them
  TObjArrayIter piter(event);
  GHepParticle * p = 0;
  int ipos = -1;

  while( (p = (GHepParticle *) piter.Next()) ) {

    ipos++;
    LOG("ResonanceDecay", pDEBUG) << "Checking: " << p->Name();

    int pdg_code = p->Pdg();
    GHepStatus_t status_code = p->Status();

    //    std::cout << "Decaing particle " << ipos << " with PDG " << pdg_code << std::endl ; 

    if(!this->IsHandled  (pdg_code)) continue;
    if(!this->ToBeDecayed(pdg_code, status_code)) continue;

    LOG("ResonanceDecay", pNOTICE)
          << "Decaying unstable particle: " << p->Name();

    bool decayed = this->Decay(ipos, event);
    if ( ! decayed ) {
      LOG("ResonanceDecay", pWARN) << "Resonance not decayed!" ;
      LOG("ResonanceDecay", pWARN) << "Quitting the current event generation thread" ;

      event -> EventFlags() -> SetBitNumber(kHadroSysGenErr, true);

      genie::exceptions::EVGThreadException exception;
      exception.SetReason("Resonance not decayed");
      exception.SwitchOnFastForward();
      throw exception;

      return ;
    }

  } // loop over particles

  LOG("ResonanceDecay", pNOTICE)
     << "Done finding & decaying baryon resonances";
}
//____________________________________________________________________________
bool BaryonResonanceDecayer::Decay(
  int decay_particle_id, GHepRecord * event) const
{
  // Reset previous decay weight
  fWeight = 1.;

  // Get particle to be decayed
  GHepParticle * decay_particle = event->Particle(decay_particle_id);
  if( ! decay_particle) {
    LOG("ResonanceDecay", pERROR)
      << "Particle to be decayed not in the event record. Particle ud: " << decay_particle_id ; 
    return false;
  }

  bool to_be_deleted ; 

  // Select a decay channel
  TDecayChannel * selected_decay_channel =
    this->SelectDecayChannel(decay_particle_id, event, to_be_deleted ) ;

  if(!selected_decay_channel) {
    LOG("ResonanceDecay", pERROR)
      << "No decay channel for particle " << decay_particle_id ; 
    LOG("ResonanceDecay", pERROR) 
      << *event ; 

    return false;
  }

  // Decay the exclusive state and copy daughters in the event record
  bool decayed = this->DecayExclusive(decay_particle_id, event, selected_decay_channel);

  if ( to_be_deleted ) 
    delete selected_decay_channel ; 

  if ( ! decayed ) return false ;

  // Update the event weight for each weighted particle decay
  double weight = event->Weight() * fWeight;
  event->SetWeight(weight);

  // Mark input particle as a 'decayed state' & add its daughter links
  decay_particle->SetStatus(kIStDecayedState);

  return true;
}
//____________________________________________________________________________
TDecayChannel * BaryonResonanceDecayer::SelectDecayChannel( int decay_particle_id, 
                                                            GHepRecord * event, 
                                                            bool & to_be_deleted ) const
{
  // Get particle to be decayed
  GHepParticle * decay_particle = event->Particle(decay_particle_id);
  if(!decay_particle) return 0;

  // Get the particle 4-momentum and PDG code
  TLorentzVector decay_particle_p4 = *(decay_particle->P4());
  int decay_particle_pdg_code = decay_particle->Pdg();

  // Find the particle in the PDG library & quit if it does not exist
  TParticlePDG * mother =
     PDGLibrary::Instance()->Find(decay_particle_pdg_code);
  if(!mother) {
     LOG("ResonanceDecay", pERROR)
        << "\n *** The particle with PDG code = " << decay_particle_pdg_code
         << " was not found in PDGLibrary";
     return 0;
  }
  LOG("ResonanceDecay", pINFO)
    << "Decaying a " << mother->GetName()
    << " with P4 = " << utils::print::P4AsString(&decay_particle_p4);

  // Get the resonance mass W (generally different from the mass associated
  // with the input PDG code, since the it is produced off the mass shell)
  double W = decay_particle_p4.M();
  LOG("ResonanceDecay", pINFO) << "Available mass W = " << W;

  // Get all decay channels
  TObjArray * original_decay_list = mother->DecayList();

  unsigned int nch = original_decay_list -> GetEntries();
  LOG("ResonanceDecay", pINFO)
    << mother->GetName() << " has: " << nch << " decay channels";

  // Loop over the decay channels (dc) and write down the branching
  // ratios to be used for selecting a decay channel.
  // Since a baryon resonance can be created at W < Mres, explicitly
  // check and inhibit decay channels for which W > final-state-mass

  bool has_evolved_brs = BaryonResonanceDecayer::HasEvolvedBRs( decay_particle_pdg_code ) ; 
  
  TObjArray * actual_decay_list = nullptr ;

  if ( has_evolved_brs ) {
    actual_decay_list = EvolveDeltaBR( decay_particle_pdg_code, original_decay_list, W ) ;
    if ( ! actual_decay_list ) return nullptr ;
    nch = actual_decay_list -> GetEntries() ;
    to_be_deleted = true ;
  }
  else {
    actual_decay_list = original_decay_list ;
    to_be_deleted = false ;
  }

  double BR[nch], tot_BR = 0;

  for(unsigned int ich = 0; ich < nch; ich++) {

    TDecayChannel * ch = (TDecayChannel *) actual_decay_list -> At(ich);

    double fsmass = this->FinalStateMass(ch) ;
    if ( fsmass < W ) {

      SLOG("ResonanceDecay", pDEBUG)
                << "Using channel: " << ich
                << " with final state mass = " << fsmass << " GeV";

      tot_BR += ch->BranchingRatio();

    } else {
      SLOG("ResonanceDecay", pINFO)
                << "Suppresing channel: " << ich
                << " with final state mass = " << fsmass << " GeV";
    } // final state mass

    BR[ich] = tot_BR;
  }//channel loop

  if( tot_BR <= 0. ) {
    SLOG("ResonanceDecay", pWARN)
          << "None of the " << nch << " decay channels is available @ W = " << W;
    return 0;
  }

  // Select a resonance based on the branching ratios
  unsigned int ich = 0, sel_ich; // id of selected decay channel
  RandomGen * rnd = RandomGen::Instance();
  double x = tot_BR * rnd->RndDec().Rndm();
  do {
    sel_ich = ich;
  } while (x > BR[ich++]);

  TDecayChannel * sel_ch = (TDecayChannel *) actual_decay_list -> At(sel_ich);

  LOG("ResonanceDecay", pINFO)
    << "Selected " << sel_ch->NDaughters() << "-particle decay channel ("
    << sel_ich << ") has BR = " << sel_ch->BranchingRatio();

  if ( has_evolved_brs ) {

    for ( unsigned int i = 0; i < nch; ++i) {
      if ( sel_ich != i ) delete actual_decay_list -> At(i);
    }

    delete actual_decay_list ;
  }

  return sel_ch;
}
//____________________________________________________________________________
bool BaryonResonanceDecayer::DecayExclusive(
  int decay_particle_id, GHepRecord * event, TDecayChannel * ch) const
{
  // Find the particle to be decayed in the event record
  GHepParticle * decay_particle = event->Particle(decay_particle_id);
  if(!decay_particle) return false ;

  // Get the decayed particle 4-momentum, 4-position and PDG code
  TLorentzVector decay_particle_p4 = *(decay_particle->P4());
  TLorentzVector decay_particle_x4 = *(decay_particle->X4());
  int decay_particle_pdg_code = decay_particle->Pdg();

  // Get the final state mass spectrum and the particle codes
  // for the selected decay channel
  unsigned int nd = ch->NDaughters();

  int    pdgc[nd];
  double mass[nd];

  for(unsigned int iparticle = 0; iparticle < nd; iparticle++) {

     int daughter_code = ch->DaughterPdgCode(iparticle);
     TParticlePDG * daughter = PDGLibrary::Instance()->Find(daughter_code);
     assert(daughter);

     pdgc[iparticle] = daughter_code;
     mass[iparticle] = daughter->Mass();

     SLOG("ResonanceDecay", pINFO)
         << "+ daughter[" << iparticle << "]: "
         << daughter->GetName() << " (pdg-code = "
         << pdgc[iparticle] << ", mass = " << mass[iparticle] << ")";
  }

  // Check whether the expected channel is Delta->pion+nucleon
  bool is_delta = (decay_particle_pdg_code == kPdgP33m1232_DeltaPP ||
                   decay_particle_pdg_code == kPdgP33m1232_DeltaP  ||
                   decay_particle_pdg_code == kPdgP33m1232_Delta0);

  bool is_delta_N_Pi_decay = is_delta && this->IsPiNDecayChannel(ch);

  // Decay the resonance using an N-body phase space generator
  // The particle will be decayed in its rest frame and then the daughters
  // will be boosted back to the original frame.

  bool is_permitted = fPhaseSpaceGenerator.SetDecay(decay_particle_p4, nd, mass);
  if ( ! is_permitted ) return false ;

  // Find the maximum phase space decay weight
  // double wmax = fPhaseSpaceGenerator.GetWtMax();
  double wmax = -1;
  for(int i=0; i<50; i++) {
     double w = fPhaseSpaceGenerator.Generate();
     wmax = TMath::Max(wmax,w);
  }
  assert(wmax>0);
  LOG("ResonanceDecay", pINFO)
    << "Max phase space gen. weight for current decay: " << wmax;

  if(fGenerateWeighted)
  {
    // Generating weighted decays
    // Do a single draw of momentum 4-vectors and then stop,
    // taking into account the weight for this particular draw
    double w = fPhaseSpaceGenerator.Generate();
    fWeight *= TMath::Max(w/wmax, 1.);
  }
  else
  {
    // Generating un-weighted decays
    RandomGen * rnd = RandomGen::Instance();
    wmax *= 2;
    bool accept_decay=false;
    unsigned int itry=0;

    while(!accept_decay)
    {
      itry++;
      assert(itry<kMaxUnweightDecayIterations);

      double w  = fPhaseSpaceGenerator.Generate();
      double gw = wmax * rnd->RndDec().Rndm();

      if(w>wmax) {
         LOG("ResonanceDecay", pWARN)
            << "Current decay weight = " << w << " > wmax = " << wmax;
      }
      LOG("ResonanceDecay", pINFO)
        << "Current decay weight = " << w << " / R = " << gw;

      accept_decay = (gw<=w);

      // Extra logic that applies only for Delta -> N + pi
      if( accept_decay && is_delta_N_Pi_decay ) {

        // We don't want the decay Delta -> Pi + N to be isotropic in the Delta referemce frame
        // as generated by the simple phase space generator.
        // In order to sample pion distribution according to W(Theta, phi) in the Delta resonance decay,
        // we make use of the following.
        // Note that Theta and Phi are defined in a reference frame which depends on the whole event
        // For each event generated from a Delta -> N + Pi event with Pi emitted at
        // at angles Theta and Phi (in the Delta rest frame), attach a random number to it.
        // then we calculate W(Theta, Phi).
        // Each possible final state is used to evaluate (Theta, Phi),
        // then a random number is thrown, if the the random number is higher than W(Theta, Phi) drop this event and go
        // back to re-generate an event and repeat the procedure.
        // Otherwise keep this event to the record.
        // For efficiency reasons the maxium of the function is Q2 dependent

        // Locate the pion in the decay products
        // at this point we already know that the pion is unique so the first pion we find is our pion
        unsigned int pi_id = 0 ;

        for(unsigned int iparticle = 0; iparticle < nd; iparticle++) {

          if ( genie::pdg::IsPion( ch->DaughterPdgCode(iparticle) ) ) {
            pi_id = iparticle ;
            break ;
          }
        }//iparticle

        TLorentzVector * lab_pion = fPhaseSpaceGenerator.GetDecay(pi_id);

        accept_decay = AcceptPionDecay( *lab_pion, decay_particle_id, event) ;

      } //if it is a Delta -> N + Pi

    }//accept_decay

  }//fGenerateWeighted

  // A decay was generated - Copy to the event record

  // Check whether the interaction is off a nuclear target or free nucleon
  // Depending on whether this module is run before or after the hadron
  // transport module it would affect the daughters status code
  GHepParticle * target_nucleus = event->TargetNucleus();
  bool in_nucleus = (target_nucleus!=0);

  // Loop over daughter list and add corresponding GHepParticles
  for(unsigned int id = 0; id < nd; id++) {

     int daughter_pdg_code = pdgc[id];

     TLorentzVector * daughter_p4 = fPhaseSpaceGenerator.GetDecay(id);
     LOG("ResonanceDecay", pDEBUG)
        << "Adding daughter particle with PDG code = " << pdgc[id]
        << " and mass = " << mass[id] << " GeV";

     bool is_hadron = pdg::IsHadron(daughter_pdg_code);
     bool hadron_in_nuc = (in_nucleus && is_hadron && fRunBefHadroTransp);

     GHepStatus_t daughter_status_code = (hadron_in_nuc) ?
          kIStHadronInTheNucleus : kIStStableFinalState;

     event->AddParticle(
       daughter_pdg_code, daughter_status_code, decay_particle_id,-1,-1,-1,
       *daughter_p4, decay_particle_x4);
  }

  return true ;
}
//__________________________________________________________________________________
TObjArray *  BaryonResonanceDecayer::EvolveDeltaBR(int dec_part_pdgc, TObjArray * decay_list, double W) const {

  unsigned int nch = decay_list -> GetEntries();

  std::vector<double> widths( nch, 0. ) ;
  double tot = 0. ;

  TDecayChannel * temp = nullptr ;

  for ( unsigned int i = 0 ; i < nch ; ++i ) {

    temp = (TDecayChannel*) decay_list -> At(i) ;
    tot += widths[i] = EvolveDeltaDecayWidth(dec_part_pdgc, temp, W ) ;

  }

  if ( tot <= 0. ) return nullptr ;

  TObjArray * new_list = new TObjArray() ;

  TDecayChannel * update = nullptr ;

  for ( unsigned int i = 0 ; i < nch ; ++i ) {

    if ( widths[i] <= 0. ) continue ;

    temp = (TDecayChannel*) decay_list -> At(i) ;

    unsigned int nd = temp -> NDaughters() ;
    std::vector<Int_t> ds( nd, 0 ) ;
    for ( unsigned int d = 0 ; d < nd; ++d ) {
      ds[d] = temp -> DaughterPdgCode(d) ;
    }

    update = new TDecayChannel(
        temp -> Number(),
        temp -> MatrixElementCode(),
        widths[i] / tot,
        nd,
        & ds[0]
        ) ;

    new_list -> Add( update ) ;
  }

  new_list -> SetOwner(kFALSE);

  return new_list ;
}

//____________________________________________________________________________
double BaryonResonanceDecayer::EvolveDeltaDecayWidth(int dec_part_pdgc, TDecayChannel * ch, double W) const {

  /*
   * The decay widths of the Delta in Pions or in N gammas are not constant.
   * They depend on the actual mass of the decaying delta (W) they need to be evolved accordingly.
   * This method tweaks the Delta branching ratios as a function of the W and
   * returns the proper one depending on the specific decay channel.
   */

  // identify the decay channel
  // The delta decays only in 3 ways
  // Delta -> Charged Pi + N
  // Delta -> Pi0 + N
  // Delta -> Gamma + N

  // They have evolution as a function of W that are different if the final state has pions or not
  // so having tagged the pion is enough for the purpose of this method.

  bool has_pion = false ;
  int pion_id = -1 ;
  int nucleon_id = -1 ;
  unsigned int nd = ch -> NDaughters() ;
  for(unsigned int i = 0 ; i < nd; ++i ) {
    if ( genie::pdg::IsPion( ch -> DaughterPdgCode(i) ) ) {
      has_pion = true ;
      pion_id = i ;
    }

    if ( genie::pdg::IsNucleon( ch -> DaughterPdgCode(i) ) ) {
      nucleon_id = i ;
    }
  }


  // The first and most trivial evolution of the Width as a function of W
  // is that if W is lower then the final state mass the width collapses to 0.

  if ( W < this -> FinalStateMass( ch ) ) {

    return 0. ;

  }

  // At this point, W is high enough to assume the decay of the delta in this channel
  //
  // The amplitude dependencies on W scales with the momentum of the pion or the photon respectivelly
  // following these relationships
  //
  //                              (p_pi(W))^3
  //  Ampl_pi(W) = Ampl_pi(def)x---------------
  //                             (p_pi(def))^3
  //
  //
  //                              (p_ga(W))^3       (F_ga(W))^2
  //  Ampl_ga(W) = Ampl_ga(def)x--------------- x ---------------
  //                             (p_ga(def))^3     (F_ga(def))^2
  //
  // where the "def" stand for the nominal value of the Delta mass.
  //  - pi_* are the momentum of the gamma and of the pion coming from the decay
  //  - F_ga is the form factor
  //
  // So the new amplitudes are evaluated and the proper value is returned

  // Getting the delta resonance from GENIE database
   Resonance_t res = genie::utils::res::FromPdgCode( dec_part_pdgc ) ;

   double m = genie::utils::res::Mass( res ) ;
   double m_2   = TMath::Power(m, 2);

   double mN = genie::pdg::IsProton( ch -> DaughterPdgCode( nucleon_id ) ) ?  genie::constants::kProtonMass : genie::constants::kNucleonMass ;
   double mN_2  = TMath::Power( mN,     2);

   double W_2   = TMath::Power(W,      2);

   double scaling = 0. ;

   if ( has_pion ) {

     double mPion = TMath::Abs( ch -> DaughterPdgCode( pion_id ) ) == kPdgPiP ? genie::constants::kPionMass : genie::constants::kPi0Mass ;
     double m_aux1= TMath::Power( mN + mPion, 2) ;
     double m_aux2= TMath::Power( mN - mPion, 2) ;

     // momentum of the pion in the Delta reference frame
     double pPi_W    = TMath::Sqrt((W_2-m_aux1)*(W_2-m_aux2))/(2*W);  // at W
     double pPi_m    = TMath::Sqrt((m_2-m_aux1)*(m_2-m_aux2))/(2*m);  // at the default Delta mass

     scaling = TMath::Power( pPi_W / pPi_m , 3 ) ;

   }
   else {

     // momentum of the photon in the Delta Reference frame = Energy of the photon
     double Egamma_W = (W_2-mN_2)/(2*W);  // at W
     double Egamma_m = (m_2-mN_2)/(2*m);  // at the default Delta mass

     // form factor of the photon production
     double fgamma_W = 1./(TMath::Power(1+Egamma_W*Egamma_W/fFFScaling, 2));
     double fgamma_m = 1./(TMath::Power(1+Egamma_m*Egamma_m/fFFScaling, 2));

     scaling = TMath::Power( Egamma_W / Egamma_m, 3 ) * TMath::Power( fgamma_W / fgamma_m , 2 ) ;
   }

   // get the width of the delta and obtain the width of the decay in the channel we are evolving
   // evaluated at the nominal mass of the delta
   double defChWidth    = ch -> BranchingRatio() * genie::utils::res::Width( res ) ;

   return defChWidth * scaling ;

}
//____________________________________________________________________________
bool BaryonResonanceDecayer::AcceptPionDecay( TLorentzVector pion,
                                              int dec_part_id,
                                              const GHepRecord * event ) const {

  // This evaluate the function W(theta, phi) as a function of the emitted pion and of the status of
  // the Delta to be decayed and the whole event

  // in its simplest form W(theta) is
  // W(Theta) = 1 − P[ 3/2 ] x L_2(cos Theta) + P[ 1/2 ] x L_2(cos Theta)
  // where
  // L_2 is the second Legendre polynomial L_2(x) = (3x^2 -1)/2
  // and P[3/2] and P[1/2] have to some up to 1.
  // But the code has been extended to include a phi dependence

  // Get the delta 4-momentum
  GHepParticle * decay_particle = event->Particle( dec_part_id );
  TLorentzVector delta_p4 = *(decay_particle->P4() );

  // find incoming lepton
  TLorentzVector in_lep_p4( * (event -> Probe()-> GetP4()) ) ;

  // find outgoing lepton
  Interaction * interaction = event->Summary();
  TLorentzVector out_lep_p4 = interaction->KinePtr()->FSLeptonP4() ;

  TLorentzVector q = in_lep_p4 - out_lep_p4 ;

  pion.Boost(-delta_p4.BoostVector() );  // this gives us the pion in the Delta reference frame
  q.Boost(-delta_p4.BoostVector() );  // this gives us the transferred momentm in the Delta reference frame

  TVector3 pion_dir = pion.Vect().Unit() ;
  TVector3 z_axis = q.Vect().Unit() ;



  unsigned int q2_index = 0 ;
  
  // find out Q2 region for values
  // note that Q2 is a lorentz invariant so it does not matter it is evaluated in the lab frame
  // like in this case or in the Delta reference frame
  double Q2 = - q.Mag2() ;
  while( q2_index < fQ2Thresholds.size() ) {
    if ( Q2 < fQ2Thresholds[q2_index] ) ++q2_index ;
    else break ;
  }

  double w_function ; 

  if ( fDeltaThetaOnly ) {
    
    double c_t = pion_dir*z_axis; // cos theta
    
    w_function = 1. - (fR33[q2_index] - 0.5)*(3.*c_t*c_t - 1.) ;

  }

  else {

    double x[2] ; // 0 : theta, 1 : phi 

    x[0] = pion_dir.Angle( z_axis ) ; // theta

    in_lep_p4.Boost(-delta_p4.BoostVector() ) ;
    out_lep_p4.Boost( -delta_p4.BoostVector() ) ;

    // evaluate reference frame -> define x axis
    TVector3 y_axis = in_lep_p4.Vect().Cross( out_lep_p4.Vect() ).Unit() ;
    TVector3 x_axis = y_axis.Cross(z_axis);

    TVector3 pion_perp( z_axis.Cross( pion_dir.Cross( z_axis ).Unit() ) ) ;
    
    x[1] = pion_perp.Angle( x_axis ) ;  // phi

    w_function = BaryonResonanceDecayer::PionAngularDist( x, fRParams[q2_index] ) ; 
    
  }

  if ( fW_max[q2_index] <= 0. ) {
    const_cast<genie::BaryonResonanceDecayer*>( this ) -> fW_max[q2_index] = FindDistributionExtrema( q2_index, true ) ; 
  }

  double aidrnd = fW_max[q2_index] * RandomGen::Instance()-> RndDec().Rndm();

  return ( aidrnd <= w_function ) ;

}
//____________________________________________________________________________
double BaryonResonanceDecayer::Weight(void) const
{
  return fWeight;
}
//____________________________________________________________________________
double BaryonResonanceDecayer::FinalStateMass( TDecayChannel * ch ) const
{
// Computes the total mass of the final state system

  double mass = 0;
  unsigned int nd = ch->NDaughters();

  for(unsigned int iparticle = 0; iparticle < nd; iparticle++) {

     int daughter_code = ch->DaughterPdgCode(iparticle);
     TParticlePDG * daughter = PDGLibrary::Instance()->Find(daughter_code);
     assert(daughter);

     double md = daughter->Mass();

     // hack to switch off channels giving rare  occurences of |1114| that has
     // no decay channels in the pdg table (08/2007)
     if(TMath::Abs(daughter_code) == 1114) {
         LOG("ResonanceDecay", pNOTICE)
            << "Disabling decay channel containing resonance 1114";;
         md = 999999999;
     }
     mass += md;
  }
  return mass;
}
//____________________________________________________________________________
bool BaryonResonanceDecayer::IsPiNDecayChannel( TDecayChannel * ch ) const
{
  if(!ch) return false;

  unsigned int nd = ch->NDaughters();
  if(nd != 2) return false;

  int  npi    = 0;
  int  nnucl  = 0;

  for(unsigned int iparticle = 0; iparticle < nd; iparticle++) {

    int daughter_code = ch->DaughterPdgCode(iparticle);

    if( genie::pdg::IsPion( daughter_code ) )
      npi++;

    if ( genie::pdg::IsNucleon(daughter_code ) )
      nnucl++;

  }//iparticle

  if(npi == 1 && nnucl == 1) return true;

  return false;
}
//____________________________________________________________________________
void BaryonResonanceDecayer::Initialize(void) const
{

}
//____________________________________________________________________________
bool BaryonResonanceDecayer::IsHandled(int pdg_code) const
{
  bool is_handled = utils::res::IsBaryonResonance(pdg_code);

  LOG("ResonanceDecay", pDEBUG)
      << "Can decay particle with PDG code = " << pdg_code
      << "? " << ((is_handled)? "Yes" : "No");

  return is_handled ; 
}
//____________________________________________________________________________
void BaryonResonanceDecayer::InhibitDecay(int pdgc, TDecayChannel * dc) const
{
  if(! this->IsHandled(pdgc)) return;
  if(!dc) return;

  //
  // Not implemented
  //
}
//____________________________________________________________________________
void BaryonResonanceDecayer::UnInhibitDecay(int pdgc, TDecayChannel * dc) const
{
  if(! this->IsHandled(pdgc)) return;
  if(!dc) return;

  //
  // Not implemented
  //
}
//____________________________________________________________________________
bool BaryonResonanceDecayer::IsDelta( int dec_part_pdgc ) {

  dec_part_pdgc = abs( dec_part_pdgc ) ;

  return  ( dec_part_pdgc ==  kPdgP33m1232_DeltaM ||
                dec_part_pdgc ==  kPdgP33m1232_Delta0 ||
            dec_part_pdgc ==  kPdgP33m1232_DeltaP ||
                dec_part_pdgc ==  kPdgP33m1232_DeltaPP ) ;
}
//____________________________________________________________________________
bool BaryonResonanceDecayer::HasEvolvedBRs( int dec_part_pdgc ) {

  dec_part_pdgc = abs( dec_part_pdgc ) ;

  //  the evolution of the Delta BR as a function of W is meaningful only when there are 
  //  more than one decay channels. 
  //  Delta++ and Delta- have only one decay channel bacause of baryon number and charge conservation

  return  ( dec_part_pdgc ==  kPdgP33m1232_Delta0 ||
            dec_part_pdgc ==  kPdgP33m1232_DeltaP ) ; 
}
//____________________________________________________________________________
double BaryonResonanceDecayer::PionAngularDist( const double* x, const double * par ) {
  
  double c_t = TMath::Cos( x[0] ) ;
  double s_t = TMath::Sin( x[0] ) ;

  double c_phi = TMath::Cos( x[1 ] ); 

  double theta_dep_only = 1. - ( par[0] - 0.5 )*( 3.*c_t*c_t - 1. ) ;
  double phi_dependency = kSqrt3 *( 2.*par[1]*s_t*c_t*c_phi + par[2]*s_t*(2.*c_phi*c_phi-1.) ) ;
  
  return theta_dep_only - phi_dependency ; 

}
//____________________________________________________________________________
double BaryonResonanceDecayer::FindDistributionExtrema( unsigned int q2_bin, bool find_maximum ) const {

  // Choose method upon creation between:
  // kConjugateFR, kConjugatePR, kVectorBFGS,
  // kVectorBFGS2, kSteepestDescent
  ROOT::Math::GSLMinimizer min( ROOT::Math::kVectorBFGS );
 
  min.SetMaxFunctionCalls(1000);
  min.SetMaxIterations(1000);
  min.SetTolerance( fMaxTolerance );
 
  ROOT::Math::WrappedParamFunction<ROOT::Math::FreeParamMultiFunctionPtr> f( ( find_maximum ? 
                                                                               & BaryonResonanceDecayer::MinusPionAngularDist : 
                                                                               & BaryonResonanceDecayer::PionAngularDist ), 
                                                                             2, 3, fRParams[q2_bin] ) ;
  
  // Steps are defined as the same fraction of the range of each variable
  double step[2] = { 0.00005 * kPi, 0.00005 * 2 * kPi } ;
  
  min.SetFunction(f);

  do {

    // Set the free variables to be minimized!
    // it has been observed that some initial values are making the minimization to fail. 
    // e.g. ( pi/2, pi/2 )
    // at the same time, the absolute extrema seems very stable with respect to changes of the initial variable
    // hence the minimization is done inside a loop where the variables a initialized randomly 
    
    min.SetLimitedVariable( 0, "theta", kPi * RandomGen::Instance()-> RndDec().Rndm(), step[0], 0.,   kPi );
    min.SetLimitedVariable( 1, "phi", 2*kPi * RandomGen::Instance()-> RndDec().Rndm(), step[1], 0., 2*kPi );

  } while( ! min.Minimize() ) ;

  const double *xs = min.X();
  
  double result = find_maximum ? -1 * f( xs ) : f( xs ) ;
  
  LOG("BaryonResonanceDecayer", pINFO) << (find_maximum ? "Maximum " : "Minimum ")
                                       << "of angular distribution found in ( " 
                                       << xs[0] << ", " << xs[1] << " ): " 
                                       << result ;

  LOG("BaryonResonanceDecayer", pDEBUG) << "Minimum found in " << min.NCalls() << " calls" ;
  
  return result  ; 

}


//____________________________________________________________________________
void BaryonResonanceDecayer::LoadConfig(void) {

  Decayer::LoadConfig() ;

  this -> GetParam( "FFScaling", fFFScaling ) ;

  this -> GetParamDef( "Delta-ThetaOnly", fDeltaThetaOnly, true ) ;

  this -> GetParamDef( "DeltaDecayMaximumTolerance", fMaxTolerance, 0.0005 ) ;

  bool invalid_configuration = false ;

  // load R33 parameters
  this -> GetParamVect( "Delta-R33", fR33 ) ; 

  // load Q2 thresholds if necessary
  if ( fR33.size() > 1 ) {
    this -> GetParamVect("Delta-Q2", fQ2Thresholds ) ;
  }
  else {
    fQ2Thresholds.clear() ;
  }

  // check if the number of Q2 matches the number of R33
  if ( fQ2Thresholds.size() != fR33.size() -1 ) {
    invalid_configuration = true ;
    LOG("BaryonResonanceDecayer", pFATAL) << "Delta-Q2 and Delta-R33 have wrong sizes" ;
    LOG("BaryonResonanceDecayer", pFATAL) << "Delta-Q2  -> " << fQ2Thresholds.size() ;
    LOG("BaryonResonanceDecayer", pFATAL) << "Delta-R33 -> " << fR33.size() ;
  }

  if ( fDeltaThetaOnly ) {

    // check the parameters validity
    for ( unsigned int i = 0 ; i < fR33.size(); ++i ) {
      if ( (fR33[i] < -0.5) ||  (fR33[i] > 1.) ) {
        invalid_configuration = true ;
        LOG("BaryonResonanceDecayer", pFATAL) << "Delta-R33[" << i << "] out of valid range [-0.5 ; 1 ]" ;
        LOG("BaryonResonanceDecayer", pFATAL) << "Delta-R33[" << i << "] = " << fR33[i] ;
        break ;
      }
    }
    
    // set appropriate maxima
    fW_max.resize( fR33.size(), 0. ) ;
    for ( unsigned int i = 0 ; i < fR33.size(); ++i ) {
      fW_max[i] = ( fR33[i] < 0.5 ? 2. * ( 1. - fR33[i] ) : fR33[i] + 0.5 ) + fMaxTolerance ;
    }
    
  } // Delta Theta Only
  
  else {

    // load R31 and R3m1 parameters
    this -> GetParamVect( "Delta-R31", fR31 ) ;

    this -> GetParamVect( "Delta-R3m1", fR3m1 ) ;

    // check if they match the numbers of R33
    if ( (fR31.size() != fR33.size()) || (fR3m1.size() != fR33.size()) ) {
      LOG("BaryonResonanceDecayer", pFATAL) << "Delta-R31 or Delta-R3m1 sizes don't match Delta-R33" ;
      LOG("BaryonResonanceDecayer", pFATAL) << "R31: " << fR31.size()
                                            << ", R3m1: " << fR31.size()
                                            << " while R33: " << fR33.size() ;
      invalid_configuration = true ;
    }

    for ( unsigned int i = 0; i < fRParams.size() ; ++i ) {
      delete [] fRParams[i] ;
    }
    fRParams.clear() ; 
    // fill the container by Q2 bin instead of the parmaeter bin
    for ( unsigned int i = 0 ; i < fR33.size(); ++i ) {
      fRParams.push_back( new double[3]{ fR33[i], fR31[i], fR3m1[i] } ) ;
    }

    
    // check if they are physical
    fW_max.resize( fR33.size(), 0. ) ;
    for ( unsigned int i = 0 ; i < fR33.size(); ++i ) {
      
      double temp_min = FindDistributionExtrema( i, false ) ;
      if ( temp_min < 0. ) {
        LOG("BaryonResonanceDecayer", pFATAL) << "pion angular distribution minimum is negative for Q2 bin " << i ;
        invalid_configuration = true ;
        break ;
      }
      
      double temp_max = FindDistributionExtrema( i, true ) ;
      if ( temp_max <= 0. ) {
        LOG("BaryonResonanceDecayer", pFATAL) << "pion angular distribution maximum is non positive for Q2 bin " << i ;
        invalid_configuration = true ;
        break ;
      }
      
      fW_max[i] = temp_max + fMaxTolerance ; 
      
    }
    
  }

  if ( invalid_configuration ) {

    LOG("BaryonResonanceDecayer", pFATAL)
      << "Invalid configuration: Exiting" ;

    // From the FreeBSD Library Functions Manual
    //
    // EX_CONFIG (78)   Something was found in an unconfigured or miscon-
    //                  figured state.

    exit( 78 ) ;

  }
  
}