BeginPackage["coefhl`"];

Cbar::usage=
"Cbar[case, aOrd, zOrd(, xd)] returns the corrections of order
alpha_s^aOrd (aOrd=0,1,2) for zOrd^th (zOrd=-1,...,4) moment of the
heavy-light correlator where case defines whether the vector (\"v\"),
axial-vector (\"a\"), scalar (\"s\") or pseudo-scalar (\"p\") currents
are used. These expressions depend only on x=m2/m1, the ratio of the
light (m2) and heavy (m1) MS-bar quark mass. One can set the following
options (default values): nl (-> 3) - the number of light flavours,
imu (-> 1) - the ratio of the renormalization scale mu and m1, warn
(-> True) - a flag for suppressing warning messages and range (->
{0.1,0.5}) - the cuts inbetween which the predefined interpolation is
used.";

CbarL::usage=
"CbarL[case, aOrd, zOrd(, xd)] gives for the vector (\"v\") and
axialvector (\"a\") current correlators the moments of the
longitudinal parts by using the Ward identities relating them to the
scalar and pseudoscalar cases respectively. Hence the other parameter
restrictions are the same as for Cbar, except only zOrd=-1,...,3 is
admitted.";

nl::usage=
"the number of light flavours (-> 3)";

imu::usage=
"the ratio of the renormalization scale mu and m1 (-> 1)";

warn::usage=
"a flag for suppressing warning messages (-> True)";

range::usage=
"the cuts inbetween which the predefined interpolation is used (->
{0.1,0.5})";

Options[Cbar]={
  nl->3,
  imu->1,
  warn->True,
  range->{0.1,0.5}
};

Options[CbarL]=Options[Cbar]

Begin["`Private`"]

excLst[_,_]:=False;
excLst["v",3]=True;
excLst["v",4]=True;

Cbar[case_String,aOrd_Integer,zOrd_Integer,xd_:Global`x,opts:OptionsPattern[]]:=Module[{res},

  If[zOrd<-1||zOrd>4||FreeQ[{"s","p","v","a"},case],
    Print["ERROR: case not implemented; only zOrd = -1, ..., 4 is valid!"];
    Return[Indeterminate]
  ];

  Which[
    aOrd==0||aOrd==1,
      res=CbarData[case,aOrd,zOrd];
      res=res/.{imu->OptionValue[imu]}
    ,
    aOrd==2,
      If[OptionValue[nl]=!=3&&OptionValue[warn],Print["WARNING: change of number of light flavours not supported in interpolation!"]];

      res=With[{
          x1=OptionValue[range][[1]],
          x2=OptionValue[range][[2]],
          CbarDataB=CbarData[case,2,zOrd,"b"],
          CbarDataBI=CbarData[case,2,zOrd,"b"]/.{x->1/x}
      },Evaluate/@Which[
          0<=xd&&xd<=x1,
            CbarData[case,2,zOrd,"a"]
          ,
          x1<xd&&xd<x2,
            If[OptionValue[nl]=!=3||(OptionValue[imu]=!=1&&zOrd<1),
              Indeterminate,
              If[excLst[case,zOrd]&&OptionValue[warn],
                Hold[Print["WARNING: possibly poor interpolation quality; use with care!"];CbarDataB],
                CbarDataB
              ]
            ]
          ,
          x2<=xd&&xd<=1,
            CbarData[case,2,zOrd,"c"]
          ,
          (* using the symm. under x->1/x *)
          1<xd&&xd<=1/x2,
            CbarData[case,2,zOrd,"c"]/.{x->1/x}
          ,
          1/x2<xd&&xd<1/x1,
            If[OptionValue[nl]=!=3||(OptionValue[imu]=!=1&&zOrd<1),
              Indeterminate,
              If[excLst[case,zOrd]&&OptionValue[warn],
                Hold[Print["WARNING: possibly poor interpolation quality; use with care!"];CbarDataBI],
                CbarDataBI
              ]
            ]
          ,
          1/x1<=xd,
            CbarData[case,2,zOrd,"a"]/.{x->1/x}
          ,
          True,
            Indeterminate
      ]];
      res=ReleaseHold[res];

      If[OptionValue[imu]=!=1,
        If[zOrd>0,
          res=res/.{imu->1};
          res+=CbarData[case,2,zOrd,"l"],
          If[OptionValue[warn],Print["WARNING: exact dependence of renormalization scale for z^-1 and z^0 not (yet) implemented; expansions used instead!"]]
        ]
      ];
      res=res/.{imu->OptionValue[imu]};

      res=res/.{nl->OptionValue[nl]}
    ,
    True,
      Print["ERROR: case not implemented; only aOrd = 0, 1, 2 is valid!"];
      res=Indeterminate
  ];

  res=res/.{x->xd};

  Return[res]
]

CbarL[case_String,aOrd_Integer,zOrd_Integer,xd_:Global`x,opts:OptionsPattern[]]:=Module[{res},

  If[zOrd<-1||zOrd>3,
    Print["ERROR: case not implemented; only zOrd = -1, ..., 3 is valid!"];
    Return[Indeterminate]
  ];

  (* using the W.I.s *)
  Which[
    case=="v",
      res=(1-xd)^2*Cbar["s",aOrd,zOrd+1,xd,opts]
    ,
    case=="a",
      res=(1+xd)^2*Cbar["p",aOrd,zOrd+1,xd,opts]
    ,
    True,
      Print["ERROR: for lonitudinal parts only case = \"v\" or \"a\" is valid!"];
      res=Indeterminate
  ];

  Return[res]
]

(* begin of data section *)

CbarData["a", 0, -1] = -1 - 4*x - x^2 - 2*(1 + x)^2*Log[imu^2] + 
     (4*x^3*(2 + x)*Log[x])/((-1 + x)*(1 + x))
 
CbarData["a", 0, 0] = (2*(2 - 9*x - 16*x^2 - 9*x^3 + 2*x^4))/
      (9*(-1 + x)^2*(1 + x)^2) + (4*Log[imu^2])/3 - 
     (8*x^3*(-3 - 3*x + x^3)*Log[x])/(3*(-1 + x)^3*(1 + x)^3)
 
CbarData["a", 0, 1] = (3 - 4*x - 21*x^2 - 40*x^3 - 21*x^4 - 4*x^5 + 3*x^6)/
      (6*(-1 + x)^4*(1 + x)^4) + (4*x^3*(2 + 3*x + 2*x^2)*Log[x])/
      ((-1 + x)^5*(1 + x)^5)
 
CbarData["a", 0, 2] = (2 - 5*x - 28*x^2 - 145*x^3 - 188*x^4 - 145*x^5 - 
       28*x^6 - 5*x^7 + 2*x^8)/(15*(-1 + x)^6*(1 + x)^6) + 
     (8*x^3*(1 + x + x^2)^2*Log[x])/((-1 + x)^7*(1 + x)^7)
 
CbarData["a", 0, 3] = (5 - 18*x - 115*x^2 - 1068*x^3 - 1990*x^4 - 2868*x^5 - 
       1990*x^6 - 1068*x^7 - 115*x^8 - 18*x^9 + 5*x^10)/
      (90*(-1 + x)^8*(1 + x)^8) + (4*x^3*(6 + 15*x + 36*x^2 + 40*x^3 + 
        36*x^4 + 15*x^5 + 6*x^6)*Log[x])/(3*(-1 + x)^9*(1 + x)^9)
 
CbarData["a", 0, 4] = (3 - 14*x - 102*x^2 - 1428*x^3 - 3399*x^4 - 7378*x^5 - 
       8124*x^6 - 7378*x^7 - 3399*x^8 - 1428*x^9 - 102*x^10 - 14*x^11 + 
       3*x^12)/(105*(-1 + x)^10*(1 + x)^10) + 
     (8*x^3*(1 + x + x^2)*(1 + 2*x + 7*x^2 + 6*x^3 + 7*x^4 + 2*x^5 + x^6)*
       Log[x])/((-1 + x)^11*(1 + x)^11)
 
CbarData["a", 1, -1] = (-39 + 4*Pi^2 - 198*x - 39*x^2 - 4*Pi^2*x^2)/18 - 
     2*(1 + x)^2*Log[imu^2]^2 + (8*x^2*(1 + 5*x + x^2)*Log[x])/
      (3*(-1 + x)*(1 + x)) - (16*x^3*(-6 - 3*x + 3*x^2 + 2*x^3)*Log[x]^2)/
      (3*(-1 + x)^2*(1 + x)^2) + Log[imu^2]*((-4*(1 + 5*x + x^2))/3 + 
       (8*x^3*(2 + x)*Log[x])/((-1 + x)*(1 + x))) + 
     (4*(-1 + x)*(1 + x)*Log[x^2]*Log[1 - x^2])/3 + 
     (4*(-1 + x)*(1 + x)*PolyLog[2, x^2])/3
 
CbarData["a", 1, 0] = (57 - 8*Pi^2 - 252*x - 36*Pi^2*x - 426*x^2 - 252*x^3 + 
       36*Pi^2*x^3 + 57*x^4 + 8*Pi^2*x^4)/(81*(-1 + x)^2*(1 + x)^2) - 
     (4*Log[imu^2])/3 + (8*x^2*(-4 - 48*x - 31*x^2 + 9*x^4)*Log[x])/
      (27*(-1 + x)^3*(1 + x)^3) + (16*x^3*(54 + 54*x + 27*x^2 - 4*x^3 + 
        9*x^4 + 2*x^5)*Log[x]^2)/(27*(-1 + x)^4*(1 + x)^4) - 
     (8*(2 + 9*x + 2*x^2)*Log[x^2]*Log[1 - x^2])/(27*(-1 + x)*(1 + x)) - 
     (8*(2 + 9*x + 2*x^2)*PolyLog[2, x^2])/(27*(-1 + x)*(1 + x))
 
CbarData["a", 1, 1] = -(207 - 36*Pi^2 + 504*x + 48*Pi^2*x + 69*x^2 + 
        164*Pi^2*x^2 - 432*x^3 + 69*x^4 - 164*Pi^2*x^4 + 504*x^5 - 
        48*Pi^2*x^5 + 207*x^6 + 36*Pi^2*x^6)/(324*(-1 + x)^4*(1 + x)^4) + 
     (2*x^2*(18 - 438*x - 691*x^2 - 762*x^3 - 198*x^4 - 36*x^5 + 27*x^6)*
       Log[x])/(27*(-1 + x)^5*(1 + x)^5) - 
     (4*x^3*(-216 - 324*x - 648*x^2 - 516*x^3 - 408*x^4 - 59*x^5 - 12*x^6 + 
        9*x^7)*Log[x]^2)/(27*(-1 + x)^6*(1 + x)^6) + 
     Log[imu^2]*(-(3 - 4*x - 21*x^2 - 40*x^3 - 21*x^4 - 4*x^5 + 3*x^6)/
        (3*(-1 + x)^4*(1 + x)^4) - (8*x^3*(2 + 3*x + 2*x^2)*Log[x])/
        ((-1 + x)^5*(1 + x)^5)) + (2*(9 - 12*x - 32*x^2 - 12*x^3 + 9*x^4)*
       Log[x^2]*Log[1 - x^2])/(27*(-1 + x)^3*(1 + x)^3) + 
     (2*(9 - 12*x - 32*x^2 - 12*x^3 + 9*x^4)*PolyLog[2, x^2])/
      (27*(-1 + x)^3*(1 + x)^3)
 
CbarData["a", 1, 2] = -(92 - 8*Pi^2 + 147*x + 20*Pi^2*x - 74*x^2 + 
        56*Pi^2*x^2 - 3567*x^3 + 60*Pi^2*x^3 - 4908*x^4 - 3567*x^5 - 
        60*Pi^2*x^5 - 74*x^6 - 56*Pi^2*x^6 + 147*x^7 - 20*Pi^2*x^7 + 92*x^8 + 
        8*Pi^2*x^8)/(270*(-1 + x)^6*(1 + x)^6) + 
     (8*x^2*(2 - 299*x - 568*x^2 - 1217*x^3 - 1048*x^4 - 719*x^5 - 88*x^6 - 
        15*x^7 + 6*x^8)*Log[x])/(45*(-1 + x)^7*(1 + x)^7) - 
     (8*x^3*(-180 - 360*x - 1260*x^2 - 1560*x^3 - 1940*x^4 - 1050*x^5 - 
        545*x^6 - 18*x^7 - 5*x^8 + 2*x^9)*Log[x]^2)/
      (45*(-1 + x)^8*(1 + x)^8) + Log[imu^2]*
      ((-4*(2 - 5*x - 28*x^2 - 145*x^3 - 188*x^4 - 145*x^5 - 28*x^6 - 5*x^7 + 
          2*x^8))/(15*(-1 + x)^6*(1 + x)^6) - (32*x^3*(1 + x + x^2)^2*Log[x])/
        ((-1 + x)^7*(1 + x)^7)) + (4*(2 - 5*x - 12*x^2 - 20*x^3 - 12*x^4 - 
        5*x^5 + 2*x^6)*Log[x^2]*Log[1 - x^2])/(45*(-1 + x)^5*(1 + x)^5) + 
     (4*(2 - 5*x - 12*x^2 - 20*x^3 - 12*x^4 - 5*x^5 + 2*x^6)*PolyLog[2, x^2])/
      (45*(-1 + x)^5*(1 + x)^5)
 
CbarData["a", 1, 3] = -(577 - 30*Pi^2 + 171*x + 108*Pi^2*x - 3270*x^2 + 
        282*Pi^2*x^2 - 83664*x^3 + 864*Pi^2*x^3 - 149875*x^4 + 864*Pi^2*x^4 - 
        223542*x^5 - 149875*x^6 - 864*Pi^2*x^6 - 83664*x^7 - 864*Pi^2*x^7 - 
        3270*x^8 - 282*Pi^2*x^8 + 171*x^9 - 108*Pi^2*x^9 + 577*x^10 + 
        30*Pi^2*x^10)/(2430*(-1 + x)^8*(1 + x)^8) + 
     (2*x^2*(10 - 5016*x - 11700*x^2 - 36954*x^3 - 46374*x^4 - 53154*x^5 - 
        28575*x^6 - 14466*x^7 - 1070*x^8 - 162*x^9 + 45*x^10)*Log[x])/
      (135*(-1 + x)^9*(1 + x)^9) - 
     (4*x^3*(-1080 - 2700*x - 13500*x^2 - 22000*x^3 - 39600*x^4 - 35115*x^5 - 
        29430*x^6 - 10845*x^7 - 4428*x^8 - 57*x^9 - 18*x^10 + 5*x^11)*
       Log[x]^2)/(135*(-1 + x)^10*(1 + x)^10) + 
     Log[imu^2]*(-(5 - 18*x - 115*x^2 - 1068*x^3 - 1990*x^4 - 2868*x^5 - 
          1990*x^6 - 1068*x^7 - 115*x^8 - 18*x^9 + 5*x^10)/
        (15*(-1 + x)^8*(1 + x)^8) - (8*x^3*(6 + 15*x + 36*x^2 + 40*x^3 + 
          36*x^4 + 15*x^5 + 6*x^6)*Log[x])/((-1 + x)^9*(1 + x)^9)) + 
     (2*(5 - 18*x - 42*x^2 - 162*x^3 - 186*x^4 - 162*x^5 - 42*x^6 - 18*x^7 + 
        5*x^8)*Log[x^2]*Log[1 - x^2])/(135*(-1 + x)^7*(1 + x)^7) + 
     (2*(5 - 18*x - 42*x^2 - 162*x^3 - 186*x^4 - 162*x^5 - 42*x^6 - 18*x^7 + 
        5*x^8)*PolyLog[2, x^2])/(135*(-1 + x)^7*(1 + x)^7)
 
CbarData["a", 1, 4] = -(15129 - 540*Pi^2 - 14145*x + 2520*Pi^2*x - 
        192874*x^2 + 6360*Pi^2*x^2 - 5402655*x^3 + 37800*Pi^2*x^3 - 
        12004625*x^4 + 56100*Pi^2*x^4 - 27166800*x^5 + 50400*Pi^2*x^5 - 
        29023260*x^6 - 27166800*x^7 - 50400*Pi^2*x^7 - 12004625*x^8 - 
        56100*Pi^2*x^8 - 5402655*x^9 - 37800*Pi^2*x^9 - 192874*x^10 - 
        6360*Pi^2*x^10 - 14145*x^11 - 2520*Pi^2*x^11 + 15129*x^12 + 
        540*Pi^2*x^12)/(85050*(-1 + x)^10*(1 + x)^10) + 
     (4*x^2*(18 - 22584*x - 62924*x^2 - 263451*x^3 - 423882*x^4 - 
        687762*x^5 - 593982*x^6 - 477651*x^7 - 181616*x^8 - 73488*x^9 - 
        3762*x^10 - 504*x^11 + 108*x^12)*Log[x])/(945*(-1 + x)^11*
       (1 + x)^11) - (8*x^3*(-3780 - 11340*x - 73710*x^2 - 147840*x^3 - 
        353850*x^4 - 425215*x^5 - 503160*x^6 - 327516*x^7 - 209412*x^8 - 
        57414*x^9 - 19446*x^10 - 124*x^11 - 42*x^12 + 9*x^13)*Log[x]^2)/
      (945*(-1 + x)^12*(1 + x)^12) + Log[imu^2]*
      ((-8*(3 - 14*x - 102*x^2 - 1428*x^3 - 3399*x^4 - 7378*x^5 - 8124*x^6 - 
          7378*x^7 - 3399*x^8 - 1428*x^9 - 102*x^10 - 14*x^11 + 3*x^12))/
        (105*(-1 + x)^10*(1 + x)^10) - (64*x^3*(1 + x + x^2)*
         (1 + 2*x + 7*x^2 + 6*x^3 + 7*x^4 + 2*x^5 + x^6)*Log[x])/
        ((-1 + x)^11*(1 + x)^11)) + 
     (4*(9 - 42*x - 97*x^2 - 672*x^3 - 1032*x^4 - 1512*x^5 - 1032*x^6 - 
        672*x^7 - 97*x^8 - 42*x^9 + 9*x^10)*Log[x^2]*Log[1 - x^2])/
      (945*(-1 + x)^9*(1 + x)^9) + 
     (4*(9 - 42*x - 97*x^2 - 672*x^3 - 1032*x^4 - 1512*x^5 - 1032*x^6 - 
        672*x^7 - 97*x^8 - 42*x^9 + 9*x^10)*PolyLog[2, x^2])/
      (945*(-1 + x)^9*(1 + x)^9)
 
CbarData["p", 0, -1] = -4*(1 - x + x^2) - 4*(1 - x + x^2)*Log[imu^2] + 
     (8*x^3*Log[x])/(1 + x)
 
CbarData["p", 0, 0] = (1 + 4*x + x^2)/(1 + x)^2 + 2*Log[imu^2] - 
     (4*x^3*(2 + x)*Log[x])/((-1 + x)*(1 + x)^3)
 
CbarData["p", 0, 1] = (2*(1 - x + x^2)*(1 + 4*x + x^2))/
      (3*(-1 + x)^2*(1 + x)^4) - (8*x^3*Log[x])/((-1 + x)^3*(1 + x)^5)
 
CbarData["p", 0, 2] = (1 + 4*x - 7*x^2 + 40*x^3 - 7*x^4 + 4*x^5 + x^6)/
      (6*(-1 + x)^4*(1 + x)^6) - (4*x^3*(2 - x + 2*x^2)*Log[x])/
      ((-1 + x)^5*(1 + x)^7)
 
CbarData["p", 0, 3] = (1 + 5*x - 14*x^2 + 145*x^3 - 94*x^4 + 145*x^5 - 
       14*x^6 + 5*x^7 + x^8)/(15*(-1 + x)^6*(1 + x)^8) - 
     (8*x^3*(1 - x + 3*x^2 - x^3 + x^4)*Log[x])/((-1 + x)^7*(1 + x)^9)
 
CbarData["p", 0, 4] = (1 + 6*x - 23*x^2 + 356*x^3 - 398*x^4 + 956*x^5 - 
       398*x^6 + 356*x^7 - 23*x^8 + 6*x^9 + x^10)/
      (30*(-1 + x)^8*(1 + x)^10) - 
     (4*x^3*(2 - 3*x + 12*x^2 - 8*x^3 + 12*x^4 - 3*x^5 + 2*x^6)*Log[x])/
      ((-1 + x)^9*(1 + x)^11)
 
CbarData["p", 1, -1] = (-40*(1 - x + x^2))/3 - 8*(1 - x + x^2)*Log[imu^2]^2 + 
     (80*x^3*Log[x])/(3*(1 + x)) - (32*x^3*Log[x]^2)/(1 + x) + 
     Log[imu^2]*((-40*(1 - x + x^2))/3 + (32*x^3*Log[x])/(1 + x))
 
CbarData["p", 1, 0] = (39 - 4*Pi^2 + 198*x + 39*x^2 + 4*Pi^2*x^2)/
      (18*(1 + x)^2) + 2*Log[imu^2]^2 - (8*x^2*(1 + 5*x + x^2)*Log[x])/
      (3*(-1 + x)*(1 + x)^3) + (16*x^3*(-6 - 3*x + 3*x^2 + 2*x^3)*Log[x]^2)/
      (3*(-1 + x)^2*(1 + x)^4) + Log[imu^2]*
      ((4*(1 + 5*x + x^2))/(3*(1 + x)^2) - (8*x^3*(2 + x)*Log[x])/
        ((-1 + x)*(1 + x)^3)) - (4*(-1 + x)*Log[x^2]*Log[1 - x^2])/
      (3*(1 + x)) - (4*(-1 + x)*PolyLog[2, x^2])/(3*(1 + x))
 
CbarData["p", 1, 1] = -(-3 - 4*Pi^2 - 108*x - 12*Pi^2*x + 66*x^2 - 108*x^3 + 
        12*Pi^2*x^3 - 3*x^4 + 4*Pi^2*x^4)/(27*(-1 + x)^2*(1 + x)^4) + 
     (16*x^2*(1 + 6*x + x^2)*Log[x])/(9*(-1 + x)^3*(1 + x)^5) - 
     (16*x^3*(18 + 9*x^2 - 2*x^3 + 3*x^4 + x^5)*Log[x]^2)/
      (9*(-1 + x)^4*(1 + x)^6) + (8*(1 + 3*x + x^2)*Log[x^2]*Log[1 - x^2])/
      (9*(-1 + x)*(1 + x)^3) + (8*(1 + 3*x + x^2)*PolyLog[2, x^2])/
      (9*(-1 + x)*(1 + x)^3)
 
CbarData["p", 1, 2] = -(-9 - 4*Pi^2 - 216*x - 16*Pi^2*x + 381*x^2 + 
        4*Pi^2*x^2 - 336*x^3 + 381*x^4 - 4*Pi^2*x^4 - 216*x^5 + 16*Pi^2*x^5 - 
        9*x^6 + 4*Pi^2*x^6)/(108*(-1 + x)^4*(1 + x)^6) + 
     (2*x^2*(2 + 122*x - 27*x^2 + 230*x^3 - 22*x^4 + 12*x^5 + 3*x^6)*Log[x])/
      (9*(-1 + x)^5*(1 + x)^7) - (4*x^3*(72 - 36*x + 216*x^2 - 68*x^3 + 
        136*x^4 - 3*x^5 + 4*x^6 + x^7)*Log[x]^2)/(9*(-1 + x)^6*(1 + x)^8) + 
     Log[imu^2]*(-(1 + 4*x - 7*x^2 + 40*x^3 - 7*x^4 + 4*x^5 + x^6)/
        (3*(-1 + x)^4*(1 + x)^6) + (8*x^3*(2 - x + 2*x^2)*Log[x])/
        ((-1 + x)^5*(1 + x)^7)) + (2*(1 + 4*x + 4*x^3 + x^4)*Log[x^2]*
       Log[1 - x^2])/(9*(-1 + x)^3*(1 + x)^5) + 
     (2*(1 + 4*x + 4*x^3 + x^4)*PolyLog[2, x^2])/(9*(-1 + x)^3*(1 + x)^5)
 
CbarData["p", 1, 3] = -(11 - 4*Pi^2 - 219*x - 20*Pi^2*x + 658*x^2 + 
        8*Pi^2*x^2 + 1479*x^3 - 60*Pi^2*x^3 + 1326*x^4 + 1479*x^5 + 
        60*Pi^2*x^5 + 658*x^6 - 8*Pi^2*x^6 - 219*x^7 + 20*Pi^2*x^7 + 11*x^8 + 
        4*Pi^2*x^8)/(270*(-1 + x)^6*(1 + x)^8) + 
     (8*x^2*(1 + 263*x - 184*x^2 + 1109*x^3 - 424*x^4 + 683*x^5 - 44*x^6 + 
        15*x^7 + 3*x^8)*Log[x])/(45*(-1 + x)^7*(1 + x)^9) - 
     (8*x^3*(180 - 180*x + 1260*x^2 - 800*x^3 + 1940*x^4 - 535*x^5 + 
        545*x^6 - 4*x^7 + 5*x^8 + x^9)*Log[x]^2)/(45*(-1 + x)^8*(1 + x)^10) + 
     Log[imu^2]*((-4*(1 + 5*x - 14*x^2 + 145*x^3 - 94*x^4 + 145*x^5 - 
          14*x^6 + 5*x^7 + x^8))/(15*(-1 + x)^6*(1 + x)^8) + 
       (32*x^3*(1 - x + 3*x^2 - x^3 + x^4)*Log[x])/((-1 + x)^7*(1 + x)^9)) + 
     (4*(1 + 5*x - x^2 + 20*x^3 - x^4 + 5*x^5 + x^6)*Log[x^2]*Log[1 - x^2])/
      (45*(-1 + x)^5*(1 + x)^7) + (4*(1 + 5*x - x^2 + 20*x^3 - x^4 + 5*x^5 + 
        x^6)*PolyLog[2, x^2])/(45*(-1 + x)^5*(1 + x)^7)
 
CbarData["p", 1, 4] = -(61 - 6*Pi^2 - 201*x - 36*Pi^2*x + 978*x^2 + 
        18*Pi^2*x^2 + 19344*x^3 - 288*Pi^2*x^3 - 7591*x^4 + 96*Pi^2*x^4 + 
        51570*x^5 - 7591*x^6 - 96*Pi^2*x^6 + 19344*x^7 + 288*Pi^2*x^7 + 
        978*x^8 - 18*Pi^2*x^8 - 201*x^9 + 36*Pi^2*x^9 + 61*x^10 + 
        6*Pi^2*x^10)/(810*(-1 + x)^8*(1 + x)^10) + 
     (2*x^2*(2 + 1512*x - 1780*x^2 + 11358*x^3 - 7758*x^4 + 16758*x^5 - 
        5155*x^6 + 4662*x^7 - 214*x^8 + 54*x^9 + 9*x^10)*Log[x])/
      (45*(-1 + x)^9*(1 + x)^11) - 
     (4*x^3*(360 - 540*x + 4500*x^2 - 4400*x^3 + 13200*x^4 - 7055*x^5 + 
        9810*x^6 - 2169*x^7 + 1476*x^8 - 5*x^9 + 6*x^10 + x^11)*Log[x]^2)/
      (45*(-1 + x)^10*(1 + x)^12) + Log[imu^2]*
      (-(1 + 6*x - 23*x^2 + 356*x^3 - 398*x^4 + 956*x^5 - 398*x^6 + 356*x^7 - 
          23*x^8 + 6*x^9 + x^10)/(5*(-1 + x)^8*(1 + x)^10) + 
       (24*x^3*(2 - 3*x + 12*x^2 - 8*x^3 + 12*x^4 - 3*x^5 + 2*x^6)*Log[x])/
        ((-1 + x)^9*(1 + x)^11)) + 
     (2*(1 + 6*x - 2*x^2 + 54*x^3 - 18*x^4 + 54*x^5 - 2*x^6 + 6*x^7 + x^8)*
       Log[x^2]*Log[1 - x^2])/(45*(-1 + x)^7*(1 + x)^9) + 
     (2*(1 + 6*x - 2*x^2 + 54*x^3 - 18*x^4 + 54*x^5 - 2*x^6 + 6*x^7 + x^8)*
       PolyLog[2, x^2])/(45*(-1 + x)^7*(1 + x)^9)
 
CbarData["s", 0, -1] = -4*(1 + x + x^2) - 4*(1 + x + x^2)*Log[imu^2] + 
     (8*x^3*Log[x])/(-1 + x)
 
CbarData["s", 0, 0] = (1 - 4*x + x^2)/(-1 + x)^2 + 2*Log[imu^2] - 
     (4*(-2 + x)*x^3*Log[x])/((-1 + x)^3*(1 + x))
 
CbarData["s", 0, 1] = (2*(1 - 4*x + x^2)*(1 + x + x^2))/
      (3*(-1 + x)^4*(1 + x)^2) + (8*x^3*Log[x])/((-1 + x)^5*(1 + x)^3)
 
CbarData["s", 0, 2] = (1 - 4*x - 7*x^2 - 40*x^3 - 7*x^4 - 4*x^5 + x^6)/
      (6*(-1 + x)^6*(1 + x)^4) + (4*x^3*(2 + x + 2*x^2)*Log[x])/
      ((-1 + x)^7*(1 + x)^5)
 
CbarData["s", 0, 3] = (1 - 5*x - 14*x^2 - 145*x^3 - 94*x^4 - 145*x^5 - 
       14*x^6 - 5*x^7 + x^8)/(15*(-1 + x)^8*(1 + x)^6) + 
     (8*x^3*(1 + x + 3*x^2 + x^3 + x^4)*Log[x])/((-1 + x)^9*(1 + x)^7)
 
CbarData["s", 0, 4] = (1 - 6*x - 23*x^2 - 356*x^3 - 398*x^4 - 956*x^5 - 
       398*x^6 - 356*x^7 - 23*x^8 - 6*x^9 + x^10)/(30*(-1 + x)^10*
       (1 + x)^8) + (4*x^3*(2 + 3*x + 12*x^2 + 8*x^3 + 12*x^4 + 3*x^5 + 
        2*x^6)*Log[x])/((-1 + x)^11*(1 + x)^9)
 
CbarData["s", 1, -1] = (-40*(1 + x + x^2))/3 - 8*(1 + x + x^2)*Log[imu^2]^2 + 
     (80*x^3*Log[x])/(3*(-1 + x)) - (32*x^3*Log[x]^2)/(-1 + x) + 
     Log[imu^2]*((-40*(1 + x + x^2))/3 + (32*x^3*Log[x])/(-1 + x))
 
CbarData["s", 1, 0] = (39 - 4*Pi^2 - 198*x + 39*x^2 + 4*Pi^2*x^2)/
      (18*(-1 + x)^2) + 2*Log[imu^2]^2 - (8*x^2*(1 - 5*x + x^2)*Log[x])/
      (3*(-1 + x)^3*(1 + x)) + (16*x^3*(6 - 3*x - 3*x^2 + 2*x^3)*Log[x]^2)/
      (3*(-1 + x)^4*(1 + x)^2) + Log[imu^2]*
      ((4*(1 - 5*x + x^2))/(3*(-1 + x)^2) - (8*(-2 + x)*x^3*Log[x])/
        ((-1 + x)^3*(1 + x))) - (4*(1 + x)*Log[x^2]*Log[1 - x^2])/
      (3*(-1 + x)) - (4*(1 + x)*PolyLog[2, x^2])/(3*(-1 + x))
 
CbarData["s", 1, 1] = -(-3 - 4*Pi^2 + 108*x + 12*Pi^2*x + 66*x^2 + 108*x^3 - 
        12*Pi^2*x^3 - 3*x^4 + 4*Pi^2*x^4)/(27*(-1 + x)^4*(1 + x)^2) + 
     (16*x^2*(1 - 6*x + x^2)*Log[x])/(9*(-1 + x)^5*(1 + x)^3) - 
     (16*x^3*(-18 - 9*x^2 - 2*x^3 - 3*x^4 + x^5)*Log[x]^2)/
      (9*(-1 + x)^6*(1 + x)^4) + (8*(1 - 3*x + x^2)*Log[x^2]*Log[1 - x^2])/
      (9*(-1 + x)^3*(1 + x)) + (8*(1 - 3*x + x^2)*PolyLog[2, x^2])/
      (9*(-1 + x)^3*(1 + x))
 
CbarData["s", 1, 2] = -(-9 - 4*Pi^2 + 216*x + 16*Pi^2*x + 381*x^2 + 
        4*Pi^2*x^2 + 336*x^3 + 381*x^4 - 4*Pi^2*x^4 + 216*x^5 - 16*Pi^2*x^5 - 
        9*x^6 + 4*Pi^2*x^6)/(108*(-1 + x)^6*(1 + x)^4) + 
     (2*x^2*(2 - 122*x - 27*x^2 - 230*x^3 - 22*x^4 - 12*x^5 + 3*x^6)*Log[x])/
      (9*(-1 + x)^7*(1 + x)^5) - (4*x^3*(-72 - 36*x - 216*x^2 - 68*x^3 - 
        136*x^4 - 3*x^5 - 4*x^6 + x^7)*Log[x]^2)/(9*(-1 + x)^8*(1 + x)^6) + 
     Log[imu^2]*(-(1 - 4*x - 7*x^2 - 40*x^3 - 7*x^4 - 4*x^5 + x^6)/
        (3*(-1 + x)^6*(1 + x)^4) - (8*x^3*(2 + x + 2*x^2)*Log[x])/
        ((-1 + x)^7*(1 + x)^5)) + (2*(1 - 4*x - 4*x^3 + x^4)*Log[x^2]*
       Log[1 - x^2])/(9*(-1 + x)^5*(1 + x)^3) + 
     (2*(1 - 4*x - 4*x^3 + x^4)*PolyLog[2, x^2])/(9*(-1 + x)^5*(1 + x)^3)
 
CbarData["s", 1, 3] = -(11 - 4*Pi^2 + 219*x + 20*Pi^2*x + 658*x^2 + 
        8*Pi^2*x^2 - 1479*x^3 + 60*Pi^2*x^3 + 1326*x^4 - 1479*x^5 - 
        60*Pi^2*x^5 + 658*x^6 - 8*Pi^2*x^6 + 219*x^7 - 20*Pi^2*x^7 + 11*x^8 + 
        4*Pi^2*x^8)/(270*(-1 + x)^8*(1 + x)^6) + 
     (8*x^2*(1 - 263*x - 184*x^2 - 1109*x^3 - 424*x^4 - 683*x^5 - 44*x^6 - 
        15*x^7 + 3*x^8)*Log[x])/(45*(-1 + x)^9*(1 + x)^7) - 
     (8*x^3*(-180 - 180*x - 1260*x^2 - 800*x^3 - 1940*x^4 - 535*x^5 - 
        545*x^6 - 4*x^7 - 5*x^8 + x^9)*Log[x]^2)/(45*(-1 + x)^10*(1 + x)^8) + 
     Log[imu^2]*((-4*(1 - 5*x - 14*x^2 - 145*x^3 - 94*x^4 - 145*x^5 - 
          14*x^6 - 5*x^7 + x^8))/(15*(-1 + x)^8*(1 + x)^6) - 
       (32*x^3*(1 + x + 3*x^2 + x^3 + x^4)*Log[x])/((-1 + x)^9*(1 + x)^7)) + 
     (4*(1 - 5*x - x^2 - 20*x^3 - x^4 - 5*x^5 + x^6)*Log[x^2]*Log[1 - x^2])/
      (45*(-1 + x)^7*(1 + x)^5) + (4*(1 - 5*x - x^2 - 20*x^3 - x^4 - 5*x^5 + 
        x^6)*PolyLog[2, x^2])/(45*(-1 + x)^7*(1 + x)^5)
 
CbarData["s", 1, 4] = -(61 - 6*Pi^2 + 201*x + 36*Pi^2*x + 978*x^2 + 
        18*Pi^2*x^2 - 19344*x^3 + 288*Pi^2*x^3 - 7591*x^4 + 96*Pi^2*x^4 - 
        51570*x^5 - 7591*x^6 - 96*Pi^2*x^6 - 19344*x^7 - 288*Pi^2*x^7 + 
        978*x^8 - 18*Pi^2*x^8 + 201*x^9 - 36*Pi^2*x^9 + 61*x^10 + 
        6*Pi^2*x^10)/(810*(-1 + x)^10*(1 + x)^8) + 
     (2*x^2*(2 - 1512*x - 1780*x^2 - 11358*x^3 - 7758*x^4 - 16758*x^5 - 
        5155*x^6 - 4662*x^7 - 214*x^8 - 54*x^9 + 9*x^10)*Log[x])/
      (45*(-1 + x)^11*(1 + x)^9) - 
     (4*x^3*(-360 - 540*x - 4500*x^2 - 4400*x^3 - 13200*x^4 - 7055*x^5 - 
        9810*x^6 - 2169*x^7 - 1476*x^8 - 5*x^9 - 6*x^10 + x^11)*Log[x]^2)/
      (45*(-1 + x)^12*(1 + x)^10) + Log[imu^2]*
      (-(1 - 6*x - 23*x^2 - 356*x^3 - 398*x^4 - 956*x^5 - 398*x^6 - 356*x^7 - 
          23*x^8 - 6*x^9 + x^10)/(5*(-1 + x)^10*(1 + x)^8) - 
       (24*x^3*(2 + 3*x + 12*x^2 + 8*x^3 + 12*x^4 + 3*x^5 + 2*x^6)*Log[x])/
        ((-1 + x)^11*(1 + x)^9)) + 
     (2*(1 - 6*x - 2*x^2 - 54*x^3 - 18*x^4 - 54*x^5 - 2*x^6 - 6*x^7 + x^8)*
       Log[x^2]*Log[1 - x^2])/(45*(-1 + x)^9*(1 + x)^7) + 
     (2*(1 - 6*x - 2*x^2 - 54*x^3 - 18*x^4 - 54*x^5 - 2*x^6 - 6*x^7 + x^8)*
       PolyLog[2, x^2])/(45*(-1 + x)^9*(1 + x)^7)
 
CbarData["v", 0, -1] = -1 + 4*x - x^2 - 2*(-1 + x)^2*Log[imu^2] + 
     (4*(-2 + x)*x^3*Log[x])/((-1 + x)*(1 + x))
 
CbarData["v", 0, 0] = (2*(2 + 9*x - 16*x^2 + 9*x^3 + 2*x^4))/
      (9*(-1 + x)^2*(1 + x)^2) + (4*Log[imu^2])/3 - 
     (8*x^3*(3 - 3*x + x^3)*Log[x])/(3*(-1 + x)^3*(1 + x)^3)
 
CbarData["v", 0, 1] = (3 + 4*x - 21*x^2 + 40*x^3 - 21*x^4 + 4*x^5 + 3*x^6)/
      (6*(-1 + x)^4*(1 + x)^4) - (4*x^3*(2 - 3*x + 2*x^2)*Log[x])/
      ((-1 + x)^5*(1 + x)^5)
 
CbarData["v", 0, 2] = (2 + 5*x - 28*x^2 + 145*x^3 - 188*x^4 + 145*x^5 - 
       28*x^6 + 5*x^7 + 2*x^8)/(15*(-1 + x)^6*(1 + x)^6) - 
     (8*x^3*(1 - x + x^2)^2*Log[x])/((-1 + x)^7*(1 + x)^7)
 
CbarData["v", 0, 3] = (5 + 18*x - 115*x^2 + 1068*x^3 - 1990*x^4 + 2868*x^5 - 
       1990*x^6 + 1068*x^7 - 115*x^8 + 18*x^9 + 5*x^10)/
      (90*(-1 + x)^8*(1 + x)^8) - (4*x^3*(6 - 15*x + 36*x^2 - 40*x^3 + 
        36*x^4 - 15*x^5 + 6*x^6)*Log[x])/(3*(-1 + x)^9*(1 + x)^9)
 
CbarData["v", 0, 4] = (3 + 14*x - 102*x^2 + 1428*x^3 - 3399*x^4 + 7378*x^5 - 
       8124*x^6 + 7378*x^7 - 3399*x^8 + 1428*x^9 - 102*x^10 + 14*x^11 + 
       3*x^12)/(105*(-1 + x)^10*(1 + x)^10) - 
     (8*x^3*(1 - x + x^2)*(1 - 2*x + 7*x^2 - 6*x^3 + 7*x^4 - 2*x^5 + x^6)*
       Log[x])/((-1 + x)^11*(1 + x)^11)
 
CbarData["v", 1, -1] = (-39 + 4*Pi^2 + 198*x - 39*x^2 - 4*Pi^2*x^2)/18 - 
     2*(-1 + x)^2*Log[imu^2]^2 + (8*x^2*(1 - 5*x + x^2)*Log[x])/
      (3*(-1 + x)*(1 + x)) - (16*x^3*(6 - 3*x - 3*x^2 + 2*x^3)*Log[x]^2)/
      (3*(-1 + x)^2*(1 + x)^2) + Log[imu^2]*((-4*(1 - 5*x + x^2))/3 + 
       (8*(-2 + x)*x^3*Log[x])/((-1 + x)*(1 + x))) + 
     (4*(-1 + x)*(1 + x)*Log[x^2]*Log[1 - x^2])/3 + 
     (4*(-1 + x)*(1 + x)*PolyLog[2, x^2])/3
 
CbarData["v", 1, 0] = (57 - 8*Pi^2 + 252*x + 36*Pi^2*x - 426*x^2 + 252*x^3 - 
       36*Pi^2*x^3 + 57*x^4 + 8*Pi^2*x^4)/(81*(-1 + x)^2*(1 + x)^2) - 
     (4*Log[imu^2])/3 + (8*x^2*(-4 + 48*x - 31*x^2 + 9*x^4)*Log[x])/
      (27*(-1 + x)^3*(1 + x)^3) + (16*x^3*(-54 + 54*x - 27*x^2 - 4*x^3 - 
        9*x^4 + 2*x^5)*Log[x]^2)/(27*(-1 + x)^4*(1 + x)^4) - 
     (8*(2 - 9*x + 2*x^2)*Log[x^2]*Log[1 - x^2])/(27*(-1 + x)*(1 + x)) - 
     (8*(2 - 9*x + 2*x^2)*PolyLog[2, x^2])/(27*(-1 + x)*(1 + x))
 
CbarData["v", 1, 1] = -(207 - 36*Pi^2 - 504*x - 48*Pi^2*x + 69*x^2 + 
        164*Pi^2*x^2 + 432*x^3 + 69*x^4 - 164*Pi^2*x^4 - 504*x^5 + 
        48*Pi^2*x^5 + 207*x^6 + 36*Pi^2*x^6)/(324*(-1 + x)^4*(1 + x)^4) + 
     (2*x^2*(18 + 438*x - 691*x^2 + 762*x^3 - 198*x^4 + 36*x^5 + 27*x^6)*
       Log[x])/(27*(-1 + x)^5*(1 + x)^5) - 
     (4*x^3*(216 - 324*x + 648*x^2 - 516*x^3 + 408*x^4 - 59*x^5 + 12*x^6 + 
        9*x^7)*Log[x]^2)/(27*(-1 + x)^6*(1 + x)^6) + 
     Log[imu^2]*(-(3 + 4*x - 21*x^2 + 40*x^3 - 21*x^4 + 4*x^5 + 3*x^6)/
        (3*(-1 + x)^4*(1 + x)^4) + (8*x^3*(2 - 3*x + 2*x^2)*Log[x])/
        ((-1 + x)^5*(1 + x)^5)) + (2*(9 + 12*x - 32*x^2 + 12*x^3 + 9*x^4)*
       Log[x^2]*Log[1 - x^2])/(27*(-1 + x)^3*(1 + x)^3) + 
     (2*(9 + 12*x - 32*x^2 + 12*x^3 + 9*x^4)*PolyLog[2, x^2])/
      (27*(-1 + x)^3*(1 + x)^3)
 
CbarData["v", 1, 2] = -(92 - 8*Pi^2 - 147*x - 20*Pi^2*x - 74*x^2 + 
        56*Pi^2*x^2 + 3567*x^3 - 60*Pi^2*x^3 - 4908*x^4 + 3567*x^5 + 
        60*Pi^2*x^5 - 74*x^6 - 56*Pi^2*x^6 - 147*x^7 + 20*Pi^2*x^7 + 92*x^8 + 
        8*Pi^2*x^8)/(270*(-1 + x)^6*(1 + x)^6) + 
     (8*x^2*(2 + 299*x - 568*x^2 + 1217*x^3 - 1048*x^4 + 719*x^5 - 88*x^6 + 
        15*x^7 + 6*x^8)*Log[x])/(45*(-1 + x)^7*(1 + x)^7) - 
     (8*x^3*(180 - 360*x + 1260*x^2 - 1560*x^3 + 1940*x^4 - 1050*x^5 + 
        545*x^6 - 18*x^7 + 5*x^8 + 2*x^9)*Log[x]^2)/
      (45*(-1 + x)^8*(1 + x)^8) + Log[imu^2]*
      ((-4*(2 + 5*x - 28*x^2 + 145*x^3 - 188*x^4 + 145*x^5 - 28*x^6 + 5*x^7 + 
          2*x^8))/(15*(-1 + x)^6*(1 + x)^6) + (32*x^3*(1 - x + x^2)^2*Log[x])/
        ((-1 + x)^7*(1 + x)^7)) + (4*(2 + 5*x - 12*x^2 + 20*x^3 - 12*x^4 + 
        5*x^5 + 2*x^6)*Log[x^2]*Log[1 - x^2])/(45*(-1 + x)^5*(1 + x)^5) + 
     (4*(2 + 5*x - 12*x^2 + 20*x^3 - 12*x^4 + 5*x^5 + 2*x^6)*PolyLog[2, x^2])/
      (45*(-1 + x)^5*(1 + x)^5)
 
CbarData["v", 1, 3] = -(577 - 30*Pi^2 - 171*x - 108*Pi^2*x - 3270*x^2 + 
        282*Pi^2*x^2 + 83664*x^3 - 864*Pi^2*x^3 - 149875*x^4 + 864*Pi^2*x^4 + 
        223542*x^5 - 149875*x^6 - 864*Pi^2*x^6 + 83664*x^7 + 864*Pi^2*x^7 - 
        3270*x^8 - 282*Pi^2*x^8 - 171*x^9 + 108*Pi^2*x^9 + 577*x^10 + 
        30*Pi^2*x^10)/(2430*(-1 + x)^8*(1 + x)^8) + 
     (2*x^2*(10 + 5016*x - 11700*x^2 + 36954*x^3 - 46374*x^4 + 53154*x^5 - 
        28575*x^6 + 14466*x^7 - 1070*x^8 + 162*x^9 + 45*x^10)*Log[x])/
      (135*(-1 + x)^9*(1 + x)^9) - 
     (4*x^3*(1080 - 2700*x + 13500*x^2 - 22000*x^3 + 39600*x^4 - 35115*x^5 + 
        29430*x^6 - 10845*x^7 + 4428*x^8 - 57*x^9 + 18*x^10 + 5*x^11)*
       Log[x]^2)/(135*(-1 + x)^10*(1 + x)^10) + 
     Log[imu^2]*(-(5 + 18*x - 115*x^2 + 1068*x^3 - 1990*x^4 + 2868*x^5 - 
          1990*x^6 + 1068*x^7 - 115*x^8 + 18*x^9 + 5*x^10)/
        (15*(-1 + x)^8*(1 + x)^8) + (8*x^3*(6 - 15*x + 36*x^2 - 40*x^3 + 
          36*x^4 - 15*x^5 + 6*x^6)*Log[x])/((-1 + x)^9*(1 + x)^9)) + 
     (2*(5 + 18*x - 42*x^2 + 162*x^3 - 186*x^4 + 162*x^5 - 42*x^6 + 18*x^7 + 
        5*x^8)*Log[x^2]*Log[1 - x^2])/(135*(-1 + x)^7*(1 + x)^7) + 
     (2*(5 + 18*x - 42*x^2 + 162*x^3 - 186*x^4 + 162*x^5 - 42*x^6 + 18*x^7 + 
        5*x^8)*PolyLog[2, x^2])/(135*(-1 + x)^7*(1 + x)^7)
 
CbarData["v", 1, 4] = -(15129 - 540*Pi^2 + 14145*x - 2520*Pi^2*x - 
        192874*x^2 + 6360*Pi^2*x^2 + 5402655*x^3 - 37800*Pi^2*x^3 - 
        12004625*x^4 + 56100*Pi^2*x^4 + 27166800*x^5 - 50400*Pi^2*x^5 - 
        29023260*x^6 + 27166800*x^7 + 50400*Pi^2*x^7 - 12004625*x^8 - 
        56100*Pi^2*x^8 + 5402655*x^9 + 37800*Pi^2*x^9 - 192874*x^10 - 
        6360*Pi^2*x^10 + 14145*x^11 + 2520*Pi^2*x^11 + 15129*x^12 + 
        540*Pi^2*x^12)/(85050*(-1 + x)^10*(1 + x)^10) + 
     (4*x^2*(18 + 22584*x - 62924*x^2 + 263451*x^3 - 423882*x^4 + 
        687762*x^5 - 593982*x^6 + 477651*x^7 - 181616*x^8 + 73488*x^9 - 
        3762*x^10 + 504*x^11 + 108*x^12)*Log[x])/(945*(-1 + x)^11*
       (1 + x)^11) - (8*x^3*(3780 - 11340*x + 73710*x^2 - 147840*x^3 + 
        353850*x^4 - 425215*x^5 + 503160*x^6 - 327516*x^7 + 209412*x^8 - 
        57414*x^9 + 19446*x^10 - 124*x^11 + 42*x^12 + 9*x^13)*Log[x]^2)/
      (945*(-1 + x)^12*(1 + x)^12) + Log[imu^2]*
      ((-8*(3 + 14*x - 102*x^2 + 1428*x^3 - 3399*x^4 + 7378*x^5 - 8124*x^6 + 
          7378*x^7 - 3399*x^8 + 1428*x^9 - 102*x^10 + 14*x^11 + 3*x^12))/
        (105*(-1 + x)^10*(1 + x)^10) + (64*x^3*(1 - x + x^2)*
         (1 - 2*x + 7*x^2 - 6*x^3 + 7*x^4 - 2*x^5 + x^6)*Log[x])/
        ((-1 + x)^11*(1 + x)^11)) + 
     (4*(9 + 42*x - 97*x^2 + 672*x^3 - 1032*x^4 + 1512*x^5 - 1032*x^6 + 
        672*x^7 - 97*x^8 + 42*x^9 + 9*x^10)*Log[x^2]*Log[1 - x^2])/
      (945*(-1 + x)^9*(1 + x)^9) + 
     (4*(9 + 42*x - 97*x^2 + 672*x^3 - 1032*x^4 + 1512*x^5 - 1032*x^6 + 
        672*x^7 - 97*x^8 + 42*x^9 + 9*x^10)*PolyLog[2, x^2])/
      (945*(-1 + x)^9*(1 + x)^9)
 
CbarData["a", 2, -1, "a"] = -18971/1296 + (2881*Pi^2)/972 - (17*Pi^4)/162 - 
     (49*Im[PolyLog[2, E^((I/3)*Pi)]])/(2*Sqrt[3]) + 
     (-53/18 - (53*x)/9 - (53*x^2)/18)*Log[imu^2]^3 + 
     ((424*x^3)/9 + (218*x^4)/9 + (1949*x^5)/30 + (11096*x^6)/405 + 
       (155783*x^7)/1890 + (323783*x^8)/11340 + (3736193*x^9)/30240)*
      Log[x^2]^2 + ((-158*x^3)/9 - (79*x^4)/9 - (289*x^5)/9 - (1046*x^6)/81 - 
       (3832*x^7)/81 - (2665*x^8)/162 - (18641*x^9)/324)*Log[x^2]^3 + 
     Log[imu^2]^2*(-245/36 - (202*x)/9 - (245*x^2)/36 + 
       ((-53*x^3)/3 - (53*x^4)/6 - (53*x^5)/3 - (53*x^6)/6 - (53*x^7)/3 - 
         (53*x^8)/6 - (53*x^9)/3)*Log[x^2]) + 
     (4*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + (2*Log[2]^4)/3 + 
        16*PolyLog[4, 1/2]))/9 + x*(-46697/648 - (149*Pi^2)/1944 - 
       (23*Pi^4)/540 - 13*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] + 
       (8*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + (2*Log[2]^4)/3 + 
          16*PolyLog[4, 1/2]))/9 + 
       (Pi^4/24 + 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 - 6*Zeta[3])/6 + 
       (53*Zeta[3])/54) + (101*Zeta[3])/27 + 
     (-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3])/18 + 
     x^2*(-36581/1296 - (3415*Pi^2)/1944 + (121*Pi^4)/1620 - 
       (125*Im[PolyLog[2, E^((I/3)*Pi)]])/(2*Sqrt[3]) + 
       (4*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + (2*Log[2]^4)/3 + 
          16*PolyLog[4, 1/2]))/9 + (1189*Zeta[3])/54) + 
     x^8*(663426236939/12002256000 - (4477439*Pi^2)/279936 - 
       (756523*Pi^4)/4199040 - (1178279*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (3888*Sqrt[3]) + (39817*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/8748 + 
       (1162915*Zeta[3])/11664 - (39817*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/5832) + 
     x^6*(224386793/5832000 - (34685*Pi^2)/3888 - (3173*Pi^4)/29160 - 
       (17512*Im[PolyLog[2, E^((I/3)*Pi)]])/(81*Sqrt[3]) + 
       (668*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/243 + 
       (5815*Zeta[3])/81 - (334*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/81) + 
     x^4*(185201/5184 - (6785*Pi^2)/1728 - (247*Pi^4)/5184 - 
       (406*Im[PolyLog[2, E^((I/3)*Pi)]])/(3*Sqrt[3]) + 
       (65*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/54 + 
       (8893*Zeta[3])/216 - (65*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/36) + 
     nl*(73/72 - (7*Pi^2)/54 + (1/9 + (2*x)/9 + x^2/9)*Log[imu^2]^3 + 
       ((5/2 - (2*Pi^2)/9)*x^3 + (5/4 - Pi^2/9)*x^4 + (1/6 - (4*Pi^2)/9)*
          x^5 + (35/108 - (5*Pi^2)/27)*x^6 + (-37/18 - (2*Pi^2)/3)*x^7 + 
         (-13/27 - (7*Pi^2)/27)*x^8 + (-115/27 - (8*Pi^2)/9)*x^9)*Log[x^2] + 
       ((-20*x^3)/9 - (10*x^4)/9 - 3*x^5 - (13*x^6)/9 - (34*x^7)/9 - 
         (16*x^8)/9 - (41*x^9)/9)*Log[x^2]^2 + 
       ((4*x^3)/9 + (2*x^4)/9 + (2*x^5)/3 + (8*x^6)/27 + (8*x^7)/9 + 
         (10*x^8)/27 + (10*x^9)/9)*Log[x^2]^3 + Log[imu^2]^2*
        (7/18 + (10*x)/9 + (7*x^2)/18 + ((2*x^3)/3 + x^4/3 + (2*x^5)/3 + 
           x^6/3 + (2*x^7)/3 + x^8/3 + (2*x^9)/3)*Log[x^2]) + 
       Log[imu^2]*(3/4 - Pi^2/27 + (19*x)/6 + (35/36 + Pi^2/27)*x^2 - x^4/6 - 
         (5*x^6)/162 - (7*x^8)/648 + ((20*x^3)/9 + (10*x^4)/9 + (20*x^5)/9 + 
           (28*x^6)/27 + (20*x^7)/9 + (55*x^8)/54 + (20*x^9)/9)*Log[x^2] + 
         ((-4*x^3)/3 - (2*x^4)/3 - 2*x^5 - (8*x^6)/9 - (8*x^7)/3 - 
           (10*x^8)/9 - (10*x^9)/3)*Log[x^2]^2) + 
       x^9*(6883/648 - (2*Pi^2)/9 - (32*Zeta[3])/3) + 
       x^7*(200/27 - (2*Pi^2)/9 - 8*Zeta[3]) + 
       x^5*(25/6 - (2*Pi^2)/9 - (16*Zeta[3])/3) + 
       x^8*(3757/1296 - (11*Pi^2)/162 - (28*Zeta[3])/9) + 
       x^3*(2/3 - (2*Pi^2)/9 - (8*Zeta[3])/3) + 
       x^6*(553/324 - (5*Pi^2)/81 - (20*Zeta[3])/9) + 
       x^4*(7/36 - Pi^2/27 - (4*Zeta[3])/3) + 
       x^2*(43/24 - Pi^2/54 + (4*Zeta[3])/9) + (4*Zeta[3])/3 + 
       x*(41/9 - Pi^2/9 + (16*Zeta[3])/9)) + 
     Log[imu^2]*(-745/72 + (53*Pi^2)/54 + (53*x^4)/12 + (265*x^6)/324 + 
       (371*x^8)/1296 + ((-404*x^3)/9 - (202*x^4)/9 - (404*x^5)/9 - 
         (553*x^6)/27 - (404*x^7)/9 - (2159*x^8)/108 - (404*x^9)/9)*
        Log[x^2] + ((106*x^3)/3 + (53*x^4)/3 + 53*x^5 + (212*x^6)/9 + 
         (212*x^7)/3 + (265*x^8)/9 + (265*x^9)/3)*Log[x^2]^2 + Zeta[3] + 
       x^2*(-1169/72 - (53*Pi^2)/54 + Zeta[3]) + x*(-2083/36 + 2*Zeta[3])) + 
     Log[x^2]*(x^4*(-9563/216 + (101*Pi^2)/216 + 
         (65*Im[PolyLog[2, E^((I/3)*Pi)]])/(6*Sqrt[3]) + (4*Zeta[3])/3) + 
       x^6*(-1362469/32400 + (329*Pi^2)/324 + 
         (668*Im[PolyLog[2, E^((I/3)*Pi)]])/(27*Sqrt[3]) + (4*Zeta[3])/3) + 
       x^8*(-458337641/9525600 + (3481*Pi^2)/1296 + 
         (39817*Im[PolyLog[2, E^((I/3)*Pi)]])/(972*Sqrt[3]) + 
         (4*Zeta[3])/3) + x^5*(-302609/3600 + (277*Pi^2)/216 + 
         (287*Im[PolyLog[2, E^((I/3)*Pi)]])/(6*Sqrt[3]) + (8*Zeta[3])/3) + 
       x^7*(-34124218/297675 + (2003*Pi^2)/324 + 
         (2137*Im[PolyLog[2, E^((I/3)*Pi)]])/(27*Sqrt[3]) + (8*Zeta[3])/3) + 
       x^9*(-3626900897/19051200 + (26177*Pi^2)/1296 + 
         (12281*Im[PolyLog[2, E^((I/3)*Pi)]])/(108*Sqrt[3]) + 
         (8*Zeta[3])/3) + x^3*(-7631/108 - (13*Pi^2)/108 + 
         7*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] + (8*Zeta[3])/3)) + 
     x^9*(1375999816519/12002256000 - (40665353*Pi^2)/1088640 - 
       (229883*Pi^4)/466560 - (6823289*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (11664*Sqrt[3]) + (12281*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/972 + 
       (55177*Zeta[3])/432 - (12281*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/648 - 
       (2*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/9) + 
     x^7*(88669259317/1000188000 - (401603*Pi^2)/12960 - 
       (39739*Pi^4)/116640 - (7771*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (18*Sqrt[3]) + (2137*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/243 + 
       (41539*Zeta[3])/324 - (2137*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/162 - 
       (2*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/9) + 
     x^5*(4900733/108000 - (154487*Pi^2)/8640 - (5261*Pi^4)/25920 - 
       (1723*Im[PolyLog[2, E^((I/3)*Pi)]])/(6*Sqrt[3]) + 
       (287*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/54 + 
       (20291*Zeta[3])/216 - (287*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/36 - 
       (2*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/9) + 
     x^3*(47327/2592 - (16969*Pi^2)/2592 - (367*Pi^4)/4320 - 
       (311*Im[PolyLog[2, E^((I/3)*Pi)]])/(2*Sqrt[3]) + 
       (7*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/3 + 
       (1757*Zeta[3])/36 - (7*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/2 - (2*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^
            2 + 6*Zeta[3]))/9)
 
CbarData["a", 2, -1, "b"] = -10.9667 + 48.0622*Sqrt[x] - 204.736*x + 
     237.441*x^(3/2) - 99.0478*x^3
 
CbarData["a", 2, -1, "c"] = 109/9 - Pi^4/15 + 
     (-86/9 + (232*(-1 + x))/9 + (593*(-1 + x)^2)/18 + (53*(-1 + x)^3)/18 - 
       (53*(-1 + x)^4)/90 + (53*(-1 + x)^5)/180 - (53*(-1 + x)^6)/280 + 
       (53*(-1 + x)^7)/420 - (53*(-1 + x)^8)/630 + (53*(-1 + x)^9)/945)*
      Log[imu^2]^2 + (-106/9 - (106*(-1 + x))/9 - (53*(-1 + x)^2)/18)*
      Log[imu^2]^3 + (4*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + 
        (2*Log[2]^4)/3 + 16*PolyLog[4, 1/2]))/3 + 
     (-1 + x)^8*(95496375329821/256048128000 - (530544709*Zeta[3])/1720320) + 
     (-1 + x)^6*(2904899791/15552000 - (48789257*Zeta[3])/322560) + 
     (-1 + x)^4*(882041/7776 - (146567*Zeta[3])/1728) + 
     (-1 + x)^2*(1165/54 - Pi^4/60 + ((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + 
         (2*Log[2]^4)/3 + 16*PolyLog[4, 1/2])/3 - (1201*Zeta[3])/24) + 
     (-1 + x)*(49/18 - Pi^4/15 + (4*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + 
          (2*Log[2]^4)/3 + 16*PolyLog[4, 1/2]))/3 - (248*Zeta[3])/9) + 
     (-1 + x)^3*(2855/216 - Zeta[3]/3) - (212*Zeta[3])/9 + 
     (-1 + x)^5*(-4254427/38880 + (733123*Zeta[3])/8640) + 
     (-1 + x)^7*(-14424164977/54432000 + (105310579*Zeta[3])/483840) + 
     (-1 + x)^9*(-43573946015821/85349376000 + (2185596061*Zeta[3])/
        5160960) + nl*(-1/9 - (5*(-1 + x)^3)/108 - (767*(-1 + x)^4)/1620 + 
       (869*(-1 + x)^5)/3240 - (187217*(-1 + x)^6)/1134000 + 
       (178231*(-1 + x)^7)/1701000 - (2761163*(-1 + x)^8)/41674500 + 
       (3430673*(-1 + x)^9)/83349000 + (5/9 - (11*(-1 + x))/9 + 
         (5*(-1 + x)^2)/36 + (32*(-1 + x)^3)/27 - (19*(-1 + x)^4)/81 + 
         (38*(-1 + x)^5)/405 - (767*(-1 + x)^6)/18900 + 
         (218*(-1 + x)^7)/14175 - (323*(-1 + x)^8)/99225 - 
         (877*(-1 + x)^9)/396900)*Log[imu^2] + 
       (8/9 - (4*(-1 + x))/9 - (10*(-1 + x)^2)/9 - (-1 + x)^3/9 + 
         (-1 + x)^4/45 - (-1 + x)^5/90 + (-1 + x)^6/140 - (-1 + x)^7/210 + 
         (-1 + x)^8/315 - (2*(-1 + x)^9)/945)*Log[imu^2]^2 + 
       (4/9 + (4*(-1 + x))/9 + (-1 + x)^2/9)*Log[imu^2]^3 + 
       (-1 + x)^2*(89/108 + (8*Zeta[3])/9) + (32*Zeta[3])/9 + 
       (-1 + x)*(-2/3 + (32*Zeta[3])/9)) + 
     Log[imu^2]*(169/18 - (911*(-1 + x)^3)/27 + (5413*(-1 + x)^4)/810 - 
       (2203*(-1 + x)^5)/810 + (46321*(-1 + x)^6)/37800 - 
       (14389*(-1 + x)^7)/28350 + (30349*(-1 + x)^8)/198450 + 
       (11201*(-1 + x)^9)/793800 + (-1 + x)^2*(-1847/72 + Zeta[3]) + 
       4*Zeta[3] + (-1 + x)*(57/2 + 4*Zeta[3]))
 
CbarData["a", 2, 0, "a"] = 8075/972 - (4471*Pi^2)/2916 + (188*Pi^4)/3645 + 
     (107*Im[PolyLog[2, E^((I/3)*Pi)]])/(9*Sqrt[3]) - (29*Log[imu^2]^2)/18 + 
     ((224*x^3)/9 + (74*x^4)/3 + (13568*x^5)/135 + (323827*x^6)/3645 + 
       (933823*x^7)/3402 + (10458641*x^8)/51030 + (19109959*x^9)/22680)*
      Log[x^2]^2 + ((-158*x^3)/9 - (158*x^4)/9 - (289*x^5)/3 - 
       (59692*x^6)/729 - (71524*x^7)/243 - (54802*x^8)/243 - 
       (102257*x^9)/162)*Log[x^2]^3 + Log[imu^2]*(-247/81 - (58*Pi^2)/243 + 
       (-203/27 - (29*Pi^2)/27)*x + (-638/81 - (116*Pi^2)/243)*x^2 + 
       (-145/9 - (29*Pi^2)/27)*x^3 + (-1247/81 - (116*Pi^2)/243)*x^4 + 
       (-1595/54 - (29*Pi^2)/27)*x^5 + (-17632/729 - (116*Pi^2)/243)*x^6 + 
       (-7105/162 - (29*Pi^2)/27)*x^7 + (-96947/2916 - (116*Pi^2)/243)*x^8 + 
       (-37903/648 - (29*Pi^2)/27)*x^9 + ((290*x^3)/27 + (319*x^4)/27 + 
         (377*x^5)/9 + (8236*x^6)/243 + (2465*x^7)/27 + (15950*x^8)/243 + 
         (8555*x^9)/54)*Log[x^2] + ((58*x^3)/3 + (58*x^4)/3 + 87*x^5 + 
         (6148*x^6)/81 + (2117*x^7)/9 + (15254*x^8)/81 + (4466*x^9)/9)*
        Log[x^2]^2) - (8*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + 
        (2*Log[2]^4)/3 + 16*PolyLog[4, 1/2]))/27 + 
     nl*(-164/243 + (10*Pi^2)/81 + Log[imu^2]^2/9 + 
       ((-148/81 - (4*Pi^2)/9)*x^3 + (-146/81 - (4*Pi^2)/9)*x^4 + 
         (-343/27 - 2*Pi^2)*x^5 + (-292/27 - (424*Pi^2)/243)*x^6 + 
         (-9653/243 - (146*Pi^2)/27)*x^7 + (-7543/243 - (1052*Pi^2)/243)*
          x^8 + (-43783/486 - (308*Pi^2)/27)*x^9)*Log[x^2] + 
       ((-20*x^3)/9 - (20*x^4)/9 - 9*x^5 - (652*x^6)/81 - (1865*x^7)/81 - 
         (1549*x^8)/81 - (3806*x^9)/81)*Log[x^2]^2 + 
       ((4*x^3)/9 + (4*x^4)/9 + 2*x^5 + (424*x^6)/243 + (146*x^7)/27 + 
         (1052*x^8)/243 + (308*x^9)/27)*Log[x^2]^3 + 
       Log[imu^2]*(4/81 + (4*Pi^2)/243 + (14/27 + (2*Pi^2)/27)*x + 
         (44/81 + (8*Pi^2)/243)*x^2 + (10/9 + (2*Pi^2)/27)*x^3 + 
         (86/81 + (8*Pi^2)/243)*x^4 + (55/27 + (2*Pi^2)/27)*x^5 + 
         (1216/729 + (8*Pi^2)/243)*x^6 + (245/81 + (2*Pi^2)/27)*x^7 + 
         (3343/1458 + (8*Pi^2)/243)*x^8 + (1307/324 + (2*Pi^2)/27)*x^9 + 
         ((-20*x^3)/27 - (22*x^4)/27 - (26*x^5)/9 - (568*x^6)/243 - 
           (170*x^7)/27 - (1100*x^8)/243 - (295*x^9)/27)*Log[x^2] + 
         ((-4*x^3)/3 - (4*x^4)/3 - 6*x^5 - (424*x^6)/81 - (146*x^7)/9 - 
           (1052*x^8)/81 - (308*x^9)/9)*Log[x^2]^2) + 
       x^9*(635521/5832 - (1696*Pi^2)/243 - (1240*Zeta[3])/9) + 
       x^7*(68617/1458 - (985*Pi^2)/243 - (592*Zeta[3])/9) + 
       x^8*(116227/2916 - (2222*Pi^2)/729 - (4240*Zeta[3])/81) + 
       x^5*(2501/162 - (457*Pi^2)/243 - (224*Zeta[3])/9) + 
       x^6*(389/27 - (1144*Pi^2)/729 - (64*Zeta[3])/3) + 
       x^3*(293/81 - (115*Pi^2)/243 - (56*Zeta[3])/9) + 
       x^4*(31/9 - (128*Pi^2)/243 - (464*Zeta[3])/81) + 
       x*(13/9 + (29*Pi^2)/243 - (8*Zeta[3])/9) + 
       x^2*(101/81 + (16*Pi^2)/243 - (32*Zeta[3])/81) - (16*Zeta[3])/81) - 
     (104*Zeta[3])/27 + (8*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 
        6*Zeta[3]))/81 + x^9*(14244385154099/18003384000 - 
       (132340804189*Pi^2)/198404640 - (766343647*Pi^4)/85030560 - 
       (7287616025*Im[PolyLog[2, E^((I/3)*Pi)]])/(708588*Sqrt[3]) + 
       (41472037*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/177147 + 
       (675823759*Zeta[3])/236196 - (41472037*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/118098 - 
       (206*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^7*(1059996752903/2700507600 - (3909956447*Pi^2)/11022480 - 
       (19516247*Pi^4)/4723920 - (33056188*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (6561*Sqrt[3]) + (2154202*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/19683 + 
       (20859851*Zeta[3])/13122 - (1077101*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/6561 - 
       (392*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     x^8*(784832894389/1687817250 - (27949172*Pi^2)/98415 - 
       (3975977*Pi^4)/1180980 - (92124283*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (19683*Sqrt[3]) + (1707928*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/19683 + 
       (9974242*Zeta[3])/6561 - (853964*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/6561 - 
       (272*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     x^5*(54738203/546750 - (11806433*Pi^2)/87480 - (372751*Pi^4)/262440 - 
       (1458602*Im[PolyLog[2, E^((I/3)*Pi)]])/(729*Sqrt[3]) + 
       (87796*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/2187 + 
       (474313*Zeta[3])/729 - (43898*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/729 - 
       (218*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     x^6*(2690278741/19683000 - (85655849*Pi^2)/787320 - 
       (3009083*Pi^4)/2361960 - (4416130*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (2187*Sqrt[3]) + (659684*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/19683 + 
       (4422707*Zeta[3])/6561 - (329842*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/6561 - 
       (160*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     x^3*(63997/5832 - (1029839*Pi^2)/29160 - (3395*Pi^4)/17496 - 
       (14483*Im[PolyLog[2, E^((I/3)*Pi)]])/(27*Sqrt[3]) + 
       (6484*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/729 + 
       (42505*Zeta[3])/243 - (3242*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/243 - 
       (32*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^4*(52141/2916 - (46397*Pi^2)/1620 - (2381*Pi^4)/8748 - 
       (151622*Im[PolyLog[2, E^((I/3)*Pi)]])/(243*Sqrt[3]) + 
       (5912*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/729 + 
       (51362*Zeta[3])/243 - (2956*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/243 - 
       (76*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     x*(-36281/2916 - (46535*Pi^2)/8748 + (41*Pi^4)/243 - 
       (149*Im[PolyLog[2, E^((I/3)*Pi)]])/(3*Sqrt[3]) + (1738*Zeta[3])/81 - 
       (26*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     x^2*(-4385/972 - (6547*Pi^2)/1458 + (206*Pi^4)/3645 - 
       (2026*Im[PolyLog[2, E^((I/3)*Pi)]])/(27*Sqrt[3]) + 
       (7840*Zeta[3])/243 - (20*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^
            2 + 6*Zeta[3]))/81) + Log[x^2]*
      (x^4*(-2147/81 - (14*Pi^2)/27 + (5912*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (81*Sqrt[3]) + (8*Zeta[3])/3) + x^3*(-949/27 + (94*Pi^2)/243 + 
         (6484*Im[PolyLog[2, E^((I/3)*Pi)]])/(81*Sqrt[3]) + (8*Zeta[3])/3) + 
       x^6*(-6591364/54675 + (1693*Pi^2)/729 + 
         (659684*Im[PolyLog[2, E^((I/3)*Pi)]])/(2187*Sqrt[3]) + 
         (64*Zeta[3])/9) + x^5*(-908573/6075 + (998*Pi^2)/243 + 
         (87796*Im[PolyLog[2, E^((I/3)*Pi)]])/(243*Sqrt[3]) + 8*Zeta[3]) + 
       x^8*(-4119486403/10716300 + (17315*Pi^2)/729 + 
         (1707928*Im[PolyLog[2, E^((I/3)*Pi)]])/(2187*Sqrt[3]) + 
         (40*Zeta[3])/3) + x^7*(-258416303/535815 + (48503*Pi^2)/1458 + 
         (2154202*Im[PolyLog[2, E^((I/3)*Pi)]])/(2187*Sqrt[3]) + 
         16*Zeta[3]) + x^9*(-513169557737/385786800 + (173777*Pi^2)/972 + 
         (41472037*Im[PolyLog[2, E^((I/3)*Pi)]])/(19683*Sqrt[3]) + 
         (80*Zeta[3])/3))
 
CbarData["a", 2, 0, "b"] = -2.28002 + 20.9413*Sqrt[x] - 93.3523*x + 
     116.148*x^(3/2) - 46.1747*x^3
 
CbarData["a", 2, 0, "c"] = 2884/243 + (595*(-1 + x))/81 + 
     (-595/81 + (29*(-1 + x))/9 + (1885*(-1 + x)^2)/2916 - 
       (3451*(-1 + x)^3)/2916 + (76531*(-1 + x)^4)/72900 - 
       (58957*(-1 + x)^5)/72900 + (1398757*(-1 + x)^6)/2381400 - 
       (2919923*(-1 + x)^7)/7144200 + (38504953*(-1 + x)^8)/141455160 - 
       (3044246*(-1 + x)^9)/17681895)*Log[imu^2] - (29*Log[imu^2]^2)/18 + 
     nl*(-7/108 - (28*(-1 + x))/81 + (449*(-1 + x)^2)/1458 - 
       (23*(-1 + x)^3)/243 - (10021*(-1 + x)^4)/850500 + 
       (405743*(-1 + x)^5)/7654500 - (47487817*(-1 + x)^6)/750141000 + 
       (45023941*(-1 + x)^7)/750141000 - (228896141*(-1 + x)^8)/4455837540 + 
       (1150380818*(-1 + x)^9)/27848984625 + 
       (28/81 - (2*(-1 + x))/9 - (65*(-1 + x)^2)/1458 + 
         (119*(-1 + x)^3)/1458 - (2639*(-1 + x)^4)/36450 + 
         (2033*(-1 + x)^5)/36450 - (48233*(-1 + x)^6)/1190700 + 
         (100687*(-1 + x)^7)/3572100 - (1327757*(-1 + x)^8)/70727580 + 
         (209948*(-1 + x)^9)/17681895)*Log[imu^2] + Log[imu^2]^2/9) + 
     (-1 + x)^8*(8708785418375530777/1106127912960000 - 
       (321215858208269*Zeta[3])/49049763840) + 
     (-1 + x)^6*(12684098544934087/4608866304000 - (637754453431*Zeta[3])/
        278691840) + (-1 + x)^4*(38347478903/46656000 - 
       (1984463459*Zeta[3])/2903040) + (-1 + x)^2*(28301989/139968 - 
       (5364731*Zeta[3])/31104) - (6703*Zeta[3])/1296 + 
     (-1 + x)^3*(-28789333/139968 + (5364731*Zeta[3])/31104) + 
     (-1 + x)^5*(-11175128441/7776000 + (5202328037*Zeta[3])/4354560) + 
     (-1 + x)^7*(-813741440522863/170698752000 + (122769429917*Zeta[3])/
        30965760) + (-1 + x)^9*(-37905687104160925547/3041851760640000 + 
       (42370240259047*Zeta[3])/4087480320)
 
CbarData["a", 2, 1, "a"] = -225469/186624 + (579697*Pi^2)/699840 - 
     (67*Pi^4)/1620 + (1913*Im[PolyLog[2, E^((I/3)*Pi)]])/(216*Sqrt[3]) + 
     ((28*x^3)/9 + (62*x^4)/9 + (7327*x^5)/540 + (30857*x^6)/810 + 
       (4375727*x^7)/34020 + (67302721*x^8)/408240 + (546071581*x^9)/272160)*
      Log[x^2]^2 + ((-158*x^3)/9 - (79*x^4)/3 - (578*x^5)/3 - 
       (58925*x^6)/243 - (80915*x^7)/81 - (3250105*x^8)/2916 - 
       (9630191*x^9)/2916)*Log[x^2]^3 + nl*(407/2592 - (17*Pi^2)/1944 + 
       ((-188/27 - (2*Pi^2)/3)*x^3 + (-815/81 - Pi^2)*x^4 + 
         (-56 - (16*Pi^2)/3)*x^5 + (-33115/486 - (545*Pi^2)/81)*x^6 + 
         (-57206/243 - (1832*Pi^2)/81)*x^7 + 
         (-1001473/3888 - (12389*Pi^2)/486)*x^8 + 
         (-173147/243 - (5594*Pi^2)/81)*x^9)*Log[x^2] + 
       ((-20*x^3)/9 - (10*x^4)/3 - 18*x^5 - (620*x^6)/27 - (6272*x^7)/81 - 
         (57377*x^8)/648 - (19379*x^9)/81)*Log[x^2]^2 + 
       ((4*x^3)/9 + (2*x^4)/3 + 4*x^5 + (410*x^6)/81 + (1472*x^7)/81 + 
         (9959*x^8)/486 + (4694*x^9)/81)*Log[x^2]^3 + 
       x^9*(1388927/2916 - (5195*Pi^2)/81 - (22576*Zeta[3])/27) + 
       x^8*(7613743/46656 - (158129*Pi^2)/5832 - (25040*Zeta[3])/81) + 
       x^7*(187483/1458 - (76*Pi^2)/3 - (7456*Zeta[3])/27) + 
       x^6*(807823/23328 - (17569*Pi^2)/1944 - (2230*Zeta[3])/27) + 
       x^5*(616/27 - (200*Pi^2)/27 - (200*Zeta[3])/3) + 
       x^4*(12293/2592 - (1193*Pi^2)/648 - (346*Zeta[3])/27) + 
       x^3*(25/9 - (277*Pi^2)/243 - (248*Zeta[3])/27) + 
       x*(64/81 + (8*Pi^2)/243 - (8*Zeta[3])/27) + 
       x^2*(365/288 - (91*Pi^2)/1944 - (10*Zeta[3])/81) + (2*Zeta[3])/9) - 
     (4915*Zeta[3])/648 + (-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 
       6*Zeta[3])/18 + x^9*(6965923871570963/1728324864000 - 
       (5245342866529*Pi^2)/952342272 - (152418693353*Pi^4)/2040733440 - 
       (1365175167943*Im[PolyLog[2, E^((I/3)*Pi)]])/(17006112*Sqrt[3]) + 
       (8194694387*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/4251528 + 
       (133356508289*Zeta[3])/5668704 - 
       (8194694387*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/2834352 - 
       (22025*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        324) + x^8*(11272068957593/4500846000 - (1469241754*Pi^2)/688905 - 
       (98938343*Pi^4)/3779136 - (10175382661*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (314928*Sqrt[3]) + (26392465*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/39366 + 
       (534788377*Zeta[3])/52488 - (26392465*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/26244 - 
       (2470*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     x^7*(21904617239791/13502538000 - (67598753807*Pi^2)/33067440 - 
       (350941319*Pi^4)/14171760 - (1646597051*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (59049*Sqrt[3]) + (38186170*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/59049 + 
       (342238151*Zeta[3])/39366 - (19093085*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/19683 - 
       (2348*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     x^6*(215454736267/314928000 - (3412405127*Pi^2)/5878656 - 
       (87443923*Pi^4)/12597120 - (369154891*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (39366*Sqrt[3]) + (4702945*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/26244 + 
       (103232191*Zeta[3])/34992 - (4702945*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/17496 - 
       (1831*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        162) + x^5*(88107313577/209952000 - (1925638303*Pi^2)/3674160 - 
       (37108117*Pi^4)/6298560 - (3546211*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (486*Sqrt[3]) + (2091151*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/13122 + 
       (9899869*Zeta[3])/4374 - (2091151*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/8748 - 
       (1051*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        108) + x^4*(239343187/1679616 - (399415481*Pi^2)/4199040 - 
       (12946697*Pi^4)/12597120 - (7577945*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (4374*Sqrt[3]) + (720035*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/26244 + 
       (18152507*Zeta[3])/34992 - (720035*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/17496 - 
       (929*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/324) + 
     x^3*(23368229/279936 - (54869381*Pi^2)/699840 - (278297*Pi^4)/419904 - 
       (3335929*Im[PolyLog[2, E^((I/3)*Pi)]])/(2916*Sqrt[3]) + 
       (94063*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/4374 + 
       (1955167*Zeta[3])/5832 - (94063*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/2916 - 
       (170*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     x^2*(594787/46656 - (77933*Pi^2)/34992 + (71*Pi^4)/29160 - 
       (13993*Im[PolyLog[2, E^((I/3)*Pi)]])/(162*Sqrt[3]) + 
       (14071*Zeta[3])/972 - (77*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^
            2 + 6*Zeta[3]))/324) + x*(1313993/186624 - 
       (1696937*Pi^2)/699840 + (553*Pi^4)/9720 - 
       (28477*Im[PolyLog[2, E^((I/3)*Pi)]])/(648*Sqrt[3]) + 
       (4213*Zeta[3])/648 - (41*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^
            2 + 6*Zeta[3]))/324) + Log[x^2]*
      (x^3*(-206545/3888 + (1853*Pi^2)/1944 + 
         (94063*Im[PolyLog[2, E^((I/3)*Pi)]])/(486*Sqrt[3]) + 
         (8*Zeta[3])/3) + x^4*(-1135583/23328 - (65*Pi^2)/432 + 
         (720035*Im[PolyLog[2, E^((I/3)*Pi)]])/(2916*Sqrt[3]) + 4*Zeta[3]) + 
       x^5*(-15155363/36450 + (21733*Pi^2)/1944 + 
         (2091151*Im[PolyLog[2, E^((I/3)*Pi)]])/(1458*Sqrt[3]) + 
         16*Zeta[3]) + x^6*(-242935187/583200 + (100595*Pi^2)/11664 + 
         (4702945*Im[PolyLog[2, E^((I/3)*Pi)]])/(2916*Sqrt[3]) + 
         20*Zeta[3]) + x^7*(-127241164699/64297800 + (3103*Pi^2)/27 + 
         (38186170*Im[PolyLog[2, E^((I/3)*Pi)]])/(6561*Sqrt[3]) + 
         (160*Zeta[3])/3) + x^8*(-176399891783/85730400 + 
         (663575*Pi^2)/5832 + (26392465*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (4374*Sqrt[3]) + 60*Zeta[3]) + x^9*(-124317176248697/18517766400 + 
         (20273615*Pi^2)/23328 + (8194694387*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (472392*Sqrt[3]) + (400*Zeta[3])/3))
 
CbarData["a", 2, 1, "b"] = 1.1480000000000001 - 12.888*Sqrt[x] + 4.045*x + 
     45.272*x^(3/2) - 50.015*x^2 + 12.417*x^3
 
CbarData["a", 2, 1, "c"] = 17975731/699840 + 
     nl*(251/2430 - (383*(-1 + x))/3645 + (4399*(-1 + x)^2)/40500 - 
       (198427*(-1 + x)^3)/2187000 + (45574363*(-1 + x)^4)/750141000 - 
       (23038819*(-1 + x)^5)/750141000 + (97446379*(-1 + x)^6)/14258680128 + 
       (378099173*(-1 + x)^7)/40507614000 - (814759669954*(-1 + x)^8)/
        43806452815125 + (63329732372147*(-1 + x)^9)/2803612980168000) + 
     (-1 + x)^8*(173099047513507304335591/2277738598367232000 - 
       (322503479725238261*Zeta[3])/5101175439360) + 
     (-1 + x)^6*(973263785850988977679/48669628170240000 - 
       (652794191048221*Zeta[3])/39239811072) + 
     (-1 + x)^4*(10932645045705811/2731180032000 - (707207228237*Zeta[3])/
        212336640) + (-1 + x)^2*(4001661926237/6718464000 - 
       (3293821951*Zeta[3])/6635520) - (212201*Zeta[3])/9720 + 
     (-1 + x)*(-17677123/699840 + (212201*Zeta[3])/9720) + 
     (-1 + x)^3*(-3917582673437/3359232000 + (9664172029*Zeta[3])/9953280) + 
     (-1 + x)^5*(-671463760534127971/73741860864000 + (1608516977287*Zeta[3])/
        212336640) + (-1 + x)^7*(-489144942183456989449/12167407042560000 + 
       (546800287951133*Zeta[3])/16349921280) + 
     (-1 + x)^9*(-97654869441118924707191/715860702343987200 + 
       (578907835720794893*Zeta[3])/5101175439360)
 
CbarData["a", 2, 1, "l"] = 
    Log[imu^2]^2*(((-5 + 2*nl)*(3 - 4*x - 21*x^2 - 40*x^3 - 21*x^4 - 4*x^5 + 
          3*x^6))/(72*(-1 + x)^4*(1 + x)^4) + 
       ((-5 + 2*nl)*x^3*(2 + 3*x + 2*x^2)*Log[x])/(3*(-1 + x)^5*(1 + x)^5)) + 
     Log[imu^2]*((-2847 + 318*nl + 60*Pi^2 - 24*nl*Pi^2 + 2496*x + 96*nl*x - 
         80*Pi^2*x + 32*nl*Pi^2*x + 17399*x^2 - 1214*nl*x^2 - 
         (820*Pi^2*x^2)/3 + (328*nl*Pi^2*x^2)/3 + 34080*x^3 - 2688*nl*x^3 + 
         17399*x^4 - 1214*nl*x^4 + (820*Pi^2*x^4)/3 - (328*nl*Pi^2*x^4)/3 + 
         2496*x^5 + 96*nl*x^5 + 80*Pi^2*x^5 - 32*nl*Pi^2*x^5 - 2847*x^6 + 
         318*nl*x^6 - 60*Pi^2*x^6 + 24*nl*Pi^2*x^6)/(1296*(-1 + x)^4*
         (1 + x)^4) - (x^2*(-90 + 36*nl + 7194*x - 1236*nl*x + 10961*x^2 - 
          1922*nl*x^2 + 8814*x^3 - 1884*nl*x^3 + 990*x^4 - 396*nl*x^4 + 
          180*x^5 - 72*nl*x^5 - 135*x^6 + 54*nl*x^6)*Log[x])/
        (162*(-1 + x)^5*(1 + x)^5) + ((-5 + 2*nl)*x^3*(-216 - 324*x - 
          648*x^2 - 516*x^3 - 408*x^4 - 59*x^5 - 12*x^6 + 9*x^7)*Log[x]^2)/
        (81*(-1 + x)^6*(1 + x)^6) - ((-5 + 2*nl)*(9 - 12*x - 32*x^2 - 
          12*x^3 + 9*x^4)*Log[x^2]*Log[1 - x^2])/(162*(-1 + x)^3*
         (1 + x)^3)) - ((-5 + 2*nl)*(9 - 12*x - 32*x^2 - 12*x^3 + 9*x^4)*
       Log[imu^2]*PolyLog[2, x^2])/(162*(-1 + x)^3*(1 + x)^3)
 
CbarData["a", 2, 2, "a"] = -58871/291600 + (1121701*Pi^2)/4374000 - 
     (67*Pi^4)/6075 + (88699*Im[PolyLog[2, E^((I/3)*Pi)]])/(8100*Sqrt[3]) + 
     ((-832*x^3)/45 - (1354*x^4)/45 - (2893*x^5)/10 - (53912*x^6)/135 - 
       (9648071*x^7)/5670 - (6243817*x^8)/2835 - (154967009*x^9)/136080)*
      Log[x^2]^2 + ((-158*x^3)/9 - (316*x^4)/9 - (2890*x^5)/9 - 
       (42956*x^6)/81 - (613445*x^7)/243 - (2647463*x^8)/729 - 
       (1923341*x^9)/162)*Log[x^2]^3 + nl*(1183/9720 - (7*Pi^2)/12150 + 
       ((-62/5 - (8*Pi^2)/9)*x^3 + (-19109/810 - (16*Pi^2)/9)*x^4 + 
         (-295/2 - (100*Pi^2)/9)*x^5 + (-278771/1215 - (488*Pi^2)/27)*x^6 + 
         (-2094269/2430 - (5500*Pi^2)/81)*x^7 + (-14171/12 - (2606*Pi^2)/27)*
          x^8 + (-3740801/1080 - (2545*Pi^2)/9)*x^9)*Log[x^2] + 
       ((-20*x^3)/9 - (40*x^4)/9 - 30*x^5 - (148*x^6)/3 - (15770*x^7)/81 - 
         (45341*x^8)/162 - (30511*x^9)/36)*Log[x^2]^2 + 
       ((4*x^3)/9 + (8*x^4)/9 + (20*x^5)/3 + (296*x^6)/27 + (3700*x^7)/81 + 
         (1766*x^8)/27 + 205*x^9)*Log[x^2]^3 + 
       x^9*(14554639/12960 - (1365*Pi^2)/4 - (10280*Zeta[3])/3) + 
       x^8*(1989437/6480 - (64309*Pi^2)/486 - (10544*Zeta[3])/9) + 
       x^7*(1063571/7290 - (23810*Pi^2)/243 - (22400*Zeta[3])/27) + 
       x^6*(73037/3645 - (62732*Pi^2)/2025 - (3328*Zeta[3])/15) + 
       x^5*(-33/10 - (2674*Pi^2)/135 - (416*Zeta[3])/3) + 
       x^4*(-6131/3240 - (16981*Pi^2)/4050 - (1016*Zeta[3])/45) + 
       x^3*(-1091/432 - (1097*Pi^2)/540 - 12*Zeta[3]) + 
       x*(2707/6480 + (31*Pi^2)/4860 - (4*Zeta[3])/27) + 
       x^2*(9449/9720 - (391*Pi^2)/4050 - (8*Zeta[3])/135) + 
       (8*Zeta[3])/135) - (8407*Zeta[3])/1215 + 
     (2*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/135 + 
     x^9*(73809259914172453/4666477132800 - (118206784159469*Pi^2)/
        3968092800 - (137004595561*Pi^4)/340122240 - 
       (17306753044969*Im[PolyLog[2, E^((I/3)*Pi)]])/(42515280*Sqrt[3]) + 
       (7308211699*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/708588 + 
       (575454396437*Zeta[3])/4723920 - 
       (7308211699*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/472392 - 
       (18845*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        54) + x^8*(4784041705954691/486091368000 - (1925402835203*Pi^2)/
        186004350 - (4141156763*Pi^4)/31886460 - 
       (385624674919*Im[PolyLog[2, E^((I/3)*Pi)]])/(2657205*Sqrt[3]) + 
       (1752164584*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/531441 + 
       (39690937931*Zeta[3])/885735 - 
       (876082292*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/177147 - 
       (434*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/3) + 
     x^7*(209588535448877/40507614000 - (1011180879553*Pi^2)/124002900 - 
       (4303830701*Pi^4)/42515280 - 
       (372593649097*Im[PolyLog[2, E^((I/3)*Pi)]])/(3542940*Sqrt[3]) + 
       (461856478*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/177147 + 
       (19176892801*Zeta[3])/590490 - 
       (230928239*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/59049 - 
       (8630*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     x^6*(1161486907/486000 - (285450601627*Pi^2)/137781000 - 
       (300729077*Pi^4)/11809800 - (2958371647*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (98415*Sqrt[3]) + (63618332*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/98415 + 
       (1484737453*Zeta[3])/164025 - (31809166*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/32805 - 
       (332*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/9) + 
     x^5*(977579327/820125 - (5872077661*Pi^2)/3936600 - 
       (416624921*Pi^4)/23619600 - (38105284651*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (1968300*Sqrt[3]) + (45500902*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/98415 + 
       (382448873*Zeta[3])/65610 - (22750451*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/32805 - 
       (3214*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        135) + x^4*(28603169/64800 - (20981476897*Pi^2)/91854000 - 
       (21208199*Pi^4)/7873200 - (589953934*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (164025*Sqrt[3]) + (2246266*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/32805 + 
       (104944153*Zeta[3])/109350 - (1123133*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/10935 - 
       (2368*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        405) + x^3*(4388452417/20995200 - (26477051521*Pi^2)/183708000 - 
       (291829*Pi^4)/196830 - (141652589*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (72900*Sqrt[3]) + (276616*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/6561 + 
       (113308483*Zeta[3])/218700 - (138308*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/2187 - 
       (163*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/54) + 
     x^2*(51068873/1166400 - (1423879*Pi^2)/1093500 - (23*Pi^4)/2025 - 
       (4347667*Im[PolyLog[2, E^((I/3)*Pi)]])/(72900*Sqrt[3]) - 
       (10663*Zeta[3])/486 - (34*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^
            2 + 6*Zeta[3]))/135) + x*(45723713/2332800 - 
       (413627*Pi^2)/324000 + (233*Pi^4)/8100 - 
       (732001*Im[PolyLog[2, E^((I/3)*Pi)]])/(24300*Sqrt[3]) - 
       (159517*Zeta[3])/24300 - 
       (59*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/810) + 
     Log[x^2]*(x^3*(-4059671/29160 + (3667*Pi^2)/2430 + 
         (276616*Im[PolyLog[2, E^((I/3)*Pi)]])/(729*Sqrt[3]) + 
         (8*Zeta[3])/3) + x^4*(-2649851/14580 + (1169*Pi^2)/2430 + 
         (2246266*Im[PolyLog[2, E^((I/3)*Pi)]])/(3645*Sqrt[3]) + 
         (16*Zeta[3])/3) + x^5*(-164305679/109350 + (57397*Pi^2)/2430 + 
         (45500902*Im[PolyLog[2, E^((I/3)*Pi)]])/(10935*Sqrt[3]) + 
         (80*Zeta[3])/3) + x^6*(-205409413/109350 + (89981*Pi^2)/3645 + 
         (63618332*Im[PolyLog[2, E^((I/3)*Pi)]])/(10935*Sqrt[3]) + 
         (128*Zeta[3])/3) + x^7*(-850820814869/96446700 + 
         (2237171*Pi^2)/7290 + (461856478*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (19683*Sqrt[3]) + (400*Zeta[3])/3) + 
       x^8*(-3140298973703/289340100 + (561907*Pi^2)/1458 + 
         (1752164584*Im[PolyLog[2, E^((I/3)*Pi)]])/(59049*Sqrt[3]) + 
         (560*Zeta[3])/3) + x^9*(-21005210932823/617258880 + 
         (11888543*Pi^2)/3888 + (7308211699*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (78732*Sqrt[3]) + (1400*Zeta[3])/3))
 
CbarData["a", 2, 2, "b"] = 0.294 - 5.445*Sqrt[x] + 2.029*x + 
     25.830000000000002*x^(3/2) - 31.637*x^2 + 9.155*x^3
 
CbarData["a", 2, 2, "c"] = 965965735687/23514624000 + 
     nl*(13621/1134000 - (47353*(-1 + x))/1701000 + (213043879*(-1 + x)^2)/
        5000940000 - (254201777*(-1 + x)^3)/5000940000 + 
       (37515301567*(-1 + x)^4)/742639590000 - (64126230779*(-1 + x)^5)/
        1485279180000 + (21285602075053*(-1 + x)^6)/667526900040000 - 
       (91755487452689*(-1 + x)^7)/4672688300280000 + 
       (280839916227557*(-1 + x)^8)/32903513447805000 + 
       (113531489790161*(-1 + x)^9)/394842161373660000) + 
     (-1 + x)^8*(328357810989418833813664921437269/
        695556983863638805708800000 - (854768888953439899477*Zeta[3])/
        2176501520793600) + (-1 + x)^6*(242358946810172759704475147/
        2505512458203955200000 - (8209923175800477223*Zeta[3])/
        102023508787200) + (-1 + x)^4*(153129466461296292421/
        10815472926720000 - (23109850511634239*Zeta[3])/1961990553600) + 
     (-1 + x)^2*(84347806733763227/61451550720000 - (2546412337837*Zeta[3])/
        2229534720) - (11920488227*Zeta[3])/348364800 + 
     (-1 + x)*(-964936227847/11757312000 + (11920488227*Zeta[3])/174182400) + 
     (-1 + x)^3*(-721318471946934163/184354652160000 + 
       (7257781390247*Zeta[3])/2229534720) + 
     (-1 + x)^5*(-312830208194674939367/8111604695040000 + 
       (15736853838957527*Zeta[3])/490497638400) + 
     (-1 + x)^7*(-110937471852527347546445027/501102491640791040000 + 
       (341636829209298941*Zeta[3])/1854972887040) + 
     (-1 + x)^9*(-989946746925246848867454192420061/
        1043335475795458208563200000 + (858997362583014245023*Zeta[3])/
        1088250760396800)
 
CbarData["a", 2, 2, "l"] = 
    Log[imu^2]^2*(((19 + 2*nl)*(2 - 5*x - 28*x^2 - 145*x^3 - 188*x^4 - 
          145*x^5 - 28*x^6 - 5*x^7 + 2*x^8))/(90*(-1 + x)^6*(1 + x)^6) + 
       (4*(19 + 2*nl)*x^3*(1 + x + x^2)^2*Log[x])/(3*(-1 + x)^7*(1 + x)^7)) + 
     Log[imu^2]*((-1588 + 424*nl - 152*Pi^2 - 16*nl*Pi^2 + 11133*x - 
         306*nl*x + 380*Pi^2*x + 40*nl*Pi^2*x + 45298*x^2 - 3508*nl*x^2 + 
         1064*Pi^2*x^2 + 112*nl*Pi^2*x^2 + 174087*x^3 - 24534*nl*x^3 + 
         1140*Pi^2*x^3 + 120*nl*Pi^2*x^3 + 220332*x^4 - 32376*nl*x^4 + 
         174087*x^5 - 24534*nl*x^5 - 1140*Pi^2*x^5 - 120*nl*Pi^2*x^5 + 
         45298*x^6 - 3508*nl*x^6 - 1064*Pi^2*x^6 - 112*nl*Pi^2*x^6 + 
         11133*x^7 - 306*nl*x^7 - 380*Pi^2*x^7 - 40*nl*Pi^2*x^7 - 1588*x^8 + 
         424*nl*x^8 + 152*Pi^2*x^8 + 16*nl*Pi^2*x^8)/(3240*(-1 + x)^6*
         (1 + x)^6) - (2*x^2*(38 + 4*nl - 1511*x - 898*nl*x - 2452*x^2 - 
          1736*nl*x^2 - 10613*x^3 - 3334*nl*x^3 - 11572*x^4 - 2696*nl*x^4 - 
          9491*x^5 - 1738*nl*x^5 - 1672*x^6 - 176*nl*x^6 - 285*x^7 - 
          30*nl*x^7 + 114*x^8 + 12*nl*x^8)*Log[x])/(135*(-1 + x)^7*
         (1 + x)^7) + (2*(19 + 2*nl)*x^3*(-180 - 360*x - 1260*x^2 - 
          1560*x^3 - 1940*x^4 - 1050*x^5 - 545*x^6 - 18*x^7 - 5*x^8 + 2*x^9)*
         Log[x]^2)/(135*(-1 + x)^8*(1 + x)^8) - 
       ((19 + 2*nl)*(2 - 5*x - 12*x^2 - 20*x^3 - 12*x^4 - 5*x^5 + 2*x^6)*
         Log[x^2]*Log[1 - x^2])/(135*(-1 + x)^5*(1 + x)^5)) - 
     ((19 + 2*nl)*(2 - 5*x - 12*x^2 - 20*x^3 - 12*x^4 - 5*x^5 + 2*x^6)*
       Log[imu^2]*PolyLog[2, x^2])/(135*(-1 + x)^5*(1 + x)^5)
 
CbarData["a", 2, 3, "a"] = -781327/52488000 + (379387*Pi^2)/3827250 - 
     (67*Pi^4)/14580 + (10516892*Im[PolyLog[2, E^((I/3)*Pi)]])/
      (820125*Sqrt[3]) + (-40*x^3 - (3904*x^4)/45 - (162343*x^5)/180 - 
       (5935292*x^6)/3645 - (268507289*x^7)/34020 - (5186871853*x^8)/408240 - 
       (5478684913*x^9)/204120)*Log[x^2]^2 + 
     ((-158*x^3)/9 - (395*x^4)/9 - (1445*x^5)/3 - (715120*x^6)/729 - 
       (1297535*x^7)/243 - (9073489*x^8)/972 - (16442825*x^9)/486)*
      Log[x^2]^3 + nl*(31739/349920 + Pi^2/648 + 
       ((-29153/1620 - (10*Pi^2)/9)*x^3 + (-137707/3240 - (25*Pi^2)/9)*x^4 + 
         (-27463/90 - 20*Pi^2)*x^5 + (-16790089/29160 - (9625*Pi^2)/243)*
          x^6 + (-11682353/4860 - (4490*Pi^2)/27)*x^7 + 
         (-228998209/58320 - (137423*Pi^2)/486)*x^8 + 
         (-121587913/9720 - (24437*Pi^2)/27)*x^9)*Log[x^2] + 
       ((-20*x^3)/9 - (50*x^4)/9 - 45*x^5 - (7315*x^6)/81 - (33250*x^7)/81 - 
         (458089*x^8)/648 - (775537*x^9)/324)*Log[x^2]^2 + 
       ((4*x^3)/9 + (10*x^4)/9 + 10*x^5 + (4900*x^6)/243 + (2600*x^7)/27 + 
         (80723*x^8)/486 + (15617*x^9)/27)*Log[x^2]^3 + 
       x^9*(10213159/12960 - (1278623*Pi^2)/972 - (98728*Zeta[3])/9) + 
       x^8*(-52074599/699840 - (2703221*Pi^2)/5832 - (278036*Zeta[3])/81) + 
       x^7*(-1348159/4860 - (69761*Pi^2)/243 - (18280*Zeta[3])/9) + 
       x^6*(-1912103/14580 - (117311*Pi^2)/1458 - (39340*Zeta[3])/81) + 
       x^5*(-1556653/14580 - (10322*Pi^2)/243 - (2240*Zeta[3])/9) + 
       x^4*(-184571/8748 - (18767*Pi^2)/2430 - (2836*Zeta[3])/81) + 
       x^3*(-172291/14580 - (18671*Pi^2)/6075 - (664*Zeta[3])/45) + 
       x*(2425/11664 - (89*Pi^2)/24300 - (4*Zeta[3])/45) + 
       x^2*(211639/349920 - (6037*Pi^2)/48600 - (14*Zeta[3])/405) + 
       (2*Zeta[3])/81) - (57751*Zeta[3])/8100 + 
     (-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3])/162 + 
     x^9*(15301014063405207883/377984647756800 - (19446558776147446091*Pi^2)/
        159100680816000 - (2038507391116589*Pi^4)/1239745564800 - 
       (3232872647321063*Im[PolyLog[2, E^((I/3)*Pi)]])/(2066242608*Sqrt[3]) + 
       (108069191939327*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/2582803260 + 
       (8187854276357833*Zeta[3])/17218688400 - 
       (108069191939327*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/1721868840 - 
       (58597*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        45) + x^8*(5752835498293693157/209991470976000 - 
       (30709127981929393*Pi^2)/803538792000 - (33451735142267*Pi^4)/
        68874753600 - (2856431802242671*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (5739562800*Sqrt[3]) + (1757777966441*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/143489070 + 
       (145489770251659*Zeta[3])/956593800 - 
       (1757777966441*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/95659380 - 
       (397439*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        810) + x^7*(11757392272510909/1093705578000 - (1148002171730389*Pi^2)/
        44641044000 - (1239229886759*Pi^4)/3826375200 - 
       (220636884329*Im[PolyLog[2, E^((I/3)*Pi)]])/(708588*Sqrt[3]) + 
       (13171779241*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/1594323 + 
       (5103478017847*Zeta[3])/53144100 - 
       (13171779241*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/1062882 - 
       (120803*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        405) + x^6*(117117276616051/20407334400 - (782109896930123*Pi^2)/
        133923132000 - (839734844503*Pi^4)/11479125600 - 
       (73456952029877*Im[PolyLog[2, E^((I/3)*Pi)]])/(956593800*Sqrt[3]) + 
       (8792477729*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/4782969 + 
       (3581894917949*Zeta[3])/159432300 - 
       (8792477729*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/3188646 - 
       (8221*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/90) + 
     x^5*(24443927703713/11337408000 - (104897579662511*Pi^2)/29760696000 - 
       (109642894633*Pi^4)/2550916800 - 
       (112097888827*Im[PolyLog[2, E^((I/3)*Pi)]])/(2657205*Sqrt[3]) + 
       (5878605043*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/5314410 + 
       (442963377233*Zeta[3])/35429400 - 
       (5878605043*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/3542940 - 
       (19223*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        405) + x^4*(28393098859/31492800 - (1537594634753*Pi^2)/3306744000 - 
       (1627172767*Pi^4)/283435200 - 
       (74060018167*Im[PolyLog[2, E^((I/3)*Pi)]])/(11809800*Sqrt[3]) + 
       (84417589*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/590490 + 
       (5858206739*Zeta[3])/3936600 - 
       (84417589*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/393660 - 
       (8029*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        810) + x^3*(15588873569/47239200 - (1190605799771*Pi^2)/4960116000 - 
       (1154471473*Pi^4)/425152800 - 
       (50624924851*Im[PolyLog[2, E^((I/3)*Pi)]])/(17714700*Sqrt[3]) + 
       (64561051*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/885735 + 
       (164505785*Zeta[3])/236196 - (64561051*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/590490 - 
       (533*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/135) + 
     x^2*(4068135787/52488000 - (98379133*Pi^2)/122472000 - 
       (623*Pi^4)/36450 + (98187463*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (13122000*Sqrt[3]) - (5729729*Zeta[3])/72900 - 
       (107*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/405) + 
     x*(571603043/20995200 - (91736383*Pi^2)/122472000 + (106*Pi^4)/6075 - 
       (21195481*Im[PolyLog[2, E^((I/3)*Pi)]])/(2624400*Sqrt[3]) - 
       (1551661*Zeta[3])/72900 - 
       (4*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     Log[x^2]*(x^3*(-120206321/393660 + (665*Pi^2)/324 + 
         (64561051*Im[PolyLog[2, E^((I/3)*Pi)]])/(98415*Sqrt[3]) + 
         (8*Zeta[3])/3) + x^4*(-17208349/32805 + (15499*Pi^2)/9720 + 
         (84417589*Im[PolyLog[2, E^((I/3)*Pi)]])/(65610*Sqrt[3]) + 
         (20*Zeta[3])/3) + x^5*(-426601036211/94478400 + (416627*Pi^2)/9720 + 
         (5878605043*Im[PolyLog[2, E^((I/3)*Pi)]])/(590490*Sqrt[3]) + 
         40*Zeta[3]) + x^6*(-1178559618281/170061120 + (418877*Pi^2)/7290 + 
         (8792477729*Im[PolyLog[2, E^((I/3)*Pi)]])/(531441*Sqrt[3]) + 
         (700*Zeta[3])/9) + x^7*(-58201545109297/1736040600 + 
         (3361439*Pi^2)/4860 + (13171779241*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (177147*Sqrt[3]) + 280*Zeta[3]) + 
       x^8*(-12049857896222327/249989846400 + (10181189*Pi^2)/9720 + 
         (1757777966441*Im[PolyLog[2, E^((I/3)*Pi)]])/(15943230*Sqrt[3]) + 
         (1400*Zeta[3])/3) + x^9*(-70119853043502467/449981723520 + 
         (169491059*Pi^2)/19440 + (108069191939327*
           Im[PolyLog[2, E^((I/3)*Pi)]])/(286978140*Sqrt[3]) + 
         (3920*Zeta[3])/3))
 
CbarData["a", 2, 3, "b"] = -0.077 - 2.414*Sqrt[x] + 3.926*x + 5.774*x^(3/2) - 
     11.039*x^2 + 3.958*x^3
 
CbarData["a", 2, 3, "c"] = 182015691247182727/2949674434560000 + 
     nl*(5298689/2500470000 - (18184157*(-1 + x))/2500470000 + 
       (11954755327*(-1 + x)^2)/810152280000 - (9131950997*(-1 + x)^3)/
        405076140000 + (79679417171737*(-1 + x)^4)/2803612980168000 - 
       (4431581725643*(-1 + x)^5)/143041478580000 + 
       (20276930764870433*(-1 + x)^6)/676872276640560000 - 
       (30778903617048161*(-1 + x)^7)/1184526484120980000 + 
       (4461366854087279*(-1 + x)^8)/221285167363260000 - 
       (4226013284046787*(-1 + x)^9)/309799234308564000) + 
     (-1 + x)^8*(7963735519146595661605540301346609977/
        3632476792529467298933637120000 - (103654485472377641946827549*
         Zeta[3])/56832807710962483200) + 
     (-1 + x)^6*(95176670992234017035877692008871/
        264974089090910021222400000 - (15608907942194915755801*Zeta[3])/
        52236036499046400) + (-1 + x)^4*(80908761834087408674131381/
        2004409966563164160000 - (169184615635067117*Zeta[3])/
        5038197964800) + (-1 + x)^2*(27871454335207400983/10113169489920000 - 
       (121168993102561*Zeta[3])/52848230400) - (9157802148727*Zeta[3])/
      178362777600 + (-1 + x)*(-182004341828215687/983224811520000 + 
       (9157802148727*Zeta[3])/59454259200) + 
     (-1 + x)^3*(-25687441551946234819/2528292372480000 + 
       (3015144353604791*Zeta[3])/356725555200) + 
     (-1 + x)^5*(-254405011423406179862387933/2004409966563164160000 + 
       (4787760539546123389*Zeta[3])/45343781683200) + 
     (-1 + x)^7*(-1100060449935877350915291962326877/
        1192383400909095095500800000 + (6681818235884576611033*Zeta[3])/
        8706006083174400) + (-1 + x)^9*
      (-4221730112991392397643568697968257951/
        864875426792730309269913600000 + (230786822099948404047210763*
         Zeta[3])/56832807710962483200)
 
CbarData["a", 2, 3, "l"] = 
    Log[imu^2]^2*(((43 + 2*nl)*(5 - 18*x - 115*x^2 - 1068*x^3 - 1990*x^4 - 
          2868*x^5 - 1990*x^6 - 1068*x^7 - 115*x^8 - 18*x^9 + 5*x^10))/
        (360*(-1 + x)^8*(1 + x)^8) + ((43 + 2*nl)*x^3*(6 + 15*x + 36*x^2 + 
          40*x^3 + 36*x^4 + 15*x^5 + 6*x^6)*Log[x])/(3*(-1 + x)^9*
         (1 + x)^9)) + Log[imu^2]*((6046 + 2504*nl - 1290*Pi^2 - 60*nl*Pi^2 + 
         74907*x - 4518*nl*x + 4644*Pi^2*x + 216*nl*Pi^2*x + 290985*x^2 - 
         37590*nl*x^2 + 12126*Pi^2*x^2 + 564*nl*Pi^2*x^2 + 410652*x^3 - 
         455688*nl*x^3 + 37152*Pi^2*x^3 + 1728*nl*Pi^2*x^3 + 1023845*x^4 - 
         837050*nl*x^4 + 37152*Pi^2*x^4 + 1728*nl*Pi^2*x^4 + 1151298*x^5 - 
         1221444*nl*x^5 + 1023845*x^6 - 837050*nl*x^6 - 37152*Pi^2*x^6 - 
         1728*nl*Pi^2*x^6 + 410652*x^7 - 455688*nl*x^7 - 37152*Pi^2*x^7 - 
         1728*nl*Pi^2*x^7 + 290985*x^8 - 37590*nl*x^8 - 12126*Pi^2*x^8 - 
         564*nl*Pi^2*x^8 + 74907*x^9 - 4518*nl*x^9 - 4644*Pi^2*x^9 - 
         216*nl*Pi^2*x^9 + 6046*x^10 + 2504*nl*x^10 + 1290*Pi^2*x^10 + 
         60*nl*Pi^2*x^10)/(29160*(-1 + x)^8*(1 + x)^8) - 
       (x^2*(430 + 20*nl - 140628*x - 15432*nl*x - 315450*x^2 - 
          36900*nl*x^2 - 1138662*x^3 - 106308*nl*x^3 - 1493682*x^4 - 
          128748*nl*x^4 - 1835262*x^5 - 138708*nl*x^5 - 1041075*x^6 - 
          70650*nl*x^6 - 546978*x^7 - 34332*nl*x^7 - 46010*x^8 - 
          2140*nl*x^8 - 6966*x^9 - 324*nl*x^9 + 1935*x^10 + 90*nl*x^10)*
         Log[x])/(810*(-1 + x)^9*(1 + x)^9) + 
       ((43 + 2*nl)*x^3*(-1080 - 2700*x - 13500*x^2 - 22000*x^3 - 39600*x^4 - 
          35115*x^5 - 29430*x^6 - 10845*x^7 - 4428*x^8 - 57*x^9 - 18*x^10 + 
          5*x^11)*Log[x]^2)/(405*(-1 + x)^10*(1 + x)^10) - 
       ((43 + 2*nl)*(5 - 18*x - 42*x^2 - 162*x^3 - 186*x^4 - 162*x^5 - 
          42*x^6 - 18*x^7 + 5*x^8)*Log[x^2]*Log[1 - x^2])/
        (810*(-1 + x)^7*(1 + x)^7)) - 
     ((43 + 2*nl)*(5 - 18*x - 42*x^2 - 162*x^3 - 186*x^4 - 162*x^5 - 42*x^6 - 
        18*x^7 + 5*x^8)*Log[imu^2]*PolyLog[2, x^2])/(810*(-1 + x)^7*(1 + x)^7)
 
CbarData["a", 2, 4, "a"] = -135311/2624400 + (589387*Pi^2)/13891500 - 
     (67*Pi^4)/28350 + (27633947*Im[PolyLog[2, E^((I/3)*Pi)]])/
      (1786050*Sqrt[3]) + ((-3872*x^3)/63 - (17158*x^4)/105 - 
       (604276*x^5)/315 - (71192399*x^6)/17010 - (389288933*x^7)/17010 - 
       (887929723*x^8)/20412)*Log[x^2]^2 + 
     ((-158*x^3)/9 - (158*x^4)/3 - (2023*x^5)/3 - (396088*x^6)/243 - 
       (811517*x^7)/81 - (29950291*x^8)/1458)*Log[x^2]^3 + 
     nl*(71903/1020600 + (2263*Pi^2)/1190700 + 
       ((-74623/3150 - (4*Pi^2)/3)*x^3 + (-948058/14175 - 4*Pi^2)*x^4 + 
         (-1476803/2700 - (98*Pi^2)/3)*x^5 + (-3435182/2835 - (6160*Pi^2)/81)*
          x^6 + (-318647477/56700 - (28714*Pi^2)/81)*x^7 + 
         (-10844925029/1020600 - (169757*Pi^2)/243)*x^8)*Log[x^2] + 
       ((-20*x^3)/9 - (20*x^4)/3 - 63*x^5 - (4024*x^6)/27 - (62251*x^7)/81 - 
         (498323*x^8)/324)*Log[x^2]^2 + ((4*x^3)/9 + (4*x^4)/3 + 14*x^5 + 
         (2704*x^6)/81 + (14602*x^7)/81 + (88109*x^8)/243)*Log[x^2]^3 + 
       x^8*(-32530195339/12247200 - (19118737*Pi^2)/14580 - 
         (686728*Zeta[3])/81) + x^7*(-2024525387/1020600 - 
         (283913*Pi^2)/405 - (116816*Zeta[3])/27) + 
       x^6*(-2896643/4860 - (2089996*Pi^2)/11907 - (176000*Zeta[3])/189) + 
       x^5*(-12956521/37800 - (2769*Pi^2)/35 - (1216*Zeta[3])/3) + 
       x^4*(-57831757/1020600 - (248812*Pi^2)/19845 - (9472*Zeta[3])/189) + 
       x^3*(-25053647/1020600 - (35956*Pi^2)/8505 - (472*Zeta[3])/27) + 
       x*(85969/1020600 - (338*Pi^2)/42525 - (8*Zeta[3])/135) + 
       x^2*(54113/218700 - (1564*Pi^2)/11025 - (64*Zeta[3])/2835) + 
       (4*Zeta[3])/315) - (1424306*Zeta[3])/178605 + 
     (-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3])/315 + 
     x^8*(1323092116938390413/26248933872000 - (21663025411062774707*Pi^2)/
        185617460952000 - (86431293086447*Pi^4)/57854793024 - 
       (85166075597838509*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (60265409400*Sqrt[3]) + (113061222974957*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/3013270470 + 
       (8658136493157451*Zeta[3])/20088469800 - 
       (113061222974957*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/2008846980 - 
       (181826*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        135) + x^7*(708918401938035449/78746801616000 - 
       (6383545637550765491*Pi^2)/92808730476000 - (90222966342653*Pi^4)/
        103312130400 - (23465068518733181*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (30132704700*Sqrt[3]) + (953064923203*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/43046721 + 
       (2427188222754343*Zeta[3])/10044234900 - 
       (953064923203*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/28697814 - 
       (283598*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        405) + x^6*(18103757122564249/1874923848000 - 
       (69167804151305791*Pi^2)/4921675101000 - (1341617360152*Pi^4)/
        7533176175 - (840551706131257*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (5022117450*Sqrt[3]) + (2235065941568*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/502211745 + 
       (281508119898598*Zeta[3])/5859137025 - 
       (1117532970784*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/167403915 - 
       (25796*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        135) + x^5*(882516404926537/416649744000 - (763941938433181*Pi^2)/
        104162436000 - (116153802287*Pi^4)/1275458400 - 
       (104404380895511*Im[PolyLog[2, E^((I/3)*Pi)]])/(1302030450*Sqrt[3]) + 
       (43138484867*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/18600435 + 
       (2930384602213*Zeta[3])/124002900 - 
       (43138484867*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/12400290 - 
       (26239*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        315) + x^4*(29187589097669/20832487200 - (928827550584553*Pi^2)/
        1093705578000 - (143808116411*Pi^4)/13392313200 - 
       (18654193792573*Im[PolyLog[2, E^((I/3)*Pi)]])/(1953045675*Sqrt[3]) + 
       (14797226146*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/55801305 + 
       (364277223007*Zeta[3])/186004350 - 
       (7398613073*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/18600435 - 
       (14257*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        945) + x^3*(53340493871/141717600 - (136050936250783*Pi^2)/
        364568526000 - (9900796177*Pi^4)/2232052200 - 
       (9808152819967*Im[PolyLog[2, E^((I/3)*Pi)]])/(2604060900*Sqrt[3]) + 
       (430574444*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/3720087 + 
       (179861165957*Zeta[3])/217005075 - 
       (215287222*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/1240029 - 
       (1979*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        405) + x^2*(9413621591/85730400 - (18629171*Pi^2)/37507050 - 
       (2564*Pi^4)/127575 + (1110091126*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (8037225*Sqrt[3]) - (147970546*Zeta[3])/893025 - 
       (776*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        2835) + x*(24343515109/771573600 - (175905563*Pi^2)/375070500 + 
       (20*Pi^4)/1701 + (556449728*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (24111675*Sqrt[3]) - (34692964*Zeta[3])/893025 - 
       (104*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        2835) + Log[x^2]*(x^3*(-2326522489/4133430 + (14647*Pi^2)/5670 + 
         (430574444*Im[PolyLog[2, E^((I/3)*Pi)]])/(413343*Sqrt[3]) + 
         (8*Zeta[3])/3) + x^4*(-294844032023/248005800 + (3007*Pi^2)/945 + 
         (14797226146*Im[PolyLog[2, E^((I/3)*Pi)]])/(6200145*Sqrt[3]) + 
         8*Zeta[3]) + x^5*(-1837015279367/165337200 + (797081*Pi^2)/11340 + 
         (43138484867*Im[PolyLog[2, E^((I/3)*Pi)]])/(2066715*Sqrt[3]) + 
         56*Zeta[3]) + x^6*(-45209497397389/2232052200 + (140504*Pi^2)/1215 + 
         (2235065941568*Im[PolyLog[2, E^((I/3)*Pi)]])/(55801305*Sqrt[3]) + 
         128*Zeta[3]) + x^7*(-9800701209228821/93746192400 + 
         (6720373*Pi^2)/4860 + (953064923203*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (4782969*Sqrt[3]) + (1568*Zeta[3])/3) + 
       x^8*(-16236206419973437/93746192400 + (499113613*Pi^2)/204120 + 
         (113061222974957*Im[PolyLog[2, E^((I/3)*Pi)]])/(334807830*Sqrt[3]) + 
         1008*Zeta[3]))
 
CbarData["a", 2, 4, "b"] = -0.152 - 0.705*Sqrt[x] + 2.723*x - 
     1.2790000000000001*x^(3/2) - 1.602*x^2 + 1.066*x^3
 
CbarData["a", 2, 4, "c"] = 134874235265673877571/1557428101447680000 + 
     nl*(929309677/2227918770000 - (4157804953*(-1 + x))/2227918770000 + 
       (8894670632161*(-1 + x)^2)/1887047198190000 - 
       (6610744372937*(-1 + x)^3)/754818879276000 + 
       (6284315927645653*(-1 + x)^4)/473810593648392000 - 
       (143167633042392583*(-1 + x)^5)/8291685388846860000 + 
       (5620784469953809763*(-1 + x)^6)/281917303220793240000 - 
       (119762283878682437*(-1 + x)^7)/5753414351444760000 + 
       (1757136602347931614967*(-1 + x)^8)/88457594970592896048000 - 
       (336483510289196332817*(-1 + x)^9)/19350098899817196010500) + 
     (-1 + x)^8*(25641451394458826322250211711057490498479/
        3102700232765669657091382444032000 - 
       (7423872029177118414589369817*Zeta[3])/1079823346508287180800) + 
     (-1 + x)^6*(1255794884091957206229429612565186261/
        1135148997665458530916761600000 - (94169819103004146322593*Zeta[3])/
        102322441866444800) + (-1 + x)^4*(13723672905302688057635138778773/
        139111396772727761141760000 - (96182595344623668763*Zeta[3])/
        1171962357350400) + (-1 + x)^2*(21638672528470671562145779/
        4317190697212968960000 - (1221687039080656633*Zeta[3])/
        292990589337600) - (5277170078945213*Zeta[3])/73247647334400 + 
     (-1 + x)*(-134873855544009447491/389357025361920000 + 
       (5277170078945213*Zeta[3])/18311911833600) + 
     (-1 + x)^3*(-1763222828133387378564353/78494376312963072000 + 
       (1095034957185971521*Zeta[3])/58598117867520) + 
     (-1 + x)^5*(-73145433997664247476637962412023/
        208667095159091641712640000 + (170880286545097211443*Zeta[3])/
        585981178675200) + (-1 + x)^7*(-170394126027202806222394331505146407/
        54054714174545644329369600000 + (21734614587055133983427191*Zeta[3])/
        8288117791182028800) + (-1 + x)^9*
      (-117516959322793528309280301725221272197273/
        5817562936435630607046342082560000 + 
       (453656515382137991858308477*Zeta[3])/26995583662707179520)
 
CbarData["a", 2, 4, "l"] = 
    Log[imu^2]^2*(((67 + 2*nl)*(3 - 14*x - 102*x^2 - 1428*x^3 - 3399*x^4 - 
          7378*x^5 - 8124*x^6 - 7378*x^7 - 3399*x^8 - 1428*x^9 - 102*x^10 - 
          14*x^11 + 3*x^12))/(315*(-1 + x)^10*(1 + x)^10) + 
       (8*(67 + 2*nl)*x^3*(1 + x + x^2)*(1 + 2*x + 7*x^2 + 6*x^3 + 7*x^4 + 
          2*x^5 + x^6)*Log[x])/(3*(-1 + x)^11*(1 + x)^11)) + 
     Log[imu^2]*((563283 + 62658*nl - 36180*Pi^2 - 1080*nl*Pi^2 + 1153965*x - 
         179490*nl*x + 168840*Pi^2*x + 5040*nl*Pi^2*x + 2389682*x^2 - 
         1487348*nl*x^2 + 426120*Pi^2*x^2 + 12720*nl*Pi^2*x^2 - 
         147606525*x^3 - 26227710*nl*x^3 + 2532600*Pi^2*x^3 + 
         75600*nl*Pi^2*x^3 - 294051995*x^4 - 60718450*nl*x^4 + 
         3758700*Pi^2*x^4 + 112200*nl*Pi^2*x^4 - 712590240*x^5 - 
         134016000*nl*x^5 + 3376800*Pi^2*x^5 + 100800*nl*Pi^2*x^5 - 
         724983540*x^6 - 145785720*nl*x^6 - 712590240*x^7 - 
         134016000*nl*x^7 - 3376800*Pi^2*x^7 - 100800*nl*Pi^2*x^7 - 
         294051995*x^8 - 60718450*nl*x^8 - 3758700*Pi^2*x^8 - 
         112200*nl*Pi^2*x^8 - 147606525*x^9 - 26227710*nl*x^9 - 
         2532600*Pi^2*x^9 - 75600*nl*Pi^2*x^9 + 2389682*x^10 - 
         1487348*nl*x^10 - 426120*Pi^2*x^10 - 12720*nl*Pi^2*x^10 + 
         1153965*x^11 - 179490*nl*x^11 - 168840*Pi^2*x^11 - 
         5040*nl*Pi^2*x^11 + 563283*x^12 + 62658*nl*x^12 + 36180*Pi^2*x^12 + 
         1080*nl*Pi^2*x^12)/(1020600*(-1 + x)^10*(1 + x)^10) - 
       (x^2*(1206 + 36*nl - 1162848*x - 70368*nl*x - 3165068*x^2 - 
          201448*nl*x^2 - 14148417*x^3 - 778902*nl*x^3 - 23145894*x^4 - 
          1225764*nl*x^4 - 39074454*x^5 - 1879524*nl*x^5 - 34542594*x^6 - 
          1565964*nl*x^6 - 28499817*x^7 - 1207302*nl*x^7 - 11117432*x^8 - 
          438832*nl*x^8 - 4573416*x^9 - 172176*nl*x^9 - 252054*x^10 - 
          7524*nl*x^10 - 33768*x^11 - 1008*nl*x^11 + 7236*x^12 + 216*nl*x^12)*
         Log[x])/(2835*(-1 + x)^11*(1 + x)^11) + 
       (2*(67 + 2*nl)*x^3*(-3780 - 11340*x - 73710*x^2 - 147840*x^3 - 
          353850*x^4 - 425215*x^5 - 503160*x^6 - 327516*x^7 - 209412*x^8 - 
          57414*x^9 - 19446*x^10 - 124*x^11 - 42*x^12 + 9*x^13)*Log[x]^2)/
        (2835*(-1 + x)^12*(1 + x)^12) - 
       ((67 + 2*nl)*(9 - 42*x - 97*x^2 - 672*x^3 - 1032*x^4 - 1512*x^5 - 
          1032*x^6 - 672*x^7 - 97*x^8 - 42*x^9 + 9*x^10)*Log[x^2]*
         Log[1 - x^2])/(2835*(-1 + x)^9*(1 + x)^9)) - 
     ((67 + 2*nl)*(9 - 42*x - 97*x^2 - 672*x^3 - 1032*x^4 - 1512*x^5 - 
        1032*x^6 - 672*x^7 - 97*x^8 - 42*x^9 + 9*x^10)*Log[imu^2]*
       PolyLog[2, x^2])/(2835*(-1 + x)^9*(1 + x)^9)
 
CbarData["p", 2, -1, "a"] = -5165/54 - (2*Pi^4)/45 - (664*x^3)/81 + 
     (211*x^4)/81 - (5807*x^5)/10125 + (3511*x^6)/10125 - 
     (545176*x^7)/3472875 + (24301*x^8)/222264 - (387263*x^9)/6001128 + 
     (-154/9 + (154*x)/9 - (154*x^2)/9)*Log[imu^2]^3 + 
     ((-544*x^3)/9 + (538*x^4)/9 - (2666*x^5)/45 + (886*x^6)/15 - 
       (6184*x^7)/105 + (1235*x^8)/21 - (11099*x^9)/189)*Log[x^2]^2 + 
     ((158*x^3)/9 - (158*x^4)/9 + (158*x^5)/9 - (158*x^6)/9 + (158*x^7)/9 - 
       (158*x^8)/9 + (158*x^9)/9)*Log[x^2]^3 + 
     Log[imu^2]^2*(-524/9 + (524*x)/9 - (524*x^2)/9 + 
       ((154*x^3)/3 - (154*x^4)/3 + (154*x^5)/3 - (154*x^6)/3 + (154*x^7)/3 - 
         (154*x^8)/3 + (154*x^9)/3)*Log[x^2]) + 
     (8*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + (2*Log[2]^4)/3 + 
        16*PolyLog[4, 1/2]))/9 + x^2*(-5597/54 - (2*Pi^4)/45 + 
       (8*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + (2*Log[2]^4)/3 + 
          16*PolyLog[4, 1/2]))/9 - (164*Zeta[3])/9) - (164*Zeta[3])/9 + 
     x*(5357/54 + (2*Pi^4)/45 - (8*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + 
          (2*Log[2]^4)/3 + 16*PolyLog[4, 1/2]))/9 + (164*Zeta[3])/9) + 
     Log[x^2]*(x^9*(1277735/11907 - (8*Zeta[3])/3) + 
       x^7*(7111981/66150 - (8*Zeta[3])/3) + 
       x^5*(145969/1350 - (8*Zeta[3])/3) + x^3*(6085/54 - (8*Zeta[3])/3) + 
       x^4*(-5929/54 + (8*Zeta[3])/3) + x^6*(-145537/1350 + (8*Zeta[3])/3) + 
       x^8*(-142103/1323 + (8*Zeta[3])/3)) + 
     Log[imu^2]*(-1879/18 + ((1048*x^3)/9 - (1048*x^4)/9 + (1048*x^5)/9 - 
         (1048*x^6)/9 + (1048*x^7)/9 - (1048*x^8)/9 + (1048*x^9)/9)*
        Log[x^2] + ((-154*x^3)/3 + (154*x^4)/3 - (154*x^5)/3 + (154*x^6)/3 - 
         (154*x^7)/3 + (154*x^8)/3 - (154*x^9)/3)*Log[x^2]^2 + 
       x*(2023/18 - (8*Zeta[3])/3) + (8*Zeta[3])/3 + 
       x^2*(-1879/18 + (8*Zeta[3])/3)) + 
     nl*(5 + (4/9 - (4*x)/9 + (4*x^2)/9)*Log[imu^2]^3 + 
       (-5*x^3 + 5*x^4 - 5*x^5 + 5*x^6 - 5*x^7 + 5*x^8 - 5*x^9)*Log[x^2] + 
       ((20*x^3)/9 - (20*x^4)/9 + (20*x^5)/9 - (20*x^6)/9 + (20*x^7)/9 - 
         (20*x^8)/9 + (20*x^9)/9)*Log[x^2]^2 + 
       ((-4*x^3)/9 + (4*x^4)/9 - (4*x^5)/9 + (4*x^6)/9 - (4*x^7)/9 + 
         (4*x^8)/9 - (4*x^9)/9)*Log[x^2]^3 + Log[imu^2]^2*
        (20/9 - (20*x)/9 + (20*x^2)/9 + ((-4*x^3)/3 + (4*x^4)/3 - (4*x^5)/3 + 
           (4*x^6)/3 - (4*x^7)/3 + (4*x^8)/3 - (4*x^9)/3)*Log[x^2]) + 
       Log[imu^2]*(5 - 5*x + 5*x^2 + ((-40*x^3)/9 + (40*x^4)/9 - (40*x^5)/9 + 
           (40*x^6)/9 - (40*x^7)/9 + (40*x^8)/9 - (40*x^9)/9)*Log[x^2] + 
         ((4*x^3)/3 - (4*x^4)/3 + (4*x^5)/3 - (4*x^6)/3 + (4*x^7)/3 - 
           (4*x^8)/3 + (4*x^9)/3)*Log[x^2]^2) + x*(-5 - (32*Zeta[3])/9) + 
       (32*Zeta[3])/9 + x^2*(5 + (32*Zeta[3])/9))
 
CbarData["p", 2, -1, "b"] = -85.0176 - 46.4845*Sqrt[x] + 184.692*x - 
     239.268*x^(3/2) + 113.291*x^3
 
CbarData["p", 2, -1, "c"] = -4685/54 - (2*Pi^4)/45 - (4553*(-1 + x)^6)/405 + 
     (-524/9 - (62*(-1 + x))/9 + (400*(-1 + x)^2)/9 + (385*(-1 + x)^3)/9 - 
       (77*(-1 + x)^4)/9 + (77*(-1 + x)^5)/45 - (11*(-1 + x)^7)/30 + 
       (11*(-1 + x)^8)/30 - (77*(-1 + x)^9)/270)*Log[imu^2]^2 + 
     (-154/9 - (154*(-1 + x))/9 - (154*(-1 + x)^2)/9)*Log[imu^2]^3 + 
     (8*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + (2*Log[2]^4)/3 + 
        16*PolyLog[4, 1/2]))/9 + (-1 + x)*(260/27 - (2*Pi^4)/45 + 
       (8*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + (2*Log[2]^4)/3 + 
          16*PolyLog[4, 1/2]))/9 - (332*Zeta[3])/9) + 
     (-1 + x)^2*(-323/54 - (2*Pi^4)/45 + 
       (8*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + (2*Log[2]^4)/3 + 
          16*PolyLog[4, 1/2]))/9 - (230*Zeta[3])/9) + 
     (-1 + x)^3*(-1933/108 - (20*Zeta[3])/9) + 
     (-1 + x)^5*(667/108 - (4*Zeta[3])/45) + 
     (-1 + x)^8*(-26639/4536 - (2*Zeta[3])/105) + 
     (-1 + x)^9*(48911/13608 + (2*Zeta[3])/135) + 
     (-1 + x)^7*(40333/4536 + (2*Zeta[3])/105) + 
     (-1 + x)^4*(1115/36 + (4*Zeta[3])/9) - (308*Zeta[3])/9 + 
     Log[imu^2]*(-1735/18 - (1538*(-1 + x)^3)/27 - (986*(-1 + x)^4)/27 + 
       (2834*(-1 + x)^5)/135 - (1309*(-1 + x)^6)/135 + 
       (7591*(-1 + x)^7)/1890 - (2663*(-1 + x)^8)/1890 + 
       (47*(-1 + x)^9)/162 + (8*Zeta[3])/3 + 
       (-1 + x)*(361/18 + (8*Zeta[3])/3) + (-1 + x)^2*
        (155/6 + (8*Zeta[3])/3)) + nl*(5 + (13*(-1 + x)^3)/18 - 
       (11*(-1 + x)^4)/54 - (25*(-1 + x)^5)/54 + (34*(-1 + x)^6)/81 - 
       (3151*(-1 + x)^7)/11340 + (1871*(-1 + x)^8)/11340 - 
       (449*(-1 + x)^9)/4860 + (5 + (5*(-1 + x))/9 - (11*(-1 + x)^2)/9 + 
         (8*(-1 + x)^3)/27 + (32*(-1 + x)^4)/27 - (16*(-1 + x)^5)/27 + 
         (34*(-1 + x)^6)/135 - (89*(-1 + x)^7)/945 + (5*(-1 + x)^8)/189 + 
         (-1 + x)^9/2835)*Log[imu^2] + (20/9 + (8*(-1 + x))/9 - 
         (4*(-1 + x)^2)/9 - (10*(-1 + x)^3)/9 + (2*(-1 + x)^4)/9 - 
         (2*(-1 + x)^5)/45 + (-1 + x)^7/105 - (-1 + x)^8/105 + 
         (-1 + x)^9/135)*Log[imu^2]^2 + (4/9 + (4*(-1 + x))/9 + 
         (4*(-1 + x)^2)/9)*Log[imu^2]^3 + (32*Zeta[3])/9 + 
       (32*(-1 + x)*Zeta[3])/9 + (-1 + x)^2*(-5/9 + (32*Zeta[3])/9))
 
CbarData["p", 2, 0, "a"] = 18971/1296 - (2881*Pi^2)/972 + (17*Pi^4)/162 + 
     (49*Im[PolyLog[2, E^((I/3)*Pi)]])/(2*Sqrt[3]) + (53*Log[imu^2]^3)/18 + 
     ((-424*x^3)/9 + 70*x^4 - (14207*x^5)/90 + (88417*x^6)/405 - 
       (1023992*x^7)/2835 + (5392477*x^8)/11340 - (1027309*x^9)/1440)*
      Log[x^2]^2 + ((158*x^3)/9 - (79*x^4)/3 + (605*x^5)/9 - (7711*x^6)/81 + 
       (4603*x^7)/27 - (12383*x^8)/54 + (112001*x^9)/324)*Log[x^2]^3 + 
     Log[imu^2]^2*(245/36 + (53*x)/6 - (53*x^2)/3 + (53*x^3)/2 - 
       (106*x^4)/3 + (265*x^5)/6 - 53*x^6 + (371*x^7)/6 - (212*x^8)/3 + 
       (159*x^9)/2 + ((53*x^3)/3 - (53*x^4)/2 + 53*x^5 - (212*x^6)/3 + 
         106*x^7 - (265*x^8)/2 + (530*x^9)/3)*Log[x^2]) - 
     (4*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + (2*Log[2]^4)/3 + 
        16*PolyLog[4, 1/2]))/9 + x^2*(-5183/72 - (4723*Pi^2)/648 + 
       (251*Pi^4)/1620 + (58*Im[PolyLog[2, E^((I/3)*Pi)]])/Sqrt[3] + 
       (Pi^4/24 + 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 - 6*Zeta[3])/2 - 
       (563*Zeta[3])/18) + (Pi^4/24 + 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 - 
       6*Zeta[3])/18 + Log[imu^2]*(745/72 - (53*Pi^2)/54 + 
       (223/6 + (53*Pi^2)/27)*x + (-616/9 - (53*Pi^2)/27)*x^2 + 
       (1795/18 + (53*Pi^2)/27)*x^3 + (-1625/12 - (53*Pi^2)/27)*x^4 + 
       (1540/9 + (53*Pi^2)/27)*x^5 + (-33635/162 - (53*Pi^2)/27)*x^6 + 
       (19775/81 + (53*Pi^2)/27)*x^7 + (-364091/1296 - (53*Pi^2)/27)*x^8 + 
       (205891/648 + (53*Pi^2)/27)*x^9 + ((404*x^3)/9 - (202*x^4)/3 + 
         (404*x^5)/3 - (4901*x^6)/27 + (7378*x^7)/27 - (37261*x^8)/108 + 
         (24929*x^9)/54)*Log[x^2] + ((-106*x^3)/3 + 53*x^4 - (371*x^5)/3 + 
         (1537*x^6)/9 - (2597*x^7)/9 + (3392*x^8)/9 - (4982*x^9)/9)*
        Log[x^2]^2 - Zeta[3]) - (101*Zeta[3])/27 + 
     x^8*(-1537986375539/12002256000 - (175491539*Pi^2)/1399680 - 
       (4943519*Pi^4)/4199040 - (3774457*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (3888*Sqrt[3]) + (297701*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/8748 + 
       (2614295*Zeta[3])/11664 - (297701*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/5832 - 
       (9*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/2) + 
     x^6*(-248799251/1458000 - (4173491*Pi^2)/77760 - (90617*Pi^4)/233280 - 
       (26255*Im[PolyLog[2, E^((I/3)*Pi)]])/(81*Sqrt[3]) + 
       (6611*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/486 + 
       (37201*Zeta[3])/648 - (6611*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/324 - 
       (49*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/18) + 
     x^4*(-74645/576 - (98617*Pi^2)/5184 + (23*Pi^4)/2880 - 
       (65*Im[PolyLog[2, E^((I/3)*Pi)]])/(3*Sqrt[3]) + 
       (187*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/54 - 
       (5269*Zeta[3])/216 - (187*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/36 - 
       (25*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/18) + 
     x*(4621/108 + (1297*Pi^2)/216 - (271*Pi^4)/1620 - 
       (10*Im[PolyLog[2, E^((I/3)*Pi)]])/Sqrt[3] + (13*Zeta[3])/2 + 
       (5*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/18) + 
     x^3*(214945/2592 + (13063*Pi^2)/864 - (83*Pi^4)/1440 + 
       (33*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
       (7*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/3 + (29*Zeta[3])/4 + 
       (7*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/2 + (17*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^
            2 + 6*Zeta[3]))/18) + x^5*(42405301/324000 + 
       (1057741*Pi^2)/25920 + (6341*Pi^4)/25920 + 
       (281*Im[PolyLog[2, E^((I/3)*Pi)]])/Sqrt[3] - 
       (535*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/54 - 
       (3773*Zeta[3])/72 + (535*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/36 + 
       (37*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/18) + 
     x^7*(30444537217/250047000 + (7583377*Pi^2)/77760 + (22627*Pi^4)/25920 + 
       (129437*Im[PolyLog[2, E^((I/3)*Pi)]])/(162*Sqrt[3]) - 
       (1409*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/54 - 
       (123523*Zeta[3])/648 + (1409*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/36 + 
       (65*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/18) + 
     x^9*(11363578483/571536000 + (1867364221*Pi^2)/9797760 + 
       (8290411*Pi^4)/4199040 + (20150567*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (11664*Sqrt[3]) - (477673*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/8748 - 
       (4494955*Zeta[3])/11664 + (477673*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/5832 + 
       (101*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/18) + 
     Log[x^2]*(x^9*(833806021/907200 - (41569*Pi^2)/1296 - 
         (477673*Im[PolyLog[2, E^((I/3)*Pi)]])/(972*Sqrt[3]) - 
         (80*Zeta[3])/3) + x^7*(2185655623/4762800 - (3581*Pi^2)/648 - 
         (1409*Im[PolyLog[2, E^((I/3)*Pi)]])/(6*Sqrt[3]) - 16*Zeta[3]) + 
       x^5*(2240827/10800 + Pi^2/72 - (535*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (6*Sqrt[3]) - 8*Zeta[3]) + x^3*(7631/108 + (13*Pi^2)/108 - 
         7*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - (8*Zeta[3])/3) + 
       x^4*(-2329/24 - (17*Pi^2)/24 + (187*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (6*Sqrt[3]) + 4*Zeta[3]) + x^6*(-8938343/32400 - (217*Pi^2)/648 + 
         (6611*Im[PolyLog[2, E^((I/3)*Pi)]])/(54*Sqrt[3]) + (32*Zeta[3])/3) + 
       x^8*(-5656412009/9525600 + (1253*Pi^2)/144 + 
         (297701*Im[PolyLog[2, E^((I/3)*Pi)]])/(972*Sqrt[3]) + 20*Zeta[3])) + 
     nl*(-73/72 + (7*Pi^2)/54 - Log[imu^2]^3/9 + 
       ((-5/2 + (2*Pi^2)/9)*x^3 + (15/4 - Pi^2/3)*x^4 + (-31/6 + (8*Pi^2)/9)*
          x^5 + (169/27 - (34*Pi^2)/27)*x^6 + (-143/27 + (62*Pi^2)/27)*x^7 + 
         (130/27 - (83*Pi^2)/27)*x^8 + (-2/27 + (128*Pi^2)/27)*x^9)*
        Log[x^2] + ((20*x^3)/9 - (10*x^4)/3 + (67*x^5)/9 - (91*x^6)/9 + 
         (149*x^7)/9 - (191*x^8)/9 + (274*x^9)/9)*Log[x^2]^2 + 
       ((-4*x^3)/9 + (2*x^4)/3 - (14*x^5)/9 + (58*x^6)/27 - (98*x^7)/27 + 
         (128*x^8)/27 - (188*x^9)/27)*Log[x^2]^3 + 
       Log[imu^2]^2*(-7/18 - x/3 + (2*x^2)/3 - x^3 + (4*x^4)/3 - (5*x^5)/3 + 
         2*x^6 - (7*x^7)/3 + (8*x^8)/3 - 3*x^9 + 
         ((-2*x^3)/3 + x^4 - 2*x^5 + (8*x^6)/3 - 4*x^7 + 5*x^8 - (20*x^9)/3)*
          Log[x^2]) + Log[imu^2]*(-3/4 + Pi^2/27 + (-5/3 - (2*Pi^2)/27)*x + 
         (28/9 + (2*Pi^2)/27)*x^2 + (-41/9 - (2*Pi^2)/27)*x^3 + 
         (37/6 + (2*Pi^2)/27)*x^4 + (-70/9 - (2*Pi^2)/27)*x^5 + 
         (763/81 + (2*Pi^2)/27)*x^6 + (-896/81 - (2*Pi^2)/27)*x^7 + 
         (8239/648 + (2*Pi^2)/27)*x^8 + (-4655/324 - (2*Pi^2)/27)*x^9 + 
         ((-20*x^3)/9 + (10*x^4)/3 - (20*x^5)/3 + (242*x^6)/27 - 
           (364*x^7)/27 + (917*x^8)/54 - (613*x^9)/27)*Log[x^2] + 
         ((4*x^3)/3 - 2*x^4 + (14*x^5)/3 - (58*x^6)/9 + (98*x^7)/9 - 
           (128*x^8)/9 + (188*x^9)/9)*Log[x^2]^2) + 
       x^8*(53483/1296 - (295*Pi^2)/162 - (340*Zeta[3])/9) + 
       x^6*(1619/81 - (67*Pi^2)/81 - 16*Zeta[3]) + 
       x^4*(107/12 - (4*Pi^2)/27 - (44*Zeta[3])/9) + 
       x^2*(77/18 + (5*Pi^2)/27 - (8*Zeta[3])/9) + 
       x*(-91/36 - (4*Pi^2)/27 + (8*Zeta[3])/9) - (4*Zeta[3])/3 + 
       x^3*(-241/36 + (32*Zeta[3])/9) + x^5*(-551/36 + (14*Pi^2)/27 + 
         (104*Zeta[3])/9) + x^7*(-10393/324 + (110*Pi^2)/81 + 
         (256*Zeta[3])/9) + x^9*(-9895/162 + (203*Pi^2)/81 + (520*Zeta[3])/9))
 
CbarData["p", 2, 0, "b"] = 8.73678 - 26.4307*Sqrt[x] + 117.298*x - 
     158.083*x^(3/2) + 86.2428*x^3
 
CbarData["p", 2, 0, "c"] = -109/36 + Pi^4/60 + 
     (43/18 - (53*(-1 + x))/6 + (53*(-1 + x)^3)/36 - (53*(-1 + x)^4)/40 + 
       (53*(-1 + x)^5)/60 - (53*(-1 + x)^6)/105 + (53*(-1 + x)^7)/210 - 
       (53*(-1 + x)^8)/504 + (53*(-1 + x)^9)/1890)*Log[imu^2]^2 + 
     (53*Log[imu^2]^3)/18 + ((13*Pi^4)/180 + (2*Pi^2*Log[2]^2)/3 - 
       (2*Log[2]^4)/3 - 16*PolyLog[4, 1/2])/3 + 
     (-1 + x)^9*(78808071159913/256048128000 - (3931713017*Zeta[3])/
        15482880) + (-1 + x)^7*(64331910191/435456000 - 
       (467096941*Zeta[3])/3870720) + (-1 + x)^5*(4376911/77760 - 
       (821869*Zeta[3])/17280) + (-1 + x)^3*(167/54 - (2939*Zeta[3])/288) + 
     Log[imu^2]*(-169/72 - (43*(-1 + x))/9 + (106*(-1 + x)^2)/9 - 
       (58*(-1 + x)^3)/27 - (7993*(-1 + x)^4)/3240 + (1492*(-1 + x)^5)/405 - 
       (191281*(-1 + x)^6)/56700 + (292511*(-1 + x)^7)/113400 - 
       (563377*(-1 + x)^8)/317520 + (74479*(-1 + x)^9)/66150 - Zeta[3]) + 
     nl*(1/36 + (5*(-1 + x))/36 - (19*(-1 + x)^2)/54 + (71*(-1 + x)^3)/216 - 
       (793*(-1 + x)^4)/6480 - (29*(-1 + x)^5)/1080 + 
       (9329*(-1 + x)^6)/94500 - (28723*(-1 + x)^7)/243000 + 
       (4587763*(-1 + x)^8)/41674500 - (841133*(-1 + x)^9)/9261000 + 
       (-5/36 + (4*(-1 + x))/9 - (4*(-1 + x)^2)/9 + (-1 + x)^3/27 + 
         (43*(-1 + x)^4)/324 - (67*(-1 + x)^5)/405 + (4037*(-1 + x)^6)/
          28350 - (5947*(-1 + x)^7)/56700 + (11129*(-1 + x)^8)/158760 - 
         (1433*(-1 + x)^9)/33075)*Log[imu^2] + 
       (-2/9 + (-1 + x)/3 - (-1 + x)^3/18 + (-1 + x)^4/20 - (-1 + x)^5/30 + 
         (2*(-1 + x)^6)/105 - (-1 + x)^7/105 + (-1 + x)^8/252 - 
         (-1 + x)^9/945)*Log[imu^2]^2 - Log[imu^2]^3/9 - (8*Zeta[3])/9) + 
     (53*Zeta[3])/9 + (-1 + x)*(169/72 + Zeta[3]) + 
     (-1 + x)^2*(-3017/432 + (2891*Zeta[3])/288) + 
     (-1 + x)^4*(-923927/31104 + (199757*Zeta[3])/6912) + 
     (-1 + x)^6*(-5944465091/62208000 + (302500447*Zeta[3])/3870720) + 
     (-1 + x)^8*(-222337609784497/1024192512000 + (3679483883*Zeta[3])/
        20643840)
 
CbarData["p", 2, 1, "a"] = 35/16 + (1055*Pi^2)/972 - (67*Pi^4)/1215 + 
     (35*Im[PolyLog[2, E^((I/3)*Pi)]])/(3*Sqrt[3]) + 
     ((-256*x^3)/9 + (530*x^4)/9 - (9136*x^5)/45 + (439444*x^6)/1215 - 
       (14240509*x^7)/17010 + (11548183*x^8)/8505 - (43435837*x^9)/15120)*
      Log[x^2]^2 + ((158*x^3)/9 - (316*x^4)/9 + 149*x^5 - (65248*x^6)/243 + 
       (165737*x^7)/243 - (90967*x^8)/81 + (531586*x^9)/243)*Log[x^2]^3 - 
     (88*Zeta[3])/9 + (2*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 
        6*Zeta[3]))/27 + x^8*(-465594487459/1000188000 - 
       (9279704381*Pi^2)/7348320 - (44038451*Pi^4)/3149280 - 
       (298464043*Im[PolyLog[2, E^((I/3)*Pi)]])/(26244*Sqrt[3]) + 
       (2459009*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/6561 + 
       (23392571*Zeta[3])/8748 - (2459009*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/4374 - 
       (1010*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^6*(-2716037753/6561000 - (191991577*Pi^2)/524880 - 
       (5737603*Pi^4)/1574640 - (2050939*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (729*Sqrt[3]) + (675170*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/6561 + 
       (2079091*Zeta[3])/4374 - (337585*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/2187 - 
       (380*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^4*(-88403/486 - (4013351*Pi^2)/58320 - (8917*Pi^4)/19440 - 
       (21983*Im[PolyLog[2, E^((I/3)*Pi)]])/(81*Sqrt[3]) + 
       (442*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/27 - 
       (4387*Zeta[3])/54 - (221*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/9 - 
       (100*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^2*(-176603/3888 - (12557*Pi^2)/2916 + (47*Pi^4)/1215 + 
       (761*Im[PolyLog[2, E^((I/3)*Pi)]])/(9*Sqrt[3]) - (5564*Zeta[3])/81 - 
       (10*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x*(13465/972 + (4493*Pi^2)/1458 - (137*Pi^4)/2430 - 
       (13*Im[PolyLog[2, E^((I/3)*Pi)]])/(3*Sqrt[3]) + (409*Zeta[3])/27 + 
       (-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3])/9) + 
     x^3*(163867/1944 + (401977*Pi^2)/9720 + (5327*Pi^4)/29160 + 
       (800*Im[PolyLog[2, E^((I/3)*Pi)]])/(3*Sqrt[3]) - 
       (2228*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/243 + 
       (221*Zeta[3])/81 + (1114*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/81 + 
       (50*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^5*(167950271/729000 + (9011677*Pi^2)/38880 + (150961*Pi^4)/69984 + 
       (487426*Im[PolyLog[2, E^((I/3)*Pi)]])/(243*Sqrt[3]) - 
       (46631*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/729 - 
       (360485*Zeta[3])/972 + (46631*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/486 + 
       (229*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^7*(470277446069/1500282000 + (208173797*Pi^2)/244944 + 
       (4835761*Pi^4)/524880 + (17676566*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (2187*Sqrt[3]) - (547862*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/2187 - 
       (2814169*Zeta[3])/1458 + (273931*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/729 + 
       (676*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^9*(1555876555067/18003384000 + (61018948259*Pi^2)/26453952 + 
       (312791045*Pi^4)/11337408 + (11278018307*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (472392*Sqrt[3]) - (86150275*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/118098 - 
       (914494009*Zeta[3])/157464 + (86150275*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/78732 + 
       (175*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/3) + 
     Log[x^2]*(x^9*(950859624311/257191200 - (564319*Pi^2)/1944 - 
         (86150275*Im[PolyLog[2, E^((I/3)*Pi)]])/(13122*Sqrt[3]) - 
         (400*Zeta[3])/3) + x^7*(991738873/893025 - (19727*Pi^2)/486 - 
         (547862*Im[PolyLog[2, E^((I/3)*Pi)]])/(243*Sqrt[3]) - 
         (160*Zeta[3])/3) + x^5*(4414853/16200 - (1105*Pi^2)/324 - 
         (46631*Im[PolyLog[2, E^((I/3)*Pi)]])/(81*Sqrt[3]) - 16*Zeta[3]) + 
       x^3*(1184/27 - (20*Pi^2)/81 - (2228*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (27*Sqrt[3]) - (8*Zeta[3])/3) + x^4*(-439/6 - (13*Pi^2)/162 + 
         (442*Im[PolyLog[2, E^((I/3)*Pi)]])/(3*Sqrt[3]) + (16*Zeta[3])/3) + 
       x^6*(-15694751/36450 + (2231*Pi^2)/486 + 
         (675170*Im[PolyLog[2, E^((I/3)*Pi)]])/(729*Sqrt[3]) + 
         (80*Zeta[3])/3) + x^8*(-3050779609/1786050 + (22249*Pi^2)/324 + 
         (2459009*Im[PolyLog[2, E^((I/3)*Pi)]])/(729*Sqrt[3]) + 
         80*Zeta[3])) + nl*(-5/72 - Pi^2/54 + 
       ((44/27 + (4*Pi^2)/9)*x^3 + (-26/9 - (8*Pi^2)/9)*x^4 + 
         (427/27 + (10*Pi^2)/3)*x^5 + (-746/27 - (472*Pi^2)/81)*x^6 + 
         (6214/81 + (1112*Pi^2)/81)*x^7 + (-13373/108 - (1766*Pi^2)/81)*x^8 + 
         (6928/27 + (3344*Pi^2)/81)*x^9)*Log[x^2] + 
       ((20*x^3)/9 - (40*x^4)/9 + (47*x^5)/3 - (724*x^6)/27 + (548*x^7)/9 - 
         (1703*x^8)/18 + (4723*x^9)/27)*Log[x^2]^2 + 
       ((-4*x^3)/9 + (8*x^4)/9 - (10*x^5)/3 + (472*x^6)/81 - (1112*x^7)/81 + 
         (1766*x^8)/81 - (3344*x^9)/81)*Log[x^2]^3 + 
       x^8*(100021/432 - (10423*Pi^2)/486 - (7216*Zeta[3])/27) + 
       x^6*(5219/72 - (3353*Pi^2)/486 - (1976*Zeta[3])/27) + 
       x^4*(4111/216 - (205*Pi^2)/162 - (328*Zeta[3])/27) + 
       x^2*(823/216 + Pi^2/54 - (8*Zeta[3])/27) + 
       x*(-55/36 - (4*Pi^2)/81 + (8*Zeta[3])/27) + (8*Zeta[3])/27 + 
       x^3*(-571/54 + (14*Pi^2)/27 + (176*Zeta[3])/27) + 
       x^5*(-4783/108 + (106*Pi^2)/27 + (128*Zeta[3])/3) + 
       x^7*(-36346/243 + (3392*Pi^2)/243 + (4576*Zeta[3])/27) + 
       x^9*(-11468/27 + (8735*Pi^2)/243 + (13576*Zeta[3])/27))
 
CbarData["p", 2, 1, "b"] = 0.382 + 22.191*Sqrt[x] + 5.126*x - 
     138.613*x^(3/2) + 149.094*x^2 - 39.042*x^3
 
CbarData["p", 2, 1, "c"] = -13139/2592 + nl*(25/162 - (2*(-1 + x))/81 - 
       (289*(-1 + x)^2)/4860 + (409*(-1 + x)^3)/4860 - 
       (971*(-1 + x)^4)/12600 + (57593*(-1 + x)^5)/1020600 - 
       (3957949*(-1 + x)^6)/125023500 + (2034797*(-1 + x)^7)/250047000 + 
       (3234157013*(-1 + x)^8)/297055836000 - (284484919*(-1 + x)^9)/
        11882233440) + (-1 + x)^9*(4311781354311951607/463520268288000 - 
       (56229642584323*Zeta[3])/7266631680) + 
     (-1 + x)^7*(1253741696333237/384072192000 - (7007605789*Zeta[3])/
        2580480) + (-1 + x)^5*(33776356403/37324800 - 
       (8752165003*Zeta[3])/11612160) + (-1 + x)^3*(14229845/93312 - 
       (13342139*Zeta[3])/103680) + (-1 + x)*(8267/2592 - 
       (6977*Zeta[3])/1728) + (6977*Zeta[3])/1728 + 
     (-1 + x)^2*(-72234997/933120 + (13760759*Zeta[3])/207360) + 
     (-1 + x)^4*(-1776764609/4147200 + (4154840401*Zeta[3])/11612160) + 
     (-1 + x)^6*(-2739456984038417/1536288768000 + (27568869613*Zeta[3])/
        18579456) + (-1 + x)^8*(-8321095300823836259/1474837217280000 + 
       (541344299609*Zeta[3])/115343360)
 
CbarData["p", 2, 1, "l"] = 
    Log[imu^2]*(((-29 + 2*nl)*(-1 - (4*Pi^2)/3 - 36*x - 4*Pi^2*x + 22*x^2 - 
          36*x^3 + 4*Pi^2*x^3 - x^4 + (4*Pi^2*x^4)/3))/
        (108*(-1 + x)^2*(1 + x)^4) - (4*(-29 + 2*nl)*x^2*(1 + 6*x + x^2)*
         Log[x])/(27*(-1 + x)^3*(1 + x)^5) + 
       (4*(-29 + 2*nl)*x^3*(18 + 9*x^2 - 2*x^3 + 3*x^4 + x^5)*Log[x]^2)/
        (27*(-1 + x)^4*(1 + x)^6) - (2*(-29 + 2*nl)*(1 + 3*x + x^2)*Log[x^2]*
         Log[1 - x^2])/(27*(-1 + x)*(1 + x)^3)) - 
     (2*(-29 + 2*nl)*(1 + 3*x + x^2)*Log[imu^2]*PolyLog[2, x^2])/
      (27*(-1 + x)*(1 + x)^3)
 
CbarData["p", 2, 2, "a"] = 340663/311040 + (503309*Pi^2)/1166400 - 
     (67*Pi^4)/4860 + (733*Im[PolyLog[2, E^((I/3)*Pi)]])/(40*Sqrt[3]) + 
     ((-76*x^3)/9 + (250*x^4)/9 - (6083*x^5)/60 + (59972*x^6)/243 - 
       (12516563*x^7)/17010 + (204378409*x^8)/136080 - (294224923*x^9)/54432)*
      Log[x^2]^2 + ((158*x^3)/9 - (395*x^4)/9 + (2366*x^5)/9 - 
       (139258*x^6)/243 + (457075*x^7)/243 - (3545009*x^8)/972 + 
       (8423633*x^9)/972)*Log[x^2]^3 - (6865*Zeta[3])/648 + 
     (-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3])/54 + 
     x^8*(3577591184183/6001128000 - (14619409279*Pi^2)/2099520 - 
       (261899549*Pi^4)/3149280 - (6680662459*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (104976*Sqrt[3]) + (14128991*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/6561 + 
       (32598581*Zeta[3])/2187 - (14128991*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/4374 - 
       (4565*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^6*(-292734107/3499200 - (3942108823*Pi^2)/2721600 - 
       (11493263*Pi^4)/699840 - (985354909*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (87480*Sqrt[3]) + (629237*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/1458 + 
       (5758177*Zeta[3])/3240 - (629237*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/972 - 
       (1175*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^4*(-3717059/93312 - (401097809*Pi^2)/2332800 - 
       (2378887*Pi^4)/1399680 - (6266429*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (9720*Sqrt[3]) + (137437*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/2916 - 
       (5512249*Zeta[3])/19440 - (137437*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/1944 - 
       (127*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/18) + 
     x^2*(-332099/103680 - (203021*Pi^2)/77760 + (79*Pi^4)/9720 + 
       (66313*Im[PolyLog[2, E^((I/3)*Pi)]])/(360*Sqrt[3]) - 
       (450943*Zeta[3])/3240 - 
       (37*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/108) + 
     x*(-1736297/311040 + (1947473*Pi^2)/1166400 - (277*Pi^4)/9720 - 
       (25367*Im[PolyLog[2, E^((I/3)*Pi)]])/(1080*Sqrt[3]) + 
       (98693*Zeta[3])/3240 + 
       (7*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/108) + 
     x^3*(-19637773/933120 + (8257057*Pi^2)/97200 + (497819*Pi^4)/699840 + 
       (5265311*Im[PolyLog[2, E^((I/3)*Pi)]])/(9720*Sqrt[3]) - 
       (32753*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/1458 + 
       (199051*Zeta[3])/4860 + (32753*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/972 + 
       (299*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/108) + 
     x^5*(-1565037671/17496000 + (19372321463*Pi^2)/24494400 + 
       (18163153*Pi^4)/2099520 + (200148341*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (29160*Sqrt[3]) - (1021483*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/4374 - 
       (35326853*Zeta[3])/29160 + (1021483*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/2916 + 
       (587*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^7*(-11254309182299/18003384000 + (182275091191*Pi^2)/44089920 + 
       (184412465*Pi^4)/3779136 + (6245016623*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (157464*Sqrt[3]) - (50168695*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/39366 - 
       (494215957*Zeta[3])/52488 + (50168695*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/26244 + 
       (2615*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^9*(-268119405901057/115221657600 + (23850241166467*Pi^2)/1587237120 + 
       (25965365291*Pi^4)/136048896 + 
       (893187668957*Im[PolyLog[2, E^((I/3)*Pi)]])/(5668704*Sqrt[3]) - 
       (6988594765*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/1417176 - 
       (74717571151*Zeta[3])/1889568 + 
       (6988594765*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/944784 + 
       (34135*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        108) + Log[x^2]*(x^9*(18137101505723/1234517760 - 
         (10726601*Pi^2)/7776 - (6988594765*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (157464*Sqrt[3]) - (1400*Zeta[3])/3) + 
       x^7*(75344489609/21432600 - (32435*Pi^2)/216 - 
         (50168695*Im[PolyLog[2, E^((I/3)*Pi)]])/(4374*Sqrt[3]) - 
         (400*Zeta[3])/3) + x^5*(3760498/6075 - (275*Pi^2)/24 - 
         (1021483*Im[PolyLog[2, E^((I/3)*Pi)]])/(486*Sqrt[3]) - 
         (80*Zeta[3])/3) + x^3*(84407/1296 - (467*Pi^2)/648 - 
         (32753*Im[PolyLog[2, E^((I/3)*Pi)]])/(162*Sqrt[3]) - 
         (8*Zeta[3])/3) + x^4*(-284713/2592 + (281*Pi^2)/432 + 
         (137437*Im[PolyLog[2, E^((I/3)*Pi)]])/(324*Sqrt[3]) + 
         (20*Zeta[3])/3) + x^6*(-5028481/4860 + (37723*Pi^2)/1944 + 
         (629237*Im[PolyLog[2, E^((I/3)*Pi)]])/(162*Sqrt[3]) + 
         (160*Zeta[3])/3) + x^8*(-55741560629/9525600 + (274825*Pi^2)/972 + 
         (14128991*Im[PolyLog[2, E^((I/3)*Pi)]])/(729*Sqrt[3]) + 
         (700*Zeta[3])/3)) + nl*(-1/864 - (13*Pi^2)/3240 + 
       ((58/9 + (2*Pi^2)/3)*x^3 + (-403/27 - (5*Pi^2)/3)*x^4 + 
         (680/9 + 8*Pi^2)*x^5 + (-24529/162 - (1348*Pi^2)/81)*x^6 + 
         (12109/27 + (3880*Pi^2)/81)*x^7 + (-1046833/1296 - (14261*Pi^2)/162)*
          x^8 + (397843/216 + (1775*Pi^2)/9)*x^9)*Log[x^2] + 
       ((20*x^3)/9 - (50*x^4)/9 + (242*x^5)/9 - (1498*x^6)/27 + 
         (1450*x^7)/9 - (63433*x^8)/216 + (7957*x^9)/12)*Log[x^2]^2 + 
       ((-4*x^3)/9 + (10*x^4)/9 - (52*x^5)/9 + (988*x^6)/81 - (2980*x^7)/81 + 
         (11111*x^8)/162 - (475*x^9)/3)*Log[x^2]^3 + 
       x^8*(10054807/15552 - (224345*Pi^2)/1944 - (29072*Zeta[3])/27) + 
       x^6*(64843/486 - (32378*Pi^2)/1215 - (5600*Zeta[3])/27) + 
       x^4*(19615/864 - (1253*Pi^2)/360 - 22*Zeta[3]) + 
       x^2*(1301/432 - (91*Pi^2)/1620 - (4*Zeta[3])/27) + 
       x*(-391/432 - Pi^2/60 + (4*Zeta[3])/27) + (2*Zeta[3])/27 + 
       x^3*(-4163/432 + (703*Pi^2)/540 + (28*Zeta[3])/3) + 
       x^5*(-2339/36 + (1774*Pi^2)/135 + (304*Zeta[3])/3) + 
       x^7*(-112103/324 + (15946*Pi^2)/243 + (15920*Zeta[3])/27) + 
       x^9*(-3768821/2592 + (8263*Pi^2)/36 + 2400*Zeta[3]))
 
CbarData["p", 2, 2, "b"] = 0.28400000000000003 + 21.369*Sqrt[x] - 45.897*x + 
     11.032*x^(3/2) + 26.207*x^2 - 13.199*x^3
 
CbarData["p", 2, 2, "c"] = -5099089/466560 + 
     nl*(22/1215 - (233*(-1 + x))/9720 + (133*(-1 + x)^2)/6480 - 
       (4829*(-1 + x)^3)/408240 - (1205033*(-1 + x)^4)/2000376000 + 
       (1770847*(-1 + x)^5)/125023500 - (1490865367*(-1 + x)^6)/59411167200 + 
       (144865033*(-1 + x)^7)/4752893376 - (11043656672107*(-1 + x)^8)/
        373815064022400 + (10981833157237*(-1 + x)^9)/467268830028000) + 
     (-1 + x)^9*(369279968094076985918953/3479878414172160000 - 
       (37528082248013207*Zeta[3])/425097953280) + 
     (-1 + x)^7*(185545533700365078271/6489283756032000 - 
       (207418823821963*Zeta[3])/8719958016) + 
     (-1 + x)^5*(47969865627143917/8193540096000 - (2413284628541*Zeta[3])/
        495452160) + (-1 + x)^3*(1026388553011/1393459200 - 
       (22792146571*Zeta[3])/37158912) + 
     (-1 + x)*(5116573/233280 - (1956343*Zeta[3])/103680) + 
     (1956343*Zeta[3])/207360 + (-1 + x)^2*(-3308891072153/12541132800 + 
       (8181676633*Zeta[3])/37158912) + (-1 + x)^4*
      (-227138597519055991/98322481152000 + (11428946934631*Zeta[3])/
        5945425920) + (-1 + x)^6*(-437742693004565798371/32446418780160000 + 
       (489355181930687*Zeta[3])/43599790080) + 
     (-1 + x)^8*(-4730928522962286178169437/83517081940131840000 + 
       (2543820820793183*Zeta[3])/53980692480)
 
CbarData["p", 2, 2, "l"] = 
    Log[imu^2]^2*(((-5 + 2*nl)*(1 + 4*x - 7*x^2 + 40*x^3 - 7*x^4 + 4*x^5 + 
          x^6))/(72*(-1 + x)^4*(1 + x)^6) - ((-5 + 2*nl)*x^3*(2 - x + 2*x^2)*
         Log[x])/(3*(-1 + x)^5*(1 + x)^7)) + 
     Log[imu^2]*((-263 + 14*nl + (20*Pi^2)/3 - (8*nl*Pi^2)/3 - 752*x - 
         64*nl*x + (80*Pi^2*x)/3 - (32*nl*Pi^2*x)/3 + 1311*x^2 + 114*nl*x^2 - 
         (20*Pi^2*x^2)/3 + (8*nl*Pi^2*x^2)/3 - 10560*x^3 + 576*nl*x^3 + 
         1311*x^4 + 114*nl*x^4 + (20*Pi^2*x^4)/3 - (8*nl*Pi^2*x^4)/3 - 
         752*x^5 - 64*nl*x^5 - (80*Pi^2*x^5)/3 + (32*nl*Pi^2*x^5)/3 - 
         263*x^6 + 14*nl*x^6 - (20*Pi^2*x^6)/3 + (8*nl*Pi^2*x^6)/3)/
        (432*(-1 + x)^4*(1 + x)^6) - (x^2*(-10 + 4*nl - 2278*x + 364*nl*x + 
          969*x^2 - 114*nl*x^2 - 2818*x^3 + 580*nl*x^3 + 110*x^4 - 
          44*nl*x^4 - 60*x^5 + 24*nl*x^5 - 15*x^6 + 6*nl*x^6)*Log[x])/
        (54*(-1 + x)^5*(1 + x)^7) + ((-5 + 2*nl)*x^3*(72 - 36*x + 216*x^2 - 
          68*x^3 + 136*x^4 - 3*x^5 + 4*x^6 + x^7)*Log[x]^2)/
        (27*(-1 + x)^6*(1 + x)^8) - ((-5 + 2*nl)*(1 + 4*x + 4*x^3 + x^4)*
         Log[x^2]*Log[1 - x^2])/(54*(-1 + x)^3*(1 + x)^5)) - 
     ((-5 + 2*nl)*(1 + 4*x + 4*x^3 + x^4)*Log[imu^2]*PolyLog[2, x^2])/
      (54*(-1 + x)^3*(1 + x)^5)
 
CbarData["p", 2, 3, "a"] = 66767/291600 + (262841*Pi^2)/1458000 - 
     (67*Pi^4)/12150 + (148627*Im[PolyLog[2, E^((I/3)*Pi)]])/(8100*Sqrt[3]) + 
     ((544*x^3)/45 - (70*x^4)/3 + (21673*x^5)/90 - (242087*x^6)/486 + 
       (5121203*x^7)/2835 - (12900221*x^8)/3780 + (14195839*x^9)/9720)*
      Log[x^2]^2 + ((158*x^3)/9 - (158*x^4)/3 + (3680*x^5)/9 - 
       (253810*x^6)/243 + (340315*x^7)/81 - (1516319*x^8)/162 + 
       (6368768*x^9)/243)*Log[x^2]^3 + 
     x^2*(2799419/72900 - (271931*Pi^2)/162000 - (19*Pi^4)/4050 + 
       (23174411*Im[PolyLog[2, E^((I/3)*Pi)]])/(72900*Sqrt[3]) + 
       (Pi^4/24 + 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 - 6*Zeta[3])/3 - 
       (151858*Zeta[3])/675) - (3902*Zeta[3])/405 + 
     (-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3])/135 + 
     x^8*(3481960328243387/486091368000 - (824723632087631*Pi^2)/
        29760696000 - (175310302817*Pi^4)/510183360 - 
       (1050573850417*Im[PolyLog[2, E^((I/3)*Pi)]])/(4251528*Sqrt[3]) + 
       (46471893031*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/5314410 + 
       (2067644487473*Zeta[3])/35429400 - 
       (46471893031*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/3542940 - 
       (8344*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/15) + 
     x^6*(1380914021/820125 - (599406207521*Pi^2)/137781000 - 
       (309556541*Pi^4)/5904900 - (6372056323*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (196830*Sqrt[3]) + (131542216*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/98415 + 
       (809877848*Zeta[3])/164025 - (65771108*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/32805 - 
       (14071*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        135) + x^4*(877642441/2624400 - (33319793453*Pi^2)/91854000 - 
       (6521219*Pi^4)/1574640 - (70536637*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (65610*Sqrt[3]) + (3497498*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/32805 - 
       (79682377*Zeta[3])/109350 - (1748749*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/10935 - 
       (517*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/45) + 
     x*(-6697163/388800 + (54013*Pi^2)/54000 - (7*Pi^4)/405 - 
       (18167*Im[PolyLog[2, E^((I/3)*Pi)]])/(405*Sqrt[3]) + 
       (179989*Zeta[3])/4050 + 
       (2*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/45) + 
     x^3*(-26610889/145800 + (260958983*Pi^2)/1701000 + 
       (347647*Pi^4)/218700 + (1144369*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (1350*Sqrt[3]) - (32248*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/729 + 
       (770852*Zeta[3])/6075 + (16124*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/243 + 
       (499*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/135) + 
     x^5*(-9193854553/8748000 + (128216762501*Pi^2)/61236000 + 
       (129370873*Pi^4)/5248800 + (62877944*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (3645*Sqrt[3]) - (7002643*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/10935 - 
       (219251453*Zeta[3])/72900 + (7002643*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/7290 + 
       (1997*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/45) + 
     x^7*(-31438357977127/6751269000 + (6092369731783*Pi^2)/413343000 + 
       (6422834123*Pi^4)/35429400 + 
       (40450867537*Im[PolyLog[2, E^((I/3)*Pi)]])/(295245*Sqrt[3]) - 
       (274147588*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/59049 - 
       (16187149909*Zeta[3])/492075 + 
       (137073794*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/19683 + 
       (12517*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        45) + x^9*(-78612676982369/5290790400 + (114637232103197*Pi^2)/
        1653372000 + (63988282109*Pi^4)/70858800 + 
       (55810469159*Im[PolyLog[2, E^((I/3)*Pi)]])/(78732*Sqrt[3]) - 
       (6802134574*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/295245 - 
       (179958041323*Zeta[3])/984150 + 
       (3401067287*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/98415 + 
       (163541*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        135) + Log[x^2]*(x^9*(28539918673/419904 - (2283053*Pi^2)/486 - 
         (6802134574*Im[PolyLog[2, E^((I/3)*Pi)]])/(32805*Sqrt[3]) - 
         (3920*Zeta[3])/3) + x^7*(917856986821/64297800 - (328111*Pi^2)/810 - 
         (274147588*Im[PolyLog[2, E^((I/3)*Pi)]])/(6561*Sqrt[3]) - 
         280*Zeta[3]) + x^5*(97981319/48600 - (8303*Pi^2)/324 - 
         (7002643*Im[PolyLog[2, E^((I/3)*Pi)]])/(1215*Sqrt[3]) - 
         40*Zeta[3]) + x^3*(164581/1080 - (331*Pi^2)/270 - 
         (32248*Im[PolyLog[2, E^((I/3)*Pi)]])/(81*Sqrt[3]) - (8*Zeta[3])/3) + 
       x^4*(-1775539/5832 + (148*Pi^2)/81 + 
         (3497498*Im[PolyLog[2, E^((I/3)*Pi)]])/(3645*Sqrt[3]) + 8*Zeta[3]) + 
       x^6*(-1657216493/437400 + (41419*Pi^2)/810 + 
         (131542216*Im[PolyLog[2, E^((I/3)*Pi)]])/(10935*Sqrt[3]) + 
         (280*Zeta[3])/3) + x^8*(-14917420622617/578680200 + 
         (916549*Pi^2)/1080 + (46471893031*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (590490*Sqrt[3]) + 560*Zeta[3])) + 
     nl*(473/19440 + Pi^2/8100 + ((1568/135 + (8*Pi^2)/9)*x^3 + 
         (-2917/90 - (8*Pi^2)/3)*x^4 + (5759/30 + (140*Pi^2)/9)*x^5 + 
         (-2659/6 - (3040*Pi^2)/81)*x^6 + (611294/405 + (3440*Pi^2)/27)*x^7 + 
         (-9911539/3240 - (7181*Pi^2)/27)*x^8 + 
         (25598377/3240 + (18557*Pi^2)/27)*x^9)*Log[x^2] + 
       ((20*x^3)/9 - (20*x^4)/3 + (370*x^5)/9 - (2680*x^6)/27 + 
         (3160*x^7)/9 - (26423*x^8)/36 + (23471*x^9)/12)*Log[x^2]^2 + 
       ((-4*x^3)/9 + (4*x^4)/3 - (80*x^5)/9 + (1780*x^6)/81 - (2180*x^7)/27 + 
         (4661*x^8)/27 - (12677*x^9)/27)*Log[x^2]^3 + 
       x^8*(39381181/38880 - (137225*Pi^2)/324 - (29224*Zeta[3])/9) + 
       x^6*(292561/2430 - (17758*Pi^2)/243 - (12560*Zeta[3])/27) + 
       x^4*(35429/2430 - (518*Pi^2)/75 - (1552*Zeta[3])/45) + 
       x^2*(43897/19440 - (29*Pi^2)/300 - (4*Zeta[3])/45) + 
       x*(-10603/19440 - Pi^2/300 + (4*Zeta[3])/45) + (4*Zeta[3])/135 + 
       x^3*(-5086/1215 + (508*Pi^2)/225 + (544*Zeta[3])/45) + 
       x^5*(-95363/2430 + (850*Pi^2)/27 + (1760*Zeta[3])/9) + 
       x^7*(-502244/1215 + (17252*Pi^2)/81 + (14080*Zeta[3])/9) + 
       x^9*(-113571223/38880 + (316247*Pi^2)/324 + (75208*Zeta[3])/9))
 
CbarData["p", 2, 3, "b"] = -0.307 + 15.358*Sqrt[x] - 50.366*x + 
     61.164*x^(3/2) - 27.39*x^2 + 1.475*x^3
 
CbarData["p", 2, 3, "c"] = -22695120239/1254113280 + 
     nl*(9491/2268000 - (11707*(-1 + x))/972000 + (4391477*(-1 + x)^2)/
        208372500 - (138533327*(-1 + x)^3)/5000940000 + 
       (28292096017*(-1 + x)^4)/990186120000 - (4434337513*(-1 + x)^5)/
        198037224000 + (9932492285537*(-1 + x)^6)/934537660056000 + 
       (2605394617027*(-1 + x)^7)/778781383380000 - 
       (8351338981681673*(-1 + x)^8)/526456215164880000 + 
       (38371534230568433*(-1 + x)^9)/1579368645494640000) + 
     (-1 + x)^9*(292193856193869777275333138956777/
        397461133636365031833600000 - (5324397330210237746783*Zeta[3])/
        8706006083174400) + (-1 + x)^7*(2729607329757767323162829/
        17399392070860800000 - (6164358272408671*Zeta[3])/47233105920) + 
     (-1 + x)^5*(213261249255764471857/8652378341376000 - 
       (5960003062216669*Zeta[3])/290665267200) + 
     (-1 + x)^3*(286286733790085653/122903101440000 - 
       (14402707061221*Zeta[3])/7431782400) + 
     (-1 + x)*(113615120683/2090188800 - (7024330483*Zeta[3])/154828800) + 
     (7024330483*Zeta[3])/464486400 + (-1 + x)^2*
      (-105827095075274471/163870801920000 + (5325385696471*Zeta[3])/
        9909043200) + (-1 + x)^4*(-361125088128725686657/43261891706880000 + 
       (672832537679171*Zeta[3])/96888422400) + 
     (-1 + x)^6*(-108785672405847921797919989/1670341638802636800000 + 
       (409457158014041681*Zeta[3])/7557296947200) + 
     (-1 + x)^8*(-13000583920289408221130724197531/
        37096372472727402971136000 + (282022019885349037409*Zeta[3])/
        967334009241600)
 
CbarData["p", 2, 3, "l"] = 
    Log[imu^2]^2*(((19 + 2*nl)*(1 + 5*x - 14*x^2 + 145*x^3 - 94*x^4 + 
          145*x^5 - 14*x^6 + 5*x^7 + x^8))/(90*(-1 + x)^6*(1 + x)^8) - 
       (4*(19 + 2*nl)*x^3*(1 - x + 3*x^2 - x^3 + x^4)*Log[x])/
        (3*(-1 + x)^7*(1 + x)^9)) + Log[imu^2]*
      ((-1459 + 142*nl - 76*Pi^2 - 8*nl*Pi^2 - 12501*x + 162*nl*x - 
         380*Pi^2*x - 40*nl*Pi^2*x + 35854*x^2 - 364*nl*x^2 + 152*Pi^2*x^2 + 
         16*nl*Pi^2*x^2 - 213759*x^3 + 20358*nl*x^3 - 1140*Pi^2*x^3 - 
         120*nl*Pi^2*x^3 + 181986*x^4 - 8628*nl*x^4 - 213759*x^5 + 
         20358*nl*x^5 + 1140*Pi^2*x^5 + 120*nl*Pi^2*x^5 + 35854*x^6 - 
         364*nl*x^6 - 152*Pi^2*x^6 - 16*nl*Pi^2*x^6 - 12501*x^7 + 
         162*nl*x^7 + 380*Pi^2*x^7 + 40*nl*Pi^2*x^7 - 1459*x^8 + 142*nl*x^8 + 
         76*Pi^2*x^8 + 8*nl*Pi^2*x^8)/(3240*(-1 + x)^6*(1 + x)^8) - 
       (2*x^2*(19 + 2*nl + 827*x + 826*nl*x + 674*x^2 - 668*nl*x^2 + 
          8561*x^3 + 3118*nl*x^3 - 3886*x^4 - 1148*nl*x^4 + 8807*x^5 + 
          1666*nl*x^5 - 836*x^6 - 88*nl*x^6 + 285*x^7 + 30*nl*x^7 + 57*x^8 + 
          6*nl*x^8)*Log[x])/(135*(-1 + x)^7*(1 + x)^9) + 
       (2*(19 + 2*nl)*x^3*(180 - 180*x + 1260*x^2 - 800*x^3 + 1940*x^4 - 
          535*x^5 + 545*x^6 - 4*x^7 + 5*x^8 + x^9)*Log[x]^2)/
        (135*(-1 + x)^8*(1 + x)^10) - ((19 + 2*nl)*(1 + 5*x - x^2 + 20*x^3 - 
          x^4 + 5*x^5 + x^6)*Log[x^2]*Log[1 - x^2])/(135*(-1 + x)^5*
         (1 + x)^7)) - ((19 + 2*nl)*(1 + 5*x - x^2 + 20*x^3 - x^4 + 5*x^5 + 
        x^6)*Log[imu^2]*PolyLog[2, x^2])/(135*(-1 + x)^5*(1 + x)^7)
 
CbarData["p", 2, 4, "a"] = -6557291/24494400 + (376447*Pi^2)/4465125 - 
     (67*Pi^4)/24300 + (16739207*Im[PolyLog[2, E^((I/3)*Pi)]])/
      (765450*Sqrt[3]) + ((296*x^3)/9 - (4256*x^4)/45 + (55057*x^5)/60 - 
       (1154677*x^6)/486 + (173508157*x^7)/17010 - (453434431*x^8)/19440)*
      Log[x^2]^2 + ((158*x^3)/9 - (553*x^4)/9 + 587*x^5 - (417551*x^6)/243 + 
       (1988476*x^7)/243 - (6667801*x^8)/324)*Log[x^2]^3 - 
     (24523*Zeta[3])/2268 + (-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 
       6*Zeta[3])/270 + x^8*(192115149712954277/9999593856000 - 
       (23843700215080801*Pi^2)/267846264000 - (12919350183643*Pi^4)/
        11479125600 - (362495147523391*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (478296900*Sqrt[3]) + (135718456421*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/4782969 + 
       (28945815189749*Zeta[3])/159432300 - 
       (135718456421*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/3188646 - 
       (67298*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        45) + x^6*(1132909176281783/238085568000 - (427453794714643*Pi^2)/
        39060913500 - (1040864779721*Pi^4)/7652750400 - 
       (334689029451061*Im[PolyLog[2, E^((I/3)*Pi)]])/(4464104400*Sqrt[3]) + 
       (54518927843*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/15943230 + 
       (1166597217637*Zeta[3])/106288200 - 
       (54518927843*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/10628820 - 
       (19187*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        90) + x^4*(7471099315/8817984 - (7906954226051*Pi^2)/11573604000 - 
       (2356844213*Pi^4)/283435200 - 
       (183701905273*Im[PolyLog[2, E^((I/3)*Pi)]])/(165337200*Sqrt[3]) + 
       (122955383*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/590490 - 
       (46167513269*Zeta[3])/27556200 - 
       (122955383*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/393660 - 
       (2299*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        135) + x^2*(76412341/1020600 - (1821623*Pi^2)/1632960 - 
       (277*Pi^4)/24300 + (130582735*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (244944*Sqrt[3]) - (9893113*Zeta[3])/28350 - 
       (89*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/270) + 
     x*(-58567921/2449440 + (61048483*Pi^2)/95256000 - (283*Pi^4)/24300 - 
       (53930039*Im[PolyLog[2, E^((I/3)*Pi)]])/(680400*Sqrt[3]) + 
       (5382991*Zeta[3])/85050 + (-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^
           2 + 6*Zeta[3])/30) + x^3*(-4529703989/13778100 + 
       (5876124643679*Pi^2)/23147208000 + (409826231*Pi^4)/141717600 + 
       (169858760903*Im[PolyLog[2, E^((I/3)*Pi)]])/(165337200*Sqrt[3]) - 
       (4518817*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/59049 + 
       (4440371429*Zeta[3])/13778100 + 
       (4518817*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/39366 + 
       (139*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/30) + 
     x^5*(-58053371573317/26453952000 + (40943896148063*Pi^2)/8680203000 + 
       (48983466653*Pi^4)/850305600 + 
       (17621518415989*Im[PolyLog[2, E^((I/3)*Pi)]])/(496011600*Sqrt[3]) - 
       (2604503519*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/1771470 - 
       (506007698047*Zeta[3])/82668600 + 
       (2604503519*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/1180980 + 
       (7109*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/90) + 
     x^7*(-117865307390036273/11666192832000 + (1915732376937349*Pi^2)/
        44641044000 + (4124477784883*Pi^4)/7652750400 + 
       (241170588356543*Im[PolyLog[2, E^((I/3)*Pi)]])/(637729200*Sqrt[3]) - 
       (43563535325*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/3188646 - 
       (9837365455679*Zeta[3])/106288200 + 
       (43563535325*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/2125764 + 
       (178997*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        270) + Log[x^2]*(x^7*(714507414000893/13888324800 - 
         (8809063*Pi^2)/9720 - (43563535325*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (354294*Sqrt[3]) - (1568*Zeta[3])/3) + 
       x^5*(181088691817/31492800 - (51121*Pi^2)/1080 - 
         (2604503519*Im[PolyLog[2, E^((I/3)*Pi)]])/(196830*Sqrt[3]) - 
         56*Zeta[3]) + x^3*(41912101/131220 - (313*Pi^2)/180 - 
         (4518817*Im[PolyLog[2, E^((I/3)*Pi)]])/(6561*Sqrt[3]) - 
         (8*Zeta[3])/3) + x^4*(-50172529/65610 + (1243*Pi^2)/360 + 
         (122955383*Im[PolyLog[2, E^((I/3)*Pi)]])/(65610*Sqrt[3]) + 
         (28*Zeta[3])/3) + x^6*(-3511154354923/283435200 + 
         (1054781*Pi^2)/9720 + (54518927843*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (1771470*Sqrt[3]) + (448*Zeta[3])/3) + 
       x^8*(-1224075767726867/11904278400 + (566851*Pi^2)/270 + 
         (135718456421*Im[PolyLog[2, E^((I/3)*Pi)]])/(531441*Sqrt[3]) + 
         1176*Zeta[3])) + nl*(3743/116640 + (137*Pi^2)/113400 + 
       ((9179/540 + (10*Pi^2)/9)*x^3 + (-3989/72 - (35*Pi^2)/9)*x^4 + 
         (103433/270 + (80*Pi^2)/3)*x^5 + (-4881557/4860 - (5930*Pi^2)/81)*
          x^6 + (19015753/4860 + (23170*Pi^2)/81)*x^7 + 
         (-172020769/19440 - (108311*Pi^2)/162)*x^8)*Log[x^2] + 
       ((20*x^3)/9 - (70*x^4)/9 + (175*x^5)/3 - (4355*x^6)/27 + 
         (6055*x^7)/9 - (114191*x^8)/72)*Log[x^2]^2 + 
       ((-4*x^3)/9 + (14*x^4)/9 - (38*x^5)/3 + (2906*x^6)/81 - 
         (12586*x^7)/81 + (60683*x^8)/162)*Log[x^2]^3 + 
       x^8*(24738733/233280 - (2390873*Pi^2)/1944 - (220052*Zeta[3])/27) + 
       x^6*(-3599957/29160 - (279269*Pi^2)/1701 - (24400*Zeta[3])/27) + 
       x^4*(-54941/5832 - (4399*Pi^2)/378 - (1340*Zeta[3])/27) + 
       x^2*(47143/29160 - (1726*Pi^2)/14175 - (8*Zeta[3])/135) + 
       x*(-961/2916 + (41*Pi^2)/14175 + (8*Zeta[3])/135) + (2*Zeta[3])/135 + 
       x^3*(75457/14580 + (1894*Pi^2)/567 + (400*Zeta[3])/27) + 
       x^5*(15037/180 + (11827*Pi^2)/189 + (1000*Zeta[3])/3) + 
       x^7*(3554213/14580 + (134506*Pi^2)/243 + (94640*Zeta[3])/27))
 
CbarData["p", 2, 4, "b"] = 0.129 + 4.414*Sqrt[x] - 16.562*x + 
     20.537*x^(3/2) - 8.586*x^2 - 0.031*x^3
 
CbarData["p", 2, 4, "c"] = -108123989358635161/3932899246080000 + 
     nl*(3728303/3333960000 - (7785571*(-1 + x))/1666980000 + 
       (32831856983*(-1 + x)^2)/2970558360000 - (566280703*(-1 + x)^3)/
        29705583600 + (48889725430879*(-1 + x)^4)/1869075320112000 - 
       (69095738714921*(-1 + x)^5)/2336344150140000 + 
       (21814263597236867*(-1 + x)^6)/789684322747320000 - 
       (16088447277872393*(-1 + x)^7)/789684322747320000 + 
       (101848890179799311*(-1 + x)^8)/10739706789363552000 + 
       (62145645724399*(-1 + x)^9)/24408424521280800) + 
     (-1 + x)^9*(749653270473945678799601109596691061/
        201804266251637072162979840000 - (5854407223446064458027103*Zeta[3])/
        1894426923698749440) + (-1 + x)^7*(2046622479796244714097758619081083/
        3179689069090920254668800000 - (37293830093773524481373*Zeta[3])/
        69648048665395200) + (-1 + x)^5*(14271329048100270015442451/
        178169774805614592000 - (12086012393933918263*Zeta[3])/
        181375126732800) + (-1 + x)^3*(243884653279173115091/
        41531416038604800 - (6815847629151959*Zeta[3])/1395193282560) + 
     (-1 + x)*(108142837628397721/983224811520000 - (5441721359017*Zeta[3])/
        59454259200) + (5441721359017*Zeta[3])/237817036800 + 
     (-1 + x)^2*(-1390735447918622843599/1038285400965120000 + 
       (7773590588338951*Zeta[3])/6975966412800) + 
     (-1 + x)^4*(-127284294140168247634420777/5345093244168437760000 + 
       (7186253339097913307*Zeta[3])/362750253465600) + 
     (-1 + x)^6*(-36132200386209812959090790826809/
        151413765194805726412800000 + (13826521136561403150011*Zeta[3])/
        69648048665395200) + (-1 + x)^8*
      (-2583283267107208516649974109651018837/
        1614434130013096577303838720000 + (100870579513938385123689979*
         Zeta[3])/75777076947949977600)
 
CbarData["p", 2, 4, "l"] = 
    Log[imu^2]^2*(((43 + 2*nl)*(1 + 6*x - 23*x^2 + 356*x^3 - 398*x^4 + 
          956*x^5 - 398*x^6 + 356*x^7 - 23*x^8 + 6*x^9 + x^10))/
        (120*(-1 + x)^8*(1 + x)^10) - ((43 + 2*nl)*x^3*(2 - 3*x + 12*x^2 - 
          8*x^3 + 12*x^4 - 3*x^5 + 2*x^6)*Log[x])/((-1 + x)^9*(1 + x)^11)) + 
     Log[imu^2]*((-1130 + 392*nl - 258*Pi^2 - 12*nl*Pi^2 - 31161*x + 
         1218*nl*x - 1548*Pi^2*x - 72*nl*Pi^2*x + 128373*x^2 - 4254*nl*x^2 + 
         774*Pi^2*x^2 + 36*nl*Pi^2*x^2 - 504276*x^3 + 134808*nl*x^3 - 
         12384*Pi^2*x^3 - 576*nl*Pi^2*x^3 + 1167281*x^4 - 122642*nl*x^4 + 
         4128*Pi^2*x^4 + 192*nl*Pi^2*x^4 - 1370358*x^5 + 361260*nl*x^5 + 
         1167281*x^6 - 122642*nl*x^6 - 4128*Pi^2*x^6 - 192*nl*Pi^2*x^6 - 
         504276*x^7 + 134808*nl*x^7 + 12384*Pi^2*x^7 + 576*nl*Pi^2*x^7 + 
         128373*x^8 - 4254*nl*x^8 - 774*Pi^2*x^8 - 36*nl*Pi^2*x^8 - 
         31161*x^9 + 1218*nl*x^9 + 1548*Pi^2*x^9 + 72*nl*Pi^2*x^9 - 
         1130*x^10 + 392*nl*x^10 + 258*Pi^2*x^10 + 12*nl*Pi^2*x^10)/
        (9720*(-1 + x)^8*(1 + x)^10) - 
       (x^2*(86 + 4*nl + 39996*x + 4824*nl*x - 39010*x^2 - 6260*nl*x^2 + 
          338274*x^3 + 33516*nl*x^3 - 233514*x^4 - 22716*nl*x^4 + 
          570474*x^5 + 44316*nl*x^5 - 184135*x^6 - 13010*nl*x^6 + 
          175446*x^7 + 11124*nl*x^7 - 9202*x^8 - 428*nl*x^8 + 2322*x^9 + 
          108*nl*x^9 + 387*x^10 + 18*nl*x^10)*Log[x])/
        (270*(-1 + x)^9*(1 + x)^11) + 
       ((43 + 2*nl)*x^3*(360 - 540*x + 4500*x^2 - 4400*x^3 + 13200*x^4 - 
          7055*x^5 + 9810*x^6 - 2169*x^7 + 1476*x^8 - 5*x^9 + 6*x^10 + x^11)*
         Log[x]^2)/(135*(-1 + x)^10*(1 + x)^12) - 
       ((43 + 2*nl)*(1 + 6*x - 2*x^2 + 54*x^3 - 18*x^4 + 54*x^5 - 2*x^6 + 
          6*x^7 + x^8)*Log[x^2]*Log[1 - x^2])/(270*(-1 + x)^7*(1 + x)^9)) - 
     ((43 + 2*nl)*(1 + 6*x - 2*x^2 + 54*x^3 - 18*x^4 + 54*x^5 - 2*x^6 + 
        6*x^7 + x^8)*Log[imu^2]*PolyLog[2, x^2])/(270*(-1 + x)^7*(1 + x)^9)
 
CbarData["s", 2, -1, "a"] = -5165/54 - (2*Pi^4)/45 + (664*x^3)/81 + 
     (211*x^4)/81 + (5807*x^5)/10125 + (3511*x^6)/10125 + 
     (545176*x^7)/3472875 + (24301*x^8)/222264 + (387263*x^9)/6001128 + 
     (-154/9 - (154*x)/9 - (154*x^2)/9)*Log[imu^2]^3 + 
     ((544*x^3)/9 + (538*x^4)/9 + (2666*x^5)/45 + (886*x^6)/15 + 
       (6184*x^7)/105 + (1235*x^8)/21 + (11099*x^9)/189)*Log[x^2]^2 + 
     ((-158*x^3)/9 - (158*x^4)/9 - (158*x^5)/9 - (158*x^6)/9 - (158*x^7)/9 - 
       (158*x^8)/9 - (158*x^9)/9)*Log[x^2]^3 + 
     Log[imu^2]^2*(-524/9 - (524*x)/9 - (524*x^2)/9 + 
       ((-154*x^3)/3 - (154*x^4)/3 - (154*x^5)/3 - (154*x^6)/3 - 
         (154*x^7)/3 - (154*x^8)/3 - (154*x^9)/3)*Log[x^2]) + 
     (8*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + (2*Log[2]^4)/3 + 
        16*PolyLog[4, 1/2]))/9 + x^2*(-5597/54 - (2*Pi^4)/45 + 
       (8*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + (2*Log[2]^4)/3 + 
          16*PolyLog[4, 1/2]))/9 - (164*Zeta[3])/9) + 
     x*(-5357/54 - (2*Pi^4)/45 + (8*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + 
          (2*Log[2]^4)/3 + 16*PolyLog[4, 1/2]))/9 - (164*Zeta[3])/9) - 
     (164*Zeta[3])/9 + Log[x^2]*(x^3*(-6085/54 + (8*Zeta[3])/3) + 
       x^4*(-5929/54 + (8*Zeta[3])/3) + x^5*(-145969/1350 + (8*Zeta[3])/3) + 
       x^6*(-145537/1350 + (8*Zeta[3])/3) + 
       x^7*(-7111981/66150 + (8*Zeta[3])/3) + 
       x^8*(-142103/1323 + (8*Zeta[3])/3) + 
       x^9*(-1277735/11907 + (8*Zeta[3])/3)) + 
     Log[imu^2]*(-1879/18 + ((-1048*x^3)/9 - (1048*x^4)/9 - (1048*x^5)/9 - 
         (1048*x^6)/9 - (1048*x^7)/9 - (1048*x^8)/9 - (1048*x^9)/9)*
        Log[x^2] + ((154*x^3)/3 + (154*x^4)/3 + (154*x^5)/3 + (154*x^6)/3 + 
         (154*x^7)/3 + (154*x^8)/3 + (154*x^9)/3)*Log[x^2]^2 + 
       (8*Zeta[3])/3 + x*(-2023/18 + (8*Zeta[3])/3) + 
       x^2*(-1879/18 + (8*Zeta[3])/3)) + 
     nl*(5 + (4/9 + (4*x)/9 + (4*x^2)/9)*Log[imu^2]^3 + 
       (5*x^3 + 5*x^4 + 5*x^5 + 5*x^6 + 5*x^7 + 5*x^8 + 5*x^9)*Log[x^2] + 
       ((-20*x^3)/9 - (20*x^4)/9 - (20*x^5)/9 - (20*x^6)/9 - (20*x^7)/9 - 
         (20*x^8)/9 - (20*x^9)/9)*Log[x^2]^2 + 
       ((4*x^3)/9 + (4*x^4)/9 + (4*x^5)/9 + (4*x^6)/9 + (4*x^7)/9 + 
         (4*x^8)/9 + (4*x^9)/9)*Log[x^2]^3 + Log[imu^2]^2*
        (20/9 + (20*x)/9 + (20*x^2)/9 + ((4*x^3)/3 + (4*x^4)/3 + (4*x^5)/3 + 
           (4*x^6)/3 + (4*x^7)/3 + (4*x^8)/3 + (4*x^9)/3)*Log[x^2]) + 
       Log[imu^2]*(5 + 5*x + 5*x^2 + ((40*x^3)/9 + (40*x^4)/9 + (40*x^5)/9 + 
           (40*x^6)/9 + (40*x^7)/9 + (40*x^8)/9 + (40*x^9)/9)*Log[x^2] + 
         ((-4*x^3)/3 - (4*x^4)/3 - (4*x^5)/3 - (4*x^6)/3 - (4*x^7)/3 - 
           (4*x^8)/3 - (4*x^9)/3)*Log[x^2]^2) + (32*Zeta[3])/9 + 
       x*(5 + (32*Zeta[3])/9) + x^2*(5 + (32*Zeta[3])/9))
 
CbarData["s", 2, -1, "b"] = -104.681 + 71.3219*Sqrt[x] - 337.619*x + 
     403.741*x^(3/2) - 169.39*x^3
 
CbarData["s", 2, -1, "c"] = -1471/18 - (2*Pi^4)/15 + 
     (-72 + 82*(-1 + x) + 130*(-1 + x)^2 + (77*(-1 + x)^3)/3 - 
       (77*(-1 + x)^4)/15 + (77*(-1 + x)^5)/45 - (11*(-1 + x)^6)/15 + 
       (11*(-1 + x)^7)/30 - (11*(-1 + x)^8)/54 + (11*(-1 + x)^9)/90)*
      Log[imu^2]^2 + (-154/3 - (154*(-1 + x))/3 - (154*(-1 + x)^2)/9)*
      Log[imu^2]^3 + (8*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + 
        (2*Log[2]^4)/3 + 16*PolyLog[4, 1/2]))/3 + 
     (-1 + x)*(59/9 - (2*Pi^4)/15 + 
       (8*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + (2*Log[2]^4)/3 + 
          16*PolyLog[4, 1/2]))/3 - 60*Zeta[3]) + 
     (-1 + x)^2*(-400/9 - (2*Pi^4)/45 + 
       (8*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + (2*Log[2]^4)/3 + 
          16*PolyLog[4, 1/2]))/9 - (62*Zeta[3])/3) + 
     (-1 + x)^3*(4613/108 - (4*Zeta[3])/3) + 
     (-1 + x)^5*(-26491/1620 - (4*Zeta[3])/45) + 
     (-1 + x)^7*(-341/120 - (2*Zeta[3])/105) + 
     (-1 + x)^9*(-69449/113400 - (2*Zeta[3])/315) + 
     (-1 + x)^8*(88789/68040 + (2*Zeta[3])/189) + 
     (-1 + x)^6*(8237/1260 + (4*Zeta[3])/105) + 
     (-1 + x)^4*(23539/540 + (4*Zeta[3])/15) - 52*Zeta[3] + 
     Log[imu^2]*(-1589/18 - 130*(-1 + x)^3 + (82*(-1 + x)^4)/15 + 
       (8*(-1 + x)^5)/5 - (524*(-1 + x)^6)/315 + (151*(-1 + x)^7)/126 - 
       (4699*(-1 + x)^8)/5670 + (1823*(-1 + x)^9)/3150 + 8*Zeta[3] + 
       (-1 + x)^2*(-4757/54 + (8*Zeta[3])/3) + 
       (-1 + x)*(1003/18 + 8*Zeta[3])) + 
     nl*(5 + (17*(-1 + x)^3)/54 - (61*(-1 + x)^4)/54 + (61*(-1 + x)^5)/162 - 
       (257*(-1 + x)^6)/1890 + (197*(-1 + x)^7)/3780 - 
       (673*(-1 + x)^8)/34020 + (73*(-1 + x)^9)/11340 + 
       (55/9 - (17*(-1 + x))/9 - (17*(-1 + x)^2)/27 + (8*(-1 + x)^3)/3 - 
         (4*(-1 + x)^5)/45 + (4*(-1 + x)^6)/63 - (13*(-1 + x)^7)/315 + 
         (11*(-1 + x)^8)/405 - (29*(-1 + x)^9)/1575)*Log[imu^2] + 
       (4 - (8*(-1 + x)^2)/3 - (2*(-1 + x)^3)/3 + (2*(-1 + x)^4)/15 - 
         (2*(-1 + x)^5)/45 + (2*(-1 + x)^6)/105 - (-1 + x)^7/105 + 
         (-1 + x)^8/189 - (-1 + x)^9/315)*Log[imu^2]^2 + 
       (4/3 + (4*(-1 + x))/3 + (4*(-1 + x)^2)/9)*Log[imu^2]^3 + 
       (32*Zeta[3])/3 + (-1 + x)^2*(8/9 + (32*Zeta[3])/9) + 
       (-1 + x)*(-10/9 + (32*Zeta[3])/3))
 
CbarData["s", 2, 0, "a"] = 18971/1296 - (2881*Pi^2)/972 + (17*Pi^4)/162 + 
     (49*Im[PolyLog[2, E^((I/3)*Pi)]])/(2*Sqrt[3]) + (53*Log[imu^2]^3)/18 + 
     ((424*x^3)/9 + 70*x^4 + (14207*x^5)/90 + (88417*x^6)/405 + 
       (1023992*x^7)/2835 + (5392477*x^8)/11340 + (1027309*x^9)/1440)*
      Log[x^2]^2 + ((-158*x^3)/9 - (79*x^4)/3 - (605*x^5)/9 - (7711*x^6)/81 - 
       (4603*x^7)/27 - (12383*x^8)/54 - (112001*x^9)/324)*Log[x^2]^3 + 
     Log[imu^2]^2*(245/36 - (53*x)/6 - (53*x^2)/3 - (53*x^3)/2 - 
       (106*x^4)/3 - (265*x^5)/6 - 53*x^6 - (371*x^7)/6 - (212*x^8)/3 - 
       (159*x^9)/2 + ((-53*x^3)/3 - (53*x^4)/2 - 53*x^5 - (212*x^6)/3 - 
         106*x^7 - (265*x^8)/2 - (530*x^9)/3)*Log[x^2]) - 
     (4*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + (2*Log[2]^4)/3 + 
        16*PolyLog[4, 1/2]))/9 + x^2*(-5183/72 - (4723*Pi^2)/648 + 
       (251*Pi^4)/1620 + (58*Im[PolyLog[2, E^((I/3)*Pi)]])/Sqrt[3] + 
       (Pi^4/24 + 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 - 6*Zeta[3])/2 - 
       (563*Zeta[3])/18) + (Pi^4/24 + 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 - 
       6*Zeta[3])/18 + nl*(-73/72 + (7*Pi^2)/54 - Log[imu^2]^3/9 + 
       ((5/2 - (2*Pi^2)/9)*x^3 + (15/4 - Pi^2/3)*x^4 + (31/6 - (8*Pi^2)/9)*
          x^5 + (169/27 - (34*Pi^2)/27)*x^6 + (143/27 - (62*Pi^2)/27)*x^7 + 
         (130/27 - (83*Pi^2)/27)*x^8 + (2/27 - (128*Pi^2)/27)*x^9)*Log[x^2] + 
       ((-20*x^3)/9 - (10*x^4)/3 - (67*x^5)/9 - (91*x^6)/9 - (149*x^7)/9 - 
         (191*x^8)/9 - (274*x^9)/9)*Log[x^2]^2 + 
       ((4*x^3)/9 + (2*x^4)/3 + (14*x^5)/9 + (58*x^6)/27 + (98*x^7)/27 + 
         (128*x^8)/27 + (188*x^9)/27)*Log[x^2]^3 + 
       Log[imu^2]^2*(-7/18 + x/3 + (2*x^2)/3 + x^3 + (4*x^4)/3 + (5*x^5)/3 + 
         2*x^6 + (7*x^7)/3 + (8*x^8)/3 + 3*x^9 + 
         ((2*x^3)/3 + x^4 + 2*x^5 + (8*x^6)/3 + 4*x^7 + 5*x^8 + (20*x^9)/3)*
          Log[x^2]) + Log[imu^2]*(-3/4 + Pi^2/27 + (5/3 + (2*Pi^2)/27)*x + 
         (28/9 + (2*Pi^2)/27)*x^2 + (41/9 + (2*Pi^2)/27)*x^3 + 
         (37/6 + (2*Pi^2)/27)*x^4 + (70/9 + (2*Pi^2)/27)*x^5 + 
         (763/81 + (2*Pi^2)/27)*x^6 + (896/81 + (2*Pi^2)/27)*x^7 + 
         (8239/648 + (2*Pi^2)/27)*x^8 + (4655/324 + (2*Pi^2)/27)*x^9 + 
         ((20*x^3)/9 + (10*x^4)/3 + (20*x^5)/3 + (242*x^6)/27 + 
           (364*x^7)/27 + (917*x^8)/54 + (613*x^9)/27)*Log[x^2] + 
         ((-4*x^3)/3 - 2*x^4 - (14*x^5)/3 - (58*x^6)/9 - (98*x^7)/9 - 
           (128*x^8)/9 - (188*x^9)/9)*Log[x^2]^2) + 
       x^9*(9895/162 - (203*Pi^2)/81 - (520*Zeta[3])/9) + 
       x^8*(53483/1296 - (295*Pi^2)/162 - (340*Zeta[3])/9) + 
       x^7*(10393/324 - (110*Pi^2)/81 - (256*Zeta[3])/9) + 
       x^6*(1619/81 - (67*Pi^2)/81 - 16*Zeta[3]) + 
       x^5*(551/36 - (14*Pi^2)/27 - (104*Zeta[3])/9) + 
       x^4*(107/12 - (4*Pi^2)/27 - (44*Zeta[3])/9) + 
       x^3*(241/36 - (32*Zeta[3])/9) + x*(91/36 + (4*Pi^2)/27 - 
         (8*Zeta[3])/9) + x^2*(77/18 + (5*Pi^2)/27 - (8*Zeta[3])/9) - 
       (4*Zeta[3])/3) + Log[imu^2]*(745/72 - (53*Pi^2)/54 + 
       (-223/6 - (53*Pi^2)/27)*x + (-616/9 - (53*Pi^2)/27)*x^2 + 
       (-1795/18 - (53*Pi^2)/27)*x^3 + (-1625/12 - (53*Pi^2)/27)*x^4 + 
       (-1540/9 - (53*Pi^2)/27)*x^5 + (-33635/162 - (53*Pi^2)/27)*x^6 + 
       (-19775/81 - (53*Pi^2)/27)*x^7 + (-364091/1296 - (53*Pi^2)/27)*x^8 + 
       (-205891/648 - (53*Pi^2)/27)*x^9 + ((-404*x^3)/9 - (202*x^4)/3 - 
         (404*x^5)/3 - (4901*x^6)/27 - (7378*x^7)/27 - (37261*x^8)/108 - 
         (24929*x^9)/54)*Log[x^2] + ((106*x^3)/3 + 53*x^4 + (371*x^5)/3 + 
         (1537*x^6)/9 + (2597*x^7)/9 + (3392*x^8)/9 + (4982*x^9)/9)*
        Log[x^2]^2 - Zeta[3]) - (101*Zeta[3])/27 + 
     x^9*(-11363578483/571536000 - (1867364221*Pi^2)/9797760 - 
       (8290411*Pi^4)/4199040 - (20150567*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (11664*Sqrt[3]) + (477673*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/8748 + 
       (4494955*Zeta[3])/11664 - (477673*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/5832 - 
       (101*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/18) + 
     x^8*(-1537986375539/12002256000 - (175491539*Pi^2)/1399680 - 
       (4943519*Pi^4)/4199040 - (3774457*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (3888*Sqrt[3]) + (297701*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/8748 + 
       (2614295*Zeta[3])/11664 - (297701*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/5832 - 
       (9*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/2) + 
     x^7*(-30444537217/250047000 - (7583377*Pi^2)/77760 - 
       (22627*Pi^4)/25920 - (129437*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (162*Sqrt[3]) + (1409*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/54 + 
       (123523*Zeta[3])/648 - (1409*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/36 - 
       (65*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/18) + 
     x^6*(-248799251/1458000 - (4173491*Pi^2)/77760 - (90617*Pi^4)/233280 - 
       (26255*Im[PolyLog[2, E^((I/3)*Pi)]])/(81*Sqrt[3]) + 
       (6611*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/486 + 
       (37201*Zeta[3])/648 - (6611*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/324 - 
       (49*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/18) + 
     x^5*(-42405301/324000 - (1057741*Pi^2)/25920 - (6341*Pi^4)/25920 - 
       (281*Im[PolyLog[2, E^((I/3)*Pi)]])/Sqrt[3] + 
       (535*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/54 + 
       (3773*Zeta[3])/72 - (535*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/36 - 
       (37*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/18) + 
     x^4*(-74645/576 - (98617*Pi^2)/5184 + (23*Pi^4)/2880 - 
       (65*Im[PolyLog[2, E^((I/3)*Pi)]])/(3*Sqrt[3]) + 
       (187*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/54 - 
       (5269*Zeta[3])/216 - (187*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/36 - 
       (25*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/18) + 
     x^3*(-214945/2592 - (13063*Pi^2)/864 + (83*Pi^4)/1440 - 
       (33*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 + 
       (7*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/3 - (29*Zeta[3])/4 - 
       (7*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/2 - (17*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^
            2 + 6*Zeta[3]))/18) + x*(-4621/108 - (1297*Pi^2)/216 + 
       (271*Pi^4)/1620 + (10*Im[PolyLog[2, E^((I/3)*Pi)]])/Sqrt[3] - 
       (13*Zeta[3])/2 - (5*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 
          6*Zeta[3]))/18) + Log[x^2]*
      (x^3*(-7631/108 - (13*Pi^2)/108 + 7*Sqrt[3]*
          Im[PolyLog[2, E^((I/3)*Pi)]] + (8*Zeta[3])/3) + 
       x^4*(-2329/24 - (17*Pi^2)/24 + (187*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (6*Sqrt[3]) + 4*Zeta[3]) + x^5*(-2240827/10800 - Pi^2/72 + 
         (535*Im[PolyLog[2, E^((I/3)*Pi)]])/(6*Sqrt[3]) + 8*Zeta[3]) + 
       x^6*(-8938343/32400 - (217*Pi^2)/648 + 
         (6611*Im[PolyLog[2, E^((I/3)*Pi)]])/(54*Sqrt[3]) + (32*Zeta[3])/3) + 
       x^7*(-2185655623/4762800 + (3581*Pi^2)/648 + 
         (1409*Im[PolyLog[2, E^((I/3)*Pi)]])/(6*Sqrt[3]) + 16*Zeta[3]) + 
       x^8*(-5656412009/9525600 + (1253*Pi^2)/144 + 
         (297701*Im[PolyLog[2, E^((I/3)*Pi)]])/(972*Sqrt[3]) + 20*Zeta[3]) + 
       x^9*(-833806021/907200 + (41569*Pi^2)/1296 + 
         (477673*Im[PolyLog[2, E^((I/3)*Pi)]])/(972*Sqrt[3]) + 
         (80*Zeta[3])/3))
 
CbarData["s", 2, 0, "b"] = -3.24951 + 42.682*Sqrt[x] - 217.318*x + 
     250.452*x^(3/2) - 81.5761*x^3
 
CbarData["s", 2, 0, "c"] = 53/54 + Pi^4/60 + 
     (-7/2 - (53*(-1 + x))/6 + (53*(-1 + x)^2)/30 - (53*(-1 + x)^3)/180 - 
       (53*(-1 + x)^4)/840 + (53*(-1 + x)^5)/420 - (106*(-1 + x)^6)/945 + 
       (53*(-1 + x)^7)/630 - (1643*(-1 + x)^8)/27720 + 
       (424*(-1 + x)^9)/10395)*Log[imu^2]^2 + (53*Log[imu^2]^3)/18 + 
     ((13*Pi^4)/180 + (2*Pi^2*Log[2]^2)/3 - (2*Log[2]^4)/3 - 
       16*PolyLog[4, 1/2])/3 + (-1 + x)^8*(10210368516487351/56330588160000 - 
       (101756865083*Zeta[3])/681246720) + 
     (-1 + x)^6*(44001135425377/512096256000 - (423738109*Zeta[3])/6193152) + 
     (-1 + x)^4*(12901493561/326592000 - (9135347*Zeta[3])/322560) + 
     (-1 + x)^2*(267101/38880 - (114287*Zeta[3])/8640) + 
     Log[imu^2]*(-3739/216 + 7*(-1 + x) + (4627*(-1 + x)^2)/405 - 
       (2953*(-1 + x)^3)/405 + (147799*(-1 + x)^4)/37800 - 
       (54881*(-1 + x)^5)/28350 + (173407*(-1 + x)^6)/198450 - 
       (87547*(-1 + x)^7)/264600 + (1538351*(-1 + x)^8)/22453200 + 
       (38263*(-1 + x)^9)/801900 - Zeta[3]) + 
     nl*(-1/4 - (65*(-1 + x))/108 + (37*(-1 + x)^2)/180 + 
       (169*(-1 + x)^3)/1080 - (230723*(-1 + x)^4)/1134000 + 
       (40577*(-1 + x)^5)/243000 - (45883*(-1 + x)^6)/385875 + 
       (2190743*(-1 + x)^7)/27783000 - (88302301*(-1 + x)^8)/1768189500 + 
       (107842871*(-1 + x)^9)/3536379000 + (65/108 - (196*(-1 + x)^2)/405 + 
         (23*(-1 + x)^3)/81 - (2753*(-1 + x)^4)/18900 + 
         (982*(-1 + x)^5)/14175 - (2939*(-1 + x)^6)/99225 + 
         (1319*(-1 + x)^7)/132300 - (9127*(-1 + x)^8)/11226600 - 
         (1211*(-1 + x)^9)/400950)*Log[imu^2] + 
       ((-1 + x)/3 - (-1 + x)^2/15 + (-1 + x)^3/90 + (-1 + x)^4/420 - 
         (-1 + x)^5/210 + (4*(-1 + x)^6)/945 - (-1 + x)^7/315 + 
         (31*(-1 + x)^8)/13860 - (16*(-1 + x)^9)/10395)*Log[imu^2]^2 - 
       Log[imu^2]^3/9 - (8*Zeta[3])/9) + (35*Zeta[3])/6 + 
     (-1 + x)*(3739/216 + Zeta[3]) + (-1 + x)^3*(-730583/38880 + 
       (112847*Zeta[3])/8640) + (-1 + x)^5*(-9358360241/163296000 + 
       (21102737*Zeta[3])/483840) + (-1 + x)^7*
      (-64550683043971/512096256000 + (1060372753*Zeta[3])/10321920) + 
     (-1 + x)^9*(-598350702250201/2347107840000 + (17981630719*Zeta[3])/
        85155840)
 
CbarData["s", 2, 1, "a"] = 35/16 + (1055*Pi^2)/972 - (67*Pi^4)/1215 + 
     (35*Im[PolyLog[2, E^((I/3)*Pi)]])/(3*Sqrt[3]) + 
     ((256*x^3)/9 + (530*x^4)/9 + (9136*x^5)/45 + (439444*x^6)/1215 + 
       (14240509*x^7)/17010 + (11548183*x^8)/8505 + (43435837*x^9)/15120)*
      Log[x^2]^2 + ((-158*x^3)/9 - (316*x^4)/9 - 149*x^5 - (65248*x^6)/243 - 
       (165737*x^7)/243 - (90967*x^8)/81 - (531586*x^9)/243)*Log[x^2]^3 + 
     x*(-13465/972 - (4493*Pi^2)/1458 + (137*Pi^4)/2430 + 
       (13*Im[PolyLog[2, E^((I/3)*Pi)]])/(3*Sqrt[3]) + 
       (Pi^4/24 + 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 - 6*Zeta[3])/9 - 
       (409*Zeta[3])/27) + nl*(-5/72 - Pi^2/54 + 
       ((-44/27 - (4*Pi^2)/9)*x^3 + (-26/9 - (8*Pi^2)/9)*x^4 + 
         (-427/27 - (10*Pi^2)/3)*x^5 + (-746/27 - (472*Pi^2)/81)*x^6 + 
         (-6214/81 - (1112*Pi^2)/81)*x^7 + (-13373/108 - (1766*Pi^2)/81)*
          x^8 + (-6928/27 - (3344*Pi^2)/81)*x^9)*Log[x^2] + 
       ((-20*x^3)/9 - (40*x^4)/9 - (47*x^5)/3 - (724*x^6)/27 - (548*x^7)/9 - 
         (1703*x^8)/18 - (4723*x^9)/27)*Log[x^2]^2 + 
       ((4*x^3)/9 + (8*x^4)/9 + (10*x^5)/3 + (472*x^6)/81 + (1112*x^7)/81 + 
         (1766*x^8)/81 + (3344*x^9)/81)*Log[x^2]^3 + 
       x^9*(11468/27 - (8735*Pi^2)/243 - (13576*Zeta[3])/27) + 
       x^8*(100021/432 - (10423*Pi^2)/486 - (7216*Zeta[3])/27) + 
       x^7*(36346/243 - (3392*Pi^2)/243 - (4576*Zeta[3])/27) + 
       x^6*(5219/72 - (3353*Pi^2)/486 - (1976*Zeta[3])/27) + 
       x^5*(4783/108 - (106*Pi^2)/27 - (128*Zeta[3])/3) + 
       x^4*(4111/216 - (205*Pi^2)/162 - (328*Zeta[3])/27) + 
       x^3*(571/54 - (14*Pi^2)/27 - (176*Zeta[3])/27) + 
       x^2*(823/216 + Pi^2/54 - (8*Zeta[3])/27) + 
       x*(55/36 + (4*Pi^2)/81 - (8*Zeta[3])/27) + (8*Zeta[3])/27) - 
     (88*Zeta[3])/9 + (2*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 
        6*Zeta[3]))/27 + x^9*(-1555876555067/18003384000 - 
       (61018948259*Pi^2)/26453952 - (312791045*Pi^4)/11337408 - 
       (11278018307*Im[PolyLog[2, E^((I/3)*Pi)]])/(472392*Sqrt[3]) + 
       (86150275*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/118098 + 
       (914494009*Zeta[3])/157464 - (86150275*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/78732 - 
       (175*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/3) + 
     x^8*(-465594487459/1000188000 - (9279704381*Pi^2)/7348320 - 
       (44038451*Pi^4)/3149280 - (298464043*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (26244*Sqrt[3]) + (2459009*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/6561 + 
       (23392571*Zeta[3])/8748 - (2459009*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/4374 - 
       (1010*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^7*(-470277446069/1500282000 - (208173797*Pi^2)/244944 - 
       (4835761*Pi^4)/524880 - (17676566*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (2187*Sqrt[3]) + (547862*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/2187 + 
       (2814169*Zeta[3])/1458 - (273931*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/729 - 
       (676*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^6*(-2716037753/6561000 - (191991577*Pi^2)/524880 - 
       (5737603*Pi^4)/1574640 - (2050939*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (729*Sqrt[3]) + (675170*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/6561 + 
       (2079091*Zeta[3])/4374 - (337585*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/2187 - 
       (380*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^5*(-167950271/729000 - (9011677*Pi^2)/38880 - (150961*Pi^4)/69984 - 
       (487426*Im[PolyLog[2, E^((I/3)*Pi)]])/(243*Sqrt[3]) + 
       (46631*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/729 + 
       (360485*Zeta[3])/972 - (46631*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/486 - 
       (229*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^4*(-88403/486 - (4013351*Pi^2)/58320 - (8917*Pi^4)/19440 - 
       (21983*Im[PolyLog[2, E^((I/3)*Pi)]])/(81*Sqrt[3]) + 
       (442*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/27 - 
       (4387*Zeta[3])/54 - (221*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/9 - 
       (100*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^3*(-163867/1944 - (401977*Pi^2)/9720 - (5327*Pi^4)/29160 - 
       (800*Im[PolyLog[2, E^((I/3)*Pi)]])/(3*Sqrt[3]) + 
       (2228*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/243 - 
       (221*Zeta[3])/81 - (1114*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/81 - 
       (50*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^2*(-176603/3888 - (12557*Pi^2)/2916 + (47*Pi^4)/1215 + 
       (761*Im[PolyLog[2, E^((I/3)*Pi)]])/(9*Sqrt[3]) - (5564*Zeta[3])/81 - 
       (10*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     Log[x^2]*(x^3*(-1184/27 + (20*Pi^2)/81 + 
         (2228*Im[PolyLog[2, E^((I/3)*Pi)]])/(27*Sqrt[3]) + (8*Zeta[3])/3) + 
       x^4*(-439/6 - (13*Pi^2)/162 + (442*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (3*Sqrt[3]) + (16*Zeta[3])/3) + x^5*(-4414853/16200 + 
         (1105*Pi^2)/324 + (46631*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (81*Sqrt[3]) + 16*Zeta[3]) + x^6*(-15694751/36450 + 
         (2231*Pi^2)/486 + (675170*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (729*Sqrt[3]) + (80*Zeta[3])/3) + 
       x^7*(-991738873/893025 + (19727*Pi^2)/486 + 
         (547862*Im[PolyLog[2, E^((I/3)*Pi)]])/(243*Sqrt[3]) + 
         (160*Zeta[3])/3) + x^8*(-3050779609/1786050 + (22249*Pi^2)/324 + 
         (2459009*Im[PolyLog[2, E^((I/3)*Pi)]])/(729*Sqrt[3]) + 80*Zeta[3]) + 
       x^9*(-950859624311/257191200 + (564319*Pi^2)/1944 + 
         (86150275*Im[PolyLog[2, E^((I/3)*Pi)]])/(13122*Sqrt[3]) + 
         (400*Zeta[3])/3))
 
CbarData["s", 2, 1, "b"] = 5.446 - 25.346*Sqrt[x] + 11.435*x + 
     23.107*x^(3/2) - 16.399*x^2 - 0.244*x^3
 
CbarData["s", 2, 1, "c"] = 1298009/233280 + 
     nl*(119/810 - (148*(-1 + x))/1215 + (65939*(-1 + x)^2)/850500 - 
       (80029*(-1 + x)^3)/2551500 - (1629601*(-1 + x)^4)/250047000 + 
       (7753903*(-1 + x)^5)/250047000 - (787937923*(-1 + x)^6)/18565989750 + 
       (131071771*(-1 + x)^7)/2970558360 - (1436691652237*(-1 + x)^8)/
        35943756156000 + (443035592557*(-1 + x)^9)/13350538000800) + 
     (-1 + x)^8*(94328032602223551548441/20879270485032960000 - 
       (3900655989503*Zeta[3])/1038090240) + 
     (-1 + x)^6*(4191067430080109/2956124160000 - (437930037599*Zeta[3])/
        371589120) + (-1 + x)^4*(533798340120971/1536288768000 - 
       (26816379067*Zeta[3])/92897280) + (-1 + x)^2*(66273105893/979776000 - 
       (23704723*Zeta[3])/414720) - (67451*Zeta[3])/10368 + 
     (-1 + x)*(-1382921/233280 + (67451*Zeta[3])/10368) + 
     (-1 + x)^3*(-63382348913/489888000 + (827989*Zeta[3])/7680) + 
     (-1 + x)^5*(-1108896314381953/1536288768000 + (55712930321*Zeta[3])/
        92897280) + (-1 + x)^7*(-94178586330173231/36212520960000 + 
       (66967538999*Zeta[3])/30965760) + (-1 + x)^9*
      (-31309458144313809998009/4175854097006592000 + 
       (407878295342053*Zeta[3])/65399685120)
 
CbarData["s", 2, 1, "l"] = 
    Log[imu^2]*(((-29 + 2*nl)*(-1 - (4*Pi^2)/3 + 36*x + 4*Pi^2*x + 22*x^2 + 
          36*x^3 - 4*Pi^2*x^3 - x^4 + (4*Pi^2*x^4)/3))/
        (108*(-1 + x)^4*(1 + x)^2) - (4*(-29 + 2*nl)*x^2*(1 - 6*x + x^2)*
         Log[x])/(27*(-1 + x)^5*(1 + x)^3) + 
       (4*(-29 + 2*nl)*x^3*(-18 - 9*x^2 - 2*x^3 - 3*x^4 + x^5)*Log[x]^2)/
        (27*(-1 + x)^6*(1 + x)^4) - (2*(-29 + 2*nl)*(1 - 3*x + x^2)*Log[x^2]*
         Log[1 - x^2])/(27*(-1 + x)^3*(1 + x))) - 
     (2*(-29 + 2*nl)*(1 - 3*x + x^2)*Log[imu^2]*PolyLog[2, x^2])/
      (27*(-1 + x)^3*(1 + x))
 
CbarData["s", 2, 2, "a"] = 340663/311040 + (503309*Pi^2)/1166400 - 
     (67*Pi^4)/4860 + (733*Im[PolyLog[2, E^((I/3)*Pi)]])/(40*Sqrt[3]) + 
     ((76*x^3)/9 + (250*x^4)/9 + (6083*x^5)/60 + (59972*x^6)/243 + 
       (12516563*x^7)/17010 + (204378409*x^8)/136080 + (294224923*x^9)/54432)*
      Log[x^2]^2 + ((-158*x^3)/9 - (395*x^4)/9 - (2366*x^5)/9 - 
       (139258*x^6)/243 - (457075*x^7)/243 - (3545009*x^8)/972 - 
       (8423633*x^9)/972)*Log[x^2]^3 + nl*(-1/864 - (13*Pi^2)/3240 + 
       ((-58/9 - (2*Pi^2)/3)*x^3 + (-403/27 - (5*Pi^2)/3)*x^4 + 
         (-680/9 - 8*Pi^2)*x^5 + (-24529/162 - (1348*Pi^2)/81)*x^6 + 
         (-12109/27 - (3880*Pi^2)/81)*x^7 + 
         (-1046833/1296 - (14261*Pi^2)/162)*x^8 + 
         (-397843/216 - (1775*Pi^2)/9)*x^9)*Log[x^2] + 
       ((-20*x^3)/9 - (50*x^4)/9 - (242*x^5)/9 - (1498*x^6)/27 - 
         (1450*x^7)/9 - (63433*x^8)/216 - (7957*x^9)/12)*Log[x^2]^2 + 
       ((4*x^3)/9 + (10*x^4)/9 + (52*x^5)/9 + (988*x^6)/81 + (2980*x^7)/81 + 
         (11111*x^8)/162 + (475*x^9)/3)*Log[x^2]^3 + 
       x^9*(3768821/2592 - (8263*Pi^2)/36 - 2400*Zeta[3]) + 
       x^8*(10054807/15552 - (224345*Pi^2)/1944 - (29072*Zeta[3])/27) + 
       x^7*(112103/324 - (15946*Pi^2)/243 - (15920*Zeta[3])/27) + 
       x^6*(64843/486 - (32378*Pi^2)/1215 - (5600*Zeta[3])/27) + 
       x^5*(2339/36 - (1774*Pi^2)/135 - (304*Zeta[3])/3) + 
       x^4*(19615/864 - (1253*Pi^2)/360 - 22*Zeta[3]) + 
       x^3*(4163/432 - (703*Pi^2)/540 - (28*Zeta[3])/3) + 
       x^2*(1301/432 - (91*Pi^2)/1620 - (4*Zeta[3])/27) + 
       x*(391/432 + Pi^2/60 - (4*Zeta[3])/27) + (2*Zeta[3])/27) - 
     (6865*Zeta[3])/648 + (-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 
       6*Zeta[3])/54 + x^9*(268119405901057/115221657600 - 
       (23850241166467*Pi^2)/1587237120 - (25965365291*Pi^4)/136048896 - 
       (893187668957*Im[PolyLog[2, E^((I/3)*Pi)]])/(5668704*Sqrt[3]) + 
       (6988594765*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/1417176 + 
       (74717571151*Zeta[3])/1889568 - 
       (6988594765*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/944784 - 
       (34135*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        108) + x^8*(3577591184183/6001128000 - (14619409279*Pi^2)/2099520 - 
       (261899549*Pi^4)/3149280 - (6680662459*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (104976*Sqrt[3]) + (14128991*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/6561 + 
       (32598581*Zeta[3])/2187 - (14128991*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/4374 - 
       (4565*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^7*(11254309182299/18003384000 - (182275091191*Pi^2)/44089920 - 
       (184412465*Pi^4)/3779136 - (6245016623*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (157464*Sqrt[3]) + (50168695*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/39366 + 
       (494215957*Zeta[3])/52488 - (50168695*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/26244 - 
       (2615*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^6*(-292734107/3499200 - (3942108823*Pi^2)/2721600 - 
       (11493263*Pi^4)/699840 - (985354909*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (87480*Sqrt[3]) + (629237*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/1458 + 
       (5758177*Zeta[3])/3240 - (629237*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/972 - 
       (1175*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^5*(1565037671/17496000 - (19372321463*Pi^2)/24494400 - 
       (18163153*Pi^4)/2099520 - (200148341*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (29160*Sqrt[3]) + (1021483*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/4374 + 
       (35326853*Zeta[3])/29160 - (1021483*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/2916 - 
       (587*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^4*(-3717059/93312 - (401097809*Pi^2)/2332800 - 
       (2378887*Pi^4)/1399680 - (6266429*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (9720*Sqrt[3]) + (137437*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/2916 - 
       (5512249*Zeta[3])/19440 - (137437*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/1944 - 
       (127*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/18) + 
     x^3*(19637773/933120 - (8257057*Pi^2)/97200 - (497819*Pi^4)/699840 - 
       (5265311*Im[PolyLog[2, E^((I/3)*Pi)]])/(9720*Sqrt[3]) + 
       (32753*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/1458 - 
       (199051*Zeta[3])/4860 - (32753*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/972 - 
       (299*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/108) + 
     x^2*(-332099/103680 - (203021*Pi^2)/77760 + (79*Pi^4)/9720 + 
       (66313*Im[PolyLog[2, E^((I/3)*Pi)]])/(360*Sqrt[3]) - 
       (450943*Zeta[3])/3240 - 
       (37*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/108) + 
     x*(1736297/311040 - (1947473*Pi^2)/1166400 + (277*Pi^4)/9720 + 
       (25367*Im[PolyLog[2, E^((I/3)*Pi)]])/(1080*Sqrt[3]) - 
       (98693*Zeta[3])/3240 - 
       (7*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/108) + 
     Log[x^2]*(x^3*(-84407/1296 + (467*Pi^2)/648 + 
         (32753*Im[PolyLog[2, E^((I/3)*Pi)]])/(162*Sqrt[3]) + 
         (8*Zeta[3])/3) + x^4*(-284713/2592 + (281*Pi^2)/432 + 
         (137437*Im[PolyLog[2, E^((I/3)*Pi)]])/(324*Sqrt[3]) + 
         (20*Zeta[3])/3) + x^5*(-3760498/6075 + (275*Pi^2)/24 + 
         (1021483*Im[PolyLog[2, E^((I/3)*Pi)]])/(486*Sqrt[3]) + 
         (80*Zeta[3])/3) + x^6*(-5028481/4860 + (37723*Pi^2)/1944 + 
         (629237*Im[PolyLog[2, E^((I/3)*Pi)]])/(162*Sqrt[3]) + 
         (160*Zeta[3])/3) + x^7*(-75344489609/21432600 + (32435*Pi^2)/216 + 
         (50168695*Im[PolyLog[2, E^((I/3)*Pi)]])/(4374*Sqrt[3]) + 
         (400*Zeta[3])/3) + x^8*(-55741560629/9525600 + (274825*Pi^2)/972 + 
         (14128991*Im[PolyLog[2, E^((I/3)*Pi)]])/(729*Sqrt[3]) + 
         (700*Zeta[3])/3) + x^9*(-18137101505723/1234517760 + 
         (10726601*Pi^2)/7776 + (6988594765*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (157464*Sqrt[3]) + (1400*Zeta[3])/3))
 
CbarData["s", 2, 2, "b"] = 3.402 - 12.616*Sqrt[x] + 1.369*x + 
     36.008*x^(3/2) - 36.531*x^2 + 8.474*x^3
 
CbarData["s", 2, 2, "c"] = 128836427803/15676416000 + 
     nl*(599/40500 - (16507*(-1 + x))/567000 + (1265797*(-1 + x)^2)/
        33339600 - (142847*(-1 + x)^3)/3704400 + (6203065013*(-1 + x)^4)/
        198037224000 - (958012613*(-1 + x)^5)/49509306000 + 
       (499540722881*(-1 + x)^6)/77878138338000 + (1439084054357*(-1 + x)^7)/
        311512553352000 - (3896260649889539*(-1 + x)^8)/315873729098928000 + 
       (435807339551621*(-1 + x)^9)/26322810758244000) + 
     (-1 + x)^8*(2114017673963873862933965484529/46370465590909253713920000 - 
       (203818391187860451*Zeta[3])/5374077829120) + 
     (-1 + x)^6*(444878009323991835713591/41758540970065920000 - 
       (334891983481519*Zeta[3])/37786484736) + 
     (-1 + x)^4*(8817402451976941/4916124057600 - (2710928770819*Zeta[3])/
        1816657920) + (-1 + x)^2*(330624786915449/1638708019200 - 
       (35692302337*Zeta[3])/212336640) - (320862971*Zeta[3])/46448640 + 
     (-1 + x)*(-18355857229/1119744000 + (320862971*Zeta[3])/23224320) + 
     (-1 + x)^3*(-2774452433239777/4916124057600 + (698200273717*Zeta[3])/
        1486356480) + (-1 + x)^5*(-619016521348176811/135193411584000 + 
       (31139779636187*Zeta[3])/8174960640) + 
     (-1 + x)^7*(-190386292646473902154391/8351708194013184000 + 
       (10748788775464037*Zeta[3])/566797271040) + 
     (-1 + x)^9*(-5994627948977983921030616085241/
        69555698386363880570880000 + (15604926676105353721*Zeta[3])/
        217650152079360)
 
CbarData["s", 2, 2, "l"] = 
    Log[imu^2]^2*(((-5 + 2*nl)*(1 - 4*x - 7*x^2 - 40*x^3 - 7*x^4 - 4*x^5 + 
          x^6))/(72*(-1 + x)^6*(1 + x)^4) + ((-5 + 2*nl)*x^3*(2 + x + 2*x^2)*
         Log[x])/(3*(-1 + x)^7*(1 + x)^5)) + 
     Log[imu^2]*((-263 + 14*nl + (20*Pi^2)/3 - (8*nl*Pi^2)/3 + 752*x + 
         64*nl*x - (80*Pi^2*x)/3 + (32*nl*Pi^2*x)/3 + 1311*x^2 + 114*nl*x^2 - 
         (20*Pi^2*x^2)/3 + (8*nl*Pi^2*x^2)/3 + 10560*x^3 - 576*nl*x^3 + 
         1311*x^4 + 114*nl*x^4 + (20*Pi^2*x^4)/3 - (8*nl*Pi^2*x^4)/3 + 
         752*x^5 + 64*nl*x^5 + (80*Pi^2*x^5)/3 - (32*nl*Pi^2*x^5)/3 - 
         263*x^6 + 14*nl*x^6 - (20*Pi^2*x^6)/3 + (8*nl*Pi^2*x^6)/3)/
        (432*(-1 + x)^6*(1 + x)^4) - (x^2*(-10 + 4*nl + 2278*x - 364*nl*x + 
          969*x^2 - 114*nl*x^2 + 2818*x^3 - 580*nl*x^3 + 110*x^4 - 
          44*nl*x^4 + 60*x^5 - 24*nl*x^5 - 15*x^6 + 6*nl*x^6)*Log[x])/
        (54*(-1 + x)^7*(1 + x)^5) + ((-5 + 2*nl)*x^3*(-72 - 36*x - 216*x^2 - 
          68*x^3 - 136*x^4 - 3*x^5 - 4*x^6 + x^7)*Log[x]^2)/
        (27*(-1 + x)^8*(1 + x)^6) - ((-5 + 2*nl)*(1 - 4*x - 4*x^3 + x^4)*
         Log[x^2]*Log[1 - x^2])/(54*(-1 + x)^5*(1 + x)^3)) - 
     ((-5 + 2*nl)*(1 - 4*x - 4*x^3 + x^4)*Log[imu^2]*PolyLog[2, x^2])/
      (54*(-1 + x)^5*(1 + x)^3)
 
CbarData["s", 2, 3, "a"] = 66767/291600 + (262841*Pi^2)/1458000 - 
     (67*Pi^4)/12150 + (148627*Im[PolyLog[2, E^((I/3)*Pi)]])/(8100*Sqrt[3]) + 
     ((-544*x^3)/45 - (70*x^4)/3 - (21673*x^5)/90 - (242087*x^6)/486 - 
       (5121203*x^7)/2835 - (12900221*x^8)/3780 - (14195839*x^9)/9720)*
      Log[x^2]^2 + ((-158*x^3)/9 - (158*x^4)/3 - (3680*x^5)/9 - 
       (253810*x^6)/243 - (340315*x^7)/81 - (1516319*x^8)/162 - 
       (6368768*x^9)/243)*Log[x^2]^3 + 
     x^2*(2799419/72900 - (271931*Pi^2)/162000 - (19*Pi^4)/4050 + 
       (23174411*Im[PolyLog[2, E^((I/3)*Pi)]])/(72900*Sqrt[3]) + 
       (Pi^4/24 + 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 - 6*Zeta[3])/3 - 
       (151858*Zeta[3])/675) + nl*(473/19440 + Pi^2/8100 + 
       ((-1568/135 - (8*Pi^2)/9)*x^3 + (-2917/90 - (8*Pi^2)/3)*x^4 + 
         (-5759/30 - (140*Pi^2)/9)*x^5 + (-2659/6 - (3040*Pi^2)/81)*x^6 + 
         (-611294/405 - (3440*Pi^2)/27)*x^7 + 
         (-9911539/3240 - (7181*Pi^2)/27)*x^8 + 
         (-25598377/3240 - (18557*Pi^2)/27)*x^9)*Log[x^2] + 
       ((-20*x^3)/9 - (20*x^4)/3 - (370*x^5)/9 - (2680*x^6)/27 - 
         (3160*x^7)/9 - (26423*x^8)/36 - (23471*x^9)/12)*Log[x^2]^2 + 
       ((4*x^3)/9 + (4*x^4)/3 + (80*x^5)/9 + (1780*x^6)/81 + (2180*x^7)/27 + 
         (4661*x^8)/27 + (12677*x^9)/27)*Log[x^2]^3 + 
       x^9*(113571223/38880 - (316247*Pi^2)/324 - (75208*Zeta[3])/9) + 
       x^8*(39381181/38880 - (137225*Pi^2)/324 - (29224*Zeta[3])/9) + 
       x^7*(502244/1215 - (17252*Pi^2)/81 - (14080*Zeta[3])/9) + 
       x^6*(292561/2430 - (17758*Pi^2)/243 - (12560*Zeta[3])/27) + 
       x^5*(95363/2430 - (850*Pi^2)/27 - (1760*Zeta[3])/9) + 
       x^4*(35429/2430 - (518*Pi^2)/75 - (1552*Zeta[3])/45) + 
       x^3*(5086/1215 - (508*Pi^2)/225 - (544*Zeta[3])/45) + 
       x^2*(43897/19440 - (29*Pi^2)/300 - (4*Zeta[3])/45) + 
       x*(10603/19440 + Pi^2/300 - (4*Zeta[3])/45) + (4*Zeta[3])/135) - 
     (3902*Zeta[3])/405 + (-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 
       6*Zeta[3])/135 + x^9*(78612676982369/5290790400 - 
       (114637232103197*Pi^2)/1653372000 - (63988282109*Pi^4)/70858800 - 
       (55810469159*Im[PolyLog[2, E^((I/3)*Pi)]])/(78732*Sqrt[3]) + 
       (6802134574*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/295245 + 
       (179958041323*Zeta[3])/984150 - 
       (3401067287*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/98415 - 
       (163541*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        135) + x^8*(3481960328243387/486091368000 - (824723632087631*Pi^2)/
        29760696000 - (175310302817*Pi^4)/510183360 - 
       (1050573850417*Im[PolyLog[2, E^((I/3)*Pi)]])/(4251528*Sqrt[3]) + 
       (46471893031*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/5314410 + 
       (2067644487473*Zeta[3])/35429400 - 
       (46471893031*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/3542940 - 
       (8344*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/15) + 
     x^7*(31438357977127/6751269000 - (6092369731783*Pi^2)/413343000 - 
       (6422834123*Pi^4)/35429400 - 
       (40450867537*Im[PolyLog[2, E^((I/3)*Pi)]])/(295245*Sqrt[3]) + 
       (274147588*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/59049 + 
       (16187149909*Zeta[3])/492075 - 
       (137073794*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/19683 - 
       (12517*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        45) + x^6*(1380914021/820125 - (599406207521*Pi^2)/137781000 - 
       (309556541*Pi^4)/5904900 - (6372056323*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (196830*Sqrt[3]) + (131542216*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/98415 + 
       (809877848*Zeta[3])/164025 - (65771108*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/32805 - 
       (14071*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        135) + x^5*(9193854553/8748000 - (128216762501*Pi^2)/61236000 - 
       (129370873*Pi^4)/5248800 - (62877944*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (3645*Sqrt[3]) + (7002643*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/10935 + 
       (219251453*Zeta[3])/72900 - (7002643*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/7290 - 
       (1997*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/45) + 
     x^4*(877642441/2624400 - (33319793453*Pi^2)/91854000 - 
       (6521219*Pi^4)/1574640 - (70536637*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (65610*Sqrt[3]) + (3497498*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/32805 - 
       (79682377*Zeta[3])/109350 - (1748749*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/10935 - 
       (517*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/45) + 
     x^3*(26610889/145800 - (260958983*Pi^2)/1701000 - (347647*Pi^4)/218700 - 
       (1144369*Im[PolyLog[2, E^((I/3)*Pi)]])/(1350*Sqrt[3]) + 
       (32248*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/729 - 
       (770852*Zeta[3])/6075 - (16124*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/243 - 
       (499*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/135) + 
     x*(6697163/388800 - (54013*Pi^2)/54000 + (7*Pi^4)/405 + 
       (18167*Im[PolyLog[2, E^((I/3)*Pi)]])/(405*Sqrt[3]) - 
       (179989*Zeta[3])/4050 - 
       (2*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/45) + 
     Log[x^2]*(x^3*(-164581/1080 + (331*Pi^2)/270 + 
         (32248*Im[PolyLog[2, E^((I/3)*Pi)]])/(81*Sqrt[3]) + (8*Zeta[3])/3) + 
       x^4*(-1775539/5832 + (148*Pi^2)/81 + 
         (3497498*Im[PolyLog[2, E^((I/3)*Pi)]])/(3645*Sqrt[3]) + 8*Zeta[3]) + 
       x^5*(-97981319/48600 + (8303*Pi^2)/324 + 
         (7002643*Im[PolyLog[2, E^((I/3)*Pi)]])/(1215*Sqrt[3]) + 
         40*Zeta[3]) + x^6*(-1657216493/437400 + (41419*Pi^2)/810 + 
         (131542216*Im[PolyLog[2, E^((I/3)*Pi)]])/(10935*Sqrt[3]) + 
         (280*Zeta[3])/3) + x^7*(-917856986821/64297800 + (328111*Pi^2)/810 + 
         (274147588*Im[PolyLog[2, E^((I/3)*Pi)]])/(6561*Sqrt[3]) + 
         280*Zeta[3]) + x^8*(-14917420622617/578680200 + (916549*Pi^2)/1080 + 
         (46471893031*Im[PolyLog[2, E^((I/3)*Pi)]])/(590490*Sqrt[3]) + 
         560*Zeta[3]) + x^9*(-28539918673/419904 + (2283053*Pi^2)/486 + 
         (6802134574*Im[PolyLog[2, E^((I/3)*Pi)]])/(32805*Sqrt[3]) + 
         (3920*Zeta[3])/3))
 
CbarData["s", 2, 3, "b"] = 1.367 - 6.425*Sqrt[x] + 1.431*x + 22.797*x^(3/2) - 
     26.172*x^2 + 7.1850000000000005*x^3
 
CbarData["s", 2, 3, "c"] = 30656515120363/2275983360000 + 
     nl*(4072079/1666980000 - (13019627*(-1 + x))/1666980000 + 
       (524809871*(-1 + x)^2)/35363790000 - (1500221917*(-1 + x)^3)/
        70727580000 + (38583008657411*(-1 + x)^4)/1557562766760000 - 
       (38177132874739*(-1 + x)^5)/1557562766760000 + 
       (16386392863985929*(-1 + x)^6)/789684322747320000 - 
       (645221459501833*(-1 + x)^7)/43871351263740000 + 
       (23463452284399319*(-1 + x)^8)/2983251885934320000 - 
       (5700908876701427*(-1 + x)^9)/3835609567629840000) + 
     (-1 + x)^8*(72204017447845526508613654675258243/
        252255332814546340203724800000 - (1392287430588433404709*Zeta[3])/
        5846996678082560) + (-1 + x)^6*(864209505280869430521935914151/
        16560880568181876326400000 - (1049852465596061279*Zeta[3])/
        24183350231040) + (-1 + x)^4*(52101536182802211250721/
        7954007803822080000 - (61774375115699711*Zeta[3])/11335945420800) + 
     (-1 + x)^2*(55981290305190893/112661176320000 - (402376781467*Zeta[3])/
        973209600) - (13889108467*Zeta[3])/1238630400 + 
     (-1 + x)*(-275799003386947/6827950080000 + (13889108467*Zeta[3])/
        412876800) + (-1 + x)^3*(-202692205657392013/112661176320000 + 
       (1456726932731*Zeta[3])/973209600) + 
     (-1 + x)^5*(-217600307444872439849831/11135610925350912000 + 
       (184281586269608059*Zeta[3])/11335945420800) + 
     (-1 + x)^7*(-1051199226347144700775629102853/8280440284090938163200000 + 
       (19155110515410097699*Zeta[3])/181375126732800) + 
     (-1 + x)^9*(-3117947171619425530352882977926181/
        5148068016623394698035200000 + (56815655201025764790787*Zeta[3])/
        112763507363020800)
 
CbarData["s", 2, 3, "l"] = 
    Log[imu^2]^2*(((19 + 2*nl)*(1 - 5*x - 14*x^2 - 145*x^3 - 94*x^4 - 
          145*x^5 - 14*x^6 - 5*x^7 + x^8))/(90*(-1 + x)^8*(1 + x)^6) + 
       (4*(19 + 2*nl)*x^3*(1 + x + 3*x^2 + x^3 + x^4)*Log[x])/
        (3*(-1 + x)^9*(1 + x)^7)) + Log[imu^2]*
      ((-1459 + 142*nl - 76*Pi^2 - 8*nl*Pi^2 + 12501*x - 162*nl*x + 
         380*Pi^2*x + 40*nl*Pi^2*x + 35854*x^2 - 364*nl*x^2 + 152*Pi^2*x^2 + 
         16*nl*Pi^2*x^2 + 213759*x^3 - 20358*nl*x^3 + 1140*Pi^2*x^3 + 
         120*nl*Pi^2*x^3 + 181986*x^4 - 8628*nl*x^4 + 213759*x^5 - 
         20358*nl*x^5 - 1140*Pi^2*x^5 - 120*nl*Pi^2*x^5 + 35854*x^6 - 
         364*nl*x^6 - 152*Pi^2*x^6 - 16*nl*Pi^2*x^6 + 12501*x^7 - 
         162*nl*x^7 - 380*Pi^2*x^7 - 40*nl*Pi^2*x^7 - 1459*x^8 + 142*nl*x^8 + 
         76*Pi^2*x^8 + 8*nl*Pi^2*x^8)/(3240*(-1 + x)^8*(1 + x)^6) - 
       (2*x^2*(19 + 2*nl - 827*x - 826*nl*x + 674*x^2 - 668*nl*x^2 - 
          8561*x^3 - 3118*nl*x^3 - 3886*x^4 - 1148*nl*x^4 - 8807*x^5 - 
          1666*nl*x^5 - 836*x^6 - 88*nl*x^6 - 285*x^7 - 30*nl*x^7 + 57*x^8 + 
          6*nl*x^8)*Log[x])/(135*(-1 + x)^9*(1 + x)^7) + 
       (2*(19 + 2*nl)*x^3*(-180 - 180*x - 1260*x^2 - 800*x^3 - 1940*x^4 - 
          535*x^5 - 545*x^6 - 4*x^7 - 5*x^8 + x^9)*Log[x]^2)/
        (135*(-1 + x)^10*(1 + x)^8) - ((19 + 2*nl)*(1 - 5*x - x^2 - 20*x^3 - 
          x^4 - 5*x^5 + x^6)*Log[x^2]*Log[1 - x^2])/(135*(-1 + x)^7*
         (1 + x)^5)) - ((19 + 2*nl)*(1 - 5*x - x^2 - 20*x^3 - x^4 - 5*x^5 + 
        x^6)*Log[imu^2]*PolyLog[2, x^2])/(135*(-1 + x)^7*(1 + x)^5)
 
CbarData["s", 2, 4, "a"] = -6557291/24494400 + (376447*Pi^2)/4465125 - 
     (67*Pi^4)/24300 + (16739207*Im[PolyLog[2, E^((I/3)*Pi)]])/
      (765450*Sqrt[3]) + ((-296*x^3)/9 - (4256*x^4)/45 - (55057*x^5)/60 - 
       (1154677*x^6)/486 - (173508157*x^7)/17010 - (453434431*x^8)/19440)*
      Log[x^2]^2 + ((-158*x^3)/9 - (553*x^4)/9 - 587*x^5 - (417551*x^6)/243 - 
       (1988476*x^7)/243 - (6667801*x^8)/324)*Log[x^2]^3 + 
     x*(58567921/2449440 - (61048483*Pi^2)/95256000 + (283*Pi^4)/24300 + 
       (53930039*Im[PolyLog[2, E^((I/3)*Pi)]])/(680400*Sqrt[3]) + 
       (Pi^4/24 + 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 - 6*Zeta[3])/30 - 
       (5382991*Zeta[3])/85050) + nl*(3743/116640 + (137*Pi^2)/113400 + 
       ((-9179/540 - (10*Pi^2)/9)*x^3 + (-3989/72 - (35*Pi^2)/9)*x^4 + 
         (-103433/270 - (80*Pi^2)/3)*x^5 + (-4881557/4860 - (5930*Pi^2)/81)*
          x^6 + (-19015753/4860 - (23170*Pi^2)/81)*x^7 + 
         (-172020769/19440 - (108311*Pi^2)/162)*x^8)*Log[x^2] + 
       ((-20*x^3)/9 - (70*x^4)/9 - (175*x^5)/3 - (4355*x^6)/27 - 
         (6055*x^7)/9 - (114191*x^8)/72)*Log[x^2]^2 + 
       ((4*x^3)/9 + (14*x^4)/9 + (38*x^5)/3 + (2906*x^6)/81 + 
         (12586*x^7)/81 + (60683*x^8)/162)*Log[x^2]^3 + 
       x^8*(24738733/233280 - (2390873*Pi^2)/1944 - (220052*Zeta[3])/27) + 
       x^7*(-3554213/14580 - (134506*Pi^2)/243 - (94640*Zeta[3])/27) + 
       x^6*(-3599957/29160 - (279269*Pi^2)/1701 - (24400*Zeta[3])/27) + 
       x^5*(-15037/180 - (11827*Pi^2)/189 - (1000*Zeta[3])/3) + 
       x^4*(-54941/5832 - (4399*Pi^2)/378 - (1340*Zeta[3])/27) + 
       x^3*(-75457/14580 - (1894*Pi^2)/567 - (400*Zeta[3])/27) + 
       x^2*(47143/29160 - (1726*Pi^2)/14175 - (8*Zeta[3])/135) + 
       x*(961/2916 - (41*Pi^2)/14175 - (8*Zeta[3])/135) + (2*Zeta[3])/135) - 
     (24523*Zeta[3])/2268 + (-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 
       6*Zeta[3])/270 + x^8*(192115149712954277/9999593856000 - 
       (23843700215080801*Pi^2)/267846264000 - (12919350183643*Pi^4)/
        11479125600 - (362495147523391*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (478296900*Sqrt[3]) + (135718456421*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/4782969 + 
       (28945815189749*Zeta[3])/159432300 - 
       (135718456421*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/3188646 - 
       (67298*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        45) + x^7*(117865307390036273/11666192832000 - 
       (1915732376937349*Pi^2)/44641044000 - (4124477784883*Pi^4)/
        7652750400 - (241170588356543*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (637729200*Sqrt[3]) + (43563535325*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/3188646 + 
       (9837365455679*Zeta[3])/106288200 - 
       (43563535325*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/2125764 - 
       (178997*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        270) + x^6*(1132909176281783/238085568000 - (427453794714643*Pi^2)/
        39060913500 - (1040864779721*Pi^4)/7652750400 - 
       (334689029451061*Im[PolyLog[2, E^((I/3)*Pi)]])/(4464104400*Sqrt[3]) + 
       (54518927843*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/15943230 + 
       (1166597217637*Zeta[3])/106288200 - 
       (54518927843*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/10628820 - 
       (19187*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        90) + x^5*(58053371573317/26453952000 - (40943896148063*Pi^2)/
        8680203000 - (48983466653*Pi^4)/850305600 - 
       (17621518415989*Im[PolyLog[2, E^((I/3)*Pi)]])/(496011600*Sqrt[3]) + 
       (2604503519*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/1771470 + 
       (506007698047*Zeta[3])/82668600 - 
       (2604503519*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/1180980 - 
       (7109*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/90) + 
     x^4*(7471099315/8817984 - (7906954226051*Pi^2)/11573604000 - 
       (2356844213*Pi^4)/283435200 - 
       (183701905273*Im[PolyLog[2, E^((I/3)*Pi)]])/(165337200*Sqrt[3]) + 
       (122955383*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/590490 - 
       (46167513269*Zeta[3])/27556200 - 
       (122955383*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/393660 - 
       (2299*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        135) + x^3*(4529703989/13778100 - (5876124643679*Pi^2)/23147208000 - 
       (409826231*Pi^4)/141717600 - 
       (169858760903*Im[PolyLog[2, E^((I/3)*Pi)]])/(165337200*Sqrt[3]) + 
       (4518817*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/59049 - 
       (4440371429*Zeta[3])/13778100 - 
       (4518817*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/39366 - 
       (139*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/30) + 
     x^2*(76412341/1020600 - (1821623*Pi^2)/1632960 - (277*Pi^4)/24300 + 
       (130582735*Im[PolyLog[2, E^((I/3)*Pi)]])/(244944*Sqrt[3]) - 
       (9893113*Zeta[3])/28350 - 
       (89*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/270) + 
     Log[x^2]*(x^3*(-41912101/131220 + (313*Pi^2)/180 + 
         (4518817*Im[PolyLog[2, E^((I/3)*Pi)]])/(6561*Sqrt[3]) + 
         (8*Zeta[3])/3) + x^4*(-50172529/65610 + (1243*Pi^2)/360 + 
         (122955383*Im[PolyLog[2, E^((I/3)*Pi)]])/(65610*Sqrt[3]) + 
         (28*Zeta[3])/3) + x^5*(-181088691817/31492800 + (51121*Pi^2)/1080 + 
         (2604503519*Im[PolyLog[2, E^((I/3)*Pi)]])/(196830*Sqrt[3]) + 
         56*Zeta[3]) + x^6*(-3511154354923/283435200 + (1054781*Pi^2)/9720 + 
         (54518927843*Im[PolyLog[2, E^((I/3)*Pi)]])/(1771470*Sqrt[3]) + 
         (448*Zeta[3])/3) + x^7*(-714507414000893/13888324800 + 
         (8809063*Pi^2)/9720 + (43563535325*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (354294*Sqrt[3]) + (1568*Zeta[3])/3) + 
       x^8*(-1224075767726867/11904278400 + (566851*Pi^2)/270 + 
         (135718456421*Im[PolyLog[2, E^((I/3)*Pi)]])/(531441*Sqrt[3]) + 
         1176*Zeta[3]))
 
CbarData["s", 2, 4, "b"] = 0.464 - 2.926*Sqrt[x] + 1.029*x + 
     12.014000000000001*x^(3/2) - 14.932*x^2 + 4.492*x^3
 
CbarData["s", 2, 4, "c"] = 677767087706703829/32446418780160000 + 
     nl*(1436856269/2970558360000 - (3109903633*(-1 + x))/1485279180000 + 
       (23915518533359*(-1 + x)^2)/4672688300280000 - 
       (1072368545977*(-1 + x)^3)/116817207507000 + 
       (4214755785816263*(-1 + x)^4)/315873729098928000 - 
       (6524729743152347*(-1 + x)^5)/394842161373660000 + 
       (14157933982180661*(-1 + x)^6)/789684322747320000 - 
       (232006193398891451*(-1 + x)^7)/13424633486704440000 + 
       (874571830172277678941*(-1 + x)^8)/58971729980395264032000 - 
       (82270419575532999929*(-1 + x)^9)/7371466247549408004000) + 
     (-1 + x)^8*(68940339920847951575518988748529568503/
        51942526218175273277199482880000 - (3104894503290095350268531*
         Zeta[3])/2812039964865331200) + (-1 + x)^6*
      (24037716423253847221346118703994851/123553632398961472752844800000 - 
       (3066131347900374283747187*Zeta[3])/18944269236987494400) + 
     (-1 + x)^4*(1008896426992552012410892012483/52994817818182004244480000 - 
       (3030382329683458273*Zeta[3])/191340793036800) + 
     (-1 + x)^2*(1404844090780998320829011/1336273311042109440000 - 
       (33993095888172701*Zeta[3])/38866098585600) - 
     (11365992529207*Zeta[3])/653996851200 + 
     (-1 + x)*(-677743026071693269/8111604695040000 + 
       (11365992529207*Zeta[3])/163499212800) + 
     (-1 + x)^3*(-1237373402750869531055123/267254662208421888000 + 
       (41916430772861647*Zeta[3])/10882507603968) + 
     (-1 + x)^5*(-5141166668122998657185244209659/
        79492226727273006366720000 + (468415855310622651473*Zeta[3])/
        8706006083174400) + (-1 + x)^7*(-152643770498311895370670888369792913/
        288291808930910103089971200000 + (8344488144433690355055077*Zeta[3])/
        18944269236987494400) + (-1 + x)^9*
      (-469197645242433239044466735591039898179/
        151105530816509885897307586560000 + (33206559079771209909959891*
         Zeta[3])/12855039839384371200)
 
CbarData["s", 2, 4, "l"] = 
    Log[imu^2]^2*(((43 + 2*nl)*(1 - 6*x - 23*x^2 - 356*x^3 - 398*x^4 - 
          956*x^5 - 398*x^6 - 356*x^7 - 23*x^8 - 6*x^9 + x^10))/
        (120*(-1 + x)^10*(1 + x)^8) + ((43 + 2*nl)*x^3*(2 + 3*x + 12*x^2 + 
          8*x^3 + 12*x^4 + 3*x^5 + 2*x^6)*Log[x])/((-1 + x)^11*(1 + x)^9)) + 
     Log[imu^2]*((-1130 + 392*nl - 258*Pi^2 - 12*nl*Pi^2 + 31161*x - 
         1218*nl*x + 1548*Pi^2*x + 72*nl*Pi^2*x + 128373*x^2 - 4254*nl*x^2 + 
         774*Pi^2*x^2 + 36*nl*Pi^2*x^2 + 504276*x^3 - 134808*nl*x^3 + 
         12384*Pi^2*x^3 + 576*nl*Pi^2*x^3 + 1167281*x^4 - 122642*nl*x^4 + 
         4128*Pi^2*x^4 + 192*nl*Pi^2*x^4 + 1370358*x^5 - 361260*nl*x^5 + 
         1167281*x^6 - 122642*nl*x^6 - 4128*Pi^2*x^6 - 192*nl*Pi^2*x^6 + 
         504276*x^7 - 134808*nl*x^7 - 12384*Pi^2*x^7 - 576*nl*Pi^2*x^7 + 
         128373*x^8 - 4254*nl*x^8 - 774*Pi^2*x^8 - 36*nl*Pi^2*x^8 + 
         31161*x^9 - 1218*nl*x^9 - 1548*Pi^2*x^9 - 72*nl*Pi^2*x^9 - 
         1130*x^10 + 392*nl*x^10 + 258*Pi^2*x^10 + 12*nl*Pi^2*x^10)/
        (9720*(-1 + x)^10*(1 + x)^8) - 
       (x^2*(86 + 4*nl - 39996*x - 4824*nl*x - 39010*x^2 - 6260*nl*x^2 - 
          338274*x^3 - 33516*nl*x^3 - 233514*x^4 - 22716*nl*x^4 - 
          570474*x^5 - 44316*nl*x^5 - 184135*x^6 - 13010*nl*x^6 - 
          175446*x^7 - 11124*nl*x^7 - 9202*x^8 - 428*nl*x^8 - 2322*x^9 - 
          108*nl*x^9 + 387*x^10 + 18*nl*x^10)*Log[x])/(270*(-1 + x)^11*
         (1 + x)^9) + ((43 + 2*nl)*x^3*(-360 - 540*x - 4500*x^2 - 4400*x^3 - 
          13200*x^4 - 7055*x^5 - 9810*x^6 - 2169*x^7 - 1476*x^8 - 5*x^9 - 
          6*x^10 + x^11)*Log[x]^2)/(135*(-1 + x)^12*(1 + x)^10) - 
       ((43 + 2*nl)*(1 - 6*x - 2*x^2 - 54*x^3 - 18*x^4 - 54*x^5 - 2*x^6 - 
          6*x^7 + x^8)*Log[x^2]*Log[1 - x^2])/(270*(-1 + x)^9*(1 + x)^7)) - 
     ((43 + 2*nl)*(1 - 6*x - 2*x^2 - 54*x^3 - 18*x^4 - 54*x^5 - 2*x^6 - 
        6*x^7 + x^8)*Log[imu^2]*PolyLog[2, x^2])/(270*(-1 + x)^9*(1 + x)^7)
 
CbarData["v", 2, -1, "a"] = -18971/1296 + (2881*Pi^2)/972 - (17*Pi^4)/162 - 
     (49*Im[PolyLog[2, E^((I/3)*Pi)]])/(2*Sqrt[3]) + 
     (-53/18 + (53*x)/9 - (53*x^2)/18)*Log[imu^2]^3 + 
     ((-424*x^3)/9 + (218*x^4)/9 - (1949*x^5)/30 + (11096*x^6)/405 - 
       (155783*x^7)/1890 + (323783*x^8)/11340 - (3736193*x^9)/30240)*
      Log[x^2]^2 + ((158*x^3)/9 - (79*x^4)/9 + (289*x^5)/9 - (1046*x^6)/81 + 
       (3832*x^7)/81 - (2665*x^8)/162 + (18641*x^9)/324)*Log[x^2]^3 + 
     Log[imu^2]^2*(-245/36 + (202*x)/9 - (245*x^2)/36 + 
       ((53*x^3)/3 - (53*x^4)/6 + (53*x^5)/3 - (53*x^6)/6 + (53*x^7)/3 - 
         (53*x^8)/6 + (53*x^9)/3)*Log[x^2]) + 
     (4*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + (2*Log[2]^4)/3 + 
        16*PolyLog[4, 1/2]))/9 + (101*Zeta[3])/27 + 
     (-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3])/18 + 
     x^2*(-36581/1296 - (3415*Pi^2)/1944 + (121*Pi^4)/1620 - 
       (125*Im[PolyLog[2, E^((I/3)*Pi)]])/(2*Sqrt[3]) + 
       (4*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + (2*Log[2]^4)/3 + 
          16*PolyLog[4, 1/2]))/9 + (1189*Zeta[3])/54) + 
     Log[imu^2]*(-745/72 + (53*Pi^2)/54 + (53*x^4)/12 + (265*x^6)/324 + 
       (371*x^8)/1296 + ((404*x^3)/9 - (202*x^4)/9 + (404*x^5)/9 - 
         (553*x^6)/27 + (404*x^7)/9 - (2159*x^8)/108 + (404*x^9)/9)*
        Log[x^2] + ((-106*x^3)/3 + (53*x^4)/3 - 53*x^5 + (212*x^6)/9 - 
         (212*x^7)/3 + (265*x^8)/9 - (265*x^9)/3)*Log[x^2]^2 + 
       x*(2083/36 - 2*Zeta[3]) + Zeta[3] + x^2*(-1169/72 - (53*Pi^2)/54 + 
         Zeta[3])) + x^8*(663426236939/12002256000 - (4477439*Pi^2)/279936 - 
       (756523*Pi^4)/4199040 - (1178279*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (3888*Sqrt[3]) + (39817*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/8748 + 
       (1162915*Zeta[3])/11664 - (39817*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/5832) + 
     x^6*(224386793/5832000 - (34685*Pi^2)/3888 - (3173*Pi^4)/29160 - 
       (17512*Im[PolyLog[2, E^((I/3)*Pi)]])/(81*Sqrt[3]) + 
       (668*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/243 + 
       (5815*Zeta[3])/81 - (334*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/81) + 
     x^4*(185201/5184 - (6785*Pi^2)/1728 - (247*Pi^4)/5184 - 
       (406*Im[PolyLog[2, E^((I/3)*Pi)]])/(3*Sqrt[3]) + 
       (65*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/54 + 
       (8893*Zeta[3])/216 - (65*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/36) + 
     Log[x^2]*(x^9*(3626900897/19051200 - (26177*Pi^2)/1296 - 
         (12281*Im[PolyLog[2, E^((I/3)*Pi)]])/(108*Sqrt[3]) - 
         (8*Zeta[3])/3) + x^7*(34124218/297675 - (2003*Pi^2)/324 - 
         (2137*Im[PolyLog[2, E^((I/3)*Pi)]])/(27*Sqrt[3]) - (8*Zeta[3])/3) + 
       x^5*(302609/3600 - (277*Pi^2)/216 - (287*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (6*Sqrt[3]) - (8*Zeta[3])/3) + x^3*(7631/108 + (13*Pi^2)/108 - 
         7*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - (8*Zeta[3])/3) + 
       x^4*(-9563/216 + (101*Pi^2)/216 + (65*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (6*Sqrt[3]) + (4*Zeta[3])/3) + x^6*(-1362469/32400 + 
         (329*Pi^2)/324 + (668*Im[PolyLog[2, E^((I/3)*Pi)]])/(27*Sqrt[3]) + 
         (4*Zeta[3])/3) + x^8*(-458337641/9525600 + (3481*Pi^2)/1296 + 
         (39817*Im[PolyLog[2, E^((I/3)*Pi)]])/(972*Sqrt[3]) + 
         (4*Zeta[3])/3)) + x*(46697/648 + (149*Pi^2)/1944 + (23*Pi^4)/540 + 
       13*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
       (8*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + (2*Log[2]^4)/3 + 
          16*PolyLog[4, 1/2]))/9 - (53*Zeta[3])/54 + 
       (-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3])/6) + 
     x^3*(-47327/2592 + (16969*Pi^2)/2592 + (367*Pi^4)/4320 + 
       (311*Im[PolyLog[2, E^((I/3)*Pi)]])/(2*Sqrt[3]) - 
       (7*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/3 - 
       (1757*Zeta[3])/36 + (7*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/2 + (2*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^
            2 + 6*Zeta[3]))/9) + x^5*(-4900733/108000 + (154487*Pi^2)/8640 + 
       (5261*Pi^4)/25920 + (1723*Im[PolyLog[2, E^((I/3)*Pi)]])/(6*Sqrt[3]) - 
       (287*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/54 - 
       (20291*Zeta[3])/216 + (287*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/36 + 
       (2*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/9) + 
     x^7*(-88669259317/1000188000 + (401603*Pi^2)/12960 + 
       (39739*Pi^4)/116640 + (7771*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (18*Sqrt[3]) - (2137*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/243 - 
       (41539*Zeta[3])/324 + (2137*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/162 + 
       (2*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/9) + 
     x^9*(-1375999816519/12002256000 + (40665353*Pi^2)/1088640 + 
       (229883*Pi^4)/466560 + (6823289*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (11664*Sqrt[3]) - (12281*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/972 - 
       (55177*Zeta[3])/432 + (12281*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/648 + 
       (2*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/9) + 
     nl*(73/72 - (7*Pi^2)/54 + (1/9 - (2*x)/9 + x^2/9)*Log[imu^2]^3 + 
       ((-5/2 + (2*Pi^2)/9)*x^3 + (5/4 - Pi^2/9)*x^4 + (-1/6 + (4*Pi^2)/9)*
          x^5 + (35/108 - (5*Pi^2)/27)*x^6 + (37/18 + (2*Pi^2)/3)*x^7 + 
         (-13/27 - (7*Pi^2)/27)*x^8 + (115/27 + (8*Pi^2)/9)*x^9)*Log[x^2] + 
       ((20*x^3)/9 - (10*x^4)/9 + 3*x^5 - (13*x^6)/9 + (34*x^7)/9 - 
         (16*x^8)/9 + (41*x^9)/9)*Log[x^2]^2 + 
       ((-4*x^3)/9 + (2*x^4)/9 - (2*x^5)/3 + (8*x^6)/27 - (8*x^7)/9 + 
         (10*x^8)/27 - (10*x^9)/9)*Log[x^2]^3 + Log[imu^2]^2*
        (7/18 - (10*x)/9 + (7*x^2)/18 + ((-2*x^3)/3 + x^4/3 - (2*x^5)/3 + 
           x^6/3 - (2*x^7)/3 + x^8/3 - (2*x^9)/3)*Log[x^2]) + 
       Log[imu^2]*(3/4 - Pi^2/27 - (19*x)/6 + (35/36 + Pi^2/27)*x^2 - x^4/6 - 
         (5*x^6)/162 - (7*x^8)/648 + ((-20*x^3)/9 + (10*x^4)/9 - (20*x^5)/9 + 
           (28*x^6)/27 - (20*x^7)/9 + (55*x^8)/54 - (20*x^9)/9)*Log[x^2] + 
         ((4*x^3)/3 - (2*x^4)/3 + 2*x^5 - (8*x^6)/9 + (8*x^7)/3 - 
           (10*x^8)/9 + (10*x^9)/3)*Log[x^2]^2) + 
       x^8*(3757/1296 - (11*Pi^2)/162 - (28*Zeta[3])/9) + 
       x^6*(553/324 - (5*Pi^2)/81 - (20*Zeta[3])/9) + 
       x*(-41/9 + Pi^2/9 - (16*Zeta[3])/9) + 
       x^4*(7/36 - Pi^2/27 - (4*Zeta[3])/3) + 
       x^2*(43/24 - Pi^2/54 + (4*Zeta[3])/9) + (4*Zeta[3])/3 + 
       x^3*(-2/3 + (2*Pi^2)/9 + (8*Zeta[3])/3) + 
       x^5*(-25/6 + (2*Pi^2)/9 + (16*Zeta[3])/3) + 
       x^7*(-200/27 + (2*Pi^2)/9 + 8*Zeta[3]) + 
       x^9*(-6883/648 + (2*Pi^2)/9 + (32*Zeta[3])/3))
 
CbarData["v", 2, -1, "b"] = 6.33243 - 31.3869*Sqrt[x] + 117.066*x - 
     138.926*x^(3/2) + 58.3543*x^3
 
CbarData["v", 2, -1, "c"] = ((7*(-1 + x)^2)/2 + (53*(-1 + x)^3)/6 - 
       (53*(-1 + x)^4)/30 + (53*(-1 + x)^5)/180 + (53*(-1 + x)^6)/840 - 
       (53*(-1 + x)^7)/420 + (106*(-1 + x)^8)/945 - (53*(-1 + x)^9)/630)*
      Log[imu^2]^2 - (53*(-1 + x)^2*Log[imu^2]^3)/18 + 
     nl*((65*(-1 + x)^3)/108 - (37*(-1 + x)^4)/180 - (169*(-1 + x)^5)/1080 + 
       (230723*(-1 + x)^6)/1134000 - (40577*(-1 + x)^7)/243000 + 
       (45883*(-1 + x)^8)/385875 - (2190743*(-1 + x)^9)/27783000 + 
       ((-65*(-1 + x)^2)/108 + (196*(-1 + x)^4)/405 - (23*(-1 + x)^5)/81 + 
         (2753*(-1 + x)^6)/18900 - (982*(-1 + x)^7)/14175 + 
         (2939*(-1 + x)^8)/99225 - (1319*(-1 + x)^9)/132300)*Log[imu^2] + 
       (-(-1 + x)^3/3 + (-1 + x)^4/15 - (-1 + x)^5/90 - (-1 + x)^6/420 + 
         (-1 + x)^7/210 - (4*(-1 + x)^8)/945 + (-1 + x)^9/315)*Log[imu^2]^2 + 
       ((-1 + x)^2*Log[imu^2]^3)/9 + (-1 + x)^2*(1/4 + (8*Zeta[3])/9)) + 
     (-1 + x)^9*(64550683043971/512096256000 - (1060372753*Zeta[3])/
        10321920) + (-1 + x)^7*(9358360241/163296000 - 
       (21102737*Zeta[3])/483840) + (-1 + x)^5*(730583/38880 - 
       (112847*Zeta[3])/8640) + (-1 + x)^2*(-53/54 - Pi^4/60 + 
       ((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + (2*Log[2]^4)/3 + 
         16*PolyLog[4, 1/2])/3 - (35*Zeta[3])/6) + 
     (-1 + x)^3*(-3739/216 - Zeta[3]) + (-1 + x)^4*(-267101/38880 + 
       (114287*Zeta[3])/8640) + (-1 + x)^6*(-12901493561/326592000 + 
       (9135347*Zeta[3])/322560) + (-1 + x)^8*(-44001135425377/512096256000 + 
       (423738109*Zeta[3])/6193152) + Log[imu^2]*(-7*(-1 + x)^3 - 
       (4627*(-1 + x)^4)/405 + (2953*(-1 + x)^5)/405 - 
       (147799*(-1 + x)^6)/37800 + (54881*(-1 + x)^7)/28350 - 
       (173407*(-1 + x)^8)/198450 + (87547*(-1 + x)^9)/264600 + 
       (-1 + x)^2*(3739/216 + Zeta[3]))
 
CbarData["v", 2, 0, "a"] = 8075/972 - (4471*Pi^2)/2916 + (188*Pi^4)/3645 + 
     (107*Im[PolyLog[2, E^((I/3)*Pi)]])/(9*Sqrt[3]) - (29*Log[imu^2]^2)/18 + 
     ((-224*x^3)/9 + (74*x^4)/3 - (13568*x^5)/135 + (323827*x^6)/3645 - 
       (933823*x^7)/3402 + (10458641*x^8)/51030 - (19109959*x^9)/22680)*
      Log[x^2]^2 + ((158*x^3)/9 - (158*x^4)/9 + (289*x^5)/3 - 
       (59692*x^6)/729 + (71524*x^7)/243 - (54802*x^8)/243 + 
       (102257*x^9)/162)*Log[x^2]^3 + Log[imu^2]*(-247/81 - (58*Pi^2)/243 + 
       (203/27 + (29*Pi^2)/27)*x + (-638/81 - (116*Pi^2)/243)*x^2 + 
       (145/9 + (29*Pi^2)/27)*x^3 + (-1247/81 - (116*Pi^2)/243)*x^4 + 
       (1595/54 + (29*Pi^2)/27)*x^5 + (-17632/729 - (116*Pi^2)/243)*x^6 + 
       (7105/162 + (29*Pi^2)/27)*x^7 + (-96947/2916 - (116*Pi^2)/243)*x^8 + 
       (37903/648 + (29*Pi^2)/27)*x^9 + ((-290*x^3)/27 + (319*x^4)/27 - 
         (377*x^5)/9 + (8236*x^6)/243 - (2465*x^7)/27 + (15950*x^8)/243 - 
         (8555*x^9)/54)*Log[x^2] + ((-58*x^3)/3 + (58*x^4)/3 - 87*x^5 + 
         (6148*x^6)/81 - (2117*x^7)/9 + (15254*x^8)/81 - (4466*x^9)/9)*
        Log[x^2]^2) - (8*((-13*Pi^4)/180 - (2*Pi^2*Log[2]^2)/3 + 
        (2*Log[2]^4)/3 + 16*PolyLog[4, 1/2]))/27 - (104*Zeta[3])/27 + 
     (8*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81 + 
     x^8*(784832894389/1687817250 - (27949172*Pi^2)/98415 - 
       (3975977*Pi^4)/1180980 - (92124283*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (19683*Sqrt[3]) + (1707928*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/19683 + 
       (9974242*Zeta[3])/6561 - (853964*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/6561 - 
       (272*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     x^6*(2690278741/19683000 - (85655849*Pi^2)/787320 - 
       (3009083*Pi^4)/2361960 - (4416130*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (2187*Sqrt[3]) + (659684*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/19683 + 
       (4422707*Zeta[3])/6561 - (329842*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/6561 - 
       (160*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     x^4*(52141/2916 - (46397*Pi^2)/1620 - (2381*Pi^4)/8748 - 
       (151622*Im[PolyLog[2, E^((I/3)*Pi)]])/(243*Sqrt[3]) + 
       (5912*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/729 + 
       (51362*Zeta[3])/243 - (2956*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/243 - 
       (76*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     x^2*(-4385/972 - (6547*Pi^2)/1458 + (206*Pi^4)/3645 - 
       (2026*Im[PolyLog[2, E^((I/3)*Pi)]])/(27*Sqrt[3]) + 
       (7840*Zeta[3])/243 - (20*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^
            2 + 6*Zeta[3]))/81) + x*(36281/2916 + (46535*Pi^2)/8748 - 
       (41*Pi^4)/243 + (149*Im[PolyLog[2, E^((I/3)*Pi)]])/(3*Sqrt[3]) - 
       (1738*Zeta[3])/81 + (26*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 
          6*Zeta[3]))/81) + x^3*(-63997/5832 + (1029839*Pi^2)/29160 + 
       (3395*Pi^4)/17496 + (14483*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (27*Sqrt[3]) - (6484*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/729 - 
       (42505*Zeta[3])/243 + (3242*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/243 + 
       (32*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     x^5*(-54738203/546750 + (11806433*Pi^2)/87480 + (372751*Pi^4)/262440 + 
       (1458602*Im[PolyLog[2, E^((I/3)*Pi)]])/(729*Sqrt[3]) - 
       (87796*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/2187 - 
       (474313*Zeta[3])/729 + (43898*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/729 + 
       (218*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     x^7*(-1059996752903/2700507600 + (3909956447*Pi^2)/11022480 + 
       (19516247*Pi^4)/4723920 + (33056188*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (6561*Sqrt[3]) - (2154202*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/19683 - 
       (20859851*Zeta[3])/13122 + (1077101*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/6561 + 
       (392*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     x^9*(-14244385154099/18003384000 + (132340804189*Pi^2)/198404640 + 
       (766343647*Pi^4)/85030560 + (7287616025*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (708588*Sqrt[3]) - (41472037*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/177147 - 
       (675823759*Zeta[3])/236196 + (41472037*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/118098 + 
       (206*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/27) + 
     Log[x^2]*(x^9*(513169557737/385786800 - (173777*Pi^2)/972 - 
         (41472037*Im[PolyLog[2, E^((I/3)*Pi)]])/(19683*Sqrt[3]) - 
         (80*Zeta[3])/3) + x^7*(258416303/535815 - (48503*Pi^2)/1458 - 
         (2154202*Im[PolyLog[2, E^((I/3)*Pi)]])/(2187*Sqrt[3]) - 
         16*Zeta[3]) + x^5*(908573/6075 - (998*Pi^2)/243 - 
         (87796*Im[PolyLog[2, E^((I/3)*Pi)]])/(243*Sqrt[3]) - 8*Zeta[3]) + 
       x^3*(949/27 - (94*Pi^2)/243 - (6484*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (81*Sqrt[3]) - (8*Zeta[3])/3) + x^4*(-2147/81 - (14*Pi^2)/27 + 
         (5912*Im[PolyLog[2, E^((I/3)*Pi)]])/(81*Sqrt[3]) + (8*Zeta[3])/3) + 
       x^6*(-6591364/54675 + (1693*Pi^2)/729 + 
         (659684*Im[PolyLog[2, E^((I/3)*Pi)]])/(2187*Sqrt[3]) + 
         (64*Zeta[3])/9) + x^8*(-4119486403/10716300 + (17315*Pi^2)/729 + 
         (1707928*Im[PolyLog[2, E^((I/3)*Pi)]])/(2187*Sqrt[3]) + 
         (40*Zeta[3])/3)) + nl*(-164/243 + (10*Pi^2)/81 + Log[imu^2]^2/9 + 
       ((148/81 + (4*Pi^2)/9)*x^3 + (-146/81 - (4*Pi^2)/9)*x^4 + 
         (343/27 + 2*Pi^2)*x^5 + (-292/27 - (424*Pi^2)/243)*x^6 + 
         (9653/243 + (146*Pi^2)/27)*x^7 + (-7543/243 - (1052*Pi^2)/243)*x^8 + 
         (43783/486 + (308*Pi^2)/27)*x^9)*Log[x^2] + 
       ((20*x^3)/9 - (20*x^4)/9 + 9*x^5 - (652*x^6)/81 + (1865*x^7)/81 - 
         (1549*x^8)/81 + (3806*x^9)/81)*Log[x^2]^2 + 
       ((-4*x^3)/9 + (4*x^4)/9 - 2*x^5 + (424*x^6)/243 - (146*x^7)/27 + 
         (1052*x^8)/243 - (308*x^9)/27)*Log[x^2]^3 + 
       Log[imu^2]*(4/81 + (4*Pi^2)/243 + (-14/27 - (2*Pi^2)/27)*x + 
         (44/81 + (8*Pi^2)/243)*x^2 + (-10/9 - (2*Pi^2)/27)*x^3 + 
         (86/81 + (8*Pi^2)/243)*x^4 + (-55/27 - (2*Pi^2)/27)*x^5 + 
         (1216/729 + (8*Pi^2)/243)*x^6 + (-245/81 - (2*Pi^2)/27)*x^7 + 
         (3343/1458 + (8*Pi^2)/243)*x^8 + (-1307/324 - (2*Pi^2)/27)*x^9 + 
         ((20*x^3)/27 - (22*x^4)/27 + (26*x^5)/9 - (568*x^6)/243 + 
           (170*x^7)/27 - (1100*x^8)/243 + (295*x^9)/27)*Log[x^2] + 
         ((4*x^3)/3 - (4*x^4)/3 + 6*x^5 - (424*x^6)/81 + (146*x^7)/9 - 
           (1052*x^8)/81 + (308*x^9)/9)*Log[x^2]^2) + 
       x^8*(116227/2916 - (2222*Pi^2)/729 - (4240*Zeta[3])/81) + 
       x^6*(389/27 - (1144*Pi^2)/729 - (64*Zeta[3])/3) + 
       x^4*(31/9 - (128*Pi^2)/243 - (464*Zeta[3])/81) + 
       x^2*(101/81 + (16*Pi^2)/243 - (32*Zeta[3])/81) + 
       x*(-13/9 - (29*Pi^2)/243 + (8*Zeta[3])/9) - (16*Zeta[3])/81 + 
       x^3*(-293/81 + (115*Pi^2)/243 + (56*Zeta[3])/9) + 
       x^5*(-2501/162 + (457*Pi^2)/243 + (224*Zeta[3])/9) + 
       x^7*(-68617/1458 + (985*Pi^2)/243 + (592*Zeta[3])/9) + 
       x^9*(-635521/5832 + (1696*Pi^2)/243 + (1240*Zeta[3])/9))
 
CbarData["v", 2, 0, "b"] = 5.33786 - 3.92566*Sqrt[x] + 10.4671*x - 
     19.5347*x^(3/2) + 14.9337*x^3
 
CbarData["v", 2, 0, "c"] = -11231/1944 + (34*(-1 + x))/27 + 
     (-34/27 + (29*(-1 + x))/9 + (5771*(-1 + x)^2)/14580 - 
       (13601*(-1 + x)^3)/14580 + (49097*(-1 + x)^4)/102060 + 
       (1595*(-1 + x)^5)/20412 - (344143*(-1 + x)^6)/793800 + 
       (4015891*(-1 + x)^7)/7144200 - (380647417*(-1 + x)^8)/707275800 + 
       (39003347*(-1 + x)^9)/88409475)*Log[imu^2] - (29*Log[imu^2]^2)/18 + 
     nl*(361/972 + (2*(-1 + x))/27 + (131*(-1 + x)^2)/2430 + 
       (263*(-1 + x)^3)/3645 - (59987*(-1 + x)^4)/510300 + 
       (141877*(-1 + x)^5)/1530900 - (1276447*(-1 + x)^6)/30005640 - 
       (409657*(-1 + x)^7)/150028200 + (1420093651*(-1 + x)^8)/44558375400 - 
       (250741514*(-1 + x)^9)/5569796925 + (-2/27 - (2*(-1 + x))/9 - 
         (199*(-1 + x)^2)/7290 + (469*(-1 + x)^3)/7290 - 
         (1693*(-1 + x)^4)/51030 - (55*(-1 + x)^5)/10206 + 
         (11867*(-1 + x)^6)/396900 - (138479*(-1 + x)^7)/3572100 + 
         (13125773*(-1 + x)^8)/353637900 - (2689886*(-1 + x)^9)/88409475)*
        Log[imu^2] + Log[imu^2]^2/9) + (-1 + x)^9*
      (628165168740904721/217275125760000 - (446697268489*Zeta[3])/
        185794560) + (-1 + x)^7*(479333273370437/460886630400 - 
       (120545641961*Zeta[3])/139345920) + 
     (-1 + x)^5*(91423766699/293932800 - (17991481*Zeta[3])/69120) + 
     (-1 + x)^3*(38809831/699840 - (1494445*Zeta[3])/31104) + 
     (1373*Zeta[3])/216 + (-1 + x)^2*(-40361239/699840 + 
       (1494445*Zeta[3])/31104) + (-1 + x)^4*(-107401517639/587865600 + 
       (191812229*Zeta[3])/1244160) + (-1 + x)^6*
      (-275132290382503/460886630400 + (69291716467*Zeta[3])/139345920) + 
     (-1 + x)^8*(-1532716392328176521/869100503040000 + 
       (3269603051843*Zeta[3])/2229534720)
 
CbarData["v", 2, 1, "a"] = -225469/186624 + (579697*Pi^2)/699840 - 
     (67*Pi^4)/1620 + (1913*Im[PolyLog[2, E^((I/3)*Pi)]])/(216*Sqrt[3]) + 
     ((-28*x^3)/9 + (62*x^4)/9 - (7327*x^5)/540 + (30857*x^6)/810 - 
       (4375727*x^7)/34020 + (67302721*x^8)/408240 - (546071581*x^9)/272160)*
      Log[x^2]^2 + ((158*x^3)/9 - (79*x^4)/3 + (578*x^5)/3 - 
       (58925*x^6)/243 + (80915*x^7)/81 - (3250105*x^8)/2916 + 
       (9630191*x^9)/2916)*Log[x^2]^3 - (4915*Zeta[3])/648 + 
     (-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3])/18 + 
     x^8*(11272068957593/4500846000 - (1469241754*Pi^2)/688905 - 
       (98938343*Pi^4)/3779136 - (10175382661*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (314928*Sqrt[3]) + (26392465*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/39366 + 
       (534788377*Zeta[3])/52488 - (26392465*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/26244 - 
       (2470*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     x^6*(215454736267/314928000 - (3412405127*Pi^2)/5878656 - 
       (87443923*Pi^4)/12597120 - (369154891*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (39366*Sqrt[3]) + (4702945*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/26244 + 
       (103232191*Zeta[3])/34992 - (4702945*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/17496 - 
       (1831*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        162) + x^4*(239343187/1679616 - (399415481*Pi^2)/4199040 - 
       (12946697*Pi^4)/12597120 - (7577945*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (4374*Sqrt[3]) + (720035*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/26244 + 
       (18152507*Zeta[3])/34992 - (720035*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/17496 - 
       (929*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/324) + 
     x^2*(594787/46656 - (77933*Pi^2)/34992 + (71*Pi^4)/29160 - 
       (13993*Im[PolyLog[2, E^((I/3)*Pi)]])/(162*Sqrt[3]) + 
       (14071*Zeta[3])/972 - (77*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^
            2 + 6*Zeta[3]))/324) + x*(-1313993/186624 + 
       (1696937*Pi^2)/699840 - (553*Pi^4)/9720 + 
       (28477*Im[PolyLog[2, E^((I/3)*Pi)]])/(648*Sqrt[3]) - 
       (4213*Zeta[3])/648 + (41*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^
            2 + 6*Zeta[3]))/324) + x^3*(-23368229/279936 + 
       (54869381*Pi^2)/699840 + (278297*Pi^4)/419904 + 
       (3335929*Im[PolyLog[2, E^((I/3)*Pi)]])/(2916*Sqrt[3]) - 
       (94063*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/4374 - 
       (1955167*Zeta[3])/5832 + (94063*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/2916 + 
       (170*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     x^5*(-88107313577/209952000 + (1925638303*Pi^2)/3674160 + 
       (37108117*Pi^4)/6298560 + (3546211*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (486*Sqrt[3]) - (2091151*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/13122 - 
       (9899869*Zeta[3])/4374 + (2091151*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/8748 + 
       (1051*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        108) + x^7*(-21904617239791/13502538000 + (67598753807*Pi^2)/
        33067440 + (350941319*Pi^4)/14171760 + 
       (1646597051*Im[PolyLog[2, E^((I/3)*Pi)]])/(59049*Sqrt[3]) - 
       (38186170*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/59049 - 
       (342238151*Zeta[3])/39366 + (19093085*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/19683 + 
       (2348*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     x^9*(-6965923871570963/1728324864000 + (5245342866529*Pi^2)/952342272 + 
       (152418693353*Pi^4)/2040733440 + 
       (1365175167943*Im[PolyLog[2, E^((I/3)*Pi)]])/(17006112*Sqrt[3]) - 
       (8194694387*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/4251528 - 
       (133356508289*Zeta[3])/5668704 + 
       (8194694387*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/2834352 + 
       (22025*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        324) + Log[x^2]*(x^9*(124317176248697/18517766400 - 
         (20273615*Pi^2)/23328 - (8194694387*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (472392*Sqrt[3]) - (400*Zeta[3])/3) + 
       x^7*(127241164699/64297800 - (3103*Pi^2)/27 - 
         (38186170*Im[PolyLog[2, E^((I/3)*Pi)]])/(6561*Sqrt[3]) - 
         (160*Zeta[3])/3) + x^5*(15155363/36450 - (21733*Pi^2)/1944 - 
         (2091151*Im[PolyLog[2, E^((I/3)*Pi)]])/(1458*Sqrt[3]) - 
         16*Zeta[3]) + x^3*(206545/3888 - (1853*Pi^2)/1944 - 
         (94063*Im[PolyLog[2, E^((I/3)*Pi)]])/(486*Sqrt[3]) - 
         (8*Zeta[3])/3) + x^4*(-1135583/23328 - (65*Pi^2)/432 + 
         (720035*Im[PolyLog[2, E^((I/3)*Pi)]])/(2916*Sqrt[3]) + 4*Zeta[3]) + 
       x^6*(-242935187/583200 + (100595*Pi^2)/11664 + 
         (4702945*Im[PolyLog[2, E^((I/3)*Pi)]])/(2916*Sqrt[3]) + 
         20*Zeta[3]) + x^8*(-176399891783/85730400 + (663575*Pi^2)/5832 + 
         (26392465*Im[PolyLog[2, E^((I/3)*Pi)]])/(4374*Sqrt[3]) + 
         60*Zeta[3])) + nl*(407/2592 - (17*Pi^2)/1944 + 
       ((188/27 + (2*Pi^2)/3)*x^3 + (-815/81 - Pi^2)*x^4 + 
         (56 + (16*Pi^2)/3)*x^5 + (-33115/486 - (545*Pi^2)/81)*x^6 + 
         (57206/243 + (1832*Pi^2)/81)*x^7 + 
         (-1001473/3888 - (12389*Pi^2)/486)*x^8 + 
         (173147/243 + (5594*Pi^2)/81)*x^9)*Log[x^2] + 
       ((20*x^3)/9 - (10*x^4)/3 + 18*x^5 - (620*x^6)/27 + (6272*x^7)/81 - 
         (57377*x^8)/648 + (19379*x^9)/81)*Log[x^2]^2 + 
       ((-4*x^3)/9 + (2*x^4)/3 - 4*x^5 + (410*x^6)/81 - (1472*x^7)/81 + 
         (9959*x^8)/486 - (4694*x^9)/81)*Log[x^2]^3 + 
       x^8*(7613743/46656 - (158129*Pi^2)/5832 - (25040*Zeta[3])/81) + 
       x^6*(807823/23328 - (17569*Pi^2)/1944 - (2230*Zeta[3])/27) + 
       x^4*(12293/2592 - (1193*Pi^2)/648 - (346*Zeta[3])/27) + 
       x^2*(365/288 - (91*Pi^2)/1944 - (10*Zeta[3])/81) + 
       x*(-64/81 - (8*Pi^2)/243 + (8*Zeta[3])/27) + (2*Zeta[3])/9 + 
       x^3*(-25/9 + (277*Pi^2)/243 + (248*Zeta[3])/27) + 
       x^5*(-616/27 + (200*Pi^2)/27 + (200*Zeta[3])/3) + 
       x^7*(-187483/1458 + (76*Pi^2)/3 + (7456*Zeta[3])/27) + 
       x^9*(-1388927/2916 + (5195*Pi^2)/81 + (22576*Zeta[3])/27))
 
CbarData["v", 2, 1, "b"] = -2.22 + 23.917*Sqrt[x] - 58.18*x +
    44.843*x^(3/2) + 0.995*x^2 - 9.398*x^3
 
CbarData["v", 2, 1, "c"] = -8310869/699840 + 
     nl*(1207/7290 - (971*(-1 + x))/7290 + (2717*(-1 + x)^2)/24300 - 
       (191459*(-1 + x)^3)/3061800 - (2309773*(-1 + x)^4)/1500282000 + 
       (77613079*(-1 + x)^5)/1500282000 - (131762146777*(-1 + x)^6)/
        1782335016000 + (31437548053*(-1 + x)^7)/445583754000 - 
       (36382920755983*(-1 + x)^8)/700903245042000 + 
       (79867433650127*(-1 + x)^9)/2803612980168000) + 
     (-1 + x)^9*(807325044657684180440669/25055124582039552000 - 
       (4143696427316549*Zeta[3])/154581073920) + 
     (-1 + x)^7*(19214529139810429057/2027901173760000 - 
       (193331483768477*Zeta[3])/24524881920) + 
     (-1 + x)^5*(166712817026411723/73741860864000 - (932090576867*Zeta[3])/
        495452160) + (-1 + x)^3*(234420071903/671846400 - 
       (20204392093*Zeta[3])/69672960) + 
     (-1 + x)*(1769041/139968 - (1561439*Zeta[3])/155520) + 
     (1561439*Zeta[3])/155520 + (-1 + x)^2*(-1703001223001/9405849600 + 
       (1393594451*Zeta[3])/9289728) + (-1 + x)^4*
      (-76843412812247801/73741860864000 + (552339673199*Zeta[3])/
        637009920) + (-1 + x)^6*(-590563482684127037/122903101440000 + 
       (196107010721033*Zeta[3])/49049763840) + 
     (-1 + x)^8*(-2234499381766572356358269/125275622910197760000 + 
       (15139242559365581*Zeta[3])/1020235087872)
 
CbarData["v", 2, 1, "l"] = 
    Log[imu^2]^2*(((-5 + 2*nl)*(3 + 4*x - 21*x^2 + 40*x^3 - 21*x^4 + 4*x^5 + 
          3*x^6))/(72*(-1 + x)^4*(1 + x)^4) - 
       ((-5 + 2*nl)*x^3*(2 - 3*x + 2*x^2)*Log[x])/(3*(-1 + x)^5*(1 + x)^5)) + 
     Log[imu^2]*((-2847 + 318*nl + 60*Pi^2 - 24*nl*Pi^2 - 2496*x - 96*nl*x + 
         80*Pi^2*x - 32*nl*Pi^2*x + 17399*x^2 - 1214*nl*x^2 - 
         (820*Pi^2*x^2)/3 + (328*nl*Pi^2*x^2)/3 - 34080*x^3 + 2688*nl*x^3 + 
         17399*x^4 - 1214*nl*x^4 + (820*Pi^2*x^4)/3 - (328*nl*Pi^2*x^4)/3 - 
         2496*x^5 - 96*nl*x^5 - 80*Pi^2*x^5 + 32*nl*Pi^2*x^5 - 2847*x^6 + 
         318*nl*x^6 - 60*Pi^2*x^6 + 24*nl*Pi^2*x^6)/(1296*(-1 + x)^4*
         (1 + x)^4) - (x^2*(-90 + 36*nl - 7194*x + 1236*nl*x + 10961*x^2 - 
          1922*nl*x^2 - 8814*x^3 + 1884*nl*x^3 + 990*x^4 - 396*nl*x^4 - 
          180*x^5 + 72*nl*x^5 - 135*x^6 + 54*nl*x^6)*Log[x])/
        (162*(-1 + x)^5*(1 + x)^5) + ((-5 + 2*nl)*x^3*(216 - 324*x + 
          648*x^2 - 516*x^3 + 408*x^4 - 59*x^5 + 12*x^6 + 9*x^7)*Log[x]^2)/
        (81*(-1 + x)^6*(1 + x)^6) - ((-5 + 2*nl)*(9 + 12*x - 32*x^2 + 
          12*x^3 + 9*x^4)*Log[x^2]*Log[1 - x^2])/(162*(-1 + x)^3*
         (1 + x)^3)) - ((-5 + 2*nl)*(9 + 12*x - 32*x^2 + 12*x^3 + 9*x^4)*
       Log[imu^2]*PolyLog[2, x^2])/(162*(-1 + x)^3*(1 + x)^3)
 
CbarData["v", 2, 2, "a"] = -58871/291600 + (1121701*Pi^2)/4374000 - 
     (67*Pi^4)/6075 + (88699*Im[PolyLog[2, E^((I/3)*Pi)]])/(8100*Sqrt[3]) + 
     ((832*x^3)/45 - (1354*x^4)/45 + (2893*x^5)/10 - (53912*x^6)/135 + 
       (9648071*x^7)/5670 - (6243817*x^8)/2835 + (154967009*x^9)/136080)*
      Log[x^2]^2 + ((158*x^3)/9 - (316*x^4)/9 + (2890*x^5)/9 - 
       (42956*x^6)/81 + (613445*x^7)/243 - (2647463*x^8)/729 + 
       (1923341*x^9)/162)*Log[x^2]^3 - (8407*Zeta[3])/1215 + 
     (2*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/135 + 
     x^8*(4784041705954691/486091368000 - (1925402835203*Pi^2)/186004350 - 
       (4141156763*Pi^4)/31886460 - 
       (385624674919*Im[PolyLog[2, E^((I/3)*Pi)]])/(2657205*Sqrt[3]) + 
       (1752164584*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/531441 + 
       (39690937931*Zeta[3])/885735 - 
       (876082292*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/177147 - 
       (434*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/3) + 
     x^6*(1161486907/486000 - (285450601627*Pi^2)/137781000 - 
       (300729077*Pi^4)/11809800 - (2958371647*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (98415*Sqrt[3]) + (63618332*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/98415 + 
       (1484737453*Zeta[3])/164025 - (31809166*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/32805 - 
       (332*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/9) + 
     x^4*(28603169/64800 - (20981476897*Pi^2)/91854000 - 
       (21208199*Pi^4)/7873200 - (589953934*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (164025*Sqrt[3]) + (2246266*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/32805 + 
       (104944153*Zeta[3])/109350 - (1123133*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/10935 - 
       (2368*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        405) + x^2*(51068873/1166400 - (1423879*Pi^2)/1093500 - 
       (23*Pi^4)/2025 - (4347667*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (72900*Sqrt[3]) - (10663*Zeta[3])/486 - 
       (34*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/135) + 
     x*(-45723713/2332800 + (413627*Pi^2)/324000 - (233*Pi^4)/8100 + 
       (732001*Im[PolyLog[2, E^((I/3)*Pi)]])/(24300*Sqrt[3]) + 
       (159517*Zeta[3])/24300 + 
       (59*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/810) + 
     x^3*(-4388452417/20995200 + (26477051521*Pi^2)/183708000 + 
       (291829*Pi^4)/196830 + (141652589*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (72900*Sqrt[3]) - (276616*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/6561 - 
       (113308483*Zeta[3])/218700 + (138308*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/2187 + 
       (163*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/54) + 
     x^5*(-977579327/820125 + (5872077661*Pi^2)/3936600 + 
       (416624921*Pi^4)/23619600 + (38105284651*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (1968300*Sqrt[3]) - (45500902*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/98415 - 
       (382448873*Zeta[3])/65610 + (22750451*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/32805 + 
       (3214*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        135) + x^7*(-209588535448877/40507614000 + (1011180879553*Pi^2)/
        124002900 + (4303830701*Pi^4)/42515280 + 
       (372593649097*Im[PolyLog[2, E^((I/3)*Pi)]])/(3542940*Sqrt[3]) - 
       (461856478*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/177147 - 
       (19176892801*Zeta[3])/590490 + 
       (230928239*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/59049 + 
       (8630*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     x^9*(-73809259914172453/4666477132800 + (118206784159469*Pi^2)/
        3968092800 + (137004595561*Pi^4)/340122240 + 
       (17306753044969*Im[PolyLog[2, E^((I/3)*Pi)]])/(42515280*Sqrt[3]) - 
       (7308211699*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/708588 - 
       (575454396437*Zeta[3])/4723920 + 
       (7308211699*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/472392 + 
       (18845*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        54) + Log[x^2]*(x^9*(21005210932823/617258880 - 
         (11888543*Pi^2)/3888 - (7308211699*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (78732*Sqrt[3]) - (1400*Zeta[3])/3) + 
       x^7*(850820814869/96446700 - (2237171*Pi^2)/7290 - 
         (461856478*Im[PolyLog[2, E^((I/3)*Pi)]])/(19683*Sqrt[3]) - 
         (400*Zeta[3])/3) + x^5*(164305679/109350 - (57397*Pi^2)/2430 - 
         (45500902*Im[PolyLog[2, E^((I/3)*Pi)]])/(10935*Sqrt[3]) - 
         (80*Zeta[3])/3) + x^3*(4059671/29160 - (3667*Pi^2)/2430 - 
         (276616*Im[PolyLog[2, E^((I/3)*Pi)]])/(729*Sqrt[3]) - 
         (8*Zeta[3])/3) + x^4*(-2649851/14580 + (1169*Pi^2)/2430 + 
         (2246266*Im[PolyLog[2, E^((I/3)*Pi)]])/(3645*Sqrt[3]) + 
         (16*Zeta[3])/3) + x^6*(-205409413/109350 + (89981*Pi^2)/3645 + 
         (63618332*Im[PolyLog[2, E^((I/3)*Pi)]])/(10935*Sqrt[3]) + 
         (128*Zeta[3])/3) + x^8*(-3140298973703/289340100 + 
         (561907*Pi^2)/1458 + (1752164584*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (59049*Sqrt[3]) + (560*Zeta[3])/3)) + 
     nl*(1183/9720 - (7*Pi^2)/12150 + ((62/5 + (8*Pi^2)/9)*x^3 + 
         (-19109/810 - (16*Pi^2)/9)*x^4 + (295/2 + (100*Pi^2)/9)*x^5 + 
         (-278771/1215 - (488*Pi^2)/27)*x^6 + (2094269/2430 + (5500*Pi^2)/81)*
          x^7 + (-14171/12 - (2606*Pi^2)/27)*x^8 + 
         (3740801/1080 + (2545*Pi^2)/9)*x^9)*Log[x^2] + 
       ((20*x^3)/9 - (40*x^4)/9 + 30*x^5 - (148*x^6)/3 + (15770*x^7)/81 - 
         (45341*x^8)/162 + (30511*x^9)/36)*Log[x^2]^2 + 
       ((-4*x^3)/9 + (8*x^4)/9 - (20*x^5)/3 + (296*x^6)/27 - (3700*x^7)/81 + 
         (1766*x^8)/27 - 205*x^9)*Log[x^2]^3 + 
       x^8*(1989437/6480 - (64309*Pi^2)/486 - (10544*Zeta[3])/9) + 
       x^6*(73037/3645 - (62732*Pi^2)/2025 - (3328*Zeta[3])/15) + 
       x^4*(-6131/3240 - (16981*Pi^2)/4050 - (1016*Zeta[3])/45) + 
       x^2*(9449/9720 - (391*Pi^2)/4050 - (8*Zeta[3])/135) + 
       x*(-2707/6480 - (31*Pi^2)/4860 + (4*Zeta[3])/27) + (8*Zeta[3])/135 + 
       x^3*(1091/432 + (1097*Pi^2)/540 + 12*Zeta[3]) + 
       x^5*(33/10 + (2674*Pi^2)/135 + (416*Zeta[3])/3) + 
       x^7*(-1063571/7290 + (23810*Pi^2)/243 + (22400*Zeta[3])/27) + 
       x^9*(-14554639/12960 + (1365*Pi^2)/4 + (10280*Zeta[3])/3))
 
CbarData["v", 2, 2, "b"] = -2.5220000000000002 + 29.471*Sqrt[x] -
    110.57600000000001*x + 178.189*x^(3/2) - 113.128*x^2 + 18.953*x^3
 
CbarData["v", 2, 2, "c"] = -30273706051/1679616000 + 
     nl*(290179/10206000 - (312199*(-1 + x))/5103000 + 
       (427061029*(-1 + x)^2)/5000940000 - (439043327*(-1 + x)^3)/
        5000940000 + (48500485717*(-1 + x)^4)/742639590000 - 
       (40560329129*(-1 + x)^5)/1485279180000 - (55814992769479*(-1 + x)^6)/
        4672688300280000 + (192547655233121*(-1 + x)^7)/4672688300280000 - 
       (7328046731541667*(-1 + x)^8)/131614053791220000 + 
       (22232731883281561*(-1 + x)^9)/394842161373660000) + 
     (-1 + x)^9*(60515664878040374218092671292671/
        260833868948864552140800000 - (157532426561572697599*Zeta[3])/
        816188070297600) + (-1 + x)^7*(5565654570428826179050193/
        100220498328158208000 - (4713432793176404573*Zeta[3])/
        102023508787200) + (-1 + x)^5*(1166251223642423869/112661176320000 - 
       (528000293128949*Zeta[3])/61312204800) + 
     (-1 + x)^3*(450737324248150729/368709304320000 - (7555095566323*Zeta[3])/
        7431782400) + (-1 + x)*(213858456277/5878656000 - 
       (34992763*Zeta[3])/1161216) + (34992763*Zeta[3])/2322432 + 
     (-1 + x)^2*(-17940978840343147/40967700480000 + (8114979774323*Zeta[3])/
        22295347200) + (-1 + x)^4*(-32388162189356119793/8111604695040000 + 
       (1629120728061569*Zeta[3])/490497638400) + 
     (-1 + x)^6*(-12507401259736163716821233/501102491640791040000 + 
       (2118446833739832217*Zeta[3])/102023508787200) + 
     (-1 + x)^8*(-2248863904195372303383483029191/
        19321027329545522380800000 + (10537523474285906227*Zeta[3])/
        108825076039680)
 
CbarData["v", 2, 2, "l"] = 
    Log[imu^2]^2*(((19 + 2*nl)*(2 + 5*x - 28*x^2 + 145*x^3 - 188*x^4 + 
          145*x^5 - 28*x^6 + 5*x^7 + 2*x^8))/(90*(-1 + x)^6*(1 + x)^6) - 
       (4*(19 + 2*nl)*x^3*(1 - x + x^2)^2*Log[x])/(3*(-1 + x)^7*(1 + x)^7)) + 
     Log[imu^2]*((-1588 + 424*nl - 152*Pi^2 - 16*nl*Pi^2 - 11133*x + 
         306*nl*x - 380*Pi^2*x - 40*nl*Pi^2*x + 45298*x^2 - 3508*nl*x^2 + 
         1064*Pi^2*x^2 + 112*nl*Pi^2*x^2 - 174087*x^3 + 24534*nl*x^3 - 
         1140*Pi^2*x^3 - 120*nl*Pi^2*x^3 + 220332*x^4 - 32376*nl*x^4 - 
         174087*x^5 + 24534*nl*x^5 + 1140*Pi^2*x^5 + 120*nl*Pi^2*x^5 + 
         45298*x^6 - 3508*nl*x^6 - 1064*Pi^2*x^6 - 112*nl*Pi^2*x^6 - 
         11133*x^7 + 306*nl*x^7 + 380*Pi^2*x^7 + 40*nl*Pi^2*x^7 - 1588*x^8 + 
         424*nl*x^8 + 152*Pi^2*x^8 + 16*nl*Pi^2*x^8)/(3240*(-1 + x)^6*
         (1 + x)^6) - (2*x^2*(38 + 4*nl + 1511*x + 898*nl*x - 2452*x^2 - 
          1736*nl*x^2 + 10613*x^3 + 3334*nl*x^3 - 11572*x^4 - 2696*nl*x^4 + 
          9491*x^5 + 1738*nl*x^5 - 1672*x^6 - 176*nl*x^6 + 285*x^7 + 
          30*nl*x^7 + 114*x^8 + 12*nl*x^8)*Log[x])/(135*(-1 + x)^7*
         (1 + x)^7) + (2*(19 + 2*nl)*x^3*(180 - 360*x + 1260*x^2 - 1560*x^3 + 
          1940*x^4 - 1050*x^5 + 545*x^6 - 18*x^7 + 5*x^8 + 2*x^9)*Log[x]^2)/
        (135*(-1 + x)^8*(1 + x)^8) - ((19 + 2*nl)*(2 + 5*x - 12*x^2 + 
          20*x^3 - 12*x^4 + 5*x^5 + 2*x^6)*Log[x^2]*Log[1 - x^2])/
        (135*(-1 + x)^5*(1 + x)^5)) - 
     ((19 + 2*nl)*(2 + 5*x - 12*x^2 + 20*x^3 - 12*x^4 + 5*x^5 + 2*x^6)*
       Log[imu^2]*PolyLog[2, x^2])/(135*(-1 + x)^5*(1 + x)^5)
 
CbarData["v", 2, 3, "a"] = -781327/52488000 + (379387*Pi^2)/3827250 - 
     (67*Pi^4)/14580 + (10516892*Im[PolyLog[2, E^((I/3)*Pi)]])/
      (820125*Sqrt[3]) + (40*x^3 - (3904*x^4)/45 + (162343*x^5)/180 - 
       (5935292*x^6)/3645 + (268507289*x^7)/34020 - (5186871853*x^8)/408240 + 
       (5478684913*x^9)/204120)*Log[x^2]^2 + 
     ((158*x^3)/9 - (395*x^4)/9 + (1445*x^5)/3 - (715120*x^6)/729 + 
       (1297535*x^7)/243 - (9073489*x^8)/972 + (16442825*x^9)/486)*
      Log[x^2]^3 - (57751*Zeta[3])/8100 + 
     (-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3])/162 + 
     x^8*(5752835498293693157/209991470976000 - (30709127981929393*Pi^2)/
        803538792000 - (33451735142267*Pi^4)/68874753600 - 
       (2856431802242671*Im[PolyLog[2, E^((I/3)*Pi)]])/(5739562800*Sqrt[3]) + 
       (1757777966441*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/143489070 + 
       (145489770251659*Zeta[3])/956593800 - 
       (1757777966441*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/95659380 - 
       (397439*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        810) + x^6*(117117276616051/20407334400 - (782109896930123*Pi^2)/
        133923132000 - (839734844503*Pi^4)/11479125600 - 
       (73456952029877*Im[PolyLog[2, E^((I/3)*Pi)]])/(956593800*Sqrt[3]) + 
       (8792477729*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/4782969 + 
       (3581894917949*Zeta[3])/159432300 - 
       (8792477729*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/3188646 - 
       (8221*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/90) + 
     x^4*(28393098859/31492800 - (1537594634753*Pi^2)/3306744000 - 
       (1627172767*Pi^4)/283435200 - 
       (74060018167*Im[PolyLog[2, E^((I/3)*Pi)]])/(11809800*Sqrt[3]) + 
       (84417589*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/590490 + 
       (5858206739*Zeta[3])/3936600 - 
       (84417589*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/393660 - 
       (8029*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        810) + x^2*(4068135787/52488000 - (98379133*Pi^2)/122472000 - 
       (623*Pi^4)/36450 + (98187463*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (13122000*Sqrt[3]) - (5729729*Zeta[3])/72900 - 
       (107*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/405) + 
     x*(-571603043/20995200 + (91736383*Pi^2)/122472000 - (106*Pi^4)/6075 + 
       (21195481*Im[PolyLog[2, E^((I/3)*Pi)]])/(2624400*Sqrt[3]) + 
       (1551661*Zeta[3])/72900 + 
       (4*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/81) + 
     x^3*(-15588873569/47239200 + (1190605799771*Pi^2)/4960116000 + 
       (1154471473*Pi^4)/425152800 + 
       (50624924851*Im[PolyLog[2, E^((I/3)*Pi)]])/(17714700*Sqrt[3]) - 
       (64561051*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/885735 - 
       (164505785*Zeta[3])/236196 + (64561051*(-45/2 - (3*Pi^2)/4 - 
          (35*Pi^3)/(72*Sqrt[3]) + 6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 
          6*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (Sqrt[3]*Pi*Log[3]^2)/8 + Zeta[3]))/590490 + 
       (533*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/135) + 
     x^5*(-24443927703713/11337408000 + (104897579662511*Pi^2)/29760696000 + 
       (109642894633*Pi^4)/2550916800 + 
       (112097888827*Im[PolyLog[2, E^((I/3)*Pi)]])/(2657205*Sqrt[3]) - 
       (5878605043*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/5314410 - 
       (442963377233*Zeta[3])/35429400 + 
       (5878605043*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/3542940 + 
       (19223*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        405) + x^7*(-11757392272510909/1093705578000 + 
       (1148002171730389*Pi^2)/44641044000 + (1239229886759*Pi^4)/
        3826375200 + (220636884329*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (708588*Sqrt[3]) - (13171779241*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/1594323 - 
       (5103478017847*Zeta[3])/53144100 + 
       (13171779241*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/1062882 + 
       (120803*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        405) + x^9*(-15301014063405207883/377984647756800 + 
       (19446558776147446091*Pi^2)/159100680816000 + (2038507391116589*Pi^4)/
        1239745564800 + (3232872647321063*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (2066242608*Sqrt[3]) - (108069191939327*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/2582803260 - 
       (8187854276357833*Zeta[3])/17218688400 + 
       (108069191939327*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/1721868840 + 
       (58597*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        45) + Log[x^2]*(x^9*(70119853043502467/449981723520 - 
         (169491059*Pi^2)/19440 - (108069191939327*
           Im[PolyLog[2, E^((I/3)*Pi)]])/(286978140*Sqrt[3]) - 
         (3920*Zeta[3])/3) + x^7*(58201545109297/1736040600 - 
         (3361439*Pi^2)/4860 - (13171779241*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (177147*Sqrt[3]) - 280*Zeta[3]) + x^5*(426601036211/94478400 - 
         (416627*Pi^2)/9720 - (5878605043*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (590490*Sqrt[3]) - 40*Zeta[3]) + x^3*(120206321/393660 - 
         (665*Pi^2)/324 - (64561051*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (98415*Sqrt[3]) - (8*Zeta[3])/3) + 
       x^4*(-17208349/32805 + (15499*Pi^2)/9720 + 
         (84417589*Im[PolyLog[2, E^((I/3)*Pi)]])/(65610*Sqrt[3]) + 
         (20*Zeta[3])/3) + x^6*(-1178559618281/170061120 + 
         (418877*Pi^2)/7290 + (8792477729*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (531441*Sqrt[3]) + (700*Zeta[3])/9) + 
       x^8*(-12049857896222327/249989846400 + (10181189*Pi^2)/9720 + 
         (1757777966441*Im[PolyLog[2, E^((I/3)*Pi)]])/(15943230*Sqrt[3]) + 
         (1400*Zeta[3])/3)) + nl*(31739/349920 + Pi^2/648 + 
       ((29153/1620 + (10*Pi^2)/9)*x^3 + (-137707/3240 - (25*Pi^2)/9)*x^4 + 
         (27463/90 + 20*Pi^2)*x^5 + (-16790089/29160 - (9625*Pi^2)/243)*x^6 + 
         (11682353/4860 + (4490*Pi^2)/27)*x^7 + 
         (-228998209/58320 - (137423*Pi^2)/486)*x^8 + 
         (121587913/9720 + (24437*Pi^2)/27)*x^9)*Log[x^2] + 
       ((20*x^3)/9 - (50*x^4)/9 + 45*x^5 - (7315*x^6)/81 + (33250*x^7)/81 - 
         (458089*x^8)/648 + (775537*x^9)/324)*Log[x^2]^2 + 
       ((-4*x^3)/9 + (10*x^4)/9 - 10*x^5 + (4900*x^6)/243 - (2600*x^7)/27 + 
         (80723*x^8)/486 - (15617*x^9)/27)*Log[x^2]^3 + 
       x^8*(-52074599/699840 - (2703221*Pi^2)/5832 - (278036*Zeta[3])/81) + 
       x^6*(-1912103/14580 - (117311*Pi^2)/1458 - (39340*Zeta[3])/81) + 
       x^4*(-184571/8748 - (18767*Pi^2)/2430 - (2836*Zeta[3])/81) + 
       x^2*(211639/349920 - (6037*Pi^2)/48600 - (14*Zeta[3])/405) + 
       x*(-2425/11664 + (89*Pi^2)/24300 + (4*Zeta[3])/45) + (2*Zeta[3])/81 + 
       x^3*(172291/14580 + (18671*Pi^2)/6075 + (664*Zeta[3])/45) + 
       x^5*(1556653/14580 + (10322*Pi^2)/243 + (2240*Zeta[3])/9) + 
       x^7*(1348159/4860 + (69761*Pi^2)/243 + (18280*Zeta[3])/9) + 
       x^9*(-10213159/12960 + (1278623*Pi^2)/972 + (98728*Zeta[3])/9))
 
CbarData["v", 2, 3, "b"] = -1.293 + 15.779*Sqrt[x] - 67.388*x +
    122.09100000000001*x^(3/2) - 86.009*x^2 + 17.273*x^3
 
CbarData["v", 2, 3, "c"] = -6188288709017533/245806202880000 + 
     nl*(2792603/416745000 - (27852367*(-1 + x))/1250235000 + 
       (382855177961*(-1 + x)^2)/8911675080000 - (269118399733*(-1 + x)^3)/
        4455837540000 + (186276866130031*(-1 + x)^4)/2803612980168000 - 
       (101189407105781*(-1 + x)^5)/1752258112605000 + 
       (24984818536466681*(-1 + x)^6)/676872276640560000 - 
       (1754341302152849*(-1 + x)^7)/169218069160140000 - 
       (3199894369363709*(-1 + x)^8)/215368451658360000 + 
       (270820724216651533*(-1 + x)^9)/8054780092022664000) + 
     (-1 + x)^9*(82187500842874531386306620224373803/
        66528878984056177636147200000 - (58407645724271727745677019*Zeta[3])/
        56832807710962483200) + (-1 + x)^7*(41308353863746079301081337295083/
        170340485844156442214400000 - (1053816618256997865983*Zeta[3])/
        5223603649904640) + (-1 + x)^5*(143412226060047862603388693/
        4008819933126328320000 - (2208202989354400567*Zeta[3])/
        74198915481600) + (-1 + x)^3*(78984186712182970121/
        24334814085120000 - (264860831398231*Zeta[3])/98099527680) + 
     (-1 + x)*(6194688744406973/81935400960000 - (103784123567*Zeta[3])/
        1651507200) + (103784123567*Zeta[3])/4954521600 + 
     (-1 + x)^2*(-87573723083526032459/97339256340480000 + 
       (1468148952255017*Zeta[3])/1961990553600) + 
     (-1 + x)^4*(-47775145555093712884379281/4008819933126328320000 + 
       (8091702430633884217*Zeta[3])/816188070297600) + 
     (-1 + x)^6*(-77389727927466834697660565623909/
        794922267272730063667200000 + (4230610284280158208841*Zeta[3])/
        52236036499046400) + (-1 + x)^8*
      (-787206313040242800505147830409958081/
        1397106458665179730359091200000 + (26639935688430160023848653*
         Zeta[3])/56832807710962483200)
 
CbarData["v", 2, 3, "l"] = 
    Log[imu^2]^2*(((43 + 2*nl)*(5 + 18*x - 115*x^2 + 1068*x^3 - 1990*x^4 + 
          2868*x^5 - 1990*x^6 + 1068*x^7 - 115*x^8 + 18*x^9 + 5*x^10))/
        (360*(-1 + x)^8*(1 + x)^8) - ((43 + 2*nl)*x^3*(6 - 15*x + 36*x^2 - 
          40*x^3 + 36*x^4 - 15*x^5 + 6*x^6)*Log[x])/(3*(-1 + x)^9*
         (1 + x)^9)) + Log[imu^2]*((6046 + 2504*nl - 1290*Pi^2 - 60*nl*Pi^2 - 
         74907*x + 4518*nl*x - 4644*Pi^2*x - 216*nl*Pi^2*x + 290985*x^2 - 
         37590*nl*x^2 + 12126*Pi^2*x^2 + 564*nl*Pi^2*x^2 - 410652*x^3 + 
         455688*nl*x^3 - 37152*Pi^2*x^3 - 1728*nl*Pi^2*x^3 + 1023845*x^4 - 
         837050*nl*x^4 + 37152*Pi^2*x^4 + 1728*nl*Pi^2*x^4 - 1151298*x^5 + 
         1221444*nl*x^5 + 1023845*x^6 - 837050*nl*x^6 - 37152*Pi^2*x^6 - 
         1728*nl*Pi^2*x^6 - 410652*x^7 + 455688*nl*x^7 + 37152*Pi^2*x^7 + 
         1728*nl*Pi^2*x^7 + 290985*x^8 - 37590*nl*x^8 - 12126*Pi^2*x^8 - 
         564*nl*Pi^2*x^8 - 74907*x^9 + 4518*nl*x^9 + 4644*Pi^2*x^9 + 
         216*nl*Pi^2*x^9 + 6046*x^10 + 2504*nl*x^10 + 1290*Pi^2*x^10 + 
         60*nl*Pi^2*x^10)/(29160*(-1 + x)^8*(1 + x)^8) - 
       (x^2*(430 + 20*nl + 140628*x + 15432*nl*x - 315450*x^2 - 
          36900*nl*x^2 + 1138662*x^3 + 106308*nl*x^3 - 1493682*x^4 - 
          128748*nl*x^4 + 1835262*x^5 + 138708*nl*x^5 - 1041075*x^6 - 
          70650*nl*x^6 + 546978*x^7 + 34332*nl*x^7 - 46010*x^8 - 
          2140*nl*x^8 + 6966*x^9 + 324*nl*x^9 + 1935*x^10 + 90*nl*x^10)*
         Log[x])/(810*(-1 + x)^9*(1 + x)^9) + 
       ((43 + 2*nl)*x^3*(1080 - 2700*x + 13500*x^2 - 22000*x^3 + 39600*x^4 - 
          35115*x^5 + 29430*x^6 - 10845*x^7 + 4428*x^8 - 57*x^9 + 18*x^10 + 
          5*x^11)*Log[x]^2)/(405*(-1 + x)^10*(1 + x)^10) - 
       ((43 + 2*nl)*(5 + 18*x - 42*x^2 + 162*x^3 - 186*x^4 + 162*x^5 - 
          42*x^6 + 18*x^7 + 5*x^8)*Log[x^2]*Log[1 - x^2])/
        (810*(-1 + x)^7*(1 + x)^7)) - 
     ((43 + 2*nl)*(5 + 18*x - 42*x^2 + 162*x^3 - 186*x^4 + 162*x^5 - 42*x^6 + 
        18*x^7 + 5*x^8)*Log[imu^2]*PolyLog[2, x^2])/(810*(-1 + x)^7*(1 + x)^7)
 
CbarData["v", 2, 4, "a"] = -135311/2624400 + (589387*Pi^2)/13891500 - 
     (67*Pi^4)/28350 + (27633947*Im[PolyLog[2, E^((I/3)*Pi)]])/
      (1786050*Sqrt[3]) + ((3872*x^3)/63 - (17158*x^4)/105 + 
       (604276*x^5)/315 - (71192399*x^6)/17010 + (389288933*x^7)/17010 - 
       (887929723*x^8)/20412)*Log[x^2]^2 + 
     ((158*x^3)/9 - (158*x^4)/3 + (2023*x^5)/3 - (396088*x^6)/243 + 
       (811517*x^7)/81 - (29950291*x^8)/1458)*Log[x^2]^3 - 
     (1424306*Zeta[3])/178605 + 
     (-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3])/315 + 
     x^8*(1323092116938390413/26248933872000 - (21663025411062774707*Pi^2)/
        185617460952000 - (86431293086447*Pi^4)/57854793024 - 
       (85166075597838509*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (60265409400*Sqrt[3]) + (113061222974957*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/3013270470 + 
       (8658136493157451*Zeta[3])/20088469800 - 
       (113061222974957*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/2008846980 - 
       (181826*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        135) + x^6*(18103757122564249/1874923848000 - 
       (69167804151305791*Pi^2)/4921675101000 - (1341617360152*Pi^4)/
        7533176175 - (840551706131257*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (5022117450*Sqrt[3]) + (2235065941568*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/502211745 + 
       (281508119898598*Zeta[3])/5859137025 - 
       (1117532970784*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/167403915 - 
       (25796*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        135) + x^4*(29187589097669/20832487200 - (928827550584553*Pi^2)/
        1093705578000 - (143808116411*Pi^4)/13392313200 - 
       (18654193792573*Im[PolyLog[2, E^((I/3)*Pi)]])/(1953045675*Sqrt[3]) + 
       (14797226146*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/55801305 + 
       (364277223007*Zeta[3])/186004350 - 
       (7398613073*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/18600435 - 
       (14257*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        945) + x^2*(9413621591/85730400 - (18629171*Pi^2)/37507050 - 
       (2564*Pi^4)/127575 + (1110091126*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (8037225*Sqrt[3]) - (147970546*Zeta[3])/893025 - 
       (776*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        2835) + x*(-24343515109/771573600 + (175905563*Pi^2)/375070500 - 
       (20*Pi^4)/1701 - (556449728*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (24111675*Sqrt[3]) + (34692964*Zeta[3])/893025 + 
       (104*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        2835) + x^3*(-53340493871/141717600 + (136050936250783*Pi^2)/
        364568526000 + (9900796177*Pi^4)/2232052200 + 
       (9808152819967*Im[PolyLog[2, E^((I/3)*Pi)]])/(2604060900*Sqrt[3]) - 
       (430574444*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/3720087 - 
       (179861165957*Zeta[3])/217005075 + 
       (215287222*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/1240029 + 
       (1979*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        405) + x^5*(-882516404926537/416649744000 + (763941938433181*Pi^2)/
        104162436000 + (116153802287*Pi^4)/1275458400 + 
       (104404380895511*Im[PolyLog[2, E^((I/3)*Pi)]])/(1302030450*Sqrt[3]) - 
       (43138484867*(-763/32 + (65*Pi^2)/32 - (35*Pi^3)/(16*Sqrt[3]) + 
          (19*Pi^4)/480 + (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/18600435 - 
       (2930384602213*Zeta[3])/124002900 + 
       (43138484867*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/12400290 + 
       (26239*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        315) + x^7*(-708918401938035449/78746801616000 + 
       (6383545637550765491*Pi^2)/92808730476000 + (90222966342653*Pi^4)/
        103312130400 + (23465068518733181*Im[PolyLog[2, E^((I/3)*Pi)]])/
        (30132704700*Sqrt[3]) - (953064923203*(-763/32 + (65*Pi^2)/32 - 
          (35*Pi^3)/(16*Sqrt[3]) + (19*Pi^4)/480 + 
          (45*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]])/2 - 
          27*Sqrt[3]*Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - 
          (9*Sqrt[3]*Pi*Log[3]^2)/16 - (15*Zeta[3])/4))/43046721 - 
       (2427188222754343*Zeta[3])/10044234900 + 
       (953064923203*(-45/2 - (3*Pi^2)/4 - (35*Pi^3)/(72*Sqrt[3]) + 
          6*Sqrt[3]*Im[PolyLog[2, E^((I/3)*Pi)]] - 6*Sqrt[3]*
           Im[PolyLog[3, 1/(Sqrt[3]*E^((I/6)*Pi))]] - (Sqrt[3]*Pi*Log[3]^2)/
           8 + Zeta[3]))/28697814 + 
       (283598*(-Pi^4/24 - 6*Im[PolyLog[2, E^((I/3)*Pi)]]^2 + 6*Zeta[3]))/
        405) + Log[x^2]*(x^7*(9800701209228821/93746192400 - 
         (6720373*Pi^2)/4860 - (953064923203*Im[PolyLog[2, E^((I/3)*Pi)]])/
          (4782969*Sqrt[3]) - (1568*Zeta[3])/3) + 
       x^5*(1837015279367/165337200 - (797081*Pi^2)/11340 - 
         (43138484867*Im[PolyLog[2, E^((I/3)*Pi)]])/(2066715*Sqrt[3]) - 
         56*Zeta[3]) + x^3*(2326522489/4133430 - (14647*Pi^2)/5670 - 
         (430574444*Im[PolyLog[2, E^((I/3)*Pi)]])/(413343*Sqrt[3]) - 
         (8*Zeta[3])/3) + x^4*(-294844032023/248005800 + (3007*Pi^2)/945 + 
         (14797226146*Im[PolyLog[2, E^((I/3)*Pi)]])/(6200145*Sqrt[3]) + 
         8*Zeta[3]) + x^6*(-45209497397389/2232052200 + (140504*Pi^2)/1215 + 
         (2235065941568*Im[PolyLog[2, E^((I/3)*Pi)]])/(55801305*Sqrt[3]) + 
         128*Zeta[3]) + x^8*(-16236206419973437/93746192400 + 
         (499113613*Pi^2)/204120 + (113061222974957*
           Im[PolyLog[2, E^((I/3)*Pi)]])/(334807830*Sqrt[3]) + 
         1008*Zeta[3])) + nl*(71903/1020600 + (2263*Pi^2)/1190700 + 
       ((74623/3150 + (4*Pi^2)/3)*x^3 + (-948058/14175 - 4*Pi^2)*x^4 + 
         (1476803/2700 + (98*Pi^2)/3)*x^5 + (-3435182/2835 - (6160*Pi^2)/81)*
          x^6 + (318647477/56700 + (28714*Pi^2)/81)*x^7 + 
         (-10844925029/1020600 - (169757*Pi^2)/243)*x^8)*Log[x^2] + 
       ((20*x^3)/9 - (20*x^4)/3 + 63*x^5 - (4024*x^6)/27 + (62251*x^7)/81 - 
         (498323*x^8)/324)*Log[x^2]^2 + ((-4*x^3)/9 + (4*x^4)/3 - 14*x^5 + 
         (2704*x^6)/81 - (14602*x^7)/81 + (88109*x^8)/243)*Log[x^2]^3 + 
       x^8*(-32530195339/12247200 - (19118737*Pi^2)/14580 - 
         (686728*Zeta[3])/81) + x^6*(-2896643/4860 - (2089996*Pi^2)/11907 - 
         (176000*Zeta[3])/189) + x^4*(-57831757/1020600 - 
         (248812*Pi^2)/19845 - (9472*Zeta[3])/189) + 
       x^2*(54113/218700 - (1564*Pi^2)/11025 - (64*Zeta[3])/2835) + 
       x*(-85969/1020600 + (338*Pi^2)/42525 + (8*Zeta[3])/135) + 
       (4*Zeta[3])/315 + x^3*(25053647/1020600 + (35956*Pi^2)/8505 + 
         (472*Zeta[3])/27) + x^5*(12956521/37800 + (2769*Pi^2)/35 + 
         (1216*Zeta[3])/3) + x^7*(2024525387/1020600 + (283913*Pi^2)/405 + 
         (116816*Zeta[3])/27))
 
CbarData["v", 2, 4, "b"] = 0.07200000000000001 + 0.2*Sqrt[x] - 4.723*x +
    13.006*x^(3/2) - 11.195*x^2 + 2.727*x^3
 
CbarData["v", 2, 4, "c"] = -8868355925512799417/259571350241280000 + 
     nl*(105634889/63654822000 - (465151811*(-1 + x))/63654822000 + 
       (219292103698259*(-1 + x)^2)/12265806788235000 - 
       (309026162283743*(-1 + x)^3)/9812645430588000 + 
       (20802409424729773*(-1 + x)^4)/473810593648392000 - 
       (83757005568948641*(-1 + x)^5)/1658337077769372000 + 
       (2733344274511951213*(-1 + x)^6)/56383460644158648000 - 
       (1524195763089689189*(-1 + x)^7)/40273900460113320000 + 
       (1872295106653293335099*(-1 + x)^8)/88457594970592896048000 - 
       (89090250193082206381*(-1 + x)^9)/38700197799634392021000) + 
     (-1 + x)^9*(957969516295246904002106228420730975533/
        181798841763613456470198190080000 - (18490484507270691845656549*
         Zeta[3])/4218059947297996800) + (-1 + x)^7*
      (247484921278519079417360419247595281/288291808930910103089971200000 - 
       (8117465427900514592208803*Zeta[3])/11366561542192496640) + 
     (-1 + x)^5*(34099095079979462684896776943543/
        333867352254546626740224000 - (5177977812871104465331*Zeta[3])/
        60942042582220800) + (-1 + x)^3*(81724838790055329808685519/
        11224695812753719296000 - (4613966032234577677*Zeta[3])/
        761775532277760) + (-1 + x)*(109498352060206057/801146142720000 - 
       (1835751403091*Zeta[3])/16148070400) + (1835751403091*Zeta[3])/
      64592281600 + (-1 + x)^2*(-1695119115155305212529817/
        1020426892068519936000 + (1052693912931879641*Zeta[3])/
        761775532277760) + (-1 + x)^4*(-33380652282487822070501982435563/
        1112891174181822089134080000 + (1303422185647252058309*Zeta[3])/
        52236036499046400) + (-1 + x)^6*
      (-5641539804579051665008521130187138009/
        18162383962647336494668185600000 + (102800850300896102680898543*
         Zeta[3])/397829653976737382400) + 
     (-1 + x)^8*(-204451374689361758699670323754786691238041/
        93081006982970089712741473320960000 + 
       (27623878783391327691359244311*Zeta[3])/15117526851116020531200)
 
CbarData["v", 2, 4, "l"] = 
    Log[imu^2]^2*(((67 + 2*nl)*(3 + 14*x - 102*x^2 + 1428*x^3 - 3399*x^4 + 
          7378*x^5 - 8124*x^6 + 7378*x^7 - 3399*x^8 + 1428*x^9 - 102*x^10 + 
          14*x^11 + 3*x^12))/(315*(-1 + x)^10*(1 + x)^10) - 
       (8*(67 + 2*nl)*x^3*(1 - x + x^2)*(1 - 2*x + 7*x^2 - 6*x^3 + 7*x^4 - 
          2*x^5 + x^6)*Log[x])/(3*(-1 + x)^11*(1 + x)^11)) + 
     Log[imu^2]*((563283 + 62658*nl - 36180*Pi^2 - 1080*nl*Pi^2 - 1153965*x + 
         179490*nl*x - 168840*Pi^2*x - 5040*nl*Pi^2*x + 2389682*x^2 - 
         1487348*nl*x^2 + 426120*Pi^2*x^2 + 12720*nl*Pi^2*x^2 + 
         147606525*x^3 + 26227710*nl*x^3 - 2532600*Pi^2*x^3 - 
         75600*nl*Pi^2*x^3 - 294051995*x^4 - 60718450*nl*x^4 + 
         3758700*Pi^2*x^4 + 112200*nl*Pi^2*x^4 + 712590240*x^5 + 
         134016000*nl*x^5 - 3376800*Pi^2*x^5 - 100800*nl*Pi^2*x^5 - 
         724983540*x^6 - 145785720*nl*x^6 + 712590240*x^7 + 
         134016000*nl*x^7 + 3376800*Pi^2*x^7 + 100800*nl*Pi^2*x^7 - 
         294051995*x^8 - 60718450*nl*x^8 - 3758700*Pi^2*x^8 - 
         112200*nl*Pi^2*x^8 + 147606525*x^9 + 26227710*nl*x^9 + 
         2532600*Pi^2*x^9 + 75600*nl*Pi^2*x^9 + 2389682*x^10 - 
         1487348*nl*x^10 - 426120*Pi^2*x^10 - 12720*nl*Pi^2*x^10 - 
         1153965*x^11 + 179490*nl*x^11 + 168840*Pi^2*x^11 + 
         5040*nl*Pi^2*x^11 + 563283*x^12 + 62658*nl*x^12 + 36180*Pi^2*x^12 + 
         1080*nl*Pi^2*x^12)/(1020600*(-1 + x)^10*(1 + x)^10) - 
       (x^2*(1206 + 36*nl + 1162848*x + 70368*nl*x - 3165068*x^2 - 
          201448*nl*x^2 + 14148417*x^3 + 778902*nl*x^3 - 23145894*x^4 - 
          1225764*nl*x^4 + 39074454*x^5 + 1879524*nl*x^5 - 34542594*x^6 - 
          1565964*nl*x^6 + 28499817*x^7 + 1207302*nl*x^7 - 11117432*x^8 - 
          438832*nl*x^8 + 4573416*x^9 + 172176*nl*x^9 - 252054*x^10 - 
          7524*nl*x^10 + 33768*x^11 + 1008*nl*x^11 + 7236*x^12 + 216*nl*x^12)*
         Log[x])/(2835*(-1 + x)^11*(1 + x)^11) + 
       (2*(67 + 2*nl)*x^3*(3780 - 11340*x + 73710*x^2 - 147840*x^3 + 
          353850*x^4 - 425215*x^5 + 503160*x^6 - 327516*x^7 + 209412*x^8 - 
          57414*x^9 + 19446*x^10 - 124*x^11 + 42*x^12 + 9*x^13)*Log[x]^2)/
        (2835*(-1 + x)^12*(1 + x)^12) - 
       ((67 + 2*nl)*(9 + 42*x - 97*x^2 + 672*x^3 - 1032*x^4 + 1512*x^5 - 
          1032*x^6 + 672*x^7 - 97*x^8 + 42*x^9 + 9*x^10)*Log[x^2]*
         Log[1 - x^2])/(2835*(-1 + x)^9*(1 + x)^9)) - 
     ((67 + 2*nl)*(9 + 42*x - 97*x^2 + 672*x^3 - 1032*x^4 + 1512*x^5 - 
        1032*x^6 + 672*x^7 - 97*x^8 + 42*x^9 + 9*x^10)*Log[imu^2]*
       PolyLog[2, x^2])/(2835*(-1 + x)^9*(1 + x)^9)

(* end of data section *)

End[]

EndPackage[]

WriteString[
  "stdout",
  "Package: coefhl.m\n",
  "Version: v1.0 (Feb. 2011)\n",
  "\n",
  "Description:\n",
  "  coefhl is a Mathematica package for the evaluation of\n",
  "  the moments of the heavy-light correlators to three loops.\n",
  "\n",
  "Authors: Jens Hoff and Matthias Steinhauser\n",
  "\n",
  "Reference: arXiv:1103.1481v1\n"
];
