a Code for the Combination of Indirect and Direct Constraints on High Energy Physics Models Logo
Public Member Functions | Private Attributes | List of all members
GeneralTHDMMatching Class Reference
GeneralTHDM

#include <GeneralTHDMMatching.h>

+ Inheritance diagram for GeneralTHDMMatching:

Detailed Description

Author
HEPfit Collaboration
Copyright
GNU General Public License

Definition at line 25 of file GeneralTHDMMatching.h.

Public Member Functions

virtual double C10Bll (double xt, double xHp, gslpp::complex su)
 
virtual std::vector< WilsonCoefficient > & CMBMll (QCD::lepton lepton)
 
virtual std::vector< WilsonCoefficient > & CMbsg ()
 operator basis: current current; qcd penguins; magnetic and chromomagnetic penguins; semileptonic More...
 
virtual std::vector< WilsonCoefficient > & CMbtaunu (QCD::meson meson_i)
 
virtual std::vector< WilsonCoefficient > & CMdbs2 ()
 
virtual std::vector< WilsonCoefficient > & CMgminus2mu ()
 Wilson coefficient for \( (g-2)_{\mu} \). More...
 
virtual gslpp::complex CPboxBll (double xt, double xHp, gslpp::complex su, gslpp::complex sd, gslpp::complex sl)
 
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)
 
virtual gslpp::complex CPZUBll (double xt, double xHp, double sW2, gslpp::complex su, gslpp::complex sd)
 
virtual gslpp::complex CSboxBll (double xt, double xHp, gslpp::complex su, gslpp::complex sd, gslpp::complex sl)
 
virtual double f1 (double xHp, double xt)
 
virtual double f10 (double xHp, double xt)
 
virtual double f2 (double xHp, double xt)
 
virtual double f3 (double xHp, double xt)
 
virtual double f4 (double xHp, double xt)
 
virtual double f5 (double xHp, double xt)
 
virtual double f6 (double xHp, double xt)
 
virtual double f7 (double xHp, double xt)
 
virtual double f8 (double xHp, double xt)
 
virtual double f9 (double xHp, double xt)
 
virtual gslpp::complex g0 (double xHp, double xt, gslpp::complex su, gslpp::complex sd)
 
virtual gslpp::complex g1a (double xHp, double xt, gslpp::complex su, gslpp::complex sd)
 
virtual gslpp::complex g2a (double xHp, double xt, gslpp::complex su, gslpp::complex sd)
 
virtual gslpp::complex g3a (double xHp, double xt, gslpp::complex su, gslpp::complex sd)
 
 GeneralTHDMMatching (const GeneralTHDM &GeneralTHDM_i)
 
const Polylogarithms getPolyLog () const
 
virtual double gminus2muLO ()
 Calculates amplitudes for \( (g-2)_{\mu} \) at one loop from [47]. More...
 
virtual double gminus2muNLO ()
 Calculates amplitudes for \( (g-2)_{\mu} \) at approximate two-loop from [47]. More...
 
virtual double gminus2muNLOB ()
 Calculates amplitudes for \( (g-2)_{\mu} \) at approximate two-loop from [Cherchiglia:2016eui]. More...
 
virtual double gminus2muNLOF ()
 Calculates amplitudes for \( (g-2)_{\mu} \) at approximate two-loop from [Cherchiglia:2016eui]. More...
 
virtual gslpp::complex lambdaHHphi (double lambda3, double Relambda7, double Imlambda7, double Ri1, double Ri2, double Ri3)
 
virtual gslpp::complex neglog (gslpp::complex argument)
 Calculates the log of a negative number. More...
 
virtual gslpp::complex negpow (double basis, double exp)
 Calculates the power root of a negative number. More...
 
virtual gslpp::complex negsquareroot (double x)
 Calculates the square root of a negative number. More...
 
gslpp::complex setWCbsg (int i, gslpp::complex sigmau, gslpp::complex sigmad, double mt, double mhp, double mu, orders order)
 
virtual gslpp::complex TF (double m1, double m2, double m3)
 Calculates the function of Eq. (68) of 1607.06292. More...
 
void updateGTHDMParameters ()
 
- Public Member Functions inherited from StandardModelMatching
virtual std::vector< WilsonCoefficient > & CMdbd2 ()
 \( \Delta B = 2 \), \( B_{d} \) More...
 
virtual std::vector< WilsonCoefficient > & CMdd2 ()
 \( \Delta C = 2 \), More...
 
 StandardModelMatching (const StandardModel &SM_i)
 
void updateSMParameters ()
 Updates to new Standard Model parameter sets. More...
 
virtual ~StandardModelMatching ()
 
- Public Member Functions inherited from ModelMatching
virtual std::vector< WilsonCoefficient > & CMbnlep (const int a)=0
 
virtual std::vector< WilsonCoefficient > & CMbnlepCC (const int a)=0
 
virtual std::vector< WilsonCoefficient > & CMd1 ()=0
 
virtual std::vector< WilsonCoefficient > & CMd1Buras ()=0
 
virtual std::vector< WilsonCoefficient > & CMprimeBMll (QCD::lepton lepton)=0
 
virtual std::vector< WilsonCoefficient > & CMprimebsg ()=0
 
virtual ~ModelMatching ()
 

Private Attributes

gslpp::complex CWbsgArrayLO [8]
 
gslpp::complex CWbsgArrayNLO [8]
 
gslpp::complex CWbsgArrayNNLO [8]
 
double GF
 
WilsonCoefficient mcBMll
 
WilsonCoefficient mcbsg
 
WilsonCoefficient mcbsmm
 
WilsonCoefficient mcbtaunu
 
WilsonCoefficient mcdbs2
 
WilsonCoefficient mcgminus2mu
 
double mhpbsg
 
double mMU
 
double mtbsg
 
double mubsg
 
gslpp::matrix< gslpp::complex > myCKM
 
const GeneralTHDM & myGTHDM
 
const Polylogarithms PolyLog
 
gslpp::complex sd
 
gslpp::complex sl
 
gslpp::complex su
 

Constructor & Destructor Documentation

◆ GeneralTHDMMatching()

GeneralTHDMMatching::GeneralTHDMMatching ( const GeneralTHDM &  GeneralTHDM_i)

Definition at line 15 of file GeneralTHDMMatching.cpp.

15  :
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 }

Member Function Documentation

◆ C10Bll()

double GeneralTHDMMatching::C10Bll ( double  xt,
double  xHp,
gslpp::complex  su 
)
virtual
Returns
C10 Wilson coefficient of \( B_q \to l \bar{l}\) according to [Li:2014fea]

Definition at line 2767 of file GeneralTHDMMatching.cpp.

2767  {
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  }

◆ CMBMll()

std::vector< WilsonCoefficient > & GeneralTHDMMatching::CMBMll ( QCD::lepton  lepton)
virtual

Implements ModelMatching.

Definition at line 2977 of file GeneralTHDMMatching.cpp.

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 }

◆ CMbsg()

std::vector< WilsonCoefficient > & GeneralTHDMMatching::CMbsg ( )
virtual

operator basis: current current; qcd penguins; magnetic and chromomagnetic penguins; semileptonic

Returns
GeneralTHDM Wilson coefficients, Misiak basis, for \( B \rightarrow X_{s} \gamma, l^{+} l^{-} \)

Implements ModelMatching.

Definition at line 3137 of file GeneralTHDMMatching.cpp.

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 }

◆ CMbtaunu()

std::vector< WilsonCoefficient > & GeneralTHDMMatching::CMbtaunu ( QCD::meson  meson_i)
virtual
Returns
GeneralTHDM Wilson coefficient for \( B \to \tau \nu \) from [140]

Definition at line 3106 of file GeneralTHDMMatching.cpp.

3106  {
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 }

◆ CMdbs2()

std::vector< WilsonCoefficient > & GeneralTHDMMatching::CMdbs2 ( )
virtual
Returns
GeneralTHDM Wilson coefficients for \( B_s \to \bar{B_s}\) according to [128], [113]

Reimplemented from StandardModelMatching.

Definition at line 2672 of file GeneralTHDMMatching.cpp.

2672  {
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 }

◆ CMgminus2mu()

std::vector< WilsonCoefficient > & GeneralTHDMMatching::CMgminus2mu ( )
virtual

Wilson coefficient for \( (g-2)_{\mu} \).

Returns

Definition at line 2629 of file GeneralTHDMMatching.cpp.

2629  {
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 }

◆ CPboxBll()

gslpp::complex GeneralTHDMMatching::CPboxBll ( double  xt,
double  xHp,
gslpp::complex  su,
gslpp::complex  sd,
gslpp::complex  sl 
)
virtual
Returns
Box CP Wilson coefficient of \( B_q \to l \bar{l}\) according to [Li:2014fea]

Definition at line 2784 of file GeneralTHDMMatching.cpp.

2784  {
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  }

◆ CphiU()

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 
)
virtual

Definition at line 2968 of file GeneralTHDMMatching.cpp.

2968  {
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 }

◆ CPZUBll()

gslpp::complex GeneralTHDMMatching::CPZUBll ( double  xt,
double  xHp,
double  sW2,
gslpp::complex  su,
gslpp::complex  sd 
)
virtual
Returns
Z-penguin in the unitary gauge CP Wilson coefficient of \( B_q \to l \bar{l}\) according to [Li:2014fea]

Definition at line 2795 of file GeneralTHDMMatching.cpp.

2795  {
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  }

◆ CSboxBll()

gslpp::complex GeneralTHDMMatching::CSboxBll ( double  xt,
double  xHp,
gslpp::complex  su,
gslpp::complex  sd,
gslpp::complex  sl 
)
virtual
Returns
Box CS Wilson coefficient of \( B_q \to l \bar{l}\) according to [Li:2014fea]

Definition at line 2773 of file GeneralTHDMMatching.cpp.

2773  {
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  }

◆ f1()

double GeneralTHDMMatching::f1 ( double  xHp,
double  xt 
)
virtual
Returns
f1 needed to calculate \( B_q \to l \bar{l}\) according to [Li:2014fea]

Definition at line 2822 of file GeneralTHDMMatching.cpp.

2822  {
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  }

◆ f10()

double GeneralTHDMMatching::f10 ( double  xHp,
double  xt 
)
virtual
Returns
f10 needed to calculate \( B_q \to l \bar{l}\) according to [Li:2014fea]

Definition at line 2914 of file GeneralTHDMMatching.cpp.

2914  {
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  }

◆ f2()

double GeneralTHDMMatching::f2 ( double  xHp,
double  xt 
)
virtual
Returns
f2 needed to calculate \( B_q \to l \bar{l}\) according to [Li:2014fea]

Definition at line 2832 of file GeneralTHDMMatching.cpp.

2832  {
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  }

◆ f3()

double GeneralTHDMMatching::f3 ( double  xHp,
double  xt 
)
virtual
Returns
f3 needed to calculate \( B_q \to l \bar{l}\) according to [Li:2014fea]

Definition at line 2840 of file GeneralTHDMMatching.cpp.

2840  {
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  }

◆ f4()

double GeneralTHDMMatching::f4 ( double  xHp,
double  xt 
)
virtual
Returns
f4 needed to calculate \( B_q \to l \bar{l}\) according to [Li:2014fea]

Definition at line 2850 of file GeneralTHDMMatching.cpp.

2850  {
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  }

◆ f5()

double GeneralTHDMMatching::f5 ( double  xHp,
double  xt 
)
virtual
Returns
f5 needed to calculate \( B_q \to l \bar{l}\) according to [Li:2014fea]

Definition at line 2859 of file GeneralTHDMMatching.cpp.

2859  {
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  }

◆ f6()

double GeneralTHDMMatching::f6 ( double  xHp,
double  xt 
)
virtual
Returns
f6 needed to calculate \( B_q \to l \bar{l}\) according to [Li:2014fea]

Definition at line 2868 of file GeneralTHDMMatching.cpp.

2868  {
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  }

◆ f7()

double GeneralTHDMMatching::f7 ( double  xHp,
double  xt 
)
virtual
Returns
f7 needed to calculate \( B_q \to l \bar{l}\) according to [Li:2014fea]

Definition at line 2882 of file GeneralTHDMMatching.cpp.

2882  {
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  }

◆ f8()

double GeneralTHDMMatching::f8 ( double  xHp,
double  xt 
)
virtual
Returns
f8 needed to calculate \( B_q \to l \bar{l}\) according to [Li:2014fea]

Definition at line 2894 of file GeneralTHDMMatching.cpp.

2894  {
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  }

◆ f9()

double GeneralTHDMMatching::f9 ( double  xHp,
double  xt 
)
virtual
Returns
f9 needed to calculate \( B_q \to l \bar{l}\) according to [Li:2014fea]

Definition at line 2903 of file GeneralTHDMMatching.cpp.

2903  {
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  }

◆ g0()

gslpp::complex GeneralTHDMMatching::g0 ( double  xHp,
double  xt,
gslpp::complex  su,
gslpp::complex  sd 
)
virtual
Returns
g0 needed to calculate \( B_q \to l \bar{l}\) according to [Li:2014fea]

Definition at line 2924 of file GeneralTHDMMatching.cpp.

2924  {
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 }

◆ g1a()

gslpp::complex GeneralTHDMMatching::g1a ( double  xHp,
double  xt,
gslpp::complex  su,
gslpp::complex  sd 
)
virtual
Returns
g1a needed to calculate \( B_q \to l \bar{l}\) according to [Li:2014fea]

Definition at line 2932 of file GeneralTHDMMatching.cpp.

2932  {
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 }

◆ g2a()

gslpp::complex GeneralTHDMMatching::g2a ( double  xHp,
double  xt,
gslpp::complex  su,
gslpp::complex  sd 
)
virtual
Returns
g2a needed to calculate \( B_q \to l \bar{l}\) according to [Li:2014fea]

Definition at line 2941 of file GeneralTHDMMatching.cpp.

2941  {
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 }

◆ g3a()

gslpp::complex GeneralTHDMMatching::g3a ( double  xHp,
double  xt,
gslpp::complex  su,
gslpp::complex  sd 
)
virtual
Returns
g3a needed to calculate \( B_q \to l \bar{l}\) according to [Li:2014fea]

Definition at line 2950 of file GeneralTHDMMatching.cpp.

2950  {
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 }

◆ getPolyLog()

const Polylogarithms GeneralTHDMMatching::getPolyLog ( ) const
inline

Definition at line 234 of file GeneralTHDMMatching.h.

235  {
236  return PolyLog;
237  }

◆ gminus2muLO()

double GeneralTHDMMatching::gminus2muLO ( )
virtual

Calculates amplitudes for \( (g-2)_{\mu} \) at one loop from [47].

Calculates the muon g-2 at LO

Returns

Definition at line 35 of file GeneralTHDMMatching.cpp.

35  {
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 }

◆ gminus2muNLO()

double GeneralTHDMMatching::gminus2muNLO ( )
virtual

Calculates amplitudes for \( (g-2)_{\mu} \) at approximate two-loop from [47].

Calculates the NLO contribution to the muon g-2

Returns

Definition at line 2609 of file GeneralTHDMMatching.cpp.

2609  {
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  }

◆ gminus2muNLOB()

double GeneralTHDMMatching::gminus2muNLOB ( )
virtual

Calculates amplitudes for \( (g-2)_{\mu} \) at approximate two-loop from [Cherchiglia:2016eui].

Calculates the bosonic NLO contribution to the muon g-2

Returns

Definition at line 493 of file GeneralTHDMMatching.cpp.

493  {
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 }

◆ gminus2muNLOF()

double GeneralTHDMMatching::gminus2muNLOF ( )
virtual

Calculates amplitudes for \( (g-2)_{\mu} \) at approximate two-loop from [Cherchiglia:2016eui].

Calculates the bosonic NLO contribution to the muon g-2

Returns

Definition at line 272 of file GeneralTHDMMatching.cpp.

272  {
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 }

◆ lambdaHHphi()

gslpp::complex GeneralTHDMMatching::lambdaHHphi ( double  lambda3,
double  Relambda7,
double  Imlambda7,
double  Ri1,
double  Ri2,
double  Ri3 
)
virtual

Definition at line 2960 of file GeneralTHDMMatching.cpp.

2960  {
2961  gslpp::complex lambdaHHphi = lambda3*Ri1 + Relambda7*Ri2 - Imlambda7*Ri3;
2962  return lambdaHHphi;
2963  }

◆ neglog()

gslpp::complex GeneralTHDMMatching::neglog ( gslpp::complex  argument)
virtual

Calculates the log of a negative number.

Calculates the log of a negative number

Returns
log of a negative number

Definition at line 196 of file GeneralTHDMMatching.cpp.

196  {
197 
198  gslpp::complex result;
199 
200  result = log(argument.abs()) + gslpp::complex::i()*argument.arg();
201 
202 
203  return result;
204 }

◆ negpow()

gslpp::complex GeneralTHDMMatching::negpow ( double  basis,
double  exp 
)
virtual

Calculates the power root of a negative number.

Calculates the power root of a negative number

Returns
power root of a negative number

Definition at line 184 of file GeneralTHDMMatching.cpp.

184  {
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 }

◆ negsquareroot()

gslpp::complex GeneralTHDMMatching::negsquareroot ( double  x)
virtual

Calculates the square root of a negative number.

Calculates the square root of a negative number

Returns
square root of a negative number

Definition at line 172 of file GeneralTHDMMatching.cpp.

172  {
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 }

◆ setWCbsg()

gslpp::complex GeneralTHDMMatching::setWCbsg ( int  i,
gslpp::complex  sigmau,
gslpp::complex  sigmad,
double  mt,
double  mhp,
double  mu,
orders  order 
)
Parameters
iint, flag for the caching
sigmau
sigmad
mttop mass
mhpcharged Higgs mass
mumatching scale
order
Returns
return the value of the Wilson coefficients for \( B \rightarrow X_{s} \gamma, l^{+} l^{-} \)

Definition at line 3187 of file GeneralTHDMMatching.cpp.

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  }

◆ TF()

gslpp::complex GeneralTHDMMatching::TF ( double  m1,
double  m2,
double  m3 
)
virtual

Calculates the function of Eq. (68) of 1607.06292.

Calculates the function of Eq. (68) of 1607.06292

Returns
function of Eq. (68) of 1607.06292

Definition at line 207 of file GeneralTHDMMatching.cpp.

207  {
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  }

◆ updateGTHDMParameters()

void GeneralTHDMMatching::updateGTHDMParameters ( )

Definition at line 29 of file GeneralTHDMMatching.cpp.

30 {
31  GF=myGTHDM.getGF();
32  mMU=myGTHDM.getLeptons(StandardModel::MU).getMass();
33 }

Member Data Documentation

◆ CWbsgArrayLO

gslpp::complex GeneralTHDMMatching::CWbsgArrayLO[8]
private

Definition at line 248 of file GeneralTHDMMatching.h.

◆ CWbsgArrayNLO

gslpp::complex GeneralTHDMMatching::CWbsgArrayNLO[8]
private

Definition at line 248 of file GeneralTHDMMatching.h.

◆ CWbsgArrayNNLO

gslpp::complex GeneralTHDMMatching::CWbsgArrayNNLO[8]
private

Definition at line 248 of file GeneralTHDMMatching.h.

◆ GF

double GeneralTHDMMatching::GF
private

Definition at line 247 of file GeneralTHDMMatching.h.

◆ mcBMll

WilsonCoefficient GeneralTHDMMatching::mcBMll
private

Definition at line 245 of file GeneralTHDMMatching.h.

◆ mcbsg

WilsonCoefficient GeneralTHDMMatching::mcbsg
private

Definition at line 245 of file GeneralTHDMMatching.h.

◆ mcbsmm

WilsonCoefficient GeneralTHDMMatching::mcbsmm
private

Definition at line 245 of file GeneralTHDMMatching.h.

◆ mcbtaunu

WilsonCoefficient GeneralTHDMMatching::mcbtaunu
private

Definition at line 245 of file GeneralTHDMMatching.h.

◆ mcdbs2

WilsonCoefficient GeneralTHDMMatching::mcdbs2
private

Definition at line 245 of file GeneralTHDMMatching.h.

◆ mcgminus2mu

WilsonCoefficient GeneralTHDMMatching::mcgminus2mu
private

Definition at line 245 of file GeneralTHDMMatching.h.

◆ mhpbsg

double GeneralTHDMMatching::mhpbsg
private

Definition at line 249 of file GeneralTHDMMatching.h.

◆ mMU

double GeneralTHDMMatching::mMU
private

Definition at line 247 of file GeneralTHDMMatching.h.

◆ mtbsg

double GeneralTHDMMatching::mtbsg
private

Definition at line 249 of file GeneralTHDMMatching.h.

◆ mubsg

double GeneralTHDMMatching::mubsg
private

Definition at line 249 of file GeneralTHDMMatching.h.

◆ myCKM

gslpp::matrix<gslpp::complex> GeneralTHDMMatching::myCKM
private

Definition at line 244 of file GeneralTHDMMatching.h.

◆ myGTHDM

const GeneralTHDM& GeneralTHDMMatching::myGTHDM
private

Definition at line 242 of file GeneralTHDMMatching.h.

◆ PolyLog

const Polylogarithms GeneralTHDMMatching::PolyLog
private

Definition at line 252 of file GeneralTHDMMatching.h.

◆ sd

gslpp::complex GeneralTHDMMatching::sd
private

Definition at line 250 of file GeneralTHDMMatching.h.

◆ sl

gslpp::complex GeneralTHDMMatching::sl
private

Definition at line 250 of file GeneralTHDMMatching.h.

◆ su

gslpp::complex GeneralTHDMMatching::su
private

Definition at line 250 of file GeneralTHDMMatching.h.

The documentation for this class was generated from the following files:
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
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
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::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
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
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
StandardModelMatching::StandardModelMatching
StandardModelMatching(const StandardModel &SM_i)
Definition: StandardModelMatching.cpp:16
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
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::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
gslpp::complex::imag
const double & imag() const
Definition: gslpp_complex.cpp:59
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
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::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
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::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
GeneralTHDMMatching::negpow
virtual gslpp::complex negpow(double basis, double exp)
Calculates the power root of a negative number.
Definition: GeneralTHDMMatching.cpp:184
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
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
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
GeneralTHDMMatching::mcbsmm
WilsonCoefficient mcbsmm
Definition: GeneralTHDMMatching.h:245
StandardModel::getLeptons
Particle getLeptons(const QCD::lepton p) const
A get method to retrieve the member object of a lepton.
Definition: StandardModel.h:709