(*  This file contains the analytic approximation for the stress-energy
    tensor for free quantized scalar fields in a general static spherically
    symmetric spacetime.  Each component of the stress-energy tensor has
    one index up and the other down.  The variables are as follows:  m
    is the mass of the field, gamma is Euler's constant, si is the coupling
    to the scalar curvature, g_{tt} = f[r], g_{rr} = h[r], the temperature
    is equal to k/(2*Pi), and mu is equal to the mass if the field is
    massive and otherwise is an arbitrary parameter.  The units are 
    G = c = hbar = k_B = 1 and conventions are those of Misner, Thorne, 
    and Wheeler.*)

(*  Please feel free to use these results in whatever way you like.  We only
    ask that you reference us.  The appropriate reference for this approximation
    is Paul R. Anderson, William A. Hiscock, and David A. Samuel, Physical
    Review D 51, 4337 (1995).  *)

Ttt = m^4/(128*Pi^2) + (gamma*m^4)/(32*Pi^2) + 1/(240*Pi^2*r^4) + 
   gamma/(240*Pi^2*r^4) - m^2/(96*Pi^2*r^2) - (gamma*m^2)/(48*Pi^2*r^2) - 
   si/(24*Pi^2*r^4) - (gamma*si)/(24*Pi^2*r^4) + (m^2*si)/(16*Pi^2*r^2) + 
   (gamma*m^2*si)/(8*Pi^2*r^2) + si^2/(8*Pi^2*r^4) + 
   (gamma*si^2)/(8*Pi^2*r^4) - k^4/(480*Pi^2*f[r]^2) + 
   (k^2*m^2)/(96*Pi^2*f[r]) - k^2/(288*Pi^2*r^2*f[r]) + 
   (k^2*si)/(48*Pi^2*r^2*f[r]) - 1/(240*Pi^2*r^4*h[r]^2) + 
   gamma/(60*Pi^2*r^4*h[r]^2) - (5*gamma*si)/(24*Pi^2*r^4*h[r]^2) + 
   si^2/(8*Pi^2*r^4*h[r]^2) + (5*gamma*si^2)/(8*Pi^2*r^4*h[r]^2) - 
   gamma/(48*Pi^2*r^4*h[r]) + m^2/(96*Pi^2*r^2*h[r]) + 
   (gamma*m^2)/(48*Pi^2*r^2*h[r]) + si/(24*Pi^2*r^4*h[r]) + 
   (gamma*si)/(4*Pi^2*r^4*h[r]) - (m^2*si)/(16*Pi^2*r^2*h[r]) - 
   (gamma*m^2*si)/(8*Pi^2*r^2*h[r]) - si^2/(4*Pi^2*r^4*h[r]) - 
   (3*gamma*si^2)/(4*Pi^2*r^4*h[r]) + k^2/(288*Pi^2*r^2*f[r]*h[r]) - 
   (k^2*si)/(48*Pi^2*r^2*f[r]*h[r]) - (m^4*Log[2])/(32*Pi^2) - 
   Log[2]/(240*Pi^2*r^4) + (m^2*Log[2])/(48*Pi^2*r^2) + 
   (si*Log[2])/(24*Pi^2*r^4) - (m^2*si*Log[2])/(8*Pi^2*r^2) - 
   (si^2*Log[2])/(8*Pi^2*r^4) - Log[2]/(60*Pi^2*r^4*h[r]^2) + 
   (5*si*Log[2])/(24*Pi^2*r^4*h[r]^2) - (5*si^2*Log[2])/(8*Pi^2*r^4*h[r]^2) + 
   Log[2]/(48*Pi^2*r^4*h[r]) - (m^2*Log[2])/(48*Pi^2*r^2*h[r]) - 
   (si*Log[2])/(4*Pi^2*r^4*h[r]) + (m^2*si*Log[2])/(8*Pi^2*r^2*h[r]) + 
   (3*si^2*Log[2])/(4*Pi^2*r^4*h[r]) - (m^4*Log[k])/(32*Pi^2) - 
   Log[k]/(240*Pi^2*r^4) + (m^2*Log[k])/(48*Pi^2*r^2) + 
   (si*Log[k])/(24*Pi^2*r^4) - (m^2*si*Log[k])/(8*Pi^2*r^2) - 
   (si^2*Log[k])/(8*Pi^2*r^4) - Log[k]/(60*Pi^2*r^4*h[r]^2) + 
   (5*si*Log[k])/(24*Pi^2*r^4*h[r]^2) - (5*si^2*Log[k])/(8*Pi^2*r^4*h[r]^2) + 
   Log[k]/(48*Pi^2*r^4*h[r]) - (m^2*Log[k])/(48*Pi^2*r^2*h[r]) - 
   (si*Log[k])/(4*Pi^2*r^4*h[r]) + (m^2*si*Log[k])/(8*Pi^2*r^2*h[r]) + 
   (3*si^2*Log[k])/(4*Pi^2*r^4*h[r]) + (m^4*Log[mu])/(32*Pi^2) + 
   Log[mu]/(240*Pi^2*r^4) - (m^2*Log[mu])/(48*Pi^2*r^2) - 
   (si*Log[mu])/(24*Pi^2*r^4) + (m^2*si*Log[mu])/(8*Pi^2*r^2) + 
   (si^2*Log[mu])/(8*Pi^2*r^4) + Log[mu]/(60*Pi^2*r^4*h[r]^2) - 
   (5*si*Log[mu])/(24*Pi^2*r^4*h[r]^2) + 
   (5*si^2*Log[mu])/(8*Pi^2*r^4*h[r]^2) - Log[mu]/(48*Pi^2*r^4*h[r]) + 
   (m^2*Log[mu])/(48*Pi^2*r^2*h[r]) + (si*Log[mu])/(4*Pi^2*r^4*h[r]) - 
   (m^2*si*Log[mu])/(8*Pi^2*r^2*h[r]) - (3*si^2*Log[mu])/(4*Pi^2*r^4*h[r]) + 
   (m^4*Log[f[r]])/(64*Pi^2) + Log[f[r]]/(480*Pi^2*r^4) - 
   (m^2*Log[f[r]])/(96*Pi^2*r^2) - (si*Log[f[r]])/(48*Pi^2*r^4) + 
   (m^2*si*Log[f[r]])/(16*Pi^2*r^2) + (si^2*Log[f[r]])/(16*Pi^2*r^4) + 
   Log[f[r]]/(120*Pi^2*r^4*h[r]^2) - (5*si*Log[f[r]])/(48*Pi^2*r^4*h[r]^2) + 
   (5*si^2*Log[f[r]])/(16*Pi^2*r^4*h[r]^2) - Log[f[r]]/(96*Pi^2*r^4*h[r]) + 
   (m^2*Log[f[r]])/(96*Pi^2*r^2*h[r]) + (si*Log[f[r]])/(8*Pi^2*r^4*h[r]) - 
   (m^2*si*Log[f[r]])/(16*Pi^2*r^2*h[r]) - 
   (3*si^2*Log[f[r]])/(8*Pi^2*r^4*h[r]) + 
   (k^2*Derivative[1][f][r])/(72*Pi^2*r*f[r]^2*h[r]) - 
   (k^2*si*Derivative[1][f][r])/(12*Pi^2*r*f[r]^2*h[r]) + 
   (m^2*Derivative[1][f][r])/(48*Pi^2*r*f[r]*h[r]) - 
   (m^2*si*Derivative[1][f][r])/(4*Pi^2*r*f[r]*h[r]) + 
   Derivative[1][f][r]^2/(720*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (gamma*Derivative[1][f][r]^2)/(384*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si*Derivative[1][f][r]^2)/(192*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (gamma*si*Derivative[1][f][r]^2)/(24*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si^2*Derivative[1][f][r]^2)/(16*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (gamma*si^2*Derivative[1][f][r]^2)/(8*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (5*k^2*Derivative[1][f][r]^2)/(576*Pi^2*f[r]^3*h[r]) + 
   (5*k^2*si*Derivative[1][f][r]^2)/(96*Pi^2*f[r]^3*h[r]) - 
   (m^2*Derivative[1][f][r]^2)/(128*Pi^2*f[r]^2*h[r]) + 
   Derivative[1][f][r]^2/(384*Pi^2*r^2*f[r]^2*h[r]) + 
   (3*m^2*si*Derivative[1][f][r]^2)/(32*Pi^2*f[r]^2*h[r]) - 
   (3*si*Derivative[1][f][r]^2)/(64*Pi^2*r^2*f[r]^2*h[r]) + 
   (3*si^2*Derivative[1][f][r]^2)/(16*Pi^2*r^2*f[r]^2*h[r]) + 
   (Log[2]*Derivative[1][f][r]^2)/(384*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si*Log[2]*Derivative[1][f][r]^2)/(24*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si^2*Log[2]*Derivative[1][f][r]^2)/(8*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (Log[k]*Derivative[1][f][r]^2)/(384*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si*Log[k]*Derivative[1][f][r]^2)/(24*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si^2*Log[k]*Derivative[1][f][r]^2)/(8*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (Log[mu]*Derivative[1][f][r]^2)/(384*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si*Log[mu]*Derivative[1][f][r]^2)/(24*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si^2*Log[mu]*Derivative[1][f][r]^2)/(8*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (Log[f[r]]*Derivative[1][f][r]^2)/(768*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si*Log[f[r]]*Derivative[1][f][r]^2)/(48*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si^2*Log[f[r]]*Derivative[1][f][r]^2)/(16*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (193*Derivative[1][f][r]^3)/(5760*Pi^2*r*f[r]^3*h[r]^2) + 
   (47*gamma*Derivative[1][f][r]^3)/(1920*Pi^2*r*f[r]^3*h[r]^2) + 
   (9*si*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) - 
   (13*gamma*si*Derivative[1][f][r]^3)/(48*Pi^2*r*f[r]^3*h[r]^2) - 
   (si^2*Derivative[1][f][r]^3)/(2*Pi^2*r*f[r]^3*h[r]^2) + 
   (13*gamma*si^2*Derivative[1][f][r]^3)/(16*Pi^2*r*f[r]^3*h[r]^2) - 
   (47*Log[2]*Derivative[1][f][r]^3)/(1920*Pi^2*r*f[r]^3*h[r]^2) + 
   (13*si*Log[2]*Derivative[1][f][r]^3)/(48*Pi^2*r*f[r]^3*h[r]^2) - 
   (13*si^2*Log[2]*Derivative[1][f][r]^3)/(16*Pi^2*r*f[r]^3*h[r]^2) - 
   (47*Log[k]*Derivative[1][f][r]^3)/(1920*Pi^2*r*f[r]^3*h[r]^2) + 
   (13*si*Log[k]*Derivative[1][f][r]^3)/(48*Pi^2*r*f[r]^3*h[r]^2) - 
   (13*si^2*Log[k]*Derivative[1][f][r]^3)/(16*Pi^2*r*f[r]^3*h[r]^2) + 
   (47*Log[mu]*Derivative[1][f][r]^3)/(1920*Pi^2*r*f[r]^3*h[r]^2) - 
   (13*si*Log[mu]*Derivative[1][f][r]^3)/(48*Pi^2*r*f[r]^3*h[r]^2) + 
   (13*si^2*Log[mu]*Derivative[1][f][r]^3)/(16*Pi^2*r*f[r]^3*h[r]^2) + 
   (47*Log[f[r]]*Derivative[1][f][r]^3)/(3840*Pi^2*r*f[r]^3*h[r]^2) - 
   (13*si*Log[f[r]]*Derivative[1][f][r]^3)/(96*Pi^2*r*f[r]^3*h[r]^2) + 
   (13*si^2*Log[f[r]]*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) + 
   (847*Derivative[1][f][r]^4)/(46080*Pi^2*f[r]^4*h[r]^2) - 
   (49*gamma*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) - 
   (35*si*Derivative[1][f][r]^4)/(256*Pi^2*f[r]^4*h[r]^2) + 
   (49*gamma*si*Derivative[1][f][r]^4)/(384*Pi^2*f[r]^4*h[r]^2) + 
   (21*si^2*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) - 
   (49*gamma*si^2*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) + 
   (49*Log[2]*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) - 
   (49*si*Log[2]*Derivative[1][f][r]^4)/(384*Pi^2*f[r]^4*h[r]^2) + 
   (49*si^2*Log[2]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) + 
   (49*Log[k]*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) - 
   (49*si*Log[k]*Derivative[1][f][r]^4)/(384*Pi^2*f[r]^4*h[r]^2) + 
   (49*si^2*Log[k]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) - 
   (49*Log[mu]*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) + 
   (49*si*Log[mu]*Derivative[1][f][r]^4)/(384*Pi^2*f[r]^4*h[r]^2) - 
   (49*si^2*Log[mu]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) - 
   (49*Log[f[r]]*Derivative[1][f][r]^4)/(7680*Pi^2*f[r]^4*h[r]^2) + 
   (49*si*Log[f[r]]*Derivative[1][f][r]^4)/(768*Pi^2*f[r]^4*h[r]^2) - 
   (49*si^2*Log[f[r]]*Derivative[1][f][r]^4)/(256*Pi^2*f[r]^4*h[r]^2) - 
   (3*Derivative[1][h][r])/(160*Pi^2*r^3*h[r]^3) + 
   (gamma*Derivative[1][h][r])/(80*Pi^2*r^3*h[r]^3) + 
   (7*si*Derivative[1][h][r])/(48*Pi^2*r^3*h[r]^3) - 
   (gamma*si*Derivative[1][h][r])/(6*Pi^2*r^3*h[r]^3) - 
   (si^2*Derivative[1][h][r])/(4*Pi^2*r^3*h[r]^3) + 
   (gamma*si^2*Derivative[1][h][r])/(2*Pi^2*r^3*h[r]^3) + 
   Derivative[1][h][r]/(96*Pi^2*r^3*h[r]^2) - 
   (m^2*Derivative[1][h][r])/(96*Pi^2*r*h[r]^2) - 
   (gamma*m^2*Derivative[1][h][r])/(48*Pi^2*r*h[r]^2) - 
   (5*si*Derivative[1][h][r])/(48*Pi^2*r^3*h[r]^2) + 
   (m^2*si*Derivative[1][h][r])/(16*Pi^2*r*h[r]^2) + 
   (gamma*m^2*si*Derivative[1][h][r])/(8*Pi^2*r*h[r]^2) + 
   (si^2*Derivative[1][h][r])/(4*Pi^2*r^3*h[r]^2) - 
   (k^2*Derivative[1][h][r])/(288*Pi^2*r*f[r]*h[r]^2) + 
   (k^2*si*Derivative[1][h][r])/(48*Pi^2*r*f[r]*h[r]^2) - 
   (Log[2]*Derivative[1][h][r])/(80*Pi^2*r^3*h[r]^3) + 
   (si*Log[2]*Derivative[1][h][r])/(6*Pi^2*r^3*h[r]^3) - 
   (si^2*Log[2]*Derivative[1][h][r])/(2*Pi^2*r^3*h[r]^3) + 
   (m^2*Log[2]*Derivative[1][h][r])/(48*Pi^2*r*h[r]^2) - 
   (m^2*si*Log[2]*Derivative[1][h][r])/(8*Pi^2*r*h[r]^2) - 
   (Log[k]*Derivative[1][h][r])/(80*Pi^2*r^3*h[r]^3) + 
   (si*Log[k]*Derivative[1][h][r])/(6*Pi^2*r^3*h[r]^3) - 
   (si^2*Log[k]*Derivative[1][h][r])/(2*Pi^2*r^3*h[r]^3) + 
   (m^2*Log[k]*Derivative[1][h][r])/(48*Pi^2*r*h[r]^2) - 
   (m^2*si*Log[k]*Derivative[1][h][r])/(8*Pi^2*r*h[r]^2) + 
   (Log[mu]*Derivative[1][h][r])/(80*Pi^2*r^3*h[r]^3) - 
   (si*Log[mu]*Derivative[1][h][r])/(6*Pi^2*r^3*h[r]^3) + 
   (si^2*Log[mu]*Derivative[1][h][r])/(2*Pi^2*r^3*h[r]^3) - 
   (m^2*Log[mu]*Derivative[1][h][r])/(48*Pi^2*r*h[r]^2) + 
   (m^2*si*Log[mu]*Derivative[1][h][r])/(8*Pi^2*r*h[r]^2) + 
   (Log[f[r]]*Derivative[1][h][r])/(160*Pi^2*r^3*h[r]^3) - 
   (si*Log[f[r]]*Derivative[1][h][r])/(12*Pi^2*r^3*h[r]^3) + 
   (si^2*Log[f[r]]*Derivative[1][h][r])/(4*Pi^2*r^3*h[r]^3) - 
   (m^2*Log[f[r]]*Derivative[1][h][r])/(96*Pi^2*r*h[r]^2) + 
   (m^2*si*Log[f[r]]*Derivative[1][h][r])/(16*Pi^2*r*h[r]^2) - 
   (Derivative[1][f][r]*Derivative[1][h][r])/(96*Pi^2*r^2*f[r]*h[r]^3) + 
   (gamma*Derivative[1][f][r]*Derivative[1][h][r])/
    (192*Pi^2*r^2*f[r]*h[r]^3) + 
   (17*si*Derivative[1][f][r]*Derivative[1][h][r])/
    (96*Pi^2*r^2*f[r]*h[r]^3) - 
   (gamma*si*Derivative[1][f][r]*Derivative[1][h][r])/
    (24*Pi^2*r^2*f[r]*h[r]^3) - 
   (5*si^2*Derivative[1][f][r]*Derivative[1][h][r])/
    (8*Pi^2*r^2*f[r]*h[r]^3) + (gamma*si^2*Derivative[1][f][r]*
      Derivative[1][h][r])/(8*Pi^2*r^2*f[r]*h[r]^3) - 
   (k^2*Derivative[1][f][r]*Derivative[1][h][r])/(288*Pi^2*f[r]^2*h[r]^2) + 
   (k^2*si*Derivative[1][f][r]*Derivative[1][h][r])/(48*Pi^2*f[r]^2*h[r]^2) - 
   (m^2*Derivative[1][f][r]*Derivative[1][h][r])/(192*Pi^2*f[r]*h[r]^2) + 
   (Derivative[1][f][r]*Derivative[1][h][r])/(576*Pi^2*r^2*f[r]*h[r]^2) + 
   (m^2*si*Derivative[1][f][r]*Derivative[1][h][r])/(16*Pi^2*f[r]*h[r]^2) - 
   (si*Derivative[1][f][r]*Derivative[1][h][r])/(32*Pi^2*r^2*f[r]*h[r]^2) + 
   (si^2*Derivative[1][f][r]*Derivative[1][h][r])/(8*Pi^2*r^2*f[r]*h[r]^2) - 
   (Log[2]*Derivative[1][f][r]*Derivative[1][h][r])/
    (192*Pi^2*r^2*f[r]*h[r]^3) + 
   (si*Log[2]*Derivative[1][f][r]*Derivative[1][h][r])/
    (24*Pi^2*r^2*f[r]*h[r]^3) - 
   (si^2*Log[2]*Derivative[1][f][r]*Derivative[1][h][r])/
    (8*Pi^2*r^2*f[r]*h[r]^3) - (Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r])/(192*Pi^2*r^2*f[r]*h[r]^3) + 
   (si*Log[k]*Derivative[1][f][r]*Derivative[1][h][r])/
    (24*Pi^2*r^2*f[r]*h[r]^3) - 
   (si^2*Log[k]*Derivative[1][f][r]*Derivative[1][h][r])/
    (8*Pi^2*r^2*f[r]*h[r]^3) + (Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r])/(192*Pi^2*r^2*f[r]*h[r]^3) - 
   (si*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r])/
    (24*Pi^2*r^2*f[r]*h[r]^3) + 
   (si^2*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r])/
    (8*Pi^2*r^2*f[r]*h[r]^3) + (Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r])/(384*Pi^2*r^2*f[r]*h[r]^3) - 
   (si*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r])/
    (48*Pi^2*r^2*f[r]*h[r]^3) + 
   (si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r])/
    (16*Pi^2*r^2*f[r]*h[r]^3) - 
   (Derivative[1][f][r]^2*Derivative[1][h][r])/(32*Pi^2*r*f[r]^2*h[r]^3) + 
   (9*gamma*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (320*Pi^2*r*f[r]^2*h[r]^3) + 
   (43*si*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (192*Pi^2*r*f[r]^2*h[r]^3) - 
   (5*gamma*si*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) - 
   (si^2*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (4*Pi^2*r*f[r]^2*h[r]^3) + (15*gamma*si^2*Derivative[1][f][r]^2*
      Derivative[1][h][r])/(16*Pi^2*r*f[r]^2*h[r]^3) - 
   (9*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (320*Pi^2*r*f[r]^2*h[r]^3) + 
   (5*si*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) - 
   (15*si^2*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) - 
   (9*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (320*Pi^2*r*f[r]^2*h[r]^3) + 
   (5*si*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) - 
   (15*si^2*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) + 
   (9*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (320*Pi^2*r*f[r]^2*h[r]^3) - 
   (5*si*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) + 
   (15*si^2*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) + 
   (9*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (640*Pi^2*r*f[r]^2*h[r]^3) - 
   (5*si*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (32*Pi^2*r*f[r]^2*h[r]^3) + 
   (15*si^2*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (32*Pi^2*r*f[r]^2*h[r]^3) + 
   (449*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (23040*Pi^2*f[r]^3*h[r]^3) - 
   (29*gamma*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (1920*Pi^2*f[r]^3*h[r]^3) - 
   (19*si*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (128*Pi^2*f[r]^3*h[r]^3) + (29*gamma*si*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(192*Pi^2*f[r]^3*h[r]^3) + 
   (3*si^2*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (16*Pi^2*f[r]^3*h[r]^3) - (29*gamma*si^2*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) + 
   (29*Log[2]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (1920*Pi^2*f[r]^3*h[r]^3) - 
   (29*si*Log[2]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (192*Pi^2*f[r]^3*h[r]^3) + (29*si^2*Log[2]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) + 
   (29*Log[k]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (1920*Pi^2*f[r]^3*h[r]^3) - 
   (29*si*Log[k]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (192*Pi^2*f[r]^3*h[r]^3) + (29*si^2*Log[k]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) - 
   (29*Log[mu]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (1920*Pi^2*f[r]^3*h[r]^3) + 
   (29*si*Log[mu]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (192*Pi^2*f[r]^3*h[r]^3) - (29*si^2*Log[mu]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) - 
   (29*Log[f[r]]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (3840*Pi^2*f[r]^3*h[r]^3) + 
   (29*si*Log[f[r]]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (384*Pi^2*f[r]^3*h[r]^3) - (29*si^2*Log[f[r]]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(128*Pi^2*f[r]^3*h[r]^3) - 
   (3*Derivative[1][h][r]^2)/(640*Pi^2*r^2*h[r]^4) + 
   (31*gamma*Derivative[1][h][r]^2)/(1920*Pi^2*r^2*h[r]^4) - 
   (5*gamma*si*Derivative[1][h][r]^2)/(24*Pi^2*r^2*h[r]^4) + 
   (si^2*Derivative[1][h][r]^2)/(8*Pi^2*r^2*h[r]^4) + 
   (5*gamma*si^2*Derivative[1][h][r]^2)/(8*Pi^2*r^2*h[r]^4) - 
   (31*Log[2]*Derivative[1][h][r]^2)/(1920*Pi^2*r^2*h[r]^4) + 
   (5*si*Log[2]*Derivative[1][h][r]^2)/(24*Pi^2*r^2*h[r]^4) - 
   (5*si^2*Log[2]*Derivative[1][h][r]^2)/(8*Pi^2*r^2*h[r]^4) - 
   (31*Log[k]*Derivative[1][h][r]^2)/(1920*Pi^2*r^2*h[r]^4) + 
   (5*si*Log[k]*Derivative[1][h][r]^2)/(24*Pi^2*r^2*h[r]^4) - 
   (5*si^2*Log[k]*Derivative[1][h][r]^2)/(8*Pi^2*r^2*h[r]^4) + 
   (31*Log[mu]*Derivative[1][h][r]^2)/(1920*Pi^2*r^2*h[r]^4) - 
   (5*si*Log[mu]*Derivative[1][h][r]^2)/(24*Pi^2*r^2*h[r]^4) + 
   (5*si^2*Log[mu]*Derivative[1][h][r]^2)/(8*Pi^2*r^2*h[r]^4) + 
   (31*Log[f[r]]*Derivative[1][h][r]^2)/(3840*Pi^2*r^2*h[r]^4) - 
   (5*si*Log[f[r]]*Derivative[1][h][r]^2)/(48*Pi^2*r^2*h[r]^4) + 
   (5*si^2*Log[f[r]]*Derivative[1][h][r]^2)/(16*Pi^2*r^2*h[r]^4) - 
   (Derivative[1][f][r]*Derivative[1][h][r]^2)/(60*Pi^2*r*f[r]*h[r]^4) + 
   (17*gamma*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (640*Pi^2*r*f[r]*h[r]^4) - (si*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(96*Pi^2*r*f[r]*h[r]^4) - 
   (7*gamma*si*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (24*Pi^2*r*f[r]*h[r]^4) + (5*si^2*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(8*Pi^2*r*f[r]*h[r]^4) + 
   (7*gamma*si^2*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (8*Pi^2*r*f[r]*h[r]^4) - (17*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(640*Pi^2*r*f[r]*h[r]^4) + 
   (7*si*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (24*Pi^2*r*f[r]*h[r]^4) - (7*si^2*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(8*Pi^2*r*f[r]*h[r]^4) - 
   (17*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (640*Pi^2*r*f[r]*h[r]^4) + (7*si*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(24*Pi^2*r*f[r]*h[r]^4) - 
   (7*si^2*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (8*Pi^2*r*f[r]*h[r]^4) + (17*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(640*Pi^2*r*f[r]*h[r]^4) - 
   (7*si*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (24*Pi^2*r*f[r]*h[r]^4) + (7*si^2*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(8*Pi^2*r*f[r]*h[r]^4) + 
   (17*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (1280*Pi^2*r*f[r]*h[r]^4) - 
   (7*si*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (48*Pi^2*r*f[r]*h[r]^4) + (7*si^2*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(16*Pi^2*r*f[r]*h[r]^4) + 
   (247*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (15360*Pi^2*f[r]^2*h[r]^4) - 
   (19*gamma*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (1280*Pi^2*f[r]^2*h[r]^4) - 
   (95*si*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (768*Pi^2*f[r]^2*h[r]^4) + (19*gamma*si*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(128*Pi^2*f[r]^2*h[r]^4) + 
   (19*si^2*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (128*Pi^2*f[r]^2*h[r]^4) - (57*gamma*si^2*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(128*Pi^2*f[r]^2*h[r]^4) + 
   (19*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (1280*Pi^2*f[r]^2*h[r]^4) - 
   (19*si*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (128*Pi^2*f[r]^2*h[r]^4) + (57*si^2*Log[2]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(128*Pi^2*f[r]^2*h[r]^4) + 
   (19*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (1280*Pi^2*f[r]^2*h[r]^4) - 
   (19*si*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (128*Pi^2*f[r]^2*h[r]^4) + (57*si^2*Log[k]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(128*Pi^2*f[r]^2*h[r]^4) - 
   (19*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (1280*Pi^2*f[r]^2*h[r]^4) + 
   (19*si*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (128*Pi^2*f[r]^2*h[r]^4) - (57*si^2*Log[mu]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(128*Pi^2*f[r]^2*h[r]^4) - 
   (19*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (2560*Pi^2*f[r]^2*h[r]^4) + 
   (19*si*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (256*Pi^2*f[r]^2*h[r]^4) - (57*si^2*Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(256*Pi^2*f[r]^2*h[r]^4) + 
   (7*Derivative[1][h][r]^3)/(240*Pi^2*r*h[r]^5) - 
   (7*gamma*Derivative[1][h][r]^3)/(160*Pi^2*r*h[r]^5) - 
   (7*si*Derivative[1][h][r]^3)/(48*Pi^2*r*h[r]^5) + 
   (7*gamma*si*Derivative[1][h][r]^3)/(12*Pi^2*r*h[r]^5) - 
   (7*gamma*si^2*Derivative[1][h][r]^3)/(4*Pi^2*r*h[r]^5) + 
   (7*Log[2]*Derivative[1][h][r]^3)/(160*Pi^2*r*h[r]^5) - 
   (7*si*Log[2]*Derivative[1][h][r]^3)/(12*Pi^2*r*h[r]^5) + 
   (7*si^2*Log[2]*Derivative[1][h][r]^3)/(4*Pi^2*r*h[r]^5) + 
   (7*Log[k]*Derivative[1][h][r]^3)/(160*Pi^2*r*h[r]^5) - 
   (7*si*Log[k]*Derivative[1][h][r]^3)/(12*Pi^2*r*h[r]^5) + 
   (7*si^2*Log[k]*Derivative[1][h][r]^3)/(4*Pi^2*r*h[r]^5) - 
   (7*Log[mu]*Derivative[1][h][r]^3)/(160*Pi^2*r*h[r]^5) + 
   (7*si*Log[mu]*Derivative[1][h][r]^3)/(12*Pi^2*r*h[r]^5) - 
   (7*si^2*Log[mu]*Derivative[1][h][r]^3)/(4*Pi^2*r*h[r]^5) - 
   (7*Log[f[r]]*Derivative[1][h][r]^3)/(320*Pi^2*r*h[r]^5) + 
   (7*si*Log[f[r]]*Derivative[1][h][r]^3)/(24*Pi^2*r*h[r]^5) - 
   (7*si^2*Log[f[r]]*Derivative[1][h][r]^3)/(8*Pi^2*r*h[r]^5) + 
   (7*Derivative[1][f][r]*Derivative[1][h][r]^3)/(640*Pi^2*f[r]*h[r]^5) - 
   (7*gamma*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (480*Pi^2*f[r]*h[r]^5) - (7*si*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(96*Pi^2*f[r]*h[r]^5) + 
   (7*gamma*si*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (48*Pi^2*f[r]*h[r]^5) - (7*gamma*si^2*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(16*Pi^2*f[r]*h[r]^5) + 
   (7*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (480*Pi^2*f[r]*h[r]^5) - (7*si*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(48*Pi^2*f[r]*h[r]^5) + 
   (7*si^2*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (16*Pi^2*f[r]*h[r]^5) + (7*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(480*Pi^2*f[r]*h[r]^5) - 
   (7*si*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (48*Pi^2*f[r]*h[r]^5) + (7*si^2*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(16*Pi^2*f[r]*h[r]^5) - 
   (7*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (480*Pi^2*f[r]*h[r]^5) + (7*si*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(48*Pi^2*f[r]*h[r]^5) - 
   (7*si^2*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (16*Pi^2*f[r]*h[r]^5) - (7*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(960*Pi^2*f[r]*h[r]^5) + 
   (7*si*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (96*Pi^2*f[r]*h[r]^5) - (7*si^2*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(32*Pi^2*f[r]*h[r]^5) + 
   Derivative[2][f][r]/(288*Pi^2*r^2*f[r]*h[r]^2) - 
   (si*Derivative[2][f][r])/(16*Pi^2*r^2*f[r]*h[r]^2) + 
   (si^2*Derivative[2][f][r])/(4*Pi^2*r^2*f[r]*h[r]^2) + 
   (k^2*Derivative[2][f][r])/(144*Pi^2*f[r]^2*h[r]) - 
   (k^2*si*Derivative[2][f][r])/(24*Pi^2*f[r]^2*h[r]) + 
   (m^2*Derivative[2][f][r])/(96*Pi^2*f[r]*h[r]) - 
   Derivative[2][f][r]/(288*Pi^2*r^2*f[r]*h[r]) - 
   (m^2*si*Derivative[2][f][r])/(8*Pi^2*f[r]*h[r]) + 
   (si*Derivative[2][f][r])/(16*Pi^2*r^2*f[r]*h[r]) - 
   (si^2*Derivative[2][f][r])/(4*Pi^2*r^2*f[r]*h[r]) + 
   (7*Derivative[1][f][r]*Derivative[2][f][r])/(144*Pi^2*r*f[r]^2*h[r]^2) - 
   (41*gamma*Derivative[1][f][r]*Derivative[2][f][r])/
    (960*Pi^2*r*f[r]^2*h[r]^2) - 
   (19*si*Derivative[1][f][r]*Derivative[2][f][r])/
    (48*Pi^2*r*f[r]^2*h[r]^2) + 
   (11*gamma*si*Derivative[1][f][r]*Derivative[2][f][r])/
    (24*Pi^2*r*f[r]^2*h[r]^2) + 
   (5*si^2*Derivative[1][f][r]*Derivative[2][f][r])/
    (8*Pi^2*r*f[r]^2*h[r]^2) - (11*gamma*si^2*Derivative[1][f][r]*
      Derivative[2][f][r])/(8*Pi^2*r*f[r]^2*h[r]^2) + 
   (41*Log[2]*Derivative[1][f][r]*Derivative[2][f][r])/
    (960*Pi^2*r*f[r]^2*h[r]^2) - 
   (11*si*Log[2]*Derivative[1][f][r]*Derivative[2][f][r])/
    (24*Pi^2*r*f[r]^2*h[r]^2) + 
   (11*si^2*Log[2]*Derivative[1][f][r]*Derivative[2][f][r])/
    (8*Pi^2*r*f[r]^2*h[r]^2) + (41*Log[k]*Derivative[1][f][r]*
      Derivative[2][f][r])/(960*Pi^2*r*f[r]^2*h[r]^2) - 
   (11*si*Log[k]*Derivative[1][f][r]*Derivative[2][f][r])/
    (24*Pi^2*r*f[r]^2*h[r]^2) + 
   (11*si^2*Log[k]*Derivative[1][f][r]*Derivative[2][f][r])/
    (8*Pi^2*r*f[r]^2*h[r]^2) - (41*Log[mu]*Derivative[1][f][r]*
      Derivative[2][f][r])/(960*Pi^2*r*f[r]^2*h[r]^2) + 
   (11*si*Log[mu]*Derivative[1][f][r]*Derivative[2][f][r])/
    (24*Pi^2*r*f[r]^2*h[r]^2) - 
   (11*si^2*Log[mu]*Derivative[1][f][r]*Derivative[2][f][r])/
    (8*Pi^2*r*f[r]^2*h[r]^2) - (41*Log[f[r]]*Derivative[1][f][r]*
      Derivative[2][f][r])/(1920*Pi^2*r*f[r]^2*h[r]^2) + 
   (11*si*Log[f[r]]*Derivative[1][f][r]*Derivative[2][f][r])/
    (48*Pi^2*r*f[r]^2*h[r]^2) - 
   (11*si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[2][f][r])/
    (16*Pi^2*r*f[r]^2*h[r]^2) - 
   (449*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (11520*Pi^2*f[r]^3*h[r]^2) + 
   (29*gamma*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (960*Pi^2*f[r]^3*h[r]^2) + (19*si*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(64*Pi^2*f[r]^3*h[r]^2) - 
   (29*gamma*si*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (96*Pi^2*f[r]^3*h[r]^2) - (3*si^2*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(8*Pi^2*f[r]^3*h[r]^2) + 
   (29*gamma*si^2*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]^3*h[r]^2) - (29*Log[2]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(960*Pi^2*f[r]^3*h[r]^2) + 
   (29*si*Log[2]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (96*Pi^2*f[r]^3*h[r]^2) - (29*si^2*Log[2]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]^3*h[r]^2) - 
   (29*Log[k]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (960*Pi^2*f[r]^3*h[r]^2) + (29*si*Log[k]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(96*Pi^2*f[r]^3*h[r]^2) - 
   (29*si^2*Log[k]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]^3*h[r]^2) + (29*Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(960*Pi^2*f[r]^3*h[r]^2) - 
   (29*si*Log[mu]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (96*Pi^2*f[r]^3*h[r]^2) + (29*si^2*Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]^3*h[r]^2) + 
   (29*Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (1920*Pi^2*f[r]^3*h[r]^2) - 
   (29*si*Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (192*Pi^2*f[r]^3*h[r]^2) + (29*si^2*Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(64*Pi^2*f[r]^3*h[r]^2) + 
   (11*Derivative[1][h][r]*Derivative[2][f][r])/(480*Pi^2*r*f[r]*h[r]^3) - 
   (31*gamma*Derivative[1][h][r]*Derivative[2][f][r])/
    (960*Pi^2*r*f[r]*h[r]^3) - (5*si*Derivative[1][h][r]*
      Derivative[2][f][r])/(48*Pi^2*r*f[r]*h[r]^3) + 
   (gamma*si*Derivative[1][h][r]*Derivative[2][f][r])/
    (3*Pi^2*r*f[r]*h[r]^3) - (si^2*Derivative[1][h][r]*Derivative[2][f][r])/
    (4*Pi^2*r*f[r]*h[r]^3) - (gamma*si^2*Derivative[1][h][r]*
      Derivative[2][f][r])/(Pi^2*r*f[r]*h[r]^3) + 
   (31*Log[2]*Derivative[1][h][r]*Derivative[2][f][r])/
    (960*Pi^2*r*f[r]*h[r]^3) - (si*Log[2]*Derivative[1][h][r]*
      Derivative[2][f][r])/(3*Pi^2*r*f[r]*h[r]^3) + 
   (si^2*Log[2]*Derivative[1][h][r]*Derivative[2][f][r])/
    (Pi^2*r*f[r]*h[r]^3) + (31*Log[k]*Derivative[1][h][r]*
      Derivative[2][f][r])/(960*Pi^2*r*f[r]*h[r]^3) - 
   (si*Log[k]*Derivative[1][h][r]*Derivative[2][f][r])/
    (3*Pi^2*r*f[r]*h[r]^3) + (si^2*Log[k]*Derivative[1][h][r]*
      Derivative[2][f][r])/(Pi^2*r*f[r]*h[r]^3) - 
   (31*Log[mu]*Derivative[1][h][r]*Derivative[2][f][r])/
    (960*Pi^2*r*f[r]*h[r]^3) + (si*Log[mu]*Derivative[1][h][r]*
      Derivative[2][f][r])/(3*Pi^2*r*f[r]*h[r]^3) - 
   (si^2*Log[mu]*Derivative[1][h][r]*Derivative[2][f][r])/
    (Pi^2*r*f[r]*h[r]^3) - (31*Log[f[r]]*Derivative[1][h][r]*
      Derivative[2][f][r])/(1920*Pi^2*r*f[r]*h[r]^3) + 
   (si*Log[f[r]]*Derivative[1][h][r]*Derivative[2][f][r])/
    (6*Pi^2*r*f[r]*h[r]^3) - (si^2*Log[f[r]]*Derivative[1][h][r]*
      Derivative[2][f][r])/(2*Pi^2*r*f[r]*h[r]^3) - 
   (39*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (1280*Pi^2*f[r]^2*h[r]^3) + 
   (9*gamma*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (320*Pi^2*f[r]^2*h[r]^3) + (15*si*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(64*Pi^2*f[r]^2*h[r]^3) - 
   (9*gamma*si*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (32*Pi^2*f[r]^2*h[r]^3) - (9*si^2*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(32*Pi^2*f[r]^2*h[r]^3) + 
   (27*gamma*si^2*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(32*Pi^2*f[r]^2*h[r]^3) - 
   (9*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (320*Pi^2*f[r]^2*h[r]^3) + (9*si*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(32*Pi^2*f[r]^2*h[r]^3) - 
   (27*si^2*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(32*Pi^2*f[r]^2*h[r]^3) - 
   (9*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (320*Pi^2*f[r]^2*h[r]^3) + (9*si*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(32*Pi^2*f[r]^2*h[r]^3) - 
   (27*si^2*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(32*Pi^2*f[r]^2*h[r]^3) + 
   (9*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (320*Pi^2*f[r]^2*h[r]^3) - (9*si*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(32*Pi^2*f[r]^2*h[r]^3) + 
   (27*si^2*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(32*Pi^2*f[r]^2*h[r]^3) + 
   (9*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (640*Pi^2*f[r]^2*h[r]^3) - (9*si*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(64*Pi^2*f[r]^2*h[r]^3) + 
   (27*si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(64*Pi^2*f[r]^2*h[r]^3) - 
   (19*Derivative[1][h][r]^2*Derivative[2][f][r])/(1280*Pi^2*f[r]*h[r]^4) + 
   (19*gamma*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (960*Pi^2*f[r]*h[r]^4) + (19*si*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(192*Pi^2*f[r]*h[r]^4) - 
   (19*gamma*si*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (96*Pi^2*f[r]*h[r]^4) + (19*gamma*si^2*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]*h[r]^4) - 
   (19*Log[2]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (960*Pi^2*f[r]*h[r]^4) + (19*si*Log[2]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(96*Pi^2*f[r]*h[r]^4) - 
   (19*si^2*Log[2]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]*h[r]^4) - (19*Log[k]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(960*Pi^2*f[r]*h[r]^4) + 
   (19*si*Log[k]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (96*Pi^2*f[r]*h[r]^4) - (19*si^2*Log[k]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]*h[r]^4) + 
   (19*Log[mu]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (960*Pi^2*f[r]*h[r]^4) - (19*si*Log[mu]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(96*Pi^2*f[r]*h[r]^4) + 
   (19*si^2*Log[mu]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]*h[r]^4) + (19*Log[f[r]]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(1920*Pi^2*f[r]*h[r]^4) - 
   (19*si*Log[f[r]]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (192*Pi^2*f[r]*h[r]^4) + (19*si^2*Log[f[r]]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(64*Pi^2*f[r]*h[r]^4) + 
   (13*Derivative[2][f][r]^2)/(1280*Pi^2*f[r]^2*h[r]^2) - 
   (3*gamma*Derivative[2][f][r]^2)/(320*Pi^2*f[r]^2*h[r]^2) - 
   (5*si*Derivative[2][f][r]^2)/(64*Pi^2*f[r]^2*h[r]^2) + 
   (3*gamma*si*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) + 
   (3*si^2*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) - 
   (9*gamma*si^2*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) + 
   (3*Log[2]*Derivative[2][f][r]^2)/(320*Pi^2*f[r]^2*h[r]^2) - 
   (3*si*Log[2]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) + 
   (9*si^2*Log[2]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) + 
   (3*Log[k]*Derivative[2][f][r]^2)/(320*Pi^2*f[r]^2*h[r]^2) - 
   (3*si*Log[k]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) + 
   (9*si^2*Log[k]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) - 
   (3*Log[mu]*Derivative[2][f][r]^2)/(320*Pi^2*f[r]^2*h[r]^2) + 
   (3*si*Log[mu]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) - 
   (9*si^2*Log[mu]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) - 
   (3*Log[f[r]]*Derivative[2][f][r]^2)/(640*Pi^2*f[r]^2*h[r]^2) + 
   (3*si*Log[f[r]]*Derivative[2][f][r]^2)/(64*Pi^2*f[r]^2*h[r]^2) - 
   (9*si^2*Log[f[r]]*Derivative[2][f][r]^2)/(64*Pi^2*f[r]^2*h[r]^2) + 
   Derivative[2][h][r]/(240*Pi^2*r^2*h[r]^3) - 
   (gamma*Derivative[2][h][r])/(160*Pi^2*r^2*h[r]^3) - 
   (si*Derivative[2][h][r])/(48*Pi^2*r^2*h[r]^3) + 
   (gamma*si*Derivative[2][h][r])/(12*Pi^2*r^2*h[r]^3) - 
   (gamma*si^2*Derivative[2][h][r])/(4*Pi^2*r^2*h[r]^3) + 
   (Log[2]*Derivative[2][h][r])/(160*Pi^2*r^2*h[r]^3) - 
   (si*Log[2]*Derivative[2][h][r])/(12*Pi^2*r^2*h[r]^3) + 
   (si^2*Log[2]*Derivative[2][h][r])/(4*Pi^2*r^2*h[r]^3) + 
   (Log[k]*Derivative[2][h][r])/(160*Pi^2*r^2*h[r]^3) - 
   (si*Log[k]*Derivative[2][h][r])/(12*Pi^2*r^2*h[r]^3) + 
   (si^2*Log[k]*Derivative[2][h][r])/(4*Pi^2*r^2*h[r]^3) - 
   (Log[mu]*Derivative[2][h][r])/(160*Pi^2*r^2*h[r]^3) + 
   (si*Log[mu]*Derivative[2][h][r])/(12*Pi^2*r^2*h[r]^3) - 
   (si^2*Log[mu]*Derivative[2][h][r])/(4*Pi^2*r^2*h[r]^3) - 
   (Log[f[r]]*Derivative[2][h][r])/(320*Pi^2*r^2*h[r]^3) + 
   (si*Log[f[r]]*Derivative[2][h][r])/(24*Pi^2*r^2*h[r]^3) - 
   (si^2*Log[f[r]]*Derivative[2][h][r])/(8*Pi^2*r^2*h[r]^3) + 
   (7*Derivative[1][f][r]*Derivative[2][h][r])/(960*Pi^2*r*f[r]*h[r]^3) - 
   (11*gamma*Derivative[1][f][r]*Derivative[2][h][r])/
    (960*Pi^2*r*f[r]*h[r]^3) + (gamma*si*Derivative[1][f][r]*
      Derivative[2][h][r])/(8*Pi^2*r*f[r]*h[r]^3) - 
   (si^2*Derivative[1][f][r]*Derivative[2][h][r])/(4*Pi^2*r*f[r]*h[r]^3) - 
   (3*gamma*si^2*Derivative[1][f][r]*Derivative[2][h][r])/
    (8*Pi^2*r*f[r]*h[r]^3) + (11*Log[2]*Derivative[1][f][r]*
      Derivative[2][h][r])/(960*Pi^2*r*f[r]*h[r]^3) - 
   (si*Log[2]*Derivative[1][f][r]*Derivative[2][h][r])/
    (8*Pi^2*r*f[r]*h[r]^3) + (3*si^2*Log[2]*Derivative[1][f][r]*
      Derivative[2][h][r])/(8*Pi^2*r*f[r]*h[r]^3) + 
   (11*Log[k]*Derivative[1][f][r]*Derivative[2][h][r])/
    (960*Pi^2*r*f[r]*h[r]^3) - (si*Log[k]*Derivative[1][f][r]*
      Derivative[2][h][r])/(8*Pi^2*r*f[r]*h[r]^3) + 
   (3*si^2*Log[k]*Derivative[1][f][r]*Derivative[2][h][r])/
    (8*Pi^2*r*f[r]*h[r]^3) - (11*Log[mu]*Derivative[1][f][r]*
      Derivative[2][h][r])/(960*Pi^2*r*f[r]*h[r]^3) + 
   (si*Log[mu]*Derivative[1][f][r]*Derivative[2][h][r])/
    (8*Pi^2*r*f[r]*h[r]^3) - (3*si^2*Log[mu]*Derivative[1][f][r]*
      Derivative[2][h][r])/(8*Pi^2*r*f[r]*h[r]^3) - 
   (11*Log[f[r]]*Derivative[1][f][r]*Derivative[2][h][r])/
    (1920*Pi^2*r*f[r]*h[r]^3) + 
   (si*Log[f[r]]*Derivative[1][f][r]*Derivative[2][h][r])/
    (16*Pi^2*r*f[r]*h[r]^3) - (3*si^2*Log[f[r]]*Derivative[1][f][r]*
      Derivative[2][h][r])/(16*Pi^2*r*f[r]*h[r]^3) - 
   (13*Derivative[1][f][r]^2*Derivative[2][h][r])/(1920*Pi^2*f[r]^2*h[r]^3) + 
   (gamma*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (160*Pi^2*f[r]^2*h[r]^3) + (5*si*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(96*Pi^2*f[r]^2*h[r]^3) - 
   (gamma*si*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (16*Pi^2*f[r]^2*h[r]^3) - (si^2*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(16*Pi^2*f[r]^2*h[r]^3) + 
   (3*gamma*si^2*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (16*Pi^2*f[r]^2*h[r]^3) - (Log[2]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(160*Pi^2*f[r]^2*h[r]^3) + 
   (si*Log[2]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (16*Pi^2*f[r]^2*h[r]^3) - (3*si^2*Log[2]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(16*Pi^2*f[r]^2*h[r]^3) - 
   (Log[k]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (160*Pi^2*f[r]^2*h[r]^3) + (si*Log[k]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(16*Pi^2*f[r]^2*h[r]^3) - 
   (3*si^2*Log[k]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (16*Pi^2*f[r]^2*h[r]^3) + (Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(160*Pi^2*f[r]^2*h[r]^3) - 
   (si*Log[mu]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (16*Pi^2*f[r]^2*h[r]^3) + (3*si^2*Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(16*Pi^2*f[r]^2*h[r]^3) + 
   (Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (320*Pi^2*f[r]^2*h[r]^3) - (si*Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(32*Pi^2*f[r]^2*h[r]^3) + 
   (3*si^2*Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (32*Pi^2*f[r]^2*h[r]^3) - (13*Derivative[1][h][r]*Derivative[2][h][r])/
    (480*Pi^2*r*h[r]^4) + (13*gamma*Derivative[1][h][r]*Derivative[2][h][r])/
    (320*Pi^2*r*h[r]^4) + (13*si*Derivative[1][h][r]*Derivative[2][h][r])/
    (96*Pi^2*r*h[r]^4) - (13*gamma*si*Derivative[1][h][r]*
      Derivative[2][h][r])/(24*Pi^2*r*h[r]^4) + 
   (13*gamma*si^2*Derivative[1][h][r]*Derivative[2][h][r])/
    (8*Pi^2*r*h[r]^4) - (13*Log[2]*Derivative[1][h][r]*Derivative[2][h][r])/
    (320*Pi^2*r*h[r]^4) + (13*si*Log[2]*Derivative[1][h][r]*
      Derivative[2][h][r])/(24*Pi^2*r*h[r]^4) - 
   (13*si^2*Log[2]*Derivative[1][h][r]*Derivative[2][h][r])/
    (8*Pi^2*r*h[r]^4) - (13*Log[k]*Derivative[1][h][r]*Derivative[2][h][r])/
    (320*Pi^2*r*h[r]^4) + (13*si*Log[k]*Derivative[1][h][r]*
      Derivative[2][h][r])/(24*Pi^2*r*h[r]^4) - 
   (13*si^2*Log[k]*Derivative[1][h][r]*Derivative[2][h][r])/
    (8*Pi^2*r*h[r]^4) + (13*Log[mu]*Derivative[1][h][r]*Derivative[2][h][r])/
    (320*Pi^2*r*h[r]^4) - (13*si*Log[mu]*Derivative[1][h][r]*
      Derivative[2][h][r])/(24*Pi^2*r*h[r]^4) + 
   (13*si^2*Log[mu]*Derivative[1][h][r]*Derivative[2][h][r])/
    (8*Pi^2*r*h[r]^4) + (13*Log[f[r]]*Derivative[1][h][r]*
      Derivative[2][h][r])/(640*Pi^2*r*h[r]^4) - 
   (13*si*Log[f[r]]*Derivative[1][h][r]*Derivative[2][h][r])/
    (48*Pi^2*r*h[r]^4) + (13*si^2*Log[f[r]]*Derivative[1][h][r]*
      Derivative[2][h][r])/(16*Pi^2*r*h[r]^4) - 
   (13*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][h][r])/
    (1280*Pi^2*f[r]*h[r]^4) + (13*gamma*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][h][r])/(960*Pi^2*f[r]*h[r]^4) + 
   (13*si*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][h][r])/
    (192*Pi^2*f[r]*h[r]^4) - (13*gamma*si*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][h][r])/(96*Pi^2*f[r]*h[r]^4) + 
   (13*gamma*si^2*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(32*Pi^2*f[r]*h[r]^4) - 
   (13*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][h][r])/
    (960*Pi^2*f[r]*h[r]^4) + (13*si*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][h][r])/(96*Pi^2*f[r]*h[r]^4) - 
   (13*si^2*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(32*Pi^2*f[r]*h[r]^4) - 
   (13*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][h][r])/
    (960*Pi^2*f[r]*h[r]^4) + (13*si*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][h][r])/(96*Pi^2*f[r]*h[r]^4) - 
   (13*si^2*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(32*Pi^2*f[r]*h[r]^4) + 
   (13*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][h][r])/
    (960*Pi^2*f[r]*h[r]^4) - (13*si*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][h][r])/(96*Pi^2*f[r]*h[r]^4) + 
   (13*si^2*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(32*Pi^2*f[r]*h[r]^4) + 
   (13*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(1920*Pi^2*f[r]*h[r]^4) - 
   (13*si*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(192*Pi^2*f[r]*h[r]^4) + 
   (13*si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(64*Pi^2*f[r]*h[r]^4) + 
   (Derivative[2][f][r]*Derivative[2][h][r])/(160*Pi^2*f[r]*h[r]^3) - 
   (gamma*Derivative[2][f][r]*Derivative[2][h][r])/(120*Pi^2*f[r]*h[r]^3) - 
   (si*Derivative[2][f][r]*Derivative[2][h][r])/(24*Pi^2*f[r]*h[r]^3) + 
   (gamma*si*Derivative[2][f][r]*Derivative[2][h][r])/(12*Pi^2*f[r]*h[r]^3) - 
   (gamma*si^2*Derivative[2][f][r]*Derivative[2][h][r])/
    (4*Pi^2*f[r]*h[r]^3) + (Log[2]*Derivative[2][f][r]*Derivative[2][h][r])/
    (120*Pi^2*f[r]*h[r]^3) - (si*Log[2]*Derivative[2][f][r]*
      Derivative[2][h][r])/(12*Pi^2*f[r]*h[r]^3) + 
   (si^2*Log[2]*Derivative[2][f][r]*Derivative[2][h][r])/
    (4*Pi^2*f[r]*h[r]^3) + (Log[k]*Derivative[2][f][r]*Derivative[2][h][r])/
    (120*Pi^2*f[r]*h[r]^3) - (si*Log[k]*Derivative[2][f][r]*
      Derivative[2][h][r])/(12*Pi^2*f[r]*h[r]^3) + 
   (si^2*Log[k]*Derivative[2][f][r]*Derivative[2][h][r])/
    (4*Pi^2*f[r]*h[r]^3) - (Log[mu]*Derivative[2][f][r]*Derivative[2][h][r])/
    (120*Pi^2*f[r]*h[r]^3) + (si*Log[mu]*Derivative[2][f][r]*
      Derivative[2][h][r])/(12*Pi^2*f[r]*h[r]^3) - 
   (si^2*Log[mu]*Derivative[2][f][r]*Derivative[2][h][r])/
    (4*Pi^2*f[r]*h[r]^3) - (Log[f[r]]*Derivative[2][f][r]*
      Derivative[2][h][r])/(240*Pi^2*f[r]*h[r]^3) + 
   (si*Log[f[r]]*Derivative[2][f][r]*Derivative[2][h][r])/
    (24*Pi^2*f[r]*h[r]^3) - (si^2*Log[f[r]]*Derivative[2][f][r]*
      Derivative[2][h][r])/(8*Pi^2*f[r]*h[r]^3) - 
   Derivative[3][f][r]/(80*Pi^2*r*f[r]*h[r]^2) + 
   (gamma*Derivative[3][f][r])/(60*Pi^2*r*f[r]*h[r]^2) + 
   (si*Derivative[3][f][r])/(12*Pi^2*r*f[r]*h[r]^2) - 
   (gamma*si*Derivative[3][f][r])/(6*Pi^2*r*f[r]*h[r]^2) + 
   (gamma*si^2*Derivative[3][f][r])/(2*Pi^2*r*f[r]*h[r]^2) - 
   (Log[2]*Derivative[3][f][r])/(60*Pi^2*r*f[r]*h[r]^2) + 
   (si*Log[2]*Derivative[3][f][r])/(6*Pi^2*r*f[r]*h[r]^2) - 
   (si^2*Log[2]*Derivative[3][f][r])/(2*Pi^2*r*f[r]*h[r]^2) - 
   (Log[k]*Derivative[3][f][r])/(60*Pi^2*r*f[r]*h[r]^2) + 
   (si*Log[k]*Derivative[3][f][r])/(6*Pi^2*r*f[r]*h[r]^2) - 
   (si^2*Log[k]*Derivative[3][f][r])/(2*Pi^2*r*f[r]*h[r]^2) + 
   (Log[mu]*Derivative[3][f][r])/(60*Pi^2*r*f[r]*h[r]^2) - 
   (si*Log[mu]*Derivative[3][f][r])/(6*Pi^2*r*f[r]*h[r]^2) + 
   (si^2*Log[mu]*Derivative[3][f][r])/(2*Pi^2*r*f[r]*h[r]^2) + 
   (Log[f[r]]*Derivative[3][f][r])/(120*Pi^2*r*f[r]*h[r]^2) - 
   (si*Log[f[r]]*Derivative[3][f][r])/(12*Pi^2*r*f[r]*h[r]^2) + 
   (si^2*Log[f[r]]*Derivative[3][f][r])/(4*Pi^2*r*f[r]*h[r]^2) + 
   (13*Derivative[1][f][r]*Derivative[3][f][r])/(960*Pi^2*f[r]^2*h[r]^2) - 
   (gamma*Derivative[1][f][r]*Derivative[3][f][r])/(80*Pi^2*f[r]^2*h[r]^2) - 
   (5*si*Derivative[1][f][r]*Derivative[3][f][r])/(48*Pi^2*f[r]^2*h[r]^2) + 
   (gamma*si*Derivative[1][f][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]^2*h[r]^2) + (si^2*Derivative[1][f][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]^2*h[r]^2) - (3*gamma*si^2*Derivative[1][f][r]*
      Derivative[3][f][r])/(8*Pi^2*f[r]^2*h[r]^2) + 
   (Log[2]*Derivative[1][f][r]*Derivative[3][f][r])/(80*Pi^2*f[r]^2*h[r]^2) - 
   (si*Log[2]*Derivative[1][f][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]^2*h[r]^2) + (3*si^2*Log[2]*Derivative[1][f][r]*
      Derivative[3][f][r])/(8*Pi^2*f[r]^2*h[r]^2) + 
   (Log[k]*Derivative[1][f][r]*Derivative[3][f][r])/(80*Pi^2*f[r]^2*h[r]^2) - 
   (si*Log[k]*Derivative[1][f][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]^2*h[r]^2) + (3*si^2*Log[k]*Derivative[1][f][r]*
      Derivative[3][f][r])/(8*Pi^2*f[r]^2*h[r]^2) - 
   (Log[mu]*Derivative[1][f][r]*Derivative[3][f][r])/
    (80*Pi^2*f[r]^2*h[r]^2) + (si*Log[mu]*Derivative[1][f][r]*
      Derivative[3][f][r])/(8*Pi^2*f[r]^2*h[r]^2) - 
   (3*si^2*Log[mu]*Derivative[1][f][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]^2*h[r]^2) - (Log[f[r]]*Derivative[1][f][r]*
      Derivative[3][f][r])/(160*Pi^2*f[r]^2*h[r]^2) + 
   (si*Log[f[r]]*Derivative[1][f][r]*Derivative[3][f][r])/
    (16*Pi^2*f[r]^2*h[r]^2) - (3*si^2*Log[f[r]]*Derivative[1][f][r]*
      Derivative[3][f][r])/(16*Pi^2*f[r]^2*h[r]^2) + 
   (3*Derivative[1][h][r]*Derivative[3][f][r])/(320*Pi^2*f[r]*h[r]^3) - 
   (gamma*Derivative[1][h][r]*Derivative[3][f][r])/(80*Pi^2*f[r]*h[r]^3) - 
   (si*Derivative[1][h][r]*Derivative[3][f][r])/(16*Pi^2*f[r]*h[r]^3) + 
   (gamma*si*Derivative[1][h][r]*Derivative[3][f][r])/(8*Pi^2*f[r]*h[r]^3) - 
   (3*gamma*si^2*Derivative[1][h][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]*h[r]^3) + (Log[2]*Derivative[1][h][r]*Derivative[3][f][r])/
    (80*Pi^2*f[r]*h[r]^3) - (si*Log[2]*Derivative[1][h][r]*
      Derivative[3][f][r])/(8*Pi^2*f[r]*h[r]^3) + 
   (3*si^2*Log[2]*Derivative[1][h][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]*h[r]^3) + (Log[k]*Derivative[1][h][r]*Derivative[3][f][r])/
    (80*Pi^2*f[r]*h[r]^3) - (si*Log[k]*Derivative[1][h][r]*
      Derivative[3][f][r])/(8*Pi^2*f[r]*h[r]^3) + 
   (3*si^2*Log[k]*Derivative[1][h][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]*h[r]^3) - (Log[mu]*Derivative[1][h][r]*Derivative[3][f][r])/
    (80*Pi^2*f[r]*h[r]^3) + (si*Log[mu]*Derivative[1][h][r]*
      Derivative[3][f][r])/(8*Pi^2*f[r]*h[r]^3) - 
   (3*si^2*Log[mu]*Derivative[1][h][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]*h[r]^3) - (Log[f[r]]*Derivative[1][h][r]*
      Derivative[3][f][r])/(160*Pi^2*f[r]*h[r]^3) + 
   (si*Log[f[r]]*Derivative[1][h][r]*Derivative[3][f][r])/
    (16*Pi^2*f[r]*h[r]^3) - (3*si^2*Log[f[r]]*Derivative[1][h][r]*
      Derivative[3][f][r])/(16*Pi^2*f[r]*h[r]^3) + 
   Derivative[3][h][r]/(240*Pi^2*r*h[r]^3) - 
   (gamma*Derivative[3][h][r])/(160*Pi^2*r*h[r]^3) - 
   (si*Derivative[3][h][r])/(48*Pi^2*r*h[r]^3) + 
   (gamma*si*Derivative[3][h][r])/(12*Pi^2*r*h[r]^3) - 
   (gamma*si^2*Derivative[3][h][r])/(4*Pi^2*r*h[r]^3) + 
   (Log[2]*Derivative[3][h][r])/(160*Pi^2*r*h[r]^3) - 
   (si*Log[2]*Derivative[3][h][r])/(12*Pi^2*r*h[r]^3) + 
   (si^2*Log[2]*Derivative[3][h][r])/(4*Pi^2*r*h[r]^3) + 
   (Log[k]*Derivative[3][h][r])/(160*Pi^2*r*h[r]^3) - 
   (si*Log[k]*Derivative[3][h][r])/(12*Pi^2*r*h[r]^3) + 
   (si^2*Log[k]*Derivative[3][h][r])/(4*Pi^2*r*h[r]^3) - 
   (Log[mu]*Derivative[3][h][r])/(160*Pi^2*r*h[r]^3) + 
   (si*Log[mu]*Derivative[3][h][r])/(12*Pi^2*r*h[r]^3) - 
   (si^2*Log[mu]*Derivative[3][h][r])/(4*Pi^2*r*h[r]^3) - 
   (Log[f[r]]*Derivative[3][h][r])/(320*Pi^2*r*h[r]^3) + 
   (si*Log[f[r]]*Derivative[3][h][r])/(24*Pi^2*r*h[r]^3) - 
   (si^2*Log[f[r]]*Derivative[3][h][r])/(8*Pi^2*r*h[r]^3) + 
   (Derivative[1][f][r]*Derivative[3][h][r])/(640*Pi^2*f[r]*h[r]^3) - 
   (gamma*Derivative[1][f][r]*Derivative[3][h][r])/(480*Pi^2*f[r]*h[r]^3) - 
   (si*Derivative[1][f][r]*Derivative[3][h][r])/(96*Pi^2*f[r]*h[r]^3) + 
   (gamma*si*Derivative[1][f][r]*Derivative[3][h][r])/(48*Pi^2*f[r]*h[r]^3) - 
   (gamma*si^2*Derivative[1][f][r]*Derivative[3][h][r])/
    (16*Pi^2*f[r]*h[r]^3) + (Log[2]*Derivative[1][f][r]*Derivative[3][h][r])/
    (480*Pi^2*f[r]*h[r]^3) - (si*Log[2]*Derivative[1][f][r]*
      Derivative[3][h][r])/(48*Pi^2*f[r]*h[r]^3) + 
   (si^2*Log[2]*Derivative[1][f][r]*Derivative[3][h][r])/
    (16*Pi^2*f[r]*h[r]^3) + (Log[k]*Derivative[1][f][r]*Derivative[3][h][r])/
    (480*Pi^2*f[r]*h[r]^3) - (si*Log[k]*Derivative[1][f][r]*
      Derivative[3][h][r])/(48*Pi^2*f[r]*h[r]^3) + 
   (si^2*Log[k]*Derivative[1][f][r]*Derivative[3][h][r])/
    (16*Pi^2*f[r]*h[r]^3) - (Log[mu]*Derivative[1][f][r]*
      Derivative[3][h][r])/(480*Pi^2*f[r]*h[r]^3) + 
   (si*Log[mu]*Derivative[1][f][r]*Derivative[3][h][r])/
    (48*Pi^2*f[r]*h[r]^3) - (si^2*Log[mu]*Derivative[1][f][r]*
      Derivative[3][h][r])/(16*Pi^2*f[r]*h[r]^3) - 
   (Log[f[r]]*Derivative[1][f][r]*Derivative[3][h][r])/
    (960*Pi^2*f[r]*h[r]^3) + (si*Log[f[r]]*Derivative[1][f][r]*
      Derivative[3][h][r])/(96*Pi^2*f[r]*h[r]^3) - 
   (si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[3][h][r])/
    (32*Pi^2*f[r]*h[r]^3) - Derivative[4][f][r]/(320*Pi^2*f[r]*h[r]^2) + 
   (gamma*Derivative[4][f][r])/(240*Pi^2*f[r]*h[r]^2) + 
   (si*Derivative[4][f][r])/(48*Pi^2*f[r]*h[r]^2) - 
   (gamma*si*Derivative[4][f][r])/(24*Pi^2*f[r]*h[r]^2) + 
   (gamma*si^2*Derivative[4][f][r])/(8*Pi^2*f[r]*h[r]^2) - 
   (Log[2]*Derivative[4][f][r])/(240*Pi^2*f[r]*h[r]^2) + 
   (si*Log[2]*Derivative[4][f][r])/(24*Pi^2*f[r]*h[r]^2) - 
   (si^2*Log[2]*Derivative[4][f][r])/(8*Pi^2*f[r]*h[r]^2) - 
   (Log[k]*Derivative[4][f][r])/(240*Pi^2*f[r]*h[r]^2) + 
   (si*Log[k]*Derivative[4][f][r])/(24*Pi^2*f[r]*h[r]^2) - 
   (si^2*Log[k]*Derivative[4][f][r])/(8*Pi^2*f[r]*h[r]^2) + 
   (Log[mu]*Derivative[4][f][r])/(240*Pi^2*f[r]*h[r]^2) - 
   (si*Log[mu]*Derivative[4][f][r])/(24*Pi^2*f[r]*h[r]^2) + 
   (si^2*Log[mu]*Derivative[4][f][r])/(8*Pi^2*f[r]*h[r]^2) + 
   (Log[f[r]]*Derivative[4][f][r])/(480*Pi^2*f[r]*h[r]^2) - 
   (si*Log[f[r]]*Derivative[4][f][r])/(48*Pi^2*f[r]*h[r]^2) + 
   (si^2*Log[f[r]]*Derivative[4][f][r])/(16*Pi^2*f[r]*h[r]^2)
 
Trr = (-3*m^4)/(128*Pi^2) + (gamma*m^4)/(32*Pi^2) + gamma/(240*Pi^2*r^4) + 
   m^2/(96*Pi^2*r^2) - (gamma*m^2)/(48*Pi^2*r^2) - (gamma*si)/(24*Pi^2*r^4) - 
   (m^2*si)/(16*Pi^2*r^2) + (gamma*m^2*si)/(8*Pi^2*r^2) + 
   (gamma*si^2)/(8*Pi^2*r^4) + k^4/(1440*Pi^2*f[r]^2) - 
   (k^2*m^2)/(96*Pi^2*f[r]) + k^2/(288*Pi^2*r^2*f[r]) - 
   (k^2*si)/(48*Pi^2*r^2*f[r]) - gamma/(40*Pi^2*r^4*h[r]^2) + 
   (7*gamma*si)/(24*Pi^2*r^4*h[r]^2) - (7*gamma*si^2)/(8*Pi^2*r^4*h[r]^2) + 
   gamma/(48*Pi^2*r^4*h[r]) - m^2/(96*Pi^2*r^2*h[r]) + 
   (gamma*m^2)/(48*Pi^2*r^2*h[r]) - (gamma*si)/(4*Pi^2*r^4*h[r]) + 
   (m^2*si)/(16*Pi^2*r^2*h[r]) - (gamma*m^2*si)/(8*Pi^2*r^2*h[r]) + 
   (3*gamma*si^2)/(4*Pi^2*r^4*h[r]) - k^2/(288*Pi^2*r^2*f[r]*h[r]) + 
   (k^2*si)/(48*Pi^2*r^2*f[r]*h[r]) - (m^4*Log[2])/(32*Pi^2) - 
   Log[2]/(240*Pi^2*r^4) + (m^2*Log[2])/(48*Pi^2*r^2) + 
   (si*Log[2])/(24*Pi^2*r^4) - (m^2*si*Log[2])/(8*Pi^2*r^2) - 
   (si^2*Log[2])/(8*Pi^2*r^4) + Log[2]/(40*Pi^2*r^4*h[r]^2) - 
   (7*si*Log[2])/(24*Pi^2*r^4*h[r]^2) + (7*si^2*Log[2])/(8*Pi^2*r^4*h[r]^2) - 
   Log[2]/(48*Pi^2*r^4*h[r]) - (m^2*Log[2])/(48*Pi^2*r^2*h[r]) + 
   (si*Log[2])/(4*Pi^2*r^4*h[r]) + (m^2*si*Log[2])/(8*Pi^2*r^2*h[r]) - 
   (3*si^2*Log[2])/(4*Pi^2*r^4*h[r]) - (m^4*Log[k])/(32*Pi^2) - 
   Log[k]/(240*Pi^2*r^4) + (m^2*Log[k])/(48*Pi^2*r^2) + 
   (si*Log[k])/(24*Pi^2*r^4) - (m^2*si*Log[k])/(8*Pi^2*r^2) - 
   (si^2*Log[k])/(8*Pi^2*r^4) + Log[k]/(40*Pi^2*r^4*h[r]^2) - 
   (7*si*Log[k])/(24*Pi^2*r^4*h[r]^2) + (7*si^2*Log[k])/(8*Pi^2*r^4*h[r]^2) - 
   Log[k]/(48*Pi^2*r^4*h[r]) - (m^2*Log[k])/(48*Pi^2*r^2*h[r]) + 
   (si*Log[k])/(4*Pi^2*r^4*h[r]) + (m^2*si*Log[k])/(8*Pi^2*r^2*h[r]) - 
   (3*si^2*Log[k])/(4*Pi^2*r^4*h[r]) + (m^4*Log[mu])/(32*Pi^2) + 
   Log[mu]/(240*Pi^2*r^4) - (m^2*Log[mu])/(48*Pi^2*r^2) - 
   (si*Log[mu])/(24*Pi^2*r^4) + (m^2*si*Log[mu])/(8*Pi^2*r^2) + 
   (si^2*Log[mu])/(8*Pi^2*r^4) - Log[mu]/(40*Pi^2*r^4*h[r]^2) + 
   (7*si*Log[mu])/(24*Pi^2*r^4*h[r]^2) - 
   (7*si^2*Log[mu])/(8*Pi^2*r^4*h[r]^2) + Log[mu]/(48*Pi^2*r^4*h[r]) + 
   (m^2*Log[mu])/(48*Pi^2*r^2*h[r]) - (si*Log[mu])/(4*Pi^2*r^4*h[r]) - 
   (m^2*si*Log[mu])/(8*Pi^2*r^2*h[r]) + (3*si^2*Log[mu])/(4*Pi^2*r^4*h[r]) + 
   (m^4*Log[f[r]])/(64*Pi^2) + Log[f[r]]/(480*Pi^2*r^4) - 
   (m^2*Log[f[r]])/(96*Pi^2*r^2) - (si*Log[f[r]])/(48*Pi^2*r^4) + 
   (m^2*si*Log[f[r]])/(16*Pi^2*r^2) + (si^2*Log[f[r]])/(16*Pi^2*r^4) - 
   Log[f[r]]/(80*Pi^2*r^4*h[r]^2) + (7*si*Log[f[r]])/(48*Pi^2*r^4*h[r]^2) - 
   (7*si^2*Log[f[r]])/(16*Pi^2*r^4*h[r]^2) + Log[f[r]]/(96*Pi^2*r^4*h[r]) + 
   (m^2*Log[f[r]])/(96*Pi^2*r^2*h[r]) - (si*Log[f[r]])/(8*Pi^2*r^4*h[r]) - 
   (m^2*si*Log[f[r]])/(16*Pi^2*r^2*h[r]) + 
   (3*si^2*Log[f[r]])/(8*Pi^2*r^4*h[r]) + 
   (3*Derivative[1][f][r])/(160*Pi^2*r^3*f[r]*h[r]^2) - 
   (gamma*Derivative[1][f][r])/(80*Pi^2*r^3*f[r]*h[r]^2) - 
   (7*si*Derivative[1][f][r])/(48*Pi^2*r^3*f[r]*h[r]^2) + 
   (gamma*si*Derivative[1][f][r])/(6*Pi^2*r^3*f[r]*h[r]^2) + 
   (si^2*Derivative[1][f][r])/(4*Pi^2*r^3*f[r]*h[r]^2) - 
   (gamma*si^2*Derivative[1][f][r])/(2*Pi^2*r^3*f[r]*h[r]^2) + 
   (k^2*Derivative[1][f][r])/(288*Pi^2*r*f[r]^2*h[r]) - 
   (k^2*si*Derivative[1][f][r])/(48*Pi^2*r*f[r]^2*h[r]) - 
   Derivative[1][f][r]/(96*Pi^2*r^3*f[r]*h[r]) + 
   (m^2*Derivative[1][f][r])/(96*Pi^2*r*f[r]*h[r]) + 
   (gamma*m^2*Derivative[1][f][r])/(48*Pi^2*r*f[r]*h[r]) + 
   (5*si*Derivative[1][f][r])/(48*Pi^2*r^3*f[r]*h[r]) - 
   (m^2*si*Derivative[1][f][r])/(16*Pi^2*r*f[r]*h[r]) - 
   (gamma*m^2*si*Derivative[1][f][r])/(8*Pi^2*r*f[r]*h[r]) - 
   (si^2*Derivative[1][f][r])/(4*Pi^2*r^3*f[r]*h[r]) + 
   (Log[2]*Derivative[1][f][r])/(80*Pi^2*r^3*f[r]*h[r]^2) - 
   (si*Log[2]*Derivative[1][f][r])/(6*Pi^2*r^3*f[r]*h[r]^2) + 
   (si^2*Log[2]*Derivative[1][f][r])/(2*Pi^2*r^3*f[r]*h[r]^2) - 
   (m^2*Log[2]*Derivative[1][f][r])/(48*Pi^2*r*f[r]*h[r]) + 
   (m^2*si*Log[2]*Derivative[1][f][r])/(8*Pi^2*r*f[r]*h[r]) + 
   (Log[k]*Derivative[1][f][r])/(80*Pi^2*r^3*f[r]*h[r]^2) - 
   (si*Log[k]*Derivative[1][f][r])/(6*Pi^2*r^3*f[r]*h[r]^2) + 
   (si^2*Log[k]*Derivative[1][f][r])/(2*Pi^2*r^3*f[r]*h[r]^2) - 
   (m^2*Log[k]*Derivative[1][f][r])/(48*Pi^2*r*f[r]*h[r]) + 
   (m^2*si*Log[k]*Derivative[1][f][r])/(8*Pi^2*r*f[r]*h[r]) - 
   (Log[mu]*Derivative[1][f][r])/(80*Pi^2*r^3*f[r]*h[r]^2) + 
   (si*Log[mu]*Derivative[1][f][r])/(6*Pi^2*r^3*f[r]*h[r]^2) - 
   (si^2*Log[mu]*Derivative[1][f][r])/(2*Pi^2*r^3*f[r]*h[r]^2) + 
   (m^2*Log[mu]*Derivative[1][f][r])/(48*Pi^2*r*f[r]*h[r]) - 
   (m^2*si*Log[mu]*Derivative[1][f][r])/(8*Pi^2*r*f[r]*h[r]) - 
   (Log[f[r]]*Derivative[1][f][r])/(160*Pi^2*r^3*f[r]*h[r]^2) + 
   (si*Log[f[r]]*Derivative[1][f][r])/(12*Pi^2*r^3*f[r]*h[r]^2) - 
   (si^2*Log[f[r]]*Derivative[1][f][r])/(4*Pi^2*r^3*f[r]*h[r]^2) + 
   (m^2*Log[f[r]]*Derivative[1][f][r])/(96*Pi^2*r*f[r]*h[r]) - 
   (m^2*si*Log[f[r]]*Derivative[1][f][r])/(16*Pi^2*r*f[r]*h[r]) + 
   (7*Derivative[1][f][r]^2)/(384*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (9*gamma*Derivative[1][f][r]^2)/(640*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (31*si*Derivative[1][f][r]^2)/(192*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (gamma*si*Derivative[1][f][r]^2)/(6*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (5*si^2*Derivative[1][f][r]^2)/(16*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (gamma*si^2*Derivative[1][f][r]^2)/(2*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (k^2*Derivative[1][f][r]^2)/(576*Pi^2*f[r]^3*h[r]) - 
   (k^2*si*Derivative[1][f][r]^2)/(96*Pi^2*f[r]^3*h[r]) + 
   (m^2*Derivative[1][f][r]^2)/(384*Pi^2*f[r]^2*h[r]) - 
   Derivative[1][f][r]^2/(1152*Pi^2*r^2*f[r]^2*h[r]) - 
   (m^2*si*Derivative[1][f][r]^2)/(32*Pi^2*f[r]^2*h[r]) + 
   (si*Derivative[1][f][r]^2)/(64*Pi^2*r^2*f[r]^2*h[r]) - 
   (si^2*Derivative[1][f][r]^2)/(16*Pi^2*r^2*f[r]^2*h[r]) + 
   (9*Log[2]*Derivative[1][f][r]^2)/(640*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si*Log[2]*Derivative[1][f][r]^2)/(6*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si^2*Log[2]*Derivative[1][f][r]^2)/(2*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (9*Log[k]*Derivative[1][f][r]^2)/(640*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si*Log[k]*Derivative[1][f][r]^2)/(6*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si^2*Log[k]*Derivative[1][f][r]^2)/(2*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (9*Log[mu]*Derivative[1][f][r]^2)/(640*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si*Log[mu]*Derivative[1][f][r]^2)/(6*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si^2*Log[mu]*Derivative[1][f][r]^2)/(2*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (9*Log[f[r]]*Derivative[1][f][r]^2)/(1280*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si*Log[f[r]]*Derivative[1][f][r]^2)/(12*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si^2*Log[f[r]]*Derivative[1][f][r]^2)/(4*Pi^2*r^2*f[r]^2*h[r]^2) - 
   Derivative[1][f][r]^3/(180*Pi^2*r*f[r]^3*h[r]^2) + 
   (gamma*Derivative[1][f][r]^3)/(384*Pi^2*r*f[r]^3*h[r]^2) + 
   (si*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) - 
   (gamma*si*Derivative[1][f][r]^3)/(24*Pi^2*r*f[r]^3*h[r]^2) + 
   (gamma*si^2*Derivative[1][f][r]^3)/(8*Pi^2*r*f[r]^3*h[r]^2) - 
   (Log[2]*Derivative[1][f][r]^3)/(384*Pi^2*r*f[r]^3*h[r]^2) + 
   (si*Log[2]*Derivative[1][f][r]^3)/(24*Pi^2*r*f[r]^3*h[r]^2) - 
   (si^2*Log[2]*Derivative[1][f][r]^3)/(8*Pi^2*r*f[r]^3*h[r]^2) - 
   (Log[k]*Derivative[1][f][r]^3)/(384*Pi^2*r*f[r]^3*h[r]^2) + 
   (si*Log[k]*Derivative[1][f][r]^3)/(24*Pi^2*r*f[r]^3*h[r]^2) - 
   (si^2*Log[k]*Derivative[1][f][r]^3)/(8*Pi^2*r*f[r]^3*h[r]^2) + 
   (Log[mu]*Derivative[1][f][r]^3)/(384*Pi^2*r*f[r]^3*h[r]^2) - 
   (si*Log[mu]*Derivative[1][f][r]^3)/(24*Pi^2*r*f[r]^3*h[r]^2) + 
   (si^2*Log[mu]*Derivative[1][f][r]^3)/(8*Pi^2*r*f[r]^3*h[r]^2) + 
   (Log[f[r]]*Derivative[1][f][r]^3)/(768*Pi^2*r*f[r]^3*h[r]^2) - 
   (si*Log[f[r]]*Derivative[1][f][r]^3)/(48*Pi^2*r*f[r]^3*h[r]^2) + 
   (si^2*Log[f[r]]*Derivative[1][f][r]^3)/(16*Pi^2*r*f[r]^3*h[r]^2) - 
   (109*Derivative[1][f][r]^4)/(46080*Pi^2*f[r]^4*h[r]^2) + 
   (7*gamma*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) + 
   (13*si*Derivative[1][f][r]^4)/(768*Pi^2*f[r]^4*h[r]^2) - 
   (7*gamma*si*Derivative[1][f][r]^4)/(384*Pi^2*f[r]^4*h[r]^2) - 
   (si^2*Derivative[1][f][r]^4)/(64*Pi^2*f[r]^4*h[r]^2) + 
   (7*gamma*si^2*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) - 
   (7*Log[2]*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) + 
   (7*si*Log[2]*Derivative[1][f][r]^4)/(384*Pi^2*f[r]^4*h[r]^2) - 
   (7*si^2*Log[2]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) - 
   (7*Log[k]*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) + 
   (7*si*Log[k]*Derivative[1][f][r]^4)/(384*Pi^2*f[r]^4*h[r]^2) - 
   (7*si^2*Log[k]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) + 
   (7*Log[mu]*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) - 
   (7*si*Log[mu]*Derivative[1][f][r]^4)/(384*Pi^2*f[r]^4*h[r]^2) + 
   (7*si^2*Log[mu]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) + 
   (7*Log[f[r]]*Derivative[1][f][r]^4)/(7680*Pi^2*f[r]^4*h[r]^2) - 
   (7*si*Log[f[r]]*Derivative[1][f][r]^4)/(768*Pi^2*f[r]^4*h[r]^2) + 
   (7*si^2*Log[f[r]]*Derivative[1][f][r]^4)/(256*Pi^2*f[r]^4*h[r]^2) - 
   (Derivative[1][f][r]*Derivative[1][h][r])/(320*Pi^2*r^2*f[r]*h[r]^3) - 
   (13*gamma*Derivative[1][f][r]*Derivative[1][h][r])/
    (960*Pi^2*r^2*f[r]*h[r]^3) + 
   (si*Derivative[1][f][r]*Derivative[1][h][r])/(16*Pi^2*r^2*f[r]*h[r]^3) + 
   (gamma*si*Derivative[1][f][r]*Derivative[1][h][r])/
    (6*Pi^2*r^2*f[r]*h[r]^3) - (si^2*Derivative[1][f][r]*
      Derivative[1][h][r])/(4*Pi^2*r^2*f[r]*h[r]^3) - 
   (gamma*si^2*Derivative[1][f][r]*Derivative[1][h][r])/
    (2*Pi^2*r^2*f[r]*h[r]^3) + (13*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r])/(960*Pi^2*r^2*f[r]*h[r]^3) - 
   (si*Log[2]*Derivative[1][f][r]*Derivative[1][h][r])/
    (6*Pi^2*r^2*f[r]*h[r]^3) + (si^2*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r])/(2*Pi^2*r^2*f[r]*h[r]^3) + 
   (13*Log[k]*Derivative[1][f][r]*Derivative[1][h][r])/
    (960*Pi^2*r^2*f[r]*h[r]^3) - 
   (si*Log[k]*Derivative[1][f][r]*Derivative[1][h][r])/
    (6*Pi^2*r^2*f[r]*h[r]^3) + (si^2*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r])/(2*Pi^2*r^2*f[r]*h[r]^3) - 
   (13*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r])/
    (960*Pi^2*r^2*f[r]*h[r]^3) + 
   (si*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r])/
    (6*Pi^2*r^2*f[r]*h[r]^3) - (si^2*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r])/(2*Pi^2*r^2*f[r]*h[r]^3) - 
   (13*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r])/
    (1920*Pi^2*r^2*f[r]*h[r]^3) + 
   (si*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r])/
    (12*Pi^2*r^2*f[r]*h[r]^3) - 
   (si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r])/
    (4*Pi^2*r^2*f[r]*h[r]^3) - (7*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (1920*Pi^2*r*f[r]^2*h[r]^3) + 
   (gamma*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (960*Pi^2*r*f[r]^2*h[r]^3) + 
   (si*Derivative[1][f][r]^2*Derivative[1][h][r])/(24*Pi^2*r*f[r]^2*h[r]^3) - 
   (gamma*si*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (48*Pi^2*r*f[r]^2*h[r]^3) - 
   (si^2*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (8*Pi^2*r*f[r]^2*h[r]^3) + (gamma*si^2*Derivative[1][f][r]^2*
      Derivative[1][h][r])/(16*Pi^2*r*f[r]^2*h[r]^3) - 
   (Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (960*Pi^2*r*f[r]^2*h[r]^3) + 
   (si*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (48*Pi^2*r*f[r]^2*h[r]^3) - 
   (si^2*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) - 
   (Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (960*Pi^2*r*f[r]^2*h[r]^3) + 
   (si*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (48*Pi^2*r*f[r]^2*h[r]^3) - 
   (si^2*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) + 
   (Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (960*Pi^2*r*f[r]^2*h[r]^3) - 
   (si*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (48*Pi^2*r*f[r]^2*h[r]^3) + 
   (si^2*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) + 
   (Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (1920*Pi^2*r*f[r]^2*h[r]^3) - 
   (si*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (96*Pi^2*r*f[r]^2*h[r]^3) + 
   (si^2*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (32*Pi^2*r*f[r]^2*h[r]^3) - 
   (13*Derivative[1][f][r]^3*Derivative[1][h][r])/(7680*Pi^2*f[r]^3*h[r]^3) + 
   (gamma*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (640*Pi^2*f[r]^3*h[r]^3) + (5*si*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(384*Pi^2*f[r]^3*h[r]^3) - 
   (gamma*si*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (64*Pi^2*f[r]^3*h[r]^3) - (si^2*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) + 
   (3*gamma*si^2*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (64*Pi^2*f[r]^3*h[r]^3) - (Log[2]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(640*Pi^2*f[r]^3*h[r]^3) + 
   (si*Log[2]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (64*Pi^2*f[r]^3*h[r]^3) - (3*si^2*Log[2]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) - 
   (Log[k]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (640*Pi^2*f[r]^3*h[r]^3) + (si*Log[k]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) - 
   (3*si^2*Log[k]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (64*Pi^2*f[r]^3*h[r]^3) + (Log[mu]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(640*Pi^2*f[r]^3*h[r]^3) - 
   (si*Log[mu]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (64*Pi^2*f[r]^3*h[r]^3) + (3*si^2*Log[mu]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) + 
   (Log[f[r]]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (1280*Pi^2*f[r]^3*h[r]^3) - 
   (si*Log[f[r]]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (128*Pi^2*f[r]^3*h[r]^3) + (3*si^2*Log[f[r]]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(128*Pi^2*f[r]^3*h[r]^3) + 
   (49*gamma*Derivative[1][h][r]^2)/(1920*Pi^2*r^2*h[r]^4) - 
   (7*gamma*si*Derivative[1][h][r]^2)/(24*Pi^2*r^2*h[r]^4) + 
   (7*gamma*si^2*Derivative[1][h][r]^2)/(8*Pi^2*r^2*h[r]^4) - 
   (49*Log[2]*Derivative[1][h][r]^2)/(1920*Pi^2*r^2*h[r]^4) + 
   (7*si*Log[2]*Derivative[1][h][r]^2)/(24*Pi^2*r^2*h[r]^4) - 
   (7*si^2*Log[2]*Derivative[1][h][r]^2)/(8*Pi^2*r^2*h[r]^4) - 
   (49*Log[k]*Derivative[1][h][r]^2)/(1920*Pi^2*r^2*h[r]^4) + 
   (7*si*Log[k]*Derivative[1][h][r]^2)/(24*Pi^2*r^2*h[r]^4) - 
   (7*si^2*Log[k]*Derivative[1][h][r]^2)/(8*Pi^2*r^2*h[r]^4) + 
   (49*Log[mu]*Derivative[1][h][r]^2)/(1920*Pi^2*r^2*h[r]^4) - 
   (7*si*Log[mu]*Derivative[1][h][r]^2)/(24*Pi^2*r^2*h[r]^4) + 
   (7*si^2*Log[mu]*Derivative[1][h][r]^2)/(8*Pi^2*r^2*h[r]^4) + 
   (49*Log[f[r]]*Derivative[1][h][r]^2)/(3840*Pi^2*r^2*h[r]^4) - 
   (7*si*Log[f[r]]*Derivative[1][h][r]^2)/(48*Pi^2*r^2*h[r]^4) + 
   (7*si^2*Log[f[r]]*Derivative[1][h][r]^2)/(16*Pi^2*r^2*h[r]^4) - 
   (7*Derivative[1][f][r]*Derivative[1][h][r]^2)/(960*Pi^2*r*f[r]*h[r]^4) + 
   (7*gamma*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (640*Pi^2*r*f[r]*h[r]^4) + (7*si*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(192*Pi^2*r*f[r]*h[r]^4) - 
   (7*gamma*si*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (48*Pi^2*r*f[r]*h[r]^4) + (7*gamma*si^2*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(16*Pi^2*r*f[r]*h[r]^4) - 
   (7*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (640*Pi^2*r*f[r]*h[r]^4) + (7*si*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(48*Pi^2*r*f[r]*h[r]^4) - 
   (7*si^2*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (16*Pi^2*r*f[r]*h[r]^4) - (7*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(640*Pi^2*r*f[r]*h[r]^4) + 
   (7*si*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (48*Pi^2*r*f[r]*h[r]^4) - (7*si^2*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(16*Pi^2*r*f[r]*h[r]^4) + 
   (7*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (640*Pi^2*r*f[r]*h[r]^4) - (7*si*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(48*Pi^2*r*f[r]*h[r]^4) + 
   (7*si^2*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (16*Pi^2*r*f[r]*h[r]^4) + (7*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(1280*Pi^2*r*f[r]*h[r]^4) - 
   (7*si*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (96*Pi^2*r*f[r]*h[r]^4) + (7*si^2*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(32*Pi^2*r*f[r]*h[r]^4) - 
   (7*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (5120*Pi^2*f[r]^2*h[r]^4) + 
   (7*gamma*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (3840*Pi^2*f[r]^2*h[r]^4) + 
   (7*si*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (768*Pi^2*f[r]^2*h[r]^4) - (7*gamma*si*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(384*Pi^2*f[r]^2*h[r]^4) + 
   (7*gamma*si^2*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (128*Pi^2*f[r]^2*h[r]^4) - (7*Log[2]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(3840*Pi^2*f[r]^2*h[r]^4) + 
   (7*si*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (384*Pi^2*f[r]^2*h[r]^4) - (7*si^2*Log[2]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(128*Pi^2*f[r]^2*h[r]^4) - 
   (7*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (3840*Pi^2*f[r]^2*h[r]^4) + 
   (7*si*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (384*Pi^2*f[r]^2*h[r]^4) - (7*si^2*Log[k]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(128*Pi^2*f[r]^2*h[r]^4) + 
   (7*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (3840*Pi^2*f[r]^2*h[r]^4) - 
   (7*si*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (384*Pi^2*f[r]^2*h[r]^4) + (7*si^2*Log[mu]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(128*Pi^2*f[r]^2*h[r]^4) + 
   (7*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (7680*Pi^2*f[r]^2*h[r]^4) - 
   (7*si*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (768*Pi^2*f[r]^2*h[r]^4) + (7*si^2*Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(256*Pi^2*f[r]^2*h[r]^4) - 
   Derivative[2][f][r]/(120*Pi^2*r^2*f[r]*h[r]^2) + 
   (gamma*Derivative[2][f][r])/(80*Pi^2*r^2*f[r]*h[r]^2) + 
   (si*Derivative[2][f][r])/(24*Pi^2*r^2*f[r]*h[r]^2) - 
   (gamma*si*Derivative[2][f][r])/(6*Pi^2*r^2*f[r]*h[r]^2) + 
   (gamma*si^2*Derivative[2][f][r])/(2*Pi^2*r^2*f[r]*h[r]^2) - 
   (Log[2]*Derivative[2][f][r])/(80*Pi^2*r^2*f[r]*h[r]^2) + 
   (si*Log[2]*Derivative[2][f][r])/(6*Pi^2*r^2*f[r]*h[r]^2) - 
   (si^2*Log[2]*Derivative[2][f][r])/(2*Pi^2*r^2*f[r]*h[r]^2) - 
   (Log[k]*Derivative[2][f][r])/(80*Pi^2*r^2*f[r]*h[r]^2) + 
   (si*Log[k]*Derivative[2][f][r])/(6*Pi^2*r^2*f[r]*h[r]^2) - 
   (si^2*Log[k]*Derivative[2][f][r])/(2*Pi^2*r^2*f[r]*h[r]^2) + 
   (Log[mu]*Derivative[2][f][r])/(80*Pi^2*r^2*f[r]*h[r]^2) - 
   (si*Log[mu]*Derivative[2][f][r])/(6*Pi^2*r^2*f[r]*h[r]^2) + 
   (si^2*Log[mu]*Derivative[2][f][r])/(2*Pi^2*r^2*f[r]*h[r]^2) + 
   (Log[f[r]]*Derivative[2][f][r])/(160*Pi^2*r^2*f[r]*h[r]^2) - 
   (si*Log[f[r]]*Derivative[2][f][r])/(12*Pi^2*r^2*f[r]*h[r]^2) + 
   (si^2*Log[f[r]]*Derivative[2][f][r])/(4*Pi^2*r^2*f[r]*h[r]^2) + 
   (13*Derivative[1][f][r]*Derivative[2][f][r])/(960*Pi^2*r*f[r]^2*h[r]^2) - 
   (gamma*Derivative[1][f][r]*Derivative[2][f][r])/
    (120*Pi^2*r*f[r]^2*h[r]^2) - 
   (3*si*Derivative[1][f][r]*Derivative[2][f][r])/(32*Pi^2*r*f[r]^2*h[r]^2) + 
   (gamma*si*Derivative[1][f][r]*Derivative[2][f][r])/
    (8*Pi^2*r*f[r]^2*h[r]^2) + (si^2*Derivative[1][f][r]*
      Derivative[2][f][r])/(8*Pi^2*r*f[r]^2*h[r]^2) - 
   (3*gamma*si^2*Derivative[1][f][r]*Derivative[2][f][r])/
    (8*Pi^2*r*f[r]^2*h[r]^2) + (Log[2]*Derivative[1][f][r]*
      Derivative[2][f][r])/(120*Pi^2*r*f[r]^2*h[r]^2) - 
   (si*Log[2]*Derivative[1][f][r]*Derivative[2][f][r])/
    (8*Pi^2*r*f[r]^2*h[r]^2) + (3*si^2*Log[2]*Derivative[1][f][r]*
      Derivative[2][f][r])/(8*Pi^2*r*f[r]^2*h[r]^2) + 
   (Log[k]*Derivative[1][f][r]*Derivative[2][f][r])/
    (120*Pi^2*r*f[r]^2*h[r]^2) - 
   (si*Log[k]*Derivative[1][f][r]*Derivative[2][f][r])/
    (8*Pi^2*r*f[r]^2*h[r]^2) + (3*si^2*Log[k]*Derivative[1][f][r]*
      Derivative[2][f][r])/(8*Pi^2*r*f[r]^2*h[r]^2) - 
   (Log[mu]*Derivative[1][f][r]*Derivative[2][f][r])/
    (120*Pi^2*r*f[r]^2*h[r]^2) + 
   (si*Log[mu]*Derivative[1][f][r]*Derivative[2][f][r])/
    (8*Pi^2*r*f[r]^2*h[r]^2) - (3*si^2*Log[mu]*Derivative[1][f][r]*
      Derivative[2][f][r])/(8*Pi^2*r*f[r]^2*h[r]^2) - 
   (Log[f[r]]*Derivative[1][f][r]*Derivative[2][f][r])/
    (240*Pi^2*r*f[r]^2*h[r]^2) + 
   (si*Log[f[r]]*Derivative[1][f][r]*Derivative[2][f][r])/
    (16*Pi^2*r*f[r]^2*h[r]^2) - 
   (3*si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[2][f][r])/
    (16*Pi^2*r*f[r]^2*h[r]^2) + 
   (13*Derivative[1][f][r]^2*Derivative[2][f][r])/(3840*Pi^2*f[r]^3*h[r]^2) - 
   (gamma*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (320*Pi^2*f[r]^3*h[r]^2) - (5*si*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(192*Pi^2*f[r]^3*h[r]^2) + 
   (gamma*si*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]^3*h[r]^2) + (si^2*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]^3*h[r]^2) - 
   (3*gamma*si^2*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]^3*h[r]^2) + (Log[2]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(320*Pi^2*f[r]^3*h[r]^2) - 
   (si*Log[2]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]^3*h[r]^2) + (3*si^2*Log[2]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]^3*h[r]^2) + 
   (Log[k]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (320*Pi^2*f[r]^3*h[r]^2) - (si*Log[k]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]^3*h[r]^2) + 
   (3*si^2*Log[k]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]^3*h[r]^2) - (Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(320*Pi^2*f[r]^3*h[r]^2) + 
   (si*Log[mu]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]^3*h[r]^2) - (3*si^2*Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]^3*h[r]^2) - 
   (Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (640*Pi^2*f[r]^3*h[r]^2) + (si*Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(64*Pi^2*f[r]^3*h[r]^2) - 
   (3*si^2*Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (64*Pi^2*f[r]^3*h[r]^2) + (Derivative[1][h][r]*Derivative[2][f][r])/
    (240*Pi^2*r*f[r]*h[r]^3) - (gamma*Derivative[1][h][r]*
      Derivative[2][f][r])/(160*Pi^2*r*f[r]*h[r]^3) - 
   (si*Derivative[1][h][r]*Derivative[2][f][r])/(48*Pi^2*r*f[r]*h[r]^3) + 
   (gamma*si*Derivative[1][h][r]*Derivative[2][f][r])/
    (12*Pi^2*r*f[r]*h[r]^3) - (gamma*si^2*Derivative[1][h][r]*
      Derivative[2][f][r])/(4*Pi^2*r*f[r]*h[r]^3) + 
   (Log[2]*Derivative[1][h][r]*Derivative[2][f][r])/
    (160*Pi^2*r*f[r]*h[r]^3) - (si*Log[2]*Derivative[1][h][r]*
      Derivative[2][f][r])/(12*Pi^2*r*f[r]*h[r]^3) + 
   (si^2*Log[2]*Derivative[1][h][r]*Derivative[2][f][r])/
    (4*Pi^2*r*f[r]*h[r]^3) + (Log[k]*Derivative[1][h][r]*
      Derivative[2][f][r])/(160*Pi^2*r*f[r]*h[r]^3) - 
   (si*Log[k]*Derivative[1][h][r]*Derivative[2][f][r])/
    (12*Pi^2*r*f[r]*h[r]^3) + (si^2*Log[k]*Derivative[1][h][r]*
      Derivative[2][f][r])/(4*Pi^2*r*f[r]*h[r]^3) - 
   (Log[mu]*Derivative[1][h][r]*Derivative[2][f][r])/
    (160*Pi^2*r*f[r]*h[r]^3) + (si*Log[mu]*Derivative[1][h][r]*
      Derivative[2][f][r])/(12*Pi^2*r*f[r]*h[r]^3) - 
   (si^2*Log[mu]*Derivative[1][h][r]*Derivative[2][f][r])/
    (4*Pi^2*r*f[r]*h[r]^3) - (Log[f[r]]*Derivative[1][h][r]*
      Derivative[2][f][r])/(320*Pi^2*r*f[r]*h[r]^3) + 
   (si*Log[f[r]]*Derivative[1][h][r]*Derivative[2][f][r])/
    (24*Pi^2*r*f[r]*h[r]^3) - (si^2*Log[f[r]]*Derivative[1][h][r]*
      Derivative[2][f][r])/(8*Pi^2*r*f[r]*h[r]^3) + 
   (Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (640*Pi^2*f[r]^2*h[r]^3) - (gamma*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(480*Pi^2*f[r]^2*h[r]^3) - 
   (si*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (96*Pi^2*f[r]^2*h[r]^3) + (gamma*si*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(48*Pi^2*f[r]^2*h[r]^3) - 
   (gamma*si^2*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (16*Pi^2*f[r]^2*h[r]^3) + (Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(480*Pi^2*f[r]^2*h[r]^3) - 
   (si*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (48*Pi^2*f[r]^2*h[r]^3) + (si^2*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(16*Pi^2*f[r]^2*h[r]^3) + 
   (Log[k]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (480*Pi^2*f[r]^2*h[r]^3) - (si*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(48*Pi^2*f[r]^2*h[r]^3) + 
   (si^2*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (16*Pi^2*f[r]^2*h[r]^3) - (Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(480*Pi^2*f[r]^2*h[r]^3) + 
   (si*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (48*Pi^2*f[r]^2*h[r]^3) - (si^2*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(16*Pi^2*f[r]^2*h[r]^3) - 
   (Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (960*Pi^2*f[r]^2*h[r]^3) + (si*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(96*Pi^2*f[r]^2*h[r]^3) - 
   (si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(32*Pi^2*f[r]^2*h[r]^3) + 
   Derivative[2][f][r]^2/(1280*Pi^2*f[r]^2*h[r]^2) - 
   (gamma*Derivative[2][f][r]^2)/(960*Pi^2*f[r]^2*h[r]^2) - 
   (si*Derivative[2][f][r]^2)/(192*Pi^2*f[r]^2*h[r]^2) + 
   (gamma*si*Derivative[2][f][r]^2)/(96*Pi^2*f[r]^2*h[r]^2) - 
   (gamma*si^2*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) + 
   (Log[2]*Derivative[2][f][r]^2)/(960*Pi^2*f[r]^2*h[r]^2) - 
   (si*Log[2]*Derivative[2][f][r]^2)/(96*Pi^2*f[r]^2*h[r]^2) + 
   (si^2*Log[2]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) + 
   (Log[k]*Derivative[2][f][r]^2)/(960*Pi^2*f[r]^2*h[r]^2) - 
   (si*Log[k]*Derivative[2][f][r]^2)/(96*Pi^2*f[r]^2*h[r]^2) + 
   (si^2*Log[k]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) - 
   (Log[mu]*Derivative[2][f][r]^2)/(960*Pi^2*f[r]^2*h[r]^2) + 
   (si*Log[mu]*Derivative[2][f][r]^2)/(96*Pi^2*f[r]^2*h[r]^2) - 
   (si^2*Log[mu]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) - 
   (Log[f[r]]*Derivative[2][f][r]^2)/(1920*Pi^2*f[r]^2*h[r]^2) + 
   (si*Log[f[r]]*Derivative[2][f][r]^2)/(192*Pi^2*f[r]^2*h[r]^2) - 
   (si^2*Log[f[r]]*Derivative[2][f][r]^2)/(64*Pi^2*f[r]^2*h[r]^2) - 
   (7*gamma*Derivative[2][h][r])/(480*Pi^2*r^2*h[r]^3) + 
   (gamma*si*Derivative[2][h][r])/(6*Pi^2*r^2*h[r]^3) - 
   (gamma*si^2*Derivative[2][h][r])/(2*Pi^2*r^2*h[r]^3) + 
   (7*Log[2]*Derivative[2][h][r])/(480*Pi^2*r^2*h[r]^3) - 
   (si*Log[2]*Derivative[2][h][r])/(6*Pi^2*r^2*h[r]^3) + 
   (si^2*Log[2]*Derivative[2][h][r])/(2*Pi^2*r^2*h[r]^3) + 
   (7*Log[k]*Derivative[2][h][r])/(480*Pi^2*r^2*h[r]^3) - 
   (si*Log[k]*Derivative[2][h][r])/(6*Pi^2*r^2*h[r]^3) + 
   (si^2*Log[k]*Derivative[2][h][r])/(2*Pi^2*r^2*h[r]^3) - 
   (7*Log[mu]*Derivative[2][h][r])/(480*Pi^2*r^2*h[r]^3) + 
   (si*Log[mu]*Derivative[2][h][r])/(6*Pi^2*r^2*h[r]^3) - 
   (si^2*Log[mu]*Derivative[2][h][r])/(2*Pi^2*r^2*h[r]^3) - 
   (7*Log[f[r]]*Derivative[2][h][r])/(960*Pi^2*r^2*h[r]^3) + 
   (si*Log[f[r]]*Derivative[2][h][r])/(12*Pi^2*r^2*h[r]^3) - 
   (si^2*Log[f[r]]*Derivative[2][h][r])/(4*Pi^2*r^2*h[r]^3) + 
   (Derivative[1][f][r]*Derivative[2][h][r])/(240*Pi^2*r*f[r]*h[r]^3) - 
   (gamma*Derivative[1][f][r]*Derivative[2][h][r])/(160*Pi^2*r*f[r]*h[r]^3) - 
   (si*Derivative[1][f][r]*Derivative[2][h][r])/(48*Pi^2*r*f[r]*h[r]^3) + 
   (gamma*si*Derivative[1][f][r]*Derivative[2][h][r])/
    (12*Pi^2*r*f[r]*h[r]^3) - (gamma*si^2*Derivative[1][f][r]*
      Derivative[2][h][r])/(4*Pi^2*r*f[r]*h[r]^3) + 
   (Log[2]*Derivative[1][f][r]*Derivative[2][h][r])/
    (160*Pi^2*r*f[r]*h[r]^3) - (si*Log[2]*Derivative[1][f][r]*
      Derivative[2][h][r])/(12*Pi^2*r*f[r]*h[r]^3) + 
   (si^2*Log[2]*Derivative[1][f][r]*Derivative[2][h][r])/
    (4*Pi^2*r*f[r]*h[r]^3) + (Log[k]*Derivative[1][f][r]*
      Derivative[2][h][r])/(160*Pi^2*r*f[r]*h[r]^3) - 
   (si*Log[k]*Derivative[1][f][r]*Derivative[2][h][r])/
    (12*Pi^2*r*f[r]*h[r]^3) + (si^2*Log[k]*Derivative[1][f][r]*
      Derivative[2][h][r])/(4*Pi^2*r*f[r]*h[r]^3) - 
   (Log[mu]*Derivative[1][f][r]*Derivative[2][h][r])/
    (160*Pi^2*r*f[r]*h[r]^3) + (si*Log[mu]*Derivative[1][f][r]*
      Derivative[2][h][r])/(12*Pi^2*r*f[r]*h[r]^3) - 
   (si^2*Log[mu]*Derivative[1][f][r]*Derivative[2][h][r])/
    (4*Pi^2*r*f[r]*h[r]^3) - (Log[f[r]]*Derivative[1][f][r]*
      Derivative[2][h][r])/(320*Pi^2*r*f[r]*h[r]^3) + 
   (si*Log[f[r]]*Derivative[1][f][r]*Derivative[2][h][r])/
    (24*Pi^2*r*f[r]*h[r]^3) - (si^2*Log[f[r]]*Derivative[1][f][r]*
      Derivative[2][h][r])/(8*Pi^2*r*f[r]*h[r]^3) + 
   (Derivative[1][f][r]^2*Derivative[2][h][r])/(1280*Pi^2*f[r]^2*h[r]^3) - 
   (gamma*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (960*Pi^2*f[r]^2*h[r]^3) - (si*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(192*Pi^2*f[r]^2*h[r]^3) + 
   (gamma*si*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (96*Pi^2*f[r]^2*h[r]^3) - (gamma*si^2*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(32*Pi^2*f[r]^2*h[r]^3) + 
   (Log[2]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (960*Pi^2*f[r]^2*h[r]^3) - (si*Log[2]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(96*Pi^2*f[r]^2*h[r]^3) + 
   (si^2*Log[2]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (32*Pi^2*f[r]^2*h[r]^3) + (Log[k]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(960*Pi^2*f[r]^2*h[r]^3) - 
   (si*Log[k]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (96*Pi^2*f[r]^2*h[r]^3) + (si^2*Log[k]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(32*Pi^2*f[r]^2*h[r]^3) - 
   (Log[mu]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (960*Pi^2*f[r]^2*h[r]^3) + (si*Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(96*Pi^2*f[r]^2*h[r]^3) - 
   (si^2*Log[mu]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (32*Pi^2*f[r]^2*h[r]^3) - (Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(1920*Pi^2*f[r]^2*h[r]^3) + 
   (si*Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (192*Pi^2*f[r]^2*h[r]^3) - (si^2*Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(64*Pi^2*f[r]^2*h[r]^3) - 
   Derivative[3][f][r]/(240*Pi^2*r*f[r]*h[r]^2) + 
   (gamma*Derivative[3][f][r])/(160*Pi^2*r*f[r]*h[r]^2) + 
   (si*Derivative[3][f][r])/(48*Pi^2*r*f[r]*h[r]^2) - 
   (gamma*si*Derivative[3][f][r])/(12*Pi^2*r*f[r]*h[r]^2) + 
   (gamma*si^2*Derivative[3][f][r])/(4*Pi^2*r*f[r]*h[r]^2) - 
   (Log[2]*Derivative[3][f][r])/(160*Pi^2*r*f[r]*h[r]^2) + 
   (si*Log[2]*Derivative[3][f][r])/(12*Pi^2*r*f[r]*h[r]^2) - 
   (si^2*Log[2]*Derivative[3][f][r])/(4*Pi^2*r*f[r]*h[r]^2) - 
   (Log[k]*Derivative[3][f][r])/(160*Pi^2*r*f[r]*h[r]^2) + 
   (si*Log[k]*Derivative[3][f][r])/(12*Pi^2*r*f[r]*h[r]^2) - 
   (si^2*Log[k]*Derivative[3][f][r])/(4*Pi^2*r*f[r]*h[r]^2) + 
   (Log[mu]*Derivative[3][f][r])/(160*Pi^2*r*f[r]*h[r]^2) - 
   (si*Log[mu]*Derivative[3][f][r])/(12*Pi^2*r*f[r]*h[r]^2) + 
   (si^2*Log[mu]*Derivative[3][f][r])/(4*Pi^2*r*f[r]*h[r]^2) + 
   (Log[f[r]]*Derivative[3][f][r])/(320*Pi^2*r*f[r]*h[r]^2) - 
   (si*Log[f[r]]*Derivative[3][f][r])/(24*Pi^2*r*f[r]*h[r]^2) + 
   (si^2*Log[f[r]]*Derivative[3][f][r])/(8*Pi^2*r*f[r]*h[r]^2) - 
   (Derivative[1][f][r]*Derivative[3][f][r])/(640*Pi^2*f[r]^2*h[r]^2) + 
   (gamma*Derivative[1][f][r]*Derivative[3][f][r])/(480*Pi^2*f[r]^2*h[r]^2) + 
   (si*Derivative[1][f][r]*Derivative[3][f][r])/(96*Pi^2*f[r]^2*h[r]^2) - 
   (gamma*si*Derivative[1][f][r]*Derivative[3][f][r])/
    (48*Pi^2*f[r]^2*h[r]^2) + (gamma*si^2*Derivative[1][f][r]*
      Derivative[3][f][r])/(16*Pi^2*f[r]^2*h[r]^2) - 
   (Log[2]*Derivative[1][f][r]*Derivative[3][f][r])/
    (480*Pi^2*f[r]^2*h[r]^2) + (si*Log[2]*Derivative[1][f][r]*
      Derivative[3][f][r])/(48*Pi^2*f[r]^2*h[r]^2) - 
   (si^2*Log[2]*Derivative[1][f][r]*Derivative[3][f][r])/
    (16*Pi^2*f[r]^2*h[r]^2) - (Log[k]*Derivative[1][f][r]*
      Derivative[3][f][r])/(480*Pi^2*f[r]^2*h[r]^2) + 
   (si*Log[k]*Derivative[1][f][r]*Derivative[3][f][r])/
    (48*Pi^2*f[r]^2*h[r]^2) - (si^2*Log[k]*Derivative[1][f][r]*
      Derivative[3][f][r])/(16*Pi^2*f[r]^2*h[r]^2) + 
   (Log[mu]*Derivative[1][f][r]*Derivative[3][f][r])/
    (480*Pi^2*f[r]^2*h[r]^2) - (si*Log[mu]*Derivative[1][f][r]*
      Derivative[3][f][r])/(48*Pi^2*f[r]^2*h[r]^2) + 
   (si^2*Log[mu]*Derivative[1][f][r]*Derivative[3][f][r])/
    (16*Pi^2*f[r]^2*h[r]^2) + (Log[f[r]]*Derivative[1][f][r]*
      Derivative[3][f][r])/(960*Pi^2*f[r]^2*h[r]^2) - 
   (si*Log[f[r]]*Derivative[1][f][r]*Derivative[3][f][r])/
    (96*Pi^2*f[r]^2*h[r]^2) + (si^2*Log[f[r]]*Derivative[1][f][r]*
      Derivative[3][f][r])/(32*Pi^2*f[r]^2*h[r]^2)
 
Tthth = (-3*m^4)/(128*Pi^2) + (gamma*m^4)/(32*Pi^2) - gamma/(240*Pi^2*r^4) + 
   (gamma*si)/(24*Pi^2*r^4) - (gamma*si^2)/(8*Pi^2*r^4) + 
   k^4/(1440*Pi^2*f[r]^2) - (k^2*m^2)/(96*Pi^2*f[r]) + 
   gamma/(40*Pi^2*r^4*h[r]^2) - (7*gamma*si)/(24*Pi^2*r^4*h[r]^2) + 
   (7*gamma*si^2)/(8*Pi^2*r^4*h[r]^2) - gamma/(48*Pi^2*r^4*h[r]) + 
   (gamma*si)/(4*Pi^2*r^4*h[r]) - (3*gamma*si^2)/(4*Pi^2*r^4*h[r]) - 
   (m^4*Log[2])/(32*Pi^2) + Log[2]/(240*Pi^2*r^4) - 
   (si*Log[2])/(24*Pi^2*r^4) + (si^2*Log[2])/(8*Pi^2*r^4) - 
   Log[2]/(40*Pi^2*r^4*h[r]^2) + (7*si*Log[2])/(24*Pi^2*r^4*h[r]^2) - 
   (7*si^2*Log[2])/(8*Pi^2*r^4*h[r]^2) + Log[2]/(48*Pi^2*r^4*h[r]) - 
   (si*Log[2])/(4*Pi^2*r^4*h[r]) + (3*si^2*Log[2])/(4*Pi^2*r^4*h[r]) - 
   (m^4*Log[k])/(32*Pi^2) + Log[k]/(240*Pi^2*r^4) - 
   (si*Log[k])/(24*Pi^2*r^4) + (si^2*Log[k])/(8*Pi^2*r^4) - 
   Log[k]/(40*Pi^2*r^4*h[r]^2) + (7*si*Log[k])/(24*Pi^2*r^4*h[r]^2) - 
   (7*si^2*Log[k])/(8*Pi^2*r^4*h[r]^2) + Log[k]/(48*Pi^2*r^4*h[r]) - 
   (si*Log[k])/(4*Pi^2*r^4*h[r]) + (3*si^2*Log[k])/(4*Pi^2*r^4*h[r]) + 
   (m^4*Log[mu])/(32*Pi^2) - Log[mu]/(240*Pi^2*r^4) + 
   (si*Log[mu])/(24*Pi^2*r^4) - (si^2*Log[mu])/(8*Pi^2*r^4) + 
   Log[mu]/(40*Pi^2*r^4*h[r]^2) - (7*si*Log[mu])/(24*Pi^2*r^4*h[r]^2) + 
   (7*si^2*Log[mu])/(8*Pi^2*r^4*h[r]^2) - Log[mu]/(48*Pi^2*r^4*h[r]) + 
   (si*Log[mu])/(4*Pi^2*r^4*h[r]) - (3*si^2*Log[mu])/(4*Pi^2*r^4*h[r]) + 
   (m^4*Log[f[r]])/(64*Pi^2) - Log[f[r]]/(480*Pi^2*r^4) + 
   (si*Log[f[r]])/(48*Pi^2*r^4) - (si^2*Log[f[r]])/(16*Pi^2*r^4) + 
   Log[f[r]]/(80*Pi^2*r^4*h[r]^2) - (7*si*Log[f[r]])/(48*Pi^2*r^4*h[r]^2) + 
   (7*si^2*Log[f[r]])/(16*Pi^2*r^4*h[r]^2) - Log[f[r]]/(96*Pi^2*r^4*h[r]) + 
   (si*Log[f[r]])/(8*Pi^2*r^4*h[r]) - (3*si^2*Log[f[r]])/(8*Pi^2*r^4*h[r]) - 
   (7*Derivative[1][f][r])/(480*Pi^2*r^3*f[r]*h[r]^2) - 
   (gamma*Derivative[1][f][r])/(240*Pi^2*r^3*f[r]*h[r]^2) + 
   (7*si*Derivative[1][f][r])/(48*Pi^2*r^3*f[r]*h[r]^2) + 
   (gamma*si*Derivative[1][f][r])/(24*Pi^2*r^3*f[r]*h[r]^2) - 
   (3*si^2*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]^2) - 
   (gamma*si^2*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]^2) + 
   (k^2*Derivative[1][f][r])/(576*Pi^2*r*f[r]^2*h[r]) - 
   (k^2*si*Derivative[1][f][r])/(96*Pi^2*r*f[r]^2*h[r]) + 
   Derivative[1][f][r]/(96*Pi^2*r^3*f[r]*h[r]) + 
   (gamma*Derivative[1][f][r])/(96*Pi^2*r^3*f[r]*h[r]) + 
   (m^2*Derivative[1][f][r])/(192*Pi^2*r*f[r]*h[r]) + 
   (gamma*m^2*Derivative[1][f][r])/(96*Pi^2*r*f[r]*h[r]) - 
   (si*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]) - 
   (gamma*si*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]) - 
   (m^2*si*Derivative[1][f][r])/(32*Pi^2*r*f[r]*h[r]) - 
   (gamma*m^2*si*Derivative[1][f][r])/(16*Pi^2*r*f[r]*h[r]) + 
   (3*si^2*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]) + 
   (3*gamma*si^2*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]) + 
   (Log[2]*Derivative[1][f][r])/(240*Pi^2*r^3*f[r]*h[r]^2) - 
   (si*Log[2]*Derivative[1][f][r])/(24*Pi^2*r^3*f[r]*h[r]^2) + 
   (si^2*Log[2]*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]^2) - 
   (Log[2]*Derivative[1][f][r])/(96*Pi^2*r^3*f[r]*h[r]) - 
   (m^2*Log[2]*Derivative[1][f][r])/(96*Pi^2*r*f[r]*h[r]) + 
   (si*Log[2]*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]) + 
   (m^2*si*Log[2]*Derivative[1][f][r])/(16*Pi^2*r*f[r]*h[r]) - 
   (3*si^2*Log[2]*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]) + 
   (Log[k]*Derivative[1][f][r])/(240*Pi^2*r^3*f[r]*h[r]^2) - 
   (si*Log[k]*Derivative[1][f][r])/(24*Pi^2*r^3*f[r]*h[r]^2) + 
   (si^2*Log[k]*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]^2) - 
   (Log[k]*Derivative[1][f][r])/(96*Pi^2*r^3*f[r]*h[r]) - 
   (m^2*Log[k]*Derivative[1][f][r])/(96*Pi^2*r*f[r]*h[r]) + 
   (si*Log[k]*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]) + 
   (m^2*si*Log[k]*Derivative[1][f][r])/(16*Pi^2*r*f[r]*h[r]) - 
   (3*si^2*Log[k]*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]) - 
   (Log[mu]*Derivative[1][f][r])/(240*Pi^2*r^3*f[r]*h[r]^2) + 
   (si*Log[mu]*Derivative[1][f][r])/(24*Pi^2*r^3*f[r]*h[r]^2) - 
   (si^2*Log[mu]*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]^2) + 
   (Log[mu]*Derivative[1][f][r])/(96*Pi^2*r^3*f[r]*h[r]) + 
   (m^2*Log[mu]*Derivative[1][f][r])/(96*Pi^2*r*f[r]*h[r]) - 
   (si*Log[mu]*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]) - 
   (m^2*si*Log[mu]*Derivative[1][f][r])/(16*Pi^2*r*f[r]*h[r]) + 
   (3*si^2*Log[mu]*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]) - 
   (Log[f[r]]*Derivative[1][f][r])/(480*Pi^2*r^3*f[r]*h[r]^2) + 
   (si*Log[f[r]]*Derivative[1][f][r])/(48*Pi^2*r^3*f[r]*h[r]^2) - 
   (si^2*Log[f[r]]*Derivative[1][f][r])/(16*Pi^2*r^3*f[r]*h[r]^2) + 
   (Log[f[r]]*Derivative[1][f][r])/(192*Pi^2*r^3*f[r]*h[r]) + 
   (m^2*Log[f[r]]*Derivative[1][f][r])/(192*Pi^2*r*f[r]*h[r]) - 
   (si*Log[f[r]]*Derivative[1][f][r])/(16*Pi^2*r^3*f[r]*h[r]) - 
   (m^2*si*Log[f[r]]*Derivative[1][f][r])/(32*Pi^2*r*f[r]*h[r]) + 
   (3*si^2*Log[f[r]]*Derivative[1][f][r])/(16*Pi^2*r^3*f[r]*h[r]) - 
   Derivative[1][f][r]^2/(128*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (gamma*Derivative[1][f][r]^2)/(320*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (5*si*Derivative[1][f][r]^2)/(64*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (gamma*si*Derivative[1][f][r]^2)/(24*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (3*si^2*Derivative[1][f][r]^2)/(16*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (gamma*si^2*Derivative[1][f][r]^2)/(8*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (5*k^2*Derivative[1][f][r]^2)/(1152*Pi^2*f[r]^3*h[r]) + 
   (5*k^2*si*Derivative[1][f][r]^2)/(192*Pi^2*f[r]^3*h[r]) - 
   (gamma*m^2*Derivative[1][f][r]^2)/(192*Pi^2*f[r]^2*h[r]) + 
   Derivative[1][f][r]^2/(384*Pi^2*r^2*f[r]^2*h[r]) + 
   (m^2*si*Derivative[1][f][r]^2)/(64*Pi^2*f[r]^2*h[r]) + 
   (gamma*m^2*si*Derivative[1][f][r]^2)/(32*Pi^2*f[r]^2*h[r]) - 
   (5*si*Derivative[1][f][r]^2)/(192*Pi^2*r^2*f[r]^2*h[r]) + 
   (si^2*Derivative[1][f][r]^2)/(16*Pi^2*r^2*f[r]^2*h[r]) - 
   (Log[2]*Derivative[1][f][r]^2)/(320*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si*Log[2]*Derivative[1][f][r]^2)/(24*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si^2*Log[2]*Derivative[1][f][r]^2)/(8*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (m^2*Log[2]*Derivative[1][f][r]^2)/(192*Pi^2*f[r]^2*h[r]) - 
   (m^2*si*Log[2]*Derivative[1][f][r]^2)/(32*Pi^2*f[r]^2*h[r]) - 
   (Log[k]*Derivative[1][f][r]^2)/(320*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si*Log[k]*Derivative[1][f][r]^2)/(24*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si^2*Log[k]*Derivative[1][f][r]^2)/(8*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (m^2*Log[k]*Derivative[1][f][r]^2)/(192*Pi^2*f[r]^2*h[r]) - 
   (m^2*si*Log[k]*Derivative[1][f][r]^2)/(32*Pi^2*f[r]^2*h[r]) + 
   (Log[mu]*Derivative[1][f][r]^2)/(320*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si*Log[mu]*Derivative[1][f][r]^2)/(24*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si^2*Log[mu]*Derivative[1][f][r]^2)/(8*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (m^2*Log[mu]*Derivative[1][f][r]^2)/(192*Pi^2*f[r]^2*h[r]) + 
   (m^2*si*Log[mu]*Derivative[1][f][r]^2)/(32*Pi^2*f[r]^2*h[r]) + 
   (Log[f[r]]*Derivative[1][f][r]^2)/(640*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si*Log[f[r]]*Derivative[1][f][r]^2)/(48*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si^2*Log[f[r]]*Derivative[1][f][r]^2)/(16*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (m^2*Log[f[r]]*Derivative[1][f][r]^2)/(384*Pi^2*f[r]^2*h[r]) + 
   (m^2*si*Log[f[r]]*Derivative[1][f][r]^2)/(64*Pi^2*f[r]^2*h[r]) - 
   (13*Derivative[1][f][r]^3)/(640*Pi^2*r*f[r]^3*h[r]^2) + 
   (gamma*Derivative[1][f][r]^3)/(80*Pi^2*r*f[r]^3*h[r]^2) + 
   (17*si*Derivative[1][f][r]^3)/(96*Pi^2*r*f[r]^3*h[r]^2) - 
   (5*gamma*si*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) - 
   (11*si^2*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) + 
   (15*gamma*si^2*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) - 
   (Log[2]*Derivative[1][f][r]^3)/(80*Pi^2*r*f[r]^3*h[r]^2) + 
   (5*si*Log[2]*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) - 
   (15*si^2*Log[2]*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) - 
   (Log[k]*Derivative[1][f][r]^3)/(80*Pi^2*r*f[r]^3*h[r]^2) + 
   (5*si*Log[k]*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) - 
   (15*si^2*Log[k]*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) + 
   (Log[mu]*Derivative[1][f][r]^3)/(80*Pi^2*r*f[r]^3*h[r]^2) - 
   (5*si*Log[mu]*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) + 
   (15*si^2*Log[mu]*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) + 
   (Log[f[r]]*Derivative[1][f][r]^3)/(160*Pi^2*r*f[r]^3*h[r]^2) - 
   (5*si*Log[f[r]]*Derivative[1][f][r]^3)/(64*Pi^2*r*f[r]^3*h[r]^2) + 
   (15*si^2*Log[f[r]]*Derivative[1][f][r]^3)/(64*Pi^2*r*f[r]^3*h[r]^2) + 
   (209*Derivative[1][f][r]^4)/(15360*Pi^2*f[r]^4*h[r]^2) - 
   (29*gamma*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) - 
   (79*si*Derivative[1][f][r]^4)/(768*Pi^2*f[r]^4*h[r]^2) + 
   (13*gamma*si*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) + 
   (9*si^2*Derivative[1][f][r]^4)/(64*Pi^2*f[r]^4*h[r]^2) - 
   (39*gamma*si^2*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) + 
   (29*Log[2]*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) - 
   (13*si*Log[2]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) + 
   (39*si^2*Log[2]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) + 
   (29*Log[k]*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) - 
   (13*si*Log[k]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) + 
   (39*si^2*Log[k]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) - 
   (29*Log[mu]*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) + 
   (13*si*Log[mu]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) - 
   (39*si^2*Log[mu]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) - 
   (29*Log[f[r]]*Derivative[1][f][r]^4)/(7680*Pi^2*f[r]^4*h[r]^2) + 
   (13*si*Log[f[r]]*Derivative[1][f][r]^4)/(256*Pi^2*f[r]^4*h[r]^2) - 
   (39*si^2*Log[f[r]]*Derivative[1][f][r]^4)/(256*Pi^2*f[r]^4*h[r]^2) + 
   (gamma*Derivative[1][h][r])/(40*Pi^2*r^3*h[r]^3) - 
   (7*gamma*si*Derivative[1][h][r])/(24*Pi^2*r^3*h[r]^3) + 
   (7*gamma*si^2*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^3) - 
   (gamma*Derivative[1][h][r])/(96*Pi^2*r^3*h[r]^2) + 
   (m^2*Derivative[1][h][r])/(192*Pi^2*r*h[r]^2) - 
   (gamma*m^2*Derivative[1][h][r])/(96*Pi^2*r*h[r]^2) + 
   (gamma*si*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^2) - 
   (m^2*si*Derivative[1][h][r])/(32*Pi^2*r*h[r]^2) + 
   (gamma*m^2*si*Derivative[1][h][r])/(16*Pi^2*r*h[r]^2) - 
   (3*gamma*si^2*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^2) + 
   (k^2*Derivative[1][h][r])/(576*Pi^2*r*f[r]*h[r]^2) - 
   (k^2*si*Derivative[1][h][r])/(96*Pi^2*r*f[r]*h[r]^2) - 
   (Log[2]*Derivative[1][h][r])/(40*Pi^2*r^3*h[r]^3) + 
   (7*si*Log[2]*Derivative[1][h][r])/(24*Pi^2*r^3*h[r]^3) - 
   (7*si^2*Log[2]*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^3) + 
   (Log[2]*Derivative[1][h][r])/(96*Pi^2*r^3*h[r]^2) + 
   (m^2*Log[2]*Derivative[1][h][r])/(96*Pi^2*r*h[r]^2) - 
   (si*Log[2]*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^2) - 
   (m^2*si*Log[2]*Derivative[1][h][r])/(16*Pi^2*r*h[r]^2) + 
   (3*si^2*Log[2]*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^2) - 
   (Log[k]*Derivative[1][h][r])/(40*Pi^2*r^3*h[r]^3) + 
   (7*si*Log[k]*Derivative[1][h][r])/(24*Pi^2*r^3*h[r]^3) - 
   (7*si^2*Log[k]*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^3) + 
   (Log[k]*Derivative[1][h][r])/(96*Pi^2*r^3*h[r]^2) + 
   (m^2*Log[k]*Derivative[1][h][r])/(96*Pi^2*r*h[r]^2) - 
   (si*Log[k]*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^2) - 
   (m^2*si*Log[k]*Derivative[1][h][r])/(16*Pi^2*r*h[r]^2) + 
   (3*si^2*Log[k]*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^2) + 
   (Log[mu]*Derivative[1][h][r])/(40*Pi^2*r^3*h[r]^3) - 
   (7*si*Log[mu]*Derivative[1][h][r])/(24*Pi^2*r^3*h[r]^3) + 
   (7*si^2*Log[mu]*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^3) - 
   (Log[mu]*Derivative[1][h][r])/(96*Pi^2*r^3*h[r]^2) - 
   (m^2*Log[mu]*Derivative[1][h][r])/(96*Pi^2*r*h[r]^2) + 
   (si*Log[mu]*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^2) + 
   (m^2*si*Log[mu]*Derivative[1][h][r])/(16*Pi^2*r*h[r]^2) - 
   (3*si^2*Log[mu]*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^2) + 
   (Log[f[r]]*Derivative[1][h][r])/(80*Pi^2*r^3*h[r]^3) - 
   (7*si*Log[f[r]]*Derivative[1][h][r])/(48*Pi^2*r^3*h[r]^3) + 
   (7*si^2*Log[f[r]]*Derivative[1][h][r])/(16*Pi^2*r^3*h[r]^3) - 
   (Log[f[r]]*Derivative[1][h][r])/(192*Pi^2*r^3*h[r]^2) - 
   (m^2*Log[f[r]]*Derivative[1][h][r])/(192*Pi^2*r*h[r]^2) + 
   (si*Log[f[r]]*Derivative[1][h][r])/(16*Pi^2*r^3*h[r]^2) + 
   (m^2*si*Log[f[r]]*Derivative[1][h][r])/(32*Pi^2*r*h[r]^2) - 
   (3*si^2*Log[f[r]]*Derivative[1][h][r])/(16*Pi^2*r^3*h[r]^2) - 
   (9*Derivative[1][f][r]*Derivative[1][h][r])/(640*Pi^2*r^2*f[r]*h[r]^3) + 
   (3*gamma*Derivative[1][f][r]*Derivative[1][h][r])/
    (320*Pi^2*r^2*f[r]*h[r]^3) + 
   (7*si*Derivative[1][f][r]*Derivative[1][h][r])/(64*Pi^2*r^2*f[r]*h[r]^3) - 
   (gamma*si*Derivative[1][f][r]*Derivative[1][h][r])/
    (8*Pi^2*r^2*f[r]*h[r]^3) - (3*si^2*Derivative[1][f][r]*
      Derivative[1][h][r])/(16*Pi^2*r^2*f[r]*h[r]^3) + 
   (3*gamma*si^2*Derivative[1][f][r]*Derivative[1][h][r])/
    (8*Pi^2*r^2*f[r]*h[r]^3) - (k^2*Derivative[1][f][r]*Derivative[1][h][r])/
    (1152*Pi^2*f[r]^2*h[r]^2) + 
   (k^2*si*Derivative[1][f][r]*Derivative[1][h][r])/
    (192*Pi^2*f[r]^2*h[r]^2) - (m^2*Derivative[1][f][r]*Derivative[1][h][r])/
    (384*Pi^2*f[r]*h[r]^2) - (gamma*m^2*Derivative[1][f][r]*
      Derivative[1][h][r])/(192*Pi^2*f[r]*h[r]^2) + 
   (Derivative[1][f][r]*Derivative[1][h][r])/(384*Pi^2*r^2*f[r]*h[r]^2) + 
   (m^2*si*Derivative[1][f][r]*Derivative[1][h][r])/(64*Pi^2*f[r]*h[r]^2) + 
   (gamma*m^2*si*Derivative[1][f][r]*Derivative[1][h][r])/
    (32*Pi^2*f[r]*h[r]^2) - (5*si*Derivative[1][f][r]*Derivative[1][h][r])/
    (192*Pi^2*r^2*f[r]*h[r]^2) + 
   (si^2*Derivative[1][f][r]*Derivative[1][h][r])/(16*Pi^2*r^2*f[r]*h[r]^2) - 
   (3*Log[2]*Derivative[1][f][r]*Derivative[1][h][r])/
    (320*Pi^2*r^2*f[r]*h[r]^3) + 
   (si*Log[2]*Derivative[1][f][r]*Derivative[1][h][r])/
    (8*Pi^2*r^2*f[r]*h[r]^3) - (3*si^2*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r])/(8*Pi^2*r^2*f[r]*h[r]^3) + 
   (m^2*Log[2]*Derivative[1][f][r]*Derivative[1][h][r])/
    (192*Pi^2*f[r]*h[r]^2) - (m^2*si*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r])/(32*Pi^2*f[r]*h[r]^2) - 
   (3*Log[k]*Derivative[1][f][r]*Derivative[1][h][r])/
    (320*Pi^2*r^2*f[r]*h[r]^3) + 
   (si*Log[k]*Derivative[1][f][r]*Derivative[1][h][r])/
    (8*Pi^2*r^2*f[r]*h[r]^3) - (3*si^2*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r])/(8*Pi^2*r^2*f[r]*h[r]^3) + 
   (m^2*Log[k]*Derivative[1][f][r]*Derivative[1][h][r])/
    (192*Pi^2*f[r]*h[r]^2) - (m^2*si*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r])/(32*Pi^2*f[r]*h[r]^2) + 
   (3*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r])/
    (320*Pi^2*r^2*f[r]*h[r]^3) - 
   (si*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r])/
    (8*Pi^2*r^2*f[r]*h[r]^3) + (3*si^2*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r])/(8*Pi^2*r^2*f[r]*h[r]^3) - 
   (m^2*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r])/
    (192*Pi^2*f[r]*h[r]^2) + (m^2*si*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r])/(32*Pi^2*f[r]*h[r]^2) + 
   (3*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r])/
    (640*Pi^2*r^2*f[r]*h[r]^3) - 
   (si*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r])/
    (16*Pi^2*r^2*f[r]*h[r]^3) + 
   (3*si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r])/
    (16*Pi^2*r^2*f[r]*h[r]^3) - 
   (m^2*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r])/
    (384*Pi^2*f[r]*h[r]^2) + (m^2*si*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r])/(64*Pi^2*f[r]*h[r]^2) - 
   (77*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (3840*Pi^2*r*f[r]^2*h[r]^3) + 
   (gamma*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (60*Pi^2*r*f[r]^2*h[r]^3) + 
   (21*si*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (128*Pi^2*r*f[r]^2*h[r]^3) - 
   (5*gamma*si*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (24*Pi^2*r*f[r]^2*h[r]^3) - 
   (9*si^2*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (32*Pi^2*r*f[r]^2*h[r]^3) + 
   (5*gamma*si^2*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (8*Pi^2*r*f[r]^2*h[r]^3) - (Log[2]*Derivative[1][f][r]^2*
      Derivative[1][h][r])/(60*Pi^2*r*f[r]^2*h[r]^3) + 
   (5*si*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (24*Pi^2*r*f[r]^2*h[r]^3) - 
   (5*si^2*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (8*Pi^2*r*f[r]^2*h[r]^3) - (Log[k]*Derivative[1][f][r]^2*
      Derivative[1][h][r])/(60*Pi^2*r*f[r]^2*h[r]^3) + 
   (5*si*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (24*Pi^2*r*f[r]^2*h[r]^3) - 
   (5*si^2*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (8*Pi^2*r*f[r]^2*h[r]^3) + (Log[mu]*Derivative[1][f][r]^2*
      Derivative[1][h][r])/(60*Pi^2*r*f[r]^2*h[r]^3) - 
   (5*si*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (24*Pi^2*r*f[r]^2*h[r]^3) + 
   (5*si^2*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (8*Pi^2*r*f[r]^2*h[r]^3) + (Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[1][h][r])/(120*Pi^2*r*f[r]^2*h[r]^3) - 
   (5*si*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (48*Pi^2*r*f[r]^2*h[r]^3) + 
   (5*si^2*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) + 
   (169*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (11520*Pi^2*f[r]^3*h[r]^3) - 
   (17*gamma*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (1920*Pi^2*f[r]^3*h[r]^3) - 
   (85*si*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (768*Pi^2*f[r]^3*h[r]^3) + (23*gamma*si*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(192*Pi^2*f[r]^3*h[r]^3) + 
   (5*si^2*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (32*Pi^2*f[r]^3*h[r]^3) - (23*gamma*si^2*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) + 
   (17*Log[2]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (1920*Pi^2*f[r]^3*h[r]^3) - 
   (23*si*Log[2]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (192*Pi^2*f[r]^3*h[r]^3) + (23*si^2*Log[2]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) + 
   (17*Log[k]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (1920*Pi^2*f[r]^3*h[r]^3) - 
   (23*si*Log[k]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (192*Pi^2*f[r]^3*h[r]^3) + (23*si^2*Log[k]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) - 
   (17*Log[mu]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (1920*Pi^2*f[r]^3*h[r]^3) + 
   (23*si*Log[mu]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (192*Pi^2*f[r]^3*h[r]^3) - (23*si^2*Log[mu]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) - 
   (17*Log[f[r]]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (3840*Pi^2*f[r]^3*h[r]^3) + 
   (23*si*Log[f[r]]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (384*Pi^2*f[r]^3*h[r]^3) - (23*si^2*Log[f[r]]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(128*Pi^2*f[r]^3*h[r]^3) + 
   (11*Derivative[1][f][r]*Derivative[1][h][r]^2)/(1280*Pi^2*r*f[r]*h[r]^4) + 
   (9*gamma*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (320*Pi^2*r*f[r]*h[r]^4) - (19*si*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(128*Pi^2*r*f[r]*h[r]^4) - 
   (11*gamma*si*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (32*Pi^2*r*f[r]*h[r]^4) + (9*si^2*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(16*Pi^2*r*f[r]*h[r]^4) + 
   (33*gamma*si^2*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (32*Pi^2*r*f[r]*h[r]^4) - (9*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(320*Pi^2*r*f[r]*h[r]^4) + 
   (11*si*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (32*Pi^2*r*f[r]*h[r]^4) - (33*si^2*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(32*Pi^2*r*f[r]*h[r]^4) - 
   (9*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (320*Pi^2*r*f[r]*h[r]^4) + (11*si*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(32*Pi^2*r*f[r]*h[r]^4) - 
   (33*si^2*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (32*Pi^2*r*f[r]*h[r]^4) + (9*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(320*Pi^2*r*f[r]*h[r]^4) - 
   (11*si*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (32*Pi^2*r*f[r]*h[r]^4) + (33*si^2*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(32*Pi^2*r*f[r]*h[r]^4) + 
   (9*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (640*Pi^2*r*f[r]*h[r]^4) - (11*si*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(64*Pi^2*r*f[r]*h[r]^4) + 
   (33*si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (64*Pi^2*r*f[r]*h[r]^4) + (197*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(15360*Pi^2*f[r]^2*h[r]^4) - 
   (7*gamma*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (768*Pi^2*f[r]^2*h[r]^4) - (37*si*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(384*Pi^2*f[r]^2*h[r]^4) + 
   (47*gamma*si*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (384*Pi^2*f[r]^2*h[r]^4) + (9*si^2*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(64*Pi^2*f[r]^2*h[r]^4) - 
   (47*gamma*si^2*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (128*Pi^2*f[r]^2*h[r]^4) + (7*Log[2]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(768*Pi^2*f[r]^2*h[r]^4) - 
   (47*si*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (384*Pi^2*f[r]^2*h[r]^4) + (47*si^2*Log[2]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(128*Pi^2*f[r]^2*h[r]^4) + 
   (7*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (768*Pi^2*f[r]^2*h[r]^4) - (47*si*Log[k]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(384*Pi^2*f[r]^2*h[r]^4) + 
   (47*si^2*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (128*Pi^2*f[r]^2*h[r]^4) - (7*Log[mu]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(768*Pi^2*f[r]^2*h[r]^4) + 
   (47*si*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (384*Pi^2*f[r]^2*h[r]^4) - (47*si^2*Log[mu]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(128*Pi^2*f[r]^2*h[r]^4) - 
   (7*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (1536*Pi^2*f[r]^2*h[r]^4) + 
   (47*si*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (768*Pi^2*f[r]^2*h[r]^4) - (47*si^2*Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(256*Pi^2*f[r]^2*h[r]^4) - 
   (49*gamma*Derivative[1][h][r]^3)/(960*Pi^2*r*h[r]^5) + 
   (7*gamma*si*Derivative[1][h][r]^3)/(12*Pi^2*r*h[r]^5) - 
   (7*gamma*si^2*Derivative[1][h][r]^3)/(4*Pi^2*r*h[r]^5) + 
   (49*Log[2]*Derivative[1][h][r]^3)/(960*Pi^2*r*h[r]^5) - 
   (7*si*Log[2]*Derivative[1][h][r]^3)/(12*Pi^2*r*h[r]^5) + 
   (7*si^2*Log[2]*Derivative[1][h][r]^3)/(4*Pi^2*r*h[r]^5) + 
   (49*Log[k]*Derivative[1][h][r]^3)/(960*Pi^2*r*h[r]^5) - 
   (7*si*Log[k]*Derivative[1][h][r]^3)/(12*Pi^2*r*h[r]^5) + 
   (7*si^2*Log[k]*Derivative[1][h][r]^3)/(4*Pi^2*r*h[r]^5) - 
   (49*Log[mu]*Derivative[1][h][r]^3)/(960*Pi^2*r*h[r]^5) + 
   (7*si*Log[mu]*Derivative[1][h][r]^3)/(12*Pi^2*r*h[r]^5) - 
   (7*si^2*Log[mu]*Derivative[1][h][r]^3)/(4*Pi^2*r*h[r]^5) - 
   (49*Log[f[r]]*Derivative[1][h][r]^3)/(1920*Pi^2*r*h[r]^5) + 
   (7*si*Log[f[r]]*Derivative[1][h][r]^3)/(24*Pi^2*r*h[r]^5) - 
   (7*si^2*Log[f[r]]*Derivative[1][h][r]^3)/(8*Pi^2*r*h[r]^5) + 
   (7*Derivative[1][f][r]*Derivative[1][h][r]^3)/(960*Pi^2*f[r]*h[r]^5) - 
   (7*gamma*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (640*Pi^2*f[r]*h[r]^5) - (7*si*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(192*Pi^2*f[r]*h[r]^5) + 
   (7*gamma*si*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (48*Pi^2*f[r]*h[r]^5) - (7*gamma*si^2*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(16*Pi^2*f[r]*h[r]^5) + 
   (7*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (640*Pi^2*f[r]*h[r]^5) - (7*si*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(48*Pi^2*f[r]*h[r]^5) + 
   (7*si^2*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (16*Pi^2*f[r]*h[r]^5) + (7*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(640*Pi^2*f[r]*h[r]^5) - 
   (7*si*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (48*Pi^2*f[r]*h[r]^5) + (7*si^2*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(16*Pi^2*f[r]*h[r]^5) - 
   (7*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (640*Pi^2*f[r]*h[r]^5) + (7*si*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(48*Pi^2*f[r]*h[r]^5) - 
   (7*si^2*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (16*Pi^2*f[r]*h[r]^5) - (7*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(1280*Pi^2*f[r]*h[r]^5) + 
   (7*si*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (96*Pi^2*f[r]*h[r]^5) - (7*si^2*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(32*Pi^2*f[r]*h[r]^5) + 
   (3*Derivative[2][f][r])/(320*Pi^2*r^2*f[r]*h[r]^2) - 
   (gamma*Derivative[2][f][r])/(160*Pi^2*r^2*f[r]*h[r]^2) - 
   (7*si*Derivative[2][f][r])/(96*Pi^2*r^2*f[r]*h[r]^2) + 
   (gamma*si*Derivative[2][f][r])/(12*Pi^2*r^2*f[r]*h[r]^2) + 
   (si^2*Derivative[2][f][r])/(8*Pi^2*r^2*f[r]*h[r]^2) - 
   (gamma*si^2*Derivative[2][f][r])/(4*Pi^2*r^2*f[r]*h[r]^2) + 
   (k^2*Derivative[2][f][r])/(576*Pi^2*f[r]^2*h[r]) - 
   (k^2*si*Derivative[2][f][r])/(96*Pi^2*f[r]^2*h[r]) + 
   (m^2*Derivative[2][f][r])/(192*Pi^2*f[r]*h[r]) + 
   (gamma*m^2*Derivative[2][f][r])/(96*Pi^2*f[r]*h[r]) - 
   Derivative[2][f][r]/(192*Pi^2*r^2*f[r]*h[r]) - 
   (m^2*si*Derivative[2][f][r])/(32*Pi^2*f[r]*h[r]) - 
   (gamma*m^2*si*Derivative[2][f][r])/(16*Pi^2*f[r]*h[r]) + 
   (5*si*Derivative[2][f][r])/(96*Pi^2*r^2*f[r]*h[r]) - 
   (si^2*Derivative[2][f][r])/(8*Pi^2*r^2*f[r]*h[r]) + 
   (Log[2]*Derivative[2][f][r])/(160*Pi^2*r^2*f[r]*h[r]^2) - 
   (si*Log[2]*Derivative[2][f][r])/(12*Pi^2*r^2*f[r]*h[r]^2) + 
   (si^2*Log[2]*Derivative[2][f][r])/(4*Pi^2*r^2*f[r]*h[r]^2) - 
   (m^2*Log[2]*Derivative[2][f][r])/(96*Pi^2*f[r]*h[r]) + 
   (m^2*si*Log[2]*Derivative[2][f][r])/(16*Pi^2*f[r]*h[r]) + 
   (Log[k]*Derivative[2][f][r])/(160*Pi^2*r^2*f[r]*h[r]^2) - 
   (si*Log[k]*Derivative[2][f][r])/(12*Pi^2*r^2*f[r]*h[r]^2) + 
   (si^2*Log[k]*Derivative[2][f][r])/(4*Pi^2*r^2*f[r]*h[r]^2) - 
   (m^2*Log[k]*Derivative[2][f][r])/(96*Pi^2*f[r]*h[r]) + 
   (m^2*si*Log[k]*Derivative[2][f][r])/(16*Pi^2*f[r]*h[r]) - 
   (Log[mu]*Derivative[2][f][r])/(160*Pi^2*r^2*f[r]*h[r]^2) + 
   (si*Log[mu]*Derivative[2][f][r])/(12*Pi^2*r^2*f[r]*h[r]^2) - 
   (si^2*Log[mu]*Derivative[2][f][r])/(4*Pi^2*r^2*f[r]*h[r]^2) + 
   (m^2*Log[mu]*Derivative[2][f][r])/(96*Pi^2*f[r]*h[r]) - 
   (m^2*si*Log[mu]*Derivative[2][f][r])/(16*Pi^2*f[r]*h[r]) - 
   (Log[f[r]]*Derivative[2][f][r])/(320*Pi^2*r^2*f[r]*h[r]^2) + 
   (si*Log[f[r]]*Derivative[2][f][r])/(24*Pi^2*r^2*f[r]*h[r]^2) - 
   (si^2*Log[f[r]]*Derivative[2][f][r])/(8*Pi^2*r^2*f[r]*h[r]^2) + 
   (m^2*Log[f[r]]*Derivative[2][f][r])/(192*Pi^2*f[r]*h[r]) - 
   (m^2*si*Log[f[r]]*Derivative[2][f][r])/(32*Pi^2*f[r]*h[r]) + 
   (169*Derivative[1][f][r]*Derivative[2][f][r])/
    (5760*Pi^2*r*f[r]^2*h[r]^2) - 
   (41*gamma*Derivative[1][f][r]*Derivative[2][f][r])/
    (1920*Pi^2*r*f[r]^2*h[r]^2) - 
   (47*si*Derivative[1][f][r]*Derivative[2][f][r])/
    (192*Pi^2*r*f[r]^2*h[r]^2) + 
   (13*gamma*si*Derivative[1][f][r]*Derivative[2][f][r])/
    (48*Pi^2*r*f[r]^2*h[r]^2) + 
   (7*si^2*Derivative[1][f][r]*Derivative[2][f][r])/
    (16*Pi^2*r*f[r]^2*h[r]^2) - 
   (13*gamma*si^2*Derivative[1][f][r]*Derivative[2][f][r])/
    (16*Pi^2*r*f[r]^2*h[r]^2) + 
   (41*Log[2]*Derivative[1][f][r]*Derivative[2][f][r])/
    (1920*Pi^2*r*f[r]^2*h[r]^2) - 
   (13*si*Log[2]*Derivative[1][f][r]*Derivative[2][f][r])/
    (48*Pi^2*r*f[r]^2*h[r]^2) + 
   (13*si^2*Log[2]*Derivative[1][f][r]*Derivative[2][f][r])/
    (16*Pi^2*r*f[r]^2*h[r]^2) + 
   (41*Log[k]*Derivative[1][f][r]*Derivative[2][f][r])/
    (1920*Pi^2*r*f[r]^2*h[r]^2) - 
   (13*si*Log[k]*Derivative[1][f][r]*Derivative[2][f][r])/
    (48*Pi^2*r*f[r]^2*h[r]^2) + 
   (13*si^2*Log[k]*Derivative[1][f][r]*Derivative[2][f][r])/
    (16*Pi^2*r*f[r]^2*h[r]^2) - 
   (41*Log[mu]*Derivative[1][f][r]*Derivative[2][f][r])/
    (1920*Pi^2*r*f[r]^2*h[r]^2) + 
   (13*si*Log[mu]*Derivative[1][f][r]*Derivative[2][f][r])/
    (48*Pi^2*r*f[r]^2*h[r]^2) - 
   (13*si^2*Log[mu]*Derivative[1][f][r]*Derivative[2][f][r])/
    (16*Pi^2*r*f[r]^2*h[r]^2) - 
   (41*Log[f[r]]*Derivative[1][f][r]*Derivative[2][f][r])/
    (3840*Pi^2*r*f[r]^2*h[r]^2) + 
   (13*si*Log[f[r]]*Derivative[1][f][r]*Derivative[2][f][r])/
    (96*Pi^2*r*f[r]^2*h[r]^2) - 
   (13*si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[2][f][r])/
    (32*Pi^2*r*f[r]^2*h[r]^2) - 
   (169*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (5760*Pi^2*f[r]^3*h[r]^2) + 
   (17*gamma*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (960*Pi^2*f[r]^3*h[r]^2) + (85*si*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(384*Pi^2*f[r]^3*h[r]^2) - 
   (23*gamma*si*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (96*Pi^2*f[r]^3*h[r]^2) - (5*si^2*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(16*Pi^2*f[r]^3*h[r]^2) + 
   (23*gamma*si^2*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]^3*h[r]^2) - (17*Log[2]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(960*Pi^2*f[r]^3*h[r]^2) + 
   (23*si*Log[2]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (96*Pi^2*f[r]^3*h[r]^2) - (23*si^2*Log[2]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]^3*h[r]^2) - 
   (17*Log[k]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (960*Pi^2*f[r]^3*h[r]^2) + (23*si*Log[k]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(96*Pi^2*f[r]^3*h[r]^2) - 
   (23*si^2*Log[k]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]^3*h[r]^2) + (17*Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(960*Pi^2*f[r]^3*h[r]^2) - 
   (23*si*Log[mu]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (96*Pi^2*f[r]^3*h[r]^2) + (23*si^2*Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]^3*h[r]^2) + 
   (17*Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (1920*Pi^2*f[r]^3*h[r]^2) - 
   (23*si*Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (192*Pi^2*f[r]^3*h[r]^2) + (23*si^2*Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(64*Pi^2*f[r]^3*h[r]^2) + 
   (17*Derivative[1][h][r]*Derivative[2][f][r])/(1920*Pi^2*r*f[r]*h[r]^3) - 
   (43*gamma*Derivative[1][h][r]*Derivative[2][f][r])/
    (1920*Pi^2*r*f[r]*h[r]^3) - 
   (si*Derivative[1][h][r]*Derivative[2][f][r])/(48*Pi^2*r*f[r]*h[r]^3) + 
   (7*gamma*si*Derivative[1][h][r]*Derivative[2][f][r])/
    (24*Pi^2*r*f[r]*h[r]^3) - (si^2*Derivative[1][h][r]*Derivative[2][f][r])/
    (8*Pi^2*r*f[r]*h[r]^3) - (7*gamma*si^2*Derivative[1][h][r]*
      Derivative[2][f][r])/(8*Pi^2*r*f[r]*h[r]^3) + 
   (43*Log[2]*Derivative[1][h][r]*Derivative[2][f][r])/
    (1920*Pi^2*r*f[r]*h[r]^3) - 
   (7*si*Log[2]*Derivative[1][h][r]*Derivative[2][f][r])/
    (24*Pi^2*r*f[r]*h[r]^3) + (7*si^2*Log[2]*Derivative[1][h][r]*
      Derivative[2][f][r])/(8*Pi^2*r*f[r]*h[r]^3) + 
   (43*Log[k]*Derivative[1][h][r]*Derivative[2][f][r])/
    (1920*Pi^2*r*f[r]*h[r]^3) - 
   (7*si*Log[k]*Derivative[1][h][r]*Derivative[2][f][r])/
    (24*Pi^2*r*f[r]*h[r]^3) + (7*si^2*Log[k]*Derivative[1][h][r]*
      Derivative[2][f][r])/(8*Pi^2*r*f[r]*h[r]^3) - 
   (43*Log[mu]*Derivative[1][h][r]*Derivative[2][f][r])/
    (1920*Pi^2*r*f[r]*h[r]^3) + 
   (7*si*Log[mu]*Derivative[1][h][r]*Derivative[2][f][r])/
    (24*Pi^2*r*f[r]*h[r]^3) - (7*si^2*Log[mu]*Derivative[1][h][r]*
      Derivative[2][f][r])/(8*Pi^2*r*f[r]*h[r]^3) - 
   (43*Log[f[r]]*Derivative[1][h][r]*Derivative[2][f][r])/
    (3840*Pi^2*r*f[r]*h[r]^3) + 
   (7*si*Log[f[r]]*Derivative[1][h][r]*Derivative[2][f][r])/
    (48*Pi^2*r*f[r]*h[r]^3) - (7*si^2*Log[f[r]]*Derivative[1][h][r]*
      Derivative[2][f][r])/(16*Pi^2*r*f[r]*h[r]^3) - 
   (23*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (960*Pi^2*f[r]^2*h[r]^3) + (13*gamma*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(768*Pi^2*f[r]^2*h[r]^3) + 
   (17*si*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (96*Pi^2*f[r]^2*h[r]^3) - (11*gamma*si*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(48*Pi^2*f[r]^2*h[r]^3) - 
   (si^2*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (4*Pi^2*f[r]^2*h[r]^3) + (11*gamma*si^2*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(16*Pi^2*f[r]^2*h[r]^3) - 
   (13*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (768*Pi^2*f[r]^2*h[r]^3) + (11*si*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(48*Pi^2*f[r]^2*h[r]^3) - 
   (11*si^2*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(16*Pi^2*f[r]^2*h[r]^3) - 
   (13*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (768*Pi^2*f[r]^2*h[r]^3) + (11*si*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(48*Pi^2*f[r]^2*h[r]^3) - 
   (11*si^2*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(16*Pi^2*f[r]^2*h[r]^3) + 
   (13*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (768*Pi^2*f[r]^2*h[r]^3) - (11*si*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(48*Pi^2*f[r]^2*h[r]^3) + 
   (11*si^2*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(16*Pi^2*f[r]^2*h[r]^3) + 
   (13*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(1536*Pi^2*f[r]^2*h[r]^3) - 
   (11*si*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(96*Pi^2*f[r]^2*h[r]^3) + 
   (11*si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(32*Pi^2*f[r]^2*h[r]^3) - 
   (19*Derivative[1][h][r]^2*Derivative[2][f][r])/(1920*Pi^2*f[r]*h[r]^4) + 
   (19*gamma*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (1280*Pi^2*f[r]*h[r]^4) + (19*si*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(384*Pi^2*f[r]*h[r]^4) - 
   (19*gamma*si*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (96*Pi^2*f[r]*h[r]^4) + (19*gamma*si^2*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]*h[r]^4) - 
   (19*Log[2]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (1280*Pi^2*f[r]*h[r]^4) + (19*si*Log[2]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(96*Pi^2*f[r]*h[r]^4) - 
   (19*si^2*Log[2]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]*h[r]^4) - (19*Log[k]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(1280*Pi^2*f[r]*h[r]^4) + 
   (19*si*Log[k]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (96*Pi^2*f[r]*h[r]^4) - (19*si^2*Log[k]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]*h[r]^4) + 
   (19*Log[mu]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (1280*Pi^2*f[r]*h[r]^4) - (19*si*Log[mu]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(96*Pi^2*f[r]*h[r]^4) + 
   (19*si^2*Log[mu]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]*h[r]^4) + (19*Log[f[r]]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(2560*Pi^2*f[r]*h[r]^4) - 
   (19*si*Log[f[r]]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (192*Pi^2*f[r]*h[r]^4) + (19*si^2*Log[f[r]]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(64*Pi^2*f[r]*h[r]^4) + 
   (29*Derivative[2][f][r]^2)/(3840*Pi^2*f[r]^2*h[r]^2) - 
   (gamma*Derivative[2][f][r]^2)/(192*Pi^2*f[r]^2*h[r]^2) - 
   (5*si*Derivative[2][f][r]^2)/(96*Pi^2*f[r]^2*h[r]^2) + 
   (7*gamma*si*Derivative[2][f][r]^2)/(96*Pi^2*f[r]^2*h[r]^2) + 
   (si^2*Derivative[2][f][r]^2)/(16*Pi^2*f[r]^2*h[r]^2) - 
   (7*gamma*si^2*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) + 
   (Log[2]*Derivative[2][f][r]^2)/(192*Pi^2*f[r]^2*h[r]^2) - 
   (7*si*Log[2]*Derivative[2][f][r]^2)/(96*Pi^2*f[r]^2*h[r]^2) + 
   (7*si^2*Log[2]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) + 
   (Log[k]*Derivative[2][f][r]^2)/(192*Pi^2*f[r]^2*h[r]^2) - 
   (7*si*Log[k]*Derivative[2][f][r]^2)/(96*Pi^2*f[r]^2*h[r]^2) + 
   (7*si^2*Log[k]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) - 
   (Log[mu]*Derivative[2][f][r]^2)/(192*Pi^2*f[r]^2*h[r]^2) + 
   (7*si*Log[mu]*Derivative[2][f][r]^2)/(96*Pi^2*f[r]^2*h[r]^2) - 
   (7*si^2*Log[mu]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) - 
   (Log[f[r]]*Derivative[2][f][r]^2)/(384*Pi^2*f[r]^2*h[r]^2) + 
   (7*si*Log[f[r]]*Derivative[2][f][r]^2)/(192*Pi^2*f[r]^2*h[r]^2) - 
   (7*si^2*Log[f[r]]*Derivative[2][f][r]^2)/(64*Pi^2*f[r]^2*h[r]^2) - 
   (Derivative[1][f][r]*Derivative[2][h][r])/(240*Pi^2*r*f[r]*h[r]^3) - 
   (23*gamma*Derivative[1][f][r]*Derivative[2][h][r])/
    (1920*Pi^2*r*f[r]*h[r]^3) + 
   (13*si*Derivative[1][f][r]*Derivative[2][h][r])/(192*Pi^2*r*f[r]*h[r]^3) + 
   (7*gamma*si*Derivative[1][f][r]*Derivative[2][h][r])/
    (48*Pi^2*r*f[r]*h[r]^3) - (si^2*Derivative[1][f][r]*Derivative[2][h][r])/
    (4*Pi^2*r*f[r]*h[r]^3) - (7*gamma*si^2*Derivative[1][f][r]*
      Derivative[2][h][r])/(16*Pi^2*r*f[r]*h[r]^3) + 
   (23*Log[2]*Derivative[1][f][r]*Derivative[2][h][r])/
    (1920*Pi^2*r*f[r]*h[r]^3) - 
   (7*si*Log[2]*Derivative[1][f][r]*Derivative[2][h][r])/
    (48*Pi^2*r*f[r]*h[r]^3) + (7*si^2*Log[2]*Derivative[1][f][r]*
      Derivative[2][h][r])/(16*Pi^2*r*f[r]*h[r]^3) + 
   (23*Log[k]*Derivative[1][f][r]*Derivative[2][h][r])/
    (1920*Pi^2*r*f[r]*h[r]^3) - 
   (7*si*Log[k]*Derivative[1][f][r]*Derivative[2][h][r])/
    (48*Pi^2*r*f[r]*h[r]^3) + (7*si^2*Log[k]*Derivative[1][f][r]*
      Derivative[2][h][r])/(16*Pi^2*r*f[r]*h[r]^3) - 
   (23*Log[mu]*Derivative[1][f][r]*Derivative[2][h][r])/
    (1920*Pi^2*r*f[r]*h[r]^3) + 
   (7*si*Log[mu]*Derivative[1][f][r]*Derivative[2][h][r])/
    (48*Pi^2*r*f[r]*h[r]^3) - (7*si^2*Log[mu]*Derivative[1][f][r]*
      Derivative[2][h][r])/(16*Pi^2*r*f[r]*h[r]^3) - 
   (23*Log[f[r]]*Derivative[1][f][r]*Derivative[2][h][r])/
    (3840*Pi^2*r*f[r]*h[r]^3) + 
   (7*si*Log[f[r]]*Derivative[1][f][r]*Derivative[2][h][r])/
    (96*Pi^2*r*f[r]*h[r]^3) - (7*si^2*Log[f[r]]*Derivative[1][f][r]*
      Derivative[2][h][r])/(32*Pi^2*r*f[r]*h[r]^3) - 
   (7*Derivative[1][f][r]^2*Derivative[2][h][r])/(1280*Pi^2*f[r]^2*h[r]^3) + 
   (gamma*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (256*Pi^2*f[r]^2*h[r]^3) + (si*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(24*Pi^2*f[r]^2*h[r]^3) - 
   (5*gamma*si*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (96*Pi^2*f[r]^2*h[r]^3) - (si^2*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(16*Pi^2*f[r]^2*h[r]^3) + 
   (5*gamma*si^2*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (32*Pi^2*f[r]^2*h[r]^3) - (Log[2]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(256*Pi^2*f[r]^2*h[r]^3) + 
   (5*si*Log[2]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (96*Pi^2*f[r]^2*h[r]^3) - (5*si^2*Log[2]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(32*Pi^2*f[r]^2*h[r]^3) - 
   (Log[k]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (256*Pi^2*f[r]^2*h[r]^3) + (5*si*Log[k]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(96*Pi^2*f[r]^2*h[r]^3) - 
   (5*si^2*Log[k]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (32*Pi^2*f[r]^2*h[r]^3) + (Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(256*Pi^2*f[r]^2*h[r]^3) - 
   (5*si*Log[mu]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (96*Pi^2*f[r]^2*h[r]^3) + (5*si^2*Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(32*Pi^2*f[r]^2*h[r]^3) + 
   (Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (512*Pi^2*f[r]^2*h[r]^3) - (5*si*Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(192*Pi^2*f[r]^2*h[r]^3) + 
   (5*si^2*Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (64*Pi^2*f[r]^2*h[r]^3) + (91*gamma*Derivative[1][h][r]*
      Derivative[2][h][r])/(1920*Pi^2*r*h[r]^4) - 
   (13*gamma*si*Derivative[1][h][r]*Derivative[2][h][r])/(24*Pi^2*r*h[r]^4) + 
   (13*gamma*si^2*Derivative[1][h][r]*Derivative[2][h][r])/
    (8*Pi^2*r*h[r]^4) - (91*Log[2]*Derivative[1][h][r]*Derivative[2][h][r])/
    (1920*Pi^2*r*h[r]^4) + (13*si*Log[2]*Derivative[1][h][r]*
      Derivative[2][h][r])/(24*Pi^2*r*h[r]^4) - 
   (13*si^2*Log[2]*Derivative[1][h][r]*Derivative[2][h][r])/
    (8*Pi^2*r*h[r]^4) - (91*Log[k]*Derivative[1][h][r]*Derivative[2][h][r])/
    (1920*Pi^2*r*h[r]^4) + (13*si*Log[k]*Derivative[1][h][r]*
      Derivative[2][h][r])/(24*Pi^2*r*h[r]^4) - 
   (13*si^2*Log[k]*Derivative[1][h][r]*Derivative[2][h][r])/
    (8*Pi^2*r*h[r]^4) + (91*Log[mu]*Derivative[1][h][r]*Derivative[2][h][r])/
    (1920*Pi^2*r*h[r]^4) - (13*si*Log[mu]*Derivative[1][h][r]*
      Derivative[2][h][r])/(24*Pi^2*r*h[r]^4) + 
   (13*si^2*Log[mu]*Derivative[1][h][r]*Derivative[2][h][r])/
    (8*Pi^2*r*h[r]^4) + (91*Log[f[r]]*Derivative[1][h][r]*
      Derivative[2][h][r])/(3840*Pi^2*r*h[r]^4) - 
   (13*si*Log[f[r]]*Derivative[1][h][r]*Derivative[2][h][r])/
    (48*Pi^2*r*h[r]^4) + (13*si^2*Log[f[r]]*Derivative[1][h][r]*
      Derivative[2][h][r])/(16*Pi^2*r*h[r]^4) - 
   (13*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][h][r])/
    (1920*Pi^2*f[r]*h[r]^4) + (13*gamma*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][h][r])/(1280*Pi^2*f[r]*h[r]^4) + 
   (13*si*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][h][r])/
    (384*Pi^2*f[r]*h[r]^4) - (13*gamma*si*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][h][r])/(96*Pi^2*f[r]*h[r]^4) + 
   (13*gamma*si^2*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(32*Pi^2*f[r]*h[r]^4) - 
   (13*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][h][r])/
    (1280*Pi^2*f[r]*h[r]^4) + (13*si*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][h][r])/(96*Pi^2*f[r]*h[r]^4) - 
   (13*si^2*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(32*Pi^2*f[r]*h[r]^4) - 
   (13*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][h][r])/
    (1280*Pi^2*f[r]*h[r]^4) + (13*si*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][h][r])/(96*Pi^2*f[r]*h[r]^4) - 
   (13*si^2*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(32*Pi^2*f[r]*h[r]^4) + 
   (13*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][h][r])/
    (1280*Pi^2*f[r]*h[r]^4) - (13*si*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][h][r])/(96*Pi^2*f[r]*h[r]^4) + 
   (13*si^2*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(32*Pi^2*f[r]*h[r]^4) + 
   (13*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(2560*Pi^2*f[r]*h[r]^4) - 
   (13*si*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(192*Pi^2*f[r]*h[r]^4) + 
   (13*si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(64*Pi^2*f[r]*h[r]^4) + 
   (Derivative[2][f][r]*Derivative[2][h][r])/(240*Pi^2*f[r]*h[r]^3) - 
   (gamma*Derivative[2][f][r]*Derivative[2][h][r])/(160*Pi^2*f[r]*h[r]^3) - 
   (si*Derivative[2][f][r]*Derivative[2][h][r])/(48*Pi^2*f[r]*h[r]^3) + 
   (gamma*si*Derivative[2][f][r]*Derivative[2][h][r])/(12*Pi^2*f[r]*h[r]^3) - 
   (gamma*si^2*Derivative[2][f][r]*Derivative[2][h][r])/
    (4*Pi^2*f[r]*h[r]^3) + (Log[2]*Derivative[2][f][r]*Derivative[2][h][r])/
    (160*Pi^2*f[r]*h[r]^3) - (si*Log[2]*Derivative[2][f][r]*
      Derivative[2][h][r])/(12*Pi^2*f[r]*h[r]^3) + 
   (si^2*Log[2]*Derivative[2][f][r]*Derivative[2][h][r])/
    (4*Pi^2*f[r]*h[r]^3) + (Log[k]*Derivative[2][f][r]*Derivative[2][h][r])/
    (160*Pi^2*f[r]*h[r]^3) - (si*Log[k]*Derivative[2][f][r]*
      Derivative[2][h][r])/(12*Pi^2*f[r]*h[r]^3) + 
   (si^2*Log[k]*Derivative[2][f][r]*Derivative[2][h][r])/
    (4*Pi^2*f[r]*h[r]^3) - (Log[mu]*Derivative[2][f][r]*Derivative[2][h][r])/
    (160*Pi^2*f[r]*h[r]^3) + (si*Log[mu]*Derivative[2][f][r]*
      Derivative[2][h][r])/(12*Pi^2*f[r]*h[r]^3) - 
   (si^2*Log[mu]*Derivative[2][f][r]*Derivative[2][h][r])/
    (4*Pi^2*f[r]*h[r]^3) - (Log[f[r]]*Derivative[2][f][r]*
      Derivative[2][h][r])/(320*Pi^2*f[r]*h[r]^3) + 
   (si*Log[f[r]]*Derivative[2][f][r]*Derivative[2][h][r])/
    (24*Pi^2*f[r]*h[r]^3) - (si^2*Log[f[r]]*Derivative[2][f][r]*
      Derivative[2][h][r])/(8*Pi^2*f[r]*h[r]^3) - 
   Derivative[3][f][r]/(160*Pi^2*r*f[r]*h[r]^2) + 
   (3*gamma*Derivative[3][f][r])/(320*Pi^2*r*f[r]*h[r]^2) + 
   (si*Derivative[3][f][r])/(32*Pi^2*r*f[r]*h[r]^2) - 
   (gamma*si*Derivative[3][f][r])/(8*Pi^2*r*f[r]*h[r]^2) + 
   (3*gamma*si^2*Derivative[3][f][r])/(8*Pi^2*r*f[r]*h[r]^2) - 
   (3*Log[2]*Derivative[3][f][r])/(320*Pi^2*r*f[r]*h[r]^2) + 
   (si*Log[2]*Derivative[3][f][r])/(8*Pi^2*r*f[r]*h[r]^2) - 
   (3*si^2*Log[2]*Derivative[3][f][r])/(8*Pi^2*r*f[r]*h[r]^2) - 
   (3*Log[k]*Derivative[3][f][r])/(320*Pi^2*r*f[r]*h[r]^2) + 
   (si*Log[k]*Derivative[3][f][r])/(8*Pi^2*r*f[r]*h[r]^2) - 
   (3*si^2*Log[k]*Derivative[3][f][r])/(8*Pi^2*r*f[r]*h[r]^2) + 
   (3*Log[mu]*Derivative[3][f][r])/(320*Pi^2*r*f[r]*h[r]^2) - 
   (si*Log[mu]*Derivative[3][f][r])/(8*Pi^2*r*f[r]*h[r]^2) + 
   (3*si^2*Log[mu]*Derivative[3][f][r])/(8*Pi^2*r*f[r]*h[r]^2) + 
   (3*Log[f[r]]*Derivative[3][f][r])/(640*Pi^2*r*f[r]*h[r]^2) - 
   (si*Log[f[r]]*Derivative[3][f][r])/(16*Pi^2*r*f[r]*h[r]^2) + 
   (3*si^2*Log[f[r]]*Derivative[3][f][r])/(16*Pi^2*r*f[r]*h[r]^2) + 
   (7*Derivative[1][f][r]*Derivative[3][f][r])/(640*Pi^2*f[r]^2*h[r]^2) - 
   (gamma*Derivative[1][f][r]*Derivative[3][f][r])/(128*Pi^2*f[r]^2*h[r]^2) - 
   (si*Derivative[1][f][r]*Derivative[3][f][r])/(12*Pi^2*f[r]^2*h[r]^2) + 
   (5*gamma*si*Derivative[1][f][r]*Derivative[3][f][r])/
    (48*Pi^2*f[r]^2*h[r]^2) + (si^2*Derivative[1][f][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]^2*h[r]^2) - (5*gamma*si^2*Derivative[1][f][r]*
      Derivative[3][f][r])/(16*Pi^2*f[r]^2*h[r]^2) + 
   (Log[2]*Derivative[1][f][r]*Derivative[3][f][r])/
    (128*Pi^2*f[r]^2*h[r]^2) - (5*si*Log[2]*Derivative[1][f][r]*
      Derivative[3][f][r])/(48*Pi^2*f[r]^2*h[r]^2) + 
   (5*si^2*Log[2]*Derivative[1][f][r]*Derivative[3][f][r])/
    (16*Pi^2*f[r]^2*h[r]^2) + (Log[k]*Derivative[1][f][r]*
      Derivative[3][f][r])/(128*Pi^2*f[r]^2*h[r]^2) - 
   (5*si*Log[k]*Derivative[1][f][r]*Derivative[3][f][r])/
    (48*Pi^2*f[r]^2*h[r]^2) + (5*si^2*Log[k]*Derivative[1][f][r]*
      Derivative[3][f][r])/(16*Pi^2*f[r]^2*h[r]^2) - 
   (Log[mu]*Derivative[1][f][r]*Derivative[3][f][r])/
    (128*Pi^2*f[r]^2*h[r]^2) + (5*si*Log[mu]*Derivative[1][f][r]*
      Derivative[3][f][r])/(48*Pi^2*f[r]^2*h[r]^2) - 
   (5*si^2*Log[mu]*Derivative[1][f][r]*Derivative[3][f][r])/
    (16*Pi^2*f[r]^2*h[r]^2) - (Log[f[r]]*Derivative[1][f][r]*
      Derivative[3][f][r])/(256*Pi^2*f[r]^2*h[r]^2) + 
   (5*si*Log[f[r]]*Derivative[1][f][r]*Derivative[3][f][r])/
    (96*Pi^2*f[r]^2*h[r]^2) - (5*si^2*Log[f[r]]*Derivative[1][f][r]*
      Derivative[3][f][r])/(32*Pi^2*f[r]^2*h[r]^2) + 
   (Derivative[1][h][r]*Derivative[3][f][r])/(160*Pi^2*f[r]*h[r]^3) - 
   (3*gamma*Derivative[1][h][r]*Derivative[3][f][r])/(320*Pi^2*f[r]*h[r]^3) - 
   (si*Derivative[1][h][r]*Derivative[3][f][r])/(32*Pi^2*f[r]*h[r]^3) + 
   (gamma*si*Derivative[1][h][r]*Derivative[3][f][r])/(8*Pi^2*f[r]*h[r]^3) - 
   (3*gamma*si^2*Derivative[1][h][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]*h[r]^3) + (3*Log[2]*Derivative[1][h][r]*
      Derivative[3][f][r])/(320*Pi^2*f[r]*h[r]^3) - 
   (si*Log[2]*Derivative[1][h][r]*Derivative[3][f][r])/(8*Pi^2*f[r]*h[r]^3) + 
   (3*si^2*Log[2]*Derivative[1][h][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]*h[r]^3) + (3*Log[k]*Derivative[1][h][r]*
      Derivative[3][f][r])/(320*Pi^2*f[r]*h[r]^3) - 
   (si*Log[k]*Derivative[1][h][r]*Derivative[3][f][r])/(8*Pi^2*f[r]*h[r]^3) + 
   (3*si^2*Log[k]*Derivative[1][h][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]*h[r]^3) - (3*Log[mu]*Derivative[1][h][r]*
      Derivative[3][f][r])/(320*Pi^2*f[r]*h[r]^3) + 
   (si*Log[mu]*Derivative[1][h][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]*h[r]^3) - (3*si^2*Log[mu]*Derivative[1][h][r]*
      Derivative[3][f][r])/(8*Pi^2*f[r]*h[r]^3) - 
   (3*Log[f[r]]*Derivative[1][h][r]*Derivative[3][f][r])/
    (640*Pi^2*f[r]*h[r]^3) + (si*Log[f[r]]*Derivative[1][h][r]*
      Derivative[3][f][r])/(16*Pi^2*f[r]*h[r]^3) - 
   (3*si^2*Log[f[r]]*Derivative[1][h][r]*Derivative[3][f][r])/
    (16*Pi^2*f[r]*h[r]^3) - (7*gamma*Derivative[3][h][r])/
    (960*Pi^2*r*h[r]^3) + (gamma*si*Derivative[3][h][r])/(12*Pi^2*r*h[r]^3) - 
   (gamma*si^2*Derivative[3][h][r])/(4*Pi^2*r*h[r]^3) + 
   (7*Log[2]*Derivative[3][h][r])/(960*Pi^2*r*h[r]^3) - 
   (si*Log[2]*Derivative[3][h][r])/(12*Pi^2*r*h[r]^3) + 
   (si^2*Log[2]*Derivative[3][h][r])/(4*Pi^2*r*h[r]^3) + 
   (7*Log[k]*Derivative[3][h][r])/(960*Pi^2*r*h[r]^3) - 
   (si*Log[k]*Derivative[3][h][r])/(12*Pi^2*r*h[r]^3) + 
   (si^2*Log[k]*Derivative[3][h][r])/(4*Pi^2*r*h[r]^3) - 
   (7*Log[mu]*Derivative[3][h][r])/(960*Pi^2*r*h[r]^3) + 
   (si*Log[mu]*Derivative[3][h][r])/(12*Pi^2*r*h[r]^3) - 
   (si^2*Log[mu]*Derivative[3][h][r])/(4*Pi^2*r*h[r]^3) - 
   (7*Log[f[r]]*Derivative[3][h][r])/(1920*Pi^2*r*h[r]^3) + 
   (si*Log[f[r]]*Derivative[3][h][r])/(24*Pi^2*r*h[r]^3) - 
   (si^2*Log[f[r]]*Derivative[3][h][r])/(8*Pi^2*r*h[r]^3) + 
   (Derivative[1][f][r]*Derivative[3][h][r])/(960*Pi^2*f[r]*h[r]^3) - 
   (gamma*Derivative[1][f][r]*Derivative[3][h][r])/(640*Pi^2*f[r]*h[r]^3) - 
   (si*Derivative[1][f][r]*Derivative[3][h][r])/(192*Pi^2*f[r]*h[r]^3) + 
   (gamma*si*Derivative[1][f][r]*Derivative[3][h][r])/(48*Pi^2*f[r]*h[r]^3) - 
   (gamma*si^2*Derivative[1][f][r]*Derivative[3][h][r])/
    (16*Pi^2*f[r]*h[r]^3) + (Log[2]*Derivative[1][f][r]*Derivative[3][h][r])/
    (640*Pi^2*f[r]*h[r]^3) - (si*Log[2]*Derivative[1][f][r]*
      Derivative[3][h][r])/(48*Pi^2*f[r]*h[r]^3) + 
   (si^2*Log[2]*Derivative[1][f][r]*Derivative[3][h][r])/
    (16*Pi^2*f[r]*h[r]^3) + (Log[k]*Derivative[1][f][r]*Derivative[3][h][r])/
    (640*Pi^2*f[r]*h[r]^3) - (si*Log[k]*Derivative[1][f][r]*
      Derivative[3][h][r])/(48*Pi^2*f[r]*h[r]^3) + 
   (si^2*Log[k]*Derivative[1][f][r]*Derivative[3][h][r])/
    (16*Pi^2*f[r]*h[r]^3) - (Log[mu]*Derivative[1][f][r]*
      Derivative[3][h][r])/(640*Pi^2*f[r]*h[r]^3) + 
   (si*Log[mu]*Derivative[1][f][r]*Derivative[3][h][r])/
    (48*Pi^2*f[r]*h[r]^3) - (si^2*Log[mu]*Derivative[1][f][r]*
      Derivative[3][h][r])/(16*Pi^2*f[r]*h[r]^3) - 
   (Log[f[r]]*Derivative[1][f][r]*Derivative[3][h][r])/
    (1280*Pi^2*f[r]*h[r]^3) + (si*Log[f[r]]*Derivative[1][f][r]*
      Derivative[3][h][r])/(96*Pi^2*f[r]*h[r]^3) - 
   (si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[3][h][r])/
    (32*Pi^2*f[r]*h[r]^3) - Derivative[4][f][r]/(480*Pi^2*f[r]*h[r]^2) + 
   (gamma*Derivative[4][f][r])/(320*Pi^2*f[r]*h[r]^2) + 
   (si*Derivative[4][f][r])/(96*Pi^2*f[r]*h[r]^2) - 
   (gamma*si*Derivative[4][f][r])/(24*Pi^2*f[r]*h[r]^2) + 
   (gamma*si^2*Derivative[4][f][r])/(8*Pi^2*f[r]*h[r]^2) - 
   (Log[2]*Derivative[4][f][r])/(320*Pi^2*f[r]*h[r]^2) + 
   (si*Log[2]*Derivative[4][f][r])/(24*Pi^2*f[r]*h[r]^2) - 
   (si^2*Log[2]*Derivative[4][f][r])/(8*Pi^2*f[r]*h[r]^2) - 
   (Log[k]*Derivative[4][f][r])/(320*Pi^2*f[r]*h[r]^2) + 
   (si*Log[k]*Derivative[4][f][r])/(24*Pi^2*f[r]*h[r]^2) - 
   (si^2*Log[k]*Derivative[4][f][r])/(8*Pi^2*f[r]*h[r]^2) + 
   (Log[mu]*Derivative[4][f][r])/(320*Pi^2*f[r]*h[r]^2) - 
   (si*Log[mu]*Derivative[4][f][r])/(24*Pi^2*f[r]*h[r]^2) + 
   (si^2*Log[mu]*Derivative[4][f][r])/(8*Pi^2*f[r]*h[r]^2) + 
   (Log[f[r]]*Derivative[4][f][r])/(640*Pi^2*f[r]*h[r]^2) - 
   (si*Log[f[r]]*Derivative[4][f][r])/(48*Pi^2*f[r]*h[r]^2) + 
   (si^2*Log[f[r]]*Derivative[4][f][r])/(16*Pi^2*f[r]*h[r]^2)
Ttt = m^4/(128*Pi^2) + (gamma*m^4)/(32*Pi^2) + 1/(240*Pi^2*r^4) + 
   gamma/(240*Pi^2*r^4) - m^2/(96*Pi^2*r^2) - (gamma*m^2)/(48*Pi^2*r^2) - 
   si/(24*Pi^2*r^4) - (gamma*si)/(24*Pi^2*r^4) + (m^2*si)/(16*Pi^2*r^2) + 
   (gamma*m^2*si)/(8*Pi^2*r^2) + si^2/(8*Pi^2*r^4) + 
   (gamma*si^2)/(8*Pi^2*r^4) - k^4/(480*Pi^2*f[r]^2) + 
   (k^2*m^2)/(96*Pi^2*f[r]) - k^2/(288*Pi^2*r^2*f[r]) + 
   (k^2*si)/(48*Pi^2*r^2*f[r]) - 1/(240*Pi^2*r^4*h[r]^2) + 
   gamma/(60*Pi^2*r^4*h[r]^2) - (5*gamma*si)/(24*Pi^2*r^4*h[r]^2) + 
   si^2/(8*Pi^2*r^4*h[r]^2) + (5*gamma*si^2)/(8*Pi^2*r^4*h[r]^2) - 
   gamma/(48*Pi^2*r^4*h[r]) + m^2/(96*Pi^2*r^2*h[r]) + 
   (gamma*m^2)/(48*Pi^2*r^2*h[r]) + si/(24*Pi^2*r^4*h[r]) + 
   (gamma*si)/(4*Pi^2*r^4*h[r]) - (m^2*si)/(16*Pi^2*r^2*h[r]) - 
   (gamma*m^2*si)/(8*Pi^2*r^2*h[r]) - si^2/(4*Pi^2*r^4*h[r]) - 
   (3*gamma*si^2)/(4*Pi^2*r^4*h[r]) + k^2/(288*Pi^2*r^2*f[r]*h[r]) - 
   (k^2*si)/(48*Pi^2*r^2*f[r]*h[r]) - (m^4*Log[2])/(32*Pi^2) - 
   Log[2]/(240*Pi^2*r^4) + (m^2*Log[2])/(48*Pi^2*r^2) + 
   (si*Log[2])/(24*Pi^2*r^4) - (m^2*si*Log[2])/(8*Pi^2*r^2) - 
   (si^2*Log[2])/(8*Pi^2*r^4) - Log[2]/(60*Pi^2*r^4*h[r]^2) + 
   (5*si*Log[2])/(24*Pi^2*r^4*h[r]^2) - (5*si^2*Log[2])/(8*Pi^2*r^4*h[r]^2) + 
   Log[2]/(48*Pi^2*r^4*h[r]) - (m^2*Log[2])/(48*Pi^2*r^2*h[r]) - 
   (si*Log[2])/(4*Pi^2*r^4*h[r]) + (m^2*si*Log[2])/(8*Pi^2*r^2*h[r]) + 
   (3*si^2*Log[2])/(4*Pi^2*r^4*h[r]) - (m^4*Log[k])/(32*Pi^2) - 
   Log[k]/(240*Pi^2*r^4) + (m^2*Log[k])/(48*Pi^2*r^2) + 
   (si*Log[k])/(24*Pi^2*r^4) - (m^2*si*Log[k])/(8*Pi^2*r^2) - 
   (si^2*Log[k])/(8*Pi^2*r^4) - Log[k]/(60*Pi^2*r^4*h[r]^2) + 
   (5*si*Log[k])/(24*Pi^2*r^4*h[r]^2) - (5*si^2*Log[k])/(8*Pi^2*r^4*h[r]^2) + 
   Log[k]/(48*Pi^2*r^4*h[r]) - (m^2*Log[k])/(48*Pi^2*r^2*h[r]) - 
   (si*Log[k])/(4*Pi^2*r^4*h[r]) + (m^2*si*Log[k])/(8*Pi^2*r^2*h[r]) + 
   (3*si^2*Log[k])/(4*Pi^2*r^4*h[r]) + (m^4*Log[mu])/(32*Pi^2) + 
   Log[mu]/(240*Pi^2*r^4) - (m^2*Log[mu])/(48*Pi^2*r^2) - 
   (si*Log[mu])/(24*Pi^2*r^4) + (m^2*si*Log[mu])/(8*Pi^2*r^2) + 
   (si^2*Log[mu])/(8*Pi^2*r^4) + Log[mu]/(60*Pi^2*r^4*h[r]^2) - 
   (5*si*Log[mu])/(24*Pi^2*r^4*h[r]^2) + 
   (5*si^2*Log[mu])/(8*Pi^2*r^4*h[r]^2) - Log[mu]/(48*Pi^2*r^4*h[r]) + 
   (m^2*Log[mu])/(48*Pi^2*r^2*h[r]) + (si*Log[mu])/(4*Pi^2*r^4*h[r]) - 
   (m^2*si*Log[mu])/(8*Pi^2*r^2*h[r]) - (3*si^2*Log[mu])/(4*Pi^2*r^4*h[r]) + 
   (m^4*Log[f[r]])/(64*Pi^2) + Log[f[r]]/(480*Pi^2*r^4) - 
   (m^2*Log[f[r]])/(96*Pi^2*r^2) - (si*Log[f[r]])/(48*Pi^2*r^4) + 
   (m^2*si*Log[f[r]])/(16*Pi^2*r^2) + (si^2*Log[f[r]])/(16*Pi^2*r^4) + 
   Log[f[r]]/(120*Pi^2*r^4*h[r]^2) - (5*si*Log[f[r]])/(48*Pi^2*r^4*h[r]^2) + 
   (5*si^2*Log[f[r]])/(16*Pi^2*r^4*h[r]^2) - Log[f[r]]/(96*Pi^2*r^4*h[r]) + 
   (m^2*Log[f[r]])/(96*Pi^2*r^2*h[r]) + (si*Log[f[r]])/(8*Pi^2*r^4*h[r]) - 
   (m^2*si*Log[f[r]])/(16*Pi^2*r^2*h[r]) - 
   (3*si^2*Log[f[r]])/(8*Pi^2*r^4*h[r]) + 
   (k^2*Derivative[1][f][r])/(72*Pi^2*r*f[r]^2*h[r]) - 
   (k^2*si*Derivative[1][f][r])/(12*Pi^2*r*f[r]^2*h[r]) + 
   (m^2*Derivative[1][f][r])/(48*Pi^2*r*f[r]*h[r]) - 
   (m^2*si*Derivative[1][f][r])/(4*Pi^2*r*f[r]*h[r]) + 
   Derivative[1][f][r]^2/(720*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (gamma*Derivative[1][f][r]^2)/(384*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si*Derivative[1][f][r]^2)/(192*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (gamma*si*Derivative[1][f][r]^2)/(24*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si^2*Derivative[1][f][r]^2)/(16*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (gamma*si^2*Derivative[1][f][r]^2)/(8*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (5*k^2*Derivative[1][f][r]^2)/(576*Pi^2*f[r]^3*h[r]) + 
   (5*k^2*si*Derivative[1][f][r]^2)/(96*Pi^2*f[r]^3*h[r]) - 
   (m^2*Derivative[1][f][r]^2)/(128*Pi^2*f[r]^2*h[r]) + 
   Derivative[1][f][r]^2/(384*Pi^2*r^2*f[r]^2*h[r]) + 
   (3*m^2*si*Derivative[1][f][r]^2)/(32*Pi^2*f[r]^2*h[r]) - 
   (3*si*Derivative[1][f][r]^2)/(64*Pi^2*r^2*f[r]^2*h[r]) + 
   (3*si^2*Derivative[1][f][r]^2)/(16*Pi^2*r^2*f[r]^2*h[r]) + 
   (Log[2]*Derivative[1][f][r]^2)/(384*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si*Log[2]*Derivative[1][f][r]^2)/(24*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si^2*Log[2]*Derivative[1][f][r]^2)/(8*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (Log[k]*Derivative[1][f][r]^2)/(384*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si*Log[k]*Derivative[1][f][r]^2)/(24*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si^2*Log[k]*Derivative[1][f][r]^2)/(8*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (Log[mu]*Derivative[1][f][r]^2)/(384*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si*Log[mu]*Derivative[1][f][r]^2)/(24*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si^2*Log[mu]*Derivative[1][f][r]^2)/(8*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (Log[f[r]]*Derivative[1][f][r]^2)/(768*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si*Log[f[r]]*Derivative[1][f][r]^2)/(48*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si^2*Log[f[r]]*Derivative[1][f][r]^2)/(16*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (193*Derivative[1][f][r]^3)/(5760*Pi^2*r*f[r]^3*h[r]^2) + 
   (47*gamma*Derivative[1][f][r]^3)/(1920*Pi^2*r*f[r]^3*h[r]^2) + 
   (9*si*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) - 
   (13*gamma*si*Derivative[1][f][r]^3)/(48*Pi^2*r*f[r]^3*h[r]^2) - 
   (si^2*Derivative[1][f][r]^3)/(2*Pi^2*r*f[r]^3*h[r]^2) + 
   (13*gamma*si^2*Derivative[1][f][r]^3)/(16*Pi^2*r*f[r]^3*h[r]^2) - 
   (47*Log[2]*Derivative[1][f][r]^3)/(1920*Pi^2*r*f[r]^3*h[r]^2) + 
   (13*si*Log[2]*Derivative[1][f][r]^3)/(48*Pi^2*r*f[r]^3*h[r]^2) - 
   (13*si^2*Log[2]*Derivative[1][f][r]^3)/(16*Pi^2*r*f[r]^3*h[r]^2) - 
   (47*Log[k]*Derivative[1][f][r]^3)/(1920*Pi^2*r*f[r]^3*h[r]^2) + 
   (13*si*Log[k]*Derivative[1][f][r]^3)/(48*Pi^2*r*f[r]^3*h[r]^2) - 
   (13*si^2*Log[k]*Derivative[1][f][r]^3)/(16*Pi^2*r*f[r]^3*h[r]^2) + 
   (47*Log[mu]*Derivative[1][f][r]^3)/(1920*Pi^2*r*f[r]^3*h[r]^2) - 
   (13*si*Log[mu]*Derivative[1][f][r]^3)/(48*Pi^2*r*f[r]^3*h[r]^2) + 
   (13*si^2*Log[mu]*Derivative[1][f][r]^3)/(16*Pi^2*r*f[r]^3*h[r]^2) + 
   (47*Log[f[r]]*Derivative[1][f][r]^3)/(3840*Pi^2*r*f[r]^3*h[r]^2) - 
   (13*si*Log[f[r]]*Derivative[1][f][r]^3)/(96*Pi^2*r*f[r]^3*h[r]^2) + 
   (13*si^2*Log[f[r]]*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) + 
   (847*Derivative[1][f][r]^4)/(46080*Pi^2*f[r]^4*h[r]^2) - 
   (49*gamma*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) - 
   (35*si*Derivative[1][f][r]^4)/(256*Pi^2*f[r]^4*h[r]^2) + 
   (49*gamma*si*Derivative[1][f][r]^4)/(384*Pi^2*f[r]^4*h[r]^2) + 
   (21*si^2*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) - 
   (49*gamma*si^2*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) + 
   (49*Log[2]*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) - 
   (49*si*Log[2]*Derivative[1][f][r]^4)/(384*Pi^2*f[r]^4*h[r]^2) + 
   (49*si^2*Log[2]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) + 
   (49*Log[k]*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) - 
   (49*si*Log[k]*Derivative[1][f][r]^4)/(384*Pi^2*f[r]^4*h[r]^2) + 
   (49*si^2*Log[k]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) - 
   (49*Log[mu]*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) + 
   (49*si*Log[mu]*Derivative[1][f][r]^4)/(384*Pi^2*f[r]^4*h[r]^2) - 
   (49*si^2*Log[mu]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) - 
   (49*Log[f[r]]*Derivative[1][f][r]^4)/(7680*Pi^2*f[r]^4*h[r]^2) + 
   (49*si*Log[f[r]]*Derivative[1][f][r]^4)/(768*Pi^2*f[r]^4*h[r]^2) - 
   (49*si^2*Log[f[r]]*Derivative[1][f][r]^4)/(256*Pi^2*f[r]^4*h[r]^2) - 
   (3*Derivative[1][h][r])/(160*Pi^2*r^3*h[r]^3) + 
   (gamma*Derivative[1][h][r])/(80*Pi^2*r^3*h[r]^3) + 
   (7*si*Derivative[1][h][r])/(48*Pi^2*r^3*h[r]^3) - 
   (gamma*si*Derivative[1][h][r])/(6*Pi^2*r^3*h[r]^3) - 
   (si^2*Derivative[1][h][r])/(4*Pi^2*r^3*h[r]^3) + 
   (gamma*si^2*Derivative[1][h][r])/(2*Pi^2*r^3*h[r]^3) + 
   Derivative[1][h][r]/(96*Pi^2*r^3*h[r]^2) - 
   (m^2*Derivative[1][h][r])/(96*Pi^2*r*h[r]^2) - 
   (gamma*m^2*Derivative[1][h][r])/(48*Pi^2*r*h[r]^2) - 
   (5*si*Derivative[1][h][r])/(48*Pi^2*r^3*h[r]^2) + 
   (m^2*si*Derivative[1][h][r])/(16*Pi^2*r*h[r]^2) + 
   (gamma*m^2*si*Derivative[1][h][r])/(8*Pi^2*r*h[r]^2) + 
   (si^2*Derivative[1][h][r])/(4*Pi^2*r^3*h[r]^2) - 
   (k^2*Derivative[1][h][r])/(288*Pi^2*r*f[r]*h[r]^2) + 
   (k^2*si*Derivative[1][h][r])/(48*Pi^2*r*f[r]*h[r]^2) - 
   (Log[2]*Derivative[1][h][r])/(80*Pi^2*r^3*h[r]^3) + 
   (si*Log[2]*Derivative[1][h][r])/(6*Pi^2*r^3*h[r]^3) - 
   (si^2*Log[2]*Derivative[1][h][r])/(2*Pi^2*r^3*h[r]^3) + 
   (m^2*Log[2]*Derivative[1][h][r])/(48*Pi^2*r*h[r]^2) - 
   (m^2*si*Log[2]*Derivative[1][h][r])/(8*Pi^2*r*h[r]^2) - 
   (Log[k]*Derivative[1][h][r])/(80*Pi^2*r^3*h[r]^3) + 
   (si*Log[k]*Derivative[1][h][r])/(6*Pi^2*r^3*h[r]^3) - 
   (si^2*Log[k]*Derivative[1][h][r])/(2*Pi^2*r^3*h[r]^3) + 
   (m^2*Log[k]*Derivative[1][h][r])/(48*Pi^2*r*h[r]^2) - 
   (m^2*si*Log[k]*Derivative[1][h][r])/(8*Pi^2*r*h[r]^2) + 
   (Log[mu]*Derivative[1][h][r])/(80*Pi^2*r^3*h[r]^3) - 
   (si*Log[mu]*Derivative[1][h][r])/(6*Pi^2*r^3*h[r]^3) + 
   (si^2*Log[mu]*Derivative[1][h][r])/(2*Pi^2*r^3*h[r]^3) - 
   (m^2*Log[mu]*Derivative[1][h][r])/(48*Pi^2*r*h[r]^2) + 
   (m^2*si*Log[mu]*Derivative[1][h][r])/(8*Pi^2*r*h[r]^2) + 
   (Log[f[r]]*Derivative[1][h][r])/(160*Pi^2*r^3*h[r]^3) - 
   (si*Log[f[r]]*Derivative[1][h][r])/(12*Pi^2*r^3*h[r]^3) + 
   (si^2*Log[f[r]]*Derivative[1][h][r])/(4*Pi^2*r^3*h[r]^3) - 
   (m^2*Log[f[r]]*Derivative[1][h][r])/(96*Pi^2*r*h[r]^2) + 
   (m^2*si*Log[f[r]]*Derivative[1][h][r])/(16*Pi^2*r*h[r]^2) - 
   (Derivative[1][f][r]*Derivative[1][h][r])/(96*Pi^2*r^2*f[r]*h[r]^3) + 
   (gamma*Derivative[1][f][r]*Derivative[1][h][r])/
    (192*Pi^2*r^2*f[r]*h[r]^3) + 
   (17*si*Derivative[1][f][r]*Derivative[1][h][r])/
    (96*Pi^2*r^2*f[r]*h[r]^3) - 
   (gamma*si*Derivative[1][f][r]*Derivative[1][h][r])/
    (24*Pi^2*r^2*f[r]*h[r]^3) - 
   (5*si^2*Derivative[1][f][r]*Derivative[1][h][r])/
    (8*Pi^2*r^2*f[r]*h[r]^3) + (gamma*si^2*Derivative[1][f][r]*
      Derivative[1][h][r])/(8*Pi^2*r^2*f[r]*h[r]^3) - 
   (k^2*Derivative[1][f][r]*Derivative[1][h][r])/(288*Pi^2*f[r]^2*h[r]^2) + 
   (k^2*si*Derivative[1][f][r]*Derivative[1][h][r])/(48*Pi^2*f[r]^2*h[r]^2) - 
   (m^2*Derivative[1][f][r]*Derivative[1][h][r])/(192*Pi^2*f[r]*h[r]^2) + 
   (Derivative[1][f][r]*Derivative[1][h][r])/(576*Pi^2*r^2*f[r]*h[r]^2) + 
   (m^2*si*Derivative[1][f][r]*Derivative[1][h][r])/(16*Pi^2*f[r]*h[r]^2) - 
   (si*Derivative[1][f][r]*Derivative[1][h][r])/(32*Pi^2*r^2*f[r]*h[r]^2) + 
   (si^2*Derivative[1][f][r]*Derivative[1][h][r])/(8*Pi^2*r^2*f[r]*h[r]^2) - 
   (Log[2]*Derivative[1][f][r]*Derivative[1][h][r])/
    (192*Pi^2*r^2*f[r]*h[r]^3) + 
   (si*Log[2]*Derivative[1][f][r]*Derivative[1][h][r])/
    (24*Pi^2*r^2*f[r]*h[r]^3) - 
   (si^2*Log[2]*Derivative[1][f][r]*Derivative[1][h][r])/
    (8*Pi^2*r^2*f[r]*h[r]^3) - (Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r])/(192*Pi^2*r^2*f[r]*h[r]^3) + 
   (si*Log[k]*Derivative[1][f][r]*Derivative[1][h][r])/
    (24*Pi^2*r^2*f[r]*h[r]^3) - 
   (si^2*Log[k]*Derivative[1][f][r]*Derivative[1][h][r])/
    (8*Pi^2*r^2*f[r]*h[r]^3) + (Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r])/(192*Pi^2*r^2*f[r]*h[r]^3) - 
   (si*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r])/
    (24*Pi^2*r^2*f[r]*h[r]^3) + 
   (si^2*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r])/
    (8*Pi^2*r^2*f[r]*h[r]^3) + (Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r])/(384*Pi^2*r^2*f[r]*h[r]^3) - 
   (si*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r])/
    (48*Pi^2*r^2*f[r]*h[r]^3) + 
   (si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r])/
    (16*Pi^2*r^2*f[r]*h[r]^3) - 
   (Derivative[1][f][r]^2*Derivative[1][h][r])/(32*Pi^2*r*f[r]^2*h[r]^3) + 
   (9*gamma*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (320*Pi^2*r*f[r]^2*h[r]^3) + 
   (43*si*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (192*Pi^2*r*f[r]^2*h[r]^3) - 
   (5*gamma*si*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) - 
   (si^2*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (4*Pi^2*r*f[r]^2*h[r]^3) + (15*gamma*si^2*Derivative[1][f][r]^2*
      Derivative[1][h][r])/(16*Pi^2*r*f[r]^2*h[r]^3) - 
   (9*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (320*Pi^2*r*f[r]^2*h[r]^3) + 
   (5*si*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) - 
   (15*si^2*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) - 
   (9*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (320*Pi^2*r*f[r]^2*h[r]^3) + 
   (5*si*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) - 
   (15*si^2*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) + 
   (9*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (320*Pi^2*r*f[r]^2*h[r]^3) - 
   (5*si*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) + 
   (15*si^2*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) + 
   (9*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (640*Pi^2*r*f[r]^2*h[r]^3) - 
   (5*si*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (32*Pi^2*r*f[r]^2*h[r]^3) + 
   (15*si^2*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (32*Pi^2*r*f[r]^2*h[r]^3) + 
   (449*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (23040*Pi^2*f[r]^3*h[r]^3) - 
   (29*gamma*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (1920*Pi^2*f[r]^3*h[r]^3) - 
   (19*si*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (128*Pi^2*f[r]^3*h[r]^3) + (29*gamma*si*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(192*Pi^2*f[r]^3*h[r]^3) + 
   (3*si^2*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (16*Pi^2*f[r]^3*h[r]^3) - (29*gamma*si^2*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) + 
   (29*Log[2]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (1920*Pi^2*f[r]^3*h[r]^3) - 
   (29*si*Log[2]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (192*Pi^2*f[r]^3*h[r]^3) + (29*si^2*Log[2]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) + 
   (29*Log[k]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (1920*Pi^2*f[r]^3*h[r]^3) - 
   (29*si*Log[k]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (192*Pi^2*f[r]^3*h[r]^3) + (29*si^2*Log[k]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) - 
   (29*Log[mu]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (1920*Pi^2*f[r]^3*h[r]^3) + 
   (29*si*Log[mu]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (192*Pi^2*f[r]^3*h[r]^3) - (29*si^2*Log[mu]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) - 
   (29*Log[f[r]]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (3840*Pi^2*f[r]^3*h[r]^3) + 
   (29*si*Log[f[r]]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (384*Pi^2*f[r]^3*h[r]^3) - (29*si^2*Log[f[r]]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(128*Pi^2*f[r]^3*h[r]^3) - 
   (3*Derivative[1][h][r]^2)/(640*Pi^2*r^2*h[r]^4) + 
   (31*gamma*Derivative[1][h][r]^2)/(1920*Pi^2*r^2*h[r]^4) - 
   (5*gamma*si*Derivative[1][h][r]^2)/(24*Pi^2*r^2*h[r]^4) + 
   (si^2*Derivative[1][h][r]^2)/(8*Pi^2*r^2*h[r]^4) + 
   (5*gamma*si^2*Derivative[1][h][r]^2)/(8*Pi^2*r^2*h[r]^4) - 
   (31*Log[2]*Derivative[1][h][r]^2)/(1920*Pi^2*r^2*h[r]^4) + 
   (5*si*Log[2]*Derivative[1][h][r]^2)/(24*Pi^2*r^2*h[r]^4) - 
   (5*si^2*Log[2]*Derivative[1][h][r]^2)/(8*Pi^2*r^2*h[r]^4) - 
   (31*Log[k]*Derivative[1][h][r]^2)/(1920*Pi^2*r^2*h[r]^4) + 
   (5*si*Log[k]*Derivative[1][h][r]^2)/(24*Pi^2*r^2*h[r]^4) - 
   (5*si^2*Log[k]*Derivative[1][h][r]^2)/(8*Pi^2*r^2*h[r]^4) + 
   (31*Log[mu]*Derivative[1][h][r]^2)/(1920*Pi^2*r^2*h[r]^4) - 
   (5*si*Log[mu]*Derivative[1][h][r]^2)/(24*Pi^2*r^2*h[r]^4) + 
   (5*si^2*Log[mu]*Derivative[1][h][r]^2)/(8*Pi^2*r^2*h[r]^4) + 
   (31*Log[f[r]]*Derivative[1][h][r]^2)/(3840*Pi^2*r^2*h[r]^4) - 
   (5*si*Log[f[r]]*Derivative[1][h][r]^2)/(48*Pi^2*r^2*h[r]^4) + 
   (5*si^2*Log[f[r]]*Derivative[1][h][r]^2)/(16*Pi^2*r^2*h[r]^4) - 
   (Derivative[1][f][r]*Derivative[1][h][r]^2)/(60*Pi^2*r*f[r]*h[r]^4) + 
   (17*gamma*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (640*Pi^2*r*f[r]*h[r]^4) - (si*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(96*Pi^2*r*f[r]*h[r]^4) - 
   (7*gamma*si*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (24*Pi^2*r*f[r]*h[r]^4) + (5*si^2*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(8*Pi^2*r*f[r]*h[r]^4) + 
   (7*gamma*si^2*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (8*Pi^2*r*f[r]*h[r]^4) - (17*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(640*Pi^2*r*f[r]*h[r]^4) + 
   (7*si*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (24*Pi^2*r*f[r]*h[r]^4) - (7*si^2*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(8*Pi^2*r*f[r]*h[r]^4) - 
   (17*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (640*Pi^2*r*f[r]*h[r]^4) + (7*si*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(24*Pi^2*r*f[r]*h[r]^4) - 
   (7*si^2*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (8*Pi^2*r*f[r]*h[r]^4) + (17*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(640*Pi^2*r*f[r]*h[r]^4) - 
   (7*si*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (24*Pi^2*r*f[r]*h[r]^4) + (7*si^2*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(8*Pi^2*r*f[r]*h[r]^4) + 
   (17*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (1280*Pi^2*r*f[r]*h[r]^4) - 
   (7*si*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (48*Pi^2*r*f[r]*h[r]^4) + (7*si^2*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(16*Pi^2*r*f[r]*h[r]^4) + 
   (247*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (15360*Pi^2*f[r]^2*h[r]^4) - 
   (19*gamma*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (1280*Pi^2*f[r]^2*h[r]^4) - 
   (95*si*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (768*Pi^2*f[r]^2*h[r]^4) + (19*gamma*si*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(128*Pi^2*f[r]^2*h[r]^4) + 
   (19*si^2*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (128*Pi^2*f[r]^2*h[r]^4) - (57*gamma*si^2*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(128*Pi^2*f[r]^2*h[r]^4) + 
   (19*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (1280*Pi^2*f[r]^2*h[r]^4) - 
   (19*si*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (128*Pi^2*f[r]^2*h[r]^4) + (57*si^2*Log[2]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(128*Pi^2*f[r]^2*h[r]^4) + 
   (19*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (1280*Pi^2*f[r]^2*h[r]^4) - 
   (19*si*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (128*Pi^2*f[r]^2*h[r]^4) + (57*si^2*Log[k]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(128*Pi^2*f[r]^2*h[r]^4) - 
   (19*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (1280*Pi^2*f[r]^2*h[r]^4) + 
   (19*si*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (128*Pi^2*f[r]^2*h[r]^4) - (57*si^2*Log[mu]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(128*Pi^2*f[r]^2*h[r]^4) - 
   (19*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (2560*Pi^2*f[r]^2*h[r]^4) + 
   (19*si*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (256*Pi^2*f[r]^2*h[r]^4) - (57*si^2*Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(256*Pi^2*f[r]^2*h[r]^4) + 
   (7*Derivative[1][h][r]^3)/(240*Pi^2*r*h[r]^5) - 
   (7*gamma*Derivative[1][h][r]^3)/(160*Pi^2*r*h[r]^5) - 
   (7*si*Derivative[1][h][r]^3)/(48*Pi^2*r*h[r]^5) + 
   (7*gamma*si*Derivative[1][h][r]^3)/(12*Pi^2*r*h[r]^5) - 
   (7*gamma*si^2*Derivative[1][h][r]^3)/(4*Pi^2*r*h[r]^5) + 
   (7*Log[2]*Derivative[1][h][r]^3)/(160*Pi^2*r*h[r]^5) - 
   (7*si*Log[2]*Derivative[1][h][r]^3)/(12*Pi^2*r*h[r]^5) + 
   (7*si^2*Log[2]*Derivative[1][h][r]^3)/(4*Pi^2*r*h[r]^5) + 
   (7*Log[k]*Derivative[1][h][r]^3)/(160*Pi^2*r*h[r]^5) - 
   (7*si*Log[k]*Derivative[1][h][r]^3)/(12*Pi^2*r*h[r]^5) + 
   (7*si^2*Log[k]*Derivative[1][h][r]^3)/(4*Pi^2*r*h[r]^5) - 
   (7*Log[mu]*Derivative[1][h][r]^3)/(160*Pi^2*r*h[r]^5) + 
   (7*si*Log[mu]*Derivative[1][h][r]^3)/(12*Pi^2*r*h[r]^5) - 
   (7*si^2*Log[mu]*Derivative[1][h][r]^3)/(4*Pi^2*r*h[r]^5) - 
   (7*Log[f[r]]*Derivative[1][h][r]^3)/(320*Pi^2*r*h[r]^5) + 
   (7*si*Log[f[r]]*Derivative[1][h][r]^3)/(24*Pi^2*r*h[r]^5) - 
   (7*si^2*Log[f[r]]*Derivative[1][h][r]^3)/(8*Pi^2*r*h[r]^5) + 
   (7*Derivative[1][f][r]*Derivative[1][h][r]^3)/(640*Pi^2*f[r]*h[r]^5) - 
   (7*gamma*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (480*Pi^2*f[r]*h[r]^5) - (7*si*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(96*Pi^2*f[r]*h[r]^5) + 
   (7*gamma*si*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (48*Pi^2*f[r]*h[r]^5) - (7*gamma*si^2*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(16*Pi^2*f[r]*h[r]^5) + 
   (7*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (480*Pi^2*f[r]*h[r]^5) - (7*si*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(48*Pi^2*f[r]*h[r]^5) + 
   (7*si^2*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (16*Pi^2*f[r]*h[r]^5) + (7*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(480*Pi^2*f[r]*h[r]^5) - 
   (7*si*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (48*Pi^2*f[r]*h[r]^5) + (7*si^2*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(16*Pi^2*f[r]*h[r]^5) - 
   (7*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (480*Pi^2*f[r]*h[r]^5) + (7*si*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(48*Pi^2*f[r]*h[r]^5) - 
   (7*si^2*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (16*Pi^2*f[r]*h[r]^5) - (7*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(960*Pi^2*f[r]*h[r]^5) + 
   (7*si*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (96*Pi^2*f[r]*h[r]^5) - (7*si^2*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(32*Pi^2*f[r]*h[r]^5) + 
   Derivative[2][f][r]/(288*Pi^2*r^2*f[r]*h[r]^2) - 
   (si*Derivative[2][f][r])/(16*Pi^2*r^2*f[r]*h[r]^2) + 
   (si^2*Derivative[2][f][r])/(4*Pi^2*r^2*f[r]*h[r]^2) + 
   (k^2*Derivative[2][f][r])/(144*Pi^2*f[r]^2*h[r]) - 
   (k^2*si*Derivative[2][f][r])/(24*Pi^2*f[r]^2*h[r]) + 
   (m^2*Derivative[2][f][r])/(96*Pi^2*f[r]*h[r]) - 
   Derivative[2][f][r]/(288*Pi^2*r^2*f[r]*h[r]) - 
   (m^2*si*Derivative[2][f][r])/(8*Pi^2*f[r]*h[r]) + 
   (si*Derivative[2][f][r])/(16*Pi^2*r^2*f[r]*h[r]) - 
   (si^2*Derivative[2][f][r])/(4*Pi^2*r^2*f[r]*h[r]) + 
   (7*Derivative[1][f][r]*Derivative[2][f][r])/(144*Pi^2*r*f[r]^2*h[r]^2) - 
   (41*gamma*Derivative[1][f][r]*Derivative[2][f][r])/
    (960*Pi^2*r*f[r]^2*h[r]^2) - 
   (19*si*Derivative[1][f][r]*Derivative[2][f][r])/
    (48*Pi^2*r*f[r]^2*h[r]^2) + 
   (11*gamma*si*Derivative[1][f][r]*Derivative[2][f][r])/
    (24*Pi^2*r*f[r]^2*h[r]^2) + 
   (5*si^2*Derivative[1][f][r]*Derivative[2][f][r])/
    (8*Pi^2*r*f[r]^2*h[r]^2) - (11*gamma*si^2*Derivative[1][f][r]*
      Derivative[2][f][r])/(8*Pi^2*r*f[r]^2*h[r]^2) + 
   (41*Log[2]*Derivative[1][f][r]*Derivative[2][f][r])/
    (960*Pi^2*r*f[r]^2*h[r]^2) - 
   (11*si*Log[2]*Derivative[1][f][r]*Derivative[2][f][r])/
    (24*Pi^2*r*f[r]^2*h[r]^2) + 
   (11*si^2*Log[2]*Derivative[1][f][r]*Derivative[2][f][r])/
    (8*Pi^2*r*f[r]^2*h[r]^2) + (41*Log[k]*Derivative[1][f][r]*
      Derivative[2][f][r])/(960*Pi^2*r*f[r]^2*h[r]^2) - 
   (11*si*Log[k]*Derivative[1][f][r]*Derivative[2][f][r])/
    (24*Pi^2*r*f[r]^2*h[r]^2) + 
   (11*si^2*Log[k]*Derivative[1][f][r]*Derivative[2][f][r])/
    (8*Pi^2*r*f[r]^2*h[r]^2) - (41*Log[mu]*Derivative[1][f][r]*
      Derivative[2][f][r])/(960*Pi^2*r*f[r]^2*h[r]^2) + 
   (11*si*Log[mu]*Derivative[1][f][r]*Derivative[2][f][r])/
    (24*Pi^2*r*f[r]^2*h[r]^2) - 
   (11*si^2*Log[mu]*Derivative[1][f][r]*Derivative[2][f][r])/
    (8*Pi^2*r*f[r]^2*h[r]^2) - (41*Log[f[r]]*Derivative[1][f][r]*
      Derivative[2][f][r])/(1920*Pi^2*r*f[r]^2*h[r]^2) + 
   (11*si*Log[f[r]]*Derivative[1][f][r]*Derivative[2][f][r])/
    (48*Pi^2*r*f[r]^2*h[r]^2) - 
   (11*si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[2][f][r])/
    (16*Pi^2*r*f[r]^2*h[r]^2) - 
   (449*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (11520*Pi^2*f[r]^3*h[r]^2) + 
   (29*gamma*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (960*Pi^2*f[r]^3*h[r]^2) + (19*si*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(64*Pi^2*f[r]^3*h[r]^2) - 
   (29*gamma*si*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (96*Pi^2*f[r]^3*h[r]^2) - (3*si^2*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(8*Pi^2*f[r]^3*h[r]^2) + 
   (29*gamma*si^2*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]^3*h[r]^2) - (29*Log[2]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(960*Pi^2*f[r]^3*h[r]^2) + 
   (29*si*Log[2]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (96*Pi^2*f[r]^3*h[r]^2) - (29*si^2*Log[2]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]^3*h[r]^2) - 
   (29*Log[k]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (960*Pi^2*f[r]^3*h[r]^2) + (29*si*Log[k]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(96*Pi^2*f[r]^3*h[r]^2) - 
   (29*si^2*Log[k]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]^3*h[r]^2) + (29*Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(960*Pi^2*f[r]^3*h[r]^2) - 
   (29*si*Log[mu]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (96*Pi^2*f[r]^3*h[r]^2) + (29*si^2*Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]^3*h[r]^2) + 
   (29*Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (1920*Pi^2*f[r]^3*h[r]^2) - 
   (29*si*Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (192*Pi^2*f[r]^3*h[r]^2) + (29*si^2*Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(64*Pi^2*f[r]^3*h[r]^2) + 
   (11*Derivative[1][h][r]*Derivative[2][f][r])/(480*Pi^2*r*f[r]*h[r]^3) - 
   (31*gamma*Derivative[1][h][r]*Derivative[2][f][r])/
    (960*Pi^2*r*f[r]*h[r]^3) - (5*si*Derivative[1][h][r]*
      Derivative[2][f][r])/(48*Pi^2*r*f[r]*h[r]^3) + 
   (gamma*si*Derivative[1][h][r]*Derivative[2][f][r])/
    (3*Pi^2*r*f[r]*h[r]^3) - (si^2*Derivative[1][h][r]*Derivative[2][f][r])/
    (4*Pi^2*r*f[r]*h[r]^3) - (gamma*si^2*Derivative[1][h][r]*
      Derivative[2][f][r])/(Pi^2*r*f[r]*h[r]^3) + 
   (31*Log[2]*Derivative[1][h][r]*Derivative[2][f][r])/
    (960*Pi^2*r*f[r]*h[r]^3) - (si*Log[2]*Derivative[1][h][r]*
      Derivative[2][f][r])/(3*Pi^2*r*f[r]*h[r]^3) + 
   (si^2*Log[2]*Derivative[1][h][r]*Derivative[2][f][r])/
    (Pi^2*r*f[r]*h[r]^3) + (31*Log[k]*Derivative[1][h][r]*
      Derivative[2][f][r])/(960*Pi^2*r*f[r]*h[r]^3) - 
   (si*Log[k]*Derivative[1][h][r]*Derivative[2][f][r])/
    (3*Pi^2*r*f[r]*h[r]^3) + (si^2*Log[k]*Derivative[1][h][r]*
      Derivative[2][f][r])/(Pi^2*r*f[r]*h[r]^3) - 
   (31*Log[mu]*Derivative[1][h][r]*Derivative[2][f][r])/
    (960*Pi^2*r*f[r]*h[r]^3) + (si*Log[mu]*Derivative[1][h][r]*
      Derivative[2][f][r])/(3*Pi^2*r*f[r]*h[r]^3) - 
   (si^2*Log[mu]*Derivative[1][h][r]*Derivative[2][f][r])/
    (Pi^2*r*f[r]*h[r]^3) - (31*Log[f[r]]*Derivative[1][h][r]*
      Derivative[2][f][r])/(1920*Pi^2*r*f[r]*h[r]^3) + 
   (si*Log[f[r]]*Derivative[1][h][r]*Derivative[2][f][r])/
    (6*Pi^2*r*f[r]*h[r]^3) - (si^2*Log[f[r]]*Derivative[1][h][r]*
      Derivative[2][f][r])/(2*Pi^2*r*f[r]*h[r]^3) - 
   (39*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (1280*Pi^2*f[r]^2*h[r]^3) + 
   (9*gamma*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (320*Pi^2*f[r]^2*h[r]^3) + (15*si*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(64*Pi^2*f[r]^2*h[r]^3) - 
   (9*gamma*si*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (32*Pi^2*f[r]^2*h[r]^3) - (9*si^2*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(32*Pi^2*f[r]^2*h[r]^3) + 
   (27*gamma*si^2*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(32*Pi^2*f[r]^2*h[r]^3) - 
   (9*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (320*Pi^2*f[r]^2*h[r]^3) + (9*si*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(32*Pi^2*f[r]^2*h[r]^3) - 
   (27*si^2*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(32*Pi^2*f[r]^2*h[r]^3) - 
   (9*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (320*Pi^2*f[r]^2*h[r]^3) + (9*si*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(32*Pi^2*f[r]^2*h[r]^3) - 
   (27*si^2*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(32*Pi^2*f[r]^2*h[r]^3) + 
   (9*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (320*Pi^2*f[r]^2*h[r]^3) - (9*si*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(32*Pi^2*f[r]^2*h[r]^3) + 
   (27*si^2*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(32*Pi^2*f[r]^2*h[r]^3) + 
   (9*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (640*Pi^2*f[r]^2*h[r]^3) - (9*si*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(64*Pi^2*f[r]^2*h[r]^3) + 
   (27*si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(64*Pi^2*f[r]^2*h[r]^3) - 
   (19*Derivative[1][h][r]^2*Derivative[2][f][r])/(1280*Pi^2*f[r]*h[r]^4) + 
   (19*gamma*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (960*Pi^2*f[r]*h[r]^4) + (19*si*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(192*Pi^2*f[r]*h[r]^4) - 
   (19*gamma*si*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (96*Pi^2*f[r]*h[r]^4) + (19*gamma*si^2*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]*h[r]^4) - 
   (19*Log[2]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (960*Pi^2*f[r]*h[r]^4) + (19*si*Log[2]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(96*Pi^2*f[r]*h[r]^4) - 
   (19*si^2*Log[2]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]*h[r]^4) - (19*Log[k]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(960*Pi^2*f[r]*h[r]^4) + 
   (19*si*Log[k]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (96*Pi^2*f[r]*h[r]^4) - (19*si^2*Log[k]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]*h[r]^4) + 
   (19*Log[mu]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (960*Pi^2*f[r]*h[r]^4) - (19*si*Log[mu]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(96*Pi^2*f[r]*h[r]^4) + 
   (19*si^2*Log[mu]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]*h[r]^4) + (19*Log[f[r]]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(1920*Pi^2*f[r]*h[r]^4) - 
   (19*si*Log[f[r]]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (192*Pi^2*f[r]*h[r]^4) + (19*si^2*Log[f[r]]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(64*Pi^2*f[r]*h[r]^4) + 
   (13*Derivative[2][f][r]^2)/(1280*Pi^2*f[r]^2*h[r]^2) - 
   (3*gamma*Derivative[2][f][r]^2)/(320*Pi^2*f[r]^2*h[r]^2) - 
   (5*si*Derivative[2][f][r]^2)/(64*Pi^2*f[r]^2*h[r]^2) + 
   (3*gamma*si*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) + 
   (3*si^2*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) - 
   (9*gamma*si^2*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) + 
   (3*Log[2]*Derivative[2][f][r]^2)/(320*Pi^2*f[r]^2*h[r]^2) - 
   (3*si*Log[2]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) + 
   (9*si^2*Log[2]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) + 
   (3*Log[k]*Derivative[2][f][r]^2)/(320*Pi^2*f[r]^2*h[r]^2) - 
   (3*si*Log[k]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) + 
   (9*si^2*Log[k]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) - 
   (3*Log[mu]*Derivative[2][f][r]^2)/(320*Pi^2*f[r]^2*h[r]^2) + 
   (3*si*Log[mu]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) - 
   (9*si^2*Log[mu]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) - 
   (3*Log[f[r]]*Derivative[2][f][r]^2)/(640*Pi^2*f[r]^2*h[r]^2) + 
   (3*si*Log[f[r]]*Derivative[2][f][r]^2)/(64*Pi^2*f[r]^2*h[r]^2) - 
   (9*si^2*Log[f[r]]*Derivative[2][f][r]^2)/(64*Pi^2*f[r]^2*h[r]^2) + 
   Derivative[2][h][r]/(240*Pi^2*r^2*h[r]^3) - 
   (gamma*Derivative[2][h][r])/(160*Pi^2*r^2*h[r]^3) - 
   (si*Derivative[2][h][r])/(48*Pi^2*r^2*h[r]^3) + 
   (gamma*si*Derivative[2][h][r])/(12*Pi^2*r^2*h[r]^3) - 
   (gamma*si^2*Derivative[2][h][r])/(4*Pi^2*r^2*h[r]^3) + 
   (Log[2]*Derivative[2][h][r])/(160*Pi^2*r^2*h[r]^3) - 
   (si*Log[2]*Derivative[2][h][r])/(12*Pi^2*r^2*h[r]^3) + 
   (si^2*Log[2]*Derivative[2][h][r])/(4*Pi^2*r^2*h[r]^3) + 
   (Log[k]*Derivative[2][h][r])/(160*Pi^2*r^2*h[r]^3) - 
   (si*Log[k]*Derivative[2][h][r])/(12*Pi^2*r^2*h[r]^3) + 
   (si^2*Log[k]*Derivative[2][h][r])/(4*Pi^2*r^2*h[r]^3) - 
   (Log[mu]*Derivative[2][h][r])/(160*Pi^2*r^2*h[r]^3) + 
   (si*Log[mu]*Derivative[2][h][r])/(12*Pi^2*r^2*h[r]^3) - 
   (si^2*Log[mu]*Derivative[2][h][r])/(4*Pi^2*r^2*h[r]^3) - 
   (Log[f[r]]*Derivative[2][h][r])/(320*Pi^2*r^2*h[r]^3) + 
   (si*Log[f[r]]*Derivative[2][h][r])/(24*Pi^2*r^2*h[r]^3) - 
   (si^2*Log[f[r]]*Derivative[2][h][r])/(8*Pi^2*r^2*h[r]^3) + 
   (7*Derivative[1][f][r]*Derivative[2][h][r])/(960*Pi^2*r*f[r]*h[r]^3) - 
   (11*gamma*Derivative[1][f][r]*Derivative[2][h][r])/
    (960*Pi^2*r*f[r]*h[r]^3) + (gamma*si*Derivative[1][f][r]*
      Derivative[2][h][r])/(8*Pi^2*r*f[r]*h[r]^3) - 
   (si^2*Derivative[1][f][r]*Derivative[2][h][r])/(4*Pi^2*r*f[r]*h[r]^3) - 
   (3*gamma*si^2*Derivative[1][f][r]*Derivative[2][h][r])/
    (8*Pi^2*r*f[r]*h[r]^3) + (11*Log[2]*Derivative[1][f][r]*
      Derivative[2][h][r])/(960*Pi^2*r*f[r]*h[r]^3) - 
   (si*Log[2]*Derivative[1][f][r]*Derivative[2][h][r])/
    (8*Pi^2*r*f[r]*h[r]^3) + (3*si^2*Log[2]*Derivative[1][f][r]*
      Derivative[2][h][r])/(8*Pi^2*r*f[r]*h[r]^3) + 
   (11*Log[k]*Derivative[1][f][r]*Derivative[2][h][r])/
    (960*Pi^2*r*f[r]*h[r]^3) - (si*Log[k]*Derivative[1][f][r]*
      Derivative[2][h][r])/(8*Pi^2*r*f[r]*h[r]^3) + 
   (3*si^2*Log[k]*Derivative[1][f][r]*Derivative[2][h][r])/
    (8*Pi^2*r*f[r]*h[r]^3) - (11*Log[mu]*Derivative[1][f][r]*
      Derivative[2][h][r])/(960*Pi^2*r*f[r]*h[r]^3) + 
   (si*Log[mu]*Derivative[1][f][r]*Derivative[2][h][r])/
    (8*Pi^2*r*f[r]*h[r]^3) - (3*si^2*Log[mu]*Derivative[1][f][r]*
      Derivative[2][h][r])/(8*Pi^2*r*f[r]*h[r]^3) - 
   (11*Log[f[r]]*Derivative[1][f][r]*Derivative[2][h][r])/
    (1920*Pi^2*r*f[r]*h[r]^3) + 
   (si*Log[f[r]]*Derivative[1][f][r]*Derivative[2][h][r])/
    (16*Pi^2*r*f[r]*h[r]^3) - (3*si^2*Log[f[r]]*Derivative[1][f][r]*
      Derivative[2][h][r])/(16*Pi^2*r*f[r]*h[r]^3) - 
   (13*Derivative[1][f][r]^2*Derivative[2][h][r])/(1920*Pi^2*f[r]^2*h[r]^3) + 
   (gamma*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (160*Pi^2*f[r]^2*h[r]^3) + (5*si*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(96*Pi^2*f[r]^2*h[r]^3) - 
   (gamma*si*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (16*Pi^2*f[r]^2*h[r]^3) - (si^2*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(16*Pi^2*f[r]^2*h[r]^3) + 
   (3*gamma*si^2*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (16*Pi^2*f[r]^2*h[r]^3) - (Log[2]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(160*Pi^2*f[r]^2*h[r]^3) + 
   (si*Log[2]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (16*Pi^2*f[r]^2*h[r]^3) - (3*si^2*Log[2]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(16*Pi^2*f[r]^2*h[r]^3) - 
   (Log[k]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (160*Pi^2*f[r]^2*h[r]^3) + (si*Log[k]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(16*Pi^2*f[r]^2*h[r]^3) - 
   (3*si^2*Log[k]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (16*Pi^2*f[r]^2*h[r]^3) + (Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(160*Pi^2*f[r]^2*h[r]^3) - 
   (si*Log[mu]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (16*Pi^2*f[r]^2*h[r]^3) + (3*si^2*Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(16*Pi^2*f[r]^2*h[r]^3) + 
   (Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (320*Pi^2*f[r]^2*h[r]^3) - (si*Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(32*Pi^2*f[r]^2*h[r]^3) + 
   (3*si^2*Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (32*Pi^2*f[r]^2*h[r]^3) - (13*Derivative[1][h][r]*Derivative[2][h][r])/
    (480*Pi^2*r*h[r]^4) + (13*gamma*Derivative[1][h][r]*Derivative[2][h][r])/
    (320*Pi^2*r*h[r]^4) + (13*si*Derivative[1][h][r]*Derivative[2][h][r])/
    (96*Pi^2*r*h[r]^4) - (13*gamma*si*Derivative[1][h][r]*
      Derivative[2][h][r])/(24*Pi^2*r*h[r]^4) + 
   (13*gamma*si^2*Derivative[1][h][r]*Derivative[2][h][r])/
    (8*Pi^2*r*h[r]^4) - (13*Log[2]*Derivative[1][h][r]*Derivative[2][h][r])/
    (320*Pi^2*r*h[r]^4) + (13*si*Log[2]*Derivative[1][h][r]*
      Derivative[2][h][r])/(24*Pi^2*r*h[r]^4) - 
   (13*si^2*Log[2]*Derivative[1][h][r]*Derivative[2][h][r])/
    (8*Pi^2*r*h[r]^4) - (13*Log[k]*Derivative[1][h][r]*Derivative[2][h][r])/
    (320*Pi^2*r*h[r]^4) + (13*si*Log[k]*Derivative[1][h][r]*
      Derivative[2][h][r])/(24*Pi^2*r*h[r]^4) - 
   (13*si^2*Log[k]*Derivative[1][h][r]*Derivative[2][h][r])/
    (8*Pi^2*r*h[r]^4) + (13*Log[mu]*Derivative[1][h][r]*Derivative[2][h][r])/
    (320*Pi^2*r*h[r]^4) - (13*si*Log[mu]*Derivative[1][h][r]*
      Derivative[2][h][r])/(24*Pi^2*r*h[r]^4) + 
   (13*si^2*Log[mu]*Derivative[1][h][r]*Derivative[2][h][r])/
    (8*Pi^2*r*h[r]^4) + (13*Log[f[r]]*Derivative[1][h][r]*
      Derivative[2][h][r])/(640*Pi^2*r*h[r]^4) - 
   (13*si*Log[f[r]]*Derivative[1][h][r]*Derivative[2][h][r])/
    (48*Pi^2*r*h[r]^4) + (13*si^2*Log[f[r]]*Derivative[1][h][r]*
      Derivative[2][h][r])/(16*Pi^2*r*h[r]^4) - 
   (13*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][h][r])/
    (1280*Pi^2*f[r]*h[r]^4) + (13*gamma*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][h][r])/(960*Pi^2*f[r]*h[r]^4) + 
   (13*si*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][h][r])/
    (192*Pi^2*f[r]*h[r]^4) - (13*gamma*si*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][h][r])/(96*Pi^2*f[r]*h[r]^4) + 
   (13*gamma*si^2*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(32*Pi^2*f[r]*h[r]^4) - 
   (13*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][h][r])/
    (960*Pi^2*f[r]*h[r]^4) + (13*si*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][h][r])/(96*Pi^2*f[r]*h[r]^4) - 
   (13*si^2*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(32*Pi^2*f[r]*h[r]^4) - 
   (13*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][h][r])/
    (960*Pi^2*f[r]*h[r]^4) + (13*si*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][h][r])/(96*Pi^2*f[r]*h[r]^4) - 
   (13*si^2*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(32*Pi^2*f[r]*h[r]^4) + 
   (13*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][h][r])/
    (960*Pi^2*f[r]*h[r]^4) - (13*si*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][h][r])/(96*Pi^2*f[r]*h[r]^4) + 
   (13*si^2*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(32*Pi^2*f[r]*h[r]^4) + 
   (13*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(1920*Pi^2*f[r]*h[r]^4) - 
   (13*si*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(192*Pi^2*f[r]*h[r]^4) + 
   (13*si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(64*Pi^2*f[r]*h[r]^4) + 
   (Derivative[2][f][r]*Derivative[2][h][r])/(160*Pi^2*f[r]*h[r]^3) - 
   (gamma*Derivative[2][f][r]*Derivative[2][h][r])/(120*Pi^2*f[r]*h[r]^3) - 
   (si*Derivative[2][f][r]*Derivative[2][h][r])/(24*Pi^2*f[r]*h[r]^3) + 
   (gamma*si*Derivative[2][f][r]*Derivative[2][h][r])/(12*Pi^2*f[r]*h[r]^3) - 
   (gamma*si^2*Derivative[2][f][r]*Derivative[2][h][r])/
    (4*Pi^2*f[r]*h[r]^3) + (Log[2]*Derivative[2][f][r]*Derivative[2][h][r])/
    (120*Pi^2*f[r]*h[r]^3) - (si*Log[2]*Derivative[2][f][r]*
      Derivative[2][h][r])/(12*Pi^2*f[r]*h[r]^3) + 
   (si^2*Log[2]*Derivative[2][f][r]*Derivative[2][h][r])/
    (4*Pi^2*f[r]*h[r]^3) + (Log[k]*Derivative[2][f][r]*Derivative[2][h][r])/
    (120*Pi^2*f[r]*h[r]^3) - (si*Log[k]*Derivative[2][f][r]*
      Derivative[2][h][r])/(12*Pi^2*f[r]*h[r]^3) + 
   (si^2*Log[k]*Derivative[2][f][r]*Derivative[2][h][r])/
    (4*Pi^2*f[r]*h[r]^3) - (Log[mu]*Derivative[2][f][r]*Derivative[2][h][r])/
    (120*Pi^2*f[r]*h[r]^3) + (si*Log[mu]*Derivative[2][f][r]*
      Derivative[2][h][r])/(12*Pi^2*f[r]*h[r]^3) - 
   (si^2*Log[mu]*Derivative[2][f][r]*Derivative[2][h][r])/
    (4*Pi^2*f[r]*h[r]^3) - (Log[f[r]]*Derivative[2][f][r]*
      Derivative[2][h][r])/(240*Pi^2*f[r]*h[r]^3) + 
   (si*Log[f[r]]*Derivative[2][f][r]*Derivative[2][h][r])/
    (24*Pi^2*f[r]*h[r]^3) - (si^2*Log[f[r]]*Derivative[2][f][r]*
      Derivative[2][h][r])/(8*Pi^2*f[r]*h[r]^3) - 
   Derivative[3][f][r]/(80*Pi^2*r*f[r]*h[r]^2) + 
   (gamma*Derivative[3][f][r])/(60*Pi^2*r*f[r]*h[r]^2) + 
   (si*Derivative[3][f][r])/(12*Pi^2*r*f[r]*h[r]^2) - 
   (gamma*si*Derivative[3][f][r])/(6*Pi^2*r*f[r]*h[r]^2) + 
   (gamma*si^2*Derivative[3][f][r])/(2*Pi^2*r*f[r]*h[r]^2) - 
   (Log[2]*Derivative[3][f][r])/(60*Pi^2*r*f[r]*h[r]^2) + 
   (si*Log[2]*Derivative[3][f][r])/(6*Pi^2*r*f[r]*h[r]^2) - 
   (si^2*Log[2]*Derivative[3][f][r])/(2*Pi^2*r*f[r]*h[r]^2) - 
   (Log[k]*Derivative[3][f][r])/(60*Pi^2*r*f[r]*h[r]^2) + 
   (si*Log[k]*Derivative[3][f][r])/(6*Pi^2*r*f[r]*h[r]^2) - 
   (si^2*Log[k]*Derivative[3][f][r])/(2*Pi^2*r*f[r]*h[r]^2) + 
   (Log[mu]*Derivative[3][f][r])/(60*Pi^2*r*f[r]*h[r]^2) - 
   (si*Log[mu]*Derivative[3][f][r])/(6*Pi^2*r*f[r]*h[r]^2) + 
   (si^2*Log[mu]*Derivative[3][f][r])/(2*Pi^2*r*f[r]*h[r]^2) + 
   (Log[f[r]]*Derivative[3][f][r])/(120*Pi^2*r*f[r]*h[r]^2) - 
   (si*Log[f[r]]*Derivative[3][f][r])/(12*Pi^2*r*f[r]*h[r]^2) + 
   (si^2*Log[f[r]]*Derivative[3][f][r])/(4*Pi^2*r*f[r]*h[r]^2) + 
   (13*Derivative[1][f][r]*Derivative[3][f][r])/(960*Pi^2*f[r]^2*h[r]^2) - 
   (gamma*Derivative[1][f][r]*Derivative[3][f][r])/(80*Pi^2*f[r]^2*h[r]^2) - 
   (5*si*Derivative[1][f][r]*Derivative[3][f][r])/(48*Pi^2*f[r]^2*h[r]^2) + 
   (gamma*si*Derivative[1][f][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]^2*h[r]^2) + (si^2*Derivative[1][f][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]^2*h[r]^2) - (3*gamma*si^2*Derivative[1][f][r]*
      Derivative[3][f][r])/(8*Pi^2*f[r]^2*h[r]^2) + 
   (Log[2]*Derivative[1][f][r]*Derivative[3][f][r])/(80*Pi^2*f[r]^2*h[r]^2) - 
   (si*Log[2]*Derivative[1][f][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]^2*h[r]^2) + (3*si^2*Log[2]*Derivative[1][f][r]*
      Derivative[3][f][r])/(8*Pi^2*f[r]^2*h[r]^2) + 
   (Log[k]*Derivative[1][f][r]*Derivative[3][f][r])/(80*Pi^2*f[r]^2*h[r]^2) - 
   (si*Log[k]*Derivative[1][f][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]^2*h[r]^2) + (3*si^2*Log[k]*Derivative[1][f][r]*
      Derivative[3][f][r])/(8*Pi^2*f[r]^2*h[r]^2) - 
   (Log[mu]*Derivative[1][f][r]*Derivative[3][f][r])/
    (80*Pi^2*f[r]^2*h[r]^2) + (si*Log[mu]*Derivative[1][f][r]*
      Derivative[3][f][r])/(8*Pi^2*f[r]^2*h[r]^2) - 
   (3*si^2*Log[mu]*Derivative[1][f][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]^2*h[r]^2) - (Log[f[r]]*Derivative[1][f][r]*
      Derivative[3][f][r])/(160*Pi^2*f[r]^2*h[r]^2) + 
   (si*Log[f[r]]*Derivative[1][f][r]*Derivative[3][f][r])/
    (16*Pi^2*f[r]^2*h[r]^2) - (3*si^2*Log[f[r]]*Derivative[1][f][r]*
      Derivative[3][f][r])/(16*Pi^2*f[r]^2*h[r]^2) + 
   (3*Derivative[1][h][r]*Derivative[3][f][r])/(320*Pi^2*f[r]*h[r]^3) - 
   (gamma*Derivative[1][h][r]*Derivative[3][f][r])/(80*Pi^2*f[r]*h[r]^3) - 
   (si*Derivative[1][h][r]*Derivative[3][f][r])/(16*Pi^2*f[r]*h[r]^3) + 
   (gamma*si*Derivative[1][h][r]*Derivative[3][f][r])/(8*Pi^2*f[r]*h[r]^3) - 
   (3*gamma*si^2*Derivative[1][h][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]*h[r]^3) + (Log[2]*Derivative[1][h][r]*Derivative[3][f][r])/
    (80*Pi^2*f[r]*h[r]^3) - (si*Log[2]*Derivative[1][h][r]*
      Derivative[3][f][r])/(8*Pi^2*f[r]*h[r]^3) + 
   (3*si^2*Log[2]*Derivative[1][h][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]*h[r]^3) + (Log[k]*Derivative[1][h][r]*Derivative[3][f][r])/
    (80*Pi^2*f[r]*h[r]^3) - (si*Log[k]*Derivative[1][h][r]*
      Derivative[3][f][r])/(8*Pi^2*f[r]*h[r]^3) + 
   (3*si^2*Log[k]*Derivative[1][h][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]*h[r]^3) - (Log[mu]*Derivative[1][h][r]*Derivative[3][f][r])/
    (80*Pi^2*f[r]*h[r]^3) + (si*Log[mu]*Derivative[1][h][r]*
      Derivative[3][f][r])/(8*Pi^2*f[r]*h[r]^3) - 
   (3*si^2*Log[mu]*Derivative[1][h][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]*h[r]^3) - (Log[f[r]]*Derivative[1][h][r]*
      Derivative[3][f][r])/(160*Pi^2*f[r]*h[r]^3) + 
   (si*Log[f[r]]*Derivative[1][h][r]*Derivative[3][f][r])/
    (16*Pi^2*f[r]*h[r]^3) - (3*si^2*Log[f[r]]*Derivative[1][h][r]*
      Derivative[3][f][r])/(16*Pi^2*f[r]*h[r]^3) + 
   Derivative[3][h][r]/(240*Pi^2*r*h[r]^3) - 
   (gamma*Derivative[3][h][r])/(160*Pi^2*r*h[r]^3) - 
   (si*Derivative[3][h][r])/(48*Pi^2*r*h[r]^3) + 
   (gamma*si*Derivative[3][h][r])/(12*Pi^2*r*h[r]^3) - 
   (gamma*si^2*Derivative[3][h][r])/(4*Pi^2*r*h[r]^3) + 
   (Log[2]*Derivative[3][h][r])/(160*Pi^2*r*h[r]^3) - 
   (si*Log[2]*Derivative[3][h][r])/(12*Pi^2*r*h[r]^3) + 
   (si^2*Log[2]*Derivative[3][h][r])/(4*Pi^2*r*h[r]^3) + 
   (Log[k]*Derivative[3][h][r])/(160*Pi^2*r*h[r]^3) - 
   (si*Log[k]*Derivative[3][h][r])/(12*Pi^2*r*h[r]^3) + 
   (si^2*Log[k]*Derivative[3][h][r])/(4*Pi^2*r*h[r]^3) - 
   (Log[mu]*Derivative[3][h][r])/(160*Pi^2*r*h[r]^3) + 
   (si*Log[mu]*Derivative[3][h][r])/(12*Pi^2*r*h[r]^3) - 
   (si^2*Log[mu]*Derivative[3][h][r])/(4*Pi^2*r*h[r]^3) - 
   (Log[f[r]]*Derivative[3][h][r])/(320*Pi^2*r*h[r]^3) + 
   (si*Log[f[r]]*Derivative[3][h][r])/(24*Pi^2*r*h[r]^3) - 
   (si^2*Log[f[r]]*Derivative[3][h][r])/(8*Pi^2*r*h[r]^3) + 
   (Derivative[1][f][r]*Derivative[3][h][r])/(640*Pi^2*f[r]*h[r]^3) - 
   (gamma*Derivative[1][f][r]*Derivative[3][h][r])/(480*Pi^2*f[r]*h[r]^3) - 
   (si*Derivative[1][f][r]*Derivative[3][h][r])/(96*Pi^2*f[r]*h[r]^3) + 
   (gamma*si*Derivative[1][f][r]*Derivative[3][h][r])/(48*Pi^2*f[r]*h[r]^3) - 
   (gamma*si^2*Derivative[1][f][r]*Derivative[3][h][r])/
    (16*Pi^2*f[r]*h[r]^3) + (Log[2]*Derivative[1][f][r]*Derivative[3][h][r])/
    (480*Pi^2*f[r]*h[r]^3) - (si*Log[2]*Derivative[1][f][r]*
      Derivative[3][h][r])/(48*Pi^2*f[r]*h[r]^3) + 
   (si^2*Log[2]*Derivative[1][f][r]*Derivative[3][h][r])/
    (16*Pi^2*f[r]*h[r]^3) + (Log[k]*Derivative[1][f][r]*Derivative[3][h][r])/
    (480*Pi^2*f[r]*h[r]^3) - (si*Log[k]*Derivative[1][f][r]*
      Derivative[3][h][r])/(48*Pi^2*f[r]*h[r]^3) + 
   (si^2*Log[k]*Derivative[1][f][r]*Derivative[3][h][r])/
    (16*Pi^2*f[r]*h[r]^3) - (Log[mu]*Derivative[1][f][r]*
      Derivative[3][h][r])/(480*Pi^2*f[r]*h[r]^3) + 
   (si*Log[mu]*Derivative[1][f][r]*Derivative[3][h][r])/
    (48*Pi^2*f[r]*h[r]^3) - (si^2*Log[mu]*Derivative[1][f][r]*
      Derivative[3][h][r])/(16*Pi^2*f[r]*h[r]^3) - 
   (Log[f[r]]*Derivative[1][f][r]*Derivative[3][h][r])/
    (960*Pi^2*f[r]*h[r]^3) + (si*Log[f[r]]*Derivative[1][f][r]*
      Derivative[3][h][r])/(96*Pi^2*f[r]*h[r]^3) - 
   (si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[3][h][r])/
    (32*Pi^2*f[r]*h[r]^3) - Derivative[4][f][r]/(320*Pi^2*f[r]*h[r]^2) + 
   (gamma*Derivative[4][f][r])/(240*Pi^2*f[r]*h[r]^2) + 
   (si*Derivative[4][f][r])/(48*Pi^2*f[r]*h[r]^2) - 
   (gamma*si*Derivative[4][f][r])/(24*Pi^2*f[r]*h[r]^2) + 
   (gamma*si^2*Derivative[4][f][r])/(8*Pi^2*f[r]*h[r]^2) - 
   (Log[2]*Derivative[4][f][r])/(240*Pi^2*f[r]*h[r]^2) + 
   (si*Log[2]*Derivative[4][f][r])/(24*Pi^2*f[r]*h[r]^2) - 
   (si^2*Log[2]*Derivative[4][f][r])/(8*Pi^2*f[r]*h[r]^2) - 
   (Log[k]*Derivative[4][f][r])/(240*Pi^2*f[r]*h[r]^2) + 
   (si*Log[k]*Derivative[4][f][r])/(24*Pi^2*f[r]*h[r]^2) - 
   (si^2*Log[k]*Derivative[4][f][r])/(8*Pi^2*f[r]*h[r]^2) + 
   (Log[mu]*Derivative[4][f][r])/(240*Pi^2*f[r]*h[r]^2) - 
   (si*Log[mu]*Derivative[4][f][r])/(24*Pi^2*f[r]*h[r]^2) + 
   (si^2*Log[mu]*Derivative[4][f][r])/(8*Pi^2*f[r]*h[r]^2) + 
   (Log[f[r]]*Derivative[4][f][r])/(480*Pi^2*f[r]*h[r]^2) - 
   (si*Log[f[r]]*Derivative[4][f][r])/(48*Pi^2*f[r]*h[r]^2) + 
   (si^2*Log[f[r]]*Derivative[4][f][r])/(16*Pi^2*f[r]*h[r]^2)
 
Trr = (-3*m^4)/(128*Pi^2) + (gamma*m^4)/(32*Pi^2) + gamma/(240*Pi^2*r^4) + 
   m^2/(96*Pi^2*r^2) - (gamma*m^2)/(48*Pi^2*r^2) - (gamma*si)/(24*Pi^2*r^4) - 
   (m^2*si)/(16*Pi^2*r^2) + (gamma*m^2*si)/(8*Pi^2*r^2) + 
   (gamma*si^2)/(8*Pi^2*r^4) + k^4/(1440*Pi^2*f[r]^2) - 
   (k^2*m^2)/(96*Pi^2*f[r]) + k^2/(288*Pi^2*r^2*f[r]) - 
   (k^2*si)/(48*Pi^2*r^2*f[r]) - gamma/(40*Pi^2*r^4*h[r]^2) + 
   (7*gamma*si)/(24*Pi^2*r^4*h[r]^2) - (7*gamma*si^2)/(8*Pi^2*r^4*h[r]^2) + 
   gamma/(48*Pi^2*r^4*h[r]) - m^2/(96*Pi^2*r^2*h[r]) + 
   (gamma*m^2)/(48*Pi^2*r^2*h[r]) - (gamma*si)/(4*Pi^2*r^4*h[r]) + 
   (m^2*si)/(16*Pi^2*r^2*h[r]) - (gamma*m^2*si)/(8*Pi^2*r^2*h[r]) + 
   (3*gamma*si^2)/(4*Pi^2*r^4*h[r]) - k^2/(288*Pi^2*r^2*f[r]*h[r]) + 
   (k^2*si)/(48*Pi^2*r^2*f[r]*h[r]) - (m^4*Log[2])/(32*Pi^2) - 
   Log[2]/(240*Pi^2*r^4) + (m^2*Log[2])/(48*Pi^2*r^2) + 
   (si*Log[2])/(24*Pi^2*r^4) - (m^2*si*Log[2])/(8*Pi^2*r^2) - 
   (si^2*Log[2])/(8*Pi^2*r^4) + Log[2]/(40*Pi^2*r^4*h[r]^2) - 
   (7*si*Log[2])/(24*Pi^2*r^4*h[r]^2) + (7*si^2*Log[2])/(8*Pi^2*r^4*h[r]^2) - 
   Log[2]/(48*Pi^2*r^4*h[r]) - (m^2*Log[2])/(48*Pi^2*r^2*h[r]) + 
   (si*Log[2])/(4*Pi^2*r^4*h[r]) + (m^2*si*Log[2])/(8*Pi^2*r^2*h[r]) - 
   (3*si^2*Log[2])/(4*Pi^2*r^4*h[r]) - (m^4*Log[k])/(32*Pi^2) - 
   Log[k]/(240*Pi^2*r^4) + (m^2*Log[k])/(48*Pi^2*r^2) + 
   (si*Log[k])/(24*Pi^2*r^4) - (m^2*si*Log[k])/(8*Pi^2*r^2) - 
   (si^2*Log[k])/(8*Pi^2*r^4) + Log[k]/(40*Pi^2*r^4*h[r]^2) - 
   (7*si*Log[k])/(24*Pi^2*r^4*h[r]^2) + (7*si^2*Log[k])/(8*Pi^2*r^4*h[r]^2) - 
   Log[k]/(48*Pi^2*r^4*h[r]) - (m^2*Log[k])/(48*Pi^2*r^2*h[r]) + 
   (si*Log[k])/(4*Pi^2*r^4*h[r]) + (m^2*si*Log[k])/(8*Pi^2*r^2*h[r]) - 
   (3*si^2*Log[k])/(4*Pi^2*r^4*h[r]) + (m^4*Log[mu])/(32*Pi^2) + 
   Log[mu]/(240*Pi^2*r^4) - (m^2*Log[mu])/(48*Pi^2*r^2) - 
   (si*Log[mu])/(24*Pi^2*r^4) + (m^2*si*Log[mu])/(8*Pi^2*r^2) + 
   (si^2*Log[mu])/(8*Pi^2*r^4) - Log[mu]/(40*Pi^2*r^4*h[r]^2) + 
   (7*si*Log[mu])/(24*Pi^2*r^4*h[r]^2) - 
   (7*si^2*Log[mu])/(8*Pi^2*r^4*h[r]^2) + Log[mu]/(48*Pi^2*r^4*h[r]) + 
   (m^2*Log[mu])/(48*Pi^2*r^2*h[r]) - (si*Log[mu])/(4*Pi^2*r^4*h[r]) - 
   (m^2*si*Log[mu])/(8*Pi^2*r^2*h[r]) + (3*si^2*Log[mu])/(4*Pi^2*r^4*h[r]) + 
   (m^4*Log[f[r]])/(64*Pi^2) + Log[f[r]]/(480*Pi^2*r^4) - 
   (m^2*Log[f[r]])/(96*Pi^2*r^2) - (si*Log[f[r]])/(48*Pi^2*r^4) + 
   (m^2*si*Log[f[r]])/(16*Pi^2*r^2) + (si^2*Log[f[r]])/(16*Pi^2*r^4) - 
   Log[f[r]]/(80*Pi^2*r^4*h[r]^2) + (7*si*Log[f[r]])/(48*Pi^2*r^4*h[r]^2) - 
   (7*si^2*Log[f[r]])/(16*Pi^2*r^4*h[r]^2) + Log[f[r]]/(96*Pi^2*r^4*h[r]) + 
   (m^2*Log[f[r]])/(96*Pi^2*r^2*h[r]) - (si*Log[f[r]])/(8*Pi^2*r^4*h[r]) - 
   (m^2*si*Log[f[r]])/(16*Pi^2*r^2*h[r]) + 
   (3*si^2*Log[f[r]])/(8*Pi^2*r^4*h[r]) + 
   (3*Derivative[1][f][r])/(160*Pi^2*r^3*f[r]*h[r]^2) - 
   (gamma*Derivative[1][f][r])/(80*Pi^2*r^3*f[r]*h[r]^2) - 
   (7*si*Derivative[1][f][r])/(48*Pi^2*r^3*f[r]*h[r]^2) + 
   (gamma*si*Derivative[1][f][r])/(6*Pi^2*r^3*f[r]*h[r]^2) + 
   (si^2*Derivative[1][f][r])/(4*Pi^2*r^3*f[r]*h[r]^2) - 
   (gamma*si^2*Derivative[1][f][r])/(2*Pi^2*r^3*f[r]*h[r]^2) + 
   (k^2*Derivative[1][f][r])/(288*Pi^2*r*f[r]^2*h[r]) - 
   (k^2*si*Derivative[1][f][r])/(48*Pi^2*r*f[r]^2*h[r]) - 
   Derivative[1][f][r]/(96*Pi^2*r^3*f[r]*h[r]) + 
   (m^2*Derivative[1][f][r])/(96*Pi^2*r*f[r]*h[r]) + 
   (gamma*m^2*Derivative[1][f][r])/(48*Pi^2*r*f[r]*h[r]) + 
   (5*si*Derivative[1][f][r])/(48*Pi^2*r^3*f[r]*h[r]) - 
   (m^2*si*Derivative[1][f][r])/(16*Pi^2*r*f[r]*h[r]) - 
   (gamma*m^2*si*Derivative[1][f][r])/(8*Pi^2*r*f[r]*h[r]) - 
   (si^2*Derivative[1][f][r])/(4*Pi^2*r^3*f[r]*h[r]) + 
   (Log[2]*Derivative[1][f][r])/(80*Pi^2*r^3*f[r]*h[r]^2) - 
   (si*Log[2]*Derivative[1][f][r])/(6*Pi^2*r^3*f[r]*h[r]^2) + 
   (si^2*Log[2]*Derivative[1][f][r])/(2*Pi^2*r^3*f[r]*h[r]^2) - 
   (m^2*Log[2]*Derivative[1][f][r])/(48*Pi^2*r*f[r]*h[r]) + 
   (m^2*si*Log[2]*Derivative[1][f][r])/(8*Pi^2*r*f[r]*h[r]) + 
   (Log[k]*Derivative[1][f][r])/(80*Pi^2*r^3*f[r]*h[r]^2) - 
   (si*Log[k]*Derivative[1][f][r])/(6*Pi^2*r^3*f[r]*h[r]^2) + 
   (si^2*Log[k]*Derivative[1][f][r])/(2*Pi^2*r^3*f[r]*h[r]^2) - 
   (m^2*Log[k]*Derivative[1][f][r])/(48*Pi^2*r*f[r]*h[r]) + 
   (m^2*si*Log[k]*Derivative[1][f][r])/(8*Pi^2*r*f[r]*h[r]) - 
   (Log[mu]*Derivative[1][f][r])/(80*Pi^2*r^3*f[r]*h[r]^2) + 
   (si*Log[mu]*Derivative[1][f][r])/(6*Pi^2*r^3*f[r]*h[r]^2) - 
   (si^2*Log[mu]*Derivative[1][f][r])/(2*Pi^2*r^3*f[r]*h[r]^2) + 
   (m^2*Log[mu]*Derivative[1][f][r])/(48*Pi^2*r*f[r]*h[r]) - 
   (m^2*si*Log[mu]*Derivative[1][f][r])/(8*Pi^2*r*f[r]*h[r]) - 
   (Log[f[r]]*Derivative[1][f][r])/(160*Pi^2*r^3*f[r]*h[r]^2) + 
   (si*Log[f[r]]*Derivative[1][f][r])/(12*Pi^2*r^3*f[r]*h[r]^2) - 
   (si^2*Log[f[r]]*Derivative[1][f][r])/(4*Pi^2*r^3*f[r]*h[r]^2) + 
   (m^2*Log[f[r]]*Derivative[1][f][r])/(96*Pi^2*r*f[r]*h[r]) - 
   (m^2*si*Log[f[r]]*Derivative[1][f][r])/(16*Pi^2*r*f[r]*h[r]) + 
   (7*Derivative[1][f][r]^2)/(384*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (9*gamma*Derivative[1][f][r]^2)/(640*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (31*si*Derivative[1][f][r]^2)/(192*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (gamma*si*Derivative[1][f][r]^2)/(6*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (5*si^2*Derivative[1][f][r]^2)/(16*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (gamma*si^2*Derivative[1][f][r]^2)/(2*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (k^2*Derivative[1][f][r]^2)/(576*Pi^2*f[r]^3*h[r]) - 
   (k^2*si*Derivative[1][f][r]^2)/(96*Pi^2*f[r]^3*h[r]) + 
   (m^2*Derivative[1][f][r]^2)/(384*Pi^2*f[r]^2*h[r]) - 
   Derivative[1][f][r]^2/(1152*Pi^2*r^2*f[r]^2*h[r]) - 
   (m^2*si*Derivative[1][f][r]^2)/(32*Pi^2*f[r]^2*h[r]) + 
   (si*Derivative[1][f][r]^2)/(64*Pi^2*r^2*f[r]^2*h[r]) - 
   (si^2*Derivative[1][f][r]^2)/(16*Pi^2*r^2*f[r]^2*h[r]) + 
   (9*Log[2]*Derivative[1][f][r]^2)/(640*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si*Log[2]*Derivative[1][f][r]^2)/(6*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si^2*Log[2]*Derivative[1][f][r]^2)/(2*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (9*Log[k]*Derivative[1][f][r]^2)/(640*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si*Log[k]*Derivative[1][f][r]^2)/(6*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si^2*Log[k]*Derivative[1][f][r]^2)/(2*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (9*Log[mu]*Derivative[1][f][r]^2)/(640*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si*Log[mu]*Derivative[1][f][r]^2)/(6*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si^2*Log[mu]*Derivative[1][f][r]^2)/(2*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (9*Log[f[r]]*Derivative[1][f][r]^2)/(1280*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si*Log[f[r]]*Derivative[1][f][r]^2)/(12*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si^2*Log[f[r]]*Derivative[1][f][r]^2)/(4*Pi^2*r^2*f[r]^2*h[r]^2) - 
   Derivative[1][f][r]^3/(180*Pi^2*r*f[r]^3*h[r]^2) + 
   (gamma*Derivative[1][f][r]^3)/(384*Pi^2*r*f[r]^3*h[r]^2) + 
   (si*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) - 
   (gamma*si*Derivative[1][f][r]^3)/(24*Pi^2*r*f[r]^3*h[r]^2) + 
   (gamma*si^2*Derivative[1][f][r]^3)/(8*Pi^2*r*f[r]^3*h[r]^2) - 
   (Log[2]*Derivative[1][f][r]^3)/(384*Pi^2*r*f[r]^3*h[r]^2) + 
   (si*Log[2]*Derivative[1][f][r]^3)/(24*Pi^2*r*f[r]^3*h[r]^2) - 
   (si^2*Log[2]*Derivative[1][f][r]^3)/(8*Pi^2*r*f[r]^3*h[r]^2) - 
   (Log[k]*Derivative[1][f][r]^3)/(384*Pi^2*r*f[r]^3*h[r]^2) + 
   (si*Log[k]*Derivative[1][f][r]^3)/(24*Pi^2*r*f[r]^3*h[r]^2) - 
   (si^2*Log[k]*Derivative[1][f][r]^3)/(8*Pi^2*r*f[r]^3*h[r]^2) + 
   (Log[mu]*Derivative[1][f][r]^3)/(384*Pi^2*r*f[r]^3*h[r]^2) - 
   (si*Log[mu]*Derivative[1][f][r]^3)/(24*Pi^2*r*f[r]^3*h[r]^2) + 
   (si^2*Log[mu]*Derivative[1][f][r]^3)/(8*Pi^2*r*f[r]^3*h[r]^2) + 
   (Log[f[r]]*Derivative[1][f][r]^3)/(768*Pi^2*r*f[r]^3*h[r]^2) - 
   (si*Log[f[r]]*Derivative[1][f][r]^3)/(48*Pi^2*r*f[r]^3*h[r]^2) + 
   (si^2*Log[f[r]]*Derivative[1][f][r]^3)/(16*Pi^2*r*f[r]^3*h[r]^2) - 
   (109*Derivative[1][f][r]^4)/(46080*Pi^2*f[r]^4*h[r]^2) + 
   (7*gamma*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) + 
   (13*si*Derivative[1][f][r]^4)/(768*Pi^2*f[r]^4*h[r]^2) - 
   (7*gamma*si*Derivative[1][f][r]^4)/(384*Pi^2*f[r]^4*h[r]^2) - 
   (si^2*Derivative[1][f][r]^4)/(64*Pi^2*f[r]^4*h[r]^2) + 
   (7*gamma*si^2*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) - 
   (7*Log[2]*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) + 
   (7*si*Log[2]*Derivative[1][f][r]^4)/(384*Pi^2*f[r]^4*h[r]^2) - 
   (7*si^2*Log[2]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) - 
   (7*Log[k]*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) + 
   (7*si*Log[k]*Derivative[1][f][r]^4)/(384*Pi^2*f[r]^4*h[r]^2) - 
   (7*si^2*Log[k]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) + 
   (7*Log[mu]*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) - 
   (7*si*Log[mu]*Derivative[1][f][r]^4)/(384*Pi^2*f[r]^4*h[r]^2) + 
   (7*si^2*Log[mu]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) + 
   (7*Log[f[r]]*Derivative[1][f][r]^4)/(7680*Pi^2*f[r]^4*h[r]^2) - 
   (7*si*Log[f[r]]*Derivative[1][f][r]^4)/(768*Pi^2*f[r]^4*h[r]^2) + 
   (7*si^2*Log[f[r]]*Derivative[1][f][r]^4)/(256*Pi^2*f[r]^4*h[r]^2) - 
   (Derivative[1][f][r]*Derivative[1][h][r])/(320*Pi^2*r^2*f[r]*h[r]^3) - 
   (13*gamma*Derivative[1][f][r]*Derivative[1][h][r])/
    (960*Pi^2*r^2*f[r]*h[r]^3) + 
   (si*Derivative[1][f][r]*Derivative[1][h][r])/(16*Pi^2*r^2*f[r]*h[r]^3) + 
   (gamma*si*Derivative[1][f][r]*Derivative[1][h][r])/
    (6*Pi^2*r^2*f[r]*h[r]^3) - (si^2*Derivative[1][f][r]*
      Derivative[1][h][r])/(4*Pi^2*r^2*f[r]*h[r]^3) - 
   (gamma*si^2*Derivative[1][f][r]*Derivative[1][h][r])/
    (2*Pi^2*r^2*f[r]*h[r]^3) + (13*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r])/(960*Pi^2*r^2*f[r]*h[r]^3) - 
   (si*Log[2]*Derivative[1][f][r]*Derivative[1][h][r])/
    (6*Pi^2*r^2*f[r]*h[r]^3) + (si^2*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r])/(2*Pi^2*r^2*f[r]*h[r]^3) + 
   (13*Log[k]*Derivative[1][f][r]*Derivative[1][h][r])/
    (960*Pi^2*r^2*f[r]*h[r]^3) - 
   (si*Log[k]*Derivative[1][f][r]*Derivative[1][h][r])/
    (6*Pi^2*r^2*f[r]*h[r]^3) + (si^2*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r])/(2*Pi^2*r^2*f[r]*h[r]^3) - 
   (13*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r])/
    (960*Pi^2*r^2*f[r]*h[r]^3) + 
   (si*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r])/
    (6*Pi^2*r^2*f[r]*h[r]^3) - (si^2*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r])/(2*Pi^2*r^2*f[r]*h[r]^3) - 
   (13*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r])/
    (1920*Pi^2*r^2*f[r]*h[r]^3) + 
   (si*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r])/
    (12*Pi^2*r^2*f[r]*h[r]^3) - 
   (si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r])/
    (4*Pi^2*r^2*f[r]*h[r]^3) - (7*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (1920*Pi^2*r*f[r]^2*h[r]^3) + 
   (gamma*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (960*Pi^2*r*f[r]^2*h[r]^3) + 
   (si*Derivative[1][f][r]^2*Derivative[1][h][r])/(24*Pi^2*r*f[r]^2*h[r]^3) - 
   (gamma*si*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (48*Pi^2*r*f[r]^2*h[r]^3) - 
   (si^2*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (8*Pi^2*r*f[r]^2*h[r]^3) + (gamma*si^2*Derivative[1][f][r]^2*
      Derivative[1][h][r])/(16*Pi^2*r*f[r]^2*h[r]^3) - 
   (Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (960*Pi^2*r*f[r]^2*h[r]^3) + 
   (si*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (48*Pi^2*r*f[r]^2*h[r]^3) - 
   (si^2*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) - 
   (Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (960*Pi^2*r*f[r]^2*h[r]^3) + 
   (si*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (48*Pi^2*r*f[r]^2*h[r]^3) - 
   (si^2*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) + 
   (Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (960*Pi^2*r*f[r]^2*h[r]^3) - 
   (si*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (48*Pi^2*r*f[r]^2*h[r]^3) + 
   (si^2*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) + 
   (Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (1920*Pi^2*r*f[r]^2*h[r]^3) - 
   (si*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (96*Pi^2*r*f[r]^2*h[r]^3) + 
   (si^2*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (32*Pi^2*r*f[r]^2*h[r]^3) - 
   (13*Derivative[1][f][r]^3*Derivative[1][h][r])/(7680*Pi^2*f[r]^3*h[r]^3) + 
   (gamma*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (640*Pi^2*f[r]^3*h[r]^3) + (5*si*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(384*Pi^2*f[r]^3*h[r]^3) - 
   (gamma*si*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (64*Pi^2*f[r]^3*h[r]^3) - (si^2*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) + 
   (3*gamma*si^2*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (64*Pi^2*f[r]^3*h[r]^3) - (Log[2]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(640*Pi^2*f[r]^3*h[r]^3) + 
   (si*Log[2]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (64*Pi^2*f[r]^3*h[r]^3) - (3*si^2*Log[2]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) - 
   (Log[k]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (640*Pi^2*f[r]^3*h[r]^3) + (si*Log[k]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) - 
   (3*si^2*Log[k]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (64*Pi^2*f[r]^3*h[r]^3) + (Log[mu]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(640*Pi^2*f[r]^3*h[r]^3) - 
   (si*Log[mu]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (64*Pi^2*f[r]^3*h[r]^3) + (3*si^2*Log[mu]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) + 
   (Log[f[r]]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (1280*Pi^2*f[r]^3*h[r]^3) - 
   (si*Log[f[r]]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (128*Pi^2*f[r]^3*h[r]^3) + (3*si^2*Log[f[r]]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(128*Pi^2*f[r]^3*h[r]^3) + 
   (49*gamma*Derivative[1][h][r]^2)/(1920*Pi^2*r^2*h[r]^4) - 
   (7*gamma*si*Derivative[1][h][r]^2)/(24*Pi^2*r^2*h[r]^4) + 
   (7*gamma*si^2*Derivative[1][h][r]^2)/(8*Pi^2*r^2*h[r]^4) - 
   (49*Log[2]*Derivative[1][h][r]^2)/(1920*Pi^2*r^2*h[r]^4) + 
   (7*si*Log[2]*Derivative[1][h][r]^2)/(24*Pi^2*r^2*h[r]^4) - 
   (7*si^2*Log[2]*Derivative[1][h][r]^2)/(8*Pi^2*r^2*h[r]^4) - 
   (49*Log[k]*Derivative[1][h][r]^2)/(1920*Pi^2*r^2*h[r]^4) + 
   (7*si*Log[k]*Derivative[1][h][r]^2)/(24*Pi^2*r^2*h[r]^4) - 
   (7*si^2*Log[k]*Derivative[1][h][r]^2)/(8*Pi^2*r^2*h[r]^4) + 
   (49*Log[mu]*Derivative[1][h][r]^2)/(1920*Pi^2*r^2*h[r]^4) - 
   (7*si*Log[mu]*Derivative[1][h][r]^2)/(24*Pi^2*r^2*h[r]^4) + 
   (7*si^2*Log[mu]*Derivative[1][h][r]^2)/(8*Pi^2*r^2*h[r]^4) + 
   (49*Log[f[r]]*Derivative[1][h][r]^2)/(3840*Pi^2*r^2*h[r]^4) - 
   (7*si*Log[f[r]]*Derivative[1][h][r]^2)/(48*Pi^2*r^2*h[r]^4) + 
   (7*si^2*Log[f[r]]*Derivative[1][h][r]^2)/(16*Pi^2*r^2*h[r]^4) - 
   (7*Derivative[1][f][r]*Derivative[1][h][r]^2)/(960*Pi^2*r*f[r]*h[r]^4) + 
   (7*gamma*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (640*Pi^2*r*f[r]*h[r]^4) + (7*si*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(192*Pi^2*r*f[r]*h[r]^4) - 
   (7*gamma*si*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (48*Pi^2*r*f[r]*h[r]^4) + (7*gamma*si^2*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(16*Pi^2*r*f[r]*h[r]^4) - 
   (7*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (640*Pi^2*r*f[r]*h[r]^4) + (7*si*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(48*Pi^2*r*f[r]*h[r]^4) - 
   (7*si^2*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (16*Pi^2*r*f[r]*h[r]^4) - (7*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(640*Pi^2*r*f[r]*h[r]^4) + 
   (7*si*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (48*Pi^2*r*f[r]*h[r]^4) - (7*si^2*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(16*Pi^2*r*f[r]*h[r]^4) + 
   (7*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (640*Pi^2*r*f[r]*h[r]^4) - (7*si*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(48*Pi^2*r*f[r]*h[r]^4) + 
   (7*si^2*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (16*Pi^2*r*f[r]*h[r]^4) + (7*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(1280*Pi^2*r*f[r]*h[r]^4) - 
   (7*si*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (96*Pi^2*r*f[r]*h[r]^4) + (7*si^2*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(32*Pi^2*r*f[r]*h[r]^4) - 
   (7*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (5120*Pi^2*f[r]^2*h[r]^4) + 
   (7*gamma*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (3840*Pi^2*f[r]^2*h[r]^4) + 
   (7*si*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (768*Pi^2*f[r]^2*h[r]^4) - (7*gamma*si*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(384*Pi^2*f[r]^2*h[r]^4) + 
   (7*gamma*si^2*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (128*Pi^2*f[r]^2*h[r]^4) - (7*Log[2]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(3840*Pi^2*f[r]^2*h[r]^4) + 
   (7*si*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (384*Pi^2*f[r]^2*h[r]^4) - (7*si^2*Log[2]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(128*Pi^2*f[r]^2*h[r]^4) - 
   (7*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (3840*Pi^2*f[r]^2*h[r]^4) + 
   (7*si*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (384*Pi^2*f[r]^2*h[r]^4) - (7*si^2*Log[k]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(128*Pi^2*f[r]^2*h[r]^4) + 
   (7*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (3840*Pi^2*f[r]^2*h[r]^4) - 
   (7*si*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (384*Pi^2*f[r]^2*h[r]^4) + (7*si^2*Log[mu]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(128*Pi^2*f[r]^2*h[r]^4) + 
   (7*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (7680*Pi^2*f[r]^2*h[r]^4) - 
   (7*si*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (768*Pi^2*f[r]^2*h[r]^4) + (7*si^2*Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(256*Pi^2*f[r]^2*h[r]^4) - 
   Derivative[2][f][r]/(120*Pi^2*r^2*f[r]*h[r]^2) + 
   (gamma*Derivative[2][f][r])/(80*Pi^2*r^2*f[r]*h[r]^2) + 
   (si*Derivative[2][f][r])/(24*Pi^2*r^2*f[r]*h[r]^2) - 
   (gamma*si*Derivative[2][f][r])/(6*Pi^2*r^2*f[r]*h[r]^2) + 
   (gamma*si^2*Derivative[2][f][r])/(2*Pi^2*r^2*f[r]*h[r]^2) - 
   (Log[2]*Derivative[2][f][r])/(80*Pi^2*r^2*f[r]*h[r]^2) + 
   (si*Log[2]*Derivative[2][f][r])/(6*Pi^2*r^2*f[r]*h[r]^2) - 
   (si^2*Log[2]*Derivative[2][f][r])/(2*Pi^2*r^2*f[r]*h[r]^2) - 
   (Log[k]*Derivative[2][f][r])/(80*Pi^2*r^2*f[r]*h[r]^2) + 
   (si*Log[k]*Derivative[2][f][r])/(6*Pi^2*r^2*f[r]*h[r]^2) - 
   (si^2*Log[k]*Derivative[2][f][r])/(2*Pi^2*r^2*f[r]*h[r]^2) + 
   (Log[mu]*Derivative[2][f][r])/(80*Pi^2*r^2*f[r]*h[r]^2) - 
   (si*Log[mu]*Derivative[2][f][r])/(6*Pi^2*r^2*f[r]*h[r]^2) + 
   (si^2*Log[mu]*Derivative[2][f][r])/(2*Pi^2*r^2*f[r]*h[r]^2) + 
   (Log[f[r]]*Derivative[2][f][r])/(160*Pi^2*r^2*f[r]*h[r]^2) - 
   (si*Log[f[r]]*Derivative[2][f][r])/(12*Pi^2*r^2*f[r]*h[r]^2) + 
   (si^2*Log[f[r]]*Derivative[2][f][r])/(4*Pi^2*r^2*f[r]*h[r]^2) + 
   (13*Derivative[1][f][r]*Derivative[2][f][r])/(960*Pi^2*r*f[r]^2*h[r]^2) - 
   (gamma*Derivative[1][f][r]*Derivative[2][f][r])/
    (120*Pi^2*r*f[r]^2*h[r]^2) - 
   (3*si*Derivative[1][f][r]*Derivative[2][f][r])/(32*Pi^2*r*f[r]^2*h[r]^2) + 
   (gamma*si*Derivative[1][f][r]*Derivative[2][f][r])/
    (8*Pi^2*r*f[r]^2*h[r]^2) + (si^2*Derivative[1][f][r]*
      Derivative[2][f][r])/(8*Pi^2*r*f[r]^2*h[r]^2) - 
   (3*gamma*si^2*Derivative[1][f][r]*Derivative[2][f][r])/
    (8*Pi^2*r*f[r]^2*h[r]^2) + (Log[2]*Derivative[1][f][r]*
      Derivative[2][f][r])/(120*Pi^2*r*f[r]^2*h[r]^2) - 
   (si*Log[2]*Derivative[1][f][r]*Derivative[2][f][r])/
    (8*Pi^2*r*f[r]^2*h[r]^2) + (3*si^2*Log[2]*Derivative[1][f][r]*
      Derivative[2][f][r])/(8*Pi^2*r*f[r]^2*h[r]^2) + 
   (Log[k]*Derivative[1][f][r]*Derivative[2][f][r])/
    (120*Pi^2*r*f[r]^2*h[r]^2) - 
   (si*Log[k]*Derivative[1][f][r]*Derivative[2][f][r])/
    (8*Pi^2*r*f[r]^2*h[r]^2) + (3*si^2*Log[k]*Derivative[1][f][r]*
      Derivative[2][f][r])/(8*Pi^2*r*f[r]^2*h[r]^2) - 
   (Log[mu]*Derivative[1][f][r]*Derivative[2][f][r])/
    (120*Pi^2*r*f[r]^2*h[r]^2) + 
   (si*Log[mu]*Derivative[1][f][r]*Derivative[2][f][r])/
    (8*Pi^2*r*f[r]^2*h[r]^2) - (3*si^2*Log[mu]*Derivative[1][f][r]*
      Derivative[2][f][r])/(8*Pi^2*r*f[r]^2*h[r]^2) - 
   (Log[f[r]]*Derivative[1][f][r]*Derivative[2][f][r])/
    (240*Pi^2*r*f[r]^2*h[r]^2) + 
   (si*Log[f[r]]*Derivative[1][f][r]*Derivative[2][f][r])/
    (16*Pi^2*r*f[r]^2*h[r]^2) - 
   (3*si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[2][f][r])/
    (16*Pi^2*r*f[r]^2*h[r]^2) + 
   (13*Derivative[1][f][r]^2*Derivative[2][f][r])/(3840*Pi^2*f[r]^3*h[r]^2) - 
   (gamma*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (320*Pi^2*f[r]^3*h[r]^2) - (5*si*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(192*Pi^2*f[r]^3*h[r]^2) + 
   (gamma*si*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]^3*h[r]^2) + (si^2*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]^3*h[r]^2) - 
   (3*gamma*si^2*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]^3*h[r]^2) + (Log[2]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(320*Pi^2*f[r]^3*h[r]^2) - 
   (si*Log[2]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]^3*h[r]^2) + (3*si^2*Log[2]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]^3*h[r]^2) + 
   (Log[k]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (320*Pi^2*f[r]^3*h[r]^2) - (si*Log[k]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]^3*h[r]^2) + 
   (3*si^2*Log[k]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]^3*h[r]^2) - (Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(320*Pi^2*f[r]^3*h[r]^2) + 
   (si*Log[mu]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]^3*h[r]^2) - (3*si^2*Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]^3*h[r]^2) - 
   (Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (640*Pi^2*f[r]^3*h[r]^2) + (si*Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(64*Pi^2*f[r]^3*h[r]^2) - 
   (3*si^2*Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (64*Pi^2*f[r]^3*h[r]^2) + (Derivative[1][h][r]*Derivative[2][f][r])/
    (240*Pi^2*r*f[r]*h[r]^3) - (gamma*Derivative[1][h][r]*
      Derivative[2][f][r])/(160*Pi^2*r*f[r]*h[r]^3) - 
   (si*Derivative[1][h][r]*Derivative[2][f][r])/(48*Pi^2*r*f[r]*h[r]^3) + 
   (gamma*si*Derivative[1][h][r]*Derivative[2][f][r])/
    (12*Pi^2*r*f[r]*h[r]^3) - (gamma*si^2*Derivative[1][h][r]*
      Derivative[2][f][r])/(4*Pi^2*r*f[r]*h[r]^3) + 
   (Log[2]*Derivative[1][h][r]*Derivative[2][f][r])/
    (160*Pi^2*r*f[r]*h[r]^3) - (si*Log[2]*Derivative[1][h][r]*
      Derivative[2][f][r])/(12*Pi^2*r*f[r]*h[r]^3) + 
   (si^2*Log[2]*Derivative[1][h][r]*Derivative[2][f][r])/
    (4*Pi^2*r*f[r]*h[r]^3) + (Log[k]*Derivative[1][h][r]*
      Derivative[2][f][r])/(160*Pi^2*r*f[r]*h[r]^3) - 
   (si*Log[k]*Derivative[1][h][r]*Derivative[2][f][r])/
    (12*Pi^2*r*f[r]*h[r]^3) + (si^2*Log[k]*Derivative[1][h][r]*
      Derivative[2][f][r])/(4*Pi^2*r*f[r]*h[r]^3) - 
   (Log[mu]*Derivative[1][h][r]*Derivative[2][f][r])/
    (160*Pi^2*r*f[r]*h[r]^3) + (si*Log[mu]*Derivative[1][h][r]*
      Derivative[2][f][r])/(12*Pi^2*r*f[r]*h[r]^3) - 
   (si^2*Log[mu]*Derivative[1][h][r]*Derivative[2][f][r])/
    (4*Pi^2*r*f[r]*h[r]^3) - (Log[f[r]]*Derivative[1][h][r]*
      Derivative[2][f][r])/(320*Pi^2*r*f[r]*h[r]^3) + 
   (si*Log[f[r]]*Derivative[1][h][r]*Derivative[2][f][r])/
    (24*Pi^2*r*f[r]*h[r]^3) - (si^2*Log[f[r]]*Derivative[1][h][r]*
      Derivative[2][f][r])/(8*Pi^2*r*f[r]*h[r]^3) + 
   (Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (640*Pi^2*f[r]^2*h[r]^3) - (gamma*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(480*Pi^2*f[r]^2*h[r]^3) - 
   (si*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (96*Pi^2*f[r]^2*h[r]^3) + (gamma*si*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(48*Pi^2*f[r]^2*h[r]^3) - 
   (gamma*si^2*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (16*Pi^2*f[r]^2*h[r]^3) + (Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(480*Pi^2*f[r]^2*h[r]^3) - 
   (si*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (48*Pi^2*f[r]^2*h[r]^3) + (si^2*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(16*Pi^2*f[r]^2*h[r]^3) + 
   (Log[k]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (480*Pi^2*f[r]^2*h[r]^3) - (si*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(48*Pi^2*f[r]^2*h[r]^3) + 
   (si^2*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (16*Pi^2*f[r]^2*h[r]^3) - (Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(480*Pi^2*f[r]^2*h[r]^3) + 
   (si*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (48*Pi^2*f[r]^2*h[r]^3) - (si^2*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(16*Pi^2*f[r]^2*h[r]^3) - 
   (Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (960*Pi^2*f[r]^2*h[r]^3) + (si*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(96*Pi^2*f[r]^2*h[r]^3) - 
   (si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(32*Pi^2*f[r]^2*h[r]^3) + 
   Derivative[2][f][r]^2/(1280*Pi^2*f[r]^2*h[r]^2) - 
   (gamma*Derivative[2][f][r]^2)/(960*Pi^2*f[r]^2*h[r]^2) - 
   (si*Derivative[2][f][r]^2)/(192*Pi^2*f[r]^2*h[r]^2) + 
   (gamma*si*Derivative[2][f][r]^2)/(96*Pi^2*f[r]^2*h[r]^2) - 
   (gamma*si^2*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) + 
   (Log[2]*Derivative[2][f][r]^2)/(960*Pi^2*f[r]^2*h[r]^2) - 
   (si*Log[2]*Derivative[2][f][r]^2)/(96*Pi^2*f[r]^2*h[r]^2) + 
   (si^2*Log[2]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) + 
   (Log[k]*Derivative[2][f][r]^2)/(960*Pi^2*f[r]^2*h[r]^2) - 
   (si*Log[k]*Derivative[2][f][r]^2)/(96*Pi^2*f[r]^2*h[r]^2) + 
   (si^2*Log[k]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) - 
   (Log[mu]*Derivative[2][f][r]^2)/(960*Pi^2*f[r]^2*h[r]^2) + 
   (si*Log[mu]*Derivative[2][f][r]^2)/(96*Pi^2*f[r]^2*h[r]^2) - 
   (si^2*Log[mu]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) - 
   (Log[f[r]]*Derivative[2][f][r]^2)/(1920*Pi^2*f[r]^2*h[r]^2) + 
   (si*Log[f[r]]*Derivative[2][f][r]^2)/(192*Pi^2*f[r]^2*h[r]^2) - 
   (si^2*Log[f[r]]*Derivative[2][f][r]^2)/(64*Pi^2*f[r]^2*h[r]^2) - 
   (7*gamma*Derivative[2][h][r])/(480*Pi^2*r^2*h[r]^3) + 
   (gamma*si*Derivative[2][h][r])/(6*Pi^2*r^2*h[r]^3) - 
   (gamma*si^2*Derivative[2][h][r])/(2*Pi^2*r^2*h[r]^3) + 
   (7*Log[2]*Derivative[2][h][r])/(480*Pi^2*r^2*h[r]^3) - 
   (si*Log[2]*Derivative[2][h][r])/(6*Pi^2*r^2*h[r]^3) + 
   (si^2*Log[2]*Derivative[2][h][r])/(2*Pi^2*r^2*h[r]^3) + 
   (7*Log[k]*Derivative[2][h][r])/(480*Pi^2*r^2*h[r]^3) - 
   (si*Log[k]*Derivative[2][h][r])/(6*Pi^2*r^2*h[r]^3) + 
   (si^2*Log[k]*Derivative[2][h][r])/(2*Pi^2*r^2*h[r]^3) - 
   (7*Log[mu]*Derivative[2][h][r])/(480*Pi^2*r^2*h[r]^3) + 
   (si*Log[mu]*Derivative[2][h][r])/(6*Pi^2*r^2*h[r]^3) - 
   (si^2*Log[mu]*Derivative[2][h][r])/(2*Pi^2*r^2*h[r]^3) - 
   (7*Log[f[r]]*Derivative[2][h][r])/(960*Pi^2*r^2*h[r]^3) + 
   (si*Log[f[r]]*Derivative[2][h][r])/(12*Pi^2*r^2*h[r]^3) - 
   (si^2*Log[f[r]]*Derivative[2][h][r])/(4*Pi^2*r^2*h[r]^3) + 
   (Derivative[1][f][r]*Derivative[2][h][r])/(240*Pi^2*r*f[r]*h[r]^3) - 
   (gamma*Derivative[1][f][r]*Derivative[2][h][r])/(160*Pi^2*r*f[r]*h[r]^3) - 
   (si*Derivative[1][f][r]*Derivative[2][h][r])/(48*Pi^2*r*f[r]*h[r]^3) + 
   (gamma*si*Derivative[1][f][r]*Derivative[2][h][r])/
    (12*Pi^2*r*f[r]*h[r]^3) - (gamma*si^2*Derivative[1][f][r]*
      Derivative[2][h][r])/(4*Pi^2*r*f[r]*h[r]^3) + 
   (Log[2]*Derivative[1][f][r]*Derivative[2][h][r])/
    (160*Pi^2*r*f[r]*h[r]^3) - (si*Log[2]*Derivative[1][f][r]*
      Derivative[2][h][r])/(12*Pi^2*r*f[r]*h[r]^3) + 
   (si^2*Log[2]*Derivative[1][f][r]*Derivative[2][h][r])/
    (4*Pi^2*r*f[r]*h[r]^3) + (Log[k]*Derivative[1][f][r]*
      Derivative[2][h][r])/(160*Pi^2*r*f[r]*h[r]^3) - 
   (si*Log[k]*Derivative[1][f][r]*Derivative[2][h][r])/
    (12*Pi^2*r*f[r]*h[r]^3) + (si^2*Log[k]*Derivative[1][f][r]*
      Derivative[2][h][r])/(4*Pi^2*r*f[r]*h[r]^3) - 
   (Log[mu]*Derivative[1][f][r]*Derivative[2][h][r])/
    (160*Pi^2*r*f[r]*h[r]^3) + (si*Log[mu]*Derivative[1][f][r]*
      Derivative[2][h][r])/(12*Pi^2*r*f[r]*h[r]^3) - 
   (si^2*Log[mu]*Derivative[1][f][r]*Derivative[2][h][r])/
    (4*Pi^2*r*f[r]*h[r]^3) - (Log[f[r]]*Derivative[1][f][r]*
      Derivative[2][h][r])/(320*Pi^2*r*f[r]*h[r]^3) + 
   (si*Log[f[r]]*Derivative[1][f][r]*Derivative[2][h][r])/
    (24*Pi^2*r*f[r]*h[r]^3) - (si^2*Log[f[r]]*Derivative[1][f][r]*
      Derivative[2][h][r])/(8*Pi^2*r*f[r]*h[r]^3) + 
   (Derivative[1][f][r]^2*Derivative[2][h][r])/(1280*Pi^2*f[r]^2*h[r]^3) - 
   (gamma*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (960*Pi^2*f[r]^2*h[r]^3) - (si*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(192*Pi^2*f[r]^2*h[r]^3) + 
   (gamma*si*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (96*Pi^2*f[r]^2*h[r]^3) - (gamma*si^2*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(32*Pi^2*f[r]^2*h[r]^3) + 
   (Log[2]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (960*Pi^2*f[r]^2*h[r]^3) - (si*Log[2]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(96*Pi^2*f[r]^2*h[r]^3) + 
   (si^2*Log[2]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (32*Pi^2*f[r]^2*h[r]^3) + (Log[k]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(960*Pi^2*f[r]^2*h[r]^3) - 
   (si*Log[k]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (96*Pi^2*f[r]^2*h[r]^3) + (si^2*Log[k]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(32*Pi^2*f[r]^2*h[r]^3) - 
   (Log[mu]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (960*Pi^2*f[r]^2*h[r]^3) + (si*Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(96*Pi^2*f[r]^2*h[r]^3) - 
   (si^2*Log[mu]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (32*Pi^2*f[r]^2*h[r]^3) - (Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(1920*Pi^2*f[r]^2*h[r]^3) + 
   (si*Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (192*Pi^2*f[r]^2*h[r]^3) - (si^2*Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(64*Pi^2*f[r]^2*h[r]^3) - 
   Derivative[3][f][r]/(240*Pi^2*r*f[r]*h[r]^2) + 
   (gamma*Derivative[3][f][r])/(160*Pi^2*r*f[r]*h[r]^2) + 
   (si*Derivative[3][f][r])/(48*Pi^2*r*f[r]*h[r]^2) - 
   (gamma*si*Derivative[3][f][r])/(12*Pi^2*r*f[r]*h[r]^2) + 
   (gamma*si^2*Derivative[3][f][r])/(4*Pi^2*r*f[r]*h[r]^2) - 
   (Log[2]*Derivative[3][f][r])/(160*Pi^2*r*f[r]*h[r]^2) + 
   (si*Log[2]*Derivative[3][f][r])/(12*Pi^2*r*f[r]*h[r]^2) - 
   (si^2*Log[2]*Derivative[3][f][r])/(4*Pi^2*r*f[r]*h[r]^2) - 
   (Log[k]*Derivative[3][f][r])/(160*Pi^2*r*f[r]*h[r]^2) + 
   (si*Log[k]*Derivative[3][f][r])/(12*Pi^2*r*f[r]*h[r]^2) - 
   (si^2*Log[k]*Derivative[3][f][r])/(4*Pi^2*r*f[r]*h[r]^2) + 
   (Log[mu]*Derivative[3][f][r])/(160*Pi^2*r*f[r]*h[r]^2) - 
   (si*Log[mu]*Derivative[3][f][r])/(12*Pi^2*r*f[r]*h[r]^2) + 
   (si^2*Log[mu]*Derivative[3][f][r])/(4*Pi^2*r*f[r]*h[r]^2) + 
   (Log[f[r]]*Derivative[3][f][r])/(320*Pi^2*r*f[r]*h[r]^2) - 
   (si*Log[f[r]]*Derivative[3][f][r])/(24*Pi^2*r*f[r]*h[r]^2) + 
   (si^2*Log[f[r]]*Derivative[3][f][r])/(8*Pi^2*r*f[r]*h[r]^2) - 
   (Derivative[1][f][r]*Derivative[3][f][r])/(640*Pi^2*f[r]^2*h[r]^2) + 
   (gamma*Derivative[1][f][r]*Derivative[3][f][r])/(480*Pi^2*f[r]^2*h[r]^2) + 
   (si*Derivative[1][f][r]*Derivative[3][f][r])/(96*Pi^2*f[r]^2*h[r]^2) - 
   (gamma*si*Derivative[1][f][r]*Derivative[3][f][r])/
    (48*Pi^2*f[r]^2*h[r]^2) + (gamma*si^2*Derivative[1][f][r]*
      Derivative[3][f][r])/(16*Pi^2*f[r]^2*h[r]^2) - 
   (Log[2]*Derivative[1][f][r]*Derivative[3][f][r])/
    (480*Pi^2*f[r]^2*h[r]^2) + (si*Log[2]*Derivative[1][f][r]*
      Derivative[3][f][r])/(48*Pi^2*f[r]^2*h[r]^2) - 
   (si^2*Log[2]*Derivative[1][f][r]*Derivative[3][f][r])/
    (16*Pi^2*f[r]^2*h[r]^2) - (Log[k]*Derivative[1][f][r]*
      Derivative[3][f][r])/(480*Pi^2*f[r]^2*h[r]^2) + 
   (si*Log[k]*Derivative[1][f][r]*Derivative[3][f][r])/
    (48*Pi^2*f[r]^2*h[r]^2) - (si^2*Log[k]*Derivative[1][f][r]*
      Derivative[3][f][r])/(16*Pi^2*f[r]^2*h[r]^2) + 
   (Log[mu]*Derivative[1][f][r]*Derivative[3][f][r])/
    (480*Pi^2*f[r]^2*h[r]^2) - (si*Log[mu]*Derivative[1][f][r]*
      Derivative[3][f][r])/(48*Pi^2*f[r]^2*h[r]^2) + 
   (si^2*Log[mu]*Derivative[1][f][r]*Derivative[3][f][r])/
    (16*Pi^2*f[r]^2*h[r]^2) + (Log[f[r]]*Derivative[1][f][r]*
      Derivative[3][f][r])/(960*Pi^2*f[r]^2*h[r]^2) - 
   (si*Log[f[r]]*Derivative[1][f][r]*Derivative[3][f][r])/
    (96*Pi^2*f[r]^2*h[r]^2) + (si^2*Log[f[r]]*Derivative[1][f][r]*
      Derivative[3][f][r])/(32*Pi^2*f[r]^2*h[r]^2)
 
Tthth = (-3*m^4)/(128*Pi^2) + (gamma*m^4)/(32*Pi^2) - gamma/(240*Pi^2*r^4) + 
   (gamma*si)/(24*Pi^2*r^4) - (gamma*si^2)/(8*Pi^2*r^4) + 
   k^4/(1440*Pi^2*f[r]^2) - (k^2*m^2)/(96*Pi^2*f[r]) + 
   gamma/(40*Pi^2*r^4*h[r]^2) - (7*gamma*si)/(24*Pi^2*r^4*h[r]^2) + 
   (7*gamma*si^2)/(8*Pi^2*r^4*h[r]^2) - gamma/(48*Pi^2*r^4*h[r]) + 
   (gamma*si)/(4*Pi^2*r^4*h[r]) - (3*gamma*si^2)/(4*Pi^2*r^4*h[r]) - 
   (m^4*Log[2])/(32*Pi^2) + Log[2]/(240*Pi^2*r^4) - 
   (si*Log[2])/(24*Pi^2*r^4) + (si^2*Log[2])/(8*Pi^2*r^4) - 
   Log[2]/(40*Pi^2*r^4*h[r]^2) + (7*si*Log[2])/(24*Pi^2*r^4*h[r]^2) - 
   (7*si^2*Log[2])/(8*Pi^2*r^4*h[r]^2) + Log[2]/(48*Pi^2*r^4*h[r]) - 
   (si*Log[2])/(4*Pi^2*r^4*h[r]) + (3*si^2*Log[2])/(4*Pi^2*r^4*h[r]) - 
   (m^4*Log[k])/(32*Pi^2) + Log[k]/(240*Pi^2*r^4) - 
   (si*Log[k])/(24*Pi^2*r^4) + (si^2*Log[k])/(8*Pi^2*r^4) - 
   Log[k]/(40*Pi^2*r^4*h[r]^2) + (7*si*Log[k])/(24*Pi^2*r^4*h[r]^2) - 
   (7*si^2*Log[k])/(8*Pi^2*r^4*h[r]^2) + Log[k]/(48*Pi^2*r^4*h[r]) - 
   (si*Log[k])/(4*Pi^2*r^4*h[r]) + (3*si^2*Log[k])/(4*Pi^2*r^4*h[r]) + 
   (m^4*Log[mu])/(32*Pi^2) - Log[mu]/(240*Pi^2*r^4) + 
   (si*Log[mu])/(24*Pi^2*r^4) - (si^2*Log[mu])/(8*Pi^2*r^4) + 
   Log[mu]/(40*Pi^2*r^4*h[r]^2) - (7*si*Log[mu])/(24*Pi^2*r^4*h[r]^2) + 
   (7*si^2*Log[mu])/(8*Pi^2*r^4*h[r]^2) - Log[mu]/(48*Pi^2*r^4*h[r]) + 
   (si*Log[mu])/(4*Pi^2*r^4*h[r]) - (3*si^2*Log[mu])/(4*Pi^2*r^4*h[r]) + 
   (m^4*Log[f[r]])/(64*Pi^2) - Log[f[r]]/(480*Pi^2*r^4) + 
   (si*Log[f[r]])/(48*Pi^2*r^4) - (si^2*Log[f[r]])/(16*Pi^2*r^4) + 
   Log[f[r]]/(80*Pi^2*r^4*h[r]^2) - (7*si*Log[f[r]])/(48*Pi^2*r^4*h[r]^2) + 
   (7*si^2*Log[f[r]])/(16*Pi^2*r^4*h[r]^2) - Log[f[r]]/(96*Pi^2*r^4*h[r]) + 
   (si*Log[f[r]])/(8*Pi^2*r^4*h[r]) - (3*si^2*Log[f[r]])/(8*Pi^2*r^4*h[r]) - 
   (7*Derivative[1][f][r])/(480*Pi^2*r^3*f[r]*h[r]^2) - 
   (gamma*Derivative[1][f][r])/(240*Pi^2*r^3*f[r]*h[r]^2) + 
   (7*si*Derivative[1][f][r])/(48*Pi^2*r^3*f[r]*h[r]^2) + 
   (gamma*si*Derivative[1][f][r])/(24*Pi^2*r^3*f[r]*h[r]^2) - 
   (3*si^2*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]^2) - 
   (gamma*si^2*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]^2) + 
   (k^2*Derivative[1][f][r])/(576*Pi^2*r*f[r]^2*h[r]) - 
   (k^2*si*Derivative[1][f][r])/(96*Pi^2*r*f[r]^2*h[r]) + 
   Derivative[1][f][r]/(96*Pi^2*r^3*f[r]*h[r]) + 
   (gamma*Derivative[1][f][r])/(96*Pi^2*r^3*f[r]*h[r]) + 
   (m^2*Derivative[1][f][r])/(192*Pi^2*r*f[r]*h[r]) + 
   (gamma*m^2*Derivative[1][f][r])/(96*Pi^2*r*f[r]*h[r]) - 
   (si*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]) - 
   (gamma*si*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]) - 
   (m^2*si*Derivative[1][f][r])/(32*Pi^2*r*f[r]*h[r]) - 
   (gamma*m^2*si*Derivative[1][f][r])/(16*Pi^2*r*f[r]*h[r]) + 
   (3*si^2*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]) + 
   (3*gamma*si^2*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]) + 
   (Log[2]*Derivative[1][f][r])/(240*Pi^2*r^3*f[r]*h[r]^2) - 
   (si*Log[2]*Derivative[1][f][r])/(24*Pi^2*r^3*f[r]*h[r]^2) + 
   (si^2*Log[2]*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]^2) - 
   (Log[2]*Derivative[1][f][r])/(96*Pi^2*r^3*f[r]*h[r]) - 
   (m^2*Log[2]*Derivative[1][f][r])/(96*Pi^2*r*f[r]*h[r]) + 
   (si*Log[2]*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]) + 
   (m^2*si*Log[2]*Derivative[1][f][r])/(16*Pi^2*r*f[r]*h[r]) - 
   (3*si^2*Log[2]*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]) + 
   (Log[k]*Derivative[1][f][r])/(240*Pi^2*r^3*f[r]*h[r]^2) - 
   (si*Log[k]*Derivative[1][f][r])/(24*Pi^2*r^3*f[r]*h[r]^2) + 
   (si^2*Log[k]*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]^2) - 
   (Log[k]*Derivative[1][f][r])/(96*Pi^2*r^3*f[r]*h[r]) - 
   (m^2*Log[k]*Derivative[1][f][r])/(96*Pi^2*r*f[r]*h[r]) + 
   (si*Log[k]*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]) + 
   (m^2*si*Log[k]*Derivative[1][f][r])/(16*Pi^2*r*f[r]*h[r]) - 
   (3*si^2*Log[k]*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]) - 
   (Log[mu]*Derivative[1][f][r])/(240*Pi^2*r^3*f[r]*h[r]^2) + 
   (si*Log[mu]*Derivative[1][f][r])/(24*Pi^2*r^3*f[r]*h[r]^2) - 
   (si^2*Log[mu]*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]^2) + 
   (Log[mu]*Derivative[1][f][r])/(96*Pi^2*r^3*f[r]*h[r]) + 
   (m^2*Log[mu]*Derivative[1][f][r])/(96*Pi^2*r*f[r]*h[r]) - 
   (si*Log[mu]*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]) - 
   (m^2*si*Log[mu]*Derivative[1][f][r])/(16*Pi^2*r*f[r]*h[r]) + 
   (3*si^2*Log[mu]*Derivative[1][f][r])/(8*Pi^2*r^3*f[r]*h[r]) - 
   (Log[f[r]]*Derivative[1][f][r])/(480*Pi^2*r^3*f[r]*h[r]^2) + 
   (si*Log[f[r]]*Derivative[1][f][r])/(48*Pi^2*r^3*f[r]*h[r]^2) - 
   (si^2*Log[f[r]]*Derivative[1][f][r])/(16*Pi^2*r^3*f[r]*h[r]^2) + 
   (Log[f[r]]*Derivative[1][f][r])/(192*Pi^2*r^3*f[r]*h[r]) + 
   (m^2*Log[f[r]]*Derivative[1][f][r])/(192*Pi^2*r*f[r]*h[r]) - 
   (si*Log[f[r]]*Derivative[1][f][r])/(16*Pi^2*r^3*f[r]*h[r]) - 
   (m^2*si*Log[f[r]]*Derivative[1][f][r])/(32*Pi^2*r*f[r]*h[r]) + 
   (3*si^2*Log[f[r]]*Derivative[1][f][r])/(16*Pi^2*r^3*f[r]*h[r]) - 
   Derivative[1][f][r]^2/(128*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (gamma*Derivative[1][f][r]^2)/(320*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (5*si*Derivative[1][f][r]^2)/(64*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (gamma*si*Derivative[1][f][r]^2)/(24*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (3*si^2*Derivative[1][f][r]^2)/(16*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (gamma*si^2*Derivative[1][f][r]^2)/(8*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (5*k^2*Derivative[1][f][r]^2)/(1152*Pi^2*f[r]^3*h[r]) + 
   (5*k^2*si*Derivative[1][f][r]^2)/(192*Pi^2*f[r]^3*h[r]) - 
   (gamma*m^2*Derivative[1][f][r]^2)/(192*Pi^2*f[r]^2*h[r]) + 
   Derivative[1][f][r]^2/(384*Pi^2*r^2*f[r]^2*h[r]) + 
   (m^2*si*Derivative[1][f][r]^2)/(64*Pi^2*f[r]^2*h[r]) + 
   (gamma*m^2*si*Derivative[1][f][r]^2)/(32*Pi^2*f[r]^2*h[r]) - 
   (5*si*Derivative[1][f][r]^2)/(192*Pi^2*r^2*f[r]^2*h[r]) + 
   (si^2*Derivative[1][f][r]^2)/(16*Pi^2*r^2*f[r]^2*h[r]) - 
   (Log[2]*Derivative[1][f][r]^2)/(320*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si*Log[2]*Derivative[1][f][r]^2)/(24*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si^2*Log[2]*Derivative[1][f][r]^2)/(8*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (m^2*Log[2]*Derivative[1][f][r]^2)/(192*Pi^2*f[r]^2*h[r]) - 
   (m^2*si*Log[2]*Derivative[1][f][r]^2)/(32*Pi^2*f[r]^2*h[r]) - 
   (Log[k]*Derivative[1][f][r]^2)/(320*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si*Log[k]*Derivative[1][f][r]^2)/(24*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si^2*Log[k]*Derivative[1][f][r]^2)/(8*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (m^2*Log[k]*Derivative[1][f][r]^2)/(192*Pi^2*f[r]^2*h[r]) - 
   (m^2*si*Log[k]*Derivative[1][f][r]^2)/(32*Pi^2*f[r]^2*h[r]) + 
   (Log[mu]*Derivative[1][f][r]^2)/(320*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si*Log[mu]*Derivative[1][f][r]^2)/(24*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si^2*Log[mu]*Derivative[1][f][r]^2)/(8*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (m^2*Log[mu]*Derivative[1][f][r]^2)/(192*Pi^2*f[r]^2*h[r]) + 
   (m^2*si*Log[mu]*Derivative[1][f][r]^2)/(32*Pi^2*f[r]^2*h[r]) + 
   (Log[f[r]]*Derivative[1][f][r]^2)/(640*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (si*Log[f[r]]*Derivative[1][f][r]^2)/(48*Pi^2*r^2*f[r]^2*h[r]^2) + 
   (si^2*Log[f[r]]*Derivative[1][f][r]^2)/(16*Pi^2*r^2*f[r]^2*h[r]^2) - 
   (m^2*Log[f[r]]*Derivative[1][f][r]^2)/(384*Pi^2*f[r]^2*h[r]) + 
   (m^2*si*Log[f[r]]*Derivative[1][f][r]^2)/(64*Pi^2*f[r]^2*h[r]) - 
   (13*Derivative[1][f][r]^3)/(640*Pi^2*r*f[r]^3*h[r]^2) + 
   (gamma*Derivative[1][f][r]^3)/(80*Pi^2*r*f[r]^3*h[r]^2) + 
   (17*si*Derivative[1][f][r]^3)/(96*Pi^2*r*f[r]^3*h[r]^2) - 
   (5*gamma*si*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) - 
   (11*si^2*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) + 
   (15*gamma*si^2*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) - 
   (Log[2]*Derivative[1][f][r]^3)/(80*Pi^2*r*f[r]^3*h[r]^2) + 
   (5*si*Log[2]*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) - 
   (15*si^2*Log[2]*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) - 
   (Log[k]*Derivative[1][f][r]^3)/(80*Pi^2*r*f[r]^3*h[r]^2) + 
   (5*si*Log[k]*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) - 
   (15*si^2*Log[k]*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) + 
   (Log[mu]*Derivative[1][f][r]^3)/(80*Pi^2*r*f[r]^3*h[r]^2) - 
   (5*si*Log[mu]*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) + 
   (15*si^2*Log[mu]*Derivative[1][f][r]^3)/(32*Pi^2*r*f[r]^3*h[r]^2) + 
   (Log[f[r]]*Derivative[1][f][r]^3)/(160*Pi^2*r*f[r]^3*h[r]^2) - 
   (5*si*Log[f[r]]*Derivative[1][f][r]^3)/(64*Pi^2*r*f[r]^3*h[r]^2) + 
   (15*si^2*Log[f[r]]*Derivative[1][f][r]^3)/(64*Pi^2*r*f[r]^3*h[r]^2) + 
   (209*Derivative[1][f][r]^4)/(15360*Pi^2*f[r]^4*h[r]^2) - 
   (29*gamma*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) - 
   (79*si*Derivative[1][f][r]^4)/(768*Pi^2*f[r]^4*h[r]^2) + 
   (13*gamma*si*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) + 
   (9*si^2*Derivative[1][f][r]^4)/(64*Pi^2*f[r]^4*h[r]^2) - 
   (39*gamma*si^2*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) + 
   (29*Log[2]*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) - 
   (13*si*Log[2]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) + 
   (39*si^2*Log[2]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) + 
   (29*Log[k]*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) - 
   (13*si*Log[k]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) + 
   (39*si^2*Log[k]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) - 
   (29*Log[mu]*Derivative[1][f][r]^4)/(3840*Pi^2*f[r]^4*h[r]^2) + 
   (13*si*Log[mu]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) - 
   (39*si^2*Log[mu]*Derivative[1][f][r]^4)/(128*Pi^2*f[r]^4*h[r]^2) - 
   (29*Log[f[r]]*Derivative[1][f][r]^4)/(7680*Pi^2*f[r]^4*h[r]^2) + 
   (13*si*Log[f[r]]*Derivative[1][f][r]^4)/(256*Pi^2*f[r]^4*h[r]^2) - 
   (39*si^2*Log[f[r]]*Derivative[1][f][r]^4)/(256*Pi^2*f[r]^4*h[r]^2) + 
   (gamma*Derivative[1][h][r])/(40*Pi^2*r^3*h[r]^3) - 
   (7*gamma*si*Derivative[1][h][r])/(24*Pi^2*r^3*h[r]^3) + 
   (7*gamma*si^2*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^3) - 
   (gamma*Derivative[1][h][r])/(96*Pi^2*r^3*h[r]^2) + 
   (m^2*Derivative[1][h][r])/(192*Pi^2*r*h[r]^2) - 
   (gamma*m^2*Derivative[1][h][r])/(96*Pi^2*r*h[r]^2) + 
   (gamma*si*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^2) - 
   (m^2*si*Derivative[1][h][r])/(32*Pi^2*r*h[r]^2) + 
   (gamma*m^2*si*Derivative[1][h][r])/(16*Pi^2*r*h[r]^2) - 
   (3*gamma*si^2*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^2) + 
   (k^2*Derivative[1][h][r])/(576*Pi^2*r*f[r]*h[r]^2) - 
   (k^2*si*Derivative[1][h][r])/(96*Pi^2*r*f[r]*h[r]^2) - 
   (Log[2]*Derivative[1][h][r])/(40*Pi^2*r^3*h[r]^3) + 
   (7*si*Log[2]*Derivative[1][h][r])/(24*Pi^2*r^3*h[r]^3) - 
   (7*si^2*Log[2]*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^3) + 
   (Log[2]*Derivative[1][h][r])/(96*Pi^2*r^3*h[r]^2) + 
   (m^2*Log[2]*Derivative[1][h][r])/(96*Pi^2*r*h[r]^2) - 
   (si*Log[2]*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^2) - 
   (m^2*si*Log[2]*Derivative[1][h][r])/(16*Pi^2*r*h[r]^2) + 
   (3*si^2*Log[2]*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^2) - 
   (Log[k]*Derivative[1][h][r])/(40*Pi^2*r^3*h[r]^3) + 
   (7*si*Log[k]*Derivative[1][h][r])/(24*Pi^2*r^3*h[r]^3) - 
   (7*si^2*Log[k]*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^3) + 
   (Log[k]*Derivative[1][h][r])/(96*Pi^2*r^3*h[r]^2) + 
   (m^2*Log[k]*Derivative[1][h][r])/(96*Pi^2*r*h[r]^2) - 
   (si*Log[k]*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^2) - 
   (m^2*si*Log[k]*Derivative[1][h][r])/(16*Pi^2*r*h[r]^2) + 
   (3*si^2*Log[k]*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^2) + 
   (Log[mu]*Derivative[1][h][r])/(40*Pi^2*r^3*h[r]^3) - 
   (7*si*Log[mu]*Derivative[1][h][r])/(24*Pi^2*r^3*h[r]^3) + 
   (7*si^2*Log[mu]*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^3) - 
   (Log[mu]*Derivative[1][h][r])/(96*Pi^2*r^3*h[r]^2) - 
   (m^2*Log[mu]*Derivative[1][h][r])/(96*Pi^2*r*h[r]^2) + 
   (si*Log[mu]*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^2) + 
   (m^2*si*Log[mu]*Derivative[1][h][r])/(16*Pi^2*r*h[r]^2) - 
   (3*si^2*Log[mu]*Derivative[1][h][r])/(8*Pi^2*r^3*h[r]^2) + 
   (Log[f[r]]*Derivative[1][h][r])/(80*Pi^2*r^3*h[r]^3) - 
   (7*si*Log[f[r]]*Derivative[1][h][r])/(48*Pi^2*r^3*h[r]^3) + 
   (7*si^2*Log[f[r]]*Derivative[1][h][r])/(16*Pi^2*r^3*h[r]^3) - 
   (Log[f[r]]*Derivative[1][h][r])/(192*Pi^2*r^3*h[r]^2) - 
   (m^2*Log[f[r]]*Derivative[1][h][r])/(192*Pi^2*r*h[r]^2) + 
   (si*Log[f[r]]*Derivative[1][h][r])/(16*Pi^2*r^3*h[r]^2) + 
   (m^2*si*Log[f[r]]*Derivative[1][h][r])/(32*Pi^2*r*h[r]^2) - 
   (3*si^2*Log[f[r]]*Derivative[1][h][r])/(16*Pi^2*r^3*h[r]^2) - 
   (9*Derivative[1][f][r]*Derivative[1][h][r])/(640*Pi^2*r^2*f[r]*h[r]^3) + 
   (3*gamma*Derivative[1][f][r]*Derivative[1][h][r])/
    (320*Pi^2*r^2*f[r]*h[r]^3) + 
   (7*si*Derivative[1][f][r]*Derivative[1][h][r])/(64*Pi^2*r^2*f[r]*h[r]^3) - 
   (gamma*si*Derivative[1][f][r]*Derivative[1][h][r])/
    (8*Pi^2*r^2*f[r]*h[r]^3) - (3*si^2*Derivative[1][f][r]*
      Derivative[1][h][r])/(16*Pi^2*r^2*f[r]*h[r]^3) + 
   (3*gamma*si^2*Derivative[1][f][r]*Derivative[1][h][r])/
    (8*Pi^2*r^2*f[r]*h[r]^3) - (k^2*Derivative[1][f][r]*Derivative[1][h][r])/
    (1152*Pi^2*f[r]^2*h[r]^2) + 
   (k^2*si*Derivative[1][f][r]*Derivative[1][h][r])/
    (192*Pi^2*f[r]^2*h[r]^2) - (m^2*Derivative[1][f][r]*Derivative[1][h][r])/
    (384*Pi^2*f[r]*h[r]^2) - (gamma*m^2*Derivative[1][f][r]*
      Derivative[1][h][r])/(192*Pi^2*f[r]*h[r]^2) + 
   (Derivative[1][f][r]*Derivative[1][h][r])/(384*Pi^2*r^2*f[r]*h[r]^2) + 
   (m^2*si*Derivative[1][f][r]*Derivative[1][h][r])/(64*Pi^2*f[r]*h[r]^2) + 
   (gamma*m^2*si*Derivative[1][f][r]*Derivative[1][h][r])/
    (32*Pi^2*f[r]*h[r]^2) - (5*si*Derivative[1][f][r]*Derivative[1][h][r])/
    (192*Pi^2*r^2*f[r]*h[r]^2) + 
   (si^2*Derivative[1][f][r]*Derivative[1][h][r])/(16*Pi^2*r^2*f[r]*h[r]^2) - 
   (3*Log[2]*Derivative[1][f][r]*Derivative[1][h][r])/
    (320*Pi^2*r^2*f[r]*h[r]^3) + 
   (si*Log[2]*Derivative[1][f][r]*Derivative[1][h][r])/
    (8*Pi^2*r^2*f[r]*h[r]^3) - (3*si^2*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r])/(8*Pi^2*r^2*f[r]*h[r]^3) + 
   (m^2*Log[2]*Derivative[1][f][r]*Derivative[1][h][r])/
    (192*Pi^2*f[r]*h[r]^2) - (m^2*si*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r])/(32*Pi^2*f[r]*h[r]^2) - 
   (3*Log[k]*Derivative[1][f][r]*Derivative[1][h][r])/
    (320*Pi^2*r^2*f[r]*h[r]^3) + 
   (si*Log[k]*Derivative[1][f][r]*Derivative[1][h][r])/
    (8*Pi^2*r^2*f[r]*h[r]^3) - (3*si^2*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r])/(8*Pi^2*r^2*f[r]*h[r]^3) + 
   (m^2*Log[k]*Derivative[1][f][r]*Derivative[1][h][r])/
    (192*Pi^2*f[r]*h[r]^2) - (m^2*si*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r])/(32*Pi^2*f[r]*h[r]^2) + 
   (3*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r])/
    (320*Pi^2*r^2*f[r]*h[r]^3) - 
   (si*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r])/
    (8*Pi^2*r^2*f[r]*h[r]^3) + (3*si^2*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r])/(8*Pi^2*r^2*f[r]*h[r]^3) - 
   (m^2*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r])/
    (192*Pi^2*f[r]*h[r]^2) + (m^2*si*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r])/(32*Pi^2*f[r]*h[r]^2) + 
   (3*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r])/
    (640*Pi^2*r^2*f[r]*h[r]^3) - 
   (si*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r])/
    (16*Pi^2*r^2*f[r]*h[r]^3) + 
   (3*si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r])/
    (16*Pi^2*r^2*f[r]*h[r]^3) - 
   (m^2*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r])/
    (384*Pi^2*f[r]*h[r]^2) + (m^2*si*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r])/(64*Pi^2*f[r]*h[r]^2) - 
   (77*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (3840*Pi^2*r*f[r]^2*h[r]^3) + 
   (gamma*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (60*Pi^2*r*f[r]^2*h[r]^3) + 
   (21*si*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (128*Pi^2*r*f[r]^2*h[r]^3) - 
   (5*gamma*si*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (24*Pi^2*r*f[r]^2*h[r]^3) - 
   (9*si^2*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (32*Pi^2*r*f[r]^2*h[r]^3) + 
   (5*gamma*si^2*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (8*Pi^2*r*f[r]^2*h[r]^3) - (Log[2]*Derivative[1][f][r]^2*
      Derivative[1][h][r])/(60*Pi^2*r*f[r]^2*h[r]^3) + 
   (5*si*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (24*Pi^2*r*f[r]^2*h[r]^3) - 
   (5*si^2*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (8*Pi^2*r*f[r]^2*h[r]^3) - (Log[k]*Derivative[1][f][r]^2*
      Derivative[1][h][r])/(60*Pi^2*r*f[r]^2*h[r]^3) + 
   (5*si*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (24*Pi^2*r*f[r]^2*h[r]^3) - 
   (5*si^2*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (8*Pi^2*r*f[r]^2*h[r]^3) + (Log[mu]*Derivative[1][f][r]^2*
      Derivative[1][h][r])/(60*Pi^2*r*f[r]^2*h[r]^3) - 
   (5*si*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (24*Pi^2*r*f[r]^2*h[r]^3) + 
   (5*si^2*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (8*Pi^2*r*f[r]^2*h[r]^3) + (Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[1][h][r])/(120*Pi^2*r*f[r]^2*h[r]^3) - 
   (5*si*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (48*Pi^2*r*f[r]^2*h[r]^3) + 
   (5*si^2*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r])/
    (16*Pi^2*r*f[r]^2*h[r]^3) + 
   (169*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (11520*Pi^2*f[r]^3*h[r]^3) - 
   (17*gamma*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (1920*Pi^2*f[r]^3*h[r]^3) - 
   (85*si*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (768*Pi^2*f[r]^3*h[r]^3) + (23*gamma*si*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(192*Pi^2*f[r]^3*h[r]^3) + 
   (5*si^2*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (32*Pi^2*f[r]^3*h[r]^3) - (23*gamma*si^2*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) + 
   (17*Log[2]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (1920*Pi^2*f[r]^3*h[r]^3) - 
   (23*si*Log[2]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (192*Pi^2*f[r]^3*h[r]^3) + (23*si^2*Log[2]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) + 
   (17*Log[k]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (1920*Pi^2*f[r]^3*h[r]^3) - 
   (23*si*Log[k]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (192*Pi^2*f[r]^3*h[r]^3) + (23*si^2*Log[k]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) - 
   (17*Log[mu]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (1920*Pi^2*f[r]^3*h[r]^3) + 
   (23*si*Log[mu]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (192*Pi^2*f[r]^3*h[r]^3) - (23*si^2*Log[mu]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(64*Pi^2*f[r]^3*h[r]^3) - 
   (17*Log[f[r]]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (3840*Pi^2*f[r]^3*h[r]^3) + 
   (23*si*Log[f[r]]*Derivative[1][f][r]^3*Derivative[1][h][r])/
    (384*Pi^2*f[r]^3*h[r]^3) - (23*si^2*Log[f[r]]*Derivative[1][f][r]^3*
      Derivative[1][h][r])/(128*Pi^2*f[r]^3*h[r]^3) + 
   (11*Derivative[1][f][r]*Derivative[1][h][r]^2)/(1280*Pi^2*r*f[r]*h[r]^4) + 
   (9*gamma*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (320*Pi^2*r*f[r]*h[r]^4) - (19*si*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(128*Pi^2*r*f[r]*h[r]^4) - 
   (11*gamma*si*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (32*Pi^2*r*f[r]*h[r]^4) + (9*si^2*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(16*Pi^2*r*f[r]*h[r]^4) + 
   (33*gamma*si^2*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (32*Pi^2*r*f[r]*h[r]^4) - (9*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(320*Pi^2*r*f[r]*h[r]^4) + 
   (11*si*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (32*Pi^2*r*f[r]*h[r]^4) - (33*si^2*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(32*Pi^2*r*f[r]*h[r]^4) - 
   (9*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (320*Pi^2*r*f[r]*h[r]^4) + (11*si*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(32*Pi^2*r*f[r]*h[r]^4) - 
   (33*si^2*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (32*Pi^2*r*f[r]*h[r]^4) + (9*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(320*Pi^2*r*f[r]*h[r]^4) - 
   (11*si*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (32*Pi^2*r*f[r]*h[r]^4) + (33*si^2*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(32*Pi^2*r*f[r]*h[r]^4) + 
   (9*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (640*Pi^2*r*f[r]*h[r]^4) - (11*si*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r]^2)/(64*Pi^2*r*f[r]*h[r]^4) + 
   (33*si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]^2)/
    (64*Pi^2*r*f[r]*h[r]^4) + (197*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(15360*Pi^2*f[r]^2*h[r]^4) - 
   (7*gamma*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (768*Pi^2*f[r]^2*h[r]^4) - (37*si*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(384*Pi^2*f[r]^2*h[r]^4) + 
   (47*gamma*si*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (384*Pi^2*f[r]^2*h[r]^4) + (9*si^2*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(64*Pi^2*f[r]^2*h[r]^4) - 
   (47*gamma*si^2*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (128*Pi^2*f[r]^2*h[r]^4) + (7*Log[2]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(768*Pi^2*f[r]^2*h[r]^4) - 
   (47*si*Log[2]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (384*Pi^2*f[r]^2*h[r]^4) + (47*si^2*Log[2]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(128*Pi^2*f[r]^2*h[r]^4) + 
   (7*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (768*Pi^2*f[r]^2*h[r]^4) - (47*si*Log[k]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(384*Pi^2*f[r]^2*h[r]^4) + 
   (47*si^2*Log[k]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (128*Pi^2*f[r]^2*h[r]^4) - (7*Log[mu]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(768*Pi^2*f[r]^2*h[r]^4) + 
   (47*si*Log[mu]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (384*Pi^2*f[r]^2*h[r]^4) - (47*si^2*Log[mu]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(128*Pi^2*f[r]^2*h[r]^4) - 
   (7*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (1536*Pi^2*f[r]^2*h[r]^4) + 
   (47*si*Log[f[r]]*Derivative[1][f][r]^2*Derivative[1][h][r]^2)/
    (768*Pi^2*f[r]^2*h[r]^4) - (47*si^2*Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[1][h][r]^2)/(256*Pi^2*f[r]^2*h[r]^4) - 
   (49*gamma*Derivative[1][h][r]^3)/(960*Pi^2*r*h[r]^5) + 
   (7*gamma*si*Derivative[1][h][r]^3)/(12*Pi^2*r*h[r]^5) - 
   (7*gamma*si^2*Derivative[1][h][r]^3)/(4*Pi^2*r*h[r]^5) + 
   (49*Log[2]*Derivative[1][h][r]^3)/(960*Pi^2*r*h[r]^5) - 
   (7*si*Log[2]*Derivative[1][h][r]^3)/(12*Pi^2*r*h[r]^5) + 
   (7*si^2*Log[2]*Derivative[1][h][r]^3)/(4*Pi^2*r*h[r]^5) + 
   (49*Log[k]*Derivative[1][h][r]^3)/(960*Pi^2*r*h[r]^5) - 
   (7*si*Log[k]*Derivative[1][h][r]^3)/(12*Pi^2*r*h[r]^5) + 
   (7*si^2*Log[k]*Derivative[1][h][r]^3)/(4*Pi^2*r*h[r]^5) - 
   (49*Log[mu]*Derivative[1][h][r]^3)/(960*Pi^2*r*h[r]^5) + 
   (7*si*Log[mu]*Derivative[1][h][r]^3)/(12*Pi^2*r*h[r]^5) - 
   (7*si^2*Log[mu]*Derivative[1][h][r]^3)/(4*Pi^2*r*h[r]^5) - 
   (49*Log[f[r]]*Derivative[1][h][r]^3)/(1920*Pi^2*r*h[r]^5) + 
   (7*si*Log[f[r]]*Derivative[1][h][r]^3)/(24*Pi^2*r*h[r]^5) - 
   (7*si^2*Log[f[r]]*Derivative[1][h][r]^3)/(8*Pi^2*r*h[r]^5) + 
   (7*Derivative[1][f][r]*Derivative[1][h][r]^3)/(960*Pi^2*f[r]*h[r]^5) - 
   (7*gamma*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (640*Pi^2*f[r]*h[r]^5) - (7*si*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(192*Pi^2*f[r]*h[r]^5) + 
   (7*gamma*si*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (48*Pi^2*f[r]*h[r]^5) - (7*gamma*si^2*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(16*Pi^2*f[r]*h[r]^5) + 
   (7*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (640*Pi^2*f[r]*h[r]^5) - (7*si*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(48*Pi^2*f[r]*h[r]^5) + 
   (7*si^2*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (16*Pi^2*f[r]*h[r]^5) + (7*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(640*Pi^2*f[r]*h[r]^5) - 
   (7*si*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (48*Pi^2*f[r]*h[r]^5) + (7*si^2*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(16*Pi^2*f[r]*h[r]^5) - 
   (7*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (640*Pi^2*f[r]*h[r]^5) + (7*si*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(48*Pi^2*f[r]*h[r]^5) - 
   (7*si^2*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (16*Pi^2*f[r]*h[r]^5) - (7*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(1280*Pi^2*f[r]*h[r]^5) + 
   (7*si*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]^3)/
    (96*Pi^2*f[r]*h[r]^5) - (7*si^2*Log[f[r]]*Derivative[1][f][r]*
      Derivative[1][h][r]^3)/(32*Pi^2*f[r]*h[r]^5) + 
   (3*Derivative[2][f][r])/(320*Pi^2*r^2*f[r]*h[r]^2) - 
   (gamma*Derivative[2][f][r])/(160*Pi^2*r^2*f[r]*h[r]^2) - 
   (7*si*Derivative[2][f][r])/(96*Pi^2*r^2*f[r]*h[r]^2) + 
   (gamma*si*Derivative[2][f][r])/(12*Pi^2*r^2*f[r]*h[r]^2) + 
   (si^2*Derivative[2][f][r])/(8*Pi^2*r^2*f[r]*h[r]^2) - 
   (gamma*si^2*Derivative[2][f][r])/(4*Pi^2*r^2*f[r]*h[r]^2) + 
   (k^2*Derivative[2][f][r])/(576*Pi^2*f[r]^2*h[r]) - 
   (k^2*si*Derivative[2][f][r])/(96*Pi^2*f[r]^2*h[r]) + 
   (m^2*Derivative[2][f][r])/(192*Pi^2*f[r]*h[r]) + 
   (gamma*m^2*Derivative[2][f][r])/(96*Pi^2*f[r]*h[r]) - 
   Derivative[2][f][r]/(192*Pi^2*r^2*f[r]*h[r]) - 
   (m^2*si*Derivative[2][f][r])/(32*Pi^2*f[r]*h[r]) - 
   (gamma*m^2*si*Derivative[2][f][r])/(16*Pi^2*f[r]*h[r]) + 
   (5*si*Derivative[2][f][r])/(96*Pi^2*r^2*f[r]*h[r]) - 
   (si^2*Derivative[2][f][r])/(8*Pi^2*r^2*f[r]*h[r]) + 
   (Log[2]*Derivative[2][f][r])/(160*Pi^2*r^2*f[r]*h[r]^2) - 
   (si*Log[2]*Derivative[2][f][r])/(12*Pi^2*r^2*f[r]*h[r]^2) + 
   (si^2*Log[2]*Derivative[2][f][r])/(4*Pi^2*r^2*f[r]*h[r]^2) - 
   (m^2*Log[2]*Derivative[2][f][r])/(96*Pi^2*f[r]*h[r]) + 
   (m^2*si*Log[2]*Derivative[2][f][r])/(16*Pi^2*f[r]*h[r]) + 
   (Log[k]*Derivative[2][f][r])/(160*Pi^2*r^2*f[r]*h[r]^2) - 
   (si*Log[k]*Derivative[2][f][r])/(12*Pi^2*r^2*f[r]*h[r]^2) + 
   (si^2*Log[k]*Derivative[2][f][r])/(4*Pi^2*r^2*f[r]*h[r]^2) - 
   (m^2*Log[k]*Derivative[2][f][r])/(96*Pi^2*f[r]*h[r]) + 
   (m^2*si*Log[k]*Derivative[2][f][r])/(16*Pi^2*f[r]*h[r]) - 
   (Log[mu]*Derivative[2][f][r])/(160*Pi^2*r^2*f[r]*h[r]^2) + 
   (si*Log[mu]*Derivative[2][f][r])/(12*Pi^2*r^2*f[r]*h[r]^2) - 
   (si^2*Log[mu]*Derivative[2][f][r])/(4*Pi^2*r^2*f[r]*h[r]^2) + 
   (m^2*Log[mu]*Derivative[2][f][r])/(96*Pi^2*f[r]*h[r]) - 
   (m^2*si*Log[mu]*Derivative[2][f][r])/(16*Pi^2*f[r]*h[r]) - 
   (Log[f[r]]*Derivative[2][f][r])/(320*Pi^2*r^2*f[r]*h[r]^2) + 
   (si*Log[f[r]]*Derivative[2][f][r])/(24*Pi^2*r^2*f[r]*h[r]^2) - 
   (si^2*Log[f[r]]*Derivative[2][f][r])/(8*Pi^2*r^2*f[r]*h[r]^2) + 
   (m^2*Log[f[r]]*Derivative[2][f][r])/(192*Pi^2*f[r]*h[r]) - 
   (m^2*si*Log[f[r]]*Derivative[2][f][r])/(32*Pi^2*f[r]*h[r]) + 
   (169*Derivative[1][f][r]*Derivative[2][f][r])/
    (5760*Pi^2*r*f[r]^2*h[r]^2) - 
   (41*gamma*Derivative[1][f][r]*Derivative[2][f][r])/
    (1920*Pi^2*r*f[r]^2*h[r]^2) - 
   (47*si*Derivative[1][f][r]*Derivative[2][f][r])/
    (192*Pi^2*r*f[r]^2*h[r]^2) + 
   (13*gamma*si*Derivative[1][f][r]*Derivative[2][f][r])/
    (48*Pi^2*r*f[r]^2*h[r]^2) + 
   (7*si^2*Derivative[1][f][r]*Derivative[2][f][r])/
    (16*Pi^2*r*f[r]^2*h[r]^2) - 
   (13*gamma*si^2*Derivative[1][f][r]*Derivative[2][f][r])/
    (16*Pi^2*r*f[r]^2*h[r]^2) + 
   (41*Log[2]*Derivative[1][f][r]*Derivative[2][f][r])/
    (1920*Pi^2*r*f[r]^2*h[r]^2) - 
   (13*si*Log[2]*Derivative[1][f][r]*Derivative[2][f][r])/
    (48*Pi^2*r*f[r]^2*h[r]^2) + 
   (13*si^2*Log[2]*Derivative[1][f][r]*Derivative[2][f][r])/
    (16*Pi^2*r*f[r]^2*h[r]^2) + 
   (41*Log[k]*Derivative[1][f][r]*Derivative[2][f][r])/
    (1920*Pi^2*r*f[r]^2*h[r]^2) - 
   (13*si*Log[k]*Derivative[1][f][r]*Derivative[2][f][r])/
    (48*Pi^2*r*f[r]^2*h[r]^2) + 
   (13*si^2*Log[k]*Derivative[1][f][r]*Derivative[2][f][r])/
    (16*Pi^2*r*f[r]^2*h[r]^2) - 
   (41*Log[mu]*Derivative[1][f][r]*Derivative[2][f][r])/
    (1920*Pi^2*r*f[r]^2*h[r]^2) + 
   (13*si*Log[mu]*Derivative[1][f][r]*Derivative[2][f][r])/
    (48*Pi^2*r*f[r]^2*h[r]^2) - 
   (13*si^2*Log[mu]*Derivative[1][f][r]*Derivative[2][f][r])/
    (16*Pi^2*r*f[r]^2*h[r]^2) - 
   (41*Log[f[r]]*Derivative[1][f][r]*Derivative[2][f][r])/
    (3840*Pi^2*r*f[r]^2*h[r]^2) + 
   (13*si*Log[f[r]]*Derivative[1][f][r]*Derivative[2][f][r])/
    (96*Pi^2*r*f[r]^2*h[r]^2) - 
   (13*si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[2][f][r])/
    (32*Pi^2*r*f[r]^2*h[r]^2) - 
   (169*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (5760*Pi^2*f[r]^3*h[r]^2) + 
   (17*gamma*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (960*Pi^2*f[r]^3*h[r]^2) + (85*si*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(384*Pi^2*f[r]^3*h[r]^2) - 
   (23*gamma*si*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (96*Pi^2*f[r]^3*h[r]^2) - (5*si^2*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(16*Pi^2*f[r]^3*h[r]^2) + 
   (23*gamma*si^2*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]^3*h[r]^2) - (17*Log[2]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(960*Pi^2*f[r]^3*h[r]^2) + 
   (23*si*Log[2]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (96*Pi^2*f[r]^3*h[r]^2) - (23*si^2*Log[2]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]^3*h[r]^2) - 
   (17*Log[k]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (960*Pi^2*f[r]^3*h[r]^2) + (23*si*Log[k]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(96*Pi^2*f[r]^3*h[r]^2) - 
   (23*si^2*Log[k]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]^3*h[r]^2) + (17*Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(960*Pi^2*f[r]^3*h[r]^2) - 
   (23*si*Log[mu]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (96*Pi^2*f[r]^3*h[r]^2) + (23*si^2*Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]^3*h[r]^2) + 
   (17*Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (1920*Pi^2*f[r]^3*h[r]^2) - 
   (23*si*Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][f][r])/
    (192*Pi^2*f[r]^3*h[r]^2) + (23*si^2*Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[2][f][r])/(64*Pi^2*f[r]^3*h[r]^2) + 
   (17*Derivative[1][h][r]*Derivative[2][f][r])/(1920*Pi^2*r*f[r]*h[r]^3) - 
   (43*gamma*Derivative[1][h][r]*Derivative[2][f][r])/
    (1920*Pi^2*r*f[r]*h[r]^3) - 
   (si*Derivative[1][h][r]*Derivative[2][f][r])/(48*Pi^2*r*f[r]*h[r]^3) + 
   (7*gamma*si*Derivative[1][h][r]*Derivative[2][f][r])/
    (24*Pi^2*r*f[r]*h[r]^3) - (si^2*Derivative[1][h][r]*Derivative[2][f][r])/
    (8*Pi^2*r*f[r]*h[r]^3) - (7*gamma*si^2*Derivative[1][h][r]*
      Derivative[2][f][r])/(8*Pi^2*r*f[r]*h[r]^3) + 
   (43*Log[2]*Derivative[1][h][r]*Derivative[2][f][r])/
    (1920*Pi^2*r*f[r]*h[r]^3) - 
   (7*si*Log[2]*Derivative[1][h][r]*Derivative[2][f][r])/
    (24*Pi^2*r*f[r]*h[r]^3) + (7*si^2*Log[2]*Derivative[1][h][r]*
      Derivative[2][f][r])/(8*Pi^2*r*f[r]*h[r]^3) + 
   (43*Log[k]*Derivative[1][h][r]*Derivative[2][f][r])/
    (1920*Pi^2*r*f[r]*h[r]^3) - 
   (7*si*Log[k]*Derivative[1][h][r]*Derivative[2][f][r])/
    (24*Pi^2*r*f[r]*h[r]^3) + (7*si^2*Log[k]*Derivative[1][h][r]*
      Derivative[2][f][r])/(8*Pi^2*r*f[r]*h[r]^3) - 
   (43*Log[mu]*Derivative[1][h][r]*Derivative[2][f][r])/
    (1920*Pi^2*r*f[r]*h[r]^3) + 
   (7*si*Log[mu]*Derivative[1][h][r]*Derivative[2][f][r])/
    (24*Pi^2*r*f[r]*h[r]^3) - (7*si^2*Log[mu]*Derivative[1][h][r]*
      Derivative[2][f][r])/(8*Pi^2*r*f[r]*h[r]^3) - 
   (43*Log[f[r]]*Derivative[1][h][r]*Derivative[2][f][r])/
    (3840*Pi^2*r*f[r]*h[r]^3) + 
   (7*si*Log[f[r]]*Derivative[1][h][r]*Derivative[2][f][r])/
    (48*Pi^2*r*f[r]*h[r]^3) - (7*si^2*Log[f[r]]*Derivative[1][h][r]*
      Derivative[2][f][r])/(16*Pi^2*r*f[r]*h[r]^3) - 
   (23*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (960*Pi^2*f[r]^2*h[r]^3) + (13*gamma*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(768*Pi^2*f[r]^2*h[r]^3) + 
   (17*si*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (96*Pi^2*f[r]^2*h[r]^3) - (11*gamma*si*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(48*Pi^2*f[r]^2*h[r]^3) - 
   (si^2*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (4*Pi^2*f[r]^2*h[r]^3) + (11*gamma*si^2*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(16*Pi^2*f[r]^2*h[r]^3) - 
   (13*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (768*Pi^2*f[r]^2*h[r]^3) + (11*si*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(48*Pi^2*f[r]^2*h[r]^3) - 
   (11*si^2*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(16*Pi^2*f[r]^2*h[r]^3) - 
   (13*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (768*Pi^2*f[r]^2*h[r]^3) + (11*si*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(48*Pi^2*f[r]^2*h[r]^3) - 
   (11*si^2*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(16*Pi^2*f[r]^2*h[r]^3) + 
   (13*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][f][r])/
    (768*Pi^2*f[r]^2*h[r]^3) - (11*si*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][f][r])/(48*Pi^2*f[r]^2*h[r]^3) + 
   (11*si^2*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(16*Pi^2*f[r]^2*h[r]^3) + 
   (13*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(1536*Pi^2*f[r]^2*h[r]^3) - 
   (11*si*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(96*Pi^2*f[r]^2*h[r]^3) + 
   (11*si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][f][r])/(32*Pi^2*f[r]^2*h[r]^3) - 
   (19*Derivative[1][h][r]^2*Derivative[2][f][r])/(1920*Pi^2*f[r]*h[r]^4) + 
   (19*gamma*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (1280*Pi^2*f[r]*h[r]^4) + (19*si*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(384*Pi^2*f[r]*h[r]^4) - 
   (19*gamma*si*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (96*Pi^2*f[r]*h[r]^4) + (19*gamma*si^2*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]*h[r]^4) - 
   (19*Log[2]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (1280*Pi^2*f[r]*h[r]^4) + (19*si*Log[2]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(96*Pi^2*f[r]*h[r]^4) - 
   (19*si^2*Log[2]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]*h[r]^4) - (19*Log[k]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(1280*Pi^2*f[r]*h[r]^4) + 
   (19*si*Log[k]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (96*Pi^2*f[r]*h[r]^4) - (19*si^2*Log[k]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(32*Pi^2*f[r]*h[r]^4) + 
   (19*Log[mu]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (1280*Pi^2*f[r]*h[r]^4) - (19*si*Log[mu]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(96*Pi^2*f[r]*h[r]^4) + 
   (19*si^2*Log[mu]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (32*Pi^2*f[r]*h[r]^4) + (19*Log[f[r]]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(2560*Pi^2*f[r]*h[r]^4) - 
   (19*si*Log[f[r]]*Derivative[1][h][r]^2*Derivative[2][f][r])/
    (192*Pi^2*f[r]*h[r]^4) + (19*si^2*Log[f[r]]*Derivative[1][h][r]^2*
      Derivative[2][f][r])/(64*Pi^2*f[r]*h[r]^4) + 
   (29*Derivative[2][f][r]^2)/(3840*Pi^2*f[r]^2*h[r]^2) - 
   (gamma*Derivative[2][f][r]^2)/(192*Pi^2*f[r]^2*h[r]^2) - 
   (5*si*Derivative[2][f][r]^2)/(96*Pi^2*f[r]^2*h[r]^2) + 
   (7*gamma*si*Derivative[2][f][r]^2)/(96*Pi^2*f[r]^2*h[r]^2) + 
   (si^2*Derivative[2][f][r]^2)/(16*Pi^2*f[r]^2*h[r]^2) - 
   (7*gamma*si^2*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) + 
   (Log[2]*Derivative[2][f][r]^2)/(192*Pi^2*f[r]^2*h[r]^2) - 
   (7*si*Log[2]*Derivative[2][f][r]^2)/(96*Pi^2*f[r]^2*h[r]^2) + 
   (7*si^2*Log[2]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) + 
   (Log[k]*Derivative[2][f][r]^2)/(192*Pi^2*f[r]^2*h[r]^2) - 
   (7*si*Log[k]*Derivative[2][f][r]^2)/(96*Pi^2*f[r]^2*h[r]^2) + 
   (7*si^2*Log[k]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) - 
   (Log[mu]*Derivative[2][f][r]^2)/(192*Pi^2*f[r]^2*h[r]^2) + 
   (7*si*Log[mu]*Derivative[2][f][r]^2)/(96*Pi^2*f[r]^2*h[r]^2) - 
   (7*si^2*Log[mu]*Derivative[2][f][r]^2)/(32*Pi^2*f[r]^2*h[r]^2) - 
   (Log[f[r]]*Derivative[2][f][r]^2)/(384*Pi^2*f[r]^2*h[r]^2) + 
   (7*si*Log[f[r]]*Derivative[2][f][r]^2)/(192*Pi^2*f[r]^2*h[r]^2) - 
   (7*si^2*Log[f[r]]*Derivative[2][f][r]^2)/(64*Pi^2*f[r]^2*h[r]^2) - 
   (Derivative[1][f][r]*Derivative[2][h][r])/(240*Pi^2*r*f[r]*h[r]^3) - 
   (23*gamma*Derivative[1][f][r]*Derivative[2][h][r])/
    (1920*Pi^2*r*f[r]*h[r]^3) + 
   (13*si*Derivative[1][f][r]*Derivative[2][h][r])/(192*Pi^2*r*f[r]*h[r]^3) + 
   (7*gamma*si*Derivative[1][f][r]*Derivative[2][h][r])/
    (48*Pi^2*r*f[r]*h[r]^3) - (si^2*Derivative[1][f][r]*Derivative[2][h][r])/
    (4*Pi^2*r*f[r]*h[r]^3) - (7*gamma*si^2*Derivative[1][f][r]*
      Derivative[2][h][r])/(16*Pi^2*r*f[r]*h[r]^3) + 
   (23*Log[2]*Derivative[1][f][r]*Derivative[2][h][r])/
    (1920*Pi^2*r*f[r]*h[r]^3) - 
   (7*si*Log[2]*Derivative[1][f][r]*Derivative[2][h][r])/
    (48*Pi^2*r*f[r]*h[r]^3) + (7*si^2*Log[2]*Derivative[1][f][r]*
      Derivative[2][h][r])/(16*Pi^2*r*f[r]*h[r]^3) + 
   (23*Log[k]*Derivative[1][f][r]*Derivative[2][h][r])/
    (1920*Pi^2*r*f[r]*h[r]^3) - 
   (7*si*Log[k]*Derivative[1][f][r]*Derivative[2][h][r])/
    (48*Pi^2*r*f[r]*h[r]^3) + (7*si^2*Log[k]*Derivative[1][f][r]*
      Derivative[2][h][r])/(16*Pi^2*r*f[r]*h[r]^3) - 
   (23*Log[mu]*Derivative[1][f][r]*Derivative[2][h][r])/
    (1920*Pi^2*r*f[r]*h[r]^3) + 
   (7*si*Log[mu]*Derivative[1][f][r]*Derivative[2][h][r])/
    (48*Pi^2*r*f[r]*h[r]^3) - (7*si^2*Log[mu]*Derivative[1][f][r]*
      Derivative[2][h][r])/(16*Pi^2*r*f[r]*h[r]^3) - 
   (23*Log[f[r]]*Derivative[1][f][r]*Derivative[2][h][r])/
    (3840*Pi^2*r*f[r]*h[r]^3) + 
   (7*si*Log[f[r]]*Derivative[1][f][r]*Derivative[2][h][r])/
    (96*Pi^2*r*f[r]*h[r]^3) - (7*si^2*Log[f[r]]*Derivative[1][f][r]*
      Derivative[2][h][r])/(32*Pi^2*r*f[r]*h[r]^3) - 
   (7*Derivative[1][f][r]^2*Derivative[2][h][r])/(1280*Pi^2*f[r]^2*h[r]^3) + 
   (gamma*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (256*Pi^2*f[r]^2*h[r]^3) + (si*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(24*Pi^2*f[r]^2*h[r]^3) - 
   (5*gamma*si*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (96*Pi^2*f[r]^2*h[r]^3) - (si^2*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(16*Pi^2*f[r]^2*h[r]^3) + 
   (5*gamma*si^2*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (32*Pi^2*f[r]^2*h[r]^3) - (Log[2]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(256*Pi^2*f[r]^2*h[r]^3) + 
   (5*si*Log[2]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (96*Pi^2*f[r]^2*h[r]^3) - (5*si^2*Log[2]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(32*Pi^2*f[r]^2*h[r]^3) - 
   (Log[k]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (256*Pi^2*f[r]^2*h[r]^3) + (5*si*Log[k]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(96*Pi^2*f[r]^2*h[r]^3) - 
   (5*si^2*Log[k]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (32*Pi^2*f[r]^2*h[r]^3) + (Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(256*Pi^2*f[r]^2*h[r]^3) - 
   (5*si*Log[mu]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (96*Pi^2*f[r]^2*h[r]^3) + (5*si^2*Log[mu]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(32*Pi^2*f[r]^2*h[r]^3) + 
   (Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (512*Pi^2*f[r]^2*h[r]^3) - (5*si*Log[f[r]]*Derivative[1][f][r]^2*
      Derivative[2][h][r])/(192*Pi^2*f[r]^2*h[r]^3) + 
   (5*si^2*Log[f[r]]*Derivative[1][f][r]^2*Derivative[2][h][r])/
    (64*Pi^2*f[r]^2*h[r]^3) + (91*gamma*Derivative[1][h][r]*
      Derivative[2][h][r])/(1920*Pi^2*r*h[r]^4) - 
   (13*gamma*si*Derivative[1][h][r]*Derivative[2][h][r])/(24*Pi^2*r*h[r]^4) + 
   (13*gamma*si^2*Derivative[1][h][r]*Derivative[2][h][r])/
    (8*Pi^2*r*h[r]^4) - (91*Log[2]*Derivative[1][h][r]*Derivative[2][h][r])/
    (1920*Pi^2*r*h[r]^4) + (13*si*Log[2]*Derivative[1][h][r]*
      Derivative[2][h][r])/(24*Pi^2*r*h[r]^4) - 
   (13*si^2*Log[2]*Derivative[1][h][r]*Derivative[2][h][r])/
    (8*Pi^2*r*h[r]^4) - (91*Log[k]*Derivative[1][h][r]*Derivative[2][h][r])/
    (1920*Pi^2*r*h[r]^4) + (13*si*Log[k]*Derivative[1][h][r]*
      Derivative[2][h][r])/(24*Pi^2*r*h[r]^4) - 
   (13*si^2*Log[k]*Derivative[1][h][r]*Derivative[2][h][r])/
    (8*Pi^2*r*h[r]^4) + (91*Log[mu]*Derivative[1][h][r]*Derivative[2][h][r])/
    (1920*Pi^2*r*h[r]^4) - (13*si*Log[mu]*Derivative[1][h][r]*
      Derivative[2][h][r])/(24*Pi^2*r*h[r]^4) + 
   (13*si^2*Log[mu]*Derivative[1][h][r]*Derivative[2][h][r])/
    (8*Pi^2*r*h[r]^4) + (91*Log[f[r]]*Derivative[1][h][r]*
      Derivative[2][h][r])/(3840*Pi^2*r*h[r]^4) - 
   (13*si*Log[f[r]]*Derivative[1][h][r]*Derivative[2][h][r])/
    (48*Pi^2*r*h[r]^4) + (13*si^2*Log[f[r]]*Derivative[1][h][r]*
      Derivative[2][h][r])/(16*Pi^2*r*h[r]^4) - 
   (13*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][h][r])/
    (1920*Pi^2*f[r]*h[r]^4) + (13*gamma*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][h][r])/(1280*Pi^2*f[r]*h[r]^4) + 
   (13*si*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][h][r])/
    (384*Pi^2*f[r]*h[r]^4) - (13*gamma*si*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][h][r])/(96*Pi^2*f[r]*h[r]^4) + 
   (13*gamma*si^2*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(32*Pi^2*f[r]*h[r]^4) - 
   (13*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][h][r])/
    (1280*Pi^2*f[r]*h[r]^4) + (13*si*Log[2]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][h][r])/(96*Pi^2*f[r]*h[r]^4) - 
   (13*si^2*Log[2]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(32*Pi^2*f[r]*h[r]^4) - 
   (13*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][h][r])/
    (1280*Pi^2*f[r]*h[r]^4) + (13*si*Log[k]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][h][r])/(96*Pi^2*f[r]*h[r]^4) - 
   (13*si^2*Log[k]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(32*Pi^2*f[r]*h[r]^4) + 
   (13*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]*Derivative[2][h][r])/
    (1280*Pi^2*f[r]*h[r]^4) - (13*si*Log[mu]*Derivative[1][f][r]*
      Derivative[1][h][r]*Derivative[2][h][r])/(96*Pi^2*f[r]*h[r]^4) + 
   (13*si^2*Log[mu]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(32*Pi^2*f[r]*h[r]^4) + 
   (13*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(2560*Pi^2*f[r]*h[r]^4) - 
   (13*si*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(192*Pi^2*f[r]*h[r]^4) + 
   (13*si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[1][h][r]*
      Derivative[2][h][r])/(64*Pi^2*f[r]*h[r]^4) + 
   (Derivative[2][f][r]*Derivative[2][h][r])/(240*Pi^2*f[r]*h[r]^3) - 
   (gamma*Derivative[2][f][r]*Derivative[2][h][r])/(160*Pi^2*f[r]*h[r]^3) - 
   (si*Derivative[2][f][r]*Derivative[2][h][r])/(48*Pi^2*f[r]*h[r]^3) + 
   (gamma*si*Derivative[2][f][r]*Derivative[2][h][r])/(12*Pi^2*f[r]*h[r]^3) - 
   (gamma*si^2*Derivative[2][f][r]*Derivative[2][h][r])/
    (4*Pi^2*f[r]*h[r]^3) + (Log[2]*Derivative[2][f][r]*Derivative[2][h][r])/
    (160*Pi^2*f[r]*h[r]^3) - (si*Log[2]*Derivative[2][f][r]*
      Derivative[2][h][r])/(12*Pi^2*f[r]*h[r]^3) + 
   (si^2*Log[2]*Derivative[2][f][r]*Derivative[2][h][r])/
    (4*Pi^2*f[r]*h[r]^3) + (Log[k]*Derivative[2][f][r]*Derivative[2][h][r])/
    (160*Pi^2*f[r]*h[r]^3) - (si*Log[k]*Derivative[2][f][r]*
      Derivative[2][h][r])/(12*Pi^2*f[r]*h[r]^3) + 
   (si^2*Log[k]*Derivative[2][f][r]*Derivative[2][h][r])/
    (4*Pi^2*f[r]*h[r]^3) - (Log[mu]*Derivative[2][f][r]*Derivative[2][h][r])/
    (160*Pi^2*f[r]*h[r]^3) + (si*Log[mu]*Derivative[2][f][r]*
      Derivative[2][h][r])/(12*Pi^2*f[r]*h[r]^3) - 
   (si^2*Log[mu]*Derivative[2][f][r]*Derivative[2][h][r])/
    (4*Pi^2*f[r]*h[r]^3) - (Log[f[r]]*Derivative[2][f][r]*
      Derivative[2][h][r])/(320*Pi^2*f[r]*h[r]^3) + 
   (si*Log[f[r]]*Derivative[2][f][r]*Derivative[2][h][r])/
    (24*Pi^2*f[r]*h[r]^3) - (si^2*Log[f[r]]*Derivative[2][f][r]*
      Derivative[2][h][r])/(8*Pi^2*f[r]*h[r]^3) - 
   Derivative[3][f][r]/(160*Pi^2*r*f[r]*h[r]^2) + 
   (3*gamma*Derivative[3][f][r])/(320*Pi^2*r*f[r]*h[r]^2) + 
   (si*Derivative[3][f][r])/(32*Pi^2*r*f[r]*h[r]^2) - 
   (gamma*si*Derivative[3][f][r])/(8*Pi^2*r*f[r]*h[r]^2) + 
   (3*gamma*si^2*Derivative[3][f][r])/(8*Pi^2*r*f[r]*h[r]^2) - 
   (3*Log[2]*Derivative[3][f][r])/(320*Pi^2*r*f[r]*h[r]^2) + 
   (si*Log[2]*Derivative[3][f][r])/(8*Pi^2*r*f[r]*h[r]^2) - 
   (3*si^2*Log[2]*Derivative[3][f][r])/(8*Pi^2*r*f[r]*h[r]^2) - 
   (3*Log[k]*Derivative[3][f][r])/(320*Pi^2*r*f[r]*h[r]^2) + 
   (si*Log[k]*Derivative[3][f][r])/(8*Pi^2*r*f[r]*h[r]^2) - 
   (3*si^2*Log[k]*Derivative[3][f][r])/(8*Pi^2*r*f[r]*h[r]^2) + 
   (3*Log[mu]*Derivative[3][f][r])/(320*Pi^2*r*f[r]*h[r]^2) - 
   (si*Log[mu]*Derivative[3][f][r])/(8*Pi^2*r*f[r]*h[r]^2) + 
   (3*si^2*Log[mu]*Derivative[3][f][r])/(8*Pi^2*r*f[r]*h[r]^2) + 
   (3*Log[f[r]]*Derivative[3][f][r])/(640*Pi^2*r*f[r]*h[r]^2) - 
   (si*Log[f[r]]*Derivative[3][f][r])/(16*Pi^2*r*f[r]*h[r]^2) + 
   (3*si^2*Log[f[r]]*Derivative[3][f][r])/(16*Pi^2*r*f[r]*h[r]^2) + 
   (7*Derivative[1][f][r]*Derivative[3][f][r])/(640*Pi^2*f[r]^2*h[r]^2) - 
   (gamma*Derivative[1][f][r]*Derivative[3][f][r])/(128*Pi^2*f[r]^2*h[r]^2) - 
   (si*Derivative[1][f][r]*Derivative[3][f][r])/(12*Pi^2*f[r]^2*h[r]^2) + 
   (5*gamma*si*Derivative[1][f][r]*Derivative[3][f][r])/
    (48*Pi^2*f[r]^2*h[r]^2) + (si^2*Derivative[1][f][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]^2*h[r]^2) - (5*gamma*si^2*Derivative[1][f][r]*
      Derivative[3][f][r])/(16*Pi^2*f[r]^2*h[r]^2) + 
   (Log[2]*Derivative[1][f][r]*Derivative[3][f][r])/
    (128*Pi^2*f[r]^2*h[r]^2) - (5*si*Log[2]*Derivative[1][f][r]*
      Derivative[3][f][r])/(48*Pi^2*f[r]^2*h[r]^2) + 
   (5*si^2*Log[2]*Derivative[1][f][r]*Derivative[3][f][r])/
    (16*Pi^2*f[r]^2*h[r]^2) + (Log[k]*Derivative[1][f][r]*
      Derivative[3][f][r])/(128*Pi^2*f[r]^2*h[r]^2) - 
   (5*si*Log[k]*Derivative[1][f][r]*Derivative[3][f][r])/
    (48*Pi^2*f[r]^2*h[r]^2) + (5*si^2*Log[k]*Derivative[1][f][r]*
      Derivative[3][f][r])/(16*Pi^2*f[r]^2*h[r]^2) - 
   (Log[mu]*Derivative[1][f][r]*Derivative[3][f][r])/
    (128*Pi^2*f[r]^2*h[r]^2) + (5*si*Log[mu]*Derivative[1][f][r]*
      Derivative[3][f][r])/(48*Pi^2*f[r]^2*h[r]^2) - 
   (5*si^2*Log[mu]*Derivative[1][f][r]*Derivative[3][f][r])/
    (16*Pi^2*f[r]^2*h[r]^2) - (Log[f[r]]*Derivative[1][f][r]*
      Derivative[3][f][r])/(256*Pi^2*f[r]^2*h[r]^2) + 
   (5*si*Log[f[r]]*Derivative[1][f][r]*Derivative[3][f][r])/
    (96*Pi^2*f[r]^2*h[r]^2) - (5*si^2*Log[f[r]]*Derivative[1][f][r]*
      Derivative[3][f][r])/(32*Pi^2*f[r]^2*h[r]^2) + 
   (Derivative[1][h][r]*Derivative[3][f][r])/(160*Pi^2*f[r]*h[r]^3) - 
   (3*gamma*Derivative[1][h][r]*Derivative[3][f][r])/(320*Pi^2*f[r]*h[r]^3) - 
   (si*Derivative[1][h][r]*Derivative[3][f][r])/(32*Pi^2*f[r]*h[r]^3) + 
   (gamma*si*Derivative[1][h][r]*Derivative[3][f][r])/(8*Pi^2*f[r]*h[r]^3) - 
   (3*gamma*si^2*Derivative[1][h][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]*h[r]^3) + (3*Log[2]*Derivative[1][h][r]*
      Derivative[3][f][r])/(320*Pi^2*f[r]*h[r]^3) - 
   (si*Log[2]*Derivative[1][h][r]*Derivative[3][f][r])/(8*Pi^2*f[r]*h[r]^3) + 
   (3*si^2*Log[2]*Derivative[1][h][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]*h[r]^3) + (3*Log[k]*Derivative[1][h][r]*
      Derivative[3][f][r])/(320*Pi^2*f[r]*h[r]^3) - 
   (si*Log[k]*Derivative[1][h][r]*Derivative[3][f][r])/(8*Pi^2*f[r]*h[r]^3) + 
   (3*si^2*Log[k]*Derivative[1][h][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]*h[r]^3) - (3*Log[mu]*Derivative[1][h][r]*
      Derivative[3][f][r])/(320*Pi^2*f[r]*h[r]^3) + 
   (si*Log[mu]*Derivative[1][h][r]*Derivative[3][f][r])/
    (8*Pi^2*f[r]*h[r]^3) - (3*si^2*Log[mu]*Derivative[1][h][r]*
      Derivative[3][f][r])/(8*Pi^2*f[r]*h[r]^3) - 
   (3*Log[f[r]]*Derivative[1][h][r]*Derivative[3][f][r])/
    (640*Pi^2*f[r]*h[r]^3) + (si*Log[f[r]]*Derivative[1][h][r]*
      Derivative[3][f][r])/(16*Pi^2*f[r]*h[r]^3) - 
   (3*si^2*Log[f[r]]*Derivative[1][h][r]*Derivative[3][f][r])/
    (16*Pi^2*f[r]*h[r]^3) - (7*gamma*Derivative[3][h][r])/
    (960*Pi^2*r*h[r]^3) + (gamma*si*Derivative[3][h][r])/(12*Pi^2*r*h[r]^3) - 
   (gamma*si^2*Derivative[3][h][r])/(4*Pi^2*r*h[r]^3) + 
   (7*Log[2]*Derivative[3][h][r])/(960*Pi^2*r*h[r]^3) - 
   (si*Log[2]*Derivative[3][h][r])/(12*Pi^2*r*h[r]^3) + 
   (si^2*Log[2]*Derivative[3][h][r])/(4*Pi^2*r*h[r]^3) + 
   (7*Log[k]*Derivative[3][h][r])/(960*Pi^2*r*h[r]^3) - 
   (si*Log[k]*Derivative[3][h][r])/(12*Pi^2*r*h[r]^3) + 
   (si^2*Log[k]*Derivative[3][h][r])/(4*Pi^2*r*h[r]^3) - 
   (7*Log[mu]*Derivative[3][h][r])/(960*Pi^2*r*h[r]^3) + 
   (si*Log[mu]*Derivative[3][h][r])/(12*Pi^2*r*h[r]^3) - 
   (si^2*Log[mu]*Derivative[3][h][r])/(4*Pi^2*r*h[r]^3) - 
   (7*Log[f[r]]*Derivative[3][h][r])/(1920*Pi^2*r*h[r]^3) + 
   (si*Log[f[r]]*Derivative[3][h][r])/(24*Pi^2*r*h[r]^3) - 
   (si^2*Log[f[r]]*Derivative[3][h][r])/(8*Pi^2*r*h[r]^3) + 
   (Derivative[1][f][r]*Derivative[3][h][r])/(960*Pi^2*f[r]*h[r]^3) - 
   (gamma*Derivative[1][f][r]*Derivative[3][h][r])/(640*Pi^2*f[r]*h[r]^3) - 
   (si*Derivative[1][f][r]*Derivative[3][h][r])/(192*Pi^2*f[r]*h[r]^3) + 
   (gamma*si*Derivative[1][f][r]*Derivative[3][h][r])/(48*Pi^2*f[r]*h[r]^3) - 
   (gamma*si^2*Derivative[1][f][r]*Derivative[3][h][r])/
    (16*Pi^2*f[r]*h[r]^3) + (Log[2]*Derivative[1][f][r]*Derivative[3][h][r])/
    (640*Pi^2*f[r]*h[r]^3) - (si*Log[2]*Derivative[1][f][r]*
      Derivative[3][h][r])/(48*Pi^2*f[r]*h[r]^3) + 
   (si^2*Log[2]*Derivative[1][f][r]*Derivative[3][h][r])/
    (16*Pi^2*f[r]*h[r]^3) + (Log[k]*Derivative[1][f][r]*Derivative[3][h][r])/
    (640*Pi^2*f[r]*h[r]^3) - (si*Log[k]*Derivative[1][f][r]*
      Derivative[3][h][r])/(48*Pi^2*f[r]*h[r]^3) + 
   (si^2*Log[k]*Derivative[1][f][r]*Derivative[3][h][r])/
    (16*Pi^2*f[r]*h[r]^3) - (Log[mu]*Derivative[1][f][r]*
      Derivative[3][h][r])/(640*Pi^2*f[r]*h[r]^3) + 
   (si*Log[mu]*Derivative[1][f][r]*Derivative[3][h][r])/
    (48*Pi^2*f[r]*h[r]^3) - (si^2*Log[mu]*Derivative[1][f][r]*
      Derivative[3][h][r])/(16*Pi^2*f[r]*h[r]^3) - 
   (Log[f[r]]*Derivative[1][f][r]*Derivative[3][h][r])/
    (1280*Pi^2*f[r]*h[r]^3) + (si*Log[f[r]]*Derivative[1][f][r]*
      Derivative[3][h][r])/(96*Pi^2*f[r]*h[r]^3) - 
   (si^2*Log[f[r]]*Derivative[1][f][r]*Derivative[3][h][r])/
    (32*Pi^2*f[r]*h[r]^3) - Derivative[4][f][r]/(480*Pi^2*f[r]*h[r]^2) + 
   (gamma*Derivative[4][f][r])/(320*Pi^2*f[r]*h[r]^2) + 
   (si*Derivative[4][f][r])/(96*Pi^2*f[r]*h[r]^2) - 
   (gamma*si*Derivative[4][f][r])/(24*Pi^2*f[r]*h[r]^2) + 
   (gamma*si^2*Derivative[4][f][r])/(8*Pi^2*f[r]*h[r]^2) - 
   (Log[2]*Derivative[4][f][r])/(320*Pi^2*f[r]*h[r]^2) + 
   (si*Log[2]*Derivative[4][f][r])/(24*Pi^2*f[r]*h[r]^2) - 
   (si^2*Log[2]*Derivative[4][f][r])/(8*Pi^2*f[r]*h[r]^2) - 
   (Log[k]*Derivative[4][f][r])/(320*Pi^2*f[r]*h[r]^2) + 
   (si*Log[k]*Derivative[4][f][r])/(24*Pi^2*f[r]*h[r]^2) - 
   (si^2*Log[k]*Derivative[4][f][r])/(8*Pi^2*f[r]*h[r]^2) + 
   (Log[mu]*Derivative[4][f][r])/(320*Pi^2*f[r]*h[r]^2) - 
   (si*Log[mu]*Derivative[4][f][r])/(24*Pi^2*f[r]*h[r]^2) + 
   (si^2*Log[mu]*Derivative[4][f][r])/(8*Pi^2*f[r]*h[r]^2) + 
   (Log[f[r]]*Derivative[4][f][r])/(640*Pi^2*f[r]*h[r]^2) - 
   (si*Log[f[r]]*Derivative[4][f][r])/(48*Pi^2*f[r]*h[r]^2) + 
   (si^2*Log[f[r]]*Derivative[4][f][r])/(16*Pi^2*f[r]*h[r]^2)
