TEvtGen/EvtGenModels/EvtHQET2.cxx

   1 //--------------------------------------------------------------------------
   2 //
   3 // Environment:
   4 //      This software is part of the EvtGen package developed jointly
   5 //      for the BaBar and CLEO collaborations.  If you use all or part
   6 //      of it, please give an appropriate acknowledgement.
   7 //
   8 // Copyright Information: See EvtGen/COPYRIGHT
   9 //      Copyright (C) 1998      Caltech, UCSB
  10 //
  11 // Module: EvtHQET2.cc
  12 //
  13 // Description: Routine to implement semileptonic B->D*lnu & B->Dlnu
  14 //              decays according to the model HQET
  15 //
  16 //   Lange Nov9/01 adding Dlnu and possible (w-1)^2 term
  17 //
  18 //
  19 // Modification history:
  20 //
  21 //    Marco Bomben     March 10, 2003       Module created
  22 //
  23 //------------------------------------------------------------------------
  24 //
  25 #include "EvtGenBase/EvtPatches.hh"
  26 #include <stdlib.h>
  27 #include <assert.h>
  28 #include "EvtGenBase/EvtParticle.hh"
  29 #include "EvtGenBase/EvtGenKine.hh"
  30 #include "EvtGenBase/EvtPDL.hh"
  31 #include "EvtGenBase/EvtReport.hh"
  32 #include "EvtGenModels/EvtHQET2.hh"
  33 #include "EvtGenModels/EvtHQET2FF.hh"
  34 #include "EvtGenBase/EvtSemiLeptonicVectorAmp.hh"
  35 #include "EvtGenBase/EvtSemiLeptonicScalarAmp.hh"
  36 #include <string>
  37 using std::endl;
  38
  39 EvtHQET2::EvtHQET2():
  40   hqetffmodel(0)
  41   ,calcamp(0)
  42 {}
  43
  44 EvtHQET2::~EvtHQET2() {
  45   delete hqetffmodel;
  46   hqetffmodel=0;
  47   delete calcamp;
  48   calcamp=0;
  49 }
  50
  51 std::string EvtHQET2::getName(){
  52
  53   return "HQET2";
  54
  55 }
  56
  57
  58
  59 EvtDecayBase* EvtHQET2::clone(){
  60
  61   return new EvtHQET2;
  62
  63 }
  64
  65
  66 void EvtHQET2::decay( EvtParticle *p ){
  67
  68   p->initializePhaseSpace(getNDaug(),getDaugs());
  69   calcamp->CalcAmp(p,_amp2,hqetffmodel);
  70
  71 }
  72
  73 void EvtHQET2::initProbMax(){
  74
  75   EvtId parnum,mesnum,lnum,nunum;
  76
  77   parnum = getParentId();
  78   mesnum = getDaug(0);
  79   lnum = getDaug(1);
  80   nunum = getDaug(2);
  81
  82   double mymaxprob = calcamp->CalcMaxProb(parnum,mesnum,
  83                            lnum,nunum,hqetffmodel);
  84
  85   setProbMax(mymaxprob);
  86
  87 }
  88
  89
  90 void EvtHQET2::init(){
  91
  92   checkNDaug(3);
  93
  94   //We expect the parent to be a scalar
  95   //and the daughters to be X lepton neutrino
  96   checkSpinParent(EvtSpinType::SCALAR);
  97
  98   checkSpinDaughter(1,EvtSpinType::DIRAC);
  99   checkSpinDaughter(2,EvtSpinType::NEUTRINO);
 100
 101   EvtSpinType::spintype d1type = EvtPDL::getSpinType(getDaug(0));
 102   if ( d1type==EvtSpinType::SCALAR) {
 103     if ( getNArg()==2 ) {hqetffmodel = new EvtHQET2FF(getArg(0),getArg(1));
 104     calcamp = new EvtSemiLeptonicScalarAmp;}
 105     else {
 106     report(ERROR,"EvtGen") << "HQET2 model for scalar meson daughters needs 2 arguments. Sorry."<<endl;
 107     ::abort();
 108   }
 109   }
 110   else if ( d1type==EvtSpinType::VECTOR) {
 111     if ( getNArg()==4 ){ hqetffmodel = new EvtHQET2FF(getArg(0),getArg(1),getArg(2),getArg(3));
 112     calcamp = new EvtSemiLeptonicVectorAmp; }
 113     else  {
 114     report(ERROR,"EvtGen") << "HQET2 model for vector meson daughtersneeds 4 arguments. Sorry."<<endl;
 115     ::abort();
 116     }
 117   }
 118   else{
 119     report(ERROR,"EvtGen") << "HQET2 model handles only scalar and vector meson daughters. Sorry."<<endl;
 120     ::abort();
 121   }
 122
 123
 124 }
 125