[Flexiblesusy-commits] [FlexibleSUSY/FlexibleSUSY] edb175: correcting 4-loop O(at*as^3) contribution to Mh in...

[GitHub]

  Branch: refs/heads/development
  Home:   https://github.com/FlexibleSUSY/FlexibleSUSY
  Commit: edb175e5aeb0d0a14f5e5af5783996f67f23167b
      https://github.com/FlexibleSUSY/FlexibleSUSY/commit/edb175e5aeb0d0a14f5e5af5783996f67f23167b
  Author: Alexander Voigt <Alexander.Voigt at physik.rwth-aachen.de>
  Date:   2018-01-30 (Tue, 30 Jan 2018)

  Changed paths:
    M src/sm_fourloophiggs.cpp

  Log Message:
  -----------
  correcting 4-loop O(at*as^3) contribution to Mh in the SM

Thanks to Thomas Kwasnitza.
The computation proceeds as:

V4L[h_] := a4  h^4 l^4 + a3  h^4 l^3 + a2 h^4 l^2 + a1 h^4 l +
   a40h^4 /. {l -> Log[h^2*yt^2/(2*Q^2)]}

tadpoldevidedbyv = -1/v D[V4L[h], h ] /. {h -> v} /. {v ->
      Sqrt[2] mt/yt} // Simplify;

se = -V4L''[h] /. {h -> Sqrt[2] mt/yt} // Simplify;

DeltaMhasasasas =
 tadpoldevidedbyv - se /. {    a4 ->  1380 gs^6 yt^4 k^4 ,
      a3 ->  -9144 gs^6 yt^4 k^4 / 8,
      a2 ->  27699.06 gs^6 yt^4 k^4 ,
      a1 -> \[Minus]54056.36 gs^6 yt^4 k^4 ,
      a0 -> 59366.97 gs^6 yt^4 k^4 } // Simplify