55 double q2 = ( q.
mass2() );
57 double a1f, a2f, vf, a0f, a3f;
61 q2, m_meson, &a1f, &a2f, &vf, &a0f );
63 double costhl_flag = 1.0;
65 if ( parent->
getId() == D0 || parent->
getId() == D0B ||
66 parent->
getId() == DP || parent->
getId() == DM ) {
69 if ( parent->
getId() == DSP || parent->
getId() == DSM ) {
72 vf = vf * costhl_flag;
75 p4b.
set( parent->
mass(), 0.0, 0.0, 0.0 );
82 double m_b = parent->
mass();
84 a3f = ( ( m_b + m_meson ) / ( 2.0 * m_meson ) ) * a1f -
85 ( ( m_b - m_meson ) / ( 2.0 * m_meson ) ) * a2f;
88 if ( l_num == EM || l_num == MUM || l_num == TAUM ) {
90 tds.
addDirProd( ( -a2f / ( m_b + m_meson ) ) * p4b, p4b + p4meson );
91 tds +=
EvtComplex( 0.0, vf / ( m_b + m_meson ) ) *
93 tds.
addDirProd( ( a0f - a3f ) * 2.0 * ( m_meson / q2 ) * p4b,
101 if ( l_num == EP || l_num == MUP || l_num == TAUP ) {
103 tds.
addDirProd( ( -a2f / ( m_b + m_meson ) ) * p4b, p4b + p4meson );
104 tds -=
EvtComplex( 0.0, vf / ( m_b + m_meson ) ) *
107 tds.
addDirProd( ( a0f - a3f ) * 2.0 * ( m_meson / q2 ) * p4b,
116 <<
"Wrong lepton number" << endl;
EvtVector4C EvtLeptonVACurrent(const EvtDiracSpinor &d, const EvtDiracSpinor &dp)
std::ostream & EvtGenReport(EvtGenSeverity severity, const char *facility=nullptr)
EvtTensor4C dual(const EvtTensor4C &t2)
void vertex(const EvtComplex &)
static EvtId getId(const std::string &name)
virtual EvtVector4C epsParent(int i) const
virtual EvtDiracSpinor spParentNeutrino() const
virtual EvtDiracSpinor spParent(int) const
const EvtVector4R & getP4() const
EvtParticle * getDaug(const int i)
virtual void getvectorff(EvtId parent, EvtId daught, double t, double mass, double *a1f, double *a2f, double *vf, double *a0f)=0
void CalcAmp(EvtParticle *parent, EvtAmp &, EvtSemiLeptonicFF *FormFactors) override
EvtVector4C cont1(const EvtVector4C &v4) const
static const EvtTensor4C & g()
EvtTensor4C & addDirProd(const EvtVector4R &p1, const EvtVector4R &p2)
EvtComplex cont(const EvtVector4C &v4) const
void set(int i, double d)
EvtTensor3C directProd(const EvtVector3C &c1, const EvtVector3C &c2)