]>
Commit | Line | Data |
---|---|---|
da0e9ce3 | 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: EvtTauScalarnu.cc | |
12 | // | |
13 | // Description: The leptonic decay of the tau meson. | |
14 | // E.g., tau- -> e- nueb nut | |
15 | // | |
16 | // Modification history: | |
17 | // | |
18 | // RYD January 17, 1997 Module created | |
19 | // | |
20 | //------------------------------------------------------------------------ | |
21 | // | |
22 | #include "EvtGenBase/EvtPatches.hh" | |
23 | #include <stdlib.h> | |
24 | #include <iostream> | |
25 | #include <string> | |
26 | #include "EvtGenBase/EvtParticle.hh" | |
27 | #include "EvtGenBase/EvtPDL.hh" | |
28 | #include "EvtGenBase/EvtGenKine.hh" | |
29 | #include "EvtGenModels/EvtTauScalarnu.hh" | |
30 | #include "EvtGenBase/EvtDiracSpinor.hh" | |
31 | #include "EvtGenBase/EvtReport.hh" | |
32 | #include "EvtGenBase/EvtVector4C.hh" | |
33 | ||
34 | EvtTauScalarnu::~EvtTauScalarnu() {} | |
35 | ||
36 | std::string EvtTauScalarnu::getName(){ | |
37 | ||
38 | return "TAUSCALARNU"; | |
39 | ||
40 | } | |
41 | ||
42 | ||
43 | EvtDecayBase* EvtTauScalarnu::clone(){ | |
44 | ||
45 | return new EvtTauScalarnu; | |
46 | ||
47 | } | |
48 | ||
49 | void EvtTauScalarnu::init(){ | |
50 | ||
51 | // check that there are 0 arguments | |
52 | checkNArg(0); | |
53 | checkNDaug(2); | |
54 | ||
55 | checkSpinParent(EvtSpinType::DIRAC); | |
56 | ||
57 | checkSpinDaughter(0,EvtSpinType::SCALAR); | |
58 | checkSpinDaughter(1,EvtSpinType::NEUTRINO); | |
59 | ||
60 | } | |
61 | ||
62 | void EvtTauScalarnu::initProbMax(){ | |
63 | ||
64 | setProbMax(90.0); | |
65 | ||
66 | } | |
67 | ||
68 | void EvtTauScalarnu::decay(EvtParticle *p){ | |
69 | ||
70 | static EvtId TAUM=EvtPDL::getId("tau-"); | |
71 | p->initializePhaseSpace(getNDaug(),getDaugs()); | |
72 | ||
73 | EvtParticle *nut; | |
74 | nut = p->getDaug(1); | |
75 | EvtVector4R momscalar = p->getDaug(0)->getP4(); | |
76 | ||
77 | EvtVector4C tau1, tau2; | |
78 | ||
79 | if (p->getId()==TAUM) { | |
80 | tau1=EvtLeptonVACurrent(nut->spParentNeutrino(),p->sp(0)); | |
81 | tau2=EvtLeptonVACurrent(nut->spParentNeutrino(),p->sp(1)); | |
82 | } | |
83 | else{ | |
84 | tau1=EvtLeptonVACurrent(p->sp(0),nut->spParentNeutrino()); | |
85 | tau2=EvtLeptonVACurrent(p->sp(1),nut->spParentNeutrino()); | |
86 | } | |
87 | ||
88 | vertex(0,tau1*momscalar); | |
89 | vertex(1,tau2*momscalar); | |
90 | ||
91 | return; | |
92 | ||
93 | } | |
94 |