TwoKaonOnePionDefaultCurrent.h

// -*- C++ -*-
//
// TwoKaonOnePionDefaultCurrent.h is a part of Herwig - A multi-purpose Monte Carlo event generator
// Copyright (C) 2002-2019 The Herwig Collaboration
//
// Herwig is licenced under version 3 of the GPL, see COPYING for details.
// Please respect the MCnet academic guidelines, see GUIDELINES for details.
//
#ifndef HERWIG_TwoKaonOnePionDefaultCurrent_H
#define HERWIG_TwoKaonOnePionDefaultCurrent_H
//
// This is the declaration of the TwoKaonOnePionDefaultCurrent class.
//
#include "WeakCurrent.h"
#include "Herwig/Utilities/Interpolator.h"
#include "Herwig/Utilities/Kinematics.h"
#include "ThePEG/StandardModel/StandardModelBase.h"
#include "Herwig/Decay/ResonanceHelpers.h"
#include <numeric>
 
namespace Herwig {
using namespace ThePEG;
 
class TwoKaonOnePionDefaultCurrent: public WeakCurrent {
 
  friend class Defaulta1MatrixElement;
 
public:
 
  TwoKaonOnePionDefaultCurrent();
 
  virtual vector<LorentzPolarizationVectorE> 
  current(tcPDPtr resonance,
          FlavourInfo flavour,
          const int imode, const int ichan,Energy & scale,
          const tPDVector & outgoing,
          const vector<Lorentz5Momentum> & momenta,
          DecayIntegrator::MEOption meopt) const;
 
  virtual bool accept(vector<int> id);
 
  virtual unsigned int decayMode(vector<int> id);
 
  virtual tPDVector particles(int icharge, unsigned int imode, int iq, int ia);
 
public:
 
  void persistentOutput(PersistentOStream & os) const;
 
  void persistentInput(PersistentIStream & is, int version);
 
  static void Init();
 
public:
 
  virtual bool createMode(int icharge, tcPDPtr resonance,
                          FlavourInfo flavour,
                          unsigned int imode,PhaseSpaceModePtr mode,
                          unsigned int iloc,int ires,
                          PhaseSpaceChannel phase, Energy upp );
 
  virtual void dataBaseOutput(ofstream & os,bool header,bool create) const;
  
  double threeBodyMatrixElement(const int imode,  const Energy2 q2,
                                const Energy2 s3, const Energy2 s2, 
                                const Energy2 s1, const Energy  m1, 
                                const Energy  m2, const Energy  m3) const;
 
protected:
 
  virtual IBPtr clone() const {return new_ptr(*this);}
 
  virtual IBPtr fullclone() const {return new_ptr(*this);}
 
protected:
 
  virtual void doinit();
 
  virtual void doinitrun();
 
  virtual void doupdate();
 
private:
 
  TwoKaonOnePionDefaultCurrent & operator=(const TwoKaonOnePionDefaultCurrent &) = delete;
 
private:
  
  Complex BrhoF123(Energy2 q2,int ires) const {
    if(ires>=int(_rhoF123wgts.size())) return 0.;
    Complex output(0.);
    Complex norm = std::accumulate(_rhoF123wgts.begin(),
                                   _rhoF123wgts.end(),Complex(0.));
    unsigned int imin=0,imax=_rhoF123wgts.size();
    if(ires>0) {
      imin=ires;
      imax=imin+1;
    }
    for(unsigned int ix=imin;ix<imax;++ix)
      output+=_rhoF123wgts[ix]*Resonance::BreitWignerPWave(q2,_rhoF123masses[ix],
                                                           _rhoF123widths[ix],_mpi,_mpi);
    return output/norm;
  }
 
  Complex BrhoF5(Energy2 q2,int ires) const {
    if(ires>=int(_rhoF5wgts.size())) return 0.;
    Complex output(0.);
    Complex norm = std::accumulate(_rhoF5wgts.begin(),
                                   _rhoF5wgts.end(),Complex(0.));
    unsigned int imin=0,imax=_rhoF5wgts.size();
    if(ires>0) {
      imin=ires;
      imax=imin+1;
    }
    for(unsigned int ix=imin;ix<imax;++ix)
      output+=_rhoF5wgts[ix]*Resonance::BreitWignerPWave(q2,_rhoF5masses[ix],
                                                           _rhoF5widths[ix],_mpi,_mpi);
    return output/norm;
  }
 
  Complex BKstarF123(Energy2 q2,int ires) const {
    if(ires>=int(_kstarF123wgts.size())) return 0.;
    Complex output(0.);
    Complex norm = std::accumulate(_kstarF123wgts.begin(),
                                   _kstarF123wgts.end(),Complex(0.));
    unsigned int imin=0,imax=_kstarF123wgts.size();
    if(ires>0) {
      imin=ires;
      imax=imin+1;
    }
    assert(imax<=_kstarF123wgts.size());
    for(unsigned int ix=imin;ix<imax;++ix)
      output+=_kstarF123wgts[ix]*Resonance::BreitWignerPWave(q2,_kstarF123masses[ix],
                                                             _kstarF123widths[ix],_mpi,_mK);
    return output/norm;
  }
  
  Complex FKrho(Energy2 si,Energy2 sj,int ires) const {
    Complex output;
    if(ires<0)
      output = _rhoKstarwgt*BKstarF123(si,-1)+BrhoF123(sj,-1);
    else if(ires%2==0)
      output= _rhoKstarwgt*BKstarF123(si,ires/2);
    else if(ires%2==1)
      output=BrhoF123(sj,ires/2);
    return output/(1.+_rhoKstarwgt);
  }
  
  Complex a1BreitWigner(Energy2 q2) const  {
    if(!_a1opt)
      return Resonance::BreitWignera1(q2,_a1mass,_a1width);
    Complex ii(0.,1.);
    Energy2 m2(_a1mass*_a1mass);
    Energy  q(sqrt(q2));
    Energy width = (*_a1runinter)(q2);
    return m2/(m2-q2-ii*q*width);
  }
 
  void inita1Width(int iopt);
 
private:
  
  vector<double> _rhoF123wgts;
 
  vector<double> _kstarF123wgts;
  
  vector<double> _rhoF5wgts;
  
  double _rhoKstarwgt;
  
  vector<Energy>  _a1runwidth;
 
  vector<Energy2> _a1runq2;
 
  Interpolator<Energy,Energy2>::Ptr _a1runinter;
 
  bool _initializea1;
  
  Energy _a1mass;
 
  Energy _a1width;
 
  Energy _fpi;
 
  Energy _mpi;
 
  Energy _mK;
 
  vector<Energy> _rhoF123masses;
 
  vector<Energy> _rhoF5masses;
 
  vector<Energy> _rhoF123widths;
 
  vector<Energy> _rhoF5widths;
 
  vector<Energy> _kstarF123masses;
 
  vector<Energy> _kstarF123widths;
 
  bool _a1opt;
 
  Energy _maxmass;
 
  Energy _maxcalc;
  
};
 
}
 
#endif /* HERWIG_TwoKaonOnePionDefaultCurrent_H */