KV2Body.cpp

/***************************************************************************
                          KV2Body.cpp  -  description
                             -------------------
    begin                : 28/11/2003
    copyright            : (C) 2003 by J.D. Frankland
    email                : frankland@ganil.fr
 
$Id: KV2Body.cpp,v 1.4 2009/02/02 13:52:29 ebonnet Exp $
 ***************************************************************************/
 
/***************************************************************************
 *                                                                         *
 *   This program is free software; you can redistribute it and/or modify  *
 *   it under the terms of the GNU General Public License as published by  *
 *   the Free Software Foundation; either version 2 of the License, or     *
 *   (at your option) any later version.                                   *
 *                                                                         *
 ***************************************************************************/
 
#include "KV2Body.h"
#include "TROOT.h"
 
using namespace std;
 
ClassImp(KV2Body)
 
 
 
 
void KV2Body::init()
{
   //Default initialisations
   WLT = WCT = 0.;
   for (int i = 0; i < 5; i++) {
      WC[i] = 0.;
      VC[i] = 0.;
      EC[i] = 0.;
      K[i] = 0.;
      TETAMAX[i] = 0.;
      TETAMIN[i] = 0.;
      fThetaLabVsThetaCM[i] = nullptr;
      fELabVsThetaCM[i] = nullptr;
      fELabVsThetaLab[i] = nullptr;
   }
   fKoxReactionXSec = nullptr;
   fEqbmChargeState = nullptr;
   fEqbmChargeStateShSol = nullptr;
   fEqbmChargeStateShGas = nullptr;
   fSetOutgoing = kFALSE;
 
   SetIntegralPrecision(1e-10);
}
 
 
 
 
KV2Body::KV2Body(): fNuclei(5), fEDiss(0)
{
   //default ctor
   init();
}
 
 
 
 
KV2Body::KV2Body(const Char_t* systemname) : fNuclei(5), fEDiss(0)
{
   //Set up calculation defining entrance channel following this prescription:
   //
   //     [Projectile_Symbol]+[Target_Symbol]@[Incident_Energy]MeV/A
   //     [Projectile_Symbol]+[Target_Symbol]@[Incident_Energy]MeV/u
   //     [Projectile_Symbol]+[Target_Symbol]@[Incident_Energy]MeV
   //     [Projectile_Symbol]+[Target_Symbol]
   //
   //Any spaces will be ignored.
   //
   //Valid examples:
   //
   //     129Xe+119Sn@50.0MeV/A
   //     58Ni + 64Ni @ 32 MeV/u
   //     12C + 1H @ 132 MeV
   //     U+U@5MeV/A
   //     Ta+Zn
   //
   //If the format is not respected, this object will be a zombie (IsZombie() returns kTRUE)
 
   init();
   KVString sener = "";
   Double_t  ee = 0;
   bool beam_in_mev = false;
   KVString syst(systemname);
   syst.ReplaceAll(" ", "");
   KVString scouple(syst);
 
   if (syst.Contains("@")) {
      syst.Begin("@");
      scouple = syst.Next();
      sener = syst.Next();
   }
   if (sener != "") {
      if (sener.Contains("MeV/A")) {
         sener.ReplaceAll("MeV/A", "");
         ee = sener.Atof();
      }
      else if (sener.Contains("MeV/u")) {
         sener.ReplaceAll("MeV/u", "");
         ee = sener.Atof();
      }
      else if (sener.Contains("MeV")) {
         sener.ReplaceAll("MeV", "");
         ee = sener.Atof();
         beam_in_mev = true;
      }
      else {
         MakeZombie();
      }
   }
   scouple.Begin("+");
   KVNucleus nnuc1(scouple.Next());
   if(beam_in_mev)
      nnuc1.SetEnergy(ee);
   else
      nnuc1.SetEnergy(ee*nnuc1.GetA());
   if (nnuc1.IsZombie()) MakeZombie();
   else {
      fNuclei[1] = nnuc1;
      KVNucleus nnuc2(scouple.Next());
      if (nnuc2.IsZombie()) MakeZombie();
      else {
         fNuclei[2] = nnuc2;
      }
   }
   if (!IsZombie()) {
      SetTitle(Form("%s + %s %.1f MeV/A", fNuclei[1].GetSymbol(), fNuclei[2].GetSymbol(), ee));
   }
}
 
 
 
 
KV2Body::KV2Body(KVNucleus*, KVNucleus* cib, KVNucleus* proj_out, Double_t): fNuclei(5), fEDiss(0)
{
   // Deprecated. Do not use.
 
   Obsolete("KV2Body(KVNucleus*, KVNucleus*, KVNucleus*, Double_t)", "1.11", "1.12");
 
   if (!cib) {
      Info("KV2Body", "Use constructor KV2Body(const KVNucleus& compound) to simulate binary decay of compound");
   }
   else if (!proj_out) {
      Info("KV2Body", "Use constructor KV2Body(const KVNucleus& proj, const KVNucleus& targ) to define entrance channel");
   }
   else {
      Info("KV2Body", "Use constructor KV2Body(const KVNucleus& proj, const KVNucleus& targ, const KVNucleus& outgoing) to define entrance & exit channels");
   }
   init();
}
 
 
 
 
KV2Body::KV2Body(const KVNucleus& compound, double Exx)
   : fNuclei(5), fEDiss(-Exx)
{
   // Set up kinematics of binary decay of compound nucleus.
   //
   // The excitation energy of the CN (in MeV) is either given:
   //
   //   - in the KVNucleus object itself (i.e. compound.GetExcitEnergy() gives the E* of CN)
   //   - or in the variable Exx: in this case any E* in the KVNucleus will be ignored
   //   - or by calling SetExcitEnergy or SetDissipatedEnergy after this constructor with the NEGATIVE E*
   //
   //Usage:
   //~~~~~~~~~~{.cpp}
   //   KVNucleus CN("204Pb");
   //   CN.SetExcitEnergy(1.5*CN.GetA());
   //   KV2Body CNdecay(CN);
   //
   //   /* or: KV2Body CNdecay("204Pb", 1.5*204);
   //    * or: KV2Body CNdecay("204Pb");
   //    *     CNdecay.SetExcitEnergy(-1.5*204); */
   //
   //   // calculate decay
   //   KVNucleus alpha("4He", 67.351/4.);
   //   CNdecay.SetOutgoing(alpha);
   //~~~~~~~~~~
 
   init();
   fNuclei[1] = compound;
   if (fEDiss == 0) fEDiss = compound.GetExcitEnergy();
}
 
 
 
 
KV2Body::KV2Body(const KVNucleus& proj, const KVNucleus& targ, double Ediss):
   fNuclei(5), fEDiss(Ediss)
{
   //Set up calculation of basic binary reaction for given projectile and target.
   //
   //By default the dissipated energy Ediss is zero (elastic reaction).
   //
   //Usage:
   //~~~~~~~~~~{.cpp}
   //   KV2Body reaction(KVNucleus("129Xe",50), "natSn");
   //
   //   // or with C++11 (ROOT6):
   //   KV2Body reaction({"129Xe",50}, "natSn");
   //~~~~~~~~~~
 
   init();
   fNuclei[1] = proj;
   fNuclei[2] = targ;
   SetTitle(Form("%s + %s %.1f MeV/A", fNuclei[1].GetSymbol(), fNuclei[2].GetSymbol(), fNuclei[1].GetAMeV()));
}
 
 
 
 
KV2Body::KV2Body(const KVNucleus& proj, const KVNucleus& targ, const KVNucleus& outgoing, double Ediss):
   fNuclei(5), fEDiss(Ediss)
{
   //Set up calculation of basic binary reaction for given projectile and target with definition
   //of exit channel (outgoing projectile- or target-like fragment).
   //
   //By default the dissipated energy is zero (elastic reaction).
   //
   //Any excitation energy of the outgoing fragment will be taken into account, e.g.
   //for quasi-elastic scattering leaving the target in an excited state.
   //
   //Usage:
   //~~~~~~~~~~{.cpp}
   //   KV2Body reaction(KVNucleus("129Xe",50), "natSn", KVNucleus("24Mg",35));
   //
   //   // or with C++11 (ROOT6):
   //   KV2Body reaction({"129Xe",50}, "natSn", {"24Mg",35});
   //~~~~~~~~~~
 
   init();
   fNuclei[1] = proj;
   fNuclei[2] = targ;
   if (outgoing.GetExcitEnergy() > 0) fEDiss += outgoing.GetExcitEnergy();
   SetOutgoing(outgoing);
   SetTitle(Form("%s + %s %.1f MeV/A", fNuclei[1].GetSymbol(), fNuclei[2].GetSymbol(), fNuclei[1].GetAMeV()));
}
 
 
 
 
void KV2Body::SetTarget(const KVNucleus& targ)
{
   //Set target for reaction.
   fNuclei[2] = targ;
   fSetOutgoing = kFALSE;
}
 
 
 
 
void KV2Body::SetTarget(Int_t z, Int_t a)
{
   //Set target for reaction
 
   fNuclei[2].SetZandA(z, a);
   fSetOutgoing = kFALSE;
}
 
 
 
 
void KV2Body::SetProjectile(const KVNucleus& proj)
{
   //Set projectile for reaction.
   fNuclei[1] = proj;
   fSetOutgoing = kFALSE;
}
 
 
 
 
void KV2Body::SetProjectile(Int_t z, Int_t a)
{
   //Set projectile for reaction
   fNuclei[1].SetZandA(z, a);
   fSetOutgoing = kFALSE;
}
 
 
 
 
KV2Body::~KV2Body()
{
   if (fKoxReactionXSec) delete fKoxReactionXSec;
   if (fEqbmChargeState) delete fEqbmChargeState;
   for (int i = 0; i < 5; i++) {
      if (fThetaLabVsThetaCM[i]) delete fThetaLabVsThetaCM[i];
      if (fELabVsThetaCM[i]) delete fELabVsThetaCM[i];
      if (fELabVsThetaLab[i]) delete fELabVsThetaLab[i];
   }
}
 
 
 
 
 
Double_t KV2Body::GetVelocity(Double_t mass, Double_t E)
{
   //Static function, calculates relativistic velocity (in cm/ns) from rest mass and total
   //energy (i.e. KE + mass) 'E' for any particle
 
   Double_t p = TMath::Sqrt(E * E - mass * mass);
   return KVParticle::C() * p / E;
}
 
 
 
 
 
void KV2Body::SetOutgoing(const KVNucleus& proj_out)
{
   // Set outgoing projectile-like nucleus properties.
   //
   // The properties of the outgoing target-like nucleus will be deduced from mass, charge and momentum/energy conservation.
 
   SetTitle(Form("%s + %s %.1f MeV/A", fNuclei[1].GetSymbol(), fNuclei[2].GetSymbol(), fNuclei[1].GetAMeV()));
   fSetOutgoing = kTRUE;
   fNuclei[3] = proj_out;
   Set4thNucleus();
   // all nuclei should now have E* set to zero in order to use ground state masses in kinematics
   for (unsigned i = 1; i <= 4; ++i) if (fNuclei[i].IsDefined()) fNuclei[i].SetExcitEnergy(0);
}
 
 
 
 
 
void KV2Body::Set4thNucleus()
{
   // Private method, used to deduce 4th nucleus (target-like) from projectile, target
   // and outgoing projectile using conservation of mass, momentum and energy.
   //
   // if the outgoing nucleus set by the user is equal to the compound nucleus
   // formed by projectile and target, but the excitation energy of the CN
   // was not set by the user, we calculate it here.
 
   KVNucleus sum;
   if (GetNucleus(target))
      sum = *GetNucleus(projectile) + *GetNucleus(target);
   else sum = *GetNucleus(projectile);
   KVNucleus tmp4 = sum - *GetNucleus(projectile_like);
   if (!tmp4.IsDefined()) {
      // nucleus 3 is the CN proj+targ
      // has E* been defined ?
      if (fEDiss == 0) fEDiss = sum.GetExcitEnergy();
   }
   fNuclei[4] = tmp4;
}
 
 
 
 
 
KVNucleus* KV2Body::GetNucleus(nucleus_of_interest i) const
{
   //Return pointer to nucleus
   // \param[in] i nucleus_of_interest::projectile or nucleus_of_interest::target (entrance channel),
   //            or nucleus_of_interest::projectile_like or nucleus_of_interest::target_like (exit channel)
   //
   // Will return `nullptr` if any nucleus is undefined
 
   if (i >= projectile && i <= target_like) {
      if (fNuclei[i].IsDefined()) return (KVNucleus*) &fNuclei[i];
      return nullptr;
   }
   Warning("GetNucleus(nucleus_of_interest i)", "Index i out of bounds, i=%d", i);
   return nullptr;
}
 
 
 
 
 
Double_t KV2Body::GetQReaction() const
{
   //Calculate Q-value for reaction, including dissipated (excitation) energy
 
   if (!fSetOutgoing) {
      Warning("GetQReaction", "Parameters for outgoing nuclei not set");
      return 0.0;
   }
   Double_t QR = GetQGroundStates() - fEDiss;
 
   return QR;
}
 
 
 
 
 
Double_t KV2Body::GetQGroundStates() const
{
   //Calculate Q-value for reaction, assuming all nuclei in ground state
 
   if (!fSetOutgoing) {
      Warning("GetQGroundStates",
              "Parameters for outgoing nuclei not set");
      return 0.0;
   }
   Double_t QGG =
      GetNucleus(projectile)->GetMassExcess() +
      (GetNucleus(target) ? GetNucleus(target)->GetMassExcess() : 0.)
      - GetNucleus(projectile_like)->GetMassExcess() -
      (GetNucleus(target_like) ? GetNucleus(target_like)->GetMassExcess() : 0.);
   return QGG;
}
 
 
 
 
 
Double_t KV2Body::GetCMEnergy() const
{
   //Return available kinetic energy in centre of mass
 
   return WCT - (GetNucleus(projectile)->GetMass() +
                 (GetNucleus(target) ? GetNucleus(target)->GetMass() : 0.));
}
 
 
 
 
Double_t KV2Body::GetMaxAngleLab(nucleus_of_interest i) const
{
   //Returns maximum scattering angle in lab
   // \param[in] i either nucleus_of_interest::projectile_like or nucleus_of_interest::target_like
 
   if (i < projectile_like || i > target_like) {
      Warning("GetMaxAngleLab(nucleus_of_interest i)",
              "Returns maximum scattering angle in lab for projectile_like or target_like nuclei");
      return 0.;
   }
   return TETAMAX[i];
}
 
 
 
 
Double_t KV2Body::GetMinAngleLab(nucleus_of_interest i) const
{
   //Returns minimum scattering angle in lab
   // \param[in] i either nucleus_of_interest::projectile_like or nucleus_of_interest::target_like
   if (i < projectile_like || i > target_like) {
      Warning("GetMinAngleLab(Int_t i)",
              "Returns minimum scattering angle in lab for projectile_like or target_like nuclei");
      return 0.;
   }
   return TETAMIN[i];
}
 
 
 
 
 
TVector3 KV2Body::GetCMVelocity() const
{
   //Return vector velocity of centre of mass of reaction (units: cm/ns)
 
   return VCM;
}
 
 
 
 
 
Double_t KV2Body::GetCMVelocity(nucleus_of_interest i) const
{
   //Return velocity of nucleus in the centre of mass of the reaction
   // \param[in] i nucleus_of_interest::projectile or nucleus_of_interest::target (entrance channel),
   //            or nucleus_of_interest::projectile_like or nucleus_of_interest::target_like (exit channel)
   return VC[i];
}
 
 
 
 
 
Double_t KV2Body::GetLabGrazingAngle(nucleus_of_interest i) const
{
   //Calculate laboratory grazing angle.
   // \param[in] i nucleus_of_interest::projectile or nucleus_of_interest::target
 
   if (i < projectile || i > target) {
      Warning("GetLabGrazingAngle(nucleus_of_interest i)",
              "i should be projectile or target");
      return 0.0;
   }
   if (!GetNucleus(target)) {
      Warning("GetLabGrazingAngle(nucleus_of_interest i)",
              "No target defined for reaction");
      return 0.0;
   }
   Double_t RP = 1.28 * TMath::Power(GetNucleus(projectile)->GetA(), 1. / 3.)
                 - 0.76 + 0.8 * TMath::Power(GetNucleus(projectile)->GetA(), -1. / 3.);
   Double_t RT = 1.28 * TMath::Power(GetNucleus(target)->GetA(), 1. / 3.)
                 - 0.76 + 0.8 * TMath::Power(GetNucleus(target)->GetA(), -1. / 3.);
   Double_t CP = RP * (1. - TMath::Power(1. / RP, 2.));
   Double_t CT = RT * (1. - TMath::Power(1. / RT, 2.));
   Double_t RINT = CP + CT + 4.49 - (CT + CP) / 6.35;
   Double_t BAR =
      1.44 * GetNucleus(projectile)->GetZ() * GetNucleus(target)->GetZ() / RINT;
   if (GetCMEnergy() < BAR) {
      //below Coulomb barrier
      switch (i) {
         case projectile:
            return 180.;
            break;
         case target:
            return 90.;
            break;
         case projectile_like:
         case target_like:
            break;
      }
   }
   Double_t X = 2. * RINT * GetCMEnergy();
   Double_t Y =
      X / (GetNucleus(projectile)->GetZ() * GetNucleus(target)->GetZ() * 1.44) - 1.;
   Double_t U = 1. / Y;
   Double_t GR = 2. * TMath::ASin(U);
   Double_t GPART = TMath::Pi() - GR;
   Double_t ARAZ =
      TMath::Sin(GR) / (TMath::Cos(GR) +
                        GetNucleus(projectile)->GetA() / (1.0 *
                              GetNucleus(target)->GetA()));
   Double_t GRAZ = TMath::ATan(ARAZ);
   if (GRAZ <= 0.)
      GRAZ += TMath::Pi();
 
   switch (i) {
      case projectile:                     //projectile
         return (GRAZ * TMath::RadToDeg());
         break;
      case target:                     //target
         return (GPART * TMath::RadToDeg() / 2.);
         break;
      case projectile_like:
      case target_like:
      default:
         break;
   }
   return -99.;
}
 
 
 
 
 
void KV2Body::CalculateKinematics()
{
   // Called to make kinematics calculation for all nuclei, use once properties of
   // entrance-channel (and, if necessary, exit-channel) nuclei have been defined.
   //
   // If a compound decay is to be calculated (only 1 nucleus in entrance channel),
   // outgoing (decay) product must be defined before calling this method.
   //
   // For a 2-body entrance channel, if no exit-channel nuclei are defined,
   // we assume elastic scattering (i.e. identical outgoing nuclei)
 
   KVNucleus* Nuc1 = GetNucleus(projectile);
   KVNucleus* Nuc2 = GetNucleus(target);
 
   // compound decay ?
   if (!Nuc2 && !fSetOutgoing) {
      Error("CalculateKinematics", "Set outgoing (decay) product first");
      return;
   }
 
   // call SetOutgoing if not already done
   if (!fSetOutgoing) SetOutgoing(*Nuc1);
 
   // set everything to zero
   WLT = WCT = BCM = 0.;
   for (int i = 0; i < 5; i++) {
      WC[i] = 0.;
      VC[i] = 0.;
      EC[i] = 0.;
      K[i] = 0.;
      TETAMAX[i] = 0.;
      TETAMIN[i] = 0.;
   }
   VCM.SetXYZ(0., 0., 0.);
 
   //total energy (T + m) of entrance channel
   WLT = Nuc1->E();
   //velocity of CM
   VCM = Nuc1->GetMomentum();
   if (Nuc2) {
      WLT += Nuc2->E();
      VCM += Nuc2->GetMomentum();
   }
 
   //beta of CM
   BCM = VCM.Mag() / WLT;
 
   VCM *= (1. / WLT) * KVParticle::C();
   Nuc1->SetFrame("CM", KVFrameTransform(VCM, kFALSE));
   if (Nuc2)
      Nuc2->SetFrame("CM", KVFrameTransform(VCM, kFALSE));
 
   //total energy in CM
   WCT = (GetCMGamma() > 0.0 ? WLT / GetCMGamma() : 0.);
   if (WCT == 0.0)
      return;
 
   //total energy proj in CM
   WC[1] = Nuc1->GetFrame("CM")->E();
   //kinetic energy proj in CM
   EC[1] = Nuc1->GetFrame("CM")->GetKE();
   VC[1] = Nuc1->GetFrame("CM")->GetVelocity().Mag();
   K[1] = VCM.Mag() / VC[1];
   if (Nuc2) {
      WC[2] = Nuc2->GetFrame("CM")->E();
      EC[2] = Nuc2->GetFrame("CM")->GetKE();
      VC[2] = Nuc2->GetFrame("CM")->GetVelocity().Mag();
      K[2] = VCM.Mag() / VC[2];
   }
 
   Double_t AM3 = GetNucleus(projectile_like)->GetMass();
   Double_t AM4 = (GetNucleus(target_like) ? GetNucleus(target_like)->GetMass() : 0.0);
   //total cm energy of nucleus 3 (quasiproj)
   WC[3] = (WCT - GetEDiss()) / 2. + (AM3 - AM4) * (AM3 + AM4)
           / (2. * (WCT - GetEDiss()));
   VC[3] = GetVelocity(AM3, WC[3]);
   //cm kinetic energy
   EC[3] = WC[3] - AM3;
   if (VC[3] > 0.) K[3] = VCM.Mag() / VC[3];
 
   Double_t T3MAX = 0.;
   if (TMath::AreEqualAbs(K[3], 1., 1.e-16))
      T3MAX = TMath::PiOver2();
   else if (K[3] < 1.)
      T3MAX = TMath::Pi();
   else
      T3MAX = TMath::ATan((1. / TMath::Sqrt(K[3] * K[3] - 1.)) / GetCMGamma());
   TETAMAX[3] = T3MAX * TMath::RadToDeg();
 
   if (!GetNucleus(target_like))
      return;                   //only valid for binary channels
   //total cm energy of nucleus 4 (quasitarg)
   WC[4] = WCT - GetEDiss() - WC[3];
   VC[4] = GetVelocity(AM4, WC[4]);
   //cm kinetic energy
   EC[4] = WC[4] - AM4;
   if (VC[4] > 0.) K[4] = VCM.Mag() / VC[4];
 
   Double_t T4MAX = 0.;
   if (TMath::AreEqualAbs(K[4], 1., 1.e-16))
      T4MAX = TMath::PiOver2();
   else if (K[4] < 1.)
      T4MAX = TMath::Pi();
   else
      T4MAX = TMath::ATan((1. / TMath::Sqrt(K[4] * K[4] - 1.)) / GetCMGamma());
   if (TMath::Abs(GetQReaction()) < 1.E-08 && K[4] < 1.)
      T4MAX = TMath::PiOver2();
   TETAMAX[4] = T4MAX * TMath::RadToDeg();
}
 
 
 
 
TString KV2Body::GetReactionEquation() const
{
   // \return symbolic representation of the reaction as \f$A(X,Y)B\f$
   // where
   //   + \f$A\f$ is the target nucleus;
   //   + \f$X\f$ is the projectile nucleus;
   //   + \f$Y\f$ is the outgoing projectile-like nucleus;
   //   + \f$B\f$ is the outgoing target-like nucleus.
   //
   // If dissipated/excitation energy is non-zero, we add \f$E_{X}=...\f$ at the end.
 
   TString eqn;
   if (GetNucleus(target) && GetNucleus(target_like))
      eqn.Form("%s(%s,%s)%s",
               GetNucleus(target)->GetLatexSymbol(), GetNucleus(projectile)->GetLatexSymbol(),
               GetNucleus(projectile_like)->GetLatexSymbol(), GetNucleus(target_like)->GetLatexSymbol());
   else if (GetNucleus(projectile_like) && !GetNucleus(target_like)) // fusion
      eqn.Form("%s(%s,%s)",
               GetNucleus(target)->GetLatexSymbol(), GetNucleus(projectile)->GetLatexSymbol(),
               GetNucleus(projectile_like)->GetLatexSymbol());
   else if (!GetNucleus(target) && GetNucleus(target_like)) // fission
      eqn.Form("(%s,%s)%s",
               GetNucleus(projectile)->GetLatexSymbol(),
               GetNucleus(projectile_like)->GetLatexSymbol(), GetNucleus(target_like)->GetLatexSymbol());
   else if (!GetNucleus(projectile_like) && !GetNucleus(target_like)) // elastic scattering
      eqn.Form("%s(%s,%s)%s",
               GetNucleus(target)->GetLatexSymbol(), GetNucleus(projectile)->GetLatexSymbol(),
               GetNucleus(projectile)->GetLatexSymbol(), GetNucleus(target)->GetLatexSymbol());
   if (TMath::Abs(GetEDiss()) > 0)
      eqn.Append(Form(" E_{X}=%.1f MeV", GetEDiss()));
   return eqn;
}
 
 
 
 
 
Double_t KV2Body::GetCMEnergy(nucleus_of_interest i) const
{
   //Returns kinetic energy of nucleus in the centre of mass of the reaction
   // \param[in] i nucleus_of_interest::projectile or nucleus_of_interest::target (entrance channel),
   //            or nucleus_of_interest::projectile_like or nucleus_of_interest::target_like (exit channel)
   return EC[i];
}
 
 
 
 
 
void KV2Body::Print(Option_t* opt) const
{
   // Print out characteristics of reaction.
   //
   // If a two-body exit channel has been defined, you can use the following options:
   //    opt = "ruth" :  list Rutherford scattering cross-sections as a function of angle in laboratory frame
   //    opt = "lab"  :  list energies and angles in laboratory frame
 
   cout << " ***** REACTION    " << GetNucleus(projectile)->GetSymbol();
   if (GetNucleus(target))
      cout << "  +  " << GetNucleus(target)->GetSymbol();
   if (GetNucleus(projectile_like)) {
      cout << " --->   " << GetNucleus(projectile_like)->GetSymbol();
   }
   if (GetNucleus(target_like))
      cout << "  +  " << GetNucleus(target_like)->GetSymbol();
   cout << "    ******" << endl;
 
   cout << "  E.LAB = " << GetNucleus(projectile)->GetEnergy() << " MEV";
   if (GetNucleus(projectile_like)) {
      cout << "     QGG = " << GetQGroundStates() << " MEV";
   }
   cout << endl;
   cout << "  E.EXC = " << GetExcitEnergy() << " MEV";
   if (GetNucleus(projectile_like)) {
      cout << " ==> Q-REACTION = " << GetQReaction() << " MEV";
   }
   cout << endl;
   cout << " AVAILABLE ENERGY IN C.M. : ECM = " << GetCMEnergy() <<
        " MEV  (" << GetCMEnergy() / (GetNucleus(projectile)->GetA() +
                                      (GetNucleus(target) ? GetNucleus(target)->
                                       GetA() : 0.)) << " MEV/A)" << endl;
   cout << " PROJECTILE VELOCITY IN LAB " << GetNucleus(projectile)->GetV().Mag()
        << " CM/NS  ( " << GetNucleus(projectile)->Beta() << " * C )" << endl;
   cout << " VELOCITY OF C.M.           " << GetCMVelocity().
        Mag() << " CM/NS" << endl;
 
   for (int i=1; i<=4; ++i) {
      if (GetNucleus((nucleus_of_interest)i))
         cout << " ENERGY - VELOCITY OF NUCLEUS " << i << " IN CM : " <<
              GetCMEnergy((nucleus_of_interest)i) << " MEV  " << GetCMVelocity((nucleus_of_interest)i) << " CM/NS   (K=" << K[i] << ")" <<
              endl;
   }
   if (GetNucleus(projectile_like)) {
      cout << " MAXIMUM SCATTERING ANGLE IN LABORATORY" << endl;
      cout << "        THETA #projectile_like#   " << GetMaxAngleLab(projectile_like) << " DEG." <<
           endl;
      if (GetNucleus(target_like))
         cout << "        THETA #target_like#   " << GetMaxAngleLab(target_like) << " DEG." <<
              endl;
   }
   if (GetNucleus(target)) {
      cout << " GRAZING ANGLE IN LABORATORY : PROJECTILE " <<
           GetLabGrazingAngle(projectile) << " DEG." << endl;
      cout << " GRAZING ANGLE IN LABORATORY : TARGET     " <<
           GetLabGrazingAngle(target) << " DEG." << endl;
   }
 
   if (GetNucleus(projectile_like)) {
      Int_t nsteps = 15;
 
      if (!strcmp(opt, "lab") || !strcmp(opt, "LAB")
            || !strcmp(opt, "Lab")) {
         //laboratory angular distribution
         cout << endl <<
              "                                 LABORATORY ANGULAR DISTRIBUTION" << endl
              << endl;
         cout <<
              "Th-PLF [deg.]    E-PLF [MeV]       V-PLF [cm/ns]     Th-TLF [deg.]      E-TLF [MeV]       Th-PLF [deg.]"
              << endl;
         cout <<
              "    (LAB)            (LAB)             (LAB)             (LAB)              (LAB)             (C.M)"
              << endl;
         Double_t dtheta = GetMaxAngleLab(projectile_like) / nsteps;
         for (int step = 0; step <= nsteps; step++) {
            Double_t theta = dtheta * step;
            auto elabP = GetELab(projectile_like, theta);
            if(!elabP)
               continue;
            auto tcmP = GetThetaCM(theta, projectile_like);
            auto vP = GetVLab(projectile_like, theta);
            auto tlT = GetThetaLab(target_like, theta, projectile_like);
            auto elabT = GetELab(target_like, theta, projectile_like);
            if(elabP->second())
               printf
                     ("   %6.2f      %7.2f /%7.2f    %5.2f /%5.2f     %6.2f /%6.2f    %7.2f /%7.2f    %6.2f/%6.2f\n",
                      theta, *elabP->first(), *elabP->second(), *vP->first(), *vP->second(),
                      *tlT->first(), *tlT->second(), *elabT->first(), *elabT->second(), *tcmP->first(), *tcmP->second());
            else
               printf
                     ("   %6.2f          %7.2f             %5.2f            %6.2f            %7.2f            %6.2f\n",
                      theta, *elabP->first(), *vP->first(), *tlT->first(), *elabT->first(), *tcmP->first());
         }
      }
      if (GetNucleus(target) && (!strcmp(opt, "ruth") || !strcmp(opt, "RUTH")
                            || !strcmp(opt, "Ruth"))) {
         //laboratory angular distribution with Rutherford x-section
         cout << endl <<
              "             RUTHERFORD LABORATORY ANGULAR DISTRIBUTION" <<
              endl << endl;
         cout <<
              "   TETA 3     TETA 3    EN.DIF.3        SIG.RUT.        SIG.RUT."
              << endl;
         cout <<
              "   (LAB)       (CM)       (LAB)       (LAB) (b/sr)    (CM)  (b/sr)"
              << endl;
         //go up to grazing angle
         Double_t dtheta = GetLabGrazingAngle(projectile) / nsteps;
         for (int step = 0; step < nsteps; step++) {
            Double_t theta = dtheta * (step + 1);
            auto elabP = GetELab(projectile_like, theta);
            if(!elabP)
               continue;
            auto tcm = GetThetaCM(theta, projectile_like);
            printf
            ("   %6.2f     %6.2f     %7.2f      %10.4g      %10.4g\n",
             theta, *tcm->first(), *elabP->first(),
             GetXSecRuthLab(theta), GetXSecRuthCM(theta));
         }
      }
   }
}
 
 
 
 
KV2Body::KinematicSolutions_v KV2Body::GetELab(nucleus_of_interest OfNucleus, Double_t ThetaLab, std::optional<nucleus_of_interest> AngleNucleus) const
{
   // \returns laboratory kinetic energy(ies) of nucleus OfNucleus as a function of the lab angle ThetaLab
   // \param[in] AngleNucleus if given, ThetaLab is AngleNucleus' lab angle
 
   // calculate CM angle(s)
   if(!AngleNucleus)
      AngleNucleus = OfNucleus;
   auto AN_theta_cm = GetThetaCM(ThetaLab, *AngleNucleus);
   if(AN_theta_cm)
   {
      KinematicSolutions ON_theta_cm;
      int i=0;
      AN_theta_cm->iterate_solutions([&](double x){ON_theta_cm.solutions[i++] = GetThetaCM(OfNucleus, x, *AngleNucleus);});
      // calculate lab energie(s) corresponding to CM angle(s)
      KinematicSolutions energies;
      i=0;
      ON_theta_cm.iterate_solutions([&](double x){energies.solutions[i++] = GetELab(x, OfNucleus);});
      return energies;
   }
   return {};
}
 
 
 
 
KV2Body::KinematicSolutions_v KV2Body::GetThetaCM(Double_t ThetaLab, nucleus_of_interest OfNucleus) const
{
   // \returns CM angle(s) of nucleus OfNucleus for a given lab angle, if solution(s) exist
   //
   // \note A one-to-one correspondence between \f$\theta_{cm}\f$ and \f$\theta_{lab}\f$
   // only exists for:
   //    + in direct kinematics, the projectile-like nucleus for elastic or inelastic scattering;
   //    + in symmetric kinematics, both nuclei (only for elastic scattering);
   //    + in any kinematics, the target-like nucleus for elastic scattering.
   //
   // In all other cases, there are two \f$\theta_{cm}\f$ values for each \f$\theta_{lab}\f$,
   // up to the maximum lab scattering angle which corresponds to a single \f$\theta_{cm}\f$.
   //
   // If ThetaLab>max lab scattering angle for nucleus, no solution exists.
   //
   // In all cases, the solution with the smallest \f$\theta_{cm}\f$ corresponds to the largest \f$E_{lab}\f$.
 
   auto fonc = GetThetaLabVsThetaCMFunc(OfNucleus);
   return FindRoots(fonc,ThetaLab);
}
 
 
 
 
std::optional<double> KV2Body::GetThetaCM(Double_t ThetaLab, nucleus_of_interest OfNucleus, kinematic_solution kine_sol) const
{
   // \return \f$\theta_{cm}\f$ corresponding to \f$\theta_{lab}\f$ for given nucleus of interest and kinematic solution,
   // if defined.
 
   auto kine = GetThetaCM(ThetaLab, OfNucleus);
   if(kine)
   {
      if(kine_sol == kinematic_solution::low_E_branch)
         return kine->second();
      return kine->first();
   }
   return {};
}
 
 
 
 
Double_t KV2Body::ELabVsThetaLab(Double_t* x, Double_t* par)
{
   // Function calculating lab energy of nucleus par[0] for any lab angle x[0]
   //
   // par[1] is choice of kinematic solution
 
   auto elab = GetELab((nucleus_of_interest)par[0], x[0], (nucleus_of_interest)par[0]);
   if(elab && elab->second() && ((kinematic_solution)par[1])==kinematic_solution::low_E_branch)
      return *elab->second();
   return elab ? *elab->first() : 0;
}
 
 
 
 
Double_t KV2Body::ELabVsThetaCM(Double_t* x, Double_t* par)
{
   // Function calculating lab energy of nucleus par[0] for any CM angle x[0]
 
   nucleus_of_interest OfNucleus = (nucleus_of_interest)par[0];
   Double_t TCM = x[0] * TMath::DegToRad();
   Double_t WL =
      WC[OfNucleus] * GetCMGamma() * (1. +
                                      BCM * (VC[OfNucleus] / KVParticle::C()) *
                                      TMath::Cos(TCM));
   return (WL - GetNucleus(OfNucleus)->GetMass());
}
 
 
 
 
Double_t KV2Body::ThetaLabVsThetaCM(Double_t* x, Double_t* par)
{
   // Calculate Lab angle of nucleus as function of CM angle x[0]
   // par[0] = index of nucleus = 1, 2, 3, 4
 
   Int_t OfNucleus = (Int_t)par[0];
   Double_t sin_theta, cos_theta;
   if(x[0]==0)
   {
      return 0;
   }
   else if(x[0]==180)
   {
      if(TMath::AreEqualAbs(K[OfNucleus],1.0,1.e-10)){
         return 90.;
      }
      else if(K[OfNucleus]<1){
         return 180.;
     }
     return 0.;
   }
 
   auto ThetaCM = x[0]*TMath::DegToRad();
   Double_t ThetaL = TMath::ATan2(TMath::Sin(ThetaCM), (K[OfNucleus] + TMath::Cos(ThetaCM)) * GetCMGamma()) * TMath::RadToDeg();
 
   if (ThetaL < 0.) ThetaL += 180.;
   return ThetaL;
}
 
 
 
 
KVDrawable<TF1> KV2Body::GetELabVsThetaCMFunc(nucleus_of_interest OfNucleus) const
{
   // Return TF1 giving lab energy of nucleus as function of CM angle
   // \param[in] OfNucleus nucleus_of_interest::projectile or nucleus_of_interest::target (entrance channel),
   //            or nucleus_of_interest::projectile_like or nucleus_of_interest::target_like (exit channel)
 
   if (!fELabVsThetaCM[OfNucleus]) {
      fELabVsThetaCM[OfNucleus] = new TF1(Form("KV2Body:ELabVsThetaCM:%d", OfNucleus),
                                          const_cast<KV2Body*>(this), &KV2Body::ELabVsThetaCM, 0, 180, 1, "KV2Body", "ELabVsThetaCM");
      fELabVsThetaCM[OfNucleus]->SetNpx(1000);
      fELabVsThetaCM[OfNucleus]->SetParameter(0, OfNucleus);
   }
   return fELabVsThetaCM[OfNucleus];
}
 
 
 
 
KVDrawable<TF1> KV2Body::GetELabVsThetaLabFunc(nucleus_of_interest OfNucleus, kinematic_solution kine_sol) const
{
   // Return TF1 giving lab energy of nucleus as function of its lab angle
   // \param[in] OfNucleus nucleus_of_interest::projectile or nucleus_of_interest::target (entrance channel),
   //            or nucleus_of_interest::projectile_like or nucleus_of_interest::target_like (exit channel)
   // \param[in] kine_sol in case of multiple solutions, choose either high- or low-energy branch
   //
   // \note A one-to-one correspondence between \f$\theta_{cm}\f$ and \f$\theta_{lab}\f$
   // only exists for:
   //    + in direct kinematics, the projectile-like nucleus for elastic or inelastic scattering;
   //    + in symmetric kinematics, both nuclei (only for elastic scattering);
   //    + in any kinematics, the target-like nucleus for elastic scattering.
   // In all other cases, there are two \f$\theta_{cm}\f$ values for each \f$\theta_{lab}\f$,
   // up to the maximum lab scattering angle which corresponds to a single \f$\theta_{cm}\f$.
   // In all cases, the solution with the smallest \f$\theta_{cm}\f$ corresponds to the largest \f$E_{lab}\f$.
   if (!fELabVsThetaLab[OfNucleus]) {
      fELabVsThetaLab[OfNucleus] = new TF1(Form("KV2Body:ELabVsThetaLab:%d", OfNucleus),
                                           const_cast<KV2Body*>(this), &KV2Body::ELabVsThetaLab, 0, 180, 2, "KV2Body", "ELabVsThetaLab");
      fELabVsThetaLab[OfNucleus]->SetNpx(1000);
      fELabVsThetaLab[OfNucleus]->SetParameter(0, OfNucleus);
   }
   fELabVsThetaLab[OfNucleus]->SetParameter(1, kine_sol);
   return fELabVsThetaLab[OfNucleus];
}
 
 
 
 
 
KV2Body::KinematicSolutions_v KV2Body::GetVLab(nucleus_of_interest OfNucleus, Double_t ThetaLab, std::optional<nucleus_of_interest> AngleNucleus) const
{
   // \returns vector of laboratory velocity(ies) of nucleus OfNucleus as a function of the lab angle ThetaLab
   // \param[in] AngleNucleus if given, ThetaLab is AngleNucleus' lab angle
 
   auto elab = GetELab(OfNucleus, ThetaLab, AngleNucleus);
   if(!elab) // no solutions
      return {};
 
   KinematicSolutions velo;
   int i=0;
   elab->iterate_solutions([&](double e){ velo.solutions[i++] = GetVelocity(GetNucleus(OfNucleus)->GetMass(), e + GetNucleus(OfNucleus)->GetMass());} );
   return velo;
}
 
 
 
 
 
KV2Body::KinematicSolutions_v KV2Body::GetThetaLab(nucleus_of_interest OfNucleus, Double_t ThetaLab, nucleus_of_interest AngleNucleus) const
{
   // \returns laboratory angle(s) of nucleus OfNucleus as a function of the lab angle ThetaLab corresponding to nucleus AngleNucleus
 
   if (ThetaLab > TETAMAX[AngleNucleus]) return {};
   if (!(TMath::Abs(OfNucleus - AngleNucleus) % 2)) {
      // same nucleus!
      return {{ThetaLab,{}}};
   }
   // calculate CM angle(s)
   auto TCM = GetThetaCM(ThetaLab, AngleNucleus);
   if(!TCM) // no solutions
      return {};
 
   KinematicSolutions tcm;
   int i = 0;
   TCM->iterate_solutions([&](double T){ tcm.solutions[i++] = GetThetaCM(OfNucleus, T, AngleNucleus); });
   // calculate lab angle(s) of corresponding CM angle(s)
   i = 0;
   KinematicSolutions tlab;
   tcm.iterate_solutions([&](double t){ tlab.solutions[i++] = GetThetaLab(t, OfNucleus); });
   return tlab;
}
 
 
 
 
KVDrawable<TF1> KV2Body::GetThetaLabVsThetaCMFunc(nucleus_of_interest OfNucleus) const
{
   // \return TF1 giving lab angle of nucleus as function of CM angle
   // \param[in] OfNucleus nucleus_of_interest::projectile or nucleus_of_interest::target (entrance channel),
   //            or nucleus_of_interest::projectile_like or nucleus_of_interest::target_like (exit channel)
 
   if (!fThetaLabVsThetaCM[OfNucleus]) {
      fThetaLabVsThetaCM[OfNucleus] = new TF1(Form("KV2Body:ThetaLabVsThetaCM:%d", OfNucleus),
                                              const_cast<KV2Body*>(this), &KV2Body::ThetaLabVsThetaCM, 0, 180, 1, "KV2Body", "ThetaLabVsThetaCM");
      fThetaLabVsThetaCM[OfNucleus]->SetNpx(1000);
      fThetaLabVsThetaCM[OfNucleus]->SetParameter(0, OfNucleus);
   }
   return fThetaLabVsThetaCM[OfNucleus];
}
 
 
 
 
KVDrawable<TGraph> KV2Body::GetGraphELabVsThetaLab(nucleus_of_interest OfNucleus, int npoints) const
{
   // Fill and return TGraph with complete correlation between lab energy [MeV] and angle [deg]
   //
   // \param ofNuc index of outgoing nucleus for which to draw correlation:
   //                + ofNuc=3: projectile-like
   //                + ofNuc=4: target-like
   // \param npoints number of points in graph [default=50]
   //
   // \returns a KVDrawable<TGraph> object which can either be used directly as a TGraph with the `->` operator:
   //~~~{.cpp}
   //KV2Body toto;
   //toto.GraphELabVsThetaLab()->Draw("al");
   //~~~
   // or with a chain of instructions to define the colour, style, etc. of the lines, points:
   //~~~{.cpp}
   //toto.GraphELabVsThetaLab().LineColor(kRed).LineWidth(2).LineStyle(kDashed)->Draw("al");
   //~~~
   //
   // See \ref Example_KV2Body.C for a full example of use.
 
   auto gr = new TGraph;
   gr->SetTitle(Form("%s: %s", GetNucleus(OfNucleus)->GetLatexSymbol(), GetReactionEquation().Data()));
   double dth = 180. / (npoints - 1.);
   int i = 0;
   while (i < npoints) {
      auto thcm = i * dth;
      auto thlab = GetThetaLabVsThetaCMFunc(OfNucleus)->Eval(thcm);
      auto elab = GetELabVsThetaCMFunc(OfNucleus)->Eval(thcm);
      gr->AddPoint(thlab, elab);
      ++i;
   }
   return gr;
}
 
 
 
 
Double_t KV2Body::XSecRuthCMVsThetaCM(Double_t* x, Double_t* par)
{
   // Calculate CM Rutherford cross-section (b/sr) in the CM as a function of
   // scattering angle in the CM frame for nucleus par[0]
 
   Double_t PB =
      1.44 * GetNucleus(projectile)->GetZ() * GetNucleus(target)->GetZ() /
      GetCMEnergy();
   Double_t TCM = x[0] * TMath::DegToRad();
   auto OfNucleus = (nucleus_of_interest)par[0];
   if (OfNucleus == target || OfNucleus == target_like) TCM = TMath::Pi() - TCM; // get projectile CM angle from target CM angle
   Double_t D = 1. / (16. * (TMath::Power(TMath::Sin(TCM / 2.), 4.)));
   return ((TMath::Power(PB, 2.)) * D / 100.);
}
 
 
 
 
KVDrawable<TF1> KV2Body::GetXSecRuthCMFunc(nucleus_of_interest OfNucleus, Double_t theta_cm_min, Double_t theta_cm_max) const
{
   // Return pointer to TF1 giving Rutherford cross-section (b/sr) in the CM as a
   // function of projectile_like or target_like CM scattering angle
   // By default, theta_min = 1 degree & theta_max = 179 degrees
 
   TString name = "RuthXSecCM: ";
   name += GetNucleus(projectile)->GetSymbol();
   name += " + ";
   name += GetNucleus(target)->GetSymbol();
   name += " ";
   Double_t elab = GetNucleus(projectile)->GetAMeV();
   name += Form("%6.1f AMeV ", elab);
   if (OfNucleus == projectile_like) name += "(projectile)";
   else name += "(target)";
   TF1* fXSecRuthCM = (TF1*)gROOT->GetListOfFunctions()->FindObject(name.Data());
   if (!fXSecRuthCM) {
      fXSecRuthCM = new TF1(name.Data(),
                            const_cast<KV2Body*>(this), &KV2Body::XSecRuthCMVsThetaCM,
                            theta_cm_min, theta_cm_max, 1, "KV2Body", "XSecRuthCMVsThetaCM");
      fXSecRuthCM->SetParameter(0, OfNucleus);
      fXSecRuthCM->SetNpx(1000);
   }
   fXSecRuthCM->SetRange(theta_cm_min, theta_cm_max); //in case TF1 already exists, but new range is required
   return fXSecRuthCM;
}
 
 
 
 
Double_t KV2Body::XSecRuthCM(Double_t* x, Double_t* par)
{
   //Calculate Rutherford cross-section (b/sr) in the CM as a function of projectile_like or target_like lab scattering angle
   //
   // x[0]: lab angle
   // par[0]: nucleus_of_interest
   // par[1]: kinematic_solution
   //
   // If no kinematic solution exists (angle > max lab angle), return 0
   //
   // If low energy branch is requested but does not exist, return 0
 
  auto tcm = GetThetaCM(x[0], (nucleus_of_interest)par[0]);
  if(tcm)
  {
     if((kinematic_solution)par[1]==low_E_branch)
     {
        if(tcm->second())
        {
           auto theta = *tcm->second();
           return XSecRuthCMVsThetaCM(&theta, par);
        }
        return 0;
     }
     else
     {
        auto theta = *tcm->first();
        return XSecRuthCMVsThetaCM(&theta, par);
     }
  }
  return 0;
}
 
 
 
 
Double_t KV2Body::GetXSecRuthCM(Double_t ThetaLab, nucleus_of_interest OfNucleus, kinematic_solution kineSol) const
{
   //Calculate Rutherford cross-section (b/sr) in the CM as a
   //function of projectile_like or target_like lab scattering angle
   //
   // For multi-valued kinematics, we return by default the high energy branch
 
   std::array<double,2> par = { (double)OfNucleus, (double)kineSol };
   return const_cast<KV2Body*>(this)->XSecRuthCM(&ThetaLab, par.data());
}
 
 
 
 
Double_t KV2Body::XSecRuthLab(Double_t* x, Double_t* par)
{
   //Calculate Rutherford cross-section (b/sr) in the Lab as a
   //function of projectile (OfNucleus=3) or target (OfNucleus=4) lab scattering angle
   //
   // x[0]: lab angle
   // par[0]: nucleus_of_interest
   // par[1]: kinematic_solution
   //
   // Checked with LISE++ calculations: Jacobian is correct for both branches
   // (1+K*Cos(Theta_cm) can become negative for low E branch (Theta_cm>90),
   // correct cross-section is absolute value of DSIDTB*RLC)
 
   Double_t DSIDTB = XSecRuthCM(x, par);
   auto T3CM_v = GetThetaCM(x[0], (nucleus_of_interest)par[0], (kinematic_solution)par[1]);
   if(!T3CM_v)
      return 0;
   auto T3CM = *T3CM_v;
 
   Double_t T3L = GetThetaLab(T3CM, (nucleus_of_interest)par[0]) * TMath::DegToRad();
   T3CM *= TMath::DegToRad();
   Double_t RLC = (TMath::Power(TMath::Sin(T3CM), 3.)) /
                  ((TMath::Power(TMath::Sin(T3L), 3.)) * GetCMGamma() *
                   (1. + K[(int)par[0]] * TMath::Cos(T3CM)));
   DSIDTB *= RLC;
   return TMath::Abs(DSIDTB);
}
 
 
 
 
Double_t KV2Body::GetXSecRuthLab(Double_t ThetaLab, nucleus_of_interest OfNucleus, kinematic_solution kineSol) const
{
   //Calculate Rutherford cross-section (b/sr) in the Lab as a
   //function of projectile_like or target_like lab scattering angle
   //
   // For multi-valued kinematics, we return by default the high energy branch
 
   std::vector<double> par = { (double)OfNucleus, (double)kineSol };
   return const_cast<KV2Body*>(this)->XSecRuthLab(&ThetaLab, par.data());
}
 
 
 
 
Double_t KV2Body::XSecRuthLabInt(Double_t* x, Double_t* par)
{
   //Rutherford cross-section (b/sr) function in the Lab as a
   //function of projectile_like or target_like lab scattering angle x[0]
   //including 'sin theta' factor needed for integrating over solid angles.
   //
   // x[0]: lab angle
   // par[0]: nucleus_of_interest
   // par[1]: kinematic_solution
 
   return XSecRuthLab(x, par) * TMath::Sin(x[0] * TMath::DegToRad());
}
 
 
//Double_t KV2Body::GetIntegratedXSecRuthLab(KVTelescope* tel, Int_t OfNucleus)
//{
//   //Calculate Integrated Rutherford cross-section (barns) in the Lab using
//   //polar and azimuthal angular range of the given KVTelescope.
//   // if (OfNucleus==3) => X-section for scattered projectile
//   // if (OfNucleus==4) => X-section for scattered target
//   //
//   //The returned value is in barns
//
//   return GetIntegratedXSecRuthLab(tel->GetThetaMin(), tel->GetThetaMax(), tel->GetPhiMin(), tel->GetPhiMax(), OfNucleus);
//}
//
//Double_t KV2Body::GetIntegratedXSecRuthLab(KVDetector* det, Int_t OfNucleus)
//{
//   //Calculate Integrated Rutherford cross-section (barns) in the Lab using
//   //polar and azimuthal angular range of the given KVDetector. These will be taken
//   //from the parent KVTelescope of the detector.
//   // if (OfNucleus==3) => X-section for scattered projectile
//   // if (OfNucleus==4) => X-section for scattered target
//   //
//   //The returned value is in barns
//
//   KVTelescope* tel = (KVTelescope*)det->GetParentStructure("TELESCOPE");
//   if (!det) {
//      Error("GetIntegratedXSecRuthLab(KVDetector*,Int_t)",
//            "Detector has no parent telescope: it has not been positioned in a multidetector geometry");
//      return 0;
//   }
//   return GetIntegratedXSecRuthLab(tel, OfNucleus);
//}
 
 
 
Double_t KV2Body::GetIntegratedXSecRuthLab(Float_t th1, Float_t th2, Float_t phi1, Float_t phi2, nucleus_of_interest OfNucleus)
{
   //Calculate Integrated Rutherford cross-section (barns) in the Lab using
   //polar and azimuthal angular range expressed in degree
   // if (OfNucleus==3) This angular range is considered to be the scattered projectile one
   // if (OfNucleus==4) This angular range is considered to be the scattered target one
   //
   //If phi1 ou phi2 ==-1 the azimuthal width is set to 2pi
   //Else if phi1=phi2 the azimuthal width is set to 1 ie the integral is only on theta
   //
   //The returned value is in barns
 
   if (th2 < th1) return 0;
   Double_t dphi = 0;
   //azimuthal width expressed in rad
   if (phi1 == -1 || phi2 == -1) dphi = 2 * TMath::Pi();
   else if (phi1 == phi2) dphi = 1;
   else {
      dphi = phi2 - phi1;
      dphi *= TMath::DegToRad();
   }
   Double_t theta_min = 1.;
   Double_t theta_max = 179.;
   if (th1 < theta_min) theta_min = th1;
   if (th2 > theta_max) theta_max = th2;
 
#if ROOT_VERSION_CODE > ROOT_VERSION(5,99,01)
   return GetXSecRuthLabIntegralFunc(OfNucleus, theta_min, theta_max)->Integral(th1, th2, fIntPrec) * TMath::DegToRad() * dphi;
#else
   const Double_t* para = 0;
   return GetXSecRuthLabIntegralFunc(OfNucleus, theta_min, theta_max)->Integral(th1, th2, para, fIntPrec) * TMath::DegToRad() * dphi;
#endif
}
 
 
 
 
 
 
Double_t KV2Body::BassIntBarrier()
{
   // calculate Bass interaction barrier B_int
   //
   // r0 = 1.07 fm
 
   const Double_t r0 = 1.07;
   const Double_t e2 = 1.44;
   Double_t A1third = pow(GetNucleus(projectile)->GetA(), 1. / 3.);
   Double_t A2third = pow(GetNucleus(target)->GetA(), 1. / 3.);
   Double_t R12 = r0 * (A1third + A2third);
 
   Double_t Bint = GetNucleus(projectile)->GetZ() * GetNucleus(target)->GetZ() * e2 / (R12 + 2.7)
                   - 2.9 * A1third * A2third / (A1third + A2third);
 
   return Bint;
}
 
 
 
 
 
Double_t KV2Body::KoxReactionXSec(Double_t* eproj, Double_t*)
{
   // calculate Kox reaction X-section (in barns) for a given lab energy of projectile (in MeV/nucleon)
   //
   // c parameter fitted with Landau function vs. Log10(E/A) (see Fig. 12 of PRC Kox 87)
   // by imposing c=0.1 at E/A=10 MeV (goes to 0 as E/A->0)
 
   const Double_t r0 = 1.05;
   const Double_t rc = 1.3;
   const Double_t e2 = 1.44;
   const Double_t a = 1.9;
 
   KVNucleus* proj = GetNucleus(projectile);
   KVNucleus* targ = GetNucleus(target);
   proj->SetEnergy(eproj[0]*proj->GetA());
   CalculateKinematics();
   Double_t ECM = GetCMEnergy();
 
   Double_t c = 11.3315 * TMath::Landau(TMath::Log10(eproj[0]), 2.47498, 0.554937);
   Double_t A1third = pow(proj->GetA(), 1. / 3.);
   Double_t A2third = pow(targ->GetA(), 1. / 3.);
   Double_t BC = proj->GetZ() * targ->GetZ() * e2 / (rc * (A1third + A2third));
   Double_t EFac = 1 - BC / ECM;
 
   Double_t Xsec = TMath::Pi() * pow(r0, 2) *
                   pow((A1third + A2third + a * A1third * A2third / (A1third + A2third) - c), 2) *
                   EFac;
 
   return Xsec / 100.;
}
 
 
 
 
 
Double_t KV2Body::GetSphereDureReactionXSec(Double_t r0)
{
   // calculate Reaction Cross Section with the "Sphere Dure"
   // approximation
 
   Double_t A1third = pow(GetNucleus(projectile)->GetA(), 1. / 3.);
   Double_t A2third = pow(GetNucleus(target)->GetA(), 1. / 3.);
 
   Double_t Xsec = TMath::Pi() * pow(r0, 2) *
                   pow(A1third + A2third, 2);
 
   return Xsec / 100.;
}
 
 
 
 
 
Double_t KV2Body::GetBmaxFromReactionXSec(Double_t ReacXsec)
{
 
   // Deduce the maximum impact parameter (in fm) from a given reaction cross section (in barn)
   // in the approximation Xsec = \int(0,bmax) 2Pi b db
 
   return 10 * TMath::Sqrt(ReacXsec / TMath::Pi());
 
}
 
 
 
 
 
 
 
Double_t KV2Body::GetIntegratedXsec(Double_t b1, Double_t b2)
{
 
   // Integrate the cross section between two impact parameter (in fm)
   // and give the result in barn
 
   return TMath::Pi() * (TMath::Power(b2, 2.) - TMath::Power(b1, 2.)) / 100;
 
}
 
 
 
 
 
KVDrawable<TF1> KV2Body::GetKoxReactionXSecFunc() const
{
   // Return pointer to TF1 with Kox reaction X-section in barns as a
   // function of projectile lab energy (in Mev/nucleon) for this reaction.
   // By default the range of the function is [20,100] MeV/nucleon.
   // Change with TF1::SetRange.
 
   if (!fKoxReactionXSec) {
      TString name = GetNucleus(projectile)->GetSymbol();
      name += " + ";
      name += GetNucleus(target)->GetSymbol();
      fKoxReactionXSec = new TF1(name.Data(),
                                 const_cast<KV2Body*>(this), &KV2Body::KoxReactionXSec, 20, 100, 0, "KV2Body", "KoxReactionXSec");
      fKoxReactionXSec->SetNpx(1000);
   }
   return fKoxReactionXSec;
}
 
 
 
 
 
Double_t KV2Body::EqbmChargeState(Double_t* t, Double_t*)
{
   // Calculate the mean charge state of the projectile after passage through the target,
   // assuming that the equilibrium charge state distribution is achieved*.
   // t[0] = energy of projectile after the target (in MeV/nucleon)
   //
   // We use the empirical parameterization of Leon et al., At. Dat. and Nucl. Dat. Tab. 69, 217 (1998)
   // developed for heavy ions in the GANIL energy range (it represents a fit to data measured using
   // GANIL beams).
   //
   // *N.B. Concerning equilibrium charge state distributions, it is not easy to know whether, for a given
   // combination of projectile, projectile energy, target, and target thickness, the equilibrium
   // distribution is reached or not. Here are some comments from the paper cited above which
   // may give some guidelines:
   //
   // "The energies available at the GANIL accelerator range from 24 to 95 MeV/u. Within this energy range,
   //  the equilibrium charge state is reached only for fairly thick targets (~1 mg/cm2 for C foils)."
   //
   // "Mean Charge State as a Function of the Target Thickness
   // A typical example of the variation of the mean charge as a function of the foil thickness is shown ... It is seen
   // that the mean charge initially increases due to the ionization process. Then, the equilibrium state is reached at
   // a certain thickness, the so-called equilibrium thickness, due to the equilibration of electron loss and
   // capture processes. Finally, for foils thicker than the equilibrium thickness, the mean charge decreases due to the
   // slowing down of the ions in matter leading to higher capture cross sections."
   //
   // It should be noted that, according to the data published in this and other papers, the equilibrium thickness
   // decreases with increasing atomic number of the target, and increases with increasing energy of the projectile.
 
   KVNucleus* proj = GetNucleus(projectile);
   Double_t Zp = proj->GetZ();
   proj->SetEnergy(t[0]*proj->GetA());
   Double_t beta = proj->Beta();
   Double_t vp = beta * KVParticle::C();
   Double_t Zt = GetNucleus(target)->GetZ();
 
   Double_t q = Zp * (1. - TMath::Exp(-83.275 * beta / pow(Zp, 0.477)));
 
   // correction for target Z
   Double_t g = 0.929 + 0.269 * TMath::Exp(-0.16 * Zt) + (0.022 - 0.249 * TMath::Exp(-0.322 * Zt)) * vp / pow(Zp, 0.477);
   q *= g;
 
   if (Zp > 54) {
      // f(Zp) - correction for projectiles with Z>54
      Double_t f = 1. - TMath::Exp(-12.905 + 0.2124 * Zp - 0.00122 * pow(Zp, 2));
      q *= f;
   }
 
   return q;
}
 
 
 
 
 
KVDrawable<TF1> KV2Body::GetEqbmChargeStateFunc() const
{
   // Return pointer to TF1 giving mean charge state of the projectile after passage through the target,
   // assuming that the equilibrium charge state distribution is achieved, as a function of projectile
   // energy after the target (in MeV/nucleon).
   // We use the empirical parameterization of Leon et al., At. Dat. and Nucl. Dat. Tab. 69, 217 (1998)
   // (see EqbmChargeState(Double_t *t,Double_t*) for details)
   //
   // By default the range of the function is [5,100] MeV/nucleon.
   // Change with TF1::SetRange.
 
   if (!fEqbmChargeState) {
      TString name = GetNucleus(projectile)->GetSymbol();
      name += " + ";
      name += GetNucleus(target)->GetSymbol();
      name += " LEON";
      fEqbmChargeState = new TF1(name.Data(),
                                 const_cast<KV2Body*>(this), &KV2Body::EqbmChargeState, 5, 100, 0, "KV2Body", "EqbmChargeState");
      fEqbmChargeState->SetNpx(1000);
   }
   return fEqbmChargeState;
}
 
 
 
 
Double_t KV2Body::eqbm_charge_state_shiwietz_solid(Double_t* t, Double_t*)
{
   // G. Shiwietz et al Nucl. Instr. and Meth. in Phys. Res. B 175-177 (2001) 125-131
   // for solid targets
 
   KVNucleus* proj = GetNucleus(projectile);
   Double_t Zp = proj->GetZ();
   proj->SetEnergy(t[0]*proj->GetA());
   KVNucleus* targ = GetNucleus(target);
   Double_t Zt = targ->GetZ();
   Double_t Vp = proj->Beta();
   const Double_t V0 = 2.19e+06 / TMath::C();
   Double_t x = -0.019 * pow(Zp, -0.52) * Vp / V0;
   x = Vp / V0 * pow(Zp, -0.52) * pow(Zt, x) / 1.68;
   x = pow(x, 1. + 1.8 / Zp);
   Double_t q = 0.07 / x + 6. + 0.3 * pow(x, 0.5) + 10.37 * x + pow(x, 4);
   q = (Zp * (12 * x + pow(x, 4.))) / q;
   return q;
}
 
 
 
KVDrawable<TF1> KV2Body::GetShiwietzEqbmChargeStateFuncForSolidTargets() const
{
   // Return pointer to TF1 giving mean charge state of the projectile after passage through the target,
   // assuming that the equilibrium charge state distribution is achieved, as a function of projectile
   // energy after the target (in MeV/nucleon).
   // G. Shiwietz et al Nucl. Instr. and Meth. in Phys. Res. B 175-177 (2001) 125-131
   // This formula is valid for solid targets.
   //
   // By default the range of the function is [5,100] MeV/nucleon.
   // Change with TF1::SetRange.
 
   if (!fEqbmChargeStateShSol) {
      TString name = GetNucleus(projectile)->GetSymbol();
      name += " + ";
      name += GetNucleus(target)->GetSymbol();
      name += " SHIWIETZ-SOLID";
      fEqbmChargeStateShSol = new TF1(name.Data(),
                                      const_cast<KV2Body*>(this), &KV2Body::eqbm_charge_state_shiwietz_solid, 5, 100, 0, "KV2Body", "eqbm_charge_state_shiwietz_solid");
      fEqbmChargeStateShSol->SetNpx(1000);
   }
   return fEqbmChargeStateShSol;
}
 
 
 
 
Double_t KV2Body::eqbm_charge_state_shiwietz_gas(Double_t* t, Double_t*)
{
   // G. Shiwietz et al Nucl. Instr. and Meth. in Phys. Res. B 175-177 (2001) 125-131
   // for gas targets
 
   KVNucleus* proj = GetNucleus(projectile);
   Double_t Zp = proj->GetZ();
   proj->SetEnergy(t[0]*proj->GetA());
   KVNucleus* targ = GetNucleus(target);
   Double_t Zt = targ->GetZ();
   Double_t Vp = proj->Beta();
   const Double_t V0 = 2.19e+06 / TMath::C();
   Double_t x = 0.03 - 0.017 * pow(Zp, -0.52) * Vp / V0;
   x = Vp / V0 * pow(Zp, -0.52) * pow(Zt, x);
   x = pow(x, 1. + 0.4 / Zp);
   Double_t q = 1428. - 1206.*pow(x, 0.5) + 690 * x + pow(x, 6.);
   q = (Zp * (376.*x + pow(x, 6.))) / q;
   return q;
}
 
 
 
 
KVDrawable<TF1> KV2Body::GetShiwietzEqbmChargeStateFuncForGasTargets() const
{
   // Return pointer to TF1 giving mean charge state of the projectile after passage through the target,
   // assuming that the equilibrium charge state distribution is achieved, as a function of projectile
   // energy after the target (in MeV/nucleon).
   // G. Shiwietz et al Nucl. Instr. and Meth. in Phys. Res. B 175-177 (2001) 125-131
   // This formula is valid for gas targets.
   //
   // By default the range of the function is [5,100] MeV/nucleon.
   // Change with TF1::SetRange.
 
   if (!fEqbmChargeStateShGas) {
      TString name = GetNucleus(projectile)->GetSymbol();
      name += " + ";
      name += GetNucleus(target)->GetSymbol();
      name += " SHIWIETZ-GAS";
      fEqbmChargeStateShGas = new TF1(name.Data(),
                                      const_cast<KV2Body*>(this), &KV2Body::eqbm_charge_state_shiwietz_gas, 5, 100, 0, "KV2Body", "eqbm_charge_state_shiwietz_gas");
      fEqbmChargeStateShGas->SetNpx(1000);
   }
   return fEqbmChargeStateShGas;
}
 
 
 
 
 
KVDrawable<TF1> KV2Body::GetXSecRuthLabFunc(nucleus_of_interest OfNucleus, kinematic_solution kineSol,Double_t theta_min, Double_t theta_max) const
{
   // Return pointer to TF1 giving Rutherford cross-section (b/sr) in the Lab as a
   // function of projectile_like or target_like lab scattering angle
   //
   // By default, theta_min = 1 degree & theta_max = 179 degrees
 
   if (theta_max > GetMaxAngleLab(OfNucleus)) {
      theta_max = GetMaxAngleLab(OfNucleus);
      Info("GetXSecRuthLabFunc", "Maximum angle set to %lf degrees", theta_max);
   }
 
   TString name = "RuthXSec: ";
   name += GetNucleus(projectile)->GetSymbol();
   name += " + ";
   name += GetNucleus(target)->GetSymbol();
   name += " ";
   Double_t elab = GetNucleus(projectile)->GetEnergy() / GetNucleus(target)->GetA();
   name += Form("%6.1f AMeV ", elab);
   if (OfNucleus == projectile_like) name += "(projectile)";
   else name += "(target)";
   if(kineSol == low_E_branch) name+= "(lowE)";
   TF1* fXSecRuthLab = (TF1*)gROOT->GetListOfFunctions()->FindObject(name.Data());
   if (!fXSecRuthLab) {
      fXSecRuthLab = new TF1(name.Data(),
                             const_cast<KV2Body*>(this), &KV2Body::XSecRuthLab, theta_min, theta_max, 2, "KV2Body", "XSecRuthLab");
      fXSecRuthLab->SetParameter(0, OfNucleus);
      fXSecRuthLab->SetParameter(1, kineSol);
      fXSecRuthLab->SetNpx(1000);
   }
   fXSecRuthLab->SetRange(theta_min, theta_max); //in case TF1 already exists, but new range is required
   return fXSecRuthLab;
}
 
 
 
 
KVDrawable<TF1> KV2Body::GetXSecRuthLabIntegralFunc(nucleus_of_interest OfNucleus, Double_t theta_min, Double_t theta_max, kinematic_solution kineSol) const
{
   // Return pointer to TF1 giving Rutherford cross-section (b/sr) in the Lab as a
   // function of projectile (OfNucleus=3) or target (OfNucleus=4) lab scattering angle
   //
   // This function is equal to sin(theta)*dsigma/domega, i.e. it is the integrand
   // needed for calculating total cross-sections integrated over solid angle.
   //
   // WARNING: when integrating this function using TF1::Integral, the result must
   // be multiplied by TMath::DegToRad(), because 'x' is in degrees rather than radians,
   // e.g. the integrated cross-section in barns is given by
   //
   //    GetXSecRuthLabIntegralFunc(OfNucleus)->Integral(theta_min, theta_max)*TMath::DegToRad()
 
   TString name = "RuthXSecInt: ";
   name += GetNucleus(projectile)->GetSymbol();
   name += " + ";
   name += GetNucleus(target)->GetSymbol();
   name += " ";
   Double_t elab = GetNucleus(projectile)->GetAMeV();
   name += Form("%6.1f AMeV ", elab);
   if (OfNucleus == projectile_like) name += "(projectile)";
   else name += "(target)";
 
   TF1* fXSecRuthLab = (TF1*)gROOT->GetListOfFunctions()->FindObject(name.Data());
   if (!fXSecRuthLab) {
      fXSecRuthLab = new TF1(name.Data(),
                             const_cast<KV2Body*>(this), &KV2Body::XSecRuthLabInt, theta_min, theta_max, 2, "KV2Body", "XSecRuthLabInt");
      fXSecRuthLab->SetParameter(0, OfNucleus);
      fXSecRuthLab->SetParameter(1, kineSol);
      fXSecRuthLab->SetNpx(1000);
   }
   fXSecRuthLab->SetRange(theta_min, theta_max); //in case TF1 already exists, but new range is required
   return fXSecRuthLab;
}
 
 
 
 
 
KV2Body::KinematicSolutions_v KV2Body::FindRoots(TF1* fonc, Double_t val) const
{
   // Find at most two solutions x1 and x2 between xmin and xmax for which fonc->Eval(x) = val
   // i.e. we use TF1::GetX for a function which may be (at most) double-valued in range (xmin, xmax)
   //
   // This is adapted to the case of the lab angle vs. CM angle of scattered particles:
   //    - if fonc has a maximum between xmin and xmax, and if val < max, we look for x1 between
   //      xmin and the maximum, and x2 between the maximum and xmax.
   //    - if not (single-valued function) we look for x1 between xmin and xmax.
   //
   // If val > maximum of fonc between xmin and xmax, there is no solution
   //
   // \returns a KinematicSolutions_v which may or may not contain kinematic solutions
   //
   // Testing and using returned value:
   //~~~{.cpp}
   // KV2Body kin;
   // auto roots = kin.FindRoots(kin.GetThetaLabVsThetaCMFunc(KV2Body::projectile_like), 2.6);
   // if(roots)
   // {
   //    if(roots->second())
   //        std::cout << "Two solutions found: second one is " << *roots->second() << std::endl;
   //    std::cout << "First solution (always exists) is " << *roots->first() << std::endl;
   // }
   // else
   //    std::cout << "No kinematic solutions exist\n";
   //~~~
 
   constexpr Double_t xmin = 0.0;
   constexpr Double_t xmax = 180.0;
 
   // special case: val=0 i.e. lab angle zero degrees
   //   theta_cm=0 always gives theta_lab=0
   //   if theta_cm=180 also gives theta_lab=0, we add second solution
   if(val==xmin)
   {
      if(fonc->Eval(xmax)==0)
         return {{xmin,xmax}};
      return {{xmin,{}}};
   }
   Double_t max = fonc->GetMaximum(xmin, xmax);
   // no solution
   if (val > max) return {};
   Double_t maxX = fonc->GetMaximumX(xmin, xmax);
   int nRoots = 1;
   if (TMath::AreEqualAbs(val, max, 1.e-5)) {
      // value corresponds to maximum of function
      return {{maxX,{}}};
   }
   // 2 roots if 'fonc' is zero at 180 deg.
   if (fonc->Eval(xmax) == 0) nRoots = 2;
   Double_t xmax1 = (nRoots == 2 ? maxX : xmax);
   auto x1 = fonc->GetX(val, xmin, xmax1);
   if (nRoots == 1)
      return {{x1,{}}};
   auto x2 = fonc->GetX(val, maxX, xmax);
   return {{x1,x2}};
}