flexiblesusy is hosted by Hepforge, IPPP Durham
FlexibleSUSY
decay_H_to_ubaru.inc
Go to the documentation of this file.
1template <>
2double CLASSNAME::get_partial_width<Higgs, bar<UpTypeQuark>::type, UpTypeQuark>(
3 const context_base& context,
4 typename field_indices<Higgs>::type const& indexIn,
5 typename field_indices<UpTypeQuark>::type const& indexOut1,
6 typename field_indices<UpTypeQuark>::type const& indexOut2)
7{
8 // get HQQbar vertex
9 // we don't use amplitude_squared here because we need both this vertex
10 // both with running and pole masses
11 const auto indices = concatenate(indexOut1, indexOut2, indexIn);
12 const auto HQQbarVertexDR = Vertex<bar<UpTypeQuark>::type, UpTypeQuark, Higgs>::evaluate(indices, context);
13
14 const double mHOS = context.physical_mass<Higgs>(indexIn);
15 const double flux = 1./(2.*mHOS);
16
17 static constexpr double color_factor = squared_color_generator<Higgs, bar<UpTypeQuark>::type, UpTypeQuark>();
18
19 if(!boost::range::equal(indexOut1, indexOut2)) {
20 if (!is_zero(HQQbarVertexDR.left()) || !is_zero(HQQbarVertexDR.right())) {
21 const double muqOS1 = context.physical_mass<UpTypeQuark>(indexOut1);
22 const double muqOS2 = context.physical_mass<UpTypeQuark>(indexOut2);
23 const auto xOS1 = Sqr(muqOS1/mHOS);
24 const auto xOS2 = Sqr(muqOS2/mHOS);
25 const double phase_space = 1./(8.*Pi) * std::sqrt(KallenLambda(1., xOS1, xOS2));
26 return flux * phase_space * color_factor * amplitude_squared<Higgs, bar<UpTypeQuark>::type, UpTypeQuark>(context, indexIn, indexOut1, indexOut2);
27 }
28 return 0.;
29 }
30
31 const double muqDR = context.mass<UpTypeQuark>(indexOut1);
32 const double muqOS = context.physical_mass<UpTypeQuark>(indexOut1);
33 if(is_zero(muqDR) || is_zero(muqOS)) {
34 throw std::runtime_error(
35 create_process_string<Higgs,bar<UpTypeQuark>::type, UpTypeQuark>(indexIn, indexOut1, indexOut2)
36 + ": Up-type quark cannot be massless. Aborting."
37 );
38 }
39 const auto xOS = Sqr(muqOS/mHOS);
40 const auto xDR = Sqr(muqDR/mHOS);
41
42 const auto HQQbarVertexDR_S = 0.5*(HQQbarVertexDR.left() + HQQbarVertexDR.right());
43 const auto HQQbarVertexDR_P = 0.5*(HQQbarVertexDR.right() - HQQbarVertexDR.left());
44
45 double result_S = 0;
46 double result_P = 0;
47
48 if (4.*std::max(xDR, xOS) > 1.) {
49 }
50 else {
51 const auto betaOS = std::sqrt(1.-4.*xOS);
52 const auto betaDR = std::sqrt(1.-4.*xDR);
53
54 const double phase_spaceDR = 1./(8.*Pi) * std::sqrt(KallenLambda(1., xDR, xDR));
55 const double phase_spaceOS = 1./(8.*Pi) * std::sqrt(KallenLambda(1., xOS, xOS));
56
57 double amp2DR_S = Sqr(mHOS) * Sqr(betaDR) *
58 2*std::norm(HQQbarVertexDR_S);
59 double amp2OS_S = Sqr(mHOS) * Sqr(betaOS) *
60 2*std::norm(HQQbarVertexDR_S) * Sqr(muqOS / muqDR);
61
62 double amp2DR_P = 0;
63 double amp2OS_P = 0;
64 if (info::is_CP_violating_Higgs_sector) {
65 amp2DR_P = Sqr(mHOS) *
66 2*std::norm(HQQbarVertexDR_P);
67 amp2OS_P = Sqr(mHOS) *
68 2*std::norm(HQQbarVertexDR_P) * Sqr(muqOS / muqDR);
69 }
70
71 const int Nf = number_of_active_flavours(qedqcd, mHOS);
72 if (Nf < 5) {
73 problems.add_warning(
74 create_process_string<Higgs,bar<UpTypeQuark>::type, UpTypeQuark>(indexIn, indexOut1, indexOut2)
75 + ": Cannot determine the number of active quark flavours. Disabling higher-order corrections."
76 );
77 }
78
79 if (static_cast<int>(flexibledecay_settings.get(FlexibleDecay_settings::include_higher_order_corrections)) > 0 && Nf >= 5) {
80 double alpha_s_red;
81 double Y_conversion = 1.;
82 switch (Nf) {
83 case 5: {
84 auto qedqcd_ = qedqcd;
85 qedqcd_.to(mHOS);
86 alpha_s_red = qedqcd_.displayAlpha(softsusy::ALPHAS)/Pi;
87 Y_conversion = Sqr(qedqcd_.displayUpQuarkRunningMass(indexOut1.at(0))/muqDR);
88 break;
89 }
90 case 6:
91 alpha_s_red = get_alphas(context)/Pi;
92 break;
93 default:
94 throw std::runtime_error(
95 create_process_string<Higgs,bar<UpTypeQuark>::type, UpTypeQuark>(indexIn, indexOut1, indexOut2)
96 + ": Cannot determine the number of active quark flavours"
97 );
98 }
99 double deltaqq_QCD_DR_S = calc_Deltaqq(alpha_s_red, Nf, flexibledecay_settings);
100 double deltaqq_QCD_DR_P = deltaqq_QCD_DR_S;
101
102 // 1L QED correction - eq. 17 in FD paper
103 const double alpha_red = get_alpha(context)/Pi;
104 const double deltaqq_QED_DR = 17./4.*Sqr(UpTypeQuark::electricCharge)*alpha_red;
105
106 deltaqq_QCD_DR_S +=
107 2.*(1. - 10.*xDR)/(1-4.*xDR)*(4./3. - std::log(xDR))*alpha_s_red +
108 4./3.*alpha_s_red*calc_DeltaH(betaDR);
109
110 const double deltaqq_QCD_OS_S =
111 4./3. * alpha_s_red * calc_DeltaH(betaOS);
112
113 const double deltaqq_QED_OS_S =
114 alpha_red * Sqr(UpTypeQuark::electricCharge) * calc_DeltaH(betaOS);
115
116 double deltaqq_QCD_OS_P = 0.;
117 double deltaqq_QED_OS_P = 0.;
118 // don't waste time computing it in models without CPV
119 if (info::is_CP_violating_Higgs_sector) {
120 deltaqq_QCD_DR_P +=
121 2.*(1. - 6.*xDR)/(1-4.*xDR)*(4./3. - std::log(xDR))*alpha_s_red +
122 4./3.*alpha_s_red*calc_DeltaAh(betaDR);
123
124 deltaqq_QCD_OS_P =
125 4./3. * alpha_s_red * calc_DeltaAh(betaOS);
126
127 deltaqq_QED_OS_P =
128 alpha_red * Sqr(UpTypeQuark::electricCharge) * calc_DeltaAh(betaOS);
129 }
130
131 double deltaPhi2_S = 0.;
132 double deltaPhi2_P = 0.;
133 double deltaqq_QCDxQED_DR = 0.;
134 if (static_cast<int>(flexibledecay_settings.get(FlexibleDecay_settings::include_higher_order_corrections)) > 1) {
135 deltaqq_QCDxQED_DR =
136 deltaqq_QCDxQED*Sqr(UpTypeQuark::electricCharge)*alpha_red*alpha_s_red;
137 if ((indexOut1.at(0) < 2 || indexOut2.at(0) < 2)) {
138 const double mtpole = qedqcd.displayPoleMt();
139 const double lt = std::log(Sqr(mHOS/mtpole));
140 const double lq = std::log(xDR);
141 // eq. 28 of hep-ph/9505358
142 const auto Httindices = concatenate(std::array<int, 1> {2}, std::array<int, 1> {2}, indexIn);
143 const auto Httbar = Vertex<bar<UpTypeQuark>::type, UpTypeQuark, Higgs>::evaluate(Httindices, context);
144 const auto gbHoVEV = HQQbarVertexDR_S/muqDR;
145 if (!is_zero(gbHoVEV)) {
146 const auto Httbar_S = 0.5*(Httbar.left() + Httbar.right());
147 const auto gtHoVEV = Httbar_S/context.mass<UpTypeQuark>({2});
148 deltaPhi2_S = Sqr(alpha_s_red) * std::real(gtHoVEV/gbHoVEV) * (8/3. - Sqr(Pi/3.) - 2.0/3.0*lt + 1.0/9.0*Sqr(lq));
149 }
150 if (info::is_CP_violating_Higgs_sector) {
151 const auto CSuu = HQQbarVertexDR_S/muqDR;
152 if (!is_zero(CSuu)) {
153 const auto Httbar_P = 0.5*(Httbar.right() - Httbar.left());
154 const auto CStu = Httbar_P/context.mass<Fu>({2});
155 deltaPhi2_P = Sqr(alpha_s_red) * std::real(CStu/CSuu) * (23/6. - lt + 1.0/6.0*Sqr(lq));
156 }
157 }
158 }
159 }
160
161 amp2DR_S *= Y_conversion*(1. + deltaqq_QCD_DR_S + deltaqq_QED_DR + deltaqq_QCDxQED_DR + deltaPhi2_S);
162 amp2DR_P *= Y_conversion*(1. + deltaqq_QCD_DR_P + deltaqq_QED_DR + deltaqq_QCDxQED_DR + deltaPhi2_P);
163 amp2OS_S *= 1. + deltaqq_QCD_OS_S + deltaqq_QED_OS_S;
164 amp2OS_P *= 1. + deltaqq_QCD_OS_P + deltaqq_QED_OS_P;
165 }
166
167 // low x limit
168 const double result_DR_S =
169 flux * color_factor * phase_spaceDR * amp2DR_S;
170 const double result_DR_P =
171 flux * color_factor * phase_spaceDR * amp2DR_P;
172 // high x limit
173 const double result_OS_S =
174 flux * color_factor * phase_spaceOS * amp2OS_S;
175 const double result_OS_P =
176 flux * color_factor * phase_spaceOS * amp2OS_P;
177
178 result_S = (1-4.*xOS)*result_DR_S + 4*xOS*result_OS_S;
179 result_P = (1-4.*xOS)*result_DR_P + 4*xOS*result_OS_P;
180}
181
182 return result_S + result_P;
183}
bool is_zero(double x) noexcept
Definition: ckm.cpp:30
constexpr T norm(const Complex< T > &z) noexcept
Definition: complex.hpp:66
static constexpr double deltaqq_QCDxQED
double calc_DeltaAh(double b) noexcept
std::string create_process_string(std::array< int, FieldIn::numberOfFieldIndices > const in, std::array< int, FieldOut1::numberOfFieldIndices > const out1, std::array< int, FieldOut2::numberOfFieldIndices > const out2)
Definition: decay.hpp:152
unsigned int number_of_active_flavours(softsusy::QedQcd const &qedqcd, double m) noexcept
double calc_DeltaH(double b) noexcept
Eq.(2.6) of hep-ph/0503173.
double calc_Deltaqq(double alpha_s_red, double Nf, FlexibleDecay_settings const &settings) noexcept
Eq.(2.11) of hep-ph/0503173, 2-loop and higher order.
constexpr std::complex< T > Sqr(const std::complex< T > &a) noexcept
Definition: wrappers.hpp:631
detail::result_of::concatenate< Args... >::type concatenate(Args &&... args)
Definition: concatenate.hpp:87
T KallenLambda(T x, T y, T z) noexcept
Definition: wrappers.hpp:835
Complex< T > log(const Complex< T > &z) noexcept
Definition: complex.hpp:54
static constexpr double Pi
Definition: wrappers.hpp:44
@ ALPHAS
Definition: lowe.h:44