a Code for the Combination of Indirect and Direct Constraints on High Energy Physics Models Logo
GeneralTHDMMatching.cpp
Go to the documentation of this file.
1 /*
2  * Copyright (C) 2017 HEPfit Collaboration
3  *
4  *
5  * For the licensing terms see doc/COPYING.
6  */
7 
8 #include "GeneralTHDMMatching.h"
9 #include "GeneralTHDM.h"
10 #include <gsl/gsl_integration.h>
11 #include <gsl/gsl_sf_dilog.h>
12 #include "GeneralTHDMcache.h"
13 #include <stdexcept>
14 
15 GeneralTHDMMatching::GeneralTHDMMatching(const GeneralTHDM & GeneralTHDM_i) :
16 
17  StandardModelMatching(GeneralTHDM_i),
18  myGTHDM(GeneralTHDM_i),
19  myCKM(3, 3, 0.),
20  mcdbs2(5, NDR, NLO),
21  mcbtaunu(3, NDR, LO),
22  mcBMll(13, NDR, NLO),
23  mcbsg(8, NDR, NNLO),
24  mcgminus2mu(2, NDR, NLO),
25  mcbsmm(8, NDR, NNLO, NLO_QED22)
26 
27 {
28 }
29 void GeneralTHDMMatching::updateGTHDMParameters()
30 {
31  GF=myGTHDM.getGF();
32  mMU=myGTHDM.getLeptons(StandardModel::MU).getMass();
33 }
34 
35 double GeneralTHDMMatching::gminus2muLO() {
36 
37  updateGTHDMParameters();
38  double gminus2muLO;
39 
40  //add something to note that this is only valid in the aligned case and in the CP-conserving limit
41 
42 
43 
44  double pi=M_PI;
45  double GF=myGTHDM.getGF();
46  double mMU=myGTHDM.getLeptons(StandardModel::MU).getMass();
47 
48  double mHp2=myGTHDM.getmHp2();
49 
50 
51  gslpp::complex sl = myGTHDM.getNl_11();
52 
53 
54  /*Mass of the physical scalars*/
55 
56 
57 
58  double mH1_2 = myGTHDM.getMyGTHDMCache()->mH1sq;
59  double mH2_2 = myGTHDM.getMyGTHDMCache()->mH2sq;
60  double mH3_2 = myGTHDM.getMyGTHDMCache()->mH3sq;
61 
62  /*eta is the deviation from the SM limit*/
63  double alpha1 = myGTHDM.getalpha1();
64  double beta = atan(myGTHDM.gettanb());
65  double eta = M_PI/2.0-(beta-alpha1);
66 
67 
68 
69  //in the CP-conserving limit su, sd, sl are real. have to fit it
70 
71 
72  double yl_h = 1.0 + eta*sl.real();
73  double yl_H = -sl.real() + eta;
74  double yl_A = - sl.real();
75 
76  double rmu_hSM, rmu_h, rmu_H, rmu_A, rmu_Hp;
77  double part_hSM, part_h, part_H, part_A, part_Hp;
78 
79  if( mH1_2<1.0 || mH2_2<1.0 || mH3_2<1.0 || mHp2<1.0)
80  {
81  throw std::runtime_error("The implemented approximation for g-2_\\mu only works for Higgs masses above 1 GeV.");
82  }
83 
84  if (!myGTHDM.getATHDMflag())
85  {
86  throw std::runtime_error("(g-2) is only aviable in the A2HDM.");
87  }
88 
89  if (!myGTHDM.getCPconservationflag())
90  {
91  throw std::runtime_error("(g-2) is only aviable in the CP-conserving limit.");
92  }
93 
94 
95  rmu_hSM=mMU*mMU/mH1_2;
96  rmu_h=mMU*mMU/mH1_2;
97  rmu_H=mMU*mMU/mH2_2;
98  rmu_A=mMU*mMU/mH3_2;
99  rmu_Hp=mMU*mMU/mHp2;
100 
101  part_hSM=rmu_hSM*(-7.0/6.0-log(rmu_hSM));
102  part_h=yl_h*yl_h*rmu_h*(-7.0/6.0-log(rmu_h));
103  part_H=yl_H*yl_H*rmu_H*(-7.0/6.0-log(rmu_H));
104  part_A=yl_A*yl_A*rmu_A*(11.0/6.0+log(rmu_A));
105  part_Hp=-yl_A*yl_A*rmu_Hp*1.0/6.0;
106 
107 
108  gminus2muLO=GF*mMU*mMU/(4.0*pi*pi*sqrt(2.0)) * (-part_hSM+part_h+part_H+part_A+part_Hp);
109 
110  return(gminus2muLO);
111 }
112 
113 struct __f_params{
114  double a;
115 };
116 
117 double __fS2_integrand(double x, void* p){
118  __f_params &params= *reinterpret_cast<__f_params *>(p);
119  double integ = (2.0*x*(1.0-x)-1.0) * log(x*(1.0-x)/params.a) / (x*(1.0-x)-params.a);
120  return integ;
121 }
122 
123 double __fPS2_integrand(double x, void* p){
124  __f_params &params= *reinterpret_cast<__f_params *>(p);
125  double integ = log(x*(1.0-x)/params.a) / (x*(1.0-x)-params.a);
126  return integ;
127 }
128 
129 
130 double gscalar2(double r)
131 {
132  __f_params params;
133  params.a=r;
134 
135  double result;
136  gsl_integration_glfixed_table * w
137  = gsl_integration_glfixed_table_alloc(100);
138  gsl_function F;
139 
140  F.function = &__fS2_integrand;
141  F.params = reinterpret_cast<void *>(&params);
142 
143  result = gsl_integration_glfixed (&F, 0, 1, w);
144 
145  gsl_integration_glfixed_table_free (w);
146 
147  return result;
148 }
149 
150 double gpseudoscalar2(double r)
151 {
152  __f_params params;
153  params.a=r;
154 
155  double result;
156  gsl_integration_glfixed_table * w
157  = gsl_integration_glfixed_table_alloc(100);
158  gsl_function F;
159 
160  F.function = &__fPS2_integrand;
161  F.params = reinterpret_cast<void *>(&params);
162 
163  result = gsl_integration_glfixed (&F, 0, 1, w);
164 
165  gsl_integration_glfixed_table_free (w);
166 
167  return result;
168 }
169 
170 
171 
172 gslpp::complex GeneralTHDMMatching::negsquareroot(double x){
173  gslpp::complex result;
174  if (x > 0)
175  {
176  result = sqrt(x);
177  }
178  else{
179  result = gslpp::complex::i()*sqrt(-x);
180  }
181  return result;
182 }
183 
184  gslpp::complex GeneralTHDMMatching::negpow(double basis, double exp){
185  gslpp::complex result;
186  if (basis > 0)
187  {
188  result = pow(basis, exp);
189  }
190  else{
191  result = pow(-basis, exp)*(cos(M_PI*exp) + gslpp::complex::i()*sin(M_PI*exp));
192  }
193  return result;
194 }
195 
196  gslpp::complex GeneralTHDMMatching::neglog(gslpp::complex argument){
197 
198  gslpp::complex result;
199 
200  result = log(argument.abs()) + gslpp::complex::i()*argument.arg();
201 
202 
203  return result;
204 }
205 
206 
207  gslpp::complex GeneralTHDMMatching::TF(double m1, double m2, double m3){
208 
209  double pi=M_PI;
210 
211  double ml, mm, mh;
212  ml=0.0; mm=0.0; mh=0.0;
213  if(m1<=m3 && m3<=m2)
214  {
215  //1<3<2 swap 2 and 3
216  ml = m1;
217  mm = m3;
218  mh = m2;
219  }
220  else if(m3<=m2 && m2<=m1)
221  {
222  //3<2<1 swap 1 and 3
223  ml = m3;
224  mm = m2;
225  mh = m1;
226  }
227  else if(m2<=m1 && m1<=m3)
228  {
229  //2<1<3 swap 1 and 2
230  ml = m2;
231  mm = m1;
232  mh = m3;
233  }
234  else if(m2<=m3 && m3<=m1)
235  {
236  //2<3<1: 3->2, 1->3, 2->1
237  ml = m2;
238  mm = m3;
239  mh = m1;
240  }
241  else if(m3<=m1 && m1<=m2)
242  {
243  //3<1<2 3->1, 1->2, 2->3
244  ml = m3;
245  mm = m1;
246  mh = m2;
247  }
248 
249  else if(m1<=m2 && m2<=m3)
250  {
251  //1<2<3 ok
252  ml = m1;
253  mm = m2;
254  mh = m3;
255  }
256 
257 
258  gslpp::complex lambda = negsquareroot(ml*ml*ml*ml + mm*mm*mm*mm + mh*mh*mh*mh
259  - 2.0*ml*ml*mm*mm - 2.0*mm*mm*mh*mh - 2.0*mh*mh*ml*ml);
260  gslpp::complex ap = 1.0/(2.0*mh*mh)*( mh*mh + ml*ml - mm*mm - lambda);
261  gslpp::complex am = 1.0/(2.0*mh*mh)*( mh*mh - ml*ml + mm*mm - lambda);
262 
263  gslpp::complex result = (lambda/2.0)*(2.0*neglog(ap)*neglog(am)
264  - neglog(ml*ml/(mh*mh))*neglog(mm*mm/(mh*mh)) - 2.0*PolyLog.Li2(ap)
265  - 2.0*PolyLog.Li2(am) + pi*pi/3.0);
266 
267  return result;
268  }
269 
270 
271 
272 double GeneralTHDMMatching::gminus2muNLOF() {
273 
274  updateGTHDMParameters();
275  double aFNphoton, aFNZ;
276  gslpp::complex aFC, gminus2muNLOF;
277 
278 
279  //add something to note that this is only valid in the aligned case and in the CP-conserving limit
280 
281  double pi=M_PI;
282  double GF=myGTHDM.getGF();
283  double aem=myGTHDM.getAle();
284  double mMU=myGTHDM.getLeptons(StandardModel::MU).getMass();
285  double mTAU=myGTHDM.getLeptons(StandardModel::TAU).getMass();
286  double mt=myGTHDM.getQuarks(QCD::TOP).getMass();
287  double mb=myGTHDM.getQuarks(QCD::BOTTOM).getMass();
288  double MZ = myGTHDM.getMz();
289  double MW = myGTHDM.Mw();
290  double MW2 = MW*MW;
291  double cW2 = myGTHDM.cW2();
292 
293  double sW2 = myGTHDM.sW2();
294 
295  double SW4 = sW2*sW2;
296 
297  double mHp2=myGTHDM.getmHp2();
298 
299  gslpp::complex su = myGTHDM.getNu_11();
300  gslpp::complex sd = myGTHDM.getNd_11();
301  gslpp::complex sl = myGTHDM.getNl_11();
302 
303 
304 
305  /*Mass of the physical scalars*/
306 
307 
308  double mH1_2 = myGTHDM.getMyGTHDMCache()->mH1sq;
309  double mH2_2 = myGTHDM.getMyGTHDMCache()->mH2sq;
310  double mH3_2 = myGTHDM.getMyGTHDMCache()->mH3sq;
311 
312 
313 
314  /*eta is the deviation from the SM limit*/
315  double alpha1 = myGTHDM.getalpha1();
316  double beta = atan(myGTHDM.gettanb());
317  double eta = M_PI/2.0-(beta-alpha1);
318 
319 
320  double mt2 = mt*mt;
321  double mb2 = mb*mb;
322  double mTAU2 = mTAU*mTAU;
323 
324  //in the CP-conserving limit su, sd, sl are real. have to fit it
325 
326  double yt_h = 1.0 + eta*su.real();
327  double yb_h = 1.0 + eta*sd.real();
328  double ytau_h = 1.0 + eta*sl.real();
329 
330  double yt_H = -su.real() + eta;
331  double yb_H = -sd.real() + eta;
332  double ytau_H = -sl.real() + eta;
333 
334  double yt_A = su.real();
335  double yb_A = - sd.real();
336  double ytau_A = - sl.real();
337 
338  double rtau_hSM, rtau_h, rtau_H, rtau_A, rt_hSM, rt_h, rt_H, rt_A, rb_hSM, rb_h, rb_H, rb_A;
339  double stau_hSM, stau_h, stau_H, stau_A, st_hSM, st_h, st_H, st_A, sb_hSM, sb_h, sb_H, sb_A;
340 
341  double part_hSM_photon, part_h_photon, part_H_photon, part_A_photon;
342  double part_hSM_Z, part_h_Z, part_H_Z, part_A_Z;
343 
344 
345  if( mH1_2<1.0 || mH2_2<1.0 || mH3_2<1.0 || mHp2<1.0)
346  {
347  throw std::runtime_error("The implemented approximation for g-2_\\mu only works for Higgs masses above 1 GeV.");
348  }
349 
350 
351 
352  rtau_hSM=mTAU*mTAU/mH1_2;
353  rtau_h=mTAU*mTAU/mH1_2;
354  rtau_H=mTAU*mTAU/mH2_2;
355  rtau_A=mTAU*mTAU/mH3_2;
356  rt_hSM=mt*mt/mH1_2;
357  rt_h=mt*mt/mH1_2;
358  rt_H=mt*mt/mH2_2;
359  rt_A=mt*mt/mH3_2;
360  rb_hSM=mb*mb/mH1_2;
361  rb_h=mb*mb/mH1_2;
362  rb_H=mb*mb/mH2_2;
363  rb_A=mb*mb/mH3_2;
364 
365  stau_hSM=mTAU*mTAU/(mH1_2 - MZ*MZ);
366  stau_h=mTAU*mTAU/(mH1_2-MZ*MZ);
367  stau_H=mTAU*mTAU/(mH2_2-MZ*MZ);
368  stau_A=mTAU*mTAU/(mH3_2-MZ*MZ);
369  st_hSM=mt*mt/(15647.5081-MZ*MZ);
370  st_h=mt*mt/(mH1_2-MZ*MZ);
371  st_H=mt*mt/(mH2_2-MZ*MZ);
372  st_A=mt*mt/(mH3_2-MZ*MZ);
373  sb_hSM=mb*mb/(mH1_2 -MZ*MZ);
374  sb_h=mb*mb/(mH1_2-MZ*MZ);
375  sb_H=mb*mb/(mH2_2-MZ*MZ);
376  sb_A=mb*mb/(mH3_2-MZ*MZ);
377 
378  part_hSM_photon=rtau_hSM*gscalar2(rtau_hSM)+(4.0/3.0)*rt_hSM*gscalar2(rt_hSM)+(1.0/3.0)*rb_hSM*gscalar2(rb_hSM);
379  part_h_photon=ytau_h*(ytau_h*rtau_h*gscalar2(rtau_h)+(4.0/3.0)*yt_h*rt_h*gscalar2(rt_h)+(1.0/3.0)*yb_h*rb_h*gscalar2(rb_h));
380  part_H_photon=ytau_H*(ytau_H*rtau_H*gscalar2(rtau_H)+(4.0/3.0)*yt_H*rt_H*gscalar2(rt_H)+(1.0/3.0)*yb_H*rb_H*gscalar2(rb_H));
381  part_A_photon=ytau_A*(ytau_A*rtau_A*gpseudoscalar2(rtau_A)+(4.0/3.0)*yt_A*rt_A*gpseudoscalar2(rt_A)+(1.0/3.0)*yb_A*rb_A*gpseudoscalar2(rb_A));
382 
383  part_hSM_Z = stau_hSM*(3.0/4.0 - cW2)*(3.0/4.0 - cW2)*(gscalar2(rtau_hSM)-gscalar2(mTAU*mTAU/(MZ*MZ)))/(cW2*(1-cW2)) + (-2.0)*st_hSM*(3.0/4.0 - cW2)*(-5.0/12.0 + 2.0/3.0*cW2)*(gscalar2(rt_hSM)-gscalar2(mt*mt/(MZ*MZ)))/(cW2*(1-cW2))+ (1.0)*sb_hSM*(3.0/4.0 - cW2)*(1.0/12.0 + 1.0/3.0*cW2)*(gscalar2(rb_hSM)-gscalar2(mb*mb/(MZ*MZ)))/(cW2*(1-cW2));
384  part_h_Z = ytau_h*(ytau_h*stau_h*(3.0/4.0 - cW2)*(3.0/4.0 - cW2)*(gscalar2(rtau_h)-gscalar2(mTAU*mTAU/(MZ*MZ)))/(cW2*(1-cW2)) + (-2.0)*yt_h*st_h*(3.0/4.0 - cW2)*(-5.0/12.0 + 2.0/3.0*cW2)*(gscalar2(rt_h)-gscalar2(mt*mt/(MZ*MZ)))/(cW2*(1-cW2))+ (1.0)*yb_h*sb_h*(3.0/4.0 - cW2)*(1.0/12.0 + 1.0/3.0*cW2)*(gscalar2(rb_h)-gscalar2(mb*mb/(MZ*MZ)))/(cW2*(1-cW2)));
385  part_H_Z = ytau_H*(ytau_H*stau_h*(3.0/4.0 - cW2)*(3.0/4.0 - cW2)*(gscalar2(rtau_H)-gscalar2(mTAU*mTAU/(MZ*MZ)))/(cW2*(1-cW2)) + (-2.0)*yt_H*st_H*(3.0/4.0 - cW2)*(-5.0/12.0 + 2.0/3.0*cW2)*(gscalar2(rt_H)-gscalar2(mt*mt/(MZ*MZ)))/(cW2*(1-cW2))+ (1.0)*yb_H*sb_H*(3.0/4.0 - cW2)*(1.0/12.0 + 1.0/3.0*cW2)*(gscalar2(rb_H)-gscalar2(mb*mb/(MZ*MZ)))/(cW2*(1-cW2)));
386  part_A_Z = ytau_A*(ytau_A*stau_A*(3.0/4.0 - cW2)*(3.0/4.0 - cW2)*(gpseudoscalar2(rtau_A)-gpseudoscalar2(mTAU*mTAU/(MZ*MZ)))/(cW2*(1-cW2)) + (-2.0)*yt_A*st_A*(3.0/4.0 - cW2)*(-5.0/12.0 + 2.0/3.0*cW2)*(gpseudoscalar2(rt_A)-gpseudoscalar2(mt*mt/(MZ*MZ)))/(cW2*(1-cW2))+ (1.0)*yb_h*sb_A*(3.0/4.0 - cW2)*(1.0/12.0 + 1.0/3.0*cW2)*(gpseudoscalar2(rb_hSM)-gpseudoscalar2(mb*mb/(MZ*MZ)))/(cW2*(1-cW2)));
387 
388 
389  aFNphoton = GF*mMU*mMU/(4.0*pi*pi*pi*sqrt(2.0)) * aem * (-part_hSM_photon+part_h_photon+part_H_photon+part_A_photon);
390  aFNZ = GF*mMU*mMU/(4.0*pi*pi*pi*sqrt(2.0)) * aem * (-part_hSM_Z+part_h_Z+part_H_Z+part_A_Z);
391 
392 
393  aFC = sl*((aem*aem*mTAU*mTAU*mMU*mMU*
394  sl*(mTAU*mTAU/mHp2 -
395  mTAU*mTAU/MW2 + (-1.0/2.0 + mTAU*mTAU/mHp2)*
396  log (mTAU*mTAU/mHp2) - (-1.0/2.0 + mTAU*mTAU/MW2)*
397  log (mTAU*mTAU/MW2) + (mTAU*
398  mTAU*(-1.0 + mTAU*mTAU/mHp2)*(-pi*pi/6.0 +
399  PolyLog.Li2 (1.0 - mHp2/mTAU2)))/
400  mHp2 - (mTAU*
401  mTAU*(-1.0 + mTAU*mTAU/MW2)*(-pi*pi/6.0 +
402  PolyLog.Li2 (1.0 - MW2/mTAU2)))/MW2))/(32.0*
403  MW2*(mHp2 - MW2)*pi*pi*SW4)- (3.0*aem*aem*mMU*mMU*mt2*
404  su*(mb2/mHp2 - mt2/mHp2 - mb2/MW2 +
405  mt2/MW2 + (13.0/12.0 + mb2/mHp2)*
406  log (mb2/mHp2) + (13.0/12.0 - mt2/mHp2)*log (mt2/mHp2) +
407  (-log (mb2/mHp2)*log (mb2/mHp2) + log (mt2/mHp2)*log (mt2/mHp2))/
408  3.0 - (13.0/12.0 + mb2/MW2)*
409  log (mb2/MW2) - (13.0/12.0 - mt2/MW2)*
410  log (mt2/MW2) + (log (mb2/MW2)*log (mb2/MW2) -
411  log (mt2/MW2)*log (mt2/MW2))/
412  3.0 - (4.0*(-1.0 - mb2/mHp2 + mt2/mHp2)*
413  TF (sqrt (mb2/mHp2), sqrt (mt2/mHp2),
414  1.0))/(3.0*(1.0 + (-(mb2/mHp2) + mt2/mHp2)*(-(mb2/mHp2) +
415  mt2/mHp2) -
416  2.0*(mb2/mHp2 +
417  mt2/mHp2))) + ((-((mb2*(5.0/3.0 + mb2/mHp2))/
418  mHp2) + (mt2*(-8.0/3.0 + mt2/mHp2))/mHp2)*
419  TF (sqrt (mb2/mHp2), sqrt (mt2/mHp2),
420  1.0))/(1.0 + (-(mb2/mHp2) + mt2/mHp2)*(-(mb2/mHp2) +
421  mt2/mHp2) -
422  2.0*(mb2/mHp2 + mt2/mHp2))+ ((5.0*mb2)/(3.0*mHp2) - (8.0*
423  mt2)/(3.0*mHp2) + (-(mb2/mHp2) +
424  mt2/mHp2)*(-(mb2/mHp2) +
425  mt2/mHp2))*(-(log (mb2/mt2)*log (mt2/mHp2))/2.0 +
426  PolyLog.Li2 (1.0 - mb2/mt2) - ((-(mb2/mHp2) + mt2/mHp2)*
427  TF (sqrt (mb2/mHp2), sqrt (mt2/mHp2),
428  1.0))/(1.0 + (-(mb2/mHp2) + mt2/mHp2)*(-(mb2/mHp2) +
429  mt2/mHp2) -
430  2.0*(mb2/mHp2 + mt2/mHp2))) + (4.0*(-1.0 - mb2/MW2 +
431  mt2/MW2)*
432  TF (sqrt (mb2/MW2), sqrt (mt2/MW2),
433  1.0))/(3.0*(1.0 + (-(mb2/MW2) + mt2/MW2)*(-(mb2/MW2) +
434  mt2/MW2) -
435  2.0*(mb2/MW2 +
436  mt2/MW2))) - ((-((mb2*(5.0/3.0 + mb2/MW2))/
437  MW2) + (mt2*(-8.0/3.0 + mt2/MW2))/MW2)*
438  TF (sqrt (mb2/MW2), sqrt (mt2/MW2),
439  1.0))/(1.0 + (-(mb2/MW2) + mt2/MW2)*(-(mb2/MW2) +
440  mt2/MW2) -
441  2.0*(mb2/MW2 + mt2/MW2))- ((-(mb2/MW2) +
442  mt2/MW2)*(-(mb2/MW2) + mt2/MW2) + (5.0*mb2)/(3.0*
443  MW2) - (8.0*mt2)/(3.0*
444  MW2))*(-(log (mb2/mt2)*log (mt2/MW2))/2.0 +
445  PolyLog.Li2 (1.0 - mb2/mt2) - ((-(mb2/MW2) + mt2/MW2)*
446  TF (sqrt (mb2/MW2), sqrt (mt2/MW2),
447  1.0))/(1.0 + (-(mb2/MW2) + mt2/MW2)*(-(mb2/MW2) +
448  mt2/MW2) - 2.0*(mb2/MW2 + mt2/MW2)))))/(32.0*
449  MW2*(mHp2 - MW2)*pi*pi*SW4) + (3.0*aem*aem*mb2*mMU*mMU*
450  sd*(mb2/mHp2 - mt2/mHp2 - mb2/MW2 +
451  mt2/MW2 + (1.0/12.0 + mb2/mHp2)*
452  log (mb2/mHp2) + (1.0/12.0 - mt2/mHp2)*log (mt2/mHp2) - (1.0/12.0 + mb2/MW2)*
453  log (mb2/MW2) - (1.0/12.0 - mt2/MW2)*
454  log (mt2/
455  MW2) + ((-((mb2*(-1.0/3.0 + mb2/mHp2))/
456  mHp2) + (mt2*(-2.0/3.0 + mt2/mHp2))/mHp2)*
457  TF (sqrt (mb2/mHp2), sqrt (mt2/mHp2),
458  1.0))/(1.0 + (-(mb2/mHp2) + mt2/mHp2)*(-(mb2/mHp2) +
459  mt2/mHp2) -
460  2.0*(mb2/mHp2 + mt2/mHp2)) + (-mb2/(3.0*mHp2) - (2.0*
461  mt2)/(3.0*mHp2) + (-(mb2/mHp2) +
462  mt2/mHp2)*(-(mb2/mHp2) +
463 
464  mt2/mHp2))*(-(log (mb2/mt2)*log (mt2/mHp2))/2.0 +
465  PolyLog.Li2 (1.0 - mb2/mt2) - ((-(mb2/mHp2) + mt2/mHp2)*
466  TF (sqrt (mb2/mHp2), sqrt (mt2/mHp2),
467  1.0))/(1.0 + (-(mb2/mHp2) + mt2/mHp2)*(-(mb2/mHp2) +
468  mt2/mHp2) -
469  2.0*(mb2/mHp2 +
470  mt2/mHp2))) - ((-((mb2*(-1.0/3.0 + mb2/MW2))/
471  MW2) + (mt2*(-2.0/3.0 + mt2/MW2))/MW2)*
472  TF (sqrt (mb2/MW2), sqrt (mt2/MW2),
473  1.0))/(1.0 + (-(mb2/MW2) + mt2/MW2)*(-(mb2/MW2) +
474  mt2/MW2) -
475  2.0*(mb2/MW2 + mt2/MW2)) - ((-(mb2/MW2) +
476  mt2/MW2)*(-(mb2/MW2) + mt2/MW2) -
477  mb2/(3.0*MW2) - (2.0*mt2)/(3.0*
478  MW2))*(-(log (mb2/mt2)*log (mt2/MW2))/2.0 +
479  PolyLog.Li2 (1.0 - mb2/mt2) - ((-(mb2/MW2) + mt2/MW2)*
480  TF (sqrt (mb2/MW2), sqrt (mt2/MW2),
481  1.0))/(1.0 + (-(mb2/MW2) + mt2/MW2)*(-(mb2/MW2) +
482  mt2/MW2) - 2.0*(mb2/MW2 + mt2/MW2)))))/(32.0*
483  MW2*(mHp2 - MW2)*pi*pi*SW4)) ;
484 
485  gminus2muNLOF = aFNphoton + aFNZ +aFC;
486 
487  return(gminus2muNLOF.real());
488 }
489 
490 
491 
492 
493 double GeneralTHDMMatching::gminus2muNLOB() {
494 
495  updateGTHDMParameters();
496  gslpp::complex aEWadd, aNonYuk, aNonYuk12, aNonYuk3, aNonYuk4, aNonYuk5, aNonYuk6, aNonYuklim ,aYuk, gminus2muNLOB;
497 
498  double pi=M_PI;
499  double aem=myGTHDM.getAle();
500  double mMU=myGTHDM.getLeptons(StandardModel::MU).getMass();
501  double MZ = myGTHDM.getMz();
502  double CW2 = myGTHDM.cW2();
503 
504  double MH=myGTHDM.getMHl();
505  double mHp2=myGTHDM.getmHp2();
506  double mHp=sqrt(mHp2);
507 
508 
509  double vev = myGTHDM.v();
510 
511  double M2 = myGTHDM.getMyGTHDMCache()->M2;
512  double tanb = myGTHDM.gettanb();
513 
514 
515 
516  //double mH1_2 = myGTHDM.getMyGTHDMCache()->mH1sq*myGTHDM.getMyGTHDMCache()->mH1sq;
517  double mH2_2 = myGTHDM.getMyGTHDMCache()->mH2sq;
518  double mH3_2 = myGTHDM.getMyGTHDMCache()->mH3sq;
519 
520  //Lambda5 defined as in 1607.06292, Eq. (14)
521 
522 
523  double Lambda5 = (2.0*M2)/(vev*vev);
524 
525  double sl = (myGTHDM.getNl_11()).real();
526 
527  //This has to be solved to consider the CP-conserving limtit
528 
529  /*eta is the deviation from the SM limit*/
530  double alpha1 = myGTHDM.getalpha1();
531  double beta = atan(myGTHDM.gettanb());
532  double eta = M_PI/2.0-(beta-alpha1);
533 
534  double CW = sqrt(CW2);
535  double CW4 = CW2*CW2;
536  double CW6 = CW4*CW2;
537  double CW8 = CW4*CW4;
538  double CW10 = CW8*CW2;
539  double CW12 = CW10*CW2;
540  double CW14 = CW10*CW4;
541 
542  double MZ2 = MZ*MZ;
543  double MZ4 = MZ2*MZ2;
544  double MZ6 = MZ4*MZ2;
545  double MZ8 = MZ4*MZ4;
546  double MZ10 = MZ8*MZ2;
547  double MZ12 = MZ8*MZ4;
548  double MZ14 = MZ10*MZ4;
549  double MZ16 = MZ8*MZ8;
550 
551  double MH2 = MH*MH;
552  double MH4 = MH2*MH2;
553  double MH6 = MH4*MH2;
554  double MH8 = MH4*MH4;
555  double MH10 = MH8*MH2;
556  double MH12 = MH10*MH2;
557  double MH14 = MH12*MH2;
558  double MH16 = MH10*MH4*MH2;
559 
560  double mH3 = sqrt(mH3_2);
561  double mH3_4 = mH3_2*mH3_2;
562  double mH3_6 = mH3_2*mH3_2*mH3_2;
563  double mH3_8 = mH3_6*mH3_2;
564  double mH3_10 = mH3_8*mH3_2;
565 
566  double mHp4 = mHp2*mHp2;
567  double mHp3 = mHp2*sqrt(mHp2);
568  double mHp6 = mHp4*mHp2;
569  double mHp8 = mHp6*mHp2;
570  double mHp10 = mHp8*mHp2;
571 
572 
573  double mH2 = sqrt(mH2_2);
574  double mH2_4 = mH2_2*mH2_2;
575  double mH2_6 = mH2_4*mH2_2;
576  double mH2_8 = mH2_4*mH2_4;
577  double mH2_10 = mH2_8*mH2_2;
578  double mH2_12 = mH2_10*mH2_2;
579 
580 
581 
582 
583 
584 
585  aEWadd = (eta*aem*aem*mMU*mMU*(-24.0*(1.0 - 4.0*CW2)*(1.0 - 4.0*CW2)*(1.0- 3.0*CW2 + 2.0*CW4)*MH16*
586  pi*pi - 24.0*(1.0- 4.0*CW2)*(1.0- 4.0*CW2)*(1.0- 3.0*CW2 + 2.0*CW4)*MH14*MZ2*
587  (-5.0 - 8.0*CW2 + negsquareroot((MH2*(MH2 - 4.0*MZ2))/MZ4))*pi*pi +
588  256.0*CW4*MZ16*(5.0 - 12.0*CW2 + 8.0*CW4 +
589  9.0*CW8*negsquareroot((MH2*(MH2 - 4.0*CW2*MZ2))/(CW4*MZ4)) -
590  CW6*(-2.0 + 9.0*negsquareroot((MH2*(MH2 - 4.0*CW2*MZ2))/(CW4*MZ4))))*
591  (pi - 4.0*CW2*pi)*(pi - 4.0*CW2*pi) - 24.0*(1.0 - 4.0*CW2)*(1.0 - 4.0*CW2)*(1.0 - 3.0*CW2 + 2*CW4)*MH12*
592  MZ4*(6 + (4.0 + 16.0*CW4 - 3.0*negsquareroot((MH2*(MH2 - 4.0*MZ2))/MZ4) -
593  8.0*CW2*(-5.0 + negsquareroot((MH2*(MH2 - 4.0*MZ2))/MZ4)))*pi*pi) -
594  MH10*MZ6*(-24.0 + 68.0*negsquareroot((MH2*(MH2 - 4.0*MZ2))/MZ4)*pi*pi +
595  12288.0*CW12*(-5.0 + negsquareroot((MH2*(MH2 - 4.0*MZ2))/MZ4))*pi*pi +
596  16.0*CW8*(4512.0 + (-1968.0 + 15.0*negsquareroot(1.0 - 4.0*CW2) - 1168.0*negsquareroot(
597  (MH2*(MH2 - 4.0*MZ2))/MZ4))*pi*pi) -
598  6144.0*CW10*(6.0 + (-16.0 + negsquareroot((MH2*(MH2 - 4.0*MZ2))/MZ4))*pi*pi) -
599  4.0*CW6*(10668.0 + (2784.0 + 75.0*negsquareroot(1.0 - 4.0*CW2) - 3968.0*negsquareroot(
600  (MH2*(MH2 - 4.0*MZ2))/MZ4) - 128.0*negsquareroot(
601  (MH2*(MH2 - 4.0*CW2*MZ2))/(CW4*MZ4)))*pi*pi) +
602  2.0*CW4*(4860.0 + (3264.0 + 57.0*negsquareroot(1.0 - 4.0*CW2)- 1600.0*negsquareroot(
603  (MH2*(MH2 - 4.0*MZ2))/MZ4) - 128.0*negsquareroot(
604  (MH2*(MH2 - 4.0*CW2*MZ2))/(CW4*MZ4)))*pi*pi) -
605  CW2*(651.0 + 2.0*(384.0 + 9.0*negsquareroot(1.0 - 4.0*CW2) + 80.0*negsquareroot(
606  (MH2*(MH2 - 4.0*MZ2))/MZ4) - 16.0*negsquareroot(
607  (MH2*(MH2 - 4.0*CW2*MZ2))/(CW4*MZ4)))*pi*pi)) -
608  2*MH4*MH2*MZ10*(-128.0*CW12*(1824 + (57.0*negsquareroot(1.0 - 4.0*CW2) -
609  128.0*negsquareroot((MH2*(MH2 - 4.0*MZ2))/MZ4))*pi*pi) +
610  10.0*(24.0 + (1.0 - 2*negsquareroot((MH2*(MH2 - 4.0*MZ2))/MZ4))*pi*pi) +
611  8.0*CW2*(-12.0 + (-43.0+ 16.0*negsquareroot((MH2*(MH2 - 4.0*MZ2))/MZ4))*pi*pi) +
612  2*CW6*(36516.0 + (-4664.0 + 2460.0*negsquareroot(1.0 - 4.0*CW2) - 3904.0*negsquareroot(
613  (MH2*(MH2 - 4.0*MZ2))/MZ4) - 123.0*negsquareroot(
614  (MH2*(MH2 - 4.0*CW2*MZ2))/(CW4*MZ4)))*pi*pi) -
615  CW4*(13836 + (-2852 + 504*negsquareroot(1.0 - 4.0*CW2) - 640.0*negsquareroot(
616  (MH2*(MH2 - 4.0*MZ2))/MZ4) - 45.0*negsquareroot(
617  (MH2*(MH2 - 4.0*CW2*MZ2))/(CW4*MZ4)))*pi*pi) -
618  32.0*CW8*(6792.0 + (-406.0 + 519.0*negsquareroot(1.0 - 4.0*CW2) - 800.0*negsquareroot(
619  (MH2*(MH2 - 4.0*MZ2))/MZ4) + 6.0*negsquareroot((MH2*(MH2 -
620  4.0*CW2*MZ2))/(CW4*MZ4)))*pi*pi) +
621  32.0*CW10*(13236 + (-232.0 + 627.0*negsquareroot(1.0 - 4.0*CW2) - 1088.0*negsquareroot(
622  (MH2*(MH2 - 4.0*MZ2))/MZ4) + 57.0*negsquareroot(
623  (MH2*(MH2 - 4.0*CW2*MZ2))/(CW4*MZ4)))*pi*pi)) +
624  MH8*MZ8*(-20.0*(-30.0 + (3.0 + negsquareroot((MH2*(MH2 - 4.0*MZ2))/MZ4))*pi*pi) +
625  12288.0*CW12*(-6.0 + (-4.0 + 3.0*negsquareroot((MH2*(MH2 - 4.0*MZ2))/MZ4))*
626  pi*pi) - 128.0*CW10*(-624 + (-768.0 + 3.0*negsquareroot(1.0 - 4.0*CW2) +
627  448.0*negsquareroot((MH2*(MH2 - 4.0*MZ2))/MZ4))*pi*pi) +
628  2*CW4*(13056.0 + (-1884.0 + 561.0*negsquareroot(1.0 - 4.0*CW2) - 2736.0*negsquareroot(
629  (MH2*(MH2 - 4.0*MZ2))/MZ4) - 29.0*negsquareroot(
630  (MH2*(MH2 - 4.0*CW2*MZ2))/(CW4*MZ4)))*pi*pi) -
631  CW2*(6267.0 + 2.0*(-312.0 + 63.0*negsquareroot(1.0 - 4.0*CW2) - 376.0*negsquareroot(
632  (MH2*(MH2 - 4.0*MZ2))/MZ4) - 16.0*negsquareroot(
633  (MH2*(MH2 - 4.0*CW2*MZ2))/(CW4*MZ4)))*pi*pi) +
634  16.0*CW8*(3144.0 + (-4152.0 + 201.0*negsquareroot(1.0 - 4.0*CW2) + 944.0*negsquareroot(
635  (MH2*(MH2 - 4.0*MZ2))/MZ4) + 198.0*negsquareroot(
636  (MH2*(MH2 - 4.0*CW2*MZ2))/(CW4*MZ4)))*pi*pi) -
637  4.0*CW6*(14748.0 + (-5040.0 + 867.0*negsquareroot(1.0 - 4.0*CW2) - 2592.0*negsquareroot(
638  (MH2*(MH2 - 4.0*MZ2))/MZ4) + 268.0*negsquareroot(
639  (MH2*(MH2 - 4.0*CW2*MZ2))/(CW4*MZ4)))*pi*pi)) -
640  4.0*(negsquareroot(CW2) - 4.0*CW2*negsquareroot(CW2))*(negsquareroot(CW2) - 4.0*CW2*negsquareroot(CW2))*MH2*MZ14*(160.0*pi*pi +
641  64.0*CW4*(-72.0+ (1.0 + 6.0*negsquareroot((MH2*(MH2 - 4.0*MZ2))/MZ4))*pi*pi) -
642  16.0*CW2*(-120.0 + (19.0 + 10.0*negsquareroot((MH2*(MH2 - 4.0*MZ2))/MZ4))*pi*pi) +
643  128.0*CW8*(-108.0 + (1.0 + 6.0*negsquareroot((MH2*(MH2 - 4.0*CW2*MZ2))/
644  (CW4*MZ4)))*pi*pi) - CW6*(-17664.0 +
645  (-96.0 + 256.0*negsquareroot((MH2*(MH2 - 4.0*MZ2))/MZ4) +
646  907.0*negsquareroot((MH2*(MH2 - 4.0*CW2*MZ2))/(CW4*MZ4)))*pi*pi)) -
647  4.0*MH4*MZ12*(-20.0*pi*pi + 9216.0*CW14*(24.0 + negsquareroot(1.0 - 4.0*CW2)*pi*pi) +
648  8.0*CW2*(-120 + (21.0 + 10.0*negsquareroot((MH2*(MH2 - 4.0*MZ2))/MZ4))*pi*pi) -
649  16.0*CW4*(-474.0 + (5.0 + 47.0*negsquareroot((MH2*(MH2 - 4.0*MZ2))/MZ4))*pi*pi) +
650  3.0*CW6*(-6108.0 + (-968.0 + 168.0*negsquareroot(1.0 - 4.0*CW2) + 704.0*negsquareroot(
651  (MH2*(MH2 - 4.0*MZ2))/MZ4) + 77.0*negsquareroot(
652  (MH2*(MH2 - 4.0*CW2*MZ2))/(CW4*MZ4)))*pi*pi) -
653  16.0*CW12*(18432.0 + (-416.0 + 1404.0*negsquareroot(1.0 - 4.0*CW2) -
654  128.0*negsquareroot((MH2*(MH2 - 4.0*MZ2))/MZ4) + 113.0*negsquareroot(
655  (MH2*(MH2 - 4.0*CW2*MZ2))/(CW4*MZ4)))*pi*pi) +
656  8.0*CW10*(5784.0 + (-1616.0 + 2190.0*negsquareroot(1.0 - 4.0*CW2) -
657  256.0*negsquareroot((MH2*(MH2 - 4.0*MZ2))/MZ4) + 575.0*negsquareroot(
658  (MH2*(MH2 - 4.0*CW2*MZ2))/(CW4*MZ4)))*pi*pi) -
659  CW8*(-16800.0 + (-10080.0 + 5064.0*negsquareroot(1.0 - 4.0*CW2) + 1152.0*negsquareroot(
660  (MH2*(MH2 - 4.0*MZ2))/MZ4) + 1961.0*negsquareroot(
661  (MH2*(MH2 - 4.0*CW2*MZ2))/(CW4*MZ4)))*pi*pi)))*sl)/
662  (4608.0*CW4*(1.0 - 4.0*CW2)*(1.0 - 4.0*CW2)*(-1.0 + CW2)*(-1.0 + CW2)*MH4*MZ8*(MH2 - MZ2)*
663  (MH2 - 4.0*CW2*MZ2)*(MH2 - 4.0*CW2*MZ2)*pi*pi) +
664  (eta*aem*aem*mMU*mMU*((71.0 - 278.0*CW2 + 120.0*CW4)*MH4 +
665  6.0*CW2*(9.0 - 88.0*CW2 + 112.0*CW4)*MH2*MZ2 -
666  128.0*CW4*(10.0 - 49.0*CW2 + 36.0*CW4)*MZ4)*sl*log(CW2))/
667  (768.0*CW2*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + 4.0*CW2)*MH2*MZ2*(-MH2 + 4.0*CW2*MZ2)*
668  pi*pi) - (eta*aem*aem*(-3.0 + 4.0*CW2)*mMU*mMU*((1.0 - 5.0*CW2 + 10.0*CW4)*MH2 +
669  (-7.0 + 61.0*CW2 - 162.0*CW4 + 96.0*CW6)*MZ2)*sl*log(CW2)*log(CW2))/
670  (256.0*CW2*negpow((1.0 - 4.0*CW2), 3.0/2.0)*(-1.0 + CW2)*(-1.0 + CW2)*MZ2*(-MH2 + MZ2)*pi*pi) +
671  (eta*aem*aem*(-3.0 + 4.0*CW2)*mMU*mMU*((1.0 - 5.0*CW2 + 10.0*CW4)*MH2 +
672  (-7.0 + 61.0*CW2 - 162.0*CW4 + 96.0*CW6)*MZ2)*sl*log((1.0 - negsquareroot(1.0 - 4.0*CW2))/2.0)*log((1.0 - negsquareroot(1.0 - 4.0*CW2))/2.0))/(128.0*CW2*negpow((1.0 - 4.0*CW2),3.0/2.0)*(-1.0 + CW2)*(-1.0 + CW2)*MZ2*(-MH2 + MZ2)*pi*pi)
673  - (eta*aem*aem*mMU*mMU*negsquareroot((MH4 - 4.0*MH2*MZ2)/MZ4)*
674  (6.0*(1.0 - 3.0*CW2 + 2.0*CW4)*MH4*MH2 - 12.0*(1.0 - 3.0*CW2 + 2.0*CW4)*MH4*MZ2 +
675  (5.0 - 12.0*CW2 + 8.0*CW4)*MH2*MZ4 + 2.0*(5.0 - 12.0*CW2 + 8.0*CW4)*MZ6)*
676  sl*log((2.0 - negsquareroot(MH4/MZ4 - (4.0*MH2)/MZ2) - MH2/MZ2)/2.0)*
677  log((-negsquareroot(MH4/MZ4 - (4.0*MH2)/MZ2) + MH2/MZ2)/2.0))/
678  (192.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*MH2*MZ6*pi*pi) +
679  (eta*aem*aem*mMU*mMU*negsquareroot((MH4 - 4.0*CW2*MH2*MZ2)/(CW4*MZ4))*
680  (-16.0*MH10 + (16.0 + 99.0*CW2)*MH8*MZ2 - 3.0*CW2*(15.0 + 38.0*CW2)*MH4*MH2*
681  MZ4 + 2.0*CW4*(-231.0 + 113.0*CW2)*MH4*MZ6 - 2.0*CW6*(-907.0 + 768.0*CW2)*
682  MH2*MZ8 + 1152.0*CW8*(-1.0 + CW2)*MZ10)*sl*
683  log((2.0 - negsquareroot(MH4/(CW4*MZ4) - (4.0*MH2)/(CW2*MZ2)) -
684  MH2/(CW2*MZ2))/2.0)*
685  log((-negsquareroot(MH4/(CW4*MZ4) - (4.0*MH2)/(CW2*MZ2)) +
686  MH2/(CW2*MZ2))/2.0))/(384.0*CW2*(-1.0 + CW2)*(-1.0 + CW2)*MH4*MZ2*
687  (MH2 - MZ2)*(MH2 - 4.0*CW2*MZ2)*(MH2 - 4.0*CW2*MZ2)*pi*pi) +
688  (eta*aem*aem*mMU*mMU*(-48.0*(1.0 - 3.0*CW2 + 2*CW4)*MH8 +
689  (10.0 + 73.0*CW2 - 512.0*CW4 + 384.0*CW6)*MH4*MH2*MZ2 +
690  (-60.0 + 151.0*CW2 + 258.0*CW4 - 256.0*CW6)*MH4*MZ4 +
691  2*(40 + 24.0*CW2 - 149.0*CW4 + 256.0*CW6)*MH2*MZ6 +
692  64*CW2*(-5.0 + 12.0*CW2 - 28.0*CW4 + 18.0*CW6)*MZ8)*sl*
693  log(MH2/MZ2))/(768.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*MH2*MZ4*(MH2 - MZ2)*
694  (MH2 - 4.0*CW2*MZ2)*pi*pi) - (eta*aem*aem*(-1.0 + 2.0*CW2)*MH4*mMU*mMU*
695  (MH2 - 4.0*MZ2)*sl*log(MH2/MZ2)*log(MH2/MZ2))/(64*CW4*(-1.0 + CW2)*MZ8*
696  pi*pi) - (eta*aem*aem*(-3.0 + 4.0*CW2)*mMU*mMU*((1.0 - 5.0*CW2 + 10.0*CW4)*MH2 +
697  (-7.0 + 61.0*CW2 - 162.0*CW4 + 96.0*CW6)*MZ2)*sl*
698  PolyLog.Li2( (1.0 - negsquareroot(1.0 - 4.0*CW2))/2))/(64.0*CW2*negpow((1.0 - 4.0*CW2), 3.0/2.0)*
699  (-1.0 + CW2)*
700  (-1.0 + CW2)*MZ2*(-MH2 + MZ2)*pi*pi) -
701  (eta*aem*aem*mMU*mMU*(12.0*(1.0 - 3.0*CW2 + 2.0*CW4)*MH10 -
702  48.0*(1.0 - 3.0*CW2 + 2*CW4)*MH8*MZ2 + (17.0 - 48.0*CW2 + 32.0*CW4)*MH4*MH2*
703  MZ4 - 3.0*(5.0 - 12.0*CW2 + 8.0*CW4)*MH2*MZ8 - 4.0*(5.0 - 12.0*CW2 + 8.0*CW4)*
704  MZ10)*sl*PolyLog.Li2(1.0 - MH2/MZ2))/(192.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*MH4*
705  MZ8*pi*pi) + (eta*aem*aem*mMU*mMU*negsquareroot((MH4 - 4.0*MH2*MZ2)/MZ4)*
706  (6.0*(1.0 - 3.0*CW2 + 2.0*CW4)*MH4*MH2 - 12.0*(1.0 - 3.0*CW2 + 2.0*CW4)*MH4*MZ2 +
707  (5.0 - 12.0*CW2 + 8.0*CW4)*MH2*MZ4 + 2.0*(5.0 - 12.0*CW2 + 8.0*CW4)*MZ6)*
708  sl*PolyLog.Li2((2.0 - negsquareroot(MH4/MZ4 - (4.0*MH2)/MZ2) - MH2/MZ2)/2.0))/
709  (192.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*MH2*MZ6*pi*pi) +
710  (eta*aem*aem*mMU*mMU*negsquareroot((MH4 - 4.0*MH2*MZ2)/MZ4)*
711  (6.0*(1.0 - 3.0*CW2 + 2*CW4)*MH4*MH2 - 12.0*(1.0 - 3.0*CW2 + 2.0*CW4)*MH4*MZ2 +
712  (5.0 - 12.0*CW2 + 8.0*CW4)*MH2*MZ4 + 2.0*(5.0 - 12.0*CW2 + 8.0*CW4)*MZ6)*
713  sl*PolyLog.Li2( (-negsquareroot(MH4/MZ4 - (4.0*MH2)/MZ2) + MH2/MZ2)/2.0))/
714  (192.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*MH2*MZ6*pi*pi) +
715  (eta*aem*aem*mMU*mMU*(-16.0*MH4*MH2 + 3.0*CW2*MH4*MZ2 + 12.0*CW4*MH2*MZ4 +
716  16.0*CW6*MZ6)*sl*PolyLog.Li2( 1.0 - MH2/(CW2*MZ2)))/
717  (384.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*MH4*MZ4*pi*pi) +
718  (eta*aem*aem*mMU*mMU*negsquareroot((MH4 - 4.0*CW2*MH2*MZ2)/(CW4*MZ4))*
719  (16.0*MH10 - (16.0 + 99.0*CW2)*MH8*MZ2 + 3.0*CW2*(15.0 + 38.0*CW2)*MH4*MH2*
720  MZ4 + 2*CW4*(231.0 - 113.0*CW2)*MH4*MZ6 + 2.0*CW6*(-907.0 + 768.0*CW2)*
721  MH2*MZ8 - 1152.0*CW8*(-1.0 + CW2)*MZ10)*sl*
722  PolyLog.Li2( (2.0 - negsquareroot(MH4/(CW4*MZ4) - (4.0*MH2)/(CW2*MZ2)) -
723  MH2/(CW2*MZ2))/2.0))/(384.0*CW2*(-1.0 + CW2)*(-1.0 + CW2)*MH4*MZ2*
724  (MH2 - MZ2)*(MH2 - 4.0*CW2*MZ2)*(MH2 - 4.0*CW2*MZ2)*pi*pi) +
725  (eta*aem*aem*mMU*mMU*negsquareroot((MH4 - 4.0*CW2*MH2*MZ2)/(CW4*MZ4))*
726  (16.0*MH10 - (16.0 + 99.0*CW2)*MH8*MZ2 + 3.0*CW2*(15.0 + 38.0*CW2)*MH4*MH2*
727  MZ4 + 2.0*CW4*(231.0 - 113.0*CW2)*MH4*MZ6 + 2.0*CW6*(-907.0 + 768.0*CW2)*
728  MH2*MZ8 - 1152.0*CW8*(-1.0+ CW2)*MZ10)*sl*
729  PolyLog.Li2( (-negsquareroot(MH4/(CW4*MZ4) - (4.0*MH2)/(CW2*MZ2)) +
730  MH2/(CW2*MZ2))/2.0))/(384.0*CW2*(-1.0+ CW2)*(-1.0+ CW2)*MH4*MZ2*
731  (MH2 - MZ2)*(MH2 - 4.0*CW2*MZ2)*(MH2 - 4.0*CW2*MZ2)*pi*pi);
732 
733  if(mH2_2 == mHp2)
734  {
735  if(mH3_2 == mH2_2)
736  {
737  gslpp::complex aNonYuk12 = (aem*aem*mMU*mMU*(15.0*(47.0 - 78.0*CW2 + 132.0*CW4 - 256.0*CW6 + 128.0*CW8)*mH3_4 -
738  80.0*CW2*(1.0 + 7.0*CW2 - 16.0*CW4 + 8.0*CW6)*mH3_2*MZ2 + 24.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*MZ4))/
739  (8640.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*mH3_2*MZ4*pi*pi);
740 
741  gslpp::complex aNonYuklim = (aem*aem*(3.0 - 6.0*CW2 + 4.0*CW4)*mH2_2*mMU*mMU)/(192.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*MZ4*pi*pi);
742 
743  gslpp::complex aNonYuk6 =(aem*aem*(1.0 - 2.0*CW2)*(1.0 - 2.0*CW2)*(5.0 - 16.0*CW2 + 8.0*CW4)*mMU*mMU*(-4.0*mH3_2 + MZ2)
744  *(MZ4 - MZ2*negsquareroot(-4.0*mH3_2*MZ2 + MZ4) +
745  mH3_2*(-4.0*MZ2 + 2.0*negsquareroot(-4.0*mH3_2*MZ2 + MZ4)))*
746  log((2.0*mH3_2 - MZ2 + negsquareroot(-4.0*mH3_2*MZ2 + MZ4))/(2.0*mH3_2)))/
747  (1152.0*CW2*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*MZ6*(-2.0*mH3_2 + MZ2 - negsquareroot(-4.0*mH3_2*MZ2 + MZ4))*pi*pi)
748  +(aem*aem*(5.0 - 16.0*CW2 + 8.0*CW4)*mMU*mMU*(-4.0*mH3_2 + MZ2)*(MZ4 - MZ2*negsquareroot(-4.0*mH3_2*MZ2 + MZ4)
749  + mH3_2*(-4.0*MZ2 + 2.0*negsquareroot(-4.0*mH3_2*MZ2 + MZ4)))*
750  log((2.0*mH3_2 - MZ2 + negsquareroot(-4.0*mH3_2*MZ2 + MZ4))/(2.0*mH3_2)))/
751  (1152.0*CW2*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*MZ6*(-2.0*mH3_2 + MZ2 - negsquareroot(-4.0*mH3_2*MZ2 + MZ4))*pi*pi)
752  -((aem*aem*(7.0 - 14.0*CW2 + 4.0*CW4)*mMU*mMU*(-4.0*mH3_2 + CW2*MZ2)*
753  (CW4*MZ4 + 2.0*mH3_2*negsquareroot(-4.0*CW2*mH3_2*MZ2 + CW4*MZ4) -
754  CW2*(4.0*mH3_2*MZ2 + MZ2*negsquareroot(-4.0*CW2*mH3_2*MZ2 + CW4*MZ4)))*
755  log((2.0*mH3_2 - CW2*MZ2 + negsquareroot(-4.0*CW2*mH3_2*MZ2 + CW4*MZ4))/(2.0*mH3_2)))/
756  (1152.0*CW6*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*MZ6*(-2.0*mH3_2 + CW2*MZ2 -
757  negsquareroot(-4.0*CW2*mH3_2*MZ2 + CW4*MZ4))*pi*pi))-((aem*aem*(7.0 - 14.0*CW2 + 4.0*CW4)*mMU*mMU*(-4.0*mH3_2 + CW2*MZ2)*
758  ((-CW4)*MZ4 - 2.0*mH3_2*negsquareroot(-4.0*CW2*mH3_2*MZ2 + CW4*MZ4) +
759  CW2*(4.0*mH3_2*MZ2 + MZ2*negsquareroot(-4*CW2*mH3_2*MZ2 + CW4*MZ4)))*
760  log((2.0*mH3_2 - CW2*MZ2 + negsquareroot(-4*CW2*mH3_2*MZ2 + CW4*MZ4))/(2.0*mH3_2)))/
761  (1152.0*CW6*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*MZ6*(2.0*mH3_2 - CW2*MZ2 +
762  negsquareroot(-4.0*CW2*mH3_2*MZ2 + CW4*MZ4))*pi*pi));
763 
764 
765  /* std::cout << "aNonYuk12 = " << aNonYuk12 << std::endl;
766  std::cout << "aNonYuklim = " << aNonYuklim << std::endl;
767  std::cout << "aNonYuk6 = " << aNonYuk6 << std::endl;*/
768 
769 
770  aNonYuk = aNonYuk12+aNonYuklim+aNonYuk6;
771 
772  }
773  else{
774 
775  aNonYuk12 = (aem*aem*mMU*
776  mMU*(-15.0*(-25.0 + 32.0*CW2 + CW4 - 16.0*CW6 + 8.0*CW8)*mH3_2*
777  mH3_2*mHp2 -
778  15.0*(-25.0 + 32.0*CW2 + CW4 - 16.0*CW6 + 8.0*CW8)*mH2_4*
779  mHp2 - 15.0*mH2_2*
780  mHp2*((50.0 - 64.0*CW2 + 8.0*CW4)*mHp2 +
781  CW2*(13.0 - 43.0*CW2 + 50.0*CW4 - 20.0*CW6)*MZ2) +
782  2.0*(15.0*(25.0 - 32.0*CW2 + 4.0*CW4)*mHp6 +
783  30.0*CW2*(-17.0 + 41.0*CW2 - 80.0*CW4 + 184.0*CW6 -
784  192.0*CW8 + 64.0*CW10)*mHp4*MZ2 -
785  80.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 - 8.0*CW2 +
786  8.0*CW4)*mHp2*MZ4 +
787  24.0*CW6*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*MZ6) +
788  15.0*mH3_2*
789  mHp2*(-50.0*mHp2 + CW2*(64.0*mHp2 - 13.0*MZ2) +
790  4.0*CW8*(4.0*mH2_2 + 5.0*MZ2) -
791  2.0*CW6*(16.0*mH2_2 + 25.0*MZ2) +
792  CW4*(10.0*mH2_2 - 8.0*mHp2 + 43.0*MZ2))))/(17280.0*
793  CW6*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*mHp2*MZ6*pi*pi) +
794  log(CW2)*((aem*aem*mMU*
795  mMU*(2.0*mH3_2*mH3_2 + 2.0*mH2_4 + 4.0*mHp4 -
796  2.0*CW2*mHp2*MZ2 + mH3_2*(-4.0*mHp2 + CW2*MZ2) +
797  mH2_2*(-4.0*mHp2 + CW2*MZ2)))/(128.0*
798  CW6*(-1.0 + CW2)*(-1.0 + CW2)*MZ6*pi*pi) - (aem*
799  aem*(mH3_2 - mHp2)*mMU*
800  mMU*(mH3_2*mH3_2 - 2.0*mH3_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
801  log(mH3_2/mHp2))/(128.0*CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*
802  pi*pi) - (aem*aem*(mH2_2 - mHp2)*mMU*
803  mMU*(mH2_4 - 2.0*mH2_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
804  log(mH2_2/mHp2))/(128.0*CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*
805  pi*pi));
806 
807  aNonYuk3 = (aem*aem*mMU*
808  mMU*((-7.0 + 14.0*CW2 - 4.0*CW4 + 5.0*CW6 - 16.0*CW8 + 8.0*CW10)*
809  mH3_10 +
810  mH3_8*((7.0 - 14.0*CW2 + 4.0*CW4 - 20.0*CW6 + 64.0*CW8 -
811  32.0*CW10)*
812  mH2_2 + (28.0 - 56.0*CW2 + 16.0*CW4 - 5.0*CW6 +
813  16.0*CW8 - 8.0*CW10)*mHp2 -
814  3.0*CW2*(-19.0 + 26.0*CW2 + CW4 - 16.0*CW6 + 8.0*CW8)*MZ2) +
815  mH3_6*(-14.0*mHp2*(2.0*mH2_2 + 3.0*mHp2) +
816  CW2*(84.0*mHp4 - 93.0*mHp2*MZ2 +
817  mH2_2*(56.0*mHp2 - 57*MZ2)) +
818  8.0*CW10*(6.0*mH2_4 + 3.0*MZ2*(mHp2 + MZ2) +
819  mH2_2*(4.0*mHp2 + 3.0*MZ2)) -
820  4.0*CW8*(24.0*mH2_4 + 4.0*mH2_2*(4.0*mHp2 + 3.0*MZ2) +
821  3.0*MZ2*(4.0*mHp2 + 5.0*MZ2)) +
822  CW6*(30.0*mH2_4 + mH2_2*(20.0*mHp2 + 3.0*MZ2) +
823  3.0*MZ2*(mHp2 + 13.0*MZ2)) +
824  CW4*(mH2_2*(-16.0*mHp2 + 78.0*MZ2) -
825  3.0*(8.0*mHp4 - 38*mHp2*MZ2 + MZ4))) +
826  mH3_2*mH3_2*(42*mH2_2*mHp4 + 28.0*mHp6 -
827  4.0*CW10*(8.0*mH2_6 + 6.0*mH2_2*mHp2*MZ2 +
828  6.0*mHp2*MZ4 - MZ6 + 6.0*mH2_4*(2.0*mHp2 - MZ2)) -
829  CW6*(20.0*mH2_6 + 12*mHp4*MZ2 + 69.0*mHp2*MZ4 +
830  2.0*MZ6 + 3.0*mH2_2*MZ2*(mHp2 - 10.0*MZ2) +
831  15.0*mH2_4*(2.0*mHp2 - MZ2)) +
832  CW2*(-56.0*mHp6 + 15.0*mHp4*MZ2 +
833  mH2_2*(-84.0*mHp4 + 93.0*mHp2*MZ2)) +
834  2.0*CW8*(32.0*mH2_6 + 36*mHp2*MZ4 - MZ6 +
835  24.0*mH2_4*(2.0*mHp2 - MZ2) +
836  6.0*mH2_2*(4.0*mHp2*MZ2 - MZ4)) +
837  CW4*(3.0*mH2_2*(8.0*mHp4 - 38*mHp2*MZ2 - 3.0*MZ4) +
838  2.0*mHp2*(8.0*mHp4 + 3.0*mHp2*MZ2 + 6.0*MZ4))) +
839  mH3_2*(-7.0*(4.0*mH2_2*mHp6 + mHp8) -
840  2.0*CW8*(8.0*mH2_8 + 6.0*mHp4*MZ4 - mH2_2*MZ6 -
841  mHp2*MZ6 + 8*mH2_6*(4.0*mHp2 - 3.0*MZ2) +
842  24.0*mH2_4*MZ2*(-mHp2 + MZ2)) -
843  CW4*mHp4*(4.0*mHp4 + 42*mHp2*MZ2 + 21.0*MZ4 +
844  2.0*mH2_2*(8.0*mHp2 + 3.0*MZ2)) +
845  CW2*(7.0*mHp6*(2.0*mHp2 + 3.0*MZ2) +
846  mH2_2*(56.0*mHp6 - 15.0*mHp4*MZ2)) +
847  4.0*CW10*(2.0*mH2_8 - mH2_2*MZ6 - mHp2*MZ6 +
848  mH2_6*(8.0*mHp2 - 6.0*MZ2) +
849  mH2_4*(-6.0*mHp2*MZ2 + 6.0*MZ4)) +
850  CW6*(5.0*mH2_8 + 5.0*mH2_6*(4.0*mHp2 - 3.0*MZ2) +
851  15.0*mH2_4*MZ2*(-mHp2 + MZ2) +
852  2.0*mHp2*MZ2*(6.0*mHp4 + 21.0*mHp2*MZ2 + MZ4) +
853  2.0*mH2_2*(6.0*mHp4*MZ2 + MZ6))) +
854  mH2_2*mHp2*(7.0*mHp6 - 7.0*CW2*(2.0*mHp6 + 3.0*mHp4*MZ2) +
855  CW4*(4.0*mHp6 + 42*mHp4*MZ2 + 21.0*mHp2*MZ4) -
856  4.0*CW10*(2.0*mH2_6 - 6.0*mH2_4*MZ2 + 6.0*mH2_2*MZ4 -
857  MZ6) + 2.0*
858  CW8*(8.0*mH2_6 - 24.0*mH2_4*MZ2 + 24.0*mH2_2*MZ4 +
859  6.0*mHp2*MZ4 - MZ6) -
860  CW6*(5.0*mH2_6 - 15.0*mH2_4*MZ2 + 15.0*mH2_2*MZ4 +
861  2.0*(6.0*mHp4*MZ2 + 21.0*mHp2*MZ4 + MZ6))))*
862  log(mH3_2/MZ2))/(2304.0*
863  CW8*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*(mH3_2 -
864  mH2_2)*(mH3_2 - mHp2)*MZ8*pi*pi);
865 
866  aNonYuk6 = (aem*aem*(mH3_2 - mHp2)*
867  mMU*mMU*(mH3_2*mH3_2 - 2.0*mH3_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
868  log(mH3_2/mHp2)*log(mHp2/MZ2))/(128.0*
869  CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*pi*pi) + (aem*
870  aem*(mH2_2 - mHp2)*mMU*
871  mMU*(mH2_4 - 2.0*mH2_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
872  log(mH2_2/mHp2)*log(mHp2/MZ2))/(128.0*
873  CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*pi*pi) + (aem*
874  aem*(1.0 - 2.0*CW2)*(1.0 - 2.0*CW2)*(5.0 - 16.0*CW2 + 8.0*CW4)*mMU*
875  mMU*(-4.0*mHp2 + MZ2)*(MZ4 - MZ2*negsquareroot(-4.0*mHp2*MZ2 + MZ4) +
876  mHp2*(-4.0*MZ2 + 2.0*negsquareroot (-4.0*mHp2*MZ2 + MZ4)))*
877  log((2.0*mHp2 - MZ2 + negsquareroot (-4.0*mHp2*MZ2 + MZ4))/(2.0*
878  mHp2)))/(1152.0*CW2*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*
879  MZ6*(-2.0*mHp2 + MZ2 - negsquareroot (-4.0*mHp2*MZ2 + MZ4))*pi*pi) - (aem*
880  aem*(5.0 - 16.0*CW2 + 8.0*CW4)*mMU*
881  mMU*(-4.0*mH3_2*
882  mH2_2 + (mH3_2 + mH2_2 - MZ2)*(mH3_2 + mH2_2 -
883  MZ2))*(mH3_2*mH3_2 +
884  mH3_2*(-2.0*mH2_2 - 2.0*MZ2 +
885  negsquareroot(mH3_2*mH3_2 + (mH2_2 - MZ2)*(mH2_2 - MZ2) -
886  2.0*mH3_2*(mH2_2 + MZ2))) + (mH2_2 - MZ2)*(mH2_2 -
887  MZ2 + negsquareroot(mH3_2*mH3_2 + (mH2_2 - MZ2)*(mH2_2 - MZ2) -
888  2.0*mH3_2*(mH2_2 + MZ2))))*
889  log((mH3_2 + mH2_2 - MZ2 +
890  negsquareroot (-4.0*mH3_2*
891  mH2_2 + (mH3_2 + mH2_2 - MZ2)*(mH3_2 + mH2_2 -
892  MZ2)))/(2.0*mH3*mH2)))/(1152.0*
893  CW2*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*
894  MZ8*(mH3_2 + mH2_2 - MZ2 +
895  negsquareroot (-4.0*mH3_2*
896  mH2_2 + (mH3_2 + mH2_2 - MZ2)*(mH3_2 + mH2_2 - MZ2)))*
897  pi*pi) + (aem*aem*(7.0 - 14.0*CW2 + 4.0*CW4)*mMU*
898  mMU*(-4.0*mH3_2*
899  mHp2 + (mH3_2 + mHp2 - CW2*MZ2)*(mH3_2 + mHp2 -
900  CW2*MZ2))*(mH3_2*mH3_2 +
901  mH3_2*(-2.0*mHp2 - 2.0*CW2*MZ2 +
902  negsquareroot (mH3_2*mH3_2 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
903  2.0*mH3_2*(mHp2 + CW2*MZ2))) + (mHp2 - CW2*MZ2)*(mHp2 -
904  CW2*MZ2 +
905  negsquareroot (mH3_2*mH3_2 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
906  2.0*mH3_2*(mHp2 + CW2*MZ2))))*
907  log((mH3_2 + mHp2 - CW2*MZ2 +
908  negsquareroot (-4.0*mH3_2*
909  mHp2 + (mH3_2 + mHp2 - CW2*MZ2)*(mH3_2 + mHp2 -
910  CW2*MZ2)))/(2.0*mH3*mHp)))/(1152.0*
911  CW8*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*
912  MZ8*(mH3_2 + mHp2 - CW2*MZ2 +
913  negsquareroot (-4.0*mH3_2*
914  mHp2 + (mH3_2 + mHp2 - CW2*MZ2)*(mH3_2 + mHp2 -
915  CW2*MZ2)))*pi*pi) + (aem*aem*(7.0 - 14.0*CW2 + 4.0*CW4)*
916  mMU*mMU*(-4.0*mH2_2*
917  mHp2 + (mH2_2 + mHp2 - CW2*MZ2)*(mH2_2 + mHp2 -
918  CW2*MZ2))*(mH2_4 +
919  mH2_2*(-2.0*mHp2 - 2.0*CW2*MZ2 +
920  negsquareroot (mH2_4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
921  2.0*mH2_2*(mHp2 + CW2*MZ2))) + (mHp2 - CW2*MZ2)*(mHp2 -
922  CW2*MZ2 +
923  negsquareroot (mH2_4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
924  2.0*mH2_2*(mHp2 + CW2*MZ2))))*
925  log((mH2_2 + mHp2 - CW2*MZ2 +
926  negsquareroot (-4.0*mH2_2*
927  mHp2 + (mH2_2 + mHp2 - CW2*MZ2)*(mH2_2 + mHp2 -
928  CW2*MZ2)))/(2.0*mH2*mHp)))/(1152.0*
929  CW8*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*
930  MZ8*(mH2_2 + mHp2 - CW2*MZ2 +
931  negsquareroot(-4.0*mH2_2*
932  mHp2 + (mH2_2 + mHp2 - CW2*MZ2)*(mH2_2 + mHp2 -
933  CW2*MZ2)))*pi*pi) - (aem*aem*(mH3_2 - mHp2)*mMU*
934  mMU*(mH3_2*mH3_2 - 2.0*mH3_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*PolyLog.Li2( 1.0 - mH3_2/mHp2))/(64.0*
935  CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*pi*pi) - (aem*
936  aem*(mH2_2 - mHp2)*mMU*
937  mMU*(mH2_4 - 2.0*mH2_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
938  PolyLog.Li2( 1.0 - mH2_2/mHp2))/(64.0*
939  CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*pi*pi) + (aem*
940  aem*(mH3_2 - mHp2)*mMU*
941  mMU*(-mH3_6 +
942  mH3_2*mH3_2*(3.0*mHp2 + CW2*MZ2) + (mHp3 -
943  CW2*mHp*MZ2)*(mHp3 - CW2*mHp*MZ2) +
944  mH3_2*(-3.0*mHp4 + CW2*mHp2*MZ2))*TF (mH3, mHp, CW*MZ))/(64.0*
945  CW8*(-1.0 + CW2)*(-1.0 + CW2)*
946  MZ8*(mH3_2*mH3_2 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
947  2.0*mH3_2*(mHp2 + CW2*MZ2))*pi*pi) + (aem*aem*(mH2_2 - mHp2)*
948  mMU*mMU*(-mH2_6 +
949  mH2_4*(3.0*mHp2 + CW2*MZ2) + (mHp3 - CW2*mHp*MZ2)*(mHp3 -
950  CW2*mHp*MZ2) + mH2_2*(-3.0*mHp4 + CW2*mHp2*MZ2))*
951  TF(mH2, mHp, CW*MZ))/(64.0*CW8*(-1.0 + CW2)*(-1.0 + CW2)*
952  MZ8*(mH2_4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
953  2.0*mH2_2*(mHp2 + CW2*MZ2))*pi*pi);
954 
955 
956  aNonYuklim = -((aem*aem*mMU*mMU*(12*CW4*mH2_2*(-mH3_2 + mH2_2)*MZ4 +
957  ((7.0 - 7.0*CW2 - 3.0*CW4 - 8.0*CW6 + 8.0*CW8)*mH3_8 +
958  mH3_6*(-4.0*(7.0 - 7.0*CW2 - 3.0*CW4 - 8.0*CW6 + 8.0*CW8)*mH2_2 -
959  3.0*CW2*(7.0 - 7.0*CW2 - 8.0*CW4 + 8.0*CW6)*MZ2) +
960  3.0*mH3_4*(2.0*(7.0 - 7.0*CW2 - 3.0*CW4 - 8.0*CW6 + 8.0*CW8)*mH2_4 +
961  CW2*(-5.0 - 7.0*CW2 - 8.0*CW4 + 8.0*CW6)*mH2_2*MZ2 + CW4*(7.0 - 12.0*CW2 + 8.0*CW4)*
962  MZ4) + mH2_2*((7.0 - 7.0*CW2 - 3.0*CW4 - 8.0*CW6 + 8.0*CW8)*mH2_6 -
963  3.0*CW2*(19.0 - 7.0*CW2 - 8.0*CW4 + 8.0*CW6)*mH2_4*MZ2 +
964  3.0*CW4*(13.0 - 12.0*CW2 + 8.0*CW4)*mH2_2*MZ4 - 2.0*CW6*(1.0+ 2.0*CW2)*MZ6) +
965  mH3_2*(-4.0*(7.0 - 7.0*CW2 - 3.0*CW4 - 8.0*CW6 + 8.0*CW8)*mH2_6 +
966  3.0*CW2*(31.0 - 7.0*CW2 - 8.0*CW4 + 8.0*CW6)*mH2_4*MZ2 - 36.0*CW4*mH2_2*MZ4 +
967  2.0*CW6*(1.0 + 2.0*CW2)*MZ6))*log(mH2_2/MZ2)))/(2304.0*CW8*(-1.0 + CW2)*(-1.0 + CW2)*
968  (mH3_2 - mH2_2)*MZ8*pi*pi));
969 
970  // std::cout << " aNonYuklim =" << aNonYuklim << std::endl;
971 
972 
973  aNonYuk = aNonYuk12+aNonYuk3+ aNonYuklim +aNonYuk6;
974  }
975  }
976  else if (mH3_2 == mHp2){
977 
978  aNonYuk12 = (aem*aem*mMU*
979  mMU*(-15.0*(-25.0 + 32.0*CW2 + CW4 - 16.0*CW6 + 8.0*CW8)*mH3_2*
980  mH3_2*mHp2 -
981  15.0*(-25.0 + 32.0*CW2 + CW4 - 16.0*CW6 + 8.0*CW8)*mH2_4*
982  mHp2 - 15.0*mH2_2*
983  mHp2*((50.0 - 64.0*CW2 + 8.0*CW4)*mHp2 +
984  CW2*(13.0 - 43.0*CW2 + 50.0*CW4 - 20.0*CW6)*MZ2) +
985  2.0*(15.0*(25.0 - 32.0*CW2 + 4.0*CW4)*mHp6 +
986  30.0*CW2*(-17.0 + 41.0*CW2 - 80.0*CW4 + 184.0*CW6 -
987  192.0*CW8 + 64.0*CW10)*mHp4*MZ2 -
988  80.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 - 8.0*CW2 +
989  8.0*CW4)*mHp2*MZ4 +
990  24.0*CW6*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*MZ6) +
991  15.0*mH3_2*
992  mHp2*(-50.0*mHp2 + CW2*(64.0*mHp2 - 13.0*MZ2) +
993  4.0*CW8*(4.0*mH2_2 + 5.0*MZ2) -
994  2.0*CW6*(16.0*mH2_2 + 25.0*MZ2) +
995  CW4*(10.0*mH2_2 - 8.0*mHp2 + 43.0*MZ2))))/(17280.0*
996  CW6*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*mHp2*MZ6*pi*pi) +
997  log(CW2)*((aem*aem*mMU*
998  mMU*(2.0*mH3_2*mH3_2 + 2.0*mH2_4 + 4.0*mHp4 -
999  2.0*CW2*mHp2*MZ2 + mH3_2*(-4.0*mHp2 + CW2*MZ2) +
1000  mH2_2*(-4.0*mHp2 + CW2*MZ2)))/(128.0*
1001  CW6*(-1.0 + CW2)*(-1.0 + CW2)*MZ6*pi*pi) - (aem*
1002  aem*(mH3_2 - mHp2)*mMU*
1003  mMU*(mH3_2*mH3_2 - 2.0*mH3_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
1004  log(mH3_2/mHp2))/(128.0*CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*
1005  pi*pi) - (aem*aem*(mH2_2 - mHp2)*mMU*
1006  mMU*(mH2_4 - 2.0*mH2_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
1007  log(mH2_2/mHp2))/(128.0*CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*
1008  pi*pi));
1009 
1010 
1011  aNonYuk4 = (aem*aem*mMU*
1012  mMU*(-7.0*(mH3_2 - mH2_2)*(mH2_2 - mHp2)*(mH2_2 -
1013  mHp2)*(mH2_2 - mHp2)*(mH2_2 - mHp2) +
1014  CW2*(mH3_2 - mH2_2)*(mH2_2 - mHp2)*(mH2_2 -
1015  mHp2)*(14.0*mH2_4 + 7.0*mHp2*(2.0*mHp2 + 3.0*MZ2) +
1016  mH2_2*(-28.0*mHp2 + 57*MZ2)) -
1017  4.0*CW10*(mH2_2 - mHp2)*(2.0*mH3_8 -
1018  2.0*mH3_6*(4.0*mH2_2 + 3.0*MZ2) +
1019  6.0*mH3_2*mH3_2*(2.0*mH2_4 + mH2_2*MZ2 + MZ4) -
1020  mH3_2*(8.0*mH2_6 - 6.0*mH2_4*MZ2 + MZ6) +
1021  mH2_2*(2.0*mH2_6 - 6.0*mH2_4*MZ2 + 6.0*mH2_2*MZ4 +
1022  MZ6)) +
1023  CW4*(mH3_2*(-4.0*mH2_8 + 2.0*mH2_6*(8.0*mHp2 - 39*MZ2) +
1024  2.0*mH2_2*(8.0*mHp6 + 3.0*mHp4*MZ2) +
1025  mH2_4*(-24.0*mHp4 + 114*mHp2*MZ2 + 9*MZ4) -
1026  mHp4*(4.0*mHp4 + 42*mHp2*MZ2 + 21.0*MZ4)) +
1027  mH2_2*(4.0*mH2_8 + 4.0*mHp8 + 42*mHp6*MZ2 +
1028  21.0*mHp4*MZ4 + mH2_6*(-16.0*mHp2 + 78.0*MZ2) +
1029  3.0*mH2_4*(8.0*mHp4 - 38*mHp2*MZ2 + MZ4) -
1030  2.0*mH2_2*(8.0*mHp6 + 3.0*mHp4*MZ2 + 6.0*mHp2*MZ4))) +
1031  2.0*CW8*(8.0*mH3_8*(mH2_2 - mHp2) -
1032  8*mH3_6*(mH2_2 - mHp2)*(4.0*mH2_2 + 3.0*MZ2) +
1033  24.0*mH3_2*
1034  mH3_2*(mH2_2 - mHp2)*(2.0*mH2_4 + mH2_2*MZ2 + MZ4) +
1035  mH3_2*(-32.0*mH2_8 - 6.0*mHp4*MZ4 - mH2_2*MZ6 +
1036  mHp2*MZ6 + 6.0*mH2_4*MZ2*(-4.0*mHp2 + MZ2) +
1037  8*mH2_6*(4.0*mHp2 + 3.0*MZ2)) +
1038  mH2_2*(8.0*mH2_8 + 6.0*mHp4*MZ4 - mHp2*MZ6 -
1039  8*mH2_6*(mHp2 + 3.0*MZ2) +
1040  6.0*mH2_4*(4.0*mHp2*MZ2 + 5.0*MZ4) +
1041  mH2_2*(-36*mHp2*MZ4 + MZ6))) +
1042  CW6*(-5.0*mH3_8*(mH2_2 - mHp2) +
1043  5.0*mH3_6*(mH2_2 - mHp2)*(4.0*mH2_2 + 3.0*MZ2) -
1044  15.0*mH3_2*
1045  mH3_2*(mH2_2 - mHp2)*(2.0*mH2_4 + mH2_2*MZ2 + MZ4) +
1046  mH3_2*(20.0*mH2_8 + 3.0*mH2_4*MZ2*(mHp2 - 10.0*MZ2) -
1047  mH2_6*(20.0*mHp2 + 3.0*MZ2) +
1048  2.0*mHp2*MZ2*(6.0*mHp4 + 21.0*mHp2*MZ2 + MZ4) -
1049  2.0*mH2_2*(6.0*mHp4*MZ2 + MZ6)) +
1050  mH2_2*(-5.0*mH2_8 + mH2_6*(5.0*mHp2 + 3.0*MZ2) -
1051  3.0*mH2_4*MZ2*(mHp2 + 13.0*MZ2) -
1052  2.0*mHp2*MZ2*(6.0*mHp4 + 21.0*mHp2*MZ2 + MZ4) +
1053  mH2_2*(12*mHp4*MZ2 + 69.0*mHp2*MZ4 + 2.0*MZ6))))*
1054  log(mH2_2/MZ2))/(2304.0*
1055  CW8*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*(mH3_2 -
1056  mH2_2)*(mH2_2 - mHp2)*MZ8*pi*pi);
1057 
1058  aNonYuk6 = (aem*aem*(mH3_2 - mHp2)*
1059  mMU*mMU*(mH3_2*mH3_2 - 2.0*mH3_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
1060  log(mH3_2/mHp2)*log(mHp2/MZ2))/(128.0*
1061  CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*pi*pi) + (aem*
1062  aem*(mH2_2 - mHp2)*mMU*
1063  mMU*(mH2_4 - 2.0*mH2_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
1064  log(mH2_2/mHp2)*log(mHp2/MZ2))/(128.0*
1065  CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*pi*pi) + (aem*
1066  aem*(1.0 - 2.0*CW2)*(1.0 - 2.0*CW2)*(5.0 - 16.0*CW2 + 8.0*CW4)*mMU*
1067  mMU*(-4.0*mHp2 + MZ2)*(MZ4 - MZ2*negsquareroot(-4.0*mHp2*MZ2 + MZ4) +
1068  mHp2*(-4.0*MZ2 + 2.0*negsquareroot (-4.0*mHp2*MZ2 + MZ4)))*
1069  log((2.0*mHp2 - MZ2 + negsquareroot (-4.0*mHp2*MZ2 + MZ4))/(2.0*
1070  mHp2)))/(1152.0*CW2*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*
1071  MZ6*(-2.0*mHp2 + MZ2 - negsquareroot (-4.0*mHp2*MZ2 + MZ4))*pi*pi) - (aem*
1072  aem*(5.0 - 16.0*CW2 + 8.0*CW4)*mMU*
1073  mMU*(-4.0*mH3_2*
1074  mH2_2 + (mH3_2 + mH2_2 - MZ2)*(mH3_2 + mH2_2 -
1075  MZ2))*(mH3_2*mH3_2 +
1076  mH3_2*(-2.0*mH2_2 - 2.0*MZ2 +
1077  negsquareroot(mH3_2*mH3_2 + (mH2_2 - MZ2)*(mH2_2 - MZ2) -
1078  2.0*mH3_2*(mH2_2 + MZ2))) + (mH2_2 - MZ2)*(mH2_2 -
1079  MZ2 + negsquareroot(mH3_2*mH3_2 + (mH2_2 - MZ2)*(mH2_2 - MZ2) -
1080  2.0*mH3_2*(mH2_2 + MZ2))))*
1081  log((mH3_2 + mH2_2 - MZ2 +
1082  negsquareroot (-4.0*mH3_2*
1083  mH2_2 + (mH3_2 + mH2_2 - MZ2)*(mH3_2 + mH2_2 -
1084  MZ2)))/(2.0*mH3*mH2)))/(1152.0*
1085  CW2*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*
1086  MZ8*(mH3_2 + mH2_2 - MZ2 +
1087  negsquareroot (-4.0*mH3_2*
1088  mH2_2 + (mH3_2 + mH2_2 - MZ2)*(mH3_2 + mH2_2 - MZ2)))*
1089  pi*pi) + (aem*aem*(7.0 - 14.0*CW2 + 4.0*CW4)*mMU*
1090  mMU*(-4.0*mH3_2*
1091  mHp2 + (mH3_2 + mHp2 - CW2*MZ2)*(mH3_2 + mHp2 -
1092  CW2*MZ2))*(mH3_2*mH3_2 +
1093  mH3_2*(-2.0*mHp2 - 2.0*CW2*MZ2 +
1094  negsquareroot (mH3_2*mH3_2 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1095  2.0*mH3_2*(mHp2 + CW2*MZ2))) + (mHp2 - CW2*MZ2)*(mHp2 -
1096  CW2*MZ2 +
1097  negsquareroot (mH3_2*mH3_2 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1098  2.0*mH3_2*(mHp2 + CW2*MZ2))))*
1099  log((mH3_2 + mHp2 - CW2*MZ2 +
1100  negsquareroot (-4.0*mH3_2*
1101  mHp2 + (mH3_2 + mHp2 - CW2*MZ2)*(mH3_2 + mHp2 -
1102  CW2*MZ2)))/(2.0*mH3*mHp)))/(1152.0*
1103  CW8*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*
1104  MZ8*(mH3_2 + mHp2 - CW2*MZ2 +
1105  negsquareroot (-4.0*mH3_2*
1106  mHp2 + (mH3_2 + mHp2 - CW2*MZ2)*(mH3_2 + mHp2 -
1107  CW2*MZ2)))*pi*pi) + (aem*aem*(7.0 - 14.0*CW2 + 4.0*CW4)*
1108  mMU*mMU*(-4.0*mH2_2*
1109  mHp2 + (mH2_2 + mHp2 - CW2*MZ2)*(mH2_2 + mHp2 -
1110  CW2*MZ2))*(mH2_4 +
1111  mH2_2*(-2.0*mHp2 - 2.0*CW2*MZ2 +
1112  negsquareroot (mH2_4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1113  2.0*mH2_2*(mHp2 + CW2*MZ2))) + (mHp2 - CW2*MZ2)*(mHp2 -
1114  CW2*MZ2 +
1115  negsquareroot (mH2_4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1116  2.0*mH2_2*(mHp2 + CW2*MZ2))))*
1117  log((mH2_2 + mHp2 - CW2*MZ2 +
1118  negsquareroot (-4.0*mH2_2*
1119  mHp2 + (mH2_2 + mHp2 - CW2*MZ2)*(mH2_2 + mHp2 -
1120  CW2*MZ2)))/(2.0*mH2*mHp)))/(1152.0*
1121  CW8*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*
1122  MZ8*(mH2_2 + mHp2 - CW2*MZ2 +
1123  negsquareroot(-4.0*mH2_2*
1124  mHp2 + (mH2_2 + mHp2 - CW2*MZ2)*(mH2_2 + mHp2 -
1125  CW2*MZ2)))*pi*pi) - (aem*aem*(mH3_2 - mHp2)*mMU*
1126  mMU*(mH3_2*mH3_2 - 2.0*mH3_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*PolyLog.Li2( 1.0 - mH3_2/mHp2))/(64.0*
1127  CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*pi*pi) - (aem*
1128  aem*(mH2_2 - mHp2)*mMU*
1129  mMU*(mH2_4 - 2.0*mH2_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
1130  PolyLog.Li2( 1.0 - mH2_2/mHp2))/(64.0*
1131  CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*pi*pi) + (aem*
1132  aem*(mH3_2 - mHp2)*mMU*
1133  mMU*(-mH3_6 +
1134  mH3_2*mH3_2*(3.0*mHp2 + CW2*MZ2) + (mHp3 -
1135  CW2*mHp*MZ2)*(mHp3 - CW2*mHp*MZ2) +
1136  mH3_2*(-3.0*mHp4 + CW2*mHp2*MZ2))*TF (mH3, mHp, CW*MZ))/(64.0*
1137  CW8*(-1.0 + CW2)*(-1.0 + CW2)*
1138  MZ8*(mH3_2*mH3_2 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1139  2.0*mH3_2*(mHp2 + CW2*MZ2))*pi*pi) + (aem*aem*(mH2_2 - mHp2)*
1140  mMU*mMU*(-mH2_6 +
1141  mH2_4*(3.0*mHp2 + CW2*MZ2) + (mHp3 - CW2*mHp*MZ2)*(mHp3 -
1142  CW2*mHp*MZ2) + mH2_2*(-3.0*mHp4 + CW2*mHp2*MZ2))*
1143  TF(mH2, mHp, CW*MZ))/(64.0*CW8*(-1.0 + CW2)*(-1.0 + CW2)*
1144  MZ8*(mH2_4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1145  2.0*mH2_2*(mHp2 + CW2*MZ2))*pi*pi);
1146 
1147  aNonYuklim = -((aem*aem*mMU*mMU*(12*CW4*mHp2*(-mH2_2 + mHp2)*MZ4 +
1148  ((7.0 - 7.0*CW2 - 3.0*CW4 - 8.0*CW6 + 8.0*CW8)*mH2_8 +
1149  mH2_6*(-4.0*(7.0 - 7.0*CW2 - 3.0*CW4 - 8.0*CW6 + 8.0*CW8)*mHp2 -
1150  3.0*CW2*(7.0 - 7.0*CW2 - 8.0*CW4 + 8.0*CW6)*MZ2) +
1151  3.0*mH2_4*(2.0*(7.0 - 7.0*CW2 - 3.0*CW4 - 8.0*CW6 + 8.0*CW8)*mHp4 +
1152  CW2*(-5.0 - 7.0*CW2 - 8.0*CW4 + 8.0*CW6)*mHp2*MZ2 + CW4*(7.0 - 12.0*CW2 + 8.0*CW4)*
1153  MZ4) + mHp2*((7.0 - 7.0*CW2 - 3.0*CW4 - 8.0*CW6 + 8.0*CW8)*mHp6 -
1154  3.0*CW2*(19.0 - 7.0*CW2 - 8.0*CW4 + 8.0*CW6)*mHp4*MZ2 +
1155  3.0*CW4*(13.0 - 12.0*CW2 + 8.0*CW4)*mHp2*MZ4 - 2.0*CW6*(1.0 + 2.0*CW2)*MZ6) +
1156  mH2_2*(-4.0*(7.0 - 7.0*CW2 - 3.0*CW4 - 8.0*CW6 + 8.0*CW8)*mHp6 +
1157  3.0*CW2*(31.0 - 7.0*CW2 - 8.0*CW4 + 8.0*CW6)*mHp4*MZ2 - 36.0*CW4*mHp2*MZ4 +
1158  2.0*CW6*(1.0 + 2.0*CW2)*MZ6))*log(mHp2/MZ2)))/(2304.0*CW8*(-1.0 + CW2)*(-1.0 + CW2)*
1159  (mH2_2 - mHp2)*MZ8*pi*pi));
1160 
1161  // std::cout << "aNonYuklim = " << aNonYuklim << std::endl;
1162 
1163  aNonYuk = aNonYuk12+aNonYuk4+aNonYuklim+aNonYuk6;
1164 
1165  }
1166  else if(mH2_2 == mH3_2)
1167  {
1168 
1169  aNonYuk12 = (aem*aem*mMU*
1170  mMU*(-15.0*(-25.0 + 32.0*CW2 + CW4 - 16.0*CW6 + 8.0*CW8)*mH3_2*
1171  mH3_2*mHp2 -
1172  15.0*(-25.0 + 32.0*CW2 + CW4 - 16.0*CW6 + 8.0*CW8)*mH2_4*
1173  mHp2 - 15.0*mH2_2*
1174  mHp2*((50.0 - 64.0*CW2 + 8.0*CW4)*mHp2 +
1175  CW2*(13.0 - 43.0*CW2 + 50.0*CW4 - 20.0*CW6)*MZ2) +
1176  2.0*(15.0*(25.0 - 32.0*CW2 + 4.0*CW4)*mHp6 +
1177  30.0*CW2*(-17.0 + 41.0*CW2 - 80.0*CW4 + 184.0*CW6 -
1178  192.0*CW8 + 64.0*CW10)*mHp4*MZ2 -
1179  80.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 - 8.0*CW2 +
1180  8.0*CW4)*mHp2*MZ4 +
1181  24.0*CW6*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*MZ6) +
1182  15.0*mH3_2*
1183  mHp2*(-50.0*mHp2 + CW2*(64.0*mHp2 - 13.0*MZ2) +
1184  4.0*CW8*(4.0*mH2_2 + 5.0*MZ2) -
1185  2.0*CW6*(16.0*mH2_2 + 25.0*MZ2) +
1186  CW4*(10.0*mH2_2 - 8.0*mHp2 + 43.0*MZ2))))/(17280.0*
1187  CW6*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*mHp2*MZ6*pi*pi) +
1188  log(CW2)*((aem*aem*mMU*
1189  mMU*(2.0*mH3_2*mH3_2 + 2.0*mH2_4 + 4.0*mHp4 -
1190  2.0*CW2*mHp2*MZ2 + mH3_2*(-4.0*mHp2 + CW2*MZ2) +
1191  mH2_2*(-4.0*mHp2 + CW2*MZ2)))/(128.0*
1192  CW6*(-1.0 + CW2)*(-1.0 + CW2)*MZ6*pi*pi) - (aem*
1193  aem*(mH3_2 - mHp2)*mMU*
1194  mMU*(mH3_2*mH3_2 - 2.0*mH3_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
1195  log(mH3_2/mHp2))/(128.0*CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*
1196  pi*pi) - (aem*aem*(mH2_2 - mHp2)*mMU*
1197  mMU*(mH2_4 - 2.0*mH2_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
1198  log(mH2_2/mHp2))/(128.0*CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*
1199  pi*pi));
1200 
1201  aNonYuk5 = (aem*aem*mMU*
1202  mMU*(-((7.0 - 14.0*CW2 + 4.0*CW4)*
1203  mH3_8*(mH2_2 - mHp2)) + (7.0 - 14.0*CW2 + 4.0*CW4)*
1204  mH3_6*(mH2_2 - mHp2)*(4.0*mHp2 + 3.0*CW2*MZ2) -
1205  3.0*mH3_2*
1206  mH3_2*(mH2_2 - mHp2)*(2.0*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp4 +
1207  CW2*(-5.0 - 2.0*CW2 + 4.0*CW4)*mHp2*MZ2 +
1208  CW4*(7.0 - 14.0*CW2 + 4.0*CW4)*MZ4) +
1209  mHp2*((7.0 - 14.0*CW2 + 4.0*CW4)*
1210  mH2_8 - (7.0 - 14.0*CW2 + 4.0*CW4)*
1211  mH2_6*(4.0*mHp2 + 3.0*CW2*MZ2) +
1212  3.0*mH2_4*(2.0*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp4 +
1213  CW2*(-5.0 - 2.0*CW2 + 4.0*CW4)*mHp2*MZ2 +
1214  CW4*(7.0 - 14.0*CW2 + 4.0*CW4)*MZ4) +
1215  mH2_2*(-5.0*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp6 +
1216  6.0*CW2*(25.0 - 32.0*CW2 + 4.0*CW4)*mHp4*MZ2 -
1217  3.0*CW4*(29 - 50.0*CW2 + 12*CW4)*mHp2*MZ4 +
1218  4.0*CW6*(1.0 + CW2 - 2.0*CW4)*MZ6) +
1219  2.0*mHp2*((7.0 - 14.0*CW2 + 4.0*CW4)*mHp6 -
1220  3.0*CW2*(19.0 - 26.0*CW2 + 4.0*CW4)*mHp4*MZ2 +
1221  3.0*CW4*(13.0 - 20.0*CW2 + 4.0*CW4)*mHp2*MZ4 +
1222  2.0*CW6*(-1.0 - CW2 + 2.0*CW4)*MZ6)) +
1223  mH3_2*((-7.0 + 14.0*CW2 - 4.0*CW4)*
1224  mH2_8 + (7.0 - 14.0*CW2 + 4.0*CW4)*
1225  mH2_6*(4.0*mHp2 + 3.0*CW2*MZ2) -
1226  3.0*mH2_4*(2.0*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp4 +
1227  CW2*(-5.0 - 2.0*CW2 + 4.0*CW4)*mHp2*MZ2 +
1228  CW4*(7.0 - 14.0*CW2 + 4.0*CW4)*MZ4) +
1229  mHp2*(-5.0*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp6 +
1230  6.0*CW2*(25.0 - 32.0*CW2 + 4.0*CW4)*mHp4*MZ2 -
1231  3.0*CW4*(29 - 50.0*CW2 + 12*CW4)*mHp2*MZ4 +
1232  4.0*CW6*(1.0 + CW2 - 2.0*CW4)*MZ6) +
1233  2.0*mH2_2*(4.0*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp6 -
1234  3.0*CW2*(31 - 38*CW2 + 4.0*CW4)*mHp4*MZ2 +
1235  6.0*CW4*(8 - 15.0*CW2 + 4.0*CW4)*mHp2*MZ4 +
1236  2.0*CW6*(-1.0 - CW2 + 2.0*CW4)*MZ6)))*
1237  log(mHp2/MZ2))/(2304.0*
1238  CW8*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*(mH3_2 -
1239  mHp2)*(-mH2_2 + mHp2)*MZ8*pi*pi);
1240 
1241  aNonYuk6 = (aem*aem*(mH3_2 - mHp2)*
1242  mMU*mMU*(mH3_2*mH3_2 - 2.0*mH3_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
1243  log(mH3_2/mHp2)*log(mHp2/MZ2))/(128.0*
1244  CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*pi*pi) + (aem*
1245  aem*(mH2_2 - mHp2)*mMU*
1246  mMU*(mH2_4 - 2.0*mH2_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
1247  log(mH2_2/mHp2)*log(mHp2/MZ2))/(128.0*
1248  CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*pi*pi) + (aem*
1249  aem*(1.0 - 2.0*CW2)*(1.0 - 2.0*CW2)*(5.0 - 16.0*CW2 + 8.0*CW4)*mMU*
1250  mMU*(-4.0*mHp2 + MZ2)*(MZ4 - MZ2*negsquareroot(-4.0*mHp2*MZ2 + MZ4) +
1251  mHp2*(-4.0*MZ2 + 2.0*negsquareroot (-4.0*mHp2*MZ2 + MZ4)))*
1252  log((2.0*mHp2 - MZ2 + negsquareroot (-4.0*mHp2*MZ2 + MZ4))/(2.0*
1253  mHp2)))/(1152.0*CW2*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*
1254  MZ6*(-2.0*mHp2 + MZ2 - negsquareroot (-4.0*mHp2*MZ2 + MZ4))*pi*pi) - (aem*
1255  aem*(5.0 - 16.0*CW2 + 8.0*CW4)*mMU*
1256  mMU*(-4.0*mH3_2*
1257  mH2_2 + (mH3_2 + mH2_2 - MZ2)*(mH3_2 + mH2_2 -
1258  MZ2))*(mH3_2*mH3_2 +
1259  mH3_2*(-2.0*mH2_2 - 2.0*MZ2 +
1260  negsquareroot(mH3_2*mH3_2 + (mH2_2 - MZ2)*(mH2_2 - MZ2) -
1261  2.0*mH3_2*(mH2_2 + MZ2))) + (mH2_2 - MZ2)*(mH2_2 -
1262  MZ2 + negsquareroot(mH3_2*mH3_2 + (mH2_2 - MZ2)*(mH2_2 - MZ2) -
1263  2.0*mH3_2*(mH2_2 + MZ2))))*
1264  log((mH3_2 + mH2_2 - MZ2 +
1265  negsquareroot (-4.0*mH3_2*
1266  mH2_2 + (mH3_2 + mH2_2 - MZ2)*(mH3_2 + mH2_2 -
1267  MZ2)))/(2.0*mH3*mH2)))/(1152.0*
1268  CW2*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*
1269  MZ8*(mH3_2 + mH2_2 - MZ2 +
1270  negsquareroot (-4.0*mH3_2*
1271  mH2_2 + (mH3_2 + mH2_2 - MZ2)*(mH3_2 + mH2_2 - MZ2)))*
1272  pi*pi) + (aem*aem*(7.0 - 14.0*CW2 + 4.0*CW4)*mMU*
1273  mMU*(-4.0*mH3_2*
1274  mHp2 + (mH3_2 + mHp2 - CW2*MZ2)*(mH3_2 + mHp2 -
1275  CW2*MZ2))*(mH3_2*mH3_2 +
1276  mH3_2*(-2.0*mHp2 - 2.0*CW2*MZ2 +
1277  negsquareroot (mH3_2*mH3_2 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1278  2.0*mH3_2*(mHp2 + CW2*MZ2))) + (mHp2 - CW2*MZ2)*(mHp2 -
1279  CW2*MZ2 +
1280  negsquareroot (mH3_2*mH3_2 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1281  2.0*mH3_2*(mHp2 + CW2*MZ2))))*
1282  log((mH3_2 + mHp2 - CW2*MZ2 +
1283  negsquareroot (-4.0*mH3_2*
1284  mHp2 + (mH3_2 + mHp2 - CW2*MZ2)*(mH3_2 + mHp2 -
1285  CW2*MZ2)))/(2.0*mH3*mHp)))/(1152.0*
1286  CW8*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*
1287  MZ8*(mH3_2 + mHp2 - CW2*MZ2 +
1288  negsquareroot (-4.0*mH3_2*
1289  mHp2 + (mH3_2 + mHp2 - CW2*MZ2)*(mH3_2 + mHp2 -
1290  CW2*MZ2)))*pi*pi) + (aem*aem*(7.0 - 14.0*CW2 + 4.0*CW4)*
1291  mMU*mMU*(-4.0*mH2_2*
1292  mHp2 + (mH2_2 + mHp2 - CW2*MZ2)*(mH2_2 + mHp2 -
1293  CW2*MZ2))*(mH2_4 +
1294  mH2_2*(-2.0*mHp2 - 2.0*CW2*MZ2 +
1295  negsquareroot (mH2_4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1296  2.0*mH2_2*(mHp2 + CW2*MZ2))) + (mHp2 - CW2*MZ2)*(mHp2 -
1297  CW2*MZ2 +
1298  negsquareroot (mH2_4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1299  2.0*mH2_2*(mHp2 + CW2*MZ2))))*
1300  log((mH2_2 + mHp2 - CW2*MZ2 +
1301  negsquareroot (-4.0*mH2_2*
1302  mHp2 + (mH2_2 + mHp2 - CW2*MZ2)*(mH2_2 + mHp2 -
1303  CW2*MZ2)))/(2.0*mH2*mHp)))/(1152.0*
1304  CW8*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*
1305  MZ8*(mH2_2 + mHp2 - CW2*MZ2 +
1306  negsquareroot(-4.0*mH2_2*
1307  mHp2 + (mH2_2 + mHp2 - CW2*MZ2)*(mH2_2 + mHp2 -
1308  CW2*MZ2)))*pi*pi) - (aem*aem*(mH3_2 - mHp2)*mMU*
1309  mMU*(mH3_2*mH3_2 - 2.0*mH3_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*PolyLog.Li2( 1.0 - mH3_2/mHp2))/(64.0*
1310  CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*pi*pi) - (aem*
1311  aem*(mH2_2 - mHp2)*mMU*
1312  mMU*(mH2_4 - 2.0*mH2_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
1313  PolyLog.Li2( 1.0 - mH2_2/mHp2))/(64.0*
1314  CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*pi*pi) + (aem*
1315  aem*(mH3_2 - mHp2)*mMU*
1316  mMU*(-mH3_6 +
1317  mH3_2*mH3_2*(3.0*mHp2 + CW2*MZ2) + (mHp3 -
1318  CW2*mHp*MZ2)*(mHp3 - CW2*mHp*MZ2) +
1319  mH3_2*(-3.0*mHp4 + CW2*mHp2*MZ2))*TF (mH3, mHp, CW*MZ))/(64.0*
1320  CW8*(-1.0 + CW2)*(-1.0 + CW2)*
1321  MZ8*(mH3_2*mH3_2 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1322  2.0*mH3_2*(mHp2 + CW2*MZ2))*pi*pi) + (aem*aem*(mH2_2 - mHp2)*
1323  mMU*mMU*(-mH2_6 +
1324  mH2_4*(3.0*mHp2 + CW2*MZ2) + (mHp3 - CW2*mHp*MZ2)*(mHp3 -
1325  CW2*mHp*MZ2) + mH2_2*(-3.0*mHp4 + CW2*mHp2*MZ2))*
1326  TF(mH2, mHp, CW*MZ))/(64.0*CW8*(-1.0 + CW2)*(-1.0 + CW2)*
1327  MZ8*(mH2_4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1328  2.0*mH2_2*(mHp2 + CW2*MZ2))*pi*pi);
1329 
1330 
1331  aNonYuklim = (aem*aem*mMU*mMU*(6.0*CW4*(-1.0 + 7.0*CW2 - 10.0*CW4 + 4.0*CW6)*mH3_2*(mH3_2 - mHp2)*MZ4 +
1332  ((-7.0 + 14.0*CW2 - 4.0*CW4)*mH3_8 + mH3_6*(4.0*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp2 +
1333  3.0*CW2*(19.0 - 26*CW2 + 4*CW4)*MZ2) - 3*mH3_4*(2*(7 - 14*CW2 + 4*CW4)*mHp4 +
1334  CW2*(31.0 - 38.0*CW2 + 4.0*CW4)*mHp2*MZ2 + CW4*(1.0 - 8.0*CW2 + 4.0*CW4)*MZ4) +
1335  mHp2*((-7.0 + 14.0*CW2 - 4.0*CW4)*mHp6 + 3.0*CW2*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp4*MZ2 -
1336  3*CW4*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp2*MZ4 + 2.0*CW6*(1.0 + CW2 - 2.0*CW4)*MZ6) +
1337  mH3_2*(4.0*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp6 + 3.0*CW2*(5.0 + 2*CW2 - 4.0*CW4)*mHp4*MZ2 +
1338  6.0*CW4*(2.0 - 9.0*CW2 + 4.0*CW4)*mHp2*MZ4 + 2.0*CW6*(-1.0 - CW2 + 2.0*CW4)*MZ6))*
1339  log(mH3_2/MZ2)))/(1152.0*CW8*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*(mH3_2 - mHp2)*MZ8*pi*pi);
1340 
1341  // std::cout << " aNonYuklim = " << aNonYuklim << std::endl;
1342 
1343  aNonYuk = aNonYuk12+ aNonYuklim +aNonYuk5+aNonYuk6;
1344 
1345  }
1346 
1347  else{
1348 
1349  aNonYuk = (aem*aem*mMU*
1350  mMU*(-15.0*(-25.0 + 32.0*CW2 + CW4 - 16.0*CW6 + 8.0*CW8)*mH3_2*
1351  mH3_2*mHp2 -
1352  15.0*(-25.0 + 32.0*CW2 + CW4 - 16.0*CW6 + 8.0*CW8)*mH2_4*
1353  mHp2 - 15.0*mH2_2*
1354  mHp2*((50.0 - 64.0*CW2 + 8.0*CW4)*mHp2 +
1355  CW2*(13.0 - 43.0*CW2 + 50.0*CW4 - 20.0*CW6)*MZ2) +
1356  2.0*(15.0*(25.0 - 32.0*CW2 + 4.0*CW4)*mHp6 +
1357  30.0*CW2*(-17.0 + 41.0*CW2 - 80.0*CW4 + 184.0*CW6 -
1358  192.0*CW8 + 64.0*CW10)*mHp4*MZ2 -
1359  80.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 - 8.0*CW2 +
1360  8.0*CW4)*mHp2*MZ4 +
1361  24.0*CW6*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*MZ6) +
1362  15.0*mH3_2*
1363  mHp2*(-50.0*mHp2 + CW2*(64.0*mHp2 - 13.0*MZ2) +
1364  4.0*CW8*(4.0*mH2_2 + 5.0*MZ2) -
1365  2.0*CW6*(16.0*mH2_2 + 25.0*MZ2) +
1366  CW4*(10.0*mH2_2 - 8.0*mHp2 + 43.0*MZ2))))/(17280.0*
1367  CW6*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*mHp2*MZ6*pi*pi) +
1368  log(CW2)*((aem*aem*mMU*
1369  mMU*(2.0*mH3_2*mH3_2 + 2.0*mH2_4 + 4.0*mHp4 -
1370  2.0*CW2*mHp2*MZ2 + mH3_2*(-4.0*mHp2 + CW2*MZ2) +
1371  mH2_2*(-4.0*mHp2 + CW2*MZ2)))/(128.0*
1372  CW6*(-1.0 + CW2)*(-1.0 + CW2)*MZ6*pi*pi) - (aem*
1373  aem*(mH3_2 - mHp2)*mMU*
1374  mMU*(mH3_2*mH3_2 - 2.0*mH3_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
1375  log(mH3_2/mHp2))/(128.0*CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*
1376  pi*pi) - (aem*aem*(mH2_2 - mHp2)*mMU*
1377  mMU*(mH2_4 - 2.0*mH2_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
1378  log(mH2_2/mHp2))/(128.0*CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*
1379  pi*pi)) + (aem*aem*mMU*
1380  mMU*((-7.0 + 14.0*CW2 - 4.0*CW4 + 5.0*CW6 - 16.0*CW8 + 8.0*CW10)*
1381  mH3_10 +
1382  mH3_8*((7.0 - 14.0*CW2 + 4.0*CW4 - 20.0*CW6 + 64.0*CW8 -
1383  32.0*CW10)*
1384  mH2_2 + (28.0 - 56.0*CW2 + 16.0*CW4 - 5.0*CW6 +
1385  16.0*CW8 - 8.0*CW10)*mHp2 -
1386  3.0*CW2*(-19.0 + 26.0*CW2 + CW4 - 16.0*CW6 + 8.0*CW8)*MZ2) +
1387  mH3_6*(-14.0*mHp2*(2.0*mH2_2 + 3.0*mHp2) +
1388  CW2*(84.0*mHp4 - 93.0*mHp2*MZ2 +
1389  mH2_2*(56.0*mHp2 - 57*MZ2)) +
1390  8.0*CW10*(6.0*mH2_4 + 3.0*MZ2*(mHp2 + MZ2) +
1391  mH2_2*(4.0*mHp2 + 3.0*MZ2)) -
1392  4.0*CW8*(24.0*mH2_4 + 4.0*mH2_2*(4.0*mHp2 + 3.0*MZ2) +
1393  3.0*MZ2*(4.0*mHp2 + 5.0*MZ2)) +
1394  CW6*(30.0*mH2_4 + mH2_2*(20.0*mHp2 + 3.0*MZ2) +
1395  3.0*MZ2*(mHp2 + 13.0*MZ2)) +
1396  CW4*(mH2_2*(-16.0*mHp2 + 78.0*MZ2) -
1397  3.0*(8.0*mHp4 - 38*mHp2*MZ2 + MZ4))) +
1398  mH3_2*mH3_2*(42*mH2_2*mHp4 + 28.0*mHp6 -
1399  4.0*CW10*(8.0*mH2_6 + 6.0*mH2_2*mHp2*MZ2 +
1400  6.0*mHp2*MZ4 - MZ6 + 6.0*mH2_4*(2.0*mHp2 - MZ2)) -
1401  CW6*(20.0*mH2_6 + 12*mHp4*MZ2 + 69.0*mHp2*MZ4 +
1402  2.0*MZ6 + 3.0*mH2_2*MZ2*(mHp2 - 10.0*MZ2) +
1403  15.0*mH2_4*(2.0*mHp2 - MZ2)) +
1404  CW2*(-56.0*mHp6 + 15.0*mHp4*MZ2 +
1405  mH2_2*(-84.0*mHp4 + 93.0*mHp2*MZ2)) +
1406  2.0*CW8*(32.0*mH2_6 + 36*mHp2*MZ4 - MZ6 +
1407  24.0*mH2_4*(2.0*mHp2 - MZ2) +
1408  6.0*mH2_2*(4.0*mHp2*MZ2 - MZ4)) +
1409  CW4*(3.0*mH2_2*(8.0*mHp4 - 38*mHp2*MZ2 - 3.0*MZ4) +
1410  2.0*mHp2*(8.0*mHp4 + 3.0*mHp2*MZ2 + 6.0*MZ4))) +
1411  mH3_2*(-7.0*(4.0*mH2_2*mHp6 + mHp8) -
1412  2.0*CW8*(8.0*mH2_8 + 6.0*mHp4*MZ4 - mH2_2*MZ6 -
1413  mHp2*MZ6 + 8*mH2_6*(4.0*mHp2 - 3.0*MZ2) +
1414  24.0*mH2_4*MZ2*(-mHp2 + MZ2)) -
1415  CW4*mHp4*(4.0*mHp4 + 42*mHp2*MZ2 + 21.0*MZ4 +
1416  2.0*mH2_2*(8.0*mHp2 + 3.0*MZ2)) +
1417  CW2*(7.0*mHp6*(2.0*mHp2 + 3.0*MZ2) +
1418  mH2_2*(56.0*mHp6 - 15.0*mHp4*MZ2)) +
1419  4.0*CW10*(2.0*mH2_8 - mH2_2*MZ6 - mHp2*MZ6 +
1420  mH2_6*(8.0*mHp2 - 6.0*MZ2) +
1421  mH2_4*(-6.0*mHp2*MZ2 + 6.0*MZ4)) +
1422  CW6*(5.0*mH2_8 + 5.0*mH2_6*(4.0*mHp2 - 3.0*MZ2) +
1423  15.0*mH2_4*MZ2*(-mHp2 + MZ2) +
1424  2.0*mHp2*MZ2*(6.0*mHp4 + 21.0*mHp2*MZ2 + MZ4) +
1425  2.0*mH2_2*(6.0*mHp4*MZ2 + MZ6))) +
1426  mH2_2*mHp2*(7.0*mHp6 - 7.0*CW2*(2.0*mHp6 + 3.0*mHp4*MZ2) +
1427  CW4*(4.0*mHp6 + 42*mHp4*MZ2 + 21.0*mHp2*MZ4) -
1428  4.0*CW10*(2.0*mH2_6 - 6.0*mH2_4*MZ2 + 6.0*mH2_2*MZ4 -
1429  MZ6) + 2.0*
1430  CW8*(8.0*mH2_6 - 24.0*mH2_4*MZ2 + 24.0*mH2_2*MZ4 +
1431  6.0*mHp2*MZ4 - MZ6) -
1432  CW6*(5.0*mH2_6 - 15.0*mH2_4*MZ2 + 15.0*mH2_2*MZ4 +
1433  2.0*(6.0*mHp4*MZ2 + 21.0*mHp2*MZ4 + MZ6))))*
1434  log(mH3_2/MZ2))/(2304.0*
1435  CW8*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*(mH3_2 -
1436  mH2_2)*(mH3_2 - mHp2)*MZ8*pi*pi) + (aem*aem*mMU*
1437  mMU*(-7.0*(mH3_2 - mH2_2)*(mH2_2 - mHp2)*(mH2_2 -
1438  mHp2)*(mH2_2 - mHp2)*(mH2_2 - mHp2) +
1439  CW2*(mH3_2 - mH2_2)*(mH2_2 - mHp2)*(mH2_2 -
1440  mHp2)*(14.0*mH2_4 + 7.0*mHp2*(2.0*mHp2 + 3.0*MZ2) +
1441  mH2_2*(-28.0*mHp2 + 57*MZ2)) -
1442  4.0*CW10*(mH2_2 - mHp2)*(2.0*mH3_8 -
1443  2.0*mH3_6*(4.0*mH2_2 + 3.0*MZ2) +
1444  6.0*mH3_2*mH3_2*(2.0*mH2_4 + mH2_2*MZ2 + MZ4) -
1445  mH3_2*(8.0*mH2_6 - 6.0*mH2_4*MZ2 + MZ6) +
1446  mH2_2*(2.0*mH2_6 - 6.0*mH2_4*MZ2 + 6.0*mH2_2*MZ4 +
1447  MZ6)) +
1448  CW4*(mH3_2*(-4.0*mH2_8 + 2.0*mH2_6*(8.0*mHp2 - 39*MZ2) +
1449  2.0*mH2_2*(8.0*mHp6 + 3.0*mHp4*MZ2) +
1450  mH2_4*(-24.0*mHp4 + 114*mHp2*MZ2 + 9*MZ4) -
1451  mHp4*(4.0*mHp4 + 42*mHp2*MZ2 + 21.0*MZ4)) +
1452  mH2_2*(4.0*mH2_8 + 4.0*mHp8 + 42*mHp6*MZ2 +
1453  21.0*mHp4*MZ4 + mH2_6*(-16.0*mHp2 + 78.0*MZ2) +
1454  3.0*mH2_4*(8.0*mHp4 - 38*mHp2*MZ2 + MZ4) -
1455  2.0*mH2_2*(8.0*mHp6 + 3.0*mHp4*MZ2 + 6.0*mHp2*MZ4))) +
1456  2.0*CW8*(8.0*mH3_8*(mH2_2 - mHp2) -
1457  8*mH3_6*(mH2_2 - mHp2)*(4.0*mH2_2 + 3.0*MZ2) +
1458  24.0*mH3_2*
1459  mH3_2*(mH2_2 - mHp2)*(2.0*mH2_4 + mH2_2*MZ2 + MZ4) +
1460  mH3_2*(-32.0*mH2_8 - 6.0*mHp4*MZ4 - mH2_2*MZ6 +
1461  mHp2*MZ6 + 6.0*mH2_4*MZ2*(-4.0*mHp2 + MZ2) +
1462  8*mH2_6*(4.0*mHp2 + 3.0*MZ2)) +
1463  mH2_2*(8.0*mH2_8 + 6.0*mHp4*MZ4 - mHp2*MZ6 -
1464  8*mH2_6*(mHp2 + 3.0*MZ2) +
1465  6.0*mH2_4*(4.0*mHp2*MZ2 + 5.0*MZ4) +
1466  mH2_2*(-36*mHp2*MZ4 + MZ6))) +
1467  CW6*(-5.0*mH3_8*(mH2_2 - mHp2) +
1468  5.0*mH3_6*(mH2_2 - mHp2)*(4.0*mH2_2 + 3.0*MZ2) -
1469  15.0*mH3_2*
1470  mH3_2*(mH2_2 - mHp2)*(2.0*mH2_4 + mH2_2*MZ2 + MZ4) +
1471  mH3_2*(20.0*mH2_8 + 3.0*mH2_4*MZ2*(mHp2 - 10.0*MZ2) -
1472  mH2_6*(20.0*mHp2 + 3.0*MZ2) +
1473  2.0*mHp2*MZ2*(6.0*mHp4 + 21.0*mHp2*MZ2 + MZ4) -
1474  2.0*mH2_2*(6.0*mHp4*MZ2 + MZ6)) +
1475  mH2_2*(-5.0*mH2_8 + mH2_6*(5.0*mHp2 + 3.0*MZ2) -
1476  3.0*mH2_4*MZ2*(mHp2 + 13.0*MZ2) -
1477  2.0*mHp2*MZ2*(6.0*mHp4 + 21.0*mHp2*MZ2 + MZ4) +
1478  mH2_2*(12*mHp4*MZ2 + 69.0*mHp2*MZ4 + 2.0*MZ6))))*
1479  log(mH2_2/MZ2))/(2304.0*
1480  CW8*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*(mH3_2 -
1481  mH2_2)*(mH2_2 - mHp2)*MZ8*pi*pi) + (aem*aem*mMU*
1482  mMU*(-((7.0 - 14.0*CW2 + 4.0*CW4)*
1483  mH3_8*(mH2_2 - mHp2)) + (7.0 - 14.0*CW2 + 4.0*CW4)*
1484  mH3_6*(mH2_2 - mHp2)*(4.0*mHp2 + 3.0*CW2*MZ2) -
1485  3.0*mH3_2*
1486  mH3_2*(mH2_2 - mHp2)*(2.0*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp4 +
1487  CW2*(-5.0 - 2.0*CW2 + 4.0*CW4)*mHp2*MZ2 +
1488  CW4*(7.0 - 14.0*CW2 + 4.0*CW4)*MZ4) +
1489  mHp2*((7.0 - 14.0*CW2 + 4.0*CW4)*
1490  mH2_8 - (7.0 - 14.0*CW2 + 4.0*CW4)*
1491  mH2_6*(4.0*mHp2 + 3.0*CW2*MZ2) +
1492  3.0*mH2_4*(2.0*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp4 +
1493  CW2*(-5.0 - 2.0*CW2 + 4.0*CW4)*mHp2*MZ2 +
1494  CW4*(7.0 - 14.0*CW2 + 4.0*CW4)*MZ4) +
1495  mH2_2*(-5.0*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp6 +
1496  6.0*CW2*(25.0 - 32.0*CW2 + 4.0*CW4)*mHp4*MZ2 -
1497  3.0*CW4*(29 - 50.0*CW2 + 12*CW4)*mHp2*MZ4 +
1498  4.0*CW6*(1.0 + CW2 - 2.0*CW4)*MZ6) +
1499  2.0*mHp2*((7.0 - 14.0*CW2 + 4.0*CW4)*mHp6 -
1500  3.0*CW2*(19.0 - 26.0*CW2 + 4.0*CW4)*mHp4*MZ2 +
1501  3.0*CW4*(13.0 - 20.0*CW2 + 4.0*CW4)*mHp2*MZ4 +
1502  2.0*CW6*(-1.0 - CW2 + 2.0*CW4)*MZ6)) +
1503  mH3_2*((-7.0 + 14.0*CW2 - 4.0*CW4)*
1504  mH2_8 + (7.0 - 14.0*CW2 + 4.0*CW4)*
1505  mH2_6*(4.0*mHp2 + 3.0*CW2*MZ2) -
1506  3.0*mH2_4*(2.0*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp4 +
1507  CW2*(-5.0 - 2.0*CW2 + 4.0*CW4)*mHp2*MZ2 +
1508  CW4*(7.0 - 14.0*CW2 + 4.0*CW4)*MZ4) +
1509  mHp2*(-5.0*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp6 +
1510  6.0*CW2*(25.0 - 32.0*CW2 + 4.0*CW4)*mHp4*MZ2 -
1511  3.0*CW4*(29 - 50.0*CW2 + 12*CW4)*mHp2*MZ4 +
1512  4.0*CW6*(1.0 + CW2 - 2.0*CW4)*MZ6) +
1513  2.0*mH2_2*(4.0*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp6 -
1514  3.0*CW2*(31 - 38*CW2 + 4.0*CW4)*mHp4*MZ2 +
1515  6.0*CW4*(8 - 15.0*CW2 + 4.0*CW4)*mHp2*MZ4 +
1516  2.0*CW6*(-1.0 - CW2 + 2.0*CW4)*MZ6)))*
1517  log(mHp2/MZ2))/(2304.0*
1518  CW8*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*(mH3_2 -
1519  mHp2)*(-mH2_2 + mHp2)*MZ8*pi*pi) + (aem*aem*(mH3_2 - mHp2)*
1520  mMU*mMU*(mH3_2*mH3_2 - 2.0*mH3_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
1521  log(mH3_2/mHp2)*log(mHp2/MZ2))/(128.0*
1522  CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*pi*pi) + (aem*
1523  aem*(mH2_2 - mHp2)*mMU*
1524  mMU*(mH2_4 - 2.0*mH2_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
1525  log(mH2_2/mHp2)*log(mHp2/MZ2))/(128.0*
1526  CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*pi*pi) + (aem*
1527  aem*(1.0 - 2.0*CW2)*(1.0 - 2.0*CW2)*(5.0 - 16.0*CW2 + 8.0*CW4)*mMU*
1528  mMU*(-4.0*mHp2 + MZ2)*(MZ4 - MZ2*negsquareroot(-4.0*mHp2*MZ2 + MZ4) +
1529  mHp2*(-4.0*MZ2 + 2.0*negsquareroot (-4.0*mHp2*MZ2 + MZ4)))*
1530  log((2.0*mHp2 - MZ2 + negsquareroot (-4.0*mHp2*MZ2 + MZ4))/(2.0*
1531  mHp2)))/(1152.0*CW2*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*
1532  MZ6*(-2.0*mHp2 + MZ2 - negsquareroot (-4.0*mHp2*MZ2 + MZ4))*pi*pi) - (aem*
1533  aem*(5.0 - 16.0*CW2 + 8.0*CW4)*mMU*
1534  mMU*(-4.0*mH3_2*
1535  mH2_2 + (mH3_2 + mH2_2 - MZ2)*(mH3_2 + mH2_2 -
1536  MZ2))*(mH3_2*mH3_2 +
1537  mH3_2*(-2.0*mH2_2 - 2.0*MZ2 +
1538  negsquareroot(mH3_2*mH3_2 + (mH2_2 - MZ2)*(mH2_2 - MZ2) -
1539  2.0*mH3_2*(mH2_2 + MZ2))) + (mH2_2 - MZ2)*(mH2_2 -
1540  MZ2 + negsquareroot(mH3_2*mH3_2 + (mH2_2 - MZ2)*(mH2_2 - MZ2) -
1541  2.0*mH3_2*(mH2_2 + MZ2))))*
1542  log((mH3_2 + mH2_2 - MZ2 +
1543  negsquareroot (-4.0*mH3_2*
1544  mH2_2 + (mH3_2 + mH2_2 - MZ2)*(mH3_2 + mH2_2 -
1545  MZ2)))/(2.0*mH3*mH2)))/(1152.0*
1546  CW2*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*
1547  MZ8*(mH3_2 + mH2_2 - MZ2 +
1548  negsquareroot (-4.0*mH3_2*
1549  mH2_2 + (mH3_2 + mH2_2 - MZ2)*(mH3_2 + mH2_2 - MZ2)))*
1550  pi*pi) + (aem*aem*(7.0 - 14.0*CW2 + 4.0*CW4)*mMU*
1551  mMU*(-4.0*mH3_2*
1552  mHp2 + (mH3_2 + mHp2 - CW2*MZ2)*(mH3_2 + mHp2 -
1553  CW2*MZ2))*(mH3_2*mH3_2 +
1554  mH3_2*(-2.0*mHp2 - 2.0*CW2*MZ2 +
1555  negsquareroot (mH3_2*mH3_2 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1556  2.0*mH3_2*(mHp2 + CW2*MZ2))) + (mHp2 - CW2*MZ2)*(mHp2 -
1557  CW2*MZ2 +
1558  negsquareroot (mH3_2*mH3_2 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1559  2.0*mH3_2*(mHp2 + CW2*MZ2))))*
1560  log((mH3_2 + mHp2 - CW2*MZ2 +
1561  negsquareroot (-4.0*mH3_2*
1562  mHp2 + (mH3_2 + mHp2 - CW2*MZ2)*(mH3_2 + mHp2 -
1563  CW2*MZ2)))/(2.0*mH3*mHp)))/(1152.0*
1564  CW8*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*
1565  MZ8*(mH3_2 + mHp2 - CW2*MZ2 +
1566  negsquareroot (-4.0*mH3_2*
1567  mHp2 + (mH3_2 + mHp2 - CW2*MZ2)*(mH3_2 + mHp2 -
1568  CW2*MZ2)))*pi*pi) + (aem*aem*(7.0 - 14.0*CW2 + 4.0*CW4)*
1569  mMU*mMU*(-4.0*mH2_2*
1570  mHp2 + (mH2_2 + mHp2 - CW2*MZ2)*(mH2_2 + mHp2 -
1571  CW2*MZ2))*(mH2_4 +
1572  mH2_2*(-2.0*mHp2 - 2.0*CW2*MZ2 +
1573  negsquareroot (mH2_4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1574  2.0*mH2_2*(mHp2 + CW2*MZ2))) + (mHp2 - CW2*MZ2)*(mHp2 -
1575  CW2*MZ2 +
1576  negsquareroot (mH2_4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1577  2.0*mH2_2*(mHp2 + CW2*MZ2))))*
1578  log((mH2_2 + mHp2 - CW2*MZ2 +
1579  negsquareroot (-4.0*mH2_2*
1580  mHp2 + (mH2_2 + mHp2 - CW2*MZ2)*(mH2_2 + mHp2 -
1581  CW2*MZ2)))/(2.0*mH2*mHp)))/(1152.0*
1582  CW8*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*
1583  MZ8*(mH2_2 + mHp2 - CW2*MZ2 +
1584  negsquareroot(-4.0*mH2_2*
1585  mHp2 + (mH2_2 + mHp2 - CW2*MZ2)*(mH2_2 + mHp2 -
1586  CW2*MZ2)))*pi*pi) - (aem*aem*(mH3_2 - mHp2)*mMU*
1587  mMU*(mH3_2*mH3_2 - 2.0*mH3_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*PolyLog.Li2( 1.0 - mH3_2/mHp2))/(64.0*
1588  CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*pi*pi) - (aem*
1589  aem*(mH2_2 - mHp2)*mMU*
1590  mMU*(mH2_4 - 2.0*mH2_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
1591  PolyLog.Li2( 1.0 - mH2_2/mHp2))/(64.0*
1592  CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*pi*pi) + (aem*
1593  aem*(mH3_2 - mHp2)*mMU*
1594  mMU*(-mH3_6 +
1595  mH3_2*mH3_2*(3.0*mHp2 + CW2*MZ2) + (mHp3 -
1596  CW2*mHp*MZ2)*(mHp3 - CW2*mHp*MZ2) +
1597  mH3_2*(-3.0*mHp4 + CW2*mHp2*MZ2))*TF (mH3, mHp, CW*MZ))/(64.0*
1598  CW8*(-1.0 + CW2)*(-1.0 + CW2)*
1599  MZ8*(mH3_2*mH3_2 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1600  2.0*mH3_2*(mHp2 + CW2*MZ2))*pi*pi) + (aem*aem*(mH2_2 - mHp2)*
1601  mMU*mMU*(-mH2_6 +
1602  mH2_4*(3.0*mHp2 + CW2*MZ2) + (mHp3 - CW2*mHp*MZ2)*(mHp3 -
1603  CW2*mHp*MZ2) + mH2_2*(-3.0*mHp4 + CW2*mHp2*MZ2))*
1604  TF(mH2, mHp, CW*MZ))/(64.0*CW8*(-1.0 + CW2)*(-1.0 + CW2)*
1605  MZ8*(mH2_4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1606  2.0*mH2_2*(mHp2 + CW2*MZ2))*pi*pi);
1607 
1608  }
1609 
1610 
1611 /*gslpp::complex aNonYuk12 = (aem*aem*mMU*
1612  mMU*(-15.0*(-25.0 + 32.0*CW2 + CW4 - 16.0*CW6 + 8.0*CW8)*mH3_2*
1613  mH3_2*mHp2 -
1614  15.0*(-25.0 + 32.0*CW2 + CW4 - 16.0*CW6 + 8.0*CW8)*mH2_4*
1615  mHp2 - 15.0*mH2_2*
1616  mHp2*((50.0 - 64.0*CW2 + 8.0*CW4)*mHp2 +
1617  CW2*(13.0 - 43.0*CW2 + 50.0*CW4 - 20.0*CW6)*MZ2) +
1618  2.0*(15.0*(25.0 - 32.0*CW2 + 4.0*CW4)*mHp6 +
1619  30.0*CW2*(-17.0 + 41.0*CW2 - 80.0*CW4 + 184.0*CW6 -
1620  192.0*CW8 + 64.0*CW10)*mHp4*MZ2 -
1621  80.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 - 8.0*CW2 +
1622  8.0*CW4)*mHp2*MZ4 +
1623  24.0*CW6*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*MZ6) +
1624  15.0*mH3_2*
1625  mHp2*(-50.0*mHp2 + CW2*(64.0*mHp2 - 13.0*MZ2) +
1626  4.0*CW8*(4.0*mH2_2 + 5.0*MZ2) -
1627  2.0*CW6*(16.0*mH2_2 + 25.0*MZ2) +
1628  CW4*(10.0*mH2_2 - 8.0*mHp2 + 43.0*MZ2))))/(17280.0*
1629  CW6*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*mHp2*MZ6*pi*pi) +
1630  log(CW2)*((aem*aem*mMU*
1631  mMU*(2.0*mH3_2*mH3_2 + 2.0*mH2_4 + 4.0*mHp4 -
1632  2.0*CW2*mHp2*MZ2 + mH3_2*(-4.0*mHp2 + CW2*MZ2) +
1633  mH2_2*(-4.0*mHp2 + CW2*MZ2)))/(128.0*
1634  CW6*(-1.0 + CW2)*(-1.0 + CW2)*MZ6*pi*pi) - (aem*
1635  aem*(mH3_2 - mHp2)*mMU*
1636  mMU*(mH3_2*mH3_2 - 2.0*mH3_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
1637  log(mH3_2/mHp2))/(128.0*CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*
1638  pi*pi) - (aem*aem*(mH2_2 - mHp2)*mMU*
1639  mMU*(mH2_4 - 2.0*mH2_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
1640  log(mH2_2/mHp2))/(128.0*CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*
1641  pi*pi));
1642 
1643 
1644 gslpp::complex aNonYuk3 = (aem*aem*mMU*
1645  mMU*((-7.0 + 14.0*CW2 - 4.0*CW4 + 5.0*CW6 - 16.0*CW8 + 8.0*CW10)*
1646  mH3_10 +
1647  mH3_8*((7.0 - 14.0*CW2 + 4.0*CW4 - 20.0*CW6 + 64.0*CW8 -
1648  32.0*CW10)*
1649  mH2_2 + (28.0 - 56.0*CW2 + 16.0*CW4 - 5.0*CW6 +
1650  16.0*CW8 - 8.0*CW10)*mHp2 -
1651  3.0*CW2*(-19.0 + 26.0*CW2 + CW4 - 16.0*CW6 + 8.0*CW8)*MZ2) +
1652  mH3_6*(-14.0*mHp2*(2.0*mH2_2 + 3.0*mHp2) +
1653  CW2*(84.0*mHp4 - 93.0*mHp2*MZ2 +
1654  mH2_2*(56.0*mHp2 - 57*MZ2)) +
1655  8.0*CW10*(6.0*mH2_4 + 3.0*MZ2*(mHp2 + MZ2) +
1656  mH2_2*(4.0*mHp2 + 3.0*MZ2)) -
1657  4.0*CW8*(24.0*mH2_4 + 4.0*mH2_2*(4.0*mHp2 + 3.0*MZ2) +
1658  3.0*MZ2*(4.0*mHp2 + 5.0*MZ2)) +
1659  CW6*(30.0*mH2_4 + mH2_2*(20.0*mHp2 + 3.0*MZ2) +
1660  3.0*MZ2*(mHp2 + 13.0*MZ2)) +
1661  CW4*(mH2_2*(-16.0*mHp2 + 78.0*MZ2) -
1662  3.0*(8.0*mHp4 - 38*mHp2*MZ2 + MZ4))) +
1663  mH3_2*mH3_2*(42*mH2_2*mHp4 + 28.0*mHp6 -
1664  4.0*CW10*(8.0*mH2_6 + 6.0*mH2_2*mHp2*MZ2 +
1665  6.0*mHp2*MZ4 - MZ6 + 6.0*mH2_4*(2.0*mHp2 - MZ2)) -
1666  CW6*(20.0*mH2_6 + 12*mHp4*MZ2 + 69.0*mHp2*MZ4 +
1667  2.0*MZ6 + 3.0*mH2_2*MZ2*(mHp2 - 10.0*MZ2) +
1668  15.0*mH2_4*(2.0*mHp2 - MZ2)) +
1669  CW2*(-56.0*mHp6 + 15.0*mHp4*MZ2 +
1670  mH2_2*(-84.0*mHp4 + 93.0*mHp2*MZ2)) +
1671  2.0*CW8*(32.0*mH2_6 + 36*mHp2*MZ4 - MZ6 +
1672  24.0*mH2_4*(2.0*mHp2 - MZ2) +
1673  6.0*mH2_2*(4.0*mHp2*MZ2 - MZ4)) +
1674  CW4*(3.0*mH2_2*(8.0*mHp4 - 38*mHp2*MZ2 - 3.0*MZ4) +
1675  2.0*mHp2*(8.0*mHp4 + 3.0*mHp2*MZ2 + 6.0*MZ4))) +
1676  mH3_2*(-7.0*(4.0*mH2_2*mHp6 + mHp8) -
1677  2.0*CW8*(8.0*mH2_8 + 6.0*mHp4*MZ4 - mH2_2*MZ6 -
1678  mHp2*MZ6 + 8*mH2_6*(4.0*mHp2 - 3.0*MZ2) +
1679  24.0*mH2_4*MZ2*(-mHp2 + MZ2)) -
1680  CW4*mHp4*(4.0*mHp4 + 42*mHp2*MZ2 + 21.0*MZ4 +
1681  2.0*mH2_2*(8.0*mHp2 + 3.0*MZ2)) +
1682  CW2*(7.0*mHp6*(2.0*mHp2 + 3.0*MZ2) +
1683  mH2_2*(56.0*mHp6 - 15.0*mHp4*MZ2)) +
1684  4.0*CW10*(2.0*mH2_8 - mH2_2*MZ6 - mHp2*MZ6 +
1685  mH2_6*(8.0*mHp2 - 6.0*MZ2) +
1686  mH2_4*(-6.0*mHp2*MZ2 + 6.0*MZ4)) +
1687  CW6*(5.0*mH2_8 + 5.0*mH2_6*(4.0*mHp2 - 3.0*MZ2) +
1688  15.0*mH2_4*MZ2*(-mHp2 + MZ2) +
1689  2.0*mHp2*MZ2*(6.0*mHp4 + 21.0*mHp2*MZ2 + MZ4) +
1690  2.0*mH2_2*(6.0*mHp4*MZ2 + MZ6))) +
1691  mH2_2*mHp2*(7.0*mHp6 - 7.0*CW2*(2.0*mHp6 + 3.0*mHp4*MZ2) +
1692  CW4*(4.0*mHp6 + 42*mHp4*MZ2 + 21.0*mHp2*MZ4) -
1693  4.0*CW10*(2.0*mH2_6 - 6.0*mH2_4*MZ2 + 6.0*mH2_2*MZ4 -
1694  MZ6) + 2.0*
1695  CW8*(8.0*mH2_6 - 24.0*mH2_4*MZ2 + 24.0*mH2_2*MZ4 +
1696  6.0*mHp2*MZ4 - MZ6) -
1697  CW6*(5.0*mH2_6 - 15.0*mH2_4*MZ2 + 15.0*mH2_2*MZ4 +
1698  2.0*(6.0*mHp4*MZ2 + 21.0*mHp2*MZ4 + MZ6))))*
1699  log(mH3_2/MZ2))/(2304.0*
1700  CW8*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*(mH3_2 -
1701  mH2_2)*(mH3_2 - mHp2)*MZ8*pi*pi);
1702 
1703 gslpp::complex aNonYuk4 = (aem*aem*mMU*
1704  mMU*(-7.0*(mH3_2 - mH2_2)*(mH2_2 - mHp2)*(mH2_2 -
1705  mHp2)*(mH2_2 - mHp2)*(mH2_2 - mHp2) +
1706  CW2*(mH3_2 - mH2_2)*(mH2_2 - mHp2)*(mH2_2 -
1707  mHp2)*(14.0*mH2_4 + 7.0*mHp2*(2.0*mHp2 + 3.0*MZ2) +
1708  mH2_2*(-28.0*mHp2 + 57*MZ2)) -
1709  4.0*CW10*(mH2_2 - mHp2)*(2.0*mH3_8 -
1710  2.0*mH3_6*(4.0*mH2_2 + 3.0*MZ2) +
1711  6.0*mH3_2*mH3_2*(2.0*mH2_4 + mH2_2*MZ2 + MZ4) -
1712  mH3_2*(8.0*mH2_6 - 6.0*mH2_4*MZ2 + MZ6) +
1713  mH2_2*(2.0*mH2_6 - 6.0*mH2_4*MZ2 + 6.0*mH2_2*MZ4 +
1714  MZ6)) +
1715  CW4*(mH3_2*(-4.0*mH2_8 + 2.0*mH2_6*(8.0*mHp2 - 39*MZ2) +
1716  2.0*mH2_2*(8.0*mHp6 + 3.0*mHp4*MZ2) +
1717  mH2_4*(-24.0*mHp4 + 114*mHp2*MZ2 + 9*MZ4) -
1718  mHp4*(4.0*mHp4 + 42*mHp2*MZ2 + 21.0*MZ4)) +
1719  mH2_2*(4.0*mH2_8 + 4.0*mHp8 + 42*mHp6*MZ2 +
1720  21.0*mHp4*MZ4 + mH2_6*(-16.0*mHp2 + 78.0*MZ2) +
1721  3.0*mH2_4*(8.0*mHp4 - 38*mHp2*MZ2 + MZ4) -
1722  2.0*mH2_2*(8.0*mHp6 + 3.0*mHp4*MZ2 + 6.0*mHp2*MZ4))) +
1723  2.0*CW8*(8.0*mH3_8*(mH2_2 - mHp2) -
1724  8*mH3_6*(mH2_2 - mHp2)*(4.0*mH2_2 + 3.0*MZ2) +
1725  24.0*mH3_2*
1726  mH3_2*(mH2_2 - mHp2)*(2.0*mH2_4 + mH2_2*MZ2 + MZ4) +
1727  mH3_2*(-32.0*mH2_8 - 6.0*mHp4*MZ4 - mH2_2*MZ6 +
1728  mHp2*MZ6 + 6.0*mH2_4*MZ2*(-4.0*mHp2 + MZ2) +
1729  8*mH2_6*(4.0*mHp2 + 3.0*MZ2)) +
1730  mH2_2*(8.0*mH2_8 + 6.0*mHp4*MZ4 - mHp2*MZ6 -
1731  8*mH2_6*(mHp2 + 3.0*MZ2) +
1732  6.0*mH2_4*(4.0*mHp2*MZ2 + 5.0*MZ4) +
1733  mH2_2*(-36*mHp2*MZ4 + MZ6))) +
1734  CW6*(-5.0*mH3_8*(mH2_2 - mHp2) +
1735  5.0*mH3_6*(mH2_2 - mHp2)*(4.0*mH2_2 + 3.0*MZ2) -
1736  15.0*mH3_2*
1737  mH3_2*(mH2_2 - mHp2)*(2.0*mH2_4 + mH2_2*MZ2 + MZ4) +
1738  mH3_2*(20.0*mH2_8 + 3.0*mH2_4*MZ2*(mHp2 - 10.0*MZ2) -
1739  mH2_6*(20.0*mHp2 + 3.0*MZ2) +
1740  2.0*mHp2*MZ2*(6.0*mHp4 + 21.0*mHp2*MZ2 + MZ4) -
1741  2.0*mH2_2*(6.0*mHp4*MZ2 + MZ6)) +
1742  mH2_2*(-5.0*mH2_8 + mH2_6*(5.0*mHp2 + 3.0*MZ2) -
1743  3.0*mH2_4*MZ2*(mHp2 + 13.0*MZ2) -
1744  2.0*mHp2*MZ2*(6.0*mHp4 + 21.0*mHp2*MZ2 + MZ4) +
1745  mH2_2*(12*mHp4*MZ2 + 69.0*mHp2*MZ4 + 2.0*MZ6))))*
1746  log(mH2_2/MZ2))/(2304.0*
1747  CW8*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*(mH3_2 -
1748  mH2_2)*(mH2_2 - mHp2)*MZ8*pi*pi);
1749 
1750 
1751 gslpp::complex aNonYuk5 = (aem*aem*mMU*
1752  mMU*(-((7.0 - 14.0*CW2 + 4.0*CW4)*
1753  mH3_8*(mH2_2 - mHp2)) + (7.0 - 14.0*CW2 + 4.0*CW4)*
1754  mH3_6*(mH2_2 - mHp2)*(4.0*mHp2 + 3.0*CW2*MZ2) -
1755  3.0*mH3_2*
1756  mH3_2*(mH2_2 - mHp2)*(2.0*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp4 +
1757  CW2*(-5.0 - 2.0*CW2 + 4.0*CW4)*mHp2*MZ2 +
1758  CW4*(7.0 - 14.0*CW2 + 4.0*CW4)*MZ4) +
1759  mHp2*((7.0 - 14.0*CW2 + 4.0*CW4)*
1760  mH2_8 - (7.0 - 14.0*CW2 + 4.0*CW4)*
1761  mH2_6*(4.0*mHp2 + 3.0*CW2*MZ2) +
1762  3.0*mH2_4*(2.0*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp4 +
1763  CW2*(-5.0 - 2.0*CW2 + 4.0*CW4)*mHp2*MZ2 +
1764  CW4*(7.0 - 14.0*CW2 + 4.0*CW4)*MZ4) +
1765  mH2_2*(-5.0*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp6 +
1766  6.0*CW2*(25.0 - 32.0*CW2 + 4.0*CW4)*mHp4*MZ2 -
1767  3.0*CW4*(29 - 50.0*CW2 + 12*CW4)*mHp2*MZ4 +
1768  4.0*CW6*(1.0 + CW2 - 2.0*CW4)*MZ6) +
1769  2.0*mHp2*((7.0 - 14.0*CW2 + 4.0*CW4)*mHp6 -
1770  3.0*CW2*(19.0 - 26.0*CW2 + 4.0*CW4)*mHp4*MZ2 +
1771  3.0*CW4*(13.0 - 20.0*CW2 + 4.0*CW4)*mHp2*MZ4 +
1772  2.0*CW6*(-1.0 - CW2 + 2.0*CW4)*MZ6)) +
1773  mH3_2*((-7.0 + 14.0*CW2 - 4.0*CW4)*
1774  mH2_8 + (7.0 - 14.0*CW2 + 4.0*CW4)*
1775  mH2_6*(4.0*mHp2 + 3.0*CW2*MZ2) -
1776  3.0*mH2_4*(2.0*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp4 +
1777  CW2*(-5.0 - 2.0*CW2 + 4.0*CW4)*mHp2*MZ2 +
1778  CW4*(7.0 - 14.0*CW2 + 4.0*CW4)*MZ4) +
1779  mHp2*(-5.0*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp6 +
1780  6.0*CW2*(25.0 - 32.0*CW2 + 4.0*CW4)*mHp4*MZ2 -
1781  3.0*CW4*(29 - 50.0*CW2 + 12*CW4)*mHp2*MZ4 +
1782  4.0*CW6*(1.0 + CW2 - 2.0*CW4)*MZ6) +
1783  2.0*mH2_2*(4.0*(7.0 - 14.0*CW2 + 4.0*CW4)*mHp6 -
1784  3.0*CW2*(31 - 38*CW2 + 4.0*CW4)*mHp4*MZ2 +
1785  6.0*CW4*(8 - 15.0*CW2 + 4.0*CW4)*mHp2*MZ4 +
1786  2.0*CW6*(-1.0 - CW2 + 2.0*CW4)*MZ6)))*
1787  log(mHp2/MZ2))/(2304.0*
1788  CW8*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*(mH3_2 -
1789  mHp2)*(-mH2_2 + mHp2)*MZ8*pi*pi);
1790 
1791 
1792 gslpp::complex aNonYuk6 = (aem*aem*(mH3_2 - mHp2)*
1793  mMU*mMU*(mH3_2*mH3_2 - 2.0*mH3_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
1794  log(mH3_2/mHp2)*log(mHp2/MZ2))/(128.0*
1795  CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*pi*pi) + (aem*
1796  aem*(mH2_2 - mHp2)*mMU*
1797  mMU*(mH2_4 - 2.0*mH2_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
1798  log(mH2_2/mHp2)*log(mHp2/MZ2))/(128.0*
1799  CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*pi*pi) + (aem*
1800  aem*(1.0 - 2.0*CW2)*(1.0 - 2.0*CW2)*(5.0 - 16.0*CW2 + 8.0*CW4)*mMU*
1801  mMU*(-4.0*mHp2 + MZ2)*(MZ4 - MZ2*negsquareroot(-4.0*mHp2*MZ2 + MZ4) +
1802  mHp2*(-4.0*MZ2 + 2.0*negsquareroot (-4.0*mHp2*MZ2 + MZ4)))*
1803  log((2.0*mHp2 - MZ2 + negsquareroot (-4.0*mHp2*MZ2 + MZ4))/(2.0*
1804  mHp2)))/(1152.0*CW2*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*
1805  MZ6*(-2.0*mHp2 + MZ2 - negsquareroot (-4.0*mHp2*MZ2 + MZ4))*pi*pi) - (aem*
1806  aem*(5.0 - 16.0*CW2 + 8.0*CW4)*mMU*
1807  mMU*(-4.0*mH3_2*
1808  mH2_2 + (mH3_2 + mH2_2 - MZ2)*(mH3_2 + mH2_2 -
1809  MZ2))*(mH3_2*mH3_2 +
1810  mH3_2*(-2.0*mH2_2 - 2.0*MZ2 +
1811  negsquareroot(mH3_2*mH3_2 + (mH2_2 - MZ2)*(mH2_2 - MZ2) -
1812  2.0*mH3_2*(mH2_2 + MZ2))) + (mH2_2 - MZ2)*(mH2_2 -
1813  MZ2 + negsquareroot(mH3_2*mH3_2 + (mH2_2 - MZ2)*(mH2_2 - MZ2) -
1814  2.0*mH3_2*(mH2_2 + MZ2))))*
1815  log((mH3_2 + mH2_2 - MZ2 +
1816  negsquareroot (-4.0*mH3_2*
1817  mH2_2 + (mH3_2 + mH2_2 - MZ2)*(mH3_2 + mH2_2 -
1818  MZ2)))/(2.0*mH3*mH2)))/(1152.0*
1819  CW2*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*
1820  MZ8*(mH3_2 + mH2_2 - MZ2 +
1821  negsquareroot (-4.0*mH3_2*
1822  mH2_2 + (mH3_2 + mH2_2 - MZ2)*(mH3_2 + mH2_2 - MZ2)))*
1823  pi*pi) + (aem*aem*(7.0 - 14.0*CW2 + 4.0*CW4)*mMU*
1824  mMU*(-4.0*mH3_2*
1825  mHp2 + (mH3_2 + mHp2 - CW2*MZ2)*(mH3_2 + mHp2 -
1826  CW2*MZ2))*(mH3_2*mH3_2 +
1827  mH3_2*(-2.0*mHp2 - 2.0*CW2*MZ2 +
1828  negsquareroot (mH3_2*mH3_2 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1829  2.0*mH3_2*(mHp2 + CW2*MZ2))) + (mHp2 - CW2*MZ2)*(mHp2 -
1830  CW2*MZ2 +
1831  negsquareroot (mH3_2*mH3_2 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1832  2.0*mH3_2*(mHp2 + CW2*MZ2))))*
1833  log((mH3_2 + mHp2 - CW2*MZ2 +
1834  negsquareroot (-4.0*mH3_2*
1835  mHp2 + (mH3_2 + mHp2 - CW2*MZ2)*(mH3_2 + mHp2 -
1836  CW2*MZ2)))/(2.0*mH3*mHp)))/(1152.0*
1837  CW8*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*
1838  MZ8*(mH3_2 + mHp2 - CW2*MZ2 +
1839  negsquareroot (-4.0*mH3_2*
1840  mHp2 + (mH3_2 + mHp2 - CW2*MZ2)*(mH3_2 + mHp2 -
1841  CW2*MZ2)))*pi*pi) + (aem*aem*(7.0 - 14.0*CW2 + 4.0*CW4)*
1842  mMU*mMU*(-4.0*mH2_2*
1843  mHp2 + (mH2_2 + mHp2 - CW2*MZ2)*(mH2_2 + mHp2 -
1844  CW2*MZ2))*(mH2_4 +
1845  mH2_2*(-2.0*mHp2 - 2.0*CW2*MZ2 +
1846  negsquareroot (mH2_4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1847  2.0*mH2_2*(mHp2 + CW2*MZ2))) + (mHp2 - CW2*MZ2)*(mHp2 -
1848  CW2*MZ2 +
1849  negsquareroot (mH2_4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1850  2.0*mH2_2*(mHp2 + CW2*MZ2))))*
1851  log((mH2_2 + mHp2 - CW2*MZ2 +
1852  negsquareroot (-4.0*mH2_2*
1853  mHp2 + (mH2_2 + mHp2 - CW2*MZ2)*(mH2_2 + mHp2 -
1854  CW2*MZ2)))/(2.0*mH2*mHp)))/(1152.0*
1855  CW8*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + CW2)*
1856  MZ8*(mH2_2 + mHp2 - CW2*MZ2 +
1857  negsquareroot(-4.0*mH2_2*
1858  mHp2 + (mH2_2 + mHp2 - CW2*MZ2)*(mH2_2 + mHp2 -
1859  CW2*MZ2)))*pi*pi) - (aem*aem*(mH3_2 - mHp2)*mMU*
1860  mMU*(mH3_2*mH3_2 - 2.0*mH3_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*PolyLog.Li2( 1.0 - mH3_2/mHp2))/(64.0*
1861  CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*pi*pi) - (aem*
1862  aem*(mH2_2 - mHp2)*mMU*
1863  mMU*(mH2_4 - 2.0*mH2_2*mHp2 + mHp4 - CW2*mHp2*MZ2)*
1864  PolyLog.Li2( 1.0 - mH2_2/mHp2))/(64.0*
1865  CW8*(-1.0 + CW2)*(-1.0 + CW2)*MZ8*pi*pi) + (aem*
1866  aem*(mH3_2 - mHp2)*mMU*
1867  mMU*(-mH3_6 +
1868  mH3_2*mH3_2*(3.0*mHp2 + CW2*MZ2) + (mHp3 -
1869  CW2*mHp*MZ2)*(mHp3 - CW2*mHp*MZ2) +
1870  mH3_2*(-3.0*mHp4 + CW2*mHp2*MZ2))*TF (mH3, mHp, CW*MZ))/(64.0*
1871  CW8*(-1.0 + CW2)*(-1.0 + CW2)*
1872  MZ8*(mH3_2*mH3_2 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1873  2.0*mH3_2*(mHp2 + CW2*MZ2))*pi*pi) + (aem*aem*(mH2_2 - mHp2)*
1874  mMU*mMU*(-mH2_6 +
1875  mH2_4*(3.0*mHp2 + CW2*MZ2) + (mHp3 - CW2*mHp*MZ2)*(mHp3 -
1876  CW2*mHp*MZ2) + mH2_2*(-3.0*mHp4 + CW2*mHp2*MZ2))*
1877  TF(mH2, mHp, CW*MZ))/(64.0*CW8*(-1.0 + CW2)*(-1.0 + CW2)*
1878  MZ8*(mH2_4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1879  2.0*mH2_2*(mHp2 + CW2*MZ2))*pi*pi);*/
1880 
1881 
1882 
1883 
1884 
1885 gslpp::complex aYuk2 = -(aem*aem*(MH2 + 2.0*mHp2)*mMU*mMU)/(8.0*CW2*(-1.0 + CW2)*MH2*MZ2*pi*
1886  pi) + (aem*aem*(MH2 + 2.0*mHp2)*mMU*
1887  mMU*((-3.0 + 2.0*CW2)*MH2 - 8.0*CW2*(-1.0 + CW2)*MZ2)*
1888  log (MH2/MZ2))/(128.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*MH2*
1889  MZ2*(MH2 - MZ2)*pi*pi) - (aem*aem*(MH2 + 2.0*mHp2)*mMU*mMU*
1890  log (mHp2/MZ2))/(16.0*CW2*(-1.0 + CW2)*MH2*MZ2*pi*pi) + (aem*aem*
1891  mHp2*(MH2 + 2.0*mHp2)*mMU*
1892  mMU*((-3.0 + 2.0*CW2)*MH2 - 8.0*CW2*(-1.0 + CW2)*MZ2)*
1893  TF (MH, mHp, mHp))/(64.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*
1894  MH4*(MH2 - 4.0*mHp2)*MZ2*(MH2 - MZ2)*pi*pi) - (aem*
1895  aem*(3.0 - 10.0*CW2 + 8.0*CW4)*mHp2*(MH2 + 2.0*mHp2)*mMU*mMU*
1896  TF (mHp, mHp, MZ))/(64.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*
1897  MZ4*(-MH2 + MZ2)*(-4.0*mHp2 + MZ2)*pi*pi);
1898 
1899 
1900 gslpp::complex aYuk3 = sl*((aem*aem*mMU*
1901  mMU*(-mH2_4 + mH2_2*mHp2 +
1902  8.0*CW2*(-1.0 + CW2)*mHp2*MZ2)*(-1.0 + tanb*tanb))/(64.0*
1903  CW4*(-1.0 + CW2)*(-1.0 + CW2)*mHp2*MZ4*pi*pi*tanb) - (aem*aem*
1904  mH3_2*mH2_2*mHp2*mMU*mMU*(-1.0 + tanb*tanb)*
1905  log(mH3_2/mHp2)*
1906  log(mH3_2/mHp2))/(512.0*
1907  CW2*(-1.0 + CW2)*(-1.0 + CW2)*
1908  MZ2*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*pi*
1909  pi*tanb) + (aem*aem*mH2_4*mMU*
1910  mMU*(-7.0*mHp6 + 8.0*CW2*mHp4*MZ2 - 4.0*CW4*mHp2*MZ4 +
1911  2.0*mH2_2*(mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2))*(-1.0 +
1912  tanb*tanb)*log(mH2_2/mHp2)*log(mH2_2/mHp2))/(512.0*
1913  CW2*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*
1914  MZ2*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*pi*
1915  pi*tanb) + (aem*aem*mH3_2*mH2_2*mHp2*mMU*
1916  mMU*(-1.0 + tanb*tanb)*log (mH3_2/MZ2)*log (mH3_2/MZ2))/(512.0*
1917  CW2*(-1.0 + CW2)*(-1.0 + CW2)*
1918  MZ2*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*pi*
1919  pi*tanb) - (aem*aem*mH2_4*mMU*
1920  mMU*(-7.0*mHp6 + 8.0*CW2*mHp4*MZ2 - 4.0*CW4*mHp2*MZ4 +
1921  2.0*mH2_2*(mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2))*(-1.0 +
1922  tanb*tanb)*log (mH2_2/MZ2)*log (mH2_2/MZ2))/(512.0*
1923  CW2*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*
1924  MZ2*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*pi*
1925  pi*tanb) + (aem*aem*mMU*
1926  mMU*(2.0*CW2*mH2_4*MZ2 +
1927  8.0*CW2*(-1.0 + CW2)*mHp2*MZ2*(-mHp2 + CW2*MZ2) +
1928  mH2_2*(-2.0*mHp4 + CW2*mHp2*MZ2))*(-1.0 + tanb*tanb)*
1929  log (mHp2/MZ2))/(128.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*mHp2*
1930  MZ4*(-mHp2 + CW2*MZ2)*pi*pi*tanb) + (aem*aem*mH2_2*mMU*
1931  mMU*(mHp6 + mH2_4*(mHp2 + CW2*MZ2) -
1932  2.0*mH2_2*(mHp4 + CW2*mHp2*MZ2))*(-1.0 + tanb*tanb)*
1933  log (mH2_2/mHp2)*log (mHp2/MZ2))/(128.0*
1934  CW6*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*MZ6*pi*pi*tanb) - (aem*aem*
1935  mH3_2*mH2_2*mHp2*mMU*mMU*(-1.0 + tanb*tanb)*log (mH3_2/MZ2)*
1936  log (mHp2/MZ2))/(256.0*CW2*(-1.0 + CW2)*(-1.0 + CW2)*
1937  MZ2*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*pi*
1938  pi*tanb) + (aem*aem*mH2_2*mMU*
1939  mMU*(mH3_2*mHp6 +
1940  2.0*mH2_4*(mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1941  mH2_2*(mHp6 - 8.0*CW2*mHp4*MZ2 + 4.0*CW4*mHp2*MZ4))*(-1.0 +
1942  tanb*tanb)*log (mHp2/MZ2)*log (mHp2/MZ2))/(512.0*
1943  CW2*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*
1944  MZ2*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*pi*
1945  pi*tanb)+log(mH2_2/
1946  MZ2)*((aem*aem*mMU*
1947  mMU*(2.0*mH2_6 -
1948  2.0*mH2_4*MZ2 + (-3.0 + 2.0*CW2)*mH2_2*mHp2*MZ2 -
1949  8.0*CW2*(-1.0 + CW2)*mHp2*MZ4)*(-1.0 + tanb*tanb))/(128.0*
1950  CW4*(-1.0 + CW2)*(-1.0 + CW2)*mHp2*MZ4*(-mH2_2 + MZ2)*pi*
1951  pi*tanb) - (3.0*aem*aem*mH2_4*mHp2*mMU*
1952  mMU*(-1.0 + tanb*tanb)*log(mHp2/MZ2))/(256.0*
1953  CW2*(-1.0 + CW2)*(-1.0 + CW2)*
1954  MZ2*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*
1955  pi*pi*tanb))+ log (CW2)*(-(aem*aem*mH2_2*mMU*
1956  mMU*(2.0*mH2_2 - 2.0*mHp2 + CW2*MZ2)*(-1.0 +
1957  tanb*tanb))/(128.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*
1958  MZ4*(-mHp2 + CW2*MZ2)*pi*pi*tanb) - (aem*aem*mH2_2*mMU*
1959  mMU*(mHp6 + mH2_4*(mHp2 + CW2*MZ2) -
1960  2.0*mH2_2*(mHp4 + CW2*mHp2*MZ2))*(-1.0 + tanb*tanb)*
1961  log (mH2_2/mHp2))/(128.0*CW6*(-1.0 + CW2)*(-1.0 + CW2)*
1962  mHp4*MZ6*pi*pi*tanb) + (aem*aem*mH2_4*(mH2_2 - 2.0*mHp2)*
1963  mMU*mMU*(-1.0 + tanb*tanb)*log (mH2_2/MZ2))/(128.0*
1964  CW2*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*MZ2*(-mHp2 + CW2*MZ2)*pi*
1965  pi*tanb) - (aem*aem*mH2_4*(mH2_2 - 2.0*mHp2)*mMU*
1966  mMU*(-1.0 + tanb*tanb)*log (mHp2/MZ2))/(128.0*
1967  CW2*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*MZ2*(-mHp2 + CW2*MZ2)*pi*
1968  pi*tanb)) - (aem*aem*mH2_2*mMU*
1969  mMU*(mHp6 + mH2_4*(mHp2 + CW2*MZ2) -
1970  2.0*mH2_2*(mHp4 + CW2*mHp2*MZ2))*(-1.0 + tanb*tanb)*
1971  PolyLog.Li2 (1.0 - mH2_2/mHp2))/(64.0*
1972  CW6*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*MZ6*pi*pi*tanb)+ (aem*aem*
1973  mMU*mMU*(-3.0*mH2_2*mHp8 + 8.0*CW6*mHp6*MZ4 -
1974  2.0*CW4*mHp6*MZ2*(mH2_2 + 4.0*(mHp2 + MZ2)) +
1975  CW2*(-mH2_10 + 2.0*mH2_4*mHp4*MZ2 + 8.0*mHp8*MZ2 +
1976  mH2_8*(4.0*mHp2 + MZ2) -
1977  2.0*mH2_6*(mHp4 + 2.0*mHp2*MZ2) +
1978  mH2_2*(2.0*mHp8 + 3.0*mHp6*MZ2)))*(-1.0 + tanb*tanb)*
1979  TF (mH2, mHp, mHp))/(64.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*mH2_2*
1980  mHp4*(mH2_2 - 4.0*mHp2)*MZ2*(mH2_2 - MZ2)*(-mHp2 + CW2*MZ2)*
1981  pi*pi*tanb) - (aem*aem*mH2_2*mMU*
1982  mMU*(-mH2_6 +
1983  mH2_4*(3.0*mHp2 + CW2*MZ2) + (mHp3 - CW2*mHp*MZ2)*(mHp3 -
1984  CW2*mHp*MZ2) + mH2_2*(-3.0*mHp4 + CW2*mHp2*MZ2))*(-1.0 +
1985  tanb*tanb)*TF(mH2, mHp, CW*MZ))/(64.0*
1986  CW6*(-1.0 + CW2)*(-1.0 + CW2)*
1987  MZ6*(-mHp2 +
1988  CW2*MZ2)*(mH2_4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
1989  2.0*mH2_2*(mHp2 + CW2*MZ2))*pi*pi*tanb)+ (aem*
1990  aem*(3.0 - 10.0*CW2 + 8.0*CW4)*mH2_2*mHp2*mMU*
1991  mMU*(-1.0 + tanb*tanb)*TF (mHp, mHp, MZ))/(64.0*
1992  CW4*(-1.0 + CW2)*(-1.0 + CW2)*
1993  MZ4*(-mH2_2 + MZ2)*(-4.0*mHp2 + MZ2)*pi*pi*tanb));
1994 
1995 
1996 gslpp::complex aYuk4 = eta*((aem*aem*mMU*
1997  mMU*((-3.0 + 2.0*CW2)*MH2 - 8.0*CW2*(-1.0 + CW2)*MZ2)*(-1.0 +
1998  tanb*tanb)*log(MH2/MZ2))/(128.0*
1999  CW4*(-1.0 + CW2)*(-1.0 + CW2)*MZ2*(-MH2 + MZ2)*pi*pi*
2000  tanb) + (aem*aem*mMU*
2001  mMU*((3.0 - 2.0*CW2)*mH2_2 + 8.0*CW2*(-1.0 + CW2)*MZ2)*(-1.0 +
2002  tanb*tanb)*log(mH2_2/MZ2))/(128.0*
2003  CW4*(-1.0 + CW2)*(-1.0 + CW2)*MZ2*(-mH2_2 + MZ2)*pi*pi*
2004  tanb) + (aem*aem*mHp2*mMU*
2005  mMU*((3.0 - 2.0*CW2)*MH2 + 8.0*CW2*(-1.0 + CW2)*MZ2)*(-1.0 +
2006  tanb*tanb)*TF (MH, mHp, mHp))/(64.0*
2007  CW4*(-1.0 + CW2)*(-1.0 + CW2)*MH2*(MH2 - 4.0*mHp2)*
2008  MZ2*(MH2 - MZ2)*pi*pi*tanb) + (aem*aem*mHp2*mMU*
2009  mMU*((-3.0 + 2.0*CW2)*mH2_2 -
2010  8.0*CW2*(-1.0 + CW2)*MZ2)*(-1.0 + tanb*tanb)*
2011  TF (mH2, mHp, mHp))/(64.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*
2012  mH2_2*(mH2_2 - 4.0*mHp2)*MZ2*(mH2_2 - MZ2)*pi*pi*
2013  tanb) + (aem*aem*(3.0 - 10.0*CW2 + 8.0*CW4)*(MH2 - mH2_2)*
2014  mHp2*mMU*mMU*(-1.0 + tanb*tanb)*TF (mHp, mHp, MZ))/(64.0*
2015  CW4*(-1.0 + CW2)*(-1.0 + CW2)*
2016  MZ2*(-MH2 + MZ2)*(-mH2_2 + MZ2)*(-4.0*mHp2 + MZ2)*pi*pi*
2017  tanb)+ sl*((aem*aem*mMU*
2018  mMU*(144.0*MH6*mH2_4*MZ4 - 144.0*CW2*MH4*mH2_4*MZ6 -
2019  1152.0*CW2*(-1.0 + CW2)*mH2_4*mHp4*MZ6 +
2020  MH2*(3.0*(40.0 - 41.0*CW2 + 64.0*CW4)*mH2_4*mHp2*MZ6 +
2021  144.0*mH2_6*
2022  MZ4*((1.0 - 3.0*CW2 + 2.0*CW4)*mHp2 + CW2*MZ2) +
2023  24.0*(1.0 - 3.0*CW2 + 2.0*CW4)*mH2_10*mHp2*pi*pi +
2024  16.0*(5.0 - 12.0*CW2 + 8.0*CW4 + 2.0*CW6)*mHp2*MZ10*pi*
2025  pi - 48.0*mH2_8*
2026  MZ2*(3.0*MZ2 +
2027  2.0*(1.0 - 3.0*CW2 + 2.0*CW4)*mHp2*pi*pi) +
2028  12.0*mH2_2*mHp2*
2029  MZ6*(288*CW6*MZ2 + 5.0*MZ2*(-8.0 + pi*pi) -
2030  12.0*CW2*(8.0*mHp2 + MZ2*(-8.0 + pi*pi)) + 2.0*CW4*(48.0*mHp2 +
2031  MZ2*(-184.0 + 5.0*pi*pi))))))/(4608.0*
2032  CW4*(-1.0 + CW2)*(-1.0 + CW2)*MH2*mH2_4*mHp2*MZ8*pi*
2033  pi) + (aem*aem*(MH2 - mH2_2)*mMU*
2034  mMU*(MH4 + mH2_4 - 3.0*CW2*mHp2*MZ2 + 3.0*CW4*MZ4 +
2035  MH2*(mH2_2 - mHp2 - 3.0*CW2*MZ2) -
2036  mH2_2*(mHp2 + 3.0*CW2*MZ2))*log (CW2)*log (CW2))/(128.0*
2037  CW2*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*MZ2*(-mHp2 + CW2*MZ2)*pi*
2038  pi) + (aem*aem*mH3_2*(MH2 - mH2_2)*mHp2*mMU*mMU*
2039  log (mH3_2/mHp2)*
2040  log (mH3_2/mHp2))/(512.0*
2041  CW2*(-1.0 + CW2)*(-1.0 + CW2)*
2042  MZ2*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*
2043  pi*pi) + (aem*aem*mMU*
2044  mMU*(-4.0*MH6*(mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) +
2045  2.0*CW2*
2046  MZ2*(-3.0*mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 +
2047  CW2*MZ2)*(-mHp2 + CW2*MZ2) +
2048  MH4*(7.0*mHp6 + 2.0*CW2*mHp4*MZ2 - 10.0*CW4*mHp2*MZ4 +
2049  6.0*CW6*MZ6) +
2050  MH2*(mH2_2*mHp6 +
2051  2.0*(mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2)*(4.0*mHp4 +
2052  3.0*CW2*mHp2*MZ2 - 3.0*CW4*MZ4)))*
2053  log (MH2/mHp2)*
2054  log (MH2/mHp2))/(512.0*
2055  CW2*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*
2056  MZ2*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*
2057  pi*pi) + (aem*aem*mMU*
2058  mMU*(4.0*mH2_6*(mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
2059  2.0*CW2*
2060  MZ2*(-3.0*mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 +
2061  CW2*MZ2)*(-mHp2 + CW2*MZ2) -
2062  mH2_4*(9.0*mHp6 + 2.0*CW2*mHp4*MZ2 - 10.0*CW4*mHp2*MZ4 +
2063  6.0*CW6*MZ6) +
2064  mH2_2*(MH2*mHp6 -
2065  2.0*(mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2)*(4.0*mHp4 +
2066  3.0*CW2*mHp2*MZ2 - 3.0*CW4*MZ4)))*
2067  log (mH2_2/mHp2)*
2068  log (mH2_2/mHp2))/(512.0*
2069  CW2*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*
2070  MZ2*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*
2071  pi*pi) + (aem*aem*mH3_2*(-MH2 + mH2_2)*mHp2*mMU*mMU*
2072  log (mH3_2/MZ2)*
2073  log (mH3_2/MZ2))/(512.0*
2074  CW2*(-1.0 + CW2)*(-1.0 + CW2)*
2075  MZ2*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*
2076  pi*pi) - (aem*aem*mMU*
2077  mMU*(-4.0*MH6*(mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) +
2078  2.0*CW2*
2079  MZ2*(-3.0*mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 +
2080  CW2*MZ2)*(-mHp2 + CW2*MZ2) +
2081  MH4*(7.0*mHp6 + 2.0*CW2*mHp4*MZ2 - 10.0*CW4*mHp2*MZ4 +
2082  6.0*CW6*MZ6) +
2083  MH2*(mH2_2*mHp6 +
2084  2.0*(mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2)*(4.0*mHp4 +
2085  3.0*CW2*mHp2*MZ2 - 3.0*CW4*MZ4)))*
2086  log (MH2/MZ2)*
2087  log (MH2/MZ2))/(512.0*
2088  CW2*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*
2089  MZ2*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*
2090  pi*pi) + (aem*aem*mMU*
2091  mMU*(2.0*CW4*
2092  MZ8*(-3.0*mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 +
2093  CW2*MZ2)*(-mHp2 + CW2*MZ2) -
2094  4.0*mH2_6*(mHp2 - CW2*MZ2)*(mHp2 -
2095  CW2*MZ2)*((2.0 - 6.0*CW2 + 4.0*CW4)*mHp6 -
2096  2.0*CW2*(1.0 - 3.0*CW2 + 2.0*CW4)*mHp4*MZ2 + CW2*MZ6) +
2097  mH2_4*
2098  MZ2*(32*(1.0 - 3.0*CW2 + 2.0*CW4)*mHp10 -
2099  96.0*CW2*(1.0 - 3.0*CW2 + 2.0*CW4)*mHp8*MZ2 +
2100  3.0*CW2*(3.0 + 32*CW2 - 96.0*CW4 + 64.0*CW6)*mHp6*
2101  MZ4 + 2.0*CW4*(1.0 - 16.0*CW2 + 48.0*CW4 - 32*CW6)*
2102  mHp4*MZ6 - 10.0*CW6*mHp2*MZ8 + 6.0*CW8*MZ10) -
2103  CW2*mH2_2*
2104  MZ6*(MH2*mHp6 -
2105  2.0*(mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2)*(4.0*mHp4 +
2106  3.0*CW2*mHp2*MZ2 - 3.0*CW4*MZ4)))*
2107  log(mH2_2/MZ2)*
2108  log(mH2_2/MZ2))/(512.0*
2109  CW4*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*
2110  MZ8*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*
2111  pi*pi) + (aem*aem*(MH2 - mH2_2)*mMU*
2112  mMU*(-2.0*CW2*MH4*mH2_2*MZ2 +
2113  8.0*CW2*(-1.0 + CW2)*mHp4*MZ2*(-mHp2 + CW2*MZ2) +
2114  MH2*mH2_2*(mHp4 - 2.0*CW2*mH2_2*MZ2 -
2115  2.0*CW2*mHp2*MZ2 + 2.0*CW4*MZ4))*log (mHp2/MZ2))/(64.0*
2116  CW4*(-1.0 + CW2)*(-1.0 + CW2)*MH2*mH2_2*mHp2*
2117  MZ4*(-mHp2 + CW2*MZ2)*pi*pi) - (aem*aem*mMU*
2118  mMU*(2.0*mHp8 + MH6*(mHp2 + CW2*MZ2) -
2119  MH2*(3.0*mHp6 + 4.0*CW2*mHp4*MZ2))*log (MH2/mHp2)*
2120  log (mHp2/MZ2))/(128.0*CW6*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*
2121  MZ6*pi*pi)+ (aem*aem*mMU*
2122  mMU*(2.0*mHp8 + mH2_6*(mHp2 + CW2*MZ2) -
2123  mH2_2*(3.0*mHp6 + 4.0*CW2*mHp4*MZ2))*log (mH2_2/mHp2)*
2124  log (mHp2/MZ2))/(128.0*CW6*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*
2125  MZ6*pi*pi)+ (aem*aem*mH3_2*(MH2 - mH2_2)*mHp2*mMU*mMU*
2126  log (mH3_2/MZ2)*log (mHp2/MZ2))/(256.0*
2127  CW2*(-1.0 + CW2)*(-1.0 + CW2)*
2128  MZ2*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*
2129  pi*pi) - (aem*aem*(MH2 - mH2_2)*mMU*
2130  mMU*(mH3_2*mHp6 + 9.0*mH2_2*mHp6 - 8.0*mHp8 +
2131  2.0*CW2*mH2_2*mHp4*MZ2 + 22.0*CW2*mHp6*MZ2 -
2132  10.0*CW4*mH2_2*mHp2*MZ4 - 26*CW4*mHp4*MZ4 +
2133  6.0*CW6*mH2_2*MZ6 + 18.0*CW6*mHp2*MZ6 - 6.0*CW8*MZ8 +
2134  MH2*(7.0*mHp6 + 2.0*CW2*mHp4*MZ2 - 10.0*CW4*mHp2*MZ4 +
2135  6.0*CW6*MZ6))*log(mHp2/MZ2)*log(mHp2/MZ2))/(512.0*
2136  CW2*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*
2137  MZ2*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*
2138  pi*pi) + log (mH2_2/
2139  MZ2)*((aem*aem*mMU*
2140  mMU*(-6.0*mH2_8 +
2141  mH2_4*MZ2*((5.0 + 26*CW2 - 16.0*CW4)*mHp2 -
2142  3.0*CW2*MZ2) +
2143  3.0*mH2_6*((3.0 - 12.0*CW2 + 8.0*CW4)*
2144  mHp2 + (2.0 + CW2)*MZ2) +
2145  mH2_2*mHp2*
2146  MZ2*((9.0 - 6.0*CW2)*mHp2 + (15 - 59*CW2 + 62*CW4)*
2147  MZ2) +
2148  4.0*mHp2*
2149  MZ4*(-5.0*MZ2 + 18.0*CW6*MZ2 +
2150  CW4*(6.0*mHp2 - 28*MZ2) -
2151  6.0*CW2*(mHp2 - 2.0*MZ2))))/(192*
2152  CW4*(-1.0 + CW2)*(-1.0 + CW2)*mH2_2*mHp2*
2153  MZ4*(mH2_2 - MZ2)*pi*pi) + (aem*aem*
2154  mH2_2*(MH2 - 7.0*mH2_2)*mHp2*mMU*mMU*
2155  log (mHp2/MZ2))/(256.0*CW2*(-1.0 + CW2)*(-1.0 + CW2)*
2156  MZ2*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 +
2157  CW2*MZ2)*pi*pi)) +
2158  log (MH2/
2159  MZ2)*(-(aem*aem*mMU*
2160  mMU*(-8.0*MH10- 128.0*CW4*(-1.0 + CW2)*mHp4*MZ6 +
2161  2.0*CW2*MH2*mHp2*
2162  MZ4*(8.0*(-5.0 + 4.0*CW2)*mHp2 +
2163  CW2*(33 - 32*CW2)*MZ2) +
2164  MH6*MZ2*((10.0 + 11.0*CW2)*mHp2 -
2165  4.0*CW2*(9.0 + 4.0*CW2)*MZ2) -
2166  4.0*MH8*(mHp2 - (2.0 + 9.0*CW2)*MZ2) +
2167  MH4*MZ2*((12.0 - 8.0*CW2)*mHp4 +
2168  5.0*CW2*(-11.0 + 6.0*CW2)*mHp2*MZ2 +
2169  16.0*CW4*MZ4)))/(256.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*
2170  MH2*mHp2*MZ4*(MH2 - MZ2)*(MH2 - 4.0*CW2*MZ2)*pi*
2171  pi) + (aem*aem*MH2*(5.0*MH2 + mH2_2)*mHp2*mMU*mMU*
2172  log (mHp2/MZ2))/(256.0*CW2*(-1.0 + CW2)*(-1.0 + CW2)*
2173  MZ2*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 +
2174  CW2*MZ2)*pi*pi)) +
2175  log (CW2)*((aem*aem*mMU*
2176  mMU*(24.0*(1.0 - 4.0*CW2)*MH6*mH2_2*mHp2 +
2177  12.0*CW2*(-1.0 + 4.0*CW2)*MH4*mH2_2*
2178  MZ2*(8.0*mHp2 + CW2*MZ2) + 2.0*CW2*
2179  MZ2*(-48.0*(-1.0 + 4.0*CW2)*mH2_6*mHp2 +
2180  24.0*CW4*(-1.0 + 4.0*CW2)*mH2_4*MZ4 +
2181  CW2*(133 - 520*CW2 + 240*CW4)*mH2_2*mHp2*
2182  MZ2*(-mHp2 + CW2*MZ2) +
2183  64.0*CW4*(10.0 - 49*CW2 + 36*CW4)*mHp2*
2184  MZ4*(-mHp2 + CW2*MZ2)) +
2185  MH2*(24.0*(-1.0 + 4.0*CW2)*mH2_6*mHp2 +
2186  12.0*CW4*(1.0 - 4.0*CW2)*mH2_4*MZ4 -
2187  32*CW4*(10.0 - 49*CW2 + 36*CW4)*mHp2*
2188  MZ4*(-mHp2 + CW2*MZ2) +
2189  CW2*mH2_2*
2190  MZ2*((71.0 - 278.0*CW2 + 120*CW4)*mHp4 +
2191  CW2*(-71.0 + 278.0*CW2 - 120*CW4)*mHp2*MZ2 +
2192  48.0*CW4*(1.0 - 4.0*CW2)*MZ4))))/(768*
2193  CW4*(-1.0 + CW2)*(-1.0 + CW2)*(-1.0 + 4.0*CW2)*mH2_2*
2194  mHp2*MZ4*(-mHp2 + CW2*MZ2)*(-MH2 + 4.0*CW2*MZ2)*pi*
2195  pi) + (aem*aem*mMU*
2196  mMU*(2.0*mHp8 + MH6*(mHp2 + CW2*MZ2) -
2197  MH2*(3.0*mHp6 + 4.0*CW2*mHp4*MZ2))*
2198  log (MH2/mHp2))/(128.0*CW6*(-1.0 + CW2)*(-1.0 + CW2)*
2199  mHp4*MZ6*pi*pi) - (aem*aem*mMU*
2200  mMU*(2.0*mHp8 + mH2_6*(mHp2 + CW2*MZ2) -
2201  mH2_2*(3.0*mHp6 + 4.0*CW2*mHp4*MZ2))*
2202  log (mH2_2/mHp2))/(128.0*CW6*(-1.0 + CW2)*(-1.0 + CW2)*
2203  mHp4*MZ6*pi*pi) + (aem*aem*mMU*
2204  mMU*(-2.0*MH6 + 3.0*CW2*mHp4*MZ2 - 4.0*CW4*mHp2*MZ4 +
2205  CW6*MZ6 + MH4*(mHp2 + 3.0*CW2*MZ2) +
2206  MH2*(4.0*mHp4 + 3.0*CW2*mHp2*MZ2 - 3.0*CW4*MZ4))*
2207  log (MH2/MZ2))/(128.0*CW2*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*
2208  MZ2*(-mHp2 + CW2*MZ2)*pi*pi) - (aem*aem*mMU*
2209  mMU*(-2.0*mH2_6 + 3.0*CW2*mHp4*MZ2 - 4.0*CW4*mHp2*MZ4 +
2210  CW6*MZ6 + mH2_4*(mHp2 + 3.0*CW2*MZ2) +
2211  mH2_2*(4.0*mHp4 + 3.0*CW2*mHp2*MZ2 - 3.0*CW4*MZ4))*
2212  log (mH2_2/MZ2))/(128.0*CW2*(-1.0 + CW2)*(-1.0 + CW2)*
2213  mHp4*MZ2*(-mHp2 + CW2*MZ2)*pi*pi) + (aem*aem*mMU*
2214  mMU*(MH4*(mHp2 + 3.0*CW2*MZ2) +
2215  MH2*(-4.0*mHp4 + 3.0*CW2*mHp2*MZ2 - 3.0*CW4*MZ4) -
2216  mH2_2*(-4.0*mHp4 + 3.0*CW2*mHp2*MZ2 - 3.0*CW4*MZ4 +
2217  mH2_2*(mHp2 + 3.0*CW2*MZ2)))*
2218  log (mHp2/MZ2))/(128.0*CW2*(-1.0 + CW2)*(-1.0 + CW2)*
2219  mHp4*MZ2*(-mHp2 + CW2*MZ2)*pi*pi)) + (aem*aem*mMU*
2220  mMU*(2.0*mHp8 + MH6*(mHp2 + CW2*MZ2) -
2221  MH2*(3.0*mHp6 + 4.0*CW2*mHp4*MZ2))*
2222  PolyLog.Li2(1.0 - MH2/mHp2))/(64.0*
2223  CW6*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*MZ6*pi*pi) - (aem*aem*
2224  mMU*mMU*(2.0*mHp8 + mH2_6*(mHp2 + CW2*MZ2) -
2225  mH2_2*(3.0*mHp6 + 4.0*CW2*mHp4*MZ2))*
2226  PolyLog.Li2(1.0 - mH2_2/mHp2))/(64.0*
2227  CW6*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*MZ6*pi*pi)+ (aem*aem*
2228  mMU*mMU*(2.0*MH6*(mHp2 + CW2*MZ2) -
2229  CW4*MZ4*(mHp4 - 6.0*CW2*mHp2*MZ2 + 2.0*CW4*MZ4) -
2230  2.0*MH4*(mHp4 + 4.0*CW2*mHp2*MZ2 + 3.0*CW4*MZ4) +
2231  MH2*(4.0*CW2*mHp4*MZ2 + 6.0*CW6*MZ6))*
2232  PolyLog.Li2(1.0 - MH2/(CW2*MZ2)))/(128.0*
2233  CW6*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*MZ6*pi*pi)+ (aem*aem*
2234  mMU*mMU*(12.0*(1.0 - 3.0*CW2 + 2.0*CW4)*mH2_10 -
2235  48.0*(1.0 - 3.0*CW2 + 2.0*CW4)*mH2_8*
2236  MZ2 + (17.0 - 48.0*CW2 + 32.0*CW4)*mH2_6*MZ4 -
2237  3.0*(5.0 - 12.0*CW2 + 8.0*CW4)*mH2_2*MZ8 -
2238  4.0*(5.0 - 12.0*CW2 + 8.0*CW4)*MZ10)*
2239  PolyLog.Li2( 1.0 - mH2_2/MZ2))/(192.0*
2240  CW4*(-1.0 + CW2)*(-1.0 + CW2)*mH2_4*MZ8*pi*pi) + (aem*aem*
2241  mMU*mMU*(-6.0*CW6*mH2_2*mHp4*MZ6 - 8.0*CW8*mHp4*MZ8 -
2242  3.0*mH2_10*(mHp2 + CW2*MZ2) +
2243  3.0*mH2_8*(mHp4 + 4.0*CW2*mHp2*MZ2 + 3.0*CW4*MZ4) +
2244  mH2_6*(2.0*CW2*mHp4*MZ2 - 9.0*CW6*MZ6) +
2245  3.0*mH2_4*(-3.0*CW6*mHp2*MZ6 + CW8*MZ8))*
2246  PolyLog.Li2( 1.0 - mH2_2/(CW2*MZ2)))/(192*
2247  CW6*(-1.0 + CW2)*(-1.0 + CW2)*mH2_4*mHp4*MZ6*pi*pi) - (aem*
2248  aem*(-3.0 + 4.0*CW2)*mMU*
2249  mMU*((1.0 - 5.0*CW2 + 10.0*CW4)*
2250  mH2_2 + (-7.0 + 61*CW2 - 162*CW4 + 96.0*CW6)*MZ2)*
2251  TF (CW, CW, 1.0))/(128.0*
2252  CW2*(1.0 - 4.0*CW2)*(1.0 - 4.0*CW2)*(-1.0 + CW2)*(-1.0 +
2253  CW2)*MZ2*(-mH2_2 + MZ2)*pi*pi) + (aem*
2254  aem*(MH2 + 2.0*mHp2)*mMU*
2255  mMU*(3.0*MH2*mHp8 - 8.0*CW6*mHp6*MZ4 +
2256  2.0*CW4*mHp6*MZ2*(MH2 + 4.0*(mHp2 + MZ2)) +
2257  CW2*(MH10 - 2.0*MH4*mHp4*MZ2 - 8.0*mHp8*MZ2 -
2258  MH8*(4.0*mHp2 + MZ2) +
2259  2.0*MH6*(mHp4 + 2.0*mHp2*MZ2) -
2260  MH2*(2.0*mHp8 + 3.0*mHp6*MZ2)))*
2261  TF (MH, mHp, mHp))/(64.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*MH4*
2262  mHp4*(MH2 - 4.0*mHp2)*MZ2*(MH2 - MZ2)*(-mHp2 + CW2*MZ2)*pi*
2263  pi) + (aem*aem*mMU*
2264  mMU*(MH8*(-mHp4 + CW4*MZ4) +
2265  MH6*(mHp6 + CW2*mHp4*MZ2 - 2.0*CW4*mHp2*MZ4 -
2266  4.0*CW6*MZ6) + (mHp2 - CW2*MZ2)*(mHp2 -
2267  CW2*MZ2)*(mHp2 - CW2*MZ2)*(2.0*mHp6 +
2268  2.0*CW2*mHp4*MZ2 + 2.0*CW4*mHp2*MZ4 - CW6*MZ6) +
2269  MH4*(3.0*mHp8 + 3.0*CW2*mHp6*MZ2 + CW4*mHp4*MZ4 -
2270  CW6*mHp2*MZ6 + 6.0*CW8*MZ8) +
2271  MH2*(-5.0*mHp10 + CW4*mHp6*MZ4 + 8.0*CW8*mHp2*MZ8 -
2272  4.0*CW10*MZ10))*TF (MH, mHp, CW*MZ))/(64.0*
2273  CW6*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*
2274  MZ6*(-mHp2 +
2275  CW2*MZ2)*(MH4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
2276  2.0*MH2*(mHp2 + CW2*MZ2))*pi*pi) + (aem*aem*mMU*
2277  mMU*(-2.0*MH10 + 2.0*CW8*MZ8*(-mHp2 + CW2*MZ2) +
2278  2.0*MH8*(mHp2 + 9.0*CW2*MZ2) -
2279  4.0*MH6*(4.0*CW2*mHp2*MZ2 + 11.0*CW4*MZ4) +
2280  MH4*(37*CW4*mHp2*MZ4 + 3.0*CW6*MZ6) +
2281  2.0*MH2*(-9.0*CW6*mHp2*MZ6 + 25*CW8*MZ8))*
2282  TF (MH, CW*MZ, CW*MZ))/(128.0*
2283  CW6*(-1.0 + CW2)*(-1.0 + CW2)*MH2*
2284  MZ6*(MH2 - 4.0*CW2*MZ2)*(MH2 - 4.0*CW2*MZ2)*(-mHp2 +
2285  CW2*MZ2)*pi*pi) + (aem*aem*(mH2_2 + 2.0*mHp2)*mMU*
2286  mMU*(-3.0*mH2_2*mHp8 + 8.0*CW6*mHp6*MZ4 -
2287  2.0*CW4*mHp6*MZ2*(mH2_2 + 4.0*(mHp2 + MZ2)) +
2288 
2289  CW2*(-mH2_10 + 2.0*mH2_4*mHp4*MZ2 + 8.0*mHp8*MZ2 +
2290  mH2_8*(4.0*mHp2 + MZ2) -
2291  2.0*mH2_6*(mHp4 + 2.0*mHp2*MZ2) +
2292  mH2_2*(2.0*mHp8 + 3.0*mHp6*MZ2)))*
2293  TF (mH2, mHp, mHp))/(64.0*CW4*(-1.0 + CW2)*(-1.0 + CW2)*
2294  mH2_4*mHp4*(mH2_2 - 4.0*mHp2)*
2295  MZ2*(mH2_2 - MZ2)*(-mHp2 + CW2*MZ2)*pi*pi) - (aem*aem*mMU*
2296  mMU*(mH2_8*(-mHp4 + CW4*MZ4) +
2297  mH2_6*(mHp6 + CW2*mHp4*MZ2 - 2.0*CW4*mHp2*MZ4 -
2298  4.0*CW6*MZ6) + (mHp2 - CW2*MZ2)*(mHp2 -
2299  CW2*MZ2)*(mHp2 - CW2*MZ2)*(2.0*mHp6 +
2300  2.0*CW2*mHp4*MZ2 + 2.0*CW4*mHp2*MZ4 - CW6*MZ6) +
2301  mH2_4*(3.0*mHp8 + 3.0*CW2*mHp6*MZ2 + CW4*mHp4*MZ4 -
2302  CW6*mHp2*MZ6 + 6.0*CW8*MZ8) +
2303  mH2_2*(-5.0*mHp10 + CW4*mHp6*MZ4 + 8.0*CW8*mHp2*MZ8 -
2304  4.0*CW10*MZ10))*TF (mH2, mHp, CW*MZ))/(64.0*
2305  CW6*(-1.0 + CW2)*(-1.0 + CW2)*mHp4*
2306  MZ6*(-mHp2 +
2307  CW2*MZ2)*(mH2_4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
2308  2.0*mH2_2*(mHp2 + CW2*MZ2))*pi*pi) + (aem*aem*mMU*
2309  mMU*(6.0*(1.0 - 3.0*CW2 + 2.0*CW4)*mH2_6 -
2310  12.0*(1.0 - 3.0*CW2 + 2.0*CW4)*mH2_4*
2311  MZ2 + (5.0 - 12.0*CW2 + 8.0*CW4)*mH2_2*MZ4 +
2312  2.0*(5.0 - 12.0*CW2 + 8.0*CW4)*MZ6)*
2313  TF (mH2, MZ, MZ))/(192*CW4*(-1.0 + CW2)*(-1.0 + CW2)*mH2_2*
2314  MZ8*pi*pi) + (aem*aem*mMU*
2315  mMU*(3.0*mH2_12 -
2316  2.0*CW6*(-95 + 78*CW2)*mH2_2*MZ8*(-mHp2 + CW2*MZ2) +
2317  144*CW8*(-1.0 + CW2)*MZ10*(-mHp2 + CW2*MZ2) +
2318  2.0*CW2*mH2_6*
2319  MZ4*((-2.0 + 5.0*CW2)*mHp2 + CW2*(-7.0 + CW2)*MZ2) -
2320  3.0*mH2_10*(mHp2 + (1.0 + 5.0*CW2)*MZ2) +
2321  CW4*mH2_4*
2322  MZ6*((17.0 + 10.0*CW2)*mHp2 - CW2*(29 + 10.0*CW2)*MZ2) +
2323  mH2_8*MZ2*((3.0 + 4.0*CW2)*mHp2 +
2324  CW2*(15 + 14*CW2)*MZ2))*TF (mH2, CW*MZ, CW*MZ))/(192*
2325  CW6*(-1.0 + CW2)*(-1.0 + CW2)*mH2_4*
2326  MZ6*(mH2_2 - MZ2)*(mH2_2 - 4.0*CW2*MZ2)*(-mHp2 + CW2*MZ2)*
2327  pi*pi) + (aem*aem*(3.0 - 10.0*CW2 + 8.0*CW4)*(MH2 - mH2_2)*
2328  mHp2*mMU*mMU*(2.0*mHp2 + MZ2)*TF(mHp, mHp, MZ))/(64.0*
2329  CW4*(-1.0 + CW2)*(-1.0 + CW2)*
2330  MZ4*(MH2 - MZ2)*(-mH2_2 + MZ2)*(-4.0*mHp2 + MZ2)*pi*pi)));
2331 
2332 
2333 
2334 
2335 gslpp::complex aYuk5 = Lambda5*(-(aem*mMU*mMU)/(8.0*MH2*pi*pi*pi) + (aem*mMU*
2336  mMU*((-3.0 + 2.0*CW2)*MH2 - 8.0*CW2*(-1.0 + CW2)*MZ2)*
2337  log (MH2/MZ2))/(128.0*CW2*(-1.0 + CW2)*MH2*(MH2 - MZ2)*pi*pi*
2338  pi) - (aem*mMU*mMU*log(mHp2/MZ2))/(16.0*MH2*pi*pi*pi) + (aem*
2339  mHp2*mMU*mMU*((-3.0 + 2.0*CW2)*MH2 - 8.0*CW2*(-1.0 + CW2)*MZ2)*
2340  TF (MH, mHp, mHp))/(64.0*CW2*(-1.0 + CW2)*
2341  MH4*(MH2 - 4.0*mHp2)*(MH2 - MZ2)*pi*pi*
2342  pi) - (aem*(3.0 - 10.0*CW2 + 8.0*CW4)*mHp2*mMU*mMU*
2343  TF (mHp, mHp, MZ))/(64.0*CW2*(-1.0 + CW2)*
2344  MZ2*(-MH2 + MZ2)*(-4.0*mHp2 + MZ2)*pi*pi*pi) + sl*((aem*mMU*
2345  mMU*(-mH2_4 + mH2_2*mHp2 +
2346  8.0*CW2*(-1.0 + CW2)*mHp2*MZ2)*(-1.0 + tanb*tanb))/(128.0*
2347  CW2*(-1.0 + CW2)*mH2_2*mHp2*MZ2*pi*pi*pi*tanb) - (aem*
2348  mH3_2*mHp2*mMU*mMU*(-1.0 + tanb*tanb)*
2349  log(mH3_2/mHp2)*log(mH3_2/mHp2))/(1024*(-1.0 +
2350  CW2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 +
2351  CW2*MZ2)*pi*pi*pi*tanb) + (aem*mH2_2*mMU*
2352  mMU*(-7.0*mHp6 + 8.0*CW2*mHp4*MZ2 - 4.0*CW4*mHp2*MZ4 +
2353  2.0*mH2_2*(mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2))*(-1.0 +
2354  tanb*tanb)*
2355  log(mH2_2/mHp2)*
2356  log(mH2_2/mHp2))/(1024*(-1.0 + CW2)*
2357  mHp4*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*
2358  pi*pi*pi*tanb) + (aem*mH3_2*mHp2*mMU*
2359  mMU*(-1.0 + tanb*tanb)*
2360  log (mH3_2/MZ2)* log (mH3_2/MZ2))/(1024*(-1.0 + CW2)*(-mHp2 +
2361  CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*pi*pi*pi*
2362  tanb) - (aem*mH2_2*mMU*
2363  mMU*(-7.0*mHp6 + 8.0*CW2*mHp4*MZ2 - 4.0*CW4*mHp2*MZ4 +
2364  2.0*mH2_2*(mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2))*(-1.0 +
2365  tanb*tanb)*
2366  log (mH2_2/MZ2)*
2367  log (mH2_2/MZ2))/(1024*(-1.0 + CW2)*
2368  mHp4*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*
2369  pi*pi*pi*tanb) + (aem*mMU*
2370  mMU*(2.0*CW2*mH2_4*MZ2 +
2371  8.0*CW2*(-1.0 + CW2)*mHp2*MZ2*(-mHp2 + CW2*MZ2) +
2372  mH2_2*(-2.0*mHp4 + CW2*mHp2*MZ2))*(-1.0 + tanb*tanb)*
2373  log (mHp2/MZ2))/(256.0*CW2*(-1.0 + CW2)*mH2_2*mHp2*
2374  MZ2*(-mHp2 + CW2*MZ2)*pi*pi*pi*tanb) + (aem*mMU*
2375  mMU*(mHp6 + mH2_4*(mHp2 + CW2*MZ2) -
2376  2.0*mH2_2*(mHp4 + CW2*mHp2*MZ2))*(-1.0 + tanb*tanb)*
2377  log (mH2_2/mHp2)*log (mHp2/MZ2))/(256.0*CW4*(-1.0 + CW2)*
2378  mHp4*MZ4*pi*pi*pi*tanb) - (aem*mH3_2*mHp2*mMU*
2379  mMU*(-1.0 + tanb*tanb)*log (mH3_2/MZ2)*
2380  log (mHp2/MZ2))/(512.0*(-1.0 + CW2)*(-mHp2 +
2381  CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*pi*pi*pi*
2382  tanb) + (aem*mMU*
2383  mMU*(mH3_2*mHp6 +
2384  2.0*mH2_4*(mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
2385  mH2_2*(mHp6 - 8.0*CW2*mHp4*MZ2 +
2386  4.0*CW4*mHp2*MZ4))*(-1.0 + tanb*tanb)*
2387  log (mHp2/MZ2)*
2388  log (mHp2/MZ2))/(1024*(-1.0 + CW2)*
2389  mHp4*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*
2390  pi*pi*pi*tanb) +
2391  log (mH2_2/
2392  MZ2)*((aem*mMU*
2393  mMU*(-2.0*mH2_6 +
2394  2.0*mH2_4*MZ2 + (3.0 - 2.0*CW2)*mH2_2*mHp2*MZ2 +
2395  8.0*CW2*(-1.0 + CW2)*mHp2*MZ4)*(-1.0 +
2396  tanb*tanb))/(256.0*CW2*(-1.0 + CW2)*mH2_2*mHp2*
2397  MZ2*(mH2_2 - MZ2)*pi*pi*pi*tanb) - (3.0*aem*mH2_2*mHp2*
2398  mMU*mMU*(-1.0 + tanb*tanb)*
2399  log (mHp2/MZ2))/(512.0*(-1.0 + CW2)*(-mHp2 +
2400  CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*pi*pi*pi*
2401  tanb)) +
2402  log (CW2)*( -(aem*mMU*
2403  mMU*(2.0*mH2_2 - 2.0*mHp2 + CW2*MZ2)*(-1.0 +
2404  tanb*tanb))/(256.0*CW2*(-1.0 + CW2)*
2405  MZ2*(-mHp2 + CW2*MZ2)*pi*pi*pi*tanb)
2406  - (aem*mMU*
2407  mMU*(mHp6 + mH2_4*(mHp2 + CW2*MZ2) -
2408  2.0*mH2_2*(mHp4 + CW2*mHp2*MZ2))*(-1.0 + tanb*tanb)*
2409  log (mH2_2/mHp2))/(256.0*CW4*(-1.0 + CW2)*mHp4*MZ4*pi*pi*
2410  pi*tanb) + (aem*mH2_2*(mH2_2 - 2.0*mHp2)*mMU*
2411  mMU*(-1.0 + tanb*tanb)*
2412  log (mH2_2/MZ2))/(256.0*(-1.0 + CW2)*
2413  mHp4*(-mHp2 + CW2*MZ2)*pi*pi*pi*tanb) - (aem*
2414  mH2_2*(mH2_2 - 2.0*mHp2)*mMU*mMU*(-1.0 + tanb*tanb)*
2415  log (mHp2/MZ2))/(256.0*(-1.0 + CW2)*mHp4*(-mHp2 + CW2*MZ2)*
2416  pi*pi*pi*tanb) ) -(aem*mMU*
2417  mMU*(mHp6 + mH2_4*(mHp2 + CW2*MZ2) -
2418  2.0*mH2_2*(mHp4 + CW2*mHp2*MZ2))*(-1.0 + tanb*tanb)*
2419  PolyLog.Li2 (1.0 - mH2_2/mHp2))/(128.0*CW4*(-1.0 + CW2)*mHp4*MZ4*
2420  pi*pi*pi*tanb) + (aem*mMU*
2421  mMU*(-3.0*mH2_2*mHp8 + 8.0*CW6*mHp6*MZ4 -
2422  2.0*CW4*mHp6*MZ2*(mH2_2 + 4.0*(mHp2 + MZ2)) +
2423  CW2*(-mH2_10 + 2.0*mH2_4*mHp4*MZ2 + 8.0*mHp8*MZ2 +
2424  mH2_8*(4.0*mHp2 + MZ2) -
2425  2.0*mH2_6*(mHp4 + 2.0*mHp2*MZ2) +
2426  mH2_2*(2.0*mHp8 + 3.0*mHp6*MZ2)))*(-1.0 + tanb*tanb)*
2427  TF (mH2, mHp, mHp))/(128.0*CW2*(-1.0 + CW2)*mH2_4*
2428  mHp4*(mH2_2 - 4.0*mHp2)*(mH2_2 - MZ2)*(-mHp2 + CW2*MZ2)*
2429  pi*pi*pi*tanb) - (aem*mMU*
2430  mMU*(-mH2_6 +
2431  mH2_4*(3.0*mHp2 + CW2*MZ2) + (mHp3 - CW2*mHp*MZ2)*(mHp3 -
2432  CW2*mHp*MZ2) +
2433  mH2_2*(-3.0*mHp4 + CW2*mHp2*MZ2))*(-1.0 + tanb*tanb)*
2434  TF (mH2, mHp, CW*MZ))/(128.0*CW4*(-1.0 + CW2)*
2435  MZ4*(-mHp2 +
2436  CW2*MZ2)*(mH2_4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
2437  2.0*mH2_2*(mHp2 + CW2*MZ2))*pi*pi*pi*
2438  tanb)+(aem*(3.0 - 10.0*CW2 + 8.0*CW4)*mHp2*mMU*
2439  mMU*(-1.0 + tanb*tanb)*TF (mHp, mHp, MZ))/(128.0*
2440  CW2*(-1.0 + CW2)*MZ2*(-mH2_2 + MZ2)*(-4.0*mHp2 + MZ2)*pi*
2441  pi*pi*tanb)) + eta*(-(aem*(MH2 - mH2_2)*mMU*mMU*(-1.0 + tanb*tanb))/(16.0*MH2*
2442  mH2_2*pi*pi*pi*tanb) + (aem*mMU*
2443  mMU*((3.0 - 2.0*CW2)*MH2 + 8.0*CW2*(-1.0 + CW2)*MZ2)*(-1.0 +
2444  tanb*tanb)*log (MH2/MZ2))/(256.0*CW2*(-1.0 + CW2)*
2445  MH2*(MH2 - MZ2)*pi*pi*pi*tanb) + (aem*mMU*
2446  mMU*((-3.0 + 2.0*CW2)*mH2_2 -
2447  8.0*CW2*(-1.0 + CW2)*MZ2)*(-1.0 + tanb*tanb)*
2448  log (mH2_2/MZ2))/(256.0*CW2*(-1.0 + CW2)*
2449  mH2_2*(mH2_2 - MZ2)*pi*pi*pi*tanb) - (aem*(MH2 - mH2_2)*
2450  mMU*mMU*(-1.0 + tanb*tanb)*log (mHp2/MZ2))/(32*MH2*mH2_2*
2451  pi*pi*pi*tanb) + (aem*mHp2*mMU*
2452  mMU*((3.0 - 2.0*CW2)*MH2 + 8.0*CW2*(-1.0 + CW2)*MZ2)*(-1.0 +
2453  tanb*tanb)*TF (MH, mHp, mHp))/(128.0*CW2*(-1.0 + CW2)*
2454  MH4*(MH2 - 4.0*mHp2)*(MH2 - MZ2)*pi*pi*pi*tanb)+ (aem*mHp2*
2455  mMU*mMU*((-3.0 + 2.0*CW2)*mH2_2 -
2456  8.0*CW2*(-1.0 + CW2)*MZ2)*(-1.0 + tanb*tanb)*
2457  TF (mH2, mHp, mHp))/(128.0*CW2*(-1.0 + CW2)*
2458  mH2_4*(mH2_2 - 4.0*mHp2)*(mH2_2 - MZ2)*pi*pi*pi*
2459  tanb) + (aem*(3.0 - 10.0*CW2 + 8.0*CW4)*(MH2 - mH2_2)*mHp2*
2460  mMU*mMU*(-1.0 + tanb*tanb)*TF (mHp, mHp, MZ))/(128.0*
2461  CW2*(-1.0 + CW2)*
2462  MZ2*(-MH2 + MZ2)*(-mH2_2 + MZ2)*(-4.0*mHp2 + MZ2)*pi*pi*pi*
2463  tanb) + sl*((aem*(MH2 - mH2_2)*mMU*
2464  mMU*(MH2*mH2_2 + 8.0*CW2*(-1.0 + CW2)*mHp2*MZ2))/(64.0*
2465  CW2*(-1.0 + CW2)*MH2*mH2_2*mHp2*MZ2*pi*pi*pi) - (aem*
2466  MH2*mMU*
2467  mMU*(-3.0*mHp6 + 4.0*CW2*mHp4*MZ2 - 2.0*CW4*mHp2*MZ4 +
2468  MH2*(mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2))*
2469  log (MH2/mHp2)*
2470  log (MH2/mHp2))/(256.0*(-1.0 + CW2)*
2471  mHp4*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 +
2472  CW2*MZ2)*pi*pi*pi) + (aem*mH2_2*mMU*
2473  mMU*(-3.0*mHp6 + 4.0*CW2*mHp4*MZ2 - 2.0*CW4*mHp2*MZ4 +
2474  mH2_2*(mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2))*
2475  log (mH2_2/mHp2)*
2476  log (mH2_2/mHp2))/(256.0*(-1.0 + CW2)*
2477  mHp4*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 +
2478  CW2*MZ2)*pi*pi*pi) + (aem*MH2*mMU*
2479  mMU*(-3.0*mHp6 + 4.0*CW2*mHp4*MZ2 - 2.0*CW4*mHp2*MZ4 +
2480  MH2*(mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2))*
2481  log (MH2/MZ2)*
2482  log (MH2/MZ2))/(256.0*(-1.0 + CW2)*
2483  mHp4*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 +
2484  CW2*MZ2)*pi*pi*pi) - (aem*mH2_2*mMU*
2485  mMU*(-3.0*mHp6 + 4.0*CW2*mHp4*MZ2 - 2.0*CW4*mHp2*MZ4 +
2486  mH2_2*(mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2))*
2487  log (mH2_2/MZ2)*
2488  log (mH2_2/MZ2))/(256.0*(-1.0 + CW2)*
2489 
2490  mHp4*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 +
2491  CW2*MZ2)*pi*pi*pi) - (aem*(MH2 - mH2_2)*mMU*
2492  mMU*(MH2*mH2_2 +
2493  4.0*(-1.0 + CW2)*mHp2*(mHp2 - CW2*MZ2))*
2494  log (mHp2/MZ2))/(64.0*(-1.0 + CW2)*MH2*mH2_2*
2495  mHp2*(-mHp2 + CW2*MZ2)*pi*pi*pi) - (aem*mMU*
2496  mMU*(mHp6 + MH4*(mHp2 + CW2*MZ2) -
2497  2.0*MH2*(mHp4 + CW2*mHp2*MZ2))*log (MH2/mHp2)*
2498  log (mHp2/MZ2))/(128.0*CW4*(-1.0 + CW2)*mHp4*MZ4*pi*pi*
2499  pi) + (aem*mMU*
2500  mMU*(mHp6 + mH2_4*(mHp2 + CW2*MZ2) -
2501  2.0*mH2_2*(mHp4 + CW2*mHp2*MZ2))*log(mH2_2/mHp2)*
2502  log (mHp2/MZ2))/(128.0*CW4*(-1.0 + CW2)*mHp4*MZ4*pi*pi*
2503  pi) + (aem*mMU*
2504  mMU*(-(MH4*(mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2)) +
2505  MH2*(mHp6 - 4.0*CW2*mHp4*MZ2 + 2.0*CW4*mHp2*MZ4) +
2506  mH2_2*(mH2_2*(mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
2507  mHp2*(mHp4 - 4.0*CW2*mHp2*MZ2 + 2.0*CW4*MZ4)))*
2508  log(mHp2/MZ2)*
2509  log(mHp2/MZ2))/(256.0*(-1.0 + CW2)*
2510  mHp4*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 +
2511  CW2*MZ2)*pi*pi*pi) +
2512  log (MH2/
2513  MZ2)*((aem*mMU*
2514  mMU*(2.0*MH6 -
2515  2.0*MH4*MZ2 + (-3.0 + 2.0*CW2)*MH2*mHp2*MZ2 -
2516  8.0*CW2*(-1.0 + CW2)*mHp2*MZ4))/(128.0*
2517  CW2*(-1.0 + CW2)*MH2*mHp2*MZ2*(MH2 - MZ2)*pi*pi*
2518  pi) + (aem*MH2*mHp2*mMU*mMU*
2519  log (mHp2/MZ2))/(128.0*(-1.0 + CW2)*(-mHp2 +
2520  CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*pi*pi*
2521  pi)) + log (mH2_2/
2522  MZ2)*((aem*mMU*
2523  mMU*(-2.0*mH2_6 +
2524  2.0*mH2_4*MZ2 + (3.0 - 2.0*CW2)*mH2_2*mHp2*MZ2 +
2525  8.0*CW2*(-1.0 + CW2)*mHp2*MZ4))/(128.0*
2526  CW2*(-1.0 + CW2)*mH2_2*mHp2*MZ2*(mH2_2 - MZ2)*pi*pi*
2527  pi) - (aem*mH2_2*mHp2*mMU*mMU*
2528  log (mHp2/MZ2))/(128.0*(-1.0 + CW2)*(-mHp2 +
2529  CW2*MZ2)*(-mHp2 + CW2*MZ2)*(-mHp2 + CW2*MZ2)*pi*pi*
2530  pi))+ log (CW2)*((aem*(MH2 - mH2_2)*mMU*mMU)/(64.0*
2531  CW2*(-1.0 + CW2)*MZ2*(-mHp2 + CW2*MZ2)*pi*pi*
2532  pi) + (aem*mMU*
2533  mMU*(mHp6 + MH4*(mHp2 + CW2*MZ2) -
2534  2.0*MH2*(mHp4 + CW2*mHp2*MZ2))*
2535  log (MH2/mHp2))/(128.0*CW4*(-1.0 + CW2)*mHp4*MZ4*pi*
2536  pi*pi) - (aem*mMU*
2537  mMU*(mHp6 + mH2_4*(mHp2 + CW2*MZ2) -
2538  2.0*mH2_2*(mHp4 + CW2*mHp2*MZ2))*
2539  log (mH2_2/mHp2))/(128.0*CW4*(-1.0 + CW2)*mHp4*MZ4*
2540  pi*pi*pi) - (aem*MH2*(MH2 - 2.0*mHp2)*mMU*mMU*
2541  log (MH2/MZ2))/(128.0*(-1.0 + CW2)*
2542  mHp4*(-mHp2 + CW2*MZ2)*pi*pi*pi) + (aem*
2543  mH2_2*(mH2_2 - 2.0*mHp2)*mMU*mMU*
2544  log (mH2_2/MZ2))/(128.0*(-1.0 + CW2)*
2545  mHp4*(-mHp2 + CW2*MZ2)*pi*pi*
2546  pi) + (aem*(MH2 - mH2_2)*(MH2 + mH2_2 - 2.0*mHp2)*
2547  mMU*mMU*log (mHp2/MZ2))/(128.0*(-1.0 + CW2)*
2548  mHp4*(-mHp2 + CW2*MZ2)*pi*pi*pi)) + (aem*mMU*
2549  mMU*(mHp6 + MH4*(mHp2 + CW2*MZ2) -
2550  2.0*MH2*(mHp4 + CW2*mHp2*MZ2))*
2551  PolyLog.Li2 (1.0 - MH2/mHp2))/(64.0*CW4*(-1.0 + CW2)*
2552  mHp4*MZ4*pi*pi*pi) - (aem*mMU*
2553  mMU*(mHp6 + mH2_4*(mHp2 + CW2*MZ2) -
2554  2.0*mH2_2*(mHp4 + CW2*mHp2*MZ2))*
2555  PolyLog.Li2(1.0 - mH2_2/mHp2))/(64.0*CW4*(-1.0 + CW2)*
2556  mHp4*MZ4*pi*pi*pi) + (aem*mMU*
2557  mMU*(3.0*MH2*mHp8 - 8.0*CW6*mHp6*MZ4 +
2558  2.0*CW4*mHp6*MZ2*(MH2 + 4.0*(mHp2 + MZ2)) +
2559  CW2*(MH10 - 2.0*MH4*mHp4*MZ2 - 8.0*mHp8*MZ2 -
2560  MH8*(4.0*mHp2 + MZ2) +
2561  2.0*MH6*(mHp4 + 2.0*mHp2*MZ2) -
2562  MH2*(2.0*mHp8 + 3.0*mHp6*MZ2)))*
2563  TF (MH, mHp, mHp))/(64.0*CW2*(-1.0 + CW2)*MH4*
2564  mHp4*(MH2 - 4.0*mHp2)*(MH2 - MZ2)*(-mHp2 + CW2*MZ2)*pi*
2565  pi*pi) + (aem*mMU*
2566  mMU*(-MH6 +
2567  MH4*(3.0*mHp2 + CW2*MZ2) + (mHp3 - CW2*mHp*MZ2)*(mHp3 -
2568  CW2*mHp*MZ2) + MH2*(-3.0*mHp4 + CW2*mHp2*MZ2))*
2569  TF (MH, mHp, CW*MZ))/(64.0*CW4*(-1.0 + CW2)*
2570  MZ4*(-mHp2 +
2571  CW2*MZ2)*(MH4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
2572  2.0*MH2*(mHp2 + CW2*MZ2))*pi*pi*pi) + (aem*mMU*
2573  mMU*(-3.0*mH2_2*mHp8 + 8.0*CW6*mHp6*MZ4 -
2574  2.0*CW4*mHp6*MZ2*(mH2_2 + 4.0*(mHp2 + MZ2)) +
2575  CW2*(-mH2_10 + 2.0*mH2_4*mHp4*MZ2 + 8.0*mHp8*MZ2 +
2576  mH2_8*(4.0*mHp2 + MZ2) -
2577  2.0*mH2_6*(mHp4 + 2.0*mHp2*MZ2) +
2578  mH2_2*(2.0*mHp8 + 3.0*mHp6*MZ2)))*
2579  TF (mH2, mHp, mHp))/(64.0*CW2*(-1.0 + CW2)*mH2_4*
2580  mHp4*(mH2_2 - 4.0*mHp2)*(mH2_2 - MZ2)*(-mHp2 +
2581  CW2*MZ2)*pi*pi*pi) - (aem*mMU*
2582  mMU*(-mH2_6 +
2583  mH2_4*(3.0*mHp2 + CW2*MZ2) + (mHp3 -
2584  CW2*mHp*MZ2)*(mHp3 - CW2*mHp*MZ2) +
2585  mH2_2*(-3.0*mHp4 + CW2*mHp2*MZ2))*
2586  TF (mH2, mHp, CW*MZ))/(64.0*CW4*(-1.0 + CW2)*
2587  MZ4*(-mHp2 +
2588  CW2*MZ2)*(mH2_4 + (mHp2 - CW2*MZ2)*(mHp2 - CW2*MZ2) -
2589  2.0*mH2_2*(mHp2 + CW2*MZ2))*pi*pi*
2590  pi) + (aem*(3.0 - 10.0*CW2 + 8.0*CW4)*(MH2 - mH2_2)*
2591  mHp2*mMU*mMU*TF (mHp, mHp, MZ))/(64.0*CW2*(-1.0 + CW2)*
2592  MZ2*(MH2 - MZ2)*(-mH2_2 + MZ2)*(-4.0*mHp2 + MZ2)*pi*pi*
2593  pi))));
2594 
2595 
2596  aYuk = aYuk2+aYuk3+aYuk4+aYuk5;
2597 
2598  gminus2muNLOB = aEWadd + aNonYuk + aYuk;
2599 
2600  /*std::cout << " aEWadd = " << aEWadd << std::endl;
2601  std::cout << " aNonYuk = " << aNonYuk << std::endl;
2602  std::cout << " aYuk = " << aYuk << std::endl;*/
2603 
2604 
2605  return(gminus2muNLOB.real());
2606 }
2607 
2608 
2609 double GeneralTHDMMatching::gminus2muNLO() {
2610 
2611  updateGTHDMParameters();
2612 
2613  // double gminus2muLOvalue=gminus2muLO();
2614  double gminus2muNLOFvalue=gminus2muNLOF();
2615  double gminus2muNLOBvalue = gminus2muNLOB();
2616 
2617  /* std::cout << "gminus2muNLOFvalue =" << gminus2muNLOFvalue << std::endl;
2618  std::cout << "gminus2muNLOBvalue =" << gminus2muNLOBvalue << std::endl;*/
2619 
2620  double gminus2muNLO = gminus2muNLOFvalue + gminus2muNLOBvalue;
2621 
2622 
2623  return(gminus2muNLO);
2624  }
2625 
2626 
2627 
2628 
2629 std::vector<WilsonCoefficient>& GeneralTHDMMatching::CMgminus2mu() {
2630 
2631  /* gslpp::complex su = myGTHDM.getNu_11();
2632  gslpp::complex sd = myGTHDM.getNd_11();
2633  gslpp::complex sl = myGTHDM.getNl_11();*/
2634 
2635  /* double Imlambda5=myGTHDM.getImlambda5();
2636  double Imlambda6=myGTHDM.getMyGTHDMCache()->Imlambda6;
2637  double Imlambda7=myGTHDM.getMyGTHDMCache()->Imlambda7;
2638  double sinalpha2=myGTHDM.getsinalpha2();
2639  double sinalpha3=myGTHDM.getsinalpha3();*/
2640 
2641  vmcgminus2mu = StandardModelMatching::CMgminus2mu();
2642 
2643  double gminus2muLOvalue=gminus2muLO();
2644  double gminus2muNLOvalue=gminus2muNLO();
2645 
2646  /* std::cout << " gminus2muLOvalue = " << gminus2muLOvalue << std::endl;
2647  std::cout << " gminus2muNLOvalue = " << gminus2muNLOvalue << std::endl;*/
2648 
2649 
2650 
2651  switch (mcgminus2mu.getOrder()) {
2652  case LO:
2653  mcgminus2mu.setCoeff(0, gminus2muLOvalue, LO); //g-2_muR
2654  mcgminus2mu.setCoeff(1, 0., LO); //g-2_muL
2655  break;
2656  case NLO:
2657  mcgminus2mu.setCoeff(0, gminus2muLOvalue+gminus2muNLOvalue, NLO); //g-2_muR
2658  mcgminus2mu.setCoeff(1, 0., NLO); //g-2_muL
2659  break;
2660  case NNLO:
2661  default:
2662  std::stringstream out;
2663  out << mcgminus2mu.getOrder();
2664  throw std::runtime_error("GeneralTHDMMatching::CMgminus2mu(): order " + out.str() + " not implemented.\nOnly leading order (LO) or next-to-leading order (NLO) are allowed.");
2665  }
2666 
2667  vmcgminus2mu.push_back(mcgminus2mu);
2668  return(vmcgminus2mu);
2669 
2670 }
2671 
2672 std::vector<WilsonCoefficient>& GeneralTHDMMatching::CMdbs2() {
2673 
2674  double Mut = myGTHDM.getMut();
2675  double xt = x_t(Mut);
2676  double GF=myGTHDM.getGF();
2677  double MW=myGTHDM.Mw();
2678  gslpp::complex co = GF / 4. / M_PI * MW * myGTHDM.getCKM().computelamt_s();
2679  //double tanb = myGTHDM.gettanb();
2680  double mHp2=myGTHDM.getmHp2();
2681  double xHW=mHp2/(MW*MW);
2682  double xtH=xt/xHW;
2683  double mb=myGTHDM.getQuarks(QCD::BOTTOM).getMass();
2684  double sd = (myGTHDM.getNd_11()).real();
2685  double su = (myGTHDM.getNu_11()).real();
2686  double SWH=xtH*((2.0*xHW-8.0)*log(xtH)/((1.0-xHW)*(1.0-xtH)*(1.0-xtH))+6.0*xHW*log(xt)/((1.0-xHW)*(1.0-xt)*(1.0-xt))-(8.0-2.0*xt)/((1.0-xt)*(1.0-xtH)))*su*su;//su*su = sigu.abs2()
2687  double SHH=xtH*((1.0+xtH)/((1.0-xtH)*(1.0-xtH))+2.0*xtH*log(xtH)/((1.0-xtH)*(1.0-xtH)*(1.0-xtH)))*su*su*su*su;//su*su*su*su = sigu.abs2()*sigu.abs2()
2688  double C1bsSRR = 4.0*mb*mb*xt*xtH*sd*su/(mHp2*(xtH-1.0)*(xtH-1.0)*(xtH-1.0)) //sd*su = sigd*sigu.conjugate()
2689  * (sd*su*(2.0*(xtH-1.0)-(xtH+1.0)*log(xtH)) //sd*su = sigd*sigu.conjugate()
2690  + (2.0*xt*xt*(xtH-1.0)*(xtH-1.0)*(xtH-1.0)*log(xt)/(xt-1.0)
2691  +2.0*xt*(xtH-1.0)*((xt-xtH)*(xtH-1.0)+(xtH-xt*xtH)*log(xtH)))/((xt-1.0)*(xt-xtH)*xtH));
2692 
2693  vmcds = StandardModelMatching::CMdbs2();
2694  mcdbs2.setMu(Mut);
2695 
2696  switch (mcdbs2.getOrder()) {
2697  case NNLO:
2698  case NLO:
2699  case LO:
2700  mcdbs2.setCoeff(0, co * co * xt * (SWH+SHH), LO);
2701  break;
2702  default:
2703  std::stringstream out;
2704  out << mcdbs2.getOrder();
2705  throw std::runtime_error("THDMMatching::CMdbs2(): order " + out.str() + "not implemented");
2706  }
2707 
2708  vmcds.push_back(mcdbs2);
2709  //The following are the primed coefficients.
2710  mcdbs2.setMu(Mut);
2711 
2712  switch (mcdbs2.getOrder()) {
2713  case NNLO:
2714  case NLO:
2715  case LO:
2716  mcdbs2.setCoeff(1, co * co * C1bsSRR, LO);
2717  break;
2718  default:
2719  std::stringstream out;
2720  out << mcdbs2.getOrder();
2721  throw std::runtime_error("THDMMatching::CMdbs2(): order " + out.str() + "not implemented");
2722  }
2723 
2724  vmcds.push_back(mcdbs2);
2725 
2726  return(vmcds);
2727 }
2728 //
2729 //std::vector<WilsonCoefficient>& GeneralTHDMMatching::CMdbsp2() {
2730 //
2731 // double Mut = myGTHDM.getMut();
2732 // double xt = x_t(Mut);
2733 // double GF=myGTHDM.getGF();
2734 // double MW=myGTHDM.Mw();
2735 // gslpp::complex co = GF / 4. / M_PI * MW * myGTHDM.getCKM().computelamt_s();
2736 // double mHp2=myGTHDM.getmHp2();
2737 // double xHW=mHp2/(MW*MW);
2738 // double xtH=xt/xHW;
2739 // double mb=myGTHDM.getQuarks(QCD::BOTTOM).getMass();
2740 // double sd = (myGTHDM.getNd_11()).real();
2741 // double su = (myGTHDM.getNu_11()).real();
2743 // double C1bsSRR = 4.0*mb*mb*xt*xtH*sd*su/(mHp2*(xtH-1.0)*(xtH-1.0)*(xtH-1.0)) //sd*su = sigd*sigu.conjugate()
2744 // * (sd*su*(2.0*(xtH-1.0)-(xtH+1.0)*log(xtH)) //sd*su = sigd*sigu.conjugate()
2745 // + (2.0*xt*xt*(xtH-1.0)*(xtH-1.0)*(xtH-1.0)*log(xt)/(xt-1.0)
2746 // +2.0*xt*(xtH-1.0)*((xt-xtH)*(xtH-1.0)+(xtH-xt*xtH)*log(xtH)))/((xt-1.0)*(xt-xtH)*xtH));
2747 //
2748 // vmcdsp = StandardModelMatching::CMdbs2();
2749 // mcdbsp2.setMu(Mut);
2750 //
2751 // switch (mcdbsp2.getOrder()) {
2752 // case NNLO:
2753 // case NLO:
2754 // case LO:
2755 // mcdbsp2.setCoeff(1, co * co * C1bsSRR, LO);
2756 // break;
2757 // default:
2758 // std::stringstream out;
2759 // out << mcdbsp2.getOrder();
2760 // throw std::runtime_error("THDMMatching::CMdbs2(): order " + out.str() + "not implemented");
2761 // }
2762 //
2763 // vmcdsp.push_back(mcdbsp2);
2764 // return(vmcdsp);
2765 //}
2766 
2767 double GeneralTHDMMatching::C10Bll(double xt, double xHp, gslpp::complex su) {
2768 
2769  double C10 = su.abs2()*xt*xt/8*(1/(xHp-xt) + xHp/((xHp-xt)*(xHp-xt))*(log(xt)- log(xHp)));
2770  return C10;
2771  }
2772 
2773  gslpp::complex GeneralTHDMMatching::CSboxBll(double xt, double xHp, gslpp::complex su, gslpp::complex sd, gslpp::complex sl) {
2774 
2775  gslpp::complex CSboxU = xt/(8*(xHp-xt))*(sl*su.conjugate()*(xt/(xt-1)*log(xt)
2776  - xHp/(xHp-1)*log(xHp))
2777  + su*sl.conjugate()*(1-(xHp-xt*xt)/((xHp-xt)*(xt-1))*log(xt)
2778  - (xHp*(xt-1))/((xHp-xt)*(xHp-1))*log(xHp)) + 2*sd*sl.conjugate()*(log(xt)-log(xHp)));
2779 
2780  return(CSboxU);
2781  }
2782 
2783 
2784  gslpp::complex GeneralTHDMMatching::CPboxBll(double xt, double xHp, gslpp::complex su, gslpp::complex sd, gslpp::complex sl) {
2785 
2786 
2787  gslpp::complex CPboxU = -xt/(8*(xHp-xt))*(-sl*su.conjugate()*(xt/(xt-1)*log(xt) - xHp/(xHp-1)*log(xHp))
2788  + su*sl.conjugate()*(1-(xHp-xt*xt)/((xHp-xt)*(xt-1))*log(xt)
2789  - (xHp*(xt-1))/((xHp-xt)*(xHp-1))*log(xHp)) + 2*sd*sl.conjugate()*(log(xt)-log(xHp)));
2790 
2791  return CPboxU;
2792  }
2793 
2794 
2795  gslpp::complex GeneralTHDMMatching:: CPZUBll(double xt, double xHp, double sW2, gslpp::complex su, gslpp::complex sd) {
2796 
2797 
2798  // CPZF. Z-penguins diagrams. Eq. (52)
2799 
2800  gslpp::complex CPZF = (xt/(4*(xHp - xt)*(xHp - xt)))*(sd*su.conjugate()*(-((xt + xHp)/2)
2801  + ((xt*xHp)/(xHp - xt))*(log(xHp) - log(xt))) +
2802  su.abs2()*(1/(6*(xHp - xt)))*((xHp*xHp - 8*xHp*xt - 17*xt*xt)/ 6
2803  + ((xt*xt*(3*xHp + xt))/(xHp - xt))*(log(xHp) - log(xt))))
2804  + sW2*(xt/(6*(xHp - xt)*(xHp - xt)))*(sd*su.conjugate()*((5*xt - 3*xHp)/2
2805  + ((xHp*(2*xHp - 3*xt))/(xHp - xt))*(log(xHp) - log(xt))) -
2806  su.abs2()*(1/(6*(xHp - xt)))*(((4*xHp*xHp*xHp - 12*xHp*xHp*xHp*xt + 9*xHp*xt*xt + 3*xt*xt*xt)/(xHp - xt))* (log(xHp) - log(xt))
2807  - (17*xHp*xHp - 64*xHp*xt + 71.0*xt*xt)/6));
2808 
2809  //CPGBF. Goldstone penguin diagrams. Eq. (53)
2810 
2811  gslpp::complex CPGBF = su.abs2()*(1 - sW2)*(xt*xt/(4*(xHp - xt)*(xHp - xt)))*
2812  (xHp*(log(xHp) - log(xt)) + xt - xHp);
2813 
2814  //CPZU. Z-penguin diagrams in the unitary gauge. Eq. (54)
2815 
2816  gslpp::complex CPZU = CPZF + CPGBF;
2817 
2818  return CPZU;
2819 
2820  }
2821 
2822 double GeneralTHDMMatching::f1(double xHp, double xt){
2823 
2824 
2825  double f1 = (1.0/(2.0*(xHp - xt)))*(-xHp + xt + xHp*log(xHp) -
2826  xt*log(xt));
2827  return f1;
2828 
2829  }
2830 
2831 
2832 double GeneralTHDMMatching::f2(double xHp, double xt){
2833 
2834  double f2 = (1.0/(2.0*(xHp - xt)))*(xt - ((xHp*xt)/(xHp - xt))*(log(xHp) - log(xt)));
2835 
2836  return f2 ;
2837 
2838  }
2839 
2840 double GeneralTHDMMatching::f3(double xHp, double xt){
2841 
2842  double f3= (1.0/(2.0*(xHp - xt)))*
2843  (xHp - (xHp*xHp*log(xHp))/(xHp - xt) + (xt*(2*xHp - xt)*log(xt))/
2844  (xHp - xt));
2845 
2846  return f3;
2847 
2848  }
2849 
2850 double GeneralTHDMMatching::f4(double xHp, double xt){
2851 
2852 
2853  double f4 = (1.0/(4*(xHp - xt)*(xHp - xt)))*((xt*(3.0*xHp - xt))/2.0 -
2854  ((xHp*xHp*xt)/(xHp - xt))*(log(xHp) - log(xt)));
2855  return f4;
2856 
2857  }
2858 
2859 double GeneralTHDMMatching::f5(double xHp, double xt){
2860 
2861 
2862  double f5 = (1.0/(4*(xHp - xt)*(xHp - xt)))*((xt*(xHp - 3.0*xt))/2.0 -
2863  ((xHp*xt*(xHp - 2.0*xt))/(xHp - xt))*(log(xHp) - log(xt)));
2864  return f5;
2865 
2866  }
2867 
2868 double GeneralTHDMMatching::f6(double xHp, double xt){
2869 
2870 
2871  double f6 = (1.0/(2.0*(xHp - xt)))*
2872  ((xt*(xt*xt - 3.0*xHp*xt + 9*xHp - 5*xt - 2.0))/(4*(xt - 1.0)*(xt - 1.0)) +
2873  ((xHp*(xHp*xt - 3.0*xHp + 2.0*xt))/(2.0*(xHp - 1.0)*(xHp - xt)))*
2874  log(xHp) + ((xHp*xHp*(-2.0*xt*xt*xt + 6*xt*xt - 9*xt + 2.0) +
2875  3.0*xHp*xt*xt*(xt*xt - 2.0*xt + 3.0) - xt*xt*(2.0*xt*xt*xt - 3.0*xt*xt +
2876  3.0*xt + 1.0))/(2.0*(xt - 1.0)*(xt - 1.0)*(xt - 1.0)*(xHp - xt)))*log(xt));
2877 
2878  return f6;
2879 
2880  }
2881 
2882 double GeneralTHDMMatching::f7(double xHp, double xt){
2883 
2884 
2885  double f7= (1.0/(2.0*(xHp - xt)))*
2886  (((xt*xt + xt - 8)*(xHp - xt))/(4*(xt - 1.0)*(xt - 1.0)) -
2887  ((xHp*(xHp + 2.0))/(2.0*(xHp - 1.0)))*log(xHp) +
2888  ((xHp*(xt*xt*xt - 3.0*xt*xt + 3.0*xt + 2.0) + 3.0*(xt - 2.0)*xt*xt)/
2889  (2.0*(xt - 1.0)*(xt - 1.0)*(xt - 1.0)))*log(xt));
2890  return f7;
2891 
2892  }
2893 
2894 double GeneralTHDMMatching::f8(double xHp, double xt){
2895 
2896  double f8 = (1.0/(4*(xHp - xt)))*((xt*log(xt))/(xt - 1.0) -
2897  (xHp*log(xHp))/(xHp - 1.0));
2898 
2899  return f8;
2900 
2901  }
2902 
2903 double GeneralTHDMMatching::f9(double xHp, double xt){
2904 
2905 
2906  double f9 = (1.0/(8*(xHp - xt)))*(xHp/(xHp - 1.0) +
2907  (xt*xt*log(xt))/((xt - 1.0)*(xHp - xt)) -
2908  ((xHp*(xHp*xt + xHp - 2.0*xt))/((xHp - 1.0)*(xHp - 1.0)*(xHp - xt)))*
2909  log(xHp));
2910  return f9;
2911 
2912  }
2913 
2914 double GeneralTHDMMatching::f10(double xHp, double xt){
2915 double f10 = (1.0/(8*(xHp - xt)))*
2916  ((xHp - xt)/((xHp - 1.0)*(xt - 1.0)) + ((xt*(xt - 2.0))/(xt - 1.0)*(xt - 1.0))*
2917  log(xt) - ((xHp*(xHp - 2.0))/(xHp - 1.0)*(xHp - 1.0))*log(xHp));
2918 
2919  return f10;
2920 
2921  }
2922 
2923 
2924 gslpp::complex GeneralTHDMMatching::g0(double xHp, double xt, gslpp::complex su, gslpp::complex sd){
2925 
2926  gslpp::complex g0 = (1.0/(4.0*(xHp-xt)))*((sd*su.conjugate()*(xt/(xHp-xt)*(log(xHp)-log(xt))-1.0))
2927  + su.abs2()*(xt*xt/(2.0*(xHp-xt)*(xHp-xt))*(log(xHp)-log(xt)) + (xHp-3.0*xt)/(4.0*(xHp-xt))));
2928 
2929  return g0;
2930 }
2931 
2932 gslpp::complex GeneralTHDMMatching::g1a(double xHp, double xt, gslpp::complex su, gslpp::complex sd){
2933 
2934  gslpp::complex g1a = -(3.0/4.0) + sd*su.conjugate()*(xt/(xHp - xt))*(1.0 - (xHp/(xHp - xt))*(log(xHp) - log(xt)))
2935  + su.abs2()*(xt/(2.0*(xHp - xt)*(xHp - xt)))*((xHp + xt)/2.0 - ((xHp*xt)/(xHp - xt))*(log(xHp) - log(xt)));
2936 
2937  return g1a;
2938 
2939 }
2940 
2941 gslpp::complex GeneralTHDMMatching::g2a(double xHp, double xt, gslpp::complex su, gslpp::complex sd){
2942 
2943  gslpp::complex g2a = sd*sd*su.conjugate()*f1(xHp, xt) + sd*su.conjugate()*su.conjugate()*f2(xHp, xt)+sd*su.abs2()*f3(xHp, xt)
2944  + su*su.abs2()*f4(xHp, xt) - su.conjugate()*su.abs2()*f5(xHp, xt) + su*f6(xHp, xt) - su.conjugate()*f7(xHp, xt) +sd*f1(xHp, xt);
2945 
2946  return g2a;
2947 
2948 }
2949 
2950 gslpp::complex GeneralTHDMMatching::g3a(double xHp, double xt, gslpp::complex su, gslpp::complex sd){
2951 
2952  gslpp::complex g3a =sd*sd*su.conjugate()*f1(xHp, xt) - sd*su.conjugate()*su.conjugate()*f2(xHp, xt)
2953  + sd*su.abs2()*f3(xHp, xt) + su*su.abs2()*f4(xHp, xt) + su.conjugate()*su.abs2()*f5(xHp, xt)
2954  + su* f6(xHp, xt) + su.conjugate()*f7(xHp, xt) + sd*f1(xHp, xt);
2955 
2956  return g3a;
2957 }
2958 
2959 
2960  gslpp::complex GeneralTHDMMatching::lambdaHHphi(double lambda3, double Relambda7,double Imlambda7, double Ri1, double Ri2, double Ri3 ){
2961  gslpp::complex lambdaHHphi = lambda3*Ri1 + Relambda7*Ri2 - Imlambda7*Ri3;
2962  return lambdaHHphi;
2963  }
2964 
2965 
2966 
2967 
2968 gslpp::complex GeneralTHDMMatching::CphiU(double xHp, double xt, double vev, double xphi, double mu, double Ri1, double Ri2, double Ri3, double mHi_2, double lambda3, double Relambda7,double Imlambda7, gslpp::complex su, gslpp::complex sd){
2969  gslpp::complex i = gslpp::complex::i();
2970  gslpp::complex CphiU = xt*((1/(2*xphi))*(su-sd)*(1 + su.conjugate()*sd)*
2971  (Ri2 + i*Ri3)*mu + (vev*vev/mHi_2)*lambdaHHphi(lambda3, Relambda7, Imlambda7, Ri1, Ri2, Ri3)*g0(xHp, xt, su, sd) + Ri1*((1/(2.0*xphi))*g1a(xHp, xt, su, sd)) + Ri2*(1/(2.0*xphi)*g2a(xHp, xt, su, sd)) + i*Ri3*(1/(2.0*xphi))*g3a(xHp, xt, su, sd));
2972 
2973  return CphiU;
2974 }
2975 
2976 
2977 std::vector<WilsonCoefficient>& GeneralTHDMMatching::CMBMll(QCD::lepton lepton)
2978 {
2979  updateGTHDMParameters();
2980 
2981 
2982  //From 1404.5865
2983 
2984  //complex i
2985  gslpp::complex i = gslpp::complex::i();
2986 
2987 
2988  double Muw = myGTHDM.getMuw();
2989  // double Mut = myGTHDM.getMut();
2990  double mHp2 = myGTHDM.getmHp2();
2991  double MW = myGTHDM.Mw();
2992  double Mt_muw = myGTHDM.Mrun(Muw, myGTHDM.getQuarks(QCD::TOP).getMass_scale(),
2993  myGTHDM.getQuarks(QCD::TOP).getMass(), FULLNNLO);
2994  /*double mt_mt = myGTHDM.Mrun(Mut, myGTHDM.getQuarks(QCD::TOP).getMass_scale(),
2995  myGTHDM.getQuarks(QCD::TOP).getMass(), FULLNNLO);*/
2996  double mb=myGTHDM.getQuarks(QCD::BOTTOM).getMass();
2997 
2998  double ml=myGTHDM.getLeptons(lepton).getMass();
2999 
3000  // mlep = SM.getLeptons(lep).getMass();
3001 
3002 
3003  double xt = (Mt_muw*Mt_muw)/(MW*MW);
3004  double xHp = (mHp2)/(MW*MW);
3005  double vev = myGTHDM.v();
3006  double sW2 = myGTHDM.sW2();
3007  double mHl = myGTHDM.getMHl();
3008  double mH1_2=mHl*mHl;
3009 
3010 
3011  //mu contains the missalignemtn dependece. It should be mu -> CR(mu0) - log(mu/mu0). Eq (22)
3012 
3013 
3014 
3015  // mu relates the high alignment scale (\Lambda), not know (which can be until the Plank scale), to the electroweak scale
3016  //double mu = log(Lambda/MW);
3017  // Lambda is not a paraemeter of the model so now mu is set to 0 -> the model is aligned at the ew scale
3018  double mu = 0;
3019 
3020  double Imlambda7=myGTHDM.getMyGTHDMCache()->Imlambda7H;
3021  double Relambda7=myGTHDM.getMyGTHDMCache()->Relambda7H;
3022  double lambda3=myGTHDM.getMyGTHDMCache()->lambda3H;
3023 
3024  double R11 = myGTHDM.getMyGTHDMCache()->R11_GTHDM;
3025  double R12 = myGTHDM.getMyGTHDMCache()->R12_GTHDM;
3026  double R13 = myGTHDM.getMyGTHDMCache()->R13_GTHDM;
3027  double R21 = myGTHDM.getMyGTHDMCache()->R21_GTHDM;
3028  double R22 = myGTHDM.getMyGTHDMCache()->R22_GTHDM;
3029  double R23 = myGTHDM.getMyGTHDMCache()->R23_GTHDM;
3030  double R31 = myGTHDM.getMyGTHDMCache()->R31_GTHDM;
3031  double R32 = myGTHDM.getMyGTHDMCache()->R32_GTHDM;
3032  double R33 = myGTHDM.getMyGTHDMCache()->R33_GTHDM;
3033 
3034  gslpp::complex sl = myGTHDM.getNl_11();
3035  gslpp::complex su = myGTHDM.getNu_11();
3036  gslpp::complex sd = myGTHDM.getNd_11();
3037 
3038 
3039 
3040  //Mass of the physical scalars
3041 
3042  double mH2_2 = myGTHDM.getmH2sq();
3043  double mH3_2 = myGTHDM.getmH3sq();
3044 
3045 
3046  double xphi1 = mH1_2/(MW*MW);
3047  double xphi2 = mH2_2/(MW*MW);
3048  double xphi3 = mH3_2/(MW*MW);
3049 
3050  //Yukawa couplings. Eq. (19)
3051 
3052  gslpp::complex yl1 = R11 + (R12 + i*R13)*sl;
3053  gslpp::complex yl2 = R21 + (R22 + i*R23)*sl;
3054  gslpp::complex yl3 = R31 + (R32 + i*R33)*sl;
3055 
3056 
3057 
3058  gslpp::complex CSboxU = CSboxBll(xt, xHp, su, sd, sl);
3059  gslpp::complex CPboxU = CPboxBll(xt, xHp, su, sd, sl);
3060  gslpp::complex CPZU = CPZUBll(xt, xHp, sW2, su, sd);
3061 
3062  gslpp::complex CSphi1U = yl1.real()*CphiU(xHp, xt, vev, xphi1, mu, R11, R12, R13, mH1_2, lambda3, Relambda7, Imlambda7, su, sd);
3063  gslpp::complex CSphi2U = yl2.real()*CphiU(xHp, xt, vev, xphi2, mu, R21, R22, R23, mH2_2, lambda3, Relambda7, Imlambda7, su, sd);
3064  gslpp::complex CSphi3U = yl3.real()*CphiU(xHp, xt, vev, xphi3, mu, R31, R32, R33, mH3_2, lambda3, Relambda7, Imlambda7, su, sd);
3065 
3066  gslpp::complex CPphi1U = i*yl1.imag()*CphiU(xHp, xt, vev, xphi1, mu, R11, R12, R13, mH1_2, lambda3, Relambda7, Imlambda7, su, sd);
3067  gslpp::complex CPphi2U = i*yl2.imag()*CphiU(xHp, xt, vev, xphi2, mu, R21, R22, R23, mH2_2, lambda3, Relambda7, Imlambda7, su, sd);
3068  gslpp::complex CPphi3U = i*yl3.imag()*CphiU(xHp, xt, vev, xphi3, mu, R31, R32, R33, mH3_2, lambda3, Relambda7, Imlambda7, su, sd);
3069 
3070  //Total 2HDM Wilson coefficients CS and CP PART. Eq. (31)-(33) without SM part
3071 
3072  gslpp::complex CSphiU = CSboxU + CSphi1U + CSphi2U + CSphi3U;
3073  gslpp::complex CPphiU = CPboxU + CPZU + CPphi1U + CPphi2U + CPphi3U;
3074 
3075 
3076  vmcBMll = StandardModelMatching::CMBMll(lepton);
3077  switch (mcbsg.getScheme()) {
3078  case NDR:
3079 
3080  break;
3081  default:
3082  std::stringstream out;
3083  out << mcBMll.getScheme();
3084  throw std::runtime_error("GeneralTHDMMatching::CMBMll(): scheme " + out.str() + "not implemented");
3085  }
3086  mcBMll.setMu(Muw);
3087 
3088  switch (mcBMll.getOrder()) {
3089  case NNLO:
3090  case NLO:
3091  case LO:
3092  mcBMll.setCoeff(9 , C10Bll(xt, xHp, su)/(sW2), LO);
3093  mcBMll.setCoeff(10 , (CSphiU*mb*ml)/(MW*MW*sW2), LO);
3094  mcBMll.setCoeff(11 , (CPphiU*mb*ml)/(MW*MW*sW2), LO);
3095  break;
3096  default:
3097  std::stringstream out;
3098  out << mcBMll.getOrder();
3099  throw std::runtime_error("GeneralTHDMMatching::CMBMll(): order " + out.str() + "not implemeted");
3100  }
3101  vmcBMll.push_back(mcBMll);
3102  return (vmcBMll);
3103 }
3104 
3105 
3106 std::vector<WilsonCoefficient>& GeneralTHDMMatching::CMbtaunu(QCD::meson meson_i) {
3107 
3108  double Muw = myGTHDM.getMuw();
3109  double GF = myGTHDM.getGF();
3110  myCKM = myGTHDM.getVCKM();
3111  double mB = myGTHDM.getMesons(meson_i).getMass();
3112  double tanb = myGTHDM.gettanb();
3113  double mHp2=myGTHDM.getmHp2();
3114 
3115  vmcbtaunu = StandardModelMatching::CMbtaunu(meson_i);
3116  mcbtaunu.setMu(Muw);
3117 
3118  switch (mcbtaunu.getOrder()) {
3119  case NNLO:
3120  case NLO:
3121  case LO:
3122  if (meson_i == QCD::B_P) mcbtaunu.setCoeff(0, -4.*GF * myCKM(0,2) / negsquareroot(2.) * mB*mB*tanb*tanb/mHp2, LO);
3123  else if (meson_i == QCD::B_C) mcbtaunu.setCoeff(0, -4.*GF * myCKM(1,2) / negsquareroot(2.) * mB*mB*tanb*tanb/mHp2, LO);
3124  else throw std::runtime_error("GeneralTHDMMatching::CMbtaunu(): meson not implemeted");
3125  break;
3126  default:
3127  std::stringstream out;
3128  out << mcbtaunu.getOrder();
3129  throw std::runtime_error("THDMMatching::CMbtaunu(): order " + out.str() + "not implemented");
3130  }
3131 
3132  vmcbtaunu.push_back(mcbtaunu);
3133  return(vmcbtaunu);
3134 
3135 }
3136 
3137 std::vector<WilsonCoefficient>& GeneralTHDMMatching::CMbsg()
3138 {
3139  vmcbsg = StandardModelMatching::CMbsg();
3140 
3141  if (!myGTHDM.getATHDMflag())
3142  {
3143  throw std::runtime_error("bsgamma is only available in the ATHDM at the moment.");
3144  return (vmcbsg);
3145  }
3146 
3147  double Muw = myGTHDM.getMuw();
3148 
3149  double Mut = myGTHDM.getMut();
3150  double mt = myGTHDM.Mrun(Mut, myGTHDM.getQuarks(QCD::TOP).getMass_scale(),
3151  myGTHDM.getQuarks(QCD::TOP).getMass(), FULLNNLO);
3152  double mHp=myGTHDM.getmHp();
3153 
3154  gslpp::complex sigmau = myGTHDM.getNu_11();
3155  gslpp::complex sigmad = myGTHDM.getNd_11();
3156 
3157  gslpp::complex co = 1.; // (- 4. * GF / sqrt(2)) * SM.computelamt_s(); THIS SHOULD ALREADY BE IMPLEMENTED IN THE OBSERVABLE
3158  mcbsg.setMu(Muw);
3159 
3160  switch (mcbsg.getOrder()) {
3161  case NNLO:
3162  for (int j=0; j<8; j++){
3163  mcbsg.setCoeff(j, co * myGTHDM.Alstilde5(Muw) * myGTHDM.Alstilde5(Muw) * setWCbsg(j, sigmau, sigmad, mt, mHp, Muw, NNLO), NNLO);
3164  }
3165  case NLO:
3166  for (int j=0; j<8; j++){
3167  mcbsg.setCoeff(j, co * myGTHDM.Alstilde5(Muw) * setWCbsg(j, sigmau, sigmad, mt, mHp, Muw, NLO), NLO);
3168  }
3169  case LO:
3170  for (int j=0; j<8; j++){
3171  mcbsg.setCoeff(j, co * setWCbsg(j, sigmau, sigmad, mt, mHp, Muw, LO), LO);
3172  }
3173  break;
3174  default:
3175  std::stringstream out;
3176  out << mcbsg.getOrder();
3177  throw std::runtime_error("THDMMatching::CMbsg(): order " + out.str() + "not implemented");
3178  }
3179 
3180  vmcbsg.push_back(mcbsg);
3181  return(vmcbsg);
3182 }
3183 
3184 /*******************************************************************************
3185  * Wilson coefficients calculus, Misiak base for b -> s gamma *
3186  * ****************************************************************************/
3187 
3188 gslpp::complex GeneralTHDMMatching::setWCbsg(int i, gslpp::complex sigmau, gslpp::complex sigmad, double mt, double mhp, double mu, orders order)
3189 {
3190  if ( su.abs() == sigmau.abs() && su.arg() == sigmau.arg() &&
3191  sd.abs() == sigmad.abs() && sd.arg() == sigmad.arg() &&
3192  mtbsg == mt && mhpbsg == mhp && mubsg == mu){
3193  switch (order){
3194  case NNLO:
3195  return ( CWbsgArrayNNLO[i] );
3196  case NLO:
3197  return ( CWbsgArrayNLO[i] );
3198  break;
3199  case LO:
3200  return ( CWbsgArrayLO[i] );
3201  break;
3202  default:
3203  std::stringstream out;
3204  out << order;
3205  throw std::runtime_error("order" + out.str() + "not implemeted");
3206  }
3207  }
3208 
3209  su = sigmau; sd = sigmad; mtbsg = mt; mhpbsg = mhp; mubsg = mu;
3210 
3211  double x = mt*mt/mhp/mhp;
3212 
3213  double x2 = x*x;
3214  double x3 = x2*x;
3215  double x4 = x3*x;
3216  double x5 = x4*x;
3217  double xm = 1. - x;
3218  double xm2 = xm*xm;
3219  double xm3 = xm2*xm;
3220  double xm4 = xm3*xm;
3221  double xm6 = xm4*xm2;
3222  double xm8 = xm4*xm4;
3223  double xo = 1. - 1./x;
3224  double xo2 = xo*xo;
3225  double xo4 = xo*xo2*xo;
3226  double xo6 = xo4*xo2;
3227  double xo8 = xo4*xo4;
3228  double Lx = log(x);
3229  double Lx2 = Lx*Lx;
3230  double Lx3 = Lx2*Lx;
3231  double Li2 = gsl_sf_dilog(1.-1./x);
3232 
3233  double abssu = su.abs();
3234  double abssu2 = abssu*abssu;
3235  gslpp::complex susd = su.conjugate()*sd;
3236 
3237  double lstmu = 2. * log(mu/mt);
3238 
3239  double n70ct = - ( (7. - 5.*x - 8.*x2)/(36.*xm3) + (2.*x - 3.*x2)*Lx/(6.*xm4) ) * x/2.;
3240  double n70fr = ( (3.*x - 5.*x2)/(6.*xm2) + (2.*x - 3.*x2)*Lx/(3.*xm3) ) / 2.;
3241 
3242  double n80ct = - ( (2. + 5.*x - x2)/(12.*xm3) + (x*Lx)/(2.*xm4) ) * x/2.;
3243  double n80fr = ( (3.*x - x2)/(2.*xm2) + (x*Lx)/xm3 ) / 2.;
3244 
3245  double n41ct = (-16.*x + 29.*x2 - 7.*x3)/(36.*xm3) + (-2.*x + 3.*x2)*Lx/(6.*xm4);
3246 
3247  double n71ct = (797.*x - 5436.*x2 + 7569.*x3 - 1202.*x4)/(486.*xm4) +
3248  (36.*x2 - 74.*x3 + 16.*x4)*Li2/(9.*xm4) +
3249  ((7.*x - 463.*x2 + 807.*x3 - 63.*x4)*Lx)/(81.*xm3*xm2);
3250  double cd71ct = (-31.*x - 18.*x2 + 135.*x3 - 14.*x4)/(27.*xm4) + (-28.*x2 + 46.*x3 + 6.*x4)*Lx/(9.*xm3*xm2);
3251  double n71fr = (28.*x - 52.*x2 + 8.*x3)/(3.*xm3) + (-48.*x + 112.*x2 - 32.*x3)*Li2/(9.*xm3) +
3252  (66.*x - 128.*x2 + 14.*x3)*Lx/(9.*xm4);
3253  double cd71fr = (42.*x - 94.*x2 + 16.*x3)/(9.*xm3) + (32.*x - 56.*x2 - 12.*x3)*Lx/(9.*xm4);
3254 
3255  double n81ct = (1130.*x - 18153.*x2 + 7650.*x3 - 4451.*x4)/(1296.*xm4) +
3256  (30.*x2 - 17.*x3 + 13.*x4)*Li2/(6.*xm4) +
3257  (-2.*x - 2155.*x2 + 321.*x3 - 468.*x4)*Lx/(216.*xm3*xm2);
3258  double cd81ct = (-38.*x - 261.*x2 + 18.*x3 - 7.*x4)/(36.*xm4) + (-31.*x2 - 17.*x3)*Lx/(6.*xm3*xm2);
3259  double n81fr = (143.*x - 44.*x2 + 29.*x3)/(8.*xm3) + (-36.*x + 25.*x2 - 17.*x3)*Li2/(6.*xm3) +
3260  (165.*x - 7.*x2 + 34.*x3)*Lx/(12.*xm4);
3261  double cd81fr = (81.*x - 16.*x2 + 7.*x3)/(6.*xm3) + (19.*x + 17.*x2)*Lx/(3.*xm4);
3262 
3263  double n32ct = (10.*x4 + 30.*x2 - 20.*x)/(27.*xm4) * Li2 +
3264  (30.*x3 - 66.*x2 - 56.*x)/(81.*xm4) * Lx + (6.*x3 - 187.*x2 + 213.*x)/(-81.*xm3);
3265  double cd32ct = (-30.*x2 + 20.*x)/(27.*xm4)*Lx + (-35.*x3 + 145.*x2 - 80.*x)/(-81.*xm3);
3266 
3267  double n42ct = (515.*x4 - 906.*x3 + 99.*x2 + 182.*x)/(54.*xm4) * Li2 +
3268  (1030.*x4 - 2763.*x3 - 15.*x2 + 980.*x)/(-108.*xm3*xm2)*Lx +
3269  (-29467.*x4 + 68142.*x3 - 6717.*x2 - 18134.*x)/(1944.*xm4);
3270  double cd42ct = (-375.*x3 - 95.*x2 + 182.*x)/(-54.*xm3*xm2)*Lx +
3271  (133.*x4 - 108.*x3 + 4023.*x2 - 2320.*x)/(324.*xm4);
3272 
3273  double cd72ct = -(x * (67930.*x4 - 470095.*x3 + 1358478.*x2 - 700243.*x + 54970.))/(-2187.*xm3*xm2) +
3274  (x * (10422.*x4 - 84390.*x3 + 322801.*x2 - 146588.*x + 1435.))/(729.*xm6)*Lx +
3275  (2.*x2 * (260.*x3 - 1515.*x2 + 3757.*x - 1446.))/(-27. * xm3*xm2) * Li2;
3276  double ce72ct = (x * (-518.*x4 + 3665.*x3 - 17397.*x2 + 3767.*x + 1843.))/(-162.*xm3*xm2) +
3277  (x2 * (-63.*x3 + 532.*x2 + 2089.*x - 1118.))/(27.*xm6)*Lx;
3278  double cd72fr = -(x * (3790.*x3 - 22511.*x2 + 53614.*x - 21069.))/(81.*xm4) -
3279  (2.*x * (-1266.*x3 + 7642.*x2 - 21467.*x + 8179.))/(-81.*xm3*xm2)*Lx +
3280  (8.*x * (139.*x3 - 612.*x2 + 1103.*x - 342.))/(27.*xm4) * Li2;
3281  double ce72fr = -(x * (284.*x3 - 1435.*x2 + 4304.*x - 1425.))/(27.*xm4) -
3282  (2.*x * (63.*x3 - 397.*x2 - 970.*x + 440.))/(-27.*xm3*xm2)*Lx;
3283 
3284  double cd82ct = -(x * (522347.*x4 - 2423255.*x3 + 2706021.*x2 - 5930609.*x + 148856))/(-11664.*xm3*xm2) +
3285  (x * (51948.*x4 - 233781.*x3 + 48634.*x2 - 698693.*x + 2452.))/(1944.*xm6)*Lx +
3286  (x2 * (481.*x3 - 1950.*x2 + 1523.*x - 2550.))/(-18.*xm3*xm2) * Li2;
3287  double ce82ct = (x * (-259.*x4 + 1117.*x3 + 2925.*x2 + 28411.*x + 2366.))/(-216.*xm3*xm2) -
3288  (x2 * (139.*x2 + 2938.*x + 2683.))/(36.*xm6)*Lx;
3289  double cd82fr = -(x * (1463.*x3 - 5794.*x2 + 5543.*x - 15036.))/(27.*xm4) -
3290  (x * (-1887.*x3 + 7115.*x2 + 2519.*x + 19901.))/(-54.*xm3*xm2)*Lx -
3291  (x * (-629.*x3 + 2178.*x2 - 1729.*x + 2196.))/(18.*xm4) * Li2;
3292  double ce82fr = -(x * (259.*x3 - 947.*x2 - 251.*x - 5973.))/(36.*xm4)-
3293  (x * (139.*x2 + 2134.*x + 1183.))/(-18.*xm3*xm2)*Lx;
3294 
3295  double n72ct = 0.;
3296  if (mhp < 50.)
3297  n72ct = -274.2/x5 - 72.13*Lx/x5 + 24.41/x4 - 168.3*Lx/x4 + 79.15/x3 -
3298  103.8*Lx/x3 + 47.09/x2 - 38.12*Lx/x2 + 15.35/x - 8.753*Lx/x + 3.970;
3299  else if (mhp < mt)
3300  n72ct = 1.283 + 0.7158 * xo + 0.4119 * xo2 + 0.2629 * xo*xo2 + 0.1825 * xo4 +
3301  0.1347 * xo*xo4 + 0.1040 * xo6 + 0.0831 * xo*xo6 + 0.06804 * xo8 +
3302  0.05688 * xo*xo8 + 0.04833 * xo2*xo8 + 0.04163 * xo*xo2*xo8 + 0.03625 * xo4*xo8 +
3303  0.03188 * xo*xo4*xo8 + 0.02827 * xo6*xo8 + 0.02525 * xo*xo6*xo8 + 0.02269 * xo8*xo8;
3304  else if (mhp < 520.)
3305  n72ct = 1.283 - 0.7158 * xm - 0.3039 * xm2 - 0.1549 * xm3 - 0.08625 * xm4 -
3306  0.05020 * xm3*xm2 - 0.02970 * xm6 - 0.01740 * xm3*xm4 - 0.009752 * xm8 -
3307  0.004877 * xm3*xm6 - 0.001721 * xm2*xm8 + 0.0003378 * xm3*xm8 + 0.001679 * xm4*xm8 +
3308  0.002542 * xm*xm4*xm8 + 0.003083 * xm6*xm8 + 0.003404 * xm*xm6*xm8 + 0.003574 * xm8*xm8;
3309  else n72ct = -823.0*x5 + 42.30*x5*Lx3 - 412.4*x5*Lx2 - 3362*x5*Lx -
3310  1492*x4 - 23.26*x4*Lx3 - 541.4*x4*Lx2 - 2540*x4*Lx -
3311  1158*x3 - 34.50*x3*Lx3 - 348.2*x3*Lx2 - 1292*x3*Lx -
3312  480.9*x2 - 20.73*x2*Lx3 - 112.4*x2*Lx2 - 396.1*x2*Lx -
3313  8.278*x + 0.9225*x*Lx2 + 4.317*x*Lx;
3314 
3315  double n72fr = 0.;
3316  if (mhp < 50.)
3317  n72fr = -( 194.3/x5 + 101.1*Lx/x5 - 24.97/x4 + 168.4*Lx/x4 - 78.90/x3 +
3318  106.2*Lx/x3 - 49.32/x2 + 38.43*Lx/x2 - 12.91/x + 9.757*Lx/x + 8.088 );
3319  else if (mhp < mt)
3320  n72fr = -( 12.82 - 1.663 * xo - 0.8852 * xo2 - 0.4827 * xo*xo2 - 0.2976 * xo4 -
3321  0.2021 * xo*xo4 - 0.1470 * xo6 - 0.1125 * xo*xo6 - 0.08931 * xo8 -
3322  0.07291 * xo*xo8 - 0.06083 * xo2*xo8 - 0.05164 * xo*xo2*xo8 - 0.04446 * xo4*xo8 -
3323  0.03873 * xo*xo4*xo8 - 0.03407 * xo6*xo8 - 0.03023 * xo*xo6*xo8 - 0.02702 * xo8*xo8 );
3324  else if (mhp < 400.)
3325  n72fr = -( 12.82 + 1.663 * xm + 0.7780 * xm2 + 0.3755 * xm3 + 0.1581 * xm4 +
3326  0.03021 * xm3*xm2 - 0.04868 * xm6 - 0.09864 * xm3*xm4 - 0.1306 * xm8 -
3327  0.1510 * xm3*xm6 - 0.1637 * xm2*xm8 - 0.1712 * xm3*xm8 - 0.1751 * xm4*xm8 -
3328  0.1766 * xm*xm4*xm8 - 0.1763 * xm6*xm8 - 0.1748 * xm*xm6*xm8 - 0.1724 * xm8*xm8 );
3329  else n72fr = -( 2828 * x5 - 66.63 * x5*Lx3 + 469.4 * x5*Lx2 + 1986 * x5*Lx +
3330  1480 * x4 + 36.08 * x4*Lx3 + 323.2 * x4*Lx2 + 169.9 * x4*Lx +
3331  166.7 * x3 + 19.73 * x3*Lx3 - 46.61 * x3*Lx2 - 826.2 * x3*Lx -
3332  524.1 * x2 - 8.889 * x2*Lx3 - 195.7 * x2*Lx2 - 870.3 * x2*Lx -
3333  572.2 * x - 20.94 * x*Lx3 - 123.5 * x*Lx2 - 453.5 * x*Lx );
3334 
3335  double n82ct = 0.;
3336  if (mhp < 50.)
3337  n82ct = 826.2/x5 - 300.7*Lx/x5 + 96.35/x4 + 91.89*Lx/x4 - 66.39/x3 +
3338  78.58*Lx/x3 - 39.76/x2 + 20.02*Lx/x2 - 5.214/x + 2.278;
3339  else if (mhp < mt)
3340  n82ct = 1.188 + 0.4078 * xo + 0.2002 * xo2 + 0.1190 * xo*xo2 + 0.07861 * xo4 +
3341  0.05531 * xo*xo4 + 0.04061 * xo6 + 0.03075 * xo*xo6 + 0.02386 * xo8 +
3342  0.01888 * xo*xo8 + 0.01520 * xo2*xo8 + 0.01241 * xo*xo2*xo8 + 0.01026 * xo4*xo8 +
3343  0.008575 * xo*xo4*xo8 + 0.007238 * xo6*xo8 + 0.006164 * xo*xo6*xo8 + 0.005290 * xo8*xo8;
3344  else if (mhp < 600.)
3345  n82ct = 1.188 - 0.4078 * xm - 0.2076 * xm2 - 0.1265 * xm3 - 0.08570 * xm4 -
3346  0.06204 * xm3*xm2 - 0.04689 * xm6 - 0.03652 * xm3*xm4 - 0.02907 * xm8 -
3347  0.02354 * xm3*xm6 - 0.01933 * xm2*xm8 - 0.01605 * xm3*xm8 - 0.01345 * xm4*xm8 -
3348  0.01137 * xm*xm4*xm8 - 0.009678 * xm6*xm8 - 0.008293 * xm*xm6*xm8 - 0.007148 * xm8*xm8;
3349  else n82ct = -19606 * x5 - 226.7 * x5*Lx3 - 5251 * x5*Lx2 - 26090 * x5*Lx -
3350  9016 * x4 - 143.4 * x4*Lx3 - 2244 * x4*Lx2 - 10102 * x4*Lx -
3351  3357 * x3 - 66.32 * x3*Lx3 - 779.6 * x3*Lx2 - 3077 * x3*Lx -
3352  805.5 * x2 - 22.98 * x2*Lx3 - 169.1 * x2*Lx2 - 602.7 * x2*Lx +
3353  0.7437 * x + 0.6908 * x*Lx2 + 3.238 * x*Lx;
3354 
3355  double n82fr = 0.;
3356  if (mhp < 50.)
3357  n82fr = -( -1003/x5 + 476.9*Lx/x5 - 205.7/x4 - 71.62*Lx/x4 + 62.26/x3 -
3358  110.7*Lx/x3 + 63.74/x2 - 35.42*Lx/x2 + 10.89/x - 3.174 );
3359  else if (mhp < mt)
3360  n82fr = -( -0.6110 - 1.095 * xo - 0.4463 * xo2 - 0.2568 * xo*xo2 - 0.1698 * xo4 -
3361  0.1197 * xo*xo4 - 0.08761 * xo6 - 0.06595 * xo*xo6 - 0.05079 * xo8 -
3362  0.03987 * xo*xo8 - 0.03182 * xo2*xo8 - 0.02577 * xo*xo2*xo8 - 0.02114 * xo4*xo8 -
3363  0.01754 * xo*xo4*xo8 - 0.01471 * xo6*xo8 - 0.01244 * xo*xo6*xo8 - 0.01062 * xo8*xo8 );
3364  else if (mhp < 520.)
3365  n82fr = -( -0.6110 + 1.095 * xm + 0.6492 * xm2 + 0.4596 * xm3 + 0.3569 * xm4 +
3366  0.2910 * xm3*xm2 + 0.2438 * xm6 + 0.2075 * xm3*xm4 + 0.1785 * xm8 +
3367  0.1546 * xm3*xm6 + 0.1347 * xm2*xm8 + 0.1177 * xm3*xm8 + 0.1032 * xm4*xm8 +
3368  0.09073 * xm*xm4*xm8 + 0.07987 * xm6*xm8 + 0.07040 * xm*xm6*xm8 + 0.06210 * xm8*xm8 );
3369  else n82fr = -( -15961 * x5 + 1003 * x5*Lx3 - 2627 * x5*Lx2 - 29962 * x5*Lx -
3370  11683 * x4 + 54.66 * x4*Lx3 - 2777 * x4*Lx2 - 17770 * x4*Lx -
3371  6481 * x3 - 40.68 * x3*Lx3 - 1439 * x3*Lx2 - 7906 * x3*Lx -
3372  2943 * x2 - 31.83 * x2*Lx3 - 612.6 * x2*Lx2 - 2770 * x2*Lx -
3373  929.8 * x - 19.80 * x*Lx3 - 174.7 * x*Lx2 - 658.4 * x*Lx );
3374 
3375 
3376  switch (order){
3377  case NNLO:
3378  CWbsgArrayNNLO[2] = ( n32ct + cd32ct * lstmu ) * abssu2;
3379  CWbsgArrayNNLO[3] = ( n42ct + cd42ct * lstmu ) * abssu2;
3380  CWbsgArrayNNLO[4] = 2./15. * n41ct * abssu2 - CWbsgArrayNNLO[2] / 10.;
3381  CWbsgArrayNNLO[5] = 0.25 * n41ct * abssu2 - CWbsgArrayNNLO[2] * 3./16.;
3382  CWbsgArrayNNLO[6] = -( n72ct + cd72ct * lstmu + ce72ct * lstmu * lstmu) * abssu2
3383  +( n72fr + cd72fr * lstmu + ce72fr * lstmu * lstmu) * susd
3384  - 1./3.*CWbsgArrayNNLO[2] - 4./9.*CWbsgArrayNNLO[3] - 20./3.*CWbsgArrayNNLO[4] - 80./9.*CWbsgArrayNNLO[5];
3385  CWbsgArrayNNLO[7] = -( n82ct + cd82ct * lstmu + ce82ct * lstmu * lstmu) * abssu2
3386  +( n82fr + cd82fr * lstmu + ce82fr * lstmu * lstmu) * susd
3387  + CWbsgArrayNNLO[2] - 1./6.*CWbsgArrayNNLO[3] - 20.*CWbsgArrayNNLO[4] - 10./3.*CWbsgArrayNNLO[5];
3388  case NLO:
3389  CWbsgArrayNLO[3] = n41ct * abssu2;
3390  CWbsgArrayNLO[6] = ( n71ct + cd71ct * lstmu ) * abssu2 - (n71fr + cd71fr * lstmu) * susd - 4./9.*CWbsgArrayNLO[3];
3391  CWbsgArrayNLO[7] = ( n81ct + cd81ct * lstmu ) * abssu2 - (n81fr + cd81fr * lstmu) * susd - 1./6.*CWbsgArrayNLO[3];
3392  case LO:
3393  CWbsgArrayLO[6] = n70ct * abssu2 - n70fr * susd;
3394  CWbsgArrayLO[7] = n80ct * abssu2 - n80fr * susd;
3395  break;
3396  default:
3397  std::stringstream out;
3398  out << order;
3399  throw std::runtime_error("order" + out.str() + "not implemeted");
3400  }
3401 
3402  /*std::cout << "CWbsgArrayLO[6] = " << CWbsgArrayLO[6] << std::endl;
3403  std::cout << "CWbsgArrayLO[7] = " << CWbsgArrayLO[7] << std::endl;
3404  std::cout << "CWbsgArrayNLO[3] = " << CWbsgArrayNLO[3] << std::endl;
3405  std::cout << "CWbsgArrayNLO[6] = " << CWbsgArrayNLO[6] << std::endl;
3406  std::cout << "CWbsgArrayNLO[7] = " << CWbsgArrayNLO[7] << std::endl;
3407  std::cout << "CWbsgArrayNNLO[2] = " << CWbsgArrayNNLO[2] << std::endl;
3408  std::cout << "CWbsgArrayNNLO[3] = " << CWbsgArrayNNLO[3] << std::endl;
3409  std::cout << "CWbsgArrayNNLO[4] = " << CWbsgArrayNNLO[4] << std::endl;
3410  std::cout << "CWbsgArrayNNLO[5] = " << CWbsgArrayNNLO[5] << std::endl;
3411  std::cout << "CWbsgArrayNNLO[6] = " << CWbsgArrayNNLO[6] << std::endl;
3412  std::cout << "CWbsgArrayNNLO[7] = " << CWbsgArrayNNLO[7] << std::endl;*/
3413 
3414 
3415  switch (order){
3416  case NNLO:
3417  return ( CWbsgArrayNNLO[i] );
3418  case NLO:
3419  return ( CWbsgArrayNLO[i] );
3420  break;
3421  case LO:
3422  return ( CWbsgArrayLO[i] );
3423  break;
3424  default:
3425  std::stringstream out;
3426  out << order;
3427  throw std::runtime_error("order" + out.str() + "not implemeted");
3428  }
3429 }
3430 
QCD::TAU
Definition: QCD.h:316
GeneralTHDM::getmH2sq
double getmH2sq() const
A getter for second neutral mass eigenvalue.
Definition: GeneralTHDM.h:644
gslpp::cos
complex cos(const complex &z)
Definition: gslpp_complex.cpp:429
GeneralTHDMMatching::f10
virtual double f10(double xHp, double xt)
Definition: GeneralTHDMMatching.cpp:2914
__f_params
Definition: GeneralTHDMMatching.cpp:113
StandardModel::cW2
virtual double cW2(const double Mw_i) const
The square of the cosine of the weak mixing angle in the on-shell scheme, denoted as .
Definition: StandardModel.cpp:989
StandardModel::v
virtual double v() const
The Higgs vacuum expectation value.
Definition: StandardModel.cpp:917
GeneralTHDM::getmHp
double getmHp() const
A getter for the charged Higgs mass.
Definition: GeneralTHDM.h:623
QCD::BOTTOM
Definition: QCD.h:329
GeneralTHDMMatching::mtbsg
double mtbsg
Definition: GeneralTHDMMatching.h:249
Li2
cd Li2(cd x)
Definition: hpl.h:1011
__f_params::a
double a
Definition: GeneralTHDMMatching.cpp:114
GeneralTHDM::getNd_11
gslpp::complex getNd_11() const
A getter for Nd matrix element 11.
Definition: GeneralTHDM.h:910
GeneralTHDMMatching::gminus2muLO
virtual double gminus2muLO()
Calculates amplitudes for at one loop from .
Definition: GeneralTHDMMatching.cpp:35
GeneralTHDMMatching::lambdaHHphi
virtual gslpp::complex lambdaHHphi(double lambda3, double Relambda7, double Imlambda7, double Ri1, double Ri2, double Ri3)
Definition: GeneralTHDMMatching.cpp:2960
GeneralTHDMMatching::mMU
double mMU
Definition: GeneralTHDMMatching.h:247
GeneralTHDMMatching::CMbtaunu
virtual std::vector< WilsonCoefficient > & CMbtaunu(QCD::meson meson_i)
Definition: GeneralTHDMMatching.cpp:3106
GeneralTHDMMatching::CPZUBll
virtual gslpp::complex CPZUBll(double xt, double xHp, double sW2, gslpp::complex su, gslpp::complex sd)
Definition: GeneralTHDMMatching.cpp:2795
GeneralTHDMMatching::mubsg
double mubsg
Definition: GeneralTHDMMatching.h:249
GeneralTHDMMatching::CPboxBll
virtual gslpp::complex CPboxBll(double xt, double xHp, gslpp::complex su, gslpp::complex sd, gslpp::complex sl)
Definition: GeneralTHDMMatching.cpp:2784
GeneralTHDMMatching::myCKM
gslpp::matrix< gslpp::complex > myCKM
Definition: GeneralTHDMMatching.h:244
GeneralTHDMMatching::g2a
virtual gslpp::complex g2a(double xHp, double xt, gslpp::complex su, gslpp::complex sd)
Definition: GeneralTHDMMatching.cpp:2941
StandardModelMatching::CMdbs2
virtual std::vector< WilsonCoefficient > & CMdbs2()
,
Definition: StandardModelMatching.cpp:1043
gscalar2
double gscalar2(double r)
Definition: GeneralTHDMMatching.cpp:130
CKM::computelamt_s
gslpp::complex computelamt_s() const
The product of the CKM elements .
Definition: CKM.cpp:136
GeneralTHDM::gettanb
double gettanb() const
A getter for .
Definition: GeneralTHDM.h:583
GeneralTHDMMatching::CMgminus2mu
virtual std::vector< WilsonCoefficient > & CMgminus2mu()
Wilson coefficient for .
Definition: GeneralTHDMMatching.cpp:2629
gslpp::sin
complex sin(const complex &z)
Definition: gslpp_complex.cpp:420
GeneralTHDMMatching::f7
virtual double f7(double xHp, double xt)
Definition: GeneralTHDMMatching.cpp:2882
GeneralTHDM::getMyGTHDMCache
GeneralTHDMcache * getMyGTHDMCache() const
Definition: GeneralTHDM.h:564
LO
Definition: OrderScheme.h:33
GeneralTHDMMatching::CMBMll
virtual std::vector< WilsonCoefficient > & CMBMll(QCD::lepton lepton)
Definition: GeneralTHDMMatching.cpp:2977
GeneralTHDM::Mw
virtual double Mw() const
Definition: GeneralTHDM.cpp:673
GeneralTHDMMatching::f4
virtual double f4(double xHp, double xt)
Definition: GeneralTHDMMatching.cpp:2850
lambda3
An observable class for the quartic Higgs potential coupling .
Definition: THDMquantities.h:428
GeneralTHDM::getNl_11
gslpp::complex getNl_11() const
A getter for Nl matrix element 11.
Definition: GeneralTHDM.h:1001
Polylogarithms::Li2
gslpp::complex Li2(const double x) const
The dilogarithm with a real argument, .
Definition: Polylogarithms.cpp:22
GeneralTHDMMatching::PolyLog
const Polylogarithms PolyLog
Definition: GeneralTHDMMatching.h:252
NDR
Definition: OrderScheme.h:21
ModelMatching::CMbsg
virtual std::vector< WilsonCoefficient > & CMbsg()=0
gslpp::complex
A class for defining operations on and functions of complex numbers.
Definition: gslpp_complex.h:35
gslpp::log
complex log(const complex &z)
Definition: gslpp_complex.cpp:342
GeneralTHDMMatching::f1
virtual double f1(double xHp, double xt)
Definition: GeneralTHDMMatching.cpp:2822
Particle::getMass_scale
double getMass_scale() const
A get method to access the scale at which the particle mass is defined.
Definition: Particle.h:133
GeneralTHDMMatching::TF
virtual gslpp::complex TF(double m1, double m2, double m3)
Calculates the function of Eq. (68) of 1607.06292.
Definition: GeneralTHDMMatching.cpp:207
gslpp::complex::abs2
double abs2() const
Definition: gslpp_complex.cpp:86
WilsonTemplate::getScheme
schemes getScheme() const
Definition: WilsonTemplate.h:98
GeneralTHDMMatching::CWbsgArrayNLO
gslpp::complex CWbsgArrayNLO[8]
Definition: GeneralTHDMMatching.h:248
GeneralTHDMMatching::mcdbs2
WilsonCoefficient mcdbs2
Definition: GeneralTHDMMatching.h:245
GeneralTHDMMatching::f9
virtual double f9(double xHp, double xt)
Definition: GeneralTHDMMatching.cpp:2903
GeneralTHDMMatching::su
gslpp::complex su
Definition: GeneralTHDMMatching.h:250
GeneralTHDMMatching::GeneralTHDMMatching
GeneralTHDMMatching(const GeneralTHDM &GeneralTHDM_i)
Definition: GeneralTHDMMatching.cpp:15
StandardModel::sW2
virtual double sW2(const double Mw_i) const
The square of the sine of the weak mixing angle in the on-shell scheme, denoted as .
Definition: StandardModel.cpp:1000
StandardModel::Alstilde5
double Alstilde5(const double mu) const
The value of at any scale with the number of flavours and full EW corrections.
Definition: StandardModel.cpp:873
GeneralTHDMMatching::gminus2muNLOB
virtual double gminus2muNLOB()
Calculates amplitudes for at approximate two-loop from .
Definition: GeneralTHDMMatching.cpp:493
GeneralTHDMMatching::neglog
virtual gslpp::complex neglog(gslpp::complex argument)
Calculates the log of a negative number.
Definition: GeneralTHDMMatching.cpp:196
GeneralTHDMMatching.h
GeneralTHDMMatching::mcbtaunu
WilsonCoefficient mcbtaunu
Definition: GeneralTHDMMatching.h:245
GeneralTHDM::getMuw
double getMuw() const
A get method to retrieve the matching scale around the weak scale.
Definition: GeneralTHDM.h:529
GeneralTHDMMatching::gminus2muNLOF
virtual double gminus2muNLOF()
Calculates amplitudes for at approximate two-loop from .
Definition: GeneralTHDMMatching.cpp:272
WilsonTemplate::getOrder
orders getOrder() const
Definition: WilsonTemplate.h:65
__fS2_integrand
double __fS2_integrand(double x, void *p)
Definition: GeneralTHDMMatching.cpp:117
gslpp::complex::imag
const double & imag() const
Definition: gslpp_complex.cpp:59
StandardModelMatching
A class for the matching in the Standard Model.
Definition: StandardModelMatching.h:26
GeneralTHDMMatching::mcgminus2mu
WilsonCoefficient mcgminus2mu
Definition: GeneralTHDMMatching.h:245
GeneralTHDMMatching::CWbsgArrayLO
gslpp::complex CWbsgArrayLO[8]
Definition: GeneralTHDMMatching.h:248
gslpp::complex::conjugate
complex conjugate() const
Definition: gslpp_complex.cpp:288
WilsonCoefficient::setCoeff
void setCoeff(const gslpp::vector< gslpp::complex > &z, orders order_i)
Definition: WilsonCoefficient.h:34
Particle::getMass
const double & getMass() const
A get method to access the particle mass.
Definition: Particle.h:61
GeneralTHDMMatching::f6
virtual double f6(double xHp, double xt)
Definition: GeneralTHDMMatching.cpp:2868
GeneralTHDM::getmHp2
double getmHp2() const
A getter for the squared charged Higgs mass.
Definition: GeneralTHDM.h:608
GeneralTHDMMatching::CMbsg
virtual std::vector< WilsonCoefficient > & CMbsg()
operator basis: current current; qcd penguins; magnetic and chromomagnetic penguins; semileptonic
Definition: GeneralTHDMMatching.cpp:3137
ModelMatching::CMBMll
virtual std::vector< WilsonCoefficient > & CMBMll(QCD::lepton lepton)=0
gslpp::complex::abs
double abs() const
Definition: gslpp_complex.cpp:81
GeneralTHDMMatching::mhpbsg
double mhpbsg
Definition: GeneralTHDMMatching.h:249
mH1_2
The mass of the SM Higgs.
Definition: GeneralTHDMquantities.h:44
QCD::meson
meson
An enum type for mesons.
Definition: QCD.h:336
QCD::B_P
Definition: QCD.h:344
QCD::TOP
Definition: QCD.h:328
gslpp::complex::arg
double arg() const
Definition: gslpp_complex.cpp:76
GeneralTHDMMatching::f3
virtual double f3(double xHp, double xt)
Definition: GeneralTHDMMatching.cpp:2840
GeneralTHDMMatching::g3a
virtual gslpp::complex g3a(double xHp, double xt, gslpp::complex su, gslpp::complex sd)
Definition: GeneralTHDMMatching.cpp:2950
mH2_2
The mass of the SM Higgs.
Definition: GeneralTHDMquantities.h:66
gslpp::pow
complex pow(const complex &z1, const complex &z2)
Definition: gslpp_complex.cpp:395
StandardModel::getGF
double getGF() const
A get method to retrieve the Fermi constant .
Definition: StandardModel.h:736
gslpp::sqrt
complex sqrt(const complex &z)
Definition: gslpp_complex.cpp:385
QCD::getMesons
Meson getMesons(const QCD::meson m) const
A get method to access a meson as an object of the type Meson.
Definition: QCD.h:524
gslpp::complex::i
static const complex & i()
Definition: gslpp_complex.cpp:154
QCD::getMut
double getMut() const
A get method to access the threshold between six- and five-flavour theory in GeV.
Definition: QCD.h:561
GeneralTHDM.h
GeneralTHDMMatching::gminus2muNLO
virtual double gminus2muNLO()
Calculates amplitudes for at approximate two-loop from .
Definition: GeneralTHDMMatching.cpp:2609
NNLO
Definition: OrderScheme.h:35
QCD::B_C
Definition: QCD.h:346
GeneralTHDM::getmH3sq
double getmH3sq() const
A getter for the third neutral mass eigenvalue.
Definition: GeneralTHDM.h:661
QCD::getQuarks
Particle getQuarks(const QCD::quark q) const
A get method to access a quark as an object of the type Particle.
Definition: QCD.h:534
NLO_QED22
Definition: OrderScheme.h:55
WilsonTemplate::setMu
virtual void setMu(double mu)
Definition: WilsonTemplate.h:92
GeneralTHDM
A class for general Two-Higgs-Doublet models.
Definition: GeneralTHDM.h:463
GeneralTHDM::getNu_11
gslpp::complex getNu_11() const
A getter for Nu matrix element 11.
Definition: GeneralTHDM.h:818
GeneralTHDMMatching::g1a
virtual gslpp::complex g1a(double xHp, double xt, gslpp::complex su, gslpp::complex sd)
Definition: GeneralTHDMMatching.cpp:2932
GeneralTHDM::getATHDMflag
bool getATHDMflag() const
A getter for the flag to switch on the Aligned Two Higgs Doublet Model.
Definition: GeneralTHDM.h:1200
StandardModel::getVCKM
gslpp::matrix< gslpp::complex > getVCKM() const
A get method to retrieve the CKM matrix.
Definition: StandardModel.h:867
GeneralTHDMMatching::setWCbsg
gslpp::complex setWCbsg(int i, gslpp::complex sigmau, gslpp::complex sigmad, double mt, double mhp, double mu, orders order)
Definition: GeneralTHDMMatching.cpp:3187
GeneralTHDMMatching::mcbsg
WilsonCoefficient mcbsg
Definition: GeneralTHDMMatching.h:245
GeneralTHDMcache.h
GeneralTHDMMatching::negpow
virtual gslpp::complex negpow(double basis, double exp)
Calculates the power root of a negative number.
Definition: GeneralTHDMMatching.cpp:184
orders
orders
An enum type for orders in QCD.
Definition: OrderScheme.h:31
StandardModel::getMz
double getMz() const
A get method to access the mass of the boson .
Definition: StandardModel.h:718
GeneralTHDMMatching::GF
double GF
Definition: GeneralTHDMMatching.h:247
__fPS2_integrand
double __fPS2_integrand(double x, void *p)
Definition: GeneralTHDMMatching.cpp:123
GeneralTHDMMatching::f5
virtual double f5(double xHp, double xt)
Definition: GeneralTHDMMatching.cpp:2859
GeneralTHDMMatching::C10Bll
virtual double C10Bll(double xt, double xHp, gslpp::complex su)
Definition: GeneralTHDMMatching.cpp:2767
QCD::Mrun
double Mrun(const double mu, const double m, const orders order=FULLNNLO) const
Computes a running quark mass from .
Definition: QCD.cpp:1064
GeneralTHDMMatching::sl
gslpp::complex sl
Definition: GeneralTHDMMatching.h:250
GeneralTHDMMatching::CSboxBll
virtual gslpp::complex CSboxBll(double xt, double xHp, gslpp::complex su, gslpp::complex sd, gslpp::complex sl)
Definition: GeneralTHDMMatching.cpp:2773
gslpp::complex::real
const double & real() const
Definition: gslpp_complex.cpp:53
GeneralTHDMMatching::g0
virtual gslpp::complex g0(double xHp, double xt, gslpp::complex su, gslpp::complex sd)
Definition: GeneralTHDMMatching.cpp:2924
GeneralTHDMMatching::CWbsgArrayNNLO
gslpp::complex CWbsgArrayNNLO[8]
Definition: GeneralTHDMMatching.h:248
mH3_2
The mass of the SM Higgs.
Definition: GeneralTHDMquantities.h:89
GeneralTHDMMatching::CphiU
virtual gslpp::complex CphiU(double xHp, double xt, double vev, double xphi, double mu, double Ri1, double Ri2, double Ri3, double mHi_2, double lambda3, double Relambda7, double Imlambda7, gslpp::complex su, gslpp::complex sd)
Definition: GeneralTHDMMatching.cpp:2968
GeneralTHDM::getCPconservationflag
bool getCPconservationflag() const
A getter for the flag to switch on CP conservation.
Definition: GeneralTHDM.h:1209
NLO
Definition: OrderScheme.h:34
GeneralTHDMMatching::f2
virtual double f2(double xHp, double xt)
Definition: GeneralTHDMMatching.cpp:2832
StandardModel::getMHl
virtual double getMHl() const
A get method to retrieve the Higgs mass .
Definition: StandardModel.h:765
GeneralTHDMMatching::negsquareroot
virtual gslpp::complex negsquareroot(double x)
Calculates the square root of a negative number.
Definition: GeneralTHDMMatching.cpp:172
gslpp::exp
complex exp(const complex &z)
Definition: gslpp_complex.cpp:333
GeneralTHDM::getalpha1
double getalpha1() const
A getter for the rotation angle between the first and second neutral mass eigenstate.
Definition: GeneralTHDM.h:678
GeneralTHDMMatching::updateGTHDMParameters
void updateGTHDMParameters()
Definition: GeneralTHDMMatching.cpp:29
GeneralTHDMMatching::f8
virtual double f8(double xHp, double xt)
Definition: GeneralTHDMMatching.cpp:2894
FULLNNLO
Definition: OrderScheme.h:38
gpseudoscalar2
double gpseudoscalar2(double r)
Definition: GeneralTHDMMatching.cpp:150
StandardModel::getAle
double getAle() const
A get method to retrieve the fine-structure constant .
Definition: StandardModel.h:745
GeneralTHDMMatching::sd
gslpp::complex sd
Definition: GeneralTHDMMatching.h:250
GeneralTHDMMatching::CMdbs2
virtual std::vector< WilsonCoefficient > & CMdbs2()
Definition: GeneralTHDMMatching.cpp:2672
StandardModel::getCKM
CKM getCKM() const
A get method to retrieve the member object of type CKM.
Definition: StandardModel.h:876
GeneralTHDMMatching::myGTHDM
const GeneralTHDM & myGTHDM
Definition: GeneralTHDMMatching.h:242
QCD::MU
Definition: QCD.h:314
GeneralTHDMMatching::mcBMll
WilsonCoefficient mcBMll
Definition: GeneralTHDMMatching.h:245
QCD::lepton
lepton
An enum type for leptons.
Definition: QCD.h:310
StandardModel::getLeptons
Particle getLeptons(const QCD::lepton p) const
A get method to retrieve the member object of a lepton.
Definition: StandardModel.h:709