#include #include #define NRANSI #include "../include/nrutilD.h" #include "../include/Variables.h" /* Define constants appearing in the parametrization * (R,Theta) -> (r,h), critical exponents, and * combinations thereof (the c's coefficients), and PI */ // ----- DEFINE ------- // #define A -0.76201 #define B 0.00804 #define beta 0.326 #define delta 4.8 #define alpha 0.11 #define M0 0.605 #define h0 0.364 #define c0 0.0424369 #define c1 0.321329 #define c2 -1.20375 #define c3 -0.00126032 #define bede 1.5648 #define PI 3.141592653589 int a1,a2,a3,a4,a5; // --------- MATRIX DERIVATIVES - // /*{{{*/ /* For the numerical derivatives of matrices, including treatment * of the boundary conditions at muB=0 (CP symmetry). */ void deriv_matrix(double ** mat, double ** der_mat, int direction, int low1, int high1, int low2, int high2, int odd){ int ii,jj; int im2,im1,ip1,ip2; int jm2,jm1,jp1,jp2; int odd_fac = 1; if (direction==1){ for (ii=low1;ii<=high1;ii++) for (jj=low2;jj<=high2;jj++){ im2=ii-2;im1=ii-1;ip1=ii+1;ip2=ii+2; if (im2 < low1) im2 = ii; if (im1 < low1) im1 = ii; if (ip1 > high1) ip1 = ii; if (ip2 > high1) ip2 = ii; der_mat[ii][jj] = 1.0/12.0*mat[im2][jj] - 2.0/3.0*mat[im1][jj] + 2.0/3.0*mat[ip1][jj] - 1.0/12.0*mat[ip2][jj]; } } else if (direction==2){ for (ii=low1;ii<=high1;ii++) for (jj=low2;jj<=high2;jj++){ odd_fac = 1; jm2=jj-2;jm1=jj-1;jp1=jj+1;jp2=jj+2; if (jm2 < low2){ jm2 = -jm2; if (odd == 1) odd_fac = -1; } if (jm1 < low2){ jm1 = -jm1; if (odd == 1) odd_fac = -1; } if (jp1 > high2) jp1 = jj; if (jp2 > high2) jp2 = jj; der_mat[ii][jj] = odd_fac*1.0/12.0*mat[ii][jm2] - odd_fac*2.0/3.0*mat[ii][jm1] + 2.0/3.0*mat[ii][jp1] - 1.0/12.0*mat[ii][jp2]; } } } /*}}}*/ // --------- ROOT FINDING ------- // /*{{{*/ /* Define the functions relating Ising variable to the parameters (R,Theta), which need to be solved to find the map. */ void funcv(int n,double x[],double f[]) { f[1] = x[1]*(1.0-x[2]*x[2]) - r_i; f[2] = h0*pow(x[1],bede)*x[2]*(1.0 + A*pow(x[2],2) + B*pow(x[2],4)) - h_i; } /* Define the functions relating Ising variable to QCD (T, muB). */ double rr(double T, double muB){ return -1.0/(sin(angle1-angle2)*ww*rho*TC)*(sin(angle2)*(muBC - muB) + cos(angle2)*(TC - T)); } double hh(double T, double muB){ return 1.0/(sin(angle1-angle2)*ww*TC)*(sin(angle1)*(muBC - muB) + cos(angle1)*(TC - T)); } /*}}}*/ // --------- JACOBIAN ----------- // /*{{{*/ /* Define the routine calculating the Jacobian from the choice of parameters in the Ising -> QCD map */ void Jacobian (double **JJ, double dTC, double dmuBC, double angle1, double angle2){ if(angle1 != 0 && angle1 != PI/2 && angle2 != 0 && angle2 != PI/2){ JJ[1][1] = 1.0/dmuBC * cos(angle2)/(cos(angle2)*sin(angle1) - cos(angle1)*sin(angle2)); JJ[1][2] = 1.0/dmuBC * sin(angle2)/(cos(angle2)*sin(angle1) - cos(angle1)*sin(angle2)); JJ[2][1] = 1.0/dTC * cos(angle1)/(- cos(angle2)*sin(angle1) + cos(angle1)*sin(angle2)); JJ[2][2] = 1.0/dTC * sin(angle1)/(- cos(angle2)*sin(angle1) + cos(angle1)*sin(angle2)); } if(angle1 == 0 && angle2 ==0){ printf("Jacobian matrix is singular! Exiting.. \n"); return; } if(angle1 == 0 && angle2 != 0 && angle2 != PI/2){ JJ[1][1] = -1.0/dmuBC*cos(angle2)/sin(angle2); JJ[1][2] = -1.0/dmuBC; JJ[2][1] = 1.0/dTC*1.0/sin(angle2); JJ[2][2] = 0.0; } if(angle1 != 0 && angle1 != PI/2 && angle2 == PI/2){ JJ[1][1] = 0.0; JJ[1][2] = -1.0/dmuBC*1.0/cos(angle1); JJ[2][1] = 1.0/dTC; JJ[2][2] = 1.0/dTC*sin(angle1)/cos(angle1); } if(angle1 == 0 && angle2 == PI/2){ JJ[1][1] = 0.0; JJ[1][2] = -1.0/dmuBC; JJ[2][1] = 1.0/dTC; JJ[2][2] = 0.0; } else{} return ; } /*}}}*/ // --------- CHI0 --------------- // /*{{{*/ double G(double R, double Theta){ gg0Num = c0 + c1*(1-Theta*Theta) + c2*(1-Theta*Theta)*(1-Theta*Theta) + c3*(1-Theta*Theta)*(1-Theta*Theta)*(1-Theta*Theta); htil0Num = Theta + A*Theta*Theta*Theta + B*Theta*Theta*Theta*Theta*Theta; return h0*M0*pow(R,2.0-alpha)*(gg0Num - Theta*htil0Num); } /*}}}*/ // --------- CHI1 WRT MU -------- // /*{{{*/ double dGdmuBConT (double R, double Theta){ // gg, htil and derivatives gg0Num = c0 + c1*(1-Theta*Theta) + c2*(1-Theta*Theta)*(1-Theta*Theta) + c3*(1-Theta*Theta)*(1-Theta*Theta)*(1-Theta*Theta); gg1Num = - 2*c1*Theta - 4*c2*Theta*(1-Theta*Theta) - 6*c3*Theta*(1-Theta*Theta)*(1-Theta*Theta); htil0Num = Theta + A*Theta*Theta*Theta + B*Theta*Theta*Theta*Theta*Theta; htil1Num = 1 + 3*A*Theta*Theta + 5*B*Theta*Theta*Theta*Theta; // Derivatives of G wrt R, Theta dGdRNum = h0*M0*(2-alpha)*pow(R,1.0-alpha)*(gg0Num - Theta*htil0Num); dGdThetaNum = h0*M0*pow(R,2.0-alpha)*(gg1Num - htil0Num - Theta*htil1Num); // Derivatives of Theta wrt R and vice versa at constant r,h dThetadRConhNum = -beta*delta*htil0Num/(R*htil1Num); dRdThetaConhNum = -R*htil1Num/(beta*delta*htil0Num); dThetadRConrNum = (1-Theta*Theta)/(2*Theta*R); dRdThetaConrNum = 2*Theta*R/(1-Theta*Theta); // Derivatives of r,h wrt R,Theta drdRConhNum = 1 - Theta*Theta - 2*R*Theta*dThetadRConhNum; drdThetaConhNum = - 2*Theta*R + (1-Theta*Theta)*dRdThetaConhNum; dhdRConrNum = beta*delta*h0*pow(R,- 1 + beta*delta)*htil0Num + h0*pow(R,beta*delta)*htil1Num*dThetadRConrNum; dhdThetaConrNum = beta*delta*h0*pow(R,- 1 + beta*delta)*htil0Num*dRdThetaConrNum + h0*pow(R,beta*delta)*htil1Num; // Derivatives of R,Theta wrt r,h dRdrConhNum = 1./drdRConhNum; dThetadrConhNum = 1./drdThetaConhNum; dRdhConrNum = 1./dhdRConrNum; dThetadhConrNum = 1./dhdThetaConrNum; // Derivatives of G wrt r,h dGdrConhNum = dGdRNum*dRdrConhNum + dGdThetaNum*dThetadrConhNum; dGdhConrNum = dGdRNum*dRdhConrNum + dGdThetaNum*dThetadhConrNum; // Finally, derivative of G wrt muB return dGdrConhNum*drdmuB + dGdhConrNum*dhdmuB; } /*}}}*/ // --------- CHI1 WRT T --------- // /*{{{*/ double dGdTConmuB (double R, double Theta){ // gg, htil and derivatives gg0Num = c0 + c1*(1-Theta*Theta) + c2*(1-Theta*Theta)*(1-Theta*Theta) + c3*(1-Theta*Theta)*(1-Theta*Theta)*(1-Theta*Theta); gg1Num = - 2*c1*Theta - 4*c2*Theta*(1-Theta*Theta) - 6*c3*Theta*(1-Theta*Theta)*(1-Theta*Theta); htil0Num = Theta + A*Theta*Theta*Theta + B*Theta*Theta*Theta*Theta*Theta; htil1Num = 1 + 3*A*Theta*Theta + 5*B*Theta*Theta*Theta*Theta; // Derivatives of G wrt R, Theta dGdRNum = h0*M0*(2-alpha)*pow(R,1.0-alpha)*(gg0Num - Theta*htil0Num); dGdThetaNum = h0*M0*pow(R,2.0-alpha)*(gg1Num - htil0Num - Theta*htil1Num); // Derivatives of Theta wrt R and vice versa at constant r,h dThetadRConhNum = -beta*delta*htil0Num/(R*htil1Num); dRdThetaConhNum = -R*htil1Num/(beta*delta*htil0Num); dThetadRConrNum = (1-Theta*Theta)/(2*Theta*R); dRdThetaConrNum = 2*Theta*R/(1-Theta*Theta); // Derivatives of r,h wrt R,Theta drdRConhNum = 1 - Theta*Theta - 2*R*Theta*dThetadRConhNum; drdThetaConhNum = - 2*Theta*R + (1-Theta*Theta)*dRdThetaConhNum; dhdRConrNum = beta*delta*h0*pow(R,- 1 + beta*delta)*htil0Num + h0*pow(R,beta*delta)*htil1Num*dThetadRConrNum; dhdThetaConrNum = beta*delta*h0*pow(R,- 1 + beta*delta)*htil0Num*dRdThetaConrNum + h0*pow(R,beta*delta)*htil1Num; // Derivatives of R,Theta wrt r,h dRdrConhNum = 1./drdRConhNum; dThetadrConhNum = 1./drdThetaConhNum; dRdhConrNum = 1./dhdRConrNum; dThetadhConrNum = 1./dhdThetaConrNum; // Derivatives of G wrt r,h dGdrConhNum = dGdRNum*dRdrConhNum + dGdThetaNum*dThetadrConhNum; dGdhConrNum = dGdRNum*dRdhConrNum + dGdThetaNum*dThetadhConrNum; // Finally, derivative of G wrt muB return dGdrConhNum*drdT + dGdhConrNum*dhdT; } /*}}}*/ // --------- CHI2 WRT MU -------- // /*{{{*/ double d2GdmuB2ConT(double R, double Theta){ // gg, htil and derivatives gg0Num = c0 + c1*(1-Theta*Theta) + c2*(1-Theta*Theta)*(1-Theta*Theta) + c3*(1-Theta*Theta)*(1-Theta*Theta)*(1-Theta*Theta); gg1Num = - 2*c1*Theta - 4*c2*Theta*(1-Theta*Theta) - 6*c3*Theta*(1-Theta*Theta)*(1-Theta*Theta); gg2Num = - 2*c1 + c2*(8*Theta*Theta - 4*(1-Theta*Theta)) + c3*(24*Theta*Theta*(1-Theta*Theta) - 6*(1-Theta*Theta)*(1-Theta*Theta)); htil0Num = Theta + A*Theta*Theta*Theta + B*Theta*Theta*Theta*Theta*Theta; htil1Num = 1 + 3*A*Theta*Theta + 5*B*Theta*Theta*Theta*Theta; htil2Num = 6*A*Theta + 20*B*Theta*Theta*Theta; // Derivatives of G wrt R, Theta d2GdR2Num = h0*M0*(2-alpha)*(1-alpha)*pow(R,-alpha)*(gg0Num - Theta*htil0Num); d2GdTheta2Num = h0*M0*pow(R,2.0-alpha)*(gg2Num - 2*htil1Num - Theta*htil2Num); d2GdRdThetaNum = h0*M0*(2-alpha)*pow(R,1.0-alpha)*(gg1Num - htil0Num - Theta*htil1Num); dGdRNum = h0*M0*(2-alpha)*pow(R,1.0-alpha)*(gg0Num - Theta*htil0Num); dGdThetaNum = h0*M0*pow(R,2.0-alpha)*(gg1Num - Theta*htil1Num - htil0Num); // Derivatives of Theta wrt R and vice versa at constant r,h dThetadRConhNum = -beta*delta*htil0Num/(R*htil1Num); dRdThetaConhNum = -R*htil1Num/(beta*delta*htil0Num); dThetadRConrNum = (1-Theta*Theta)/(2*Theta*R); dRdThetaConrNum = 2*Theta*R/(1-Theta*Theta); // Derivatives of r,h wrt R,Theta drdRConhNum = 1 - Theta*Theta - 2*R*Theta*dThetadRConhNum; drdThetaConhNum = - 2*Theta*R + (1-Theta*Theta)*dRdThetaConhNum; dhdRConrNum = beta*delta*h0*pow(R,- 1 + beta*delta)*htil0Num + h0*pow(R,beta*delta)*htil1Num*dThetadRConrNum; dhdThetaConrNum = beta*delta*h0*pow(R,- 1 + beta*delta)*htil0Num*dRdThetaConrNum + h0*pow(R,beta*delta)*htil1Num; d2rdR2ConhNum = 2*beta*delta*htil0Num/(R*htil1Num*htil1Num*htil1Num)*(htil1Num*(Theta*htil1Num - beta*delta*(htil0Num + Theta*htil1Num)) + beta*delta*Theta*htil0Num*htil2Num); d2rdTheta2ConhNum = R/(beta*beta*delta*delta*htil0Num*htil0Num)*(- 2*beta*beta*delta*delta*htil0Num*htil0Num - (-1+Theta*Theta)*htil1Num*(htil1Num + beta*delta*htil1Num) + beta*delta*htil0Num*(4*Theta*htil1Num + (-1+Theta*Theta)*htil2Num)); d2hdR2ConrNum = h0*pow(R,- 2 + beta*delta)/(4*Theta*Theta*Theta)*(4*beta*delta*(- 1 + beta*delta)*Theta*Theta*Theta *htil0Num + (-1+Theta*Theta)*((1 + (3 - 4*beta*delta)*Theta*Theta)*htil1Num + Theta*(-1+Theta*Theta)*htil2Num)); d2hdTheta2ConrNum = h0*pow(R,beta*delta)/((-1+Theta*Theta)*(-1+Theta*Theta))*(2*beta*delta*(1 + (1 + 2*beta*delta) *Theta*Theta)*htil0Num + (-1+Theta*Theta)*(- 4*beta*delta*Theta*htil1Num + (-1+Theta*Theta)*htil2Num)); // Derivatives of R,Theta wrt r,h dRdrConhNum = 1./drdRConhNum; dThetadrConhNum = 1./drdThetaConhNum; dRdhConrNum = 1./dhdRConrNum; dThetadhConrNum = 1./dhdThetaConrNum; d2Rdr2ConhNum = - d2rdR2ConhNum*dRdrConhNum*dRdrConhNum*dRdrConhNum; d2Thetadr2ConhNum = - d2rdTheta2ConhNum*dThetadrConhNum*dThetadrConhNum*dThetadrConhNum; d2Rdh2ConrNum = - d2hdR2ConrNum*dRdhConrNum*dRdhConrNum*dRdhConrNum; d2Thetadh2ConrNum = - d2hdTheta2ConrNum*dThetadhConrNum*dThetadhConrNum*dThetadhConrNum; d2RdrdhNum = pow(R, - beta*delta)*(2*(- 1 + beta*delta)*Theta*(-1+Theta*Theta)*htil1Num*htil1Num - 2*beta*delta*htil0Num*(htil1Num + Theta*(2*(- 1 + beta*delta)*Theta*htil1Num + (1 - 2*beta*delta)*Theta*htil1Num + (-1+Theta*Theta)*htil2Num)))/(h0*(2*beta*delta*Theta*htil0Num + htil1Num - Theta*Theta*htil1Num)*(- 2*beta*delta*Theta*htil0Num + (-1+Theta*Theta)*htil1Num) *(- 2*beta*delta*Theta*htil0Num + (-1+Theta*Theta)*htil1Num)); d2ThetadrdhNum = beta*delta*pow(R,- 1 - beta*delta)*(2*beta*delta*(1+Theta*Theta)*htil0Num*htil0Num - (-1+Theta*Theta)*(-1+Theta*Theta)*htil1Num*htil1Num + (-1+Theta*Theta)*htil0Num *(-1+Theta*Theta)*htil2Num)/(h0*(2*beta*delta*Theta*htil0Num + htil1Num - Theta*Theta*htil1Num)*(- 2*beta*delta*Theta*htil0Num + (-1+Theta*Theta)*htil1Num) *(- 2*beta*delta*Theta*htil0Num + (-1+Theta*Theta)*htil1Num)); // Derivatives of G wrt r,h d2Gdr2ConhNum = d2GdR2Num*dRdrConhNum*dRdrConhNum + d2GdTheta2Num*dThetadrConhNum*dThetadrConhNum + 2*d2GdRdThetaNum*dRdrConhNum*dThetadrConhNum + dGdRNum*d2Rdr2ConhNum + dGdThetaNum*d2Thetadr2ConhNum; d2Gdh2ConrNum = d2GdR2Num*dRdhConrNum*dRdhConrNum + d2GdTheta2Num*dThetadhConrNum*dThetadhConrNum + 2*d2GdRdThetaNum*dRdhConrNum*dThetadhConrNum + dGdRNum*d2Rdh2ConrNum + dGdThetaNum*d2Thetadh2ConrNum; d2GdrdhNum = d2GdR2Num*dRdhConrNum*dRdrConhNum + d2GdTheta2Num*dThetadhConrNum*dThetadrConhNum + d2GdRdThetaNum*(dRdhConrNum*dThetadrConhNum + dRdrConhNum*dThetadhConrNum) + dGdRNum*d2RdrdhNum + dGdThetaNum*d2ThetadrdhNum; // Finally, derivative of G wrt muB return d2Gdr2ConhNum*drdmuB*drdmuB + d2Gdh2ConrNum*dhdmuB*dhdmuB + 2*d2GdrdhNum*drdmuB*dhdmuB; } /*}}}*/ // --------- CHI2 WRT T --------- // /*{{{*/ double d2GdT2ConmuB(double R, double Theta){ // gg, htil and derivatives gg0Num = c0 + c1*(1-Theta*Theta) + c2*(1-Theta*Theta)*(1-Theta*Theta) + c3*(1-Theta*Theta)*(1-Theta*Theta)*(1-Theta*Theta); gg1Num = - 2*c1*Theta - 4*c2*Theta*(1-Theta*Theta) - 6*c3*Theta*(1-Theta*Theta)*(1-Theta*Theta); gg2Num = - 2*c1 + c2*(8*Theta*Theta - 4*(1-Theta*Theta)) + c3*(24*Theta*Theta*(1-Theta*Theta) - 6*(1-Theta*Theta)*(1-Theta*Theta)); htil0Num = Theta + A*Theta*Theta*Theta + B*Theta*Theta*Theta*Theta*Theta; htil1Num = 1 + 3*A*Theta*Theta + 5*B*Theta*Theta*Theta*Theta; htil2Num = 6*A*Theta + 20*B*Theta*Theta*Theta; // Derivatives of G wrt R, Theta d2GdR2Num = h0*M0*(2-alpha)*(1-alpha)*pow(R,-alpha)*(gg0Num - Theta*htil0Num); d2GdTheta2Num = h0*M0*pow(R,2.0-alpha)*(gg2Num - 2*htil1Num - Theta*htil2Num); d2GdRdThetaNum = h0*M0*(2-alpha)*pow(R,1.0-alpha)*(gg1Num - htil0Num - Theta*htil1Num); dGdRNum = h0*M0*(2-alpha)*pow(R,1.0-alpha)*(gg0Num - Theta*htil0Num); dGdThetaNum = h0*M0*pow(R,2.0-alpha)*(gg1Num - Theta*htil1Num - htil0Num); // Derivatives of Theta wrt R and vice versa at constant r,h dThetadRConhNum = -beta*delta*htil0Num/(R*htil1Num); dRdThetaConhNum = -R*htil1Num/(beta*delta*htil0Num); dThetadRConrNum = (1-Theta*Theta)/(2*Theta*R); dRdThetaConrNum = 2*Theta*R/(1-Theta*Theta); // Derivatives of r,h wrt R,Theta drdRConhNum = 1 - Theta*Theta - 2*R*Theta*dThetadRConhNum; drdThetaConhNum = - 2*Theta*R + (1-Theta*Theta)*dRdThetaConhNum; dhdRConrNum = beta*delta*h0*pow(R,- 1 + beta*delta)*htil0Num + h0*pow(R,beta*delta)*htil1Num*dThetadRConrNum; dhdThetaConrNum = beta*delta*h0*pow(R,- 1 + beta*delta)*htil0Num*dRdThetaConrNum + h0*pow(R,beta*delta)*htil1Num; d2rdR2ConhNum = 2*beta*delta*htil0Num/(R*htil1Num*htil1Num*htil1Num)*(htil1Num*(Theta*htil1Num - beta*delta*(htil0Num + Theta*htil1Num)) + beta*delta*Theta*htil0Num*htil2Num); d2rdTheta2ConhNum = R/(beta*beta*delta*delta*htil0Num*htil0Num)*(- 2*beta*beta*delta*delta*htil0Num*htil0Num - (-1+Theta*Theta)*htil1Num*(htil1Num + beta*delta*htil1Num) + beta*delta*htil0Num*(4*Theta*htil1Num + (-1+Theta*Theta)*htil2Num)); d2hdR2ConrNum = h0*pow(R,- 2 + beta*delta)/(4*Theta*Theta*Theta)*(4*beta*delta*(- 1 + beta*delta)*Theta*Theta*Theta *htil0Num + (-1+Theta*Theta)*((1 + (3 - 4*beta*delta)*Theta*Theta)*htil1Num + Theta*(-1+Theta*Theta)*htil2Num)); d2hdTheta2ConrNum = h0*pow(R,beta*delta)/((-1+Theta*Theta)*(-1+Theta*Theta))*(2*beta*delta*(1 + (1 + 2*beta*delta) *Theta*Theta)*htil0Num + (-1+Theta*Theta)*(- 4*beta*delta*Theta*htil1Num + (-1+Theta*Theta)*htil2Num)); // Derivatives of R,Theta wrt r,h dRdrConhNum = 1./drdRConhNum; dThetadrConhNum = 1./drdThetaConhNum; dRdhConrNum = 1./dhdRConrNum; dThetadhConrNum = 1./dhdThetaConrNum; d2Rdr2ConhNum = - d2rdR2ConhNum*dRdrConhNum*dRdrConhNum*dRdrConhNum; d2Thetadr2ConhNum = - d2rdTheta2ConhNum*dThetadrConhNum*dThetadrConhNum*dThetadrConhNum; d2Rdh2ConrNum = - d2hdR2ConrNum*dRdhConrNum*dRdhConrNum*dRdhConrNum; d2Thetadh2ConrNum = - d2hdTheta2ConrNum*dThetadhConrNum*dThetadhConrNum*dThetadhConrNum; d2RdrdhNum = pow(R, - beta*delta)*(2*(- 1 + beta*delta)*Theta*(-1+Theta*Theta)*htil1Num*htil1Num - 2*beta*delta*htil0Num*(htil1Num + Theta*(2*(- 1 + beta*delta)*Theta*htil1Num + (1 - 2*beta*delta)*Theta*htil1Num + (-1+Theta*Theta)*htil2Num)))/(h0*(2*beta*delta*Theta*htil0Num + htil1Num - Theta*Theta*htil1Num)*(- 2*beta*delta*Theta*htil0Num + (-1+Theta*Theta)*htil1Num) *(- 2*beta*delta*Theta*htil0Num + (-1+Theta*Theta)*htil1Num)); d2ThetadrdhNum = beta*delta*pow(R,- 1 - beta*delta)*(2*beta*delta*(1+Theta*Theta)*htil0Num*htil0Num - (-1+Theta*Theta)*(-1+Theta*Theta)*htil1Num*htil1Num + (-1+Theta*Theta)*htil0Num *(-1+Theta*Theta)*htil2Num)/(h0*(2*beta*delta*Theta*htil0Num + htil1Num - Theta*Theta*htil1Num)*(- 2*beta*delta*Theta*htil0Num + (-1+Theta*Theta)*htil1Num) *(- 2*beta*delta*Theta*htil0Num + (-1+Theta*Theta)*htil1Num)); // Derivatives of G wrt r,h d2Gdr2ConhNum = d2GdR2Num*dRdrConhNum*dRdrConhNum + d2GdTheta2Num*dThetadrConhNum*dThetadrConhNum + 2*d2GdRdThetaNum*dRdrConhNum*dThetadrConhNum + dGdRNum*d2Rdr2ConhNum + dGdThetaNum*d2Thetadr2ConhNum; d2Gdh2ConrNum = d2GdR2Num*dRdhConrNum*dRdhConrNum + d2GdTheta2Num*dThetadhConrNum*dThetadhConrNum + 2*d2GdRdThetaNum*dRdhConrNum*dThetadhConrNum + dGdRNum*d2Rdh2ConrNum + dGdThetaNum*d2Thetadh2ConrNum; d2GdrdhNum = d2GdR2Num*dRdhConrNum*dRdrConhNum + d2GdTheta2Num*dThetadhConrNum*dThetadrConhNum + d2GdRdThetaNum*(dRdhConrNum*dThetadrConhNum + dRdrConhNum*dThetadhConrNum) + dGdRNum*d2RdrdhNum + dGdThetaNum*d2ThetadrdhNum; // Finally, derivative of G wrt muB return d2Gdr2ConhNum*drdT*drdT + d2Gdh2ConrNum*dhdT*dhdT + 2*d2GdrdhNum*drdT*dhdT; } /*}}}*/ // --------- CHI2 WRT T,MU ------ // /*{{{*/ double d2GdTdmuB(double R, double Theta){ // gg, htil and derivatives gg0Num = c0 + c1*(1-Theta*Theta) + c2*(1-Theta*Theta)*(1-Theta*Theta) + c3*(1-Theta*Theta)*(1-Theta*Theta)*(1-Theta*Theta); gg1Num = - 2*c1*Theta - 4*c2*Theta*(1-Theta*Theta) - 6*c3*Theta*(1-Theta*Theta)*(1-Theta*Theta); gg2Num = - 2*c1 + c2*(8*Theta*Theta - 4*(1-Theta*Theta)) + c3*(24*Theta*Theta*(1-Theta*Theta) - 6*(1-Theta*Theta)*(1-Theta*Theta)); htil0Num = Theta + A*Theta*Theta*Theta + B*Theta*Theta*Theta*Theta*Theta; htil1Num = 1 + 3*A*Theta*Theta + 5*B*Theta*Theta*Theta*Theta; htil2Num = 6*A*Theta + 20*B*Theta*Theta*Theta; // Derivatives of G wrt R, Theta d2GdR2Num = h0*M0*(2-alpha)*(1-alpha)*pow(R,-alpha)*(gg0Num - Theta*htil0Num); d2GdTheta2Num = h0*M0*pow(R,2.0-alpha)*(gg2Num - 2*htil1Num - Theta*htil2Num); d2GdRdThetaNum = h0*M0*(2-alpha)*pow(R,1.0-alpha)*(gg1Num - htil0Num - Theta*htil1Num); dGdRNum = h0*M0*(2-alpha)*pow(R,1.0-alpha)*(gg0Num - Theta*htil0Num); dGdThetaNum = h0*M0*pow(R,2.0-alpha)*(gg1Num - Theta*htil1Num - htil0Num); // Derivatives of Theta wrt R and vice versa at constant r,h dThetadRConhNum = -beta*delta*htil0Num/(R*htil1Num); dRdThetaConhNum = -R*htil1Num/(beta*delta*htil0Num); dThetadRConrNum = (1-Theta*Theta)/(2*Theta*R); dRdThetaConrNum = 2*Theta*R/(1-Theta*Theta); // Derivatives of r,h wrt R,Theta drdRConhNum = 1 - Theta*Theta - 2*R*Theta*dThetadRConhNum; drdThetaConhNum = - 2*Theta*R + (1-Theta*Theta)*dRdThetaConhNum; dhdRConrNum = beta*delta*h0*pow(R,- 1 + beta*delta)*htil0Num + h0*pow(R,beta*delta)*htil1Num*dThetadRConrNum; dhdThetaConrNum = beta*delta*h0*pow(R,- 1 + beta*delta)*htil0Num*dRdThetaConrNum + h0*pow(R,beta*delta)*htil1Num; d2rdR2ConhNum = 2*beta*delta*htil0Num/(R*htil1Num*htil1Num*htil1Num)*(htil1Num*(Theta*htil1Num - beta*delta*(htil0Num + Theta*htil1Num)) + beta*delta*Theta*htil0Num*htil2Num); d2rdTheta2ConhNum = R/(beta*beta*delta*delta*htil0Num*htil0Num)*(- 2*beta*beta*delta*delta*htil0Num*htil0Num - (-1+Theta*Theta)*htil1Num*(htil1Num + beta*delta*htil1Num) + beta*delta*htil0Num*(4*Theta*htil1Num + (-1+Theta*Theta)*htil2Num)); d2hdR2ConrNum = h0*pow(R,- 2 + beta*delta)/(4*Theta*Theta*Theta)*(4*beta*delta*(- 1 + beta*delta)*Theta*Theta*Theta *htil0Num + (-1+Theta*Theta)*((1 + (3 - 4*beta*delta)*Theta*Theta)*htil1Num + Theta*(-1+Theta*Theta)*htil2Num)); d2hdTheta2ConrNum = h0*pow(R,beta*delta)/((-1+Theta*Theta)*(-1+Theta*Theta))*(2*beta*delta*(1 + (1 + 2*beta*delta) *Theta*Theta)*htil0Num + (-1+Theta*Theta)*(- 4*beta*delta*Theta*htil1Num + (-1+Theta*Theta)*htil2Num)); // Derivatives of R,Theta wrt r,h dRdrConhNum = 1./drdRConhNum; dThetadrConhNum = 1./drdThetaConhNum; dRdhConrNum = 1./dhdRConrNum; dThetadhConrNum = 1./dhdThetaConrNum; d2Rdr2ConhNum = - d2rdR2ConhNum*dRdrConhNum*dRdrConhNum*dRdrConhNum; d2Thetadr2ConhNum = - d2rdTheta2ConhNum*dThetadrConhNum*dThetadrConhNum*dThetadrConhNum; d2Rdh2ConrNum = - d2hdR2ConrNum*dRdhConrNum*dRdhConrNum*dRdhConrNum; d2Thetadh2ConrNum = - d2hdTheta2ConrNum*dThetadhConrNum*dThetadhConrNum*dThetadhConrNum; d2RdrdhNum = pow(R, - beta*delta)*(2*(- 1 + beta*delta)*Theta*(-1+Theta*Theta)*htil1Num*htil1Num - 2*beta*delta*htil0Num*(htil1Num + Theta*(2*(- 1 + beta*delta)*Theta*htil1Num + (1 - 2*beta*delta)*Theta*htil1Num + (-1+Theta*Theta)*htil2Num)))/(h0*(2*beta*delta*Theta*htil0Num + htil1Num - Theta*Theta*htil1Num)*(- 2*beta*delta*Theta*htil0Num + (-1+Theta*Theta)*htil1Num) *(- 2*beta*delta*Theta*htil0Num + (-1+Theta*Theta)*htil1Num)); d2ThetadrdhNum = beta*delta*pow(R,- 1 - beta*delta)*(2*beta*delta*(1+Theta*Theta)*htil0Num*htil0Num - (-1+Theta*Theta)*(-1+Theta*Theta)*htil1Num*htil1Num + (-1+Theta*Theta)*htil0Num *(-1+Theta*Theta)*htil2Num)/(h0*(2*beta*delta*Theta*htil0Num + htil1Num - Theta*Theta*htil1Num)*(- 2*beta*delta*Theta*htil0Num + (-1+Theta*Theta)*htil1Num) *(- 2*beta*delta*Theta*htil0Num + (-1+Theta*Theta)*htil1Num)); // Derivatives of G wrt r,h d2Gdr2ConhNum = d2GdR2Num*dRdrConhNum*dRdrConhNum + d2GdTheta2Num*dThetadrConhNum*dThetadrConhNum + 2*d2GdRdThetaNum*dRdrConhNum*dThetadrConhNum + dGdRNum*d2Rdr2ConhNum + dGdThetaNum*d2Thetadr2ConhNum; d2Gdh2ConrNum = d2GdR2Num*dRdhConrNum*dRdhConrNum + d2GdTheta2Num*dThetadhConrNum*dThetadhConrNum + 2*d2GdRdThetaNum*dRdhConrNum*dThetadhConrNum + dGdRNum*d2Rdh2ConrNum + dGdThetaNum*d2Thetadh2ConrNum; d2GdrdhNum = d2GdR2Num*dRdhConrNum*dRdrConhNum + d2GdTheta2Num*dThetadhConrNum*dThetadrConhNum + d2GdRdThetaNum*(dRdhConrNum*dThetadrConhNum + dRdrConhNum*dThetadhConrNum) + dGdRNum*d2RdrdhNum + dGdThetaNum*d2ThetadrdhNum; // Finally, derivative of G wrt muB return d2Gdr2ConhNum*drdT*drdmuB + d2Gdh2ConrNum*dhdT*dhdmuB + d2GdrdhNum*(drdT*dhdmuB + drdmuB*dhdT); } /*}}}*/ // --------- CHI3 WRT MU -------- // /*{{{*/ double d3GdmuB3ConT(double R, double Th){ // gg, htil and derivatives g0 = h0*M0; htilnum = Th + A*pow(Th,3) + B*pow(Th,5); htilprimenum = 1 + 3*A*pow(Th,2) + 5*B*pow(Th,4); htilsecondnum = 6*A*Th + 20*B*pow(Th,3); htilthirdnum = 6*A + 60*B*pow(Th,2); m1Th2 = 1 - pow(Th,2); ggnum = c0 + c1*m1Th2 + c2*pow(m1Th2,2) + c3*pow(m1Th2,3); ggprimenum = -2*c1*Th - 4*c2*Th*m1Th2 - 6*c3*Th*pow(m1Th2,2); ggsecondnum = -2*c1 + 8*c2*pow(Th,2) - 4*c2*m1Th2 + 24*c3*pow(Th,2)*m1Th2 - 6*c3*pow(m1Th2,2); ggthirdnum = 24*c2*Th + c3*(- 48*pow(Th,3) + 72*Th*m1Th2); tau = pow(R,beta*delta); ggamma = pow(R,-1 + beta*delta); omega = pow(R,beta + beta*delta); omegap = beta + beta*delta; ggammap = -1 + beta*delta; zeta = pow(R,2 - alpha); zetap = 2 - alpha; Th2 = pow(Th,2); R1malpha = pow(R,1 - alpha); R1momegap = pow(R,-1 + omegap); // Derivatives of G wrt r,h d3Gdr3ConhNum = (((-((1 - alpha)*zetap*alpha*g0*pow(R,-1 - alpha)*ggnum) - (-2 + beta + beta*delta)*(-1 + beta + beta*delta)*omegap*g0*pow(R,-3 + beta + beta*delta)*Th*htilnum)/ (1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum) + (-((-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*htilnum) + ((1 - alpha)*zetap*g0*ggprimenum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilprimenum)/ (-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum)) - (2*(-2*Th - (m1Th2*htilprimenum)/(beta*delta*htilnum))* (-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2) + (2*pow(-2*Th - (m1Th2*htilprimenum)/(beta*delta*htilnum),2)*(-(g0*omega*htilnum) + g0*pow(R,2 - alpha)*ggprimenum - g0*omega*Th*htilprimenum))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),3))/(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum) + ((-((-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*htilnum) + ((1 - alpha)*zetap*g0*ggprimenum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilprimenum)/(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum) - ((-(g0*omega*htilnum) + g0*pow(R,2 - alpha)*ggprimenum - g0*omega*Th*htilprimenum)* (-2 + (2*Th*htilprimenum)/(beta*delta*htilnum) + (m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (m1Th2*htilsecondnum)/(beta*delta*htilnum)))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2) - ((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)* (-2*R + (2*R*Th*htilprimenum)/(beta*delta*htilnum) + (R*m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (R*m1Th2*htilsecondnum)/(beta*delta*htilnum)))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2) + (2*(-2*Th - (m1Th2*htilprimenum)/(beta*delta*htilnum))*(-(g0*omega*htilnum) + g0*pow(R,2 - alpha)*ggprimenum - g0*omega*Th*htilprimenum)*(-2*R + (2*R*Th*htilprimenum)/(beta*delta*htilnum) + (R*m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (R*m1Th2*htilsecondnum)/(beta*delta*htilnum)))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),3) - ((((1 - alpha)*zetap*g0*ggnum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilnum)* (-2*Th + (2*beta*delta*htilnum)/htilprimenum + (2*beta*delta*Th*htilprimenum)/htilprimenum - (2*beta*delta*Th*htilnum*htilsecondnum)/pow(htilprimenum,2)))/ pow(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum,2) + (-2*omegap*g0*R1momegap*htilprimenum + zetap*g0*R1malpha*ggsecondnum - omegap*g0*R1momegap*Th*htilsecondnum)/ (-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum)) - ((-2*Th - (m1Th2*htilprimenum)/(beta*delta*htilnum))* (-2*g0*omega*htilprimenum + g0*pow(R,2 - alpha)*ggsecondnum - g0*omega*Th*htilsecondnum))/ pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2))/(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum)) - ((-2*Th - (m1Th2*htilprimenum)/(beta*delta*htilnum))*((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)/(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum) - ((-(g0*omega*htilnum) + g0*pow(R,2 - alpha)*ggprimenum - g0*omega*Th*htilprimenum)* (-2*R + (2*R*Th*htilprimenum)/(beta*delta*htilnum) + (R*m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (R*m1Th2*htilsecondnum)/(beta*delta*htilnum)))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (-2*Th + (2*beta*delta*htilnum)/htilprimenum + (2*beta*delta*Th*htilprimenum)/htilprimenum - (2*beta*delta*Th*htilnum*htilsecondnum)/pow(htilprimenum,2)))/ pow(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum,2) + (-2*g0*omega*htilprimenum + g0*pow(R,2 - alpha)*ggsecondnum - g0*omega*Th*htilsecondnum)/(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum))))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2)) /(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum) + (-((((((1 - alpha)*zetap*g0*ggnum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilnum)/(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum) + (-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)/(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum)) - ((-2*Th - (m1Th2*htilprimenum)/(beta*delta*htilnum))*(-(g0*omega*htilnum) + g0*pow(R,2 - alpha)*ggprimenum - g0*omega*Th*htilprimenum))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2))* (-2*Th + (2*beta*delta*htilnum)/htilprimenum + (2*beta*delta*Th*htilprimenum)/htilprimenum - (2*beta*delta*Th*htilnum*htilsecondnum)/pow(htilprimenum,2)))/ pow(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum,2)) + ((-((-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*htilnum) + ((1 - alpha)*zetap*g0*ggprimenum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilprimenum)/ (1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum) - ((-(g0*omega*htilnum) + g0*pow(R,2 - alpha)*ggprimenum - g0*omega*Th*htilprimenum)*(-2 + (2*Th*htilprimenum)/(beta*delta*htilnum) + (m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (m1Th2*htilsecondnum)/(beta*delta*htilnum)))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2) - ((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)* (-2*R + (2*R*Th*htilprimenum)/(beta*delta*htilnum) + (R*m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (R*m1Th2*htilsecondnum)/(beta*delta*htilnum)))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2) + (2*(-2*Th - (m1Th2*htilprimenum)/(beta*delta*htilnum))*(-(g0*omega*htilnum) + g0*pow(R,2 - alpha)*ggprimenum - g0*omega*Th*htilprimenum)*(-2*R + (2*R*Th*htilprimenum)/(beta*delta*htilnum) + (R*m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (R*m1Th2*htilsecondnum)/(beta*delta*htilnum)))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),3) - ((((1 - alpha)*zetap*g0*ggnum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilnum)* (-2*Th + (2*beta*delta*htilnum)/htilprimenum + (2*beta*delta*Th*htilprimenum)/htilprimenum - (2*beta*delta*Th*htilnum*htilsecondnum)/pow(htilprimenum,2)))/ pow(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum,2) + (-2*omegap*g0*R1momegap*htilprimenum + zetap*g0*R1malpha*ggsecondnum - omegap*g0*R1momegap*Th*htilsecondnum)/ (-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum)) - ((-2*Th - (m1Th2*htilprimenum)/(beta*delta*htilnum))* (-2*g0*omega*htilprimenum + g0*pow(R,2 - alpha)*ggsecondnum - g0*omega*Th*htilsecondnum))/ pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2))/(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum) - ((-2*R + (2*R*Th*htilprimenum)/(beta*delta*htilnum) + (R*m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (R*m1Th2*htilsecondnum)/(beta*delta*htilnum))*((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)/(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum) - ((-(g0*omega*htilnum) + g0*pow(R,2 - alpha)*ggprimenum - g0*omega*Th*htilprimenum)* (-2*R + (2*R*Th*htilprimenum)/(beta*delta*htilnum) + (R*m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (R*m1Th2*htilsecondnum)/(beta*delta*htilnum)))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (-2*Th + (2*beta*delta*htilnum)/htilprimenum + (2*beta*delta*Th*htilprimenum)/htilprimenum - (2*beta*delta*Th*htilnum*htilsecondnum)/pow(htilprimenum,2)))/ pow(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum,2) + (-2*g0*omega*htilprimenum + g0*pow(R,2 - alpha)*ggsecondnum - g0*omega*Th*htilsecondnum)/(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum))))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2)\ + ((2*(-(g0*omega*htilnum) + g0*pow(R,2 - alpha)*ggprimenum - g0*omega*Th*htilprimenum)* pow(-2*R + (2*R*Th*htilprimenum)/(beta*delta*htilnum) + (R*m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (R*m1Th2*htilsecondnum)/(beta*delta*htilnum),2))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),3) - (2*(-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)* (-2*Th + (2*beta*delta*htilnum)/htilprimenum + (2*beta*delta*Th*htilprimenum)/htilprimenum - (2*beta*delta*Th*htilnum*htilsecondnum)/pow(htilprimenum,2)))/ pow(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum,2) + (2*(zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* pow(-2*Th + (2*beta*delta*htilnum)/htilprimenum + (2*beta*delta*Th*htilprimenum)/htilprimenum - (2*beta*delta*Th*htilnum*htilsecondnum)/pow(htilprimenum,2),2))/ pow(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum,3) + (-2*omegap*g0*R1momegap*htilprimenum + zetap*g0*R1malpha*ggsecondnum - omegap*g0*R1momegap*Th*htilsecondnum)/(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum) - (2*(-2*R + (2*R*Th*htilprimenum)/(beta*delta*htilnum) + (R*m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (R*m1Th2*htilsecondnum)/(beta*delta*htilnum))*(-2*g0*omega*htilprimenum + g0*pow(R,2 - alpha)*ggsecondnum - g0*omega*Th*htilsecondnum))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2) - ((-(g0*omega*htilnum) + g0*pow(R,2 - alpha)*ggprimenum - g0*omega*Th*htilprimenum)* ((2*R*htilprimenum)/(beta*delta*htilnum) - (4*R*Th*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (2*R*m1Th2*htilprimenum*pow(htilprimenum,2))/(beta*delta*pow(htilnum,3)) + (4*R*Th*htilsecondnum)/(beta*delta*htilnum) + (2*R*m1Th2*htilprimenum*htilsecondnum)/(beta*delta*pow(htilnum,2)) + (R*m1Th2*htilprimenum*htilsecondnum)/(beta*delta*pow(htilnum,2)) - (R*m1Th2*htilthirdnum)/(beta*delta*htilnum)))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (-2 + (4*beta*delta*htilprimenum)/htilprimenum - (4*beta*delta*htilnum*htilsecondnum)/pow(htilprimenum,2) - (4*beta*delta*Th*htilprimenum*htilsecondnum)/pow(htilprimenum,2) + (4*beta*delta*Th*htilnum*pow(htilsecondnum,2))/pow(htilprimenum,3) + (2*beta*delta*Th*htilsecondnum)/htilprimenum - (2*beta*delta*Th*htilnum*htilthirdnum)/pow(htilprimenum,2)))/pow(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum,2) + (-3*g0*omega*htilsecondnum + g0*pow(R,2 - alpha)*ggthirdnum - g0*omega*Th*htilthirdnum)/ (-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum)))/(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum)))/(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum)); d3Gdh3ConrNum = (((-((-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*htilnum) + ((1 - alpha)*zetap*g0*ggprimenum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilprimenum)/ ((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum) - (2*((2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilnum)/m1Th2 + beta*delta*h0*ggamma*htilprimenum)* (-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) - (((2*pow(beta,2)*pow(delta,2)*ggammap*h0*pow(R,-2 + beta*delta)*Th*htilnum)/m1Th2 + beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilprimenum)* (-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) + (2*pow((2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilnum)/m1Th2 + beta*delta*h0*ggamma*htilprimenum,2)* (-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,3) + (2*(zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* pow(beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilnum + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*Th),2))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),3) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (beta*delta*(-2 + beta*delta)*ggammap*h0*pow(R,-3 + beta*delta)*htilnum + ((-2 + beta*delta)*ggammap*h0*pow(R,-3 + beta*delta)*m1Th2*htilprimenum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2) - (2*(((1 - alpha)*zetap*g0*ggnum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilnum)* (beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilnum + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2) + (-((1 - alpha)*zetap*alpha*g0*pow(R,-1 - alpha)*ggnum) - (-2 + beta + beta*delta)*(-1 + beta + beta*delta)*omegap*g0*pow(R,-3 + beta + beta*delta)*Th*htilnum)/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th)))/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th)) - ((beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilnum + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*Th))* ((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)/((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum) - (((2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilnum)/m1Th2 + beta*delta*h0*ggamma*htilprimenum)* (-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilnum + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2) + (((1 - alpha)*zetap*g0*ggnum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilnum)/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th))))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2) + (-(((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)* (beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilnum + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2)) + (-((-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*htilnum) + ((1 - alpha)*zetap*g0*ggprimenum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilprimenum)/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th)) - ((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)* ((4*beta*delta*h0*tau*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*beta*delta*h0*tau*htilnum)/m1Th2 + (2*beta*delta*h0*tau*Th*htilprimenum)/m1Th2 + h0*tau*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) + (2*((2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilnum)/m1Th2 + beta*delta*h0*ggamma*htilprimenum)* (-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* ((4*beta*delta*h0*tau*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*beta*delta*h0*tau*htilnum)/m1Th2 + (2*beta*delta*h0*tau*Th*htilprimenum)/m1Th2 + h0*tau*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,3) - ((-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* ((4*pow(beta,2)*pow(delta,2)*h0*ggamma*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*htilnum)/m1Th2 + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilprimenum)/m1Th2 + beta*delta*h0*ggamma*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) + (-2*omegap*g0*R1momegap*htilprimenum + zetap*g0*R1malpha*ggsecondnum - omegap*g0*R1momegap*Th*htilsecondnum)/((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum) - (((2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilnum)/m1Th2 + beta*delta*h0*ggamma*htilprimenum)* (-2*g0*omega*htilprimenum + g0*zeta*ggsecondnum - g0*omega*Th*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (-(ggammap*h0*pow(R,-2 + beta*delta)*htilprimenum) + beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilprimenum - (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*pow(Th,2)) + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilsecondnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2) + (2*(zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilnum + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*Th))* (-(h0*ggamma*htilprimenum) + beta*delta*h0*ggamma*htilprimenum - (h0*ggamma*m1Th2*htilprimenum)/(2*pow(Th,2)) + (h0*ggamma*m1Th2*htilsecondnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),3) - ((((1 - alpha)*zetap*g0*ggnum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilnum)* (-(h0*ggamma*htilprimenum) + beta*delta*h0*ggamma*htilprimenum - (h0*ggamma*m1Th2*htilprimenum)/(2*pow(Th,2)) + (h0*ggamma*m1Th2*htilsecondnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2))/ ((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum) - (((2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilnum)/m1Th2 + beta*delta*h0*ggamma*htilprimenum)* ((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th)) - ((-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* ((4*beta*delta*h0*tau*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*beta*delta*h0*tau*htilnum)/m1Th2 + (2*beta*delta*h0*tau*Th*htilprimenum)/m1Th2 + h0*tau*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) + (-2*g0*omega*htilprimenum + g0*zeta*ggsecondnum - g0*omega*Th*htilsecondnum)/ ((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (-(h0*ggamma*htilprimenum) + beta*delta*h0*ggamma*htilprimenum - (h0*ggamma*m1Th2*htilprimenum)/(2*pow(Th,2)) + (h0*ggamma*m1Th2*htilsecondnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2)))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2))/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th)) + (-((((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)/((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum) - (((2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilnum)/m1Th2 + beta*delta*h0*ggamma*htilprimenum)* (-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilnum + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2) + (((1 - alpha)*zetap*g0*ggnum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilnum)/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th)))* (-(h0*ggamma*htilprimenum) + beta*delta*h0*ggamma*htilprimenum - (h0*ggamma*m1Th2*htilprimenum)/(2*pow(Th,2)) + (h0*ggamma*m1Th2*htilsecondnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2)) + (-(((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)* (beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilnum + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2)) + (-((-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*htilnum) + ((1 - alpha)*zetap*g0*ggprimenum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilprimenum)/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th)) - ((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)* ((4*beta*delta*h0*tau*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*beta*delta*h0*tau*htilnum)/m1Th2 + (2*beta*delta*h0*tau*Th*htilprimenum)/m1Th2 + h0*tau*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) + (2*((2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilnum)/m1Th2 + beta*delta*h0*ggamma*htilprimenum)* (-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* ((4*beta*delta*h0*tau*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*beta*delta*h0*tau*htilnum)/m1Th2 + (2*beta*delta*h0*tau*Th*htilprimenum)/m1Th2 + h0*tau*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,3) - ((-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* ((4*pow(beta,2)*pow(delta,2)*h0*ggamma*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*htilnum)/m1Th2 + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilprimenum)/m1Th2 + beta*delta*h0*ggamma*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) + (-2*omegap*g0*R1momegap*htilprimenum + zetap*g0*R1malpha*ggsecondnum - omegap*g0*R1momegap*Th*htilsecondnum)/((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum) - (((2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilnum)/m1Th2 + beta*delta*h0*ggamma*htilprimenum)* (-2*g0*omega*htilprimenum + g0*zeta*ggsecondnum - g0*omega*Th*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (-(ggammap*h0*pow(R,-2 + beta*delta)*htilprimenum) + beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilprimenum - (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*pow(Th,2)) + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilsecondnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2) + (2*(zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilnum + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*Th))* (-(h0*ggamma*htilprimenum) + beta*delta*h0*ggamma*htilprimenum - (h0*ggamma*m1Th2*htilprimenum)/(2*pow(Th,2)) + (h0*ggamma*m1Th2*htilsecondnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),3) - ((((1 - alpha)*zetap*g0*ggnum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilnum)* (-(h0*ggamma*htilprimenum) + beta*delta*h0*ggamma*htilprimenum - (h0*ggamma*m1Th2*htilprimenum)/(2*pow(Th,2)) + (h0*ggamma*m1Th2*htilsecondnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2))/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th)) - (((4*beta*delta*h0*tau*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*beta*delta*h0*tau*htilnum)/m1Th2 + (2*beta*delta*h0*tau*Th*htilprimenum)/m1Th2 + h0*tau*htilsecondnum)* ((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th)) - ((-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* ((4*beta*delta*h0*tau*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*beta*delta*h0*tau*htilnum)/m1Th2 + (2*beta*delta*h0*tau*Th*htilprimenum)/m1Th2 + h0*tau*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) + (-2*g0*omega*htilprimenum + g0*zeta*ggsecondnum - g0*omega*Th*htilsecondnum)/ ((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (-(h0*ggamma*htilprimenum) + beta*delta*h0*ggamma*htilprimenum - (h0*ggamma*m1Th2*htilprimenum)/(2*pow(Th,2)) + (h0*ggamma*m1Th2*htilsecondnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2)))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) + ((2*(-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* pow((4*beta*delta*h0*tau*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*beta*delta*h0*tau*htilnum)/m1Th2 + (2*beta*delta*h0*tau*Th*htilprimenum)/m1Th2 + h0*tau*htilsecondnum,2))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,3) + (-2*omegap*g0*R1momegap*htilprimenum + zetap*g0*R1malpha*ggsecondnum - omegap*g0*R1momegap*Th*htilsecondnum)/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th)) - (2*((4*beta*delta*h0*tau*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*beta*delta*h0*tau*htilnum)/m1Th2 + (2*beta*delta*h0*tau*Th*htilprimenum)/m1Th2 + h0*tau*htilsecondnum)* (-2*g0*omega*htilprimenum + g0*zeta*ggsecondnum - g0*omega*Th*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) - (2*(-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)* (-(h0*ggamma*htilprimenum) + beta*delta*h0*ggamma*htilprimenum - (h0*ggamma*m1Th2*htilprimenum)/(2*pow(Th,2)) + (h0*ggamma*m1Th2*htilsecondnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2) + (2*(zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* pow(-(h0*ggamma*htilprimenum) + beta*delta*h0*ggamma*htilprimenum - (h0*ggamma*m1Th2*htilprimenum)/(2*pow(Th,2)) + (h0*ggamma*m1Th2*htilsecondnum)/(2*Th),2))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),3) - ((-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* ((16*beta*delta*h0*tau*pow(Th,3)*htilnum)/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*htilnum)/pow(m1Th2,2) + (8*beta*delta*h0*tau*pow(Th,2)*htilprimenum)/pow(m1Th2,2) + (4*beta*delta*h0*tau*htilprimenum)/m1Th2 + (2*beta*delta*h0*tau*Th*htilsecondnum)/m1Th2 + h0*tau*htilthirdnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) + (-3*g0*omega*htilsecondnum + g0*zeta*ggthirdnum - g0*omega*Th*htilthirdnum)/ ((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* ((h0*ggamma*htilprimenum)/Th + (h0*ggamma*m1Th2*htilprimenum)/pow(Th,3) - 2*h0*ggamma*htilsecondnum + beta*delta*h0*ggamma*htilsecondnum - (h0*ggamma*m1Th2*htilsecondnum)/pow(Th,2) + (h0*ggamma*m1Th2*htilthirdnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2))/ ((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum))/ ((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum); d3Gdr2dhNum = (((-((1 - alpha)*zetap*alpha*g0*pow(R,-1 - alpha)*ggnum) - (-2 + beta + beta*delta)*(-1 + beta + beta*delta)*omegap*g0*pow(R,-3 + beta + beta*delta)*Th*htilnum)/ (1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum) + (-((-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*htilnum) + ((1 - alpha)*zetap*g0*ggprimenum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilprimenum)/ (-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum)) - (2*(-2*Th - (m1Th2*htilprimenum)/(beta*delta*htilnum))* (-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2) + (2*pow(-2*Th - (m1Th2*htilprimenum)/(beta*delta*htilnum),2)*(-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),3))/(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum) + ((-((-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*htilnum) + ((1 - alpha)*zetap*g0*ggprimenum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilprimenum)/(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum) - ((-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* (-2 + (2*Th*htilprimenum)/(beta*delta*htilnum) + (m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (m1Th2*htilsecondnum)/(beta*delta*htilnum)))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2) - ((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)* (-2*R + (2*R*Th*htilprimenum)/(beta*delta*htilnum) + (R*m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (R*m1Th2*htilsecondnum)/(beta*delta*htilnum)))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2) + (2*(-2*Th - (m1Th2*htilprimenum)/(beta*delta*htilnum))*(-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)*(-2*R + (2*R*Th*htilprimenum)/(beta*delta*htilnum) + (R*m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (R*m1Th2*htilsecondnum)/(beta*delta*htilnum)))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),3) - ((((1 - alpha)*zetap*g0*ggnum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilnum)* (-2*Th + (2*beta*delta*htilnum)/htilprimenum + (2*beta*delta*Th*htilprimenum)/htilprimenum - (2*beta*delta*Th*htilnum*htilsecondnum)/pow(htilprimenum,2)))/ pow(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum,2) + (-2*omegap*g0*R1momegap*htilprimenum + zetap*g0*R1malpha*ggsecondnum - omegap*g0*R1momegap*Th*htilsecondnum)/ (-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum)) - ((-2*Th - (m1Th2*htilprimenum)/(beta*delta*htilnum))* (-2*g0*omega*htilprimenum + g0*zeta*ggsecondnum - g0*omega*Th*htilsecondnum))/ pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2))/(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum)) - ((-2*Th - (m1Th2*htilprimenum)/(beta*delta*htilnum))*((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)/(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum) - ((-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* (-2*R + (2*R*Th*htilprimenum)/(beta*delta*htilnum) + (R*m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (R*m1Th2*htilsecondnum)/(beta*delta*htilnum)))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (-2*Th + (2*beta*delta*htilnum)/htilprimenum + (2*beta*delta*Th*htilprimenum)/htilprimenum - (2*beta*delta*Th*htilnum*htilsecondnum)/pow(htilprimenum,2)))/ pow(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum,2) + (-2*g0*omega*htilprimenum + g0*zeta*ggsecondnum - g0*omega*Th*htilsecondnum)/(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum))))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2)) /(beta*delta*h0*pow(R,-1 + beta*delta)*htilnum + (h0*pow(R,-1 + beta*delta)*m1Th2*htilprimenum)/(2.*Th)) + (-((((((1 - alpha)*zetap*g0*ggnum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilnum)/(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum) + (-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)/(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum)) - ((-2*Th - (m1Th2*htilprimenum)/(beta*delta*htilnum))*(-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2))* (-2*Th + (2*beta*delta*htilnum)/htilprimenum + (2*beta*delta*Th*htilprimenum)/htilprimenum - (2*beta*delta*Th*htilnum*htilsecondnum)/pow(htilprimenum,2)))/ pow(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum,2)) + ((-((-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*htilnum) + ((1 - alpha)*zetap*g0*ggprimenum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilprimenum)/ (1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum) - ((-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)*(-2 + (2*Th*htilprimenum)/(beta*delta*htilnum) + (m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (m1Th2*htilsecondnum)/(beta*delta*htilnum)))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2) - ((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)* (-2*R + (2*R*Th*htilprimenum)/(beta*delta*htilnum) + (R*m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (R*m1Th2*htilsecondnum)/(beta*delta*htilnum)))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2) + (2*(-2*Th - (m1Th2*htilprimenum)/(beta*delta*htilnum))*(-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)*(-2*R + (2*R*Th*htilprimenum)/(beta*delta*htilnum) + (R*m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (R*m1Th2*htilsecondnum)/(beta*delta*htilnum)))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),3) - ((((1 - alpha)*zetap*g0*ggnum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilnum)* (-2*Th + (2*beta*delta*htilnum)/htilprimenum + (2*beta*delta*Th*htilprimenum)/htilprimenum - (2*beta*delta*Th*htilnum*htilsecondnum)/pow(htilprimenum,2)))/ pow(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum,2) + (-2*omegap*g0*R1momegap*htilprimenum + zetap*g0*R1malpha*ggsecondnum - omegap*g0*R1momegap*Th*htilsecondnum)/ (-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum)) - ((-2*Th - (m1Th2*htilprimenum)/(beta*delta*htilnum))* (-2*g0*omega*htilprimenum + g0*zeta*ggsecondnum - g0*omega*Th*htilsecondnum))/ pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2))/(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum) - ((-2*R + (2*R*Th*htilprimenum)/(beta*delta*htilnum) + (R*m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (R*m1Th2*htilsecondnum)/(beta*delta*htilnum))*((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)/(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum) - ((-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* (-2*R + (2*R*Th*htilprimenum)/(beta*delta*htilnum) + (R*m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (R*m1Th2*htilsecondnum)/(beta*delta*htilnum)))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (-2*Th + (2*beta*delta*htilnum)/htilprimenum + (2*beta*delta*Th*htilprimenum)/htilprimenum - (2*beta*delta*Th*htilnum*htilsecondnum)/pow(htilprimenum,2)))/ pow(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum,2) + (-2*g0*omega*htilprimenum + g0*zeta*ggsecondnum - g0*omega*Th*htilsecondnum)/(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum))))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2)\ + ((2*(-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* pow(-2*R + (2*R*Th*htilprimenum)/(beta*delta*htilnum) + (R*m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (R*m1Th2*htilsecondnum)/(beta*delta*htilnum),2))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),3) - (2*(-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)* (-2*Th + (2*beta*delta*htilnum)/htilprimenum + (2*beta*delta*Th*htilprimenum)/htilprimenum - (2*beta*delta*Th*htilnum*htilsecondnum)/pow(htilprimenum,2)))/ pow(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum,2) + (2*(zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* pow(-2*Th + (2*beta*delta*htilnum)/htilprimenum + (2*beta*delta*Th*htilprimenum)/htilprimenum - (2*beta*delta*Th*htilnum*htilsecondnum)/pow(htilprimenum,2),2))/ pow(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum,3) + (-2*omegap*g0*R1momegap*htilprimenum + zetap*g0*R1malpha*ggsecondnum - omegap*g0*R1momegap*Th*htilsecondnum)/(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum) - (2*(-2*R + (2*R*Th*htilprimenum)/(beta*delta*htilnum) + (R*m1Th2*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (R*m1Th2*htilsecondnum)/(beta*delta*htilnum))*(-2*g0*omega*htilprimenum + g0*zeta*ggsecondnum - g0*omega*Th*htilsecondnum))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2) - ((-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* ((2*R*htilprimenum)/(beta*delta*htilnum) - (4*R*Th*htilprimenum*htilprimenum)/(beta*delta*pow(htilnum,2)) - (2*R*m1Th2*htilprimenum*pow(htilprimenum,2))/(beta*delta*pow(htilnum,3)) + (4*R*Th*htilsecondnum)/(beta*delta*htilnum) + (2*R*m1Th2*htilprimenum*htilsecondnum)/(beta*delta*pow(htilnum,2)) + (R*m1Th2*htilprimenum*htilsecondnum)/(beta*delta*pow(htilnum,2)) - (R*m1Th2*htilthirdnum)/(beta*delta*htilnum)))/pow(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum),2) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (-2 + (4*beta*delta*htilprimenum)/htilprimenum - (4*beta*delta*htilnum*htilsecondnum)/pow(htilprimenum,2) - (4*beta*delta*Th*htilprimenum*htilsecondnum)/pow(htilprimenum,2) + (4*beta*delta*Th*htilnum*pow(htilsecondnum,2))/pow(htilprimenum,3) + (2*beta*delta*Th*htilsecondnum)/htilprimenum - (2*beta*delta*Th*htilnum*htilthirdnum)/pow(htilprimenum,2)))/pow(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum,2) + (-3*g0*omega*htilsecondnum + g0*zeta*ggthirdnum - g0*omega*Th*htilthirdnum)/ (-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum)))/(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum)))/ ((2*beta*delta*h0*pow(R,beta*delta)*Th*htilnum)/m1Th2 + h0*pow(R,beta*delta)*htilprimenum); d3Gdrdh2Num = (((-((-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*htilnum) + ((1 - alpha)*zetap*g0*ggprimenum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilprimenum)/ ((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum) - (2*((2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilnum)/m1Th2 + beta*delta*h0*ggamma*htilprimenum)* (-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) - (((2*pow(beta,2)*pow(delta,2)*ggammap*h0*pow(R,-2 + beta*delta)*Th*htilnum)/m1Th2 + beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilprimenum)* (-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) + (2*pow((2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilnum)/m1Th2 + beta*delta*h0*ggamma*htilprimenum,2)* (-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,3) + (2*(zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* pow(beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilnum + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*Th),2))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),3) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (beta*delta*(-2 + beta*delta)*ggammap*h0*pow(R,-3 + beta*delta)*htilnum + ((-2 + beta*delta)*ggammap*h0*pow(R,-3 + beta*delta)*m1Th2*htilprimenum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2) - (2*(((1 - alpha)*zetap*g0*ggnum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilnum)* (beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilnum + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2) + (-((1 - alpha)*zetap*alpha*g0*pow(R,-1 - alpha)*ggnum) - (-2 + beta + beta*delta)*(-1 + beta + beta*delta)*omegap*g0*pow(R,-3 + beta + beta*delta)*Th*htilnum)/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th)))/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th)) - ((beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilnum + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*Th))* ((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)/((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum) - (((2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilnum)/m1Th2 + beta*delta*h0*ggamma*htilprimenum)* (-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilnum + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2) + (((1 - alpha)*zetap*g0*ggnum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilnum)/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th))))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2) + (-(((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)* (beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilnum + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2)) + (-((-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*htilnum) + ((1 - alpha)*zetap*g0*ggprimenum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilprimenum)/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th)) - ((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)* ((4*beta*delta*h0*tau*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*beta*delta*h0*tau*htilnum)/m1Th2 + (2*beta*delta*h0*tau*Th*htilprimenum)/m1Th2 + h0*tau*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) + (2*((2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilnum)/m1Th2 + beta*delta*h0*ggamma*htilprimenum)* (-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* ((4*beta*delta*h0*tau*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*beta*delta*h0*tau*htilnum)/m1Th2 + (2*beta*delta*h0*tau*Th*htilprimenum)/m1Th2 + h0*tau*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,3) - ((-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* ((4*pow(beta,2)*pow(delta,2)*h0*ggamma*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*htilnum)/m1Th2 + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilprimenum)/m1Th2 + beta*delta*h0*ggamma*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) + (-2*omegap*g0*R1momegap*htilprimenum + zetap*g0*R1malpha*ggsecondnum - omegap*g0*R1momegap*Th*htilsecondnum)/((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum) - (((2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilnum)/m1Th2 + beta*delta*h0*ggamma*htilprimenum)* (-2*g0*omega*htilprimenum + g0*zeta*ggsecondnum - g0*omega*Th*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (-(ggammap*h0*pow(R,-2 + beta*delta)*htilprimenum) + beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilprimenum - (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*pow(Th,2)) + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilsecondnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2) + (2*(zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilnum + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*Th))* (-(h0*ggamma*htilprimenum) + beta*delta*h0*ggamma*htilprimenum - (h0*ggamma*m1Th2*htilprimenum)/(2*pow(Th,2)) + (h0*ggamma*m1Th2*htilsecondnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),3) - ((((1 - alpha)*zetap*g0*ggnum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilnum)* (-(h0*ggamma*htilprimenum) + beta*delta*h0*ggamma*htilprimenum - (h0*ggamma*m1Th2*htilprimenum)/(2*pow(Th,2)) + (h0*ggamma*m1Th2*htilsecondnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2))/ ((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum) - (((2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilnum)/m1Th2 + beta*delta*h0*ggamma*htilprimenum)* ((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th)) - ((-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* ((4*beta*delta*h0*tau*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*beta*delta*h0*tau*htilnum)/m1Th2 + (2*beta*delta*h0*tau*Th*htilprimenum)/m1Th2 + h0*tau*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) + (-2*g0*omega*htilprimenum + g0*zeta*ggsecondnum - g0*omega*Th*htilsecondnum)/ ((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (-(h0*ggamma*htilprimenum) + beta*delta*h0*ggamma*htilprimenum - (h0*ggamma*m1Th2*htilprimenum)/(2*pow(Th,2)) + (h0*ggamma*m1Th2*htilsecondnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2)))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2))/(1 - pow(Th,2) + (2*beta*delta*Th*htilnum)/htilprimenum) + (-((((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)/((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum) - (((2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilnum)/m1Th2 + beta*delta*h0*ggamma*htilprimenum)* (-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilnum + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2) + (((1 - alpha)*zetap*g0*ggnum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilnum)/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th)))* (-(h0*ggamma*htilprimenum) + beta*delta*h0*ggamma*htilprimenum - (h0*ggamma*m1Th2*htilprimenum)/(2*pow(Th,2)) + (h0*ggamma*m1Th2*htilsecondnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2)) + (-(((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)* (beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilnum + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2)) + (-((-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*htilnum) + ((1 - alpha)*zetap*g0*ggprimenum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilprimenum)/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th)) - ((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)* ((4*beta*delta*h0*tau*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*beta*delta*h0*tau*htilnum)/m1Th2 + (2*beta*delta*h0*tau*Th*htilprimenum)/m1Th2 + h0*tau*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) + (2*((2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilnum)/m1Th2 + beta*delta*h0*ggamma*htilprimenum)* (-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* ((4*beta*delta*h0*tau*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*beta*delta*h0*tau*htilnum)/m1Th2 + (2*beta*delta*h0*tau*Th*htilprimenum)/m1Th2 + h0*tau*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,3) - ((-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* ((4*pow(beta,2)*pow(delta,2)*h0*ggamma*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*htilnum)/m1Th2 + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilprimenum)/m1Th2 + beta*delta*h0*ggamma*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) + (-2*omegap*g0*R1momegap*htilprimenum + zetap*g0*R1malpha*ggsecondnum - omegap*g0*R1momegap*Th*htilsecondnum)/((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum) - (((2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*htilnum)/m1Th2 + beta*delta*h0*ggamma*htilprimenum)* (-2*g0*omega*htilprimenum + g0*zeta*ggsecondnum - g0*omega*Th*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (-(ggammap*h0*pow(R,-2 + beta*delta)*htilprimenum) + beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilprimenum - (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*pow(Th,2)) + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilsecondnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2) + (2*(zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (beta*delta*ggammap*h0*pow(R,-2 + beta*delta)*htilnum + (ggammap*h0*pow(R,-2 + beta*delta)*m1Th2*htilprimenum)/(2*Th))* (-(h0*ggamma*htilprimenum) + beta*delta*h0*ggamma*htilprimenum - (h0*ggamma*m1Th2*htilprimenum)/(2*pow(Th,2)) + (h0*ggamma*m1Th2*htilsecondnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),3) - ((((1 - alpha)*zetap*g0*ggnum)/pow(R,alpha) - (-1 + beta + beta*delta)*omegap*g0*pow(R,-2 + beta + beta*delta)*Th*htilnum)* (-(h0*ggamma*htilprimenum) + beta*delta*h0*ggamma*htilprimenum - (h0*ggamma*m1Th2*htilprimenum)/(2*pow(Th,2)) + (h0*ggamma*m1Th2*htilsecondnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2))/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th)) - (((4*beta*delta*h0*tau*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*beta*delta*h0*tau*htilnum)/m1Th2 + (2*beta*delta*h0*tau*Th*htilprimenum)/m1Th2 + h0*tau*htilsecondnum)* ((-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th)) - ((-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* ((4*beta*delta*h0*tau*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*beta*delta*h0*tau*htilnum)/m1Th2 + (2*beta*delta*h0*tau*Th*htilprimenum)/m1Th2 + h0*tau*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) + (-2*g0*omega*htilprimenum + g0*zeta*ggsecondnum - g0*omega*Th*htilsecondnum)/ ((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* (-(h0*ggamma*htilprimenum) + beta*delta*h0*ggamma*htilprimenum - (h0*ggamma*m1Th2*htilprimenum)/(2*pow(Th,2)) + (h0*ggamma*m1Th2*htilsecondnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2)))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) + ((2*(-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* pow((4*beta*delta*h0*tau*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*beta*delta*h0*tau*htilnum)/m1Th2 + (2*beta*delta*h0*tau*Th*htilprimenum)/m1Th2 + h0*tau*htilsecondnum,2))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,3) + (-2*omegap*g0*R1momegap*htilprimenum + zetap*g0*R1malpha*ggsecondnum - omegap*g0*R1momegap*Th*htilsecondnum)/ (beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th)) - (2*((4*beta*delta*h0*tau*pow(Th,2)*htilnum)/pow(m1Th2,2) + (2*beta*delta*h0*tau*htilnum)/m1Th2 + (2*beta*delta*h0*tau*Th*htilprimenum)/m1Th2 + h0*tau*htilsecondnum)* (-2*g0*omega*htilprimenum + g0*zeta*ggsecondnum - g0*omega*Th*htilsecondnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) - (2*(-(omegap*g0*R1momegap*htilnum) + zetap*g0*R1malpha*ggprimenum - omegap*g0*R1momegap*Th*htilprimenum)* (-(h0*ggamma*htilprimenum) + beta*delta*h0*ggamma*htilprimenum - (h0*ggamma*m1Th2*htilprimenum)/(2*pow(Th,2)) + (h0*ggamma*m1Th2*htilsecondnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2) + (2*(zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* pow(-(h0*ggamma*htilprimenum) + beta*delta*h0*ggamma*htilprimenum - (h0*ggamma*m1Th2*htilprimenum)/(2*pow(Th,2)) + (h0*ggamma*m1Th2*htilsecondnum)/(2*Th),2))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),3) - ((-(g0*omega*htilnum) + g0*zeta*ggprimenum - g0*omega*Th*htilprimenum)* ((16*beta*delta*h0*tau*pow(Th,3)*htilnum)/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*htilnum)/pow(m1Th2,2) + (8*beta*delta*h0*tau*pow(Th,2)*htilprimenum)/pow(m1Th2,2) + (4*beta*delta*h0*tau*htilprimenum)/m1Th2 + (2*beta*delta*h0*tau*Th*htilsecondnum)/m1Th2 + h0*tau*htilthirdnum))/ pow((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum,2) + (-3*g0*omega*htilsecondnum + g0*zeta*ggthirdnum - g0*omega*Th*htilthirdnum)/ ((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum) - ((zetap*g0*R1malpha*ggnum - omegap*g0*R1momegap*Th*htilnum)* ((h0*ggamma*htilprimenum)/Th + (h0*ggamma*m1Th2*htilprimenum)/pow(Th,3) - 2*h0*ggamma*htilsecondnum + beta*delta*h0*ggamma*htilsecondnum - (h0*ggamma*m1Th2*htilsecondnum)/pow(Th,2) + (h0*ggamma*m1Th2*htilthirdnum)/(2*Th)))/ pow(beta*delta*h0*ggamma*htilnum + (h0*ggamma*m1Th2*htilprimenum)/(2*Th),2))/ ((2*beta*delta*h0*tau*Th*htilnum)/m1Th2 + h0*tau*htilprimenum))/(-2*R*Th - (R*m1Th2*htilprimenum)/(beta*delta*htilnum)); // Finally, derivative of G wrt muB return d3Gdr3ConhNum*drdmuB*drdmuB*drdmuB + d3Gdh3ConrNum*dhdmuB*dhdmuB*dhdmuB + 3*d3Gdr2dhNum*drdmuB*drdmuB*dhdmuB + 3*d3Gdrdh2Num*drdmuB*dhdmuB*dhdmuB; } /*}}}*/ // --------- CHI4 WRT MU -------- // /*{{{*/ double d4GdmuB4ConT(double R, double Th){ g0 = h0*M0; htilnum = Th + A*pow(Th,3) + B*pow(Th,5); htilprimenum = 1 + 3*A*pow(Th,2) + 5*B*pow(Th,4); htilsecondnum = 6*A*Th + 20*B*pow(Th,3); m1Th2 = 1 - pow(Th,2); ggnum = c0 + c1*m1Th2 + c2*pow(m1Th2,2) + c3*pow(m1Th2,3); ggprimenum = -2*c1*Th - 4*c2*Th*m1Th2 - 6*c3*Th*pow(m1Th2,2); ggsecondnum = -2*c1 + 8*c2*pow(Th,2) - 4*c2*m1Th2 + 24*c3*pow(Th,2)*m1Th2 - 6*c3*pow(m1Th2,2); tau = pow(R,beta*delta); ggamma = pow(R,-1 + beta*delta); omega = pow(R,beta + beta*delta); omegap = beta + beta*delta; ggammap = -1 + beta*delta; zeta = pow(R,2 - alpha); zetap = 2 - alpha; Th2 = pow(Th,2); R1malpha = pow(R,1 - alpha); R1momegap = pow(R,-1 + omegap); return pow(dhdmuB,4)*(((((-120*B*g0*omega*Th2 - 4*g0*omega*(6*A + 60*B*Th2) + g0*zeta*(24*c2 - 288*c3*Th2 + 72*c3*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(6*A + 60*B*Th2)) - 3*(omegap)*g0*R1momegap*(htilsecondnum) + (zetap)*g0*R1malpha*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (3*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (3*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (6*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (3*(h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (6*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (3*((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),3)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) + (6*(h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((120*B*h0*tau*Th + (2*beta*delta*h0*tau*Th*(6*A + 60*B*Th2))/(m1Th2) + (12*beta*delta*h0*tau*Th2*(htilsecondnum))/pow(m1Th2,2) + (6*beta*delta*h0*tau*(htilsecondnum))/(m1Th2) + (48*beta*delta*h0*tau*pow(Th,3)*(htilprimenum))/pow(m1Th2,3) + (36*beta*delta*h0*tau*Th*(htilprimenum))/pow(m1Th2,2) + (96*beta*delta*h0*tau*pow(Th,4)*(htilnum))/pow(m1Th2,4) + (96*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*(htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (6*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),3)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (6*((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* ((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((60*B*h0*ggamma*(m1Th2) - 3*h0*ggamma*(6*A + 60*B*Th2) + beta*delta*h0*ggamma*(6*A + 60*B*Th2) - (3*h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th2) + (3*h0*ggamma*(htilsecondnum))/Th + (3*h0*ggamma*(m1Th2)*(htilsecondnum))/pow(Th,3) - (3*h0*ggamma*(htilprimenum))/Th2 - (3*h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,4))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + ((-((omegap)*g0*R1momegap*Th*(6*A + 60*B*Th2)) - 3*(omegap)*g0*R1momegap*(htilsecondnum) + (zetap)*g0*R1malpha*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (4*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*h0*ggamma*(6*A + 60*B*Th2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilsecondnum))/(m1Th2) + (8*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2*(htilprimenum))/ pow(m1Th2,2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma* (htilprimenum))/(m1Th2) + (16*pow(beta,2)*pow(delta,2)*h0*ggamma*pow(Th,3)*(htilnum))/ pow(m1Th2,3) + (12*pow(beta,2)*pow(delta,2)*h0*ggamma*Th* (htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (6*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) + (2*(h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (4*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) + (2*((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/Th2 + ((ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum))/Th + ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-(((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* (-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/ pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/ (m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/ pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/ pow(m1Th2,2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2)) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + ((-((omegap)*g0*R1momegap*Th*(6*A + 60*B*Th2)) - 3*(omegap)*g0*R1momegap*(htilsecondnum) + (zetap)*g0*R1malpha*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (4*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*h0*ggamma*(6*A + 60*B*Th2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilsecondnum))/(m1Th2) + (8*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2*(htilprimenum))/ pow(m1Th2,2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma* (htilprimenum))/(m1Th2) + (16*pow(beta,2)*pow(delta,2)*h0*ggamma*pow(Th,3)*(htilnum))/ pow(m1Th2,3) + (12*pow(beta,2)*pow(delta,2)*h0*ggamma*Th* (htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (6*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) + (2*(h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (4*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) + (2*((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/Th2 + ((ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum))/Th + ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilprimenum)) - (-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)* (htilnum) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilprimenum))/(m1Th2) + (4*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (4*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (6*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) + (4*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) - ((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (4*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) ,2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th2)) *((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-(((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2)) *((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2)) + ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) ,2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + ((-(((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* (-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/ pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/ (m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/ pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/ pow(m1Th2,2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2)) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + ((-((omegap)*g0*R1momegap*Th*(6*A + 60*B*Th2)) - 3*(omegap)*g0*R1momegap*(htilsecondnum) + (zetap)*g0*R1malpha*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (4*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*h0*ggamma*(6*A + 60*B*Th2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilsecondnum))/(m1Th2) + (8*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2*(htilprimenum))/ pow(m1Th2,2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma* (htilprimenum))/(m1Th2) + (16*pow(beta,2)*pow(delta,2)*h0*ggamma*pow(Th,3)*(htilnum))/ pow(m1Th2,3) + (12*pow(beta,2)*pow(delta,2)*h0*ggamma*Th* (htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (6*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) + (2*(h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (4*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) + (2*((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/Th2 + ((ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum))/Th + ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilprimenum)) - (-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)* (htilnum) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilprimenum))/(m1Th2) + (4*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (4*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (6*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) + (4*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) - ((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (4*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) ,2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th2)) *((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (-(((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2)) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2),2)* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilprimenum)) - (-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)* (htilnum) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilprimenum))/(m1Th2) + (4*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (4*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (6*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) + (4*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) - ((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (4*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - (2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + ((-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilprimenum)) - (-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)* (htilnum) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - (3*(beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-((omegap)*g0*R1momegap*Th* (htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (6*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*Th* (htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (6*(beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (6*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 3)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) - (3*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (-((-3 + omegap)*(-2 + omegap)*(-1 + omegap)*(omegap)*g0* pow(R,-4 + omegap)*Th*(htilnum)) - (-1 - alpha)*(1 - alpha)*(zetap)*alpha*g0*pow(R,-zetap)* ggnum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (3*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),3)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (6*(((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-3 + beta*delta)*(-2 + beta*delta)*(ggammap)*h0*pow(R,-4 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-3 + beta*delta)*(-2 + beta*delta)*(ggammap)*h0*pow(R,-4 + beta*delta)* (htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (6*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (3*(((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) ,2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum)) *((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-(((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2)) *((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2)) + ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) ,2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))) + 4*pow(dhdmuB,3)*drdmuB*(((((-120*B*g0*omega*Th2 - 4*g0*omega*(6*A + 60*B*Th2) + g0*zeta*(24*c2 - 288*c3*Th2 + 72*c3*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(6*A + 60*B*Th2)) - 3*(omegap)*g0*R1momegap*(htilsecondnum) + (zetap)*g0*R1malpha*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (3*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (3*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (6*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (3*(h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (6*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (3*((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),3)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) + (6*(h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((120*B*h0*tau*Th + (2*beta*delta*h0*tau*Th*(6*A + 60*B*Th2))/(m1Th2) + (12*beta*delta*h0*tau*Th2*(htilsecondnum))/pow(m1Th2,2) + (6*beta*delta*h0*tau*(htilsecondnum))/(m1Th2) + (48*beta*delta*h0*tau*pow(Th,3)*(htilprimenum))/pow(m1Th2,3) + (36*beta*delta*h0*tau*Th*(htilprimenum))/pow(m1Th2,2) + (96*beta*delta*h0*tau*pow(Th,4)*(htilnum))/pow(m1Th2,4) + (96*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*(htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (6*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),3)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (6*((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* ((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((60*B*h0*ggamma*(m1Th2) - 3*h0*ggamma*(6*A + 60*B*Th2) + beta*delta*h0*ggamma*(6*A + 60*B*Th2) - (3*h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th2) + (3*h0*ggamma*(htilsecondnum))/Th + (3*h0*ggamma*(m1Th2)*(htilsecondnum))/pow(Th,3) - (3*h0*ggamma*(htilprimenum))/Th2 - (3*h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,4))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + ((-((omegap)*g0*R1momegap*Th*(6*A + 60*B*Th2)) - 3*(omegap)*g0*R1momegap*(htilsecondnum) + (zetap)*g0*R1malpha*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (4*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*h0*ggamma*(6*A + 60*B*Th2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilsecondnum))/(m1Th2) + (8*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2*(htilprimenum))/ pow(m1Th2,2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma* (htilprimenum))/(m1Th2) + (16*pow(beta,2)*pow(delta,2)*h0*ggamma*pow(Th,3)*(htilnum))/ pow(m1Th2,3) + (12*pow(beta,2)*pow(delta,2)*h0*ggamma*Th* (htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (6*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) + (2*(h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (4*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) + (2*((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/Th2 + ((ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum))/Th + ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-(((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* (-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/ pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/ (m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/ pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/ pow(m1Th2,2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2)) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + ((-((omegap)*g0*R1momegap*Th*(6*A + 60*B*Th2)) - 3*(omegap)*g0*R1momegap*(htilsecondnum) + (zetap)*g0*R1malpha*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (4*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*h0*ggamma*(6*A + 60*B*Th2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilsecondnum))/(m1Th2) + (8*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2*(htilprimenum))/ pow(m1Th2,2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma* (htilprimenum))/(m1Th2) + (16*pow(beta,2)*pow(delta,2)*h0*ggamma*pow(Th,3)*(htilnum))/ pow(m1Th2,3) + (12*pow(beta,2)*pow(delta,2)*h0*ggamma*Th* (htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (6*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) + (2*(h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (4*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) + (2*((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/Th2 + ((ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum))/Th + ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilprimenum)) - (-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)* (htilnum) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilprimenum))/(m1Th2) + (4*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (4*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (6*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) + (4*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) - ((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (4*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) ,2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th2)) *((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-(((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2)) *((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2)) + ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) ,2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/(beta*delta*(htilnum))) + ((-(((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* (-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/ pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/ (m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/ pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/ pow(m1Th2,2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2)) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + ((-((omegap)*g0*R1momegap*Th*(6*A + 60*B*Th2)) - 3*(omegap)*g0*R1momegap*(htilsecondnum) + (zetap)*g0*R1malpha*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (4*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*h0*ggamma*(6*A + 60*B*Th2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilsecondnum))/(m1Th2) + (8*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2*(htilprimenum))/ pow(m1Th2,2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma* (htilprimenum))/(m1Th2) + (16*pow(beta,2)*pow(delta,2)*h0*ggamma*pow(Th,3)*(htilnum))/ pow(m1Th2,3) + (12*pow(beta,2)*pow(delta,2)*h0*ggamma*Th* (htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (6*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) + (2*(h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (4*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) + (2*((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/Th2 + ((ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum))/Th + ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilprimenum)) - (-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)* (htilnum) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilprimenum))/(m1Th2) + (4*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (4*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (6*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) + (4*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) - ((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (4*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) ,2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th2)) *((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (-(((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2)) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2),2)* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilprimenum)) - (-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)* (htilnum) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilprimenum))/(m1Th2) + (4*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (4*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (6*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) + (4*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) - ((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (4*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - (2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + ((-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilprimenum)) - (-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)* (htilnum) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - (3*(beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-((omegap)*g0*R1momegap*Th* (htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (6*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*Th* (htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (6*(beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (6*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 3)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) - (3*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (-((-3 + omegap)*(-2 + omegap)*(-1 + omegap)*(omegap)*g0* pow(R,-4 + omegap)*Th*(htilnum)) - (-1 - alpha)*(1 - alpha)*(zetap)*alpha*g0*pow(R,-zetap)* ggnum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (3*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),3)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (6*(((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-3 + beta*delta)*(-2 + beta*delta)*(ggammap)*h0*pow(R,-4 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-3 + beta*delta)*(-2 + beta*delta)*(ggammap)*h0*pow(R,-4 + beta*delta)* (htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (6*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (3*(((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) ,2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum)) *((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-(((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2)) *((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2)) + ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) ,2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))) + 6*pow(dhdmuB,2)*pow(drdmuB,2)*(((-(((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* (-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/ pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/ (m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/ pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/ pow(m1Th2,2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2)) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + ((-((omegap)*g0*R1momegap*Th*(6*A + 60*B*Th2)) - 3*(omegap)*g0*R1momegap*(htilsecondnum) + (zetap)*g0*R1malpha*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (4*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*h0*ggamma*(6*A + 60*B*Th2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilsecondnum))/(m1Th2) + (8*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2*(htilprimenum))/ pow(m1Th2,2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma* (htilprimenum))/(m1Th2) + (16*pow(beta,2)*pow(delta,2)*h0*ggamma*pow(Th,3)*(htilnum))/ pow(m1Th2,3) + (12*pow(beta,2)*pow(delta,2)*h0*ggamma*Th* (htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (6*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) + (2*(h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (4*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) + (2*((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/Th2 + ((ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum))/Th + ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilprimenum)) - (-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)* (htilnum) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilprimenum))/(m1Th2) + (4*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (4*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (6*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) + (4*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) - ((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (4*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) ,2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th2)) *((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/(beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/(beta*delta*(htilnum)), 2) + (-(((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2)) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2),2)* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilprimenum)) - (-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)* (htilnum) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilprimenum))/(m1Th2) + (4*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (4*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (6*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) + (4*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) - ((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (4*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - (2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + ((-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilprimenum)) - (-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)* (htilnum) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - (3*(beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-((omegap)*g0*R1momegap*Th* (htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (6*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*Th* (htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (6*(beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (6*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 3)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) - (3*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (-((-3 + omegap)*(-2 + omegap)*(-1 + omegap)*(omegap)*g0* pow(R,-4 + omegap)*Th*(htilnum)) - (-1 - alpha)*(1 - alpha)*(zetap)*alpha*g0*pow(R,-zetap)* ggnum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (3*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),3)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (6*(((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-3 + beta*delta)*(-2 + beta*delta)*(ggammap)*h0*pow(R,-4 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-3 + beta*delta)*(-2 + beta*delta)*(ggammap)*h0*pow(R,-4 + beta*delta)* (htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (6*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (3*(((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) ,2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum)) *((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) + ((((-120*B*g0*omega*Th2 - 4*g0*omega*(6*A + 60*B*Th2) + g0*zeta*(24*c2 - 288*c3*Th2 + 72*c3*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(6*A + 60*B*Th2)) - 3*(omegap)*g0*R1momegap*(htilsecondnum) + (zetap)*g0*R1malpha*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (3*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (3*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (6*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (3*(h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (6*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (3*((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),3)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) + (6*(h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((120*B*h0*tau*Th + (2*beta*delta*h0*tau*Th*(6*A + 60*B*Th2))/(m1Th2) + (12*beta*delta*h0*tau*Th2*(htilsecondnum))/pow(m1Th2,2) + (6*beta*delta*h0*tau*(htilsecondnum))/(m1Th2) + (48*beta*delta*h0*tau*pow(Th,3)*(htilprimenum))/pow(m1Th2,3) + (36*beta*delta*h0*tau*Th*(htilprimenum))/pow(m1Th2,2) + (96*beta*delta*h0*tau*pow(Th,4)*(htilnum))/pow(m1Th2,4) + (96*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*(htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (6*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),3)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (6*((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* ((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((60*B*h0*ggamma*(m1Th2) - 3*h0*ggamma*(6*A + 60*B*Th2) + beta*delta*h0*ggamma*(6*A + 60*B*Th2) - (3*h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th2) + (3*h0*ggamma*(htilsecondnum))/Th + (3*h0*ggamma*(m1Th2)*(htilsecondnum))/pow(Th,3) - (3*h0*ggamma*(htilprimenum))/Th2 - (3*h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,4))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + ((-((omegap)*g0*R1momegap*Th*(6*A + 60*B*Th2)) - 3*(omegap)*g0*R1momegap*(htilsecondnum) + (zetap)*g0*R1malpha*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (4*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*h0*ggamma*(6*A + 60*B*Th2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilsecondnum))/(m1Th2) + (8*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2*(htilprimenum))/ pow(m1Th2,2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma* (htilprimenum))/(m1Th2) + (16*pow(beta,2)*pow(delta,2)*h0*ggamma*pow(Th,3)*(htilnum))/ pow(m1Th2,3) + (12*pow(beta,2)*pow(delta,2)*h0*ggamma*Th* (htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (6*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) + (2*(h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (4*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) + (2*((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/Th2 + ((ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum))/Th + ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/(beta*delta*(htilnum))) + (-(((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* (-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/ pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/ (m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/ pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/ pow(m1Th2,2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2)) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + ((-((omegap)*g0*R1momegap*Th*(6*A + 60*B*Th2)) - 3*(omegap)*g0*R1momegap*(htilsecondnum) + (zetap)*g0*R1malpha*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (4*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*h0*ggamma*(6*A + 60*B*Th2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilsecondnum))/(m1Th2) + (8*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2*(htilprimenum))/ pow(m1Th2,2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma* (htilprimenum))/(m1Th2) + (16*pow(beta,2)*pow(delta,2)*h0*ggamma*pow(Th,3)*(htilnum))/ pow(m1Th2,3) + (12*pow(beta,2)*pow(delta,2)*h0*ggamma*Th* (htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (6*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) + (2*(h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (4*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) + (2*((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/Th2 + ((ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum))/Th + ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilprimenum)) - (-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)* (htilnum) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (4*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilprimenum))/(m1Th2) + (4*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (4*(beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - (6*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2), 2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),4) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (6*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),4) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) + (4*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilprimenum) - ((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (4*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) ,2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th2)) *((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (2*pow(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) - ((h0*tau*(6*A + 60*B*Th2) + (2*beta*delta*h0*tau*Th*(htilsecondnum))/(m1Th2) + (8*beta*delta*h0*tau*Th2*(htilprimenum))/pow(m1Th2,2) + (4*beta*delta*h0*tau*(htilprimenum))/(m1Th2) + (16*beta*delta*h0*tau*pow(Th,3)*(htilnum))/pow(m1Th2,3) + (12*beta*delta*h0*tau*Th*(htilnum))/pow(m1Th2,2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - (((h0*ggamma*(m1Th2)*(6*A + 60*B*Th2))/(2*Th) - 2*h0*ggamma*(htilsecondnum) + beta*delta*h0*ggamma*(htilsecondnum) - (h0*ggamma*(m1Th2)*(htilsecondnum))/Th2 + (h0*ggamma*(htilprimenum))/Th + (h0*ggamma*(m1Th2)*(htilprimenum))/pow(Th,3))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/(beta*delta*(htilnum)), 2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-(((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2)) *((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2)) + ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - ((h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*h0*ggamma*(htilsecondnum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilprimenum))/ (m1Th2) + (4*pow(beta,2)*pow(delta,2)*h0*ggamma*Th2* (htilnum))/pow(m1Th2,2) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*(htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*(h0*tau*(htilsecondnum) + (2*beta*delta*h0*tau*Th*(htilprimenum))/(m1Th2) + (4*beta*delta*h0*tau*Th2*(htilnum))/pow(m1Th2,2) + (2*beta*delta*h0*tau*(htilnum))/(m1Th2))* (beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilsecondnum))/(2*Th) - (ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) - ((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th2))*(-((omegap)*g0*R1momegap*Th* (htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (((h0*ggamma*(m1Th2)*(htilsecondnum))/(2*Th) - h0*ggamma*(htilprimenum) + beta*delta*h0*ggamma*(htilprimenum) - (h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + ((-2*(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) )*(-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*(ggammap)*h0*pow(R,-2 + beta*delta)*Th* (htilnum))/(m1Th2))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) + (2*pow(beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/(m1Th2) ,2)*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum)/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) + (2*pow(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/ (2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),3) - ((((-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(m1Th2)* (htilprimenum))/(2*Th) + beta*delta*(-2 + beta*delta)*(ggammap)*h0*pow(R,-3 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) - (2*(((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum)) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) - ((beta*delta*h0*ggamma*(htilprimenum) + (2*pow(beta,2)*pow(delta,2)*h0*ggamma*Th*(htilnum))/ (m1Th2))*(-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2),2) - ((((ggammap)*h0*pow(R,-2 + beta*delta)*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*(ggammap)*h0*pow(R,-2 + beta*delta)*(htilnum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))))/ pow((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum),2)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))) + 4*dhdmuB*pow(drdmuB,3)*(((((-2*(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilprimenum)) - (-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)* (htilnum) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) + (4*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (2*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (6*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),4) + (4*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2)) /(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* ((-2*(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))\ - (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2) + (2*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 3) - ((-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + ((-((omegap)*g0*R1momegap*Th*(6*A + 60*B*Th2)) - 3*(omegap)*g0*R1momegap*(htilsecondnum) + (zetap)*g0*R1malpha*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (4*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (2*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) + (2*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (6*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),4) + (4*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) + (2*((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - ((m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2) + (2*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),2)* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),3)\ - ((-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2)) /(-2*R*Th - (R*(m1Th2)*(htilprimenum))/(beta*delta*(htilnum))) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (((-2*(-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/ (htilprimenum),2)))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2))/(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2) + (((-120*B*g0*omega*Th2 - 4*g0*omega*(6*A + 60*B*Th2) + g0*zeta*(24*c2 - 288*c3*Th2 + 72*c3*(m1Th2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(6*A + 60*B*Th2)) - 3*(omegap)*g0*R1momegap*(htilsecondnum) + (zetap)*g0*R1malpha*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - (3*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (3*(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(m1Th2 + (2*beta*delta*Th*(htilnum))/ (htilprimenum),2) + (6*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (3*((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (6*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),3)\ - (3*(-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2)\ - (6*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),3)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),4) + (6*((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((6*R*(m1Th2)*pow(htilprimenum,4))/ (beta*delta*pow(htilnum,4)) - (12*R*(m1Th2)*(htilsecondnum)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,3)) + (12*R*Th*pow(htilprimenum,3))/(beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*pow(htilsecondnum,2))/(beta*delta*pow(htilnum,2)) + (4*R*(m1Th2)*(6*A + 60*B*Th2)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (18*R*Th*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (6*R*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (120*B*R*Th*(m1Th2))/(beta*delta*(htilnum)) + (6*R*Th*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (6*R*(htilsecondnum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (6*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),3)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),4)\ + (6*(-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* (-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),3)\ - (((6*beta*delta*Th*pow(htilsecondnum,2))/pow(htilprimenum,2) - (4*beta*delta*Th*(6*A + 60*B*Th2))/(htilprimenum) - (6*beta*delta*(htilsecondnum))/(htilprimenum) - (12*beta*delta*Th*pow(htilsecondnum,3)*(htilnum))/ pow(htilprimenum,4) + (12*beta*delta*Th*(6*A + 60*B*Th2)*(htilsecondnum)*(htilnum))/ pow(htilprimenum,3) + (12*beta*delta*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (240*B*beta*delta*Th2*(htilnum))/pow(htilprimenum,2) - (6*beta*delta*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2)) /(-2*R*Th - (R*(m1Th2)*(htilprimenum))/(beta*delta*(htilnum))) - (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))\ - (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2) + (2*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 3) - ((-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + ((-((omegap)*g0*R1momegap*Th*(6*A + 60*B*Th2)) - 3*(omegap)*g0*R1momegap*(htilsecondnum) + (zetap)*g0*R1malpha*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (4*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (2*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) + (2*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (6*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),4) + (4*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) + (2*((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - ((m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2) + (2*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),2)* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),3)\ - ((-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2)) /(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - (2*(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(m1Th2 + (2*beta*delta*Th*(htilnum))/ (htilprimenum),2) + (2*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),2)* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),3) - ((-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/(beta*delta*(htilnum))) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))\ - (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2) + (2*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 3) - ((-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2))/(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/ (htilprimenum),2)))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2))/(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))\ - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2))) /pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2))/ (h0*tau*(htilprimenum) + (2*beta*delta*h0*tau*Th*(htilnum))/(m1Th2)) + ((((-2*(-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilprimenum)) - (-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)* (htilnum) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) + (4*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (2*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (6*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),4) + (4*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2)) /(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* ((-2*(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))\ - (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2) + (2*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 3) - ((-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + ((-((omegap)*g0*R1momegap*Th*(6*A + 60*B*Th2)) - 3*(omegap)*g0*R1momegap*(htilsecondnum) + (zetap)*g0*R1malpha*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (4*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (2*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) + (2*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (6*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),4) + (4*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) + (2*((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - ((m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2) + (2*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),2)* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),3)\ - ((-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2)) /(-2*R*Th - (R*(m1Th2)*(htilprimenum))/(beta*delta*(htilnum))) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/(beta*delta*(htilnum))) + (((-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilprimenum)) - (-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)* (htilnum) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggprimenum)/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (6*pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (6*pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),4) - (3*(-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-3 + omegap)*(-2 + omegap)*(-1 + omegap)*(omegap)*g0* pow(R,-4 + omegap)*Th*(htilnum)) - (-1 - alpha)*(1 - alpha)*(zetap)*alpha*g0*pow(R,-zetap)* ggnum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) + ((-2*(-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilprimenum)) - (-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)* (htilnum) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) + (4*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (2*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (6*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),4) + (4*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2)) /(-2*R*Th - (R*(m1Th2)*(htilprimenum))/(beta*delta*(htilnum))) + (2*pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (2*(-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))\ - (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2) + (2*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 3) - ((-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2))/(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/ (htilprimenum),2)))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2))/(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))\ - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2))) /pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2))/ ((h0*ggamma*(m1Th2)*(htilprimenum))/(2*Th) + beta*delta*h0*ggamma*(htilnum))) + pow(drdmuB,4)*(((((-2*(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilprimenum)) - (-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)* (htilnum) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) + (4*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (2*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (6*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),4) + (4*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2)) /(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* ((-2*(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))\ - (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2) + (2*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 3) - ((-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + ((-((omegap)*g0*R1momegap*Th*(6*A + 60*B*Th2)) - 3*(omegap)*g0*R1momegap*(htilsecondnum) + (zetap)*g0*R1malpha*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (4*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (2*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) + (2*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (6*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),4) + (4*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) + (2*((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - ((m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2) + (2*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),2)* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),3)\ - ((-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2)) /(-2*R*Th - (R*(m1Th2)*(htilprimenum))/(beta*delta*(htilnum))) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (((-2*(-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/ (htilprimenum),2)))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2))/(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2) + (((-120*B*g0*omega*Th2 - 4*g0*omega*(6*A + 60*B*Th2) + g0*zeta*(24*c2 - 288*c3*Th2 + 72*c3*(m1Th2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(6*A + 60*B*Th2)) - 3*(omegap)*g0*R1momegap*(htilsecondnum) + (zetap)*g0*R1malpha*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - (3*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (3*(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(m1Th2 + (2*beta*delta*Th*(htilnum))/ (htilprimenum),2) + (6*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (3*((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (6*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),3)\ - (3*(-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2)\ - (6*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),3)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),4) + (6*((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((6*R*(m1Th2)*pow(htilprimenum,4))/ (beta*delta*pow(htilnum,4)) - (12*R*(m1Th2)*(htilsecondnum)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,3)) + (12*R*Th*pow(htilprimenum,3))/(beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*pow(htilsecondnum,2))/(beta*delta*pow(htilnum,2)) + (4*R*(m1Th2)*(6*A + 60*B*Th2)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (18*R*Th*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (6*R*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (120*B*R*Th*(m1Th2))/(beta*delta*(htilnum)) + (6*R*Th*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (6*R*(htilsecondnum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (6*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),3)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),4)\ + (6*(-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* (-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),3)\ - (((6*beta*delta*Th*pow(htilsecondnum,2))/pow(htilprimenum,2) - (4*beta*delta*Th*(6*A + 60*B*Th2))/(htilprimenum) - (6*beta*delta*(htilsecondnum))/(htilprimenum) - (12*beta*delta*Th*pow(htilsecondnum,3)*(htilnum))/ pow(htilprimenum,4) + (12*beta*delta*Th*(6*A + 60*B*Th2)*(htilsecondnum)*(htilnum))/ pow(htilprimenum,3) + (12*beta*delta*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (240*B*beta*delta*Th2*(htilnum))/pow(htilprimenum,2) - (6*beta*delta*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2)) /(-2*R*Th - (R*(m1Th2)*(htilprimenum))/(beta*delta*(htilnum))) - (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))\ - (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2) + (2*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 3) - ((-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + ((-((omegap)*g0*R1momegap*Th*(6*A + 60*B*Th2)) - 3*(omegap)*g0*R1momegap*(htilsecondnum) + (zetap)*g0*R1malpha*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (4*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (2*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) + (2*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (6*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),4) + (4*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) + (2*((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - ((m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2) + (2*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),2)* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),3)\ - ((-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2)) /(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - (2*(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(m1Th2 + (2*beta*delta*Th*(htilnum))/ (htilprimenum),2) + (2*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),2)* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),3) - ((-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/(beta*delta*(htilnum))) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))\ - (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2) + (2*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 3) - ((-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2))/(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/ (htilprimenum),2)))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2))/(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))\ - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2))) /pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/(beta*delta*(htilnum))) + ((((-2*(-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilprimenum)) - (-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)* (htilnum) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) + (4*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (2*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (6*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),4) + (4*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2)) /(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* ((-2*(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))\ - (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2) + (2*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 3) - ((-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + ((-((omegap)*g0*R1momegap*Th*(6*A + 60*B*Th2)) - 3*(omegap)*g0*R1momegap*(htilsecondnum) + (zetap)*g0*R1malpha*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (4*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (2*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) + (2*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (6*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),4) + (4*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) + (2*((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - ((m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2) + (2*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),2)* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),3)\ - ((-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2)) /(-2*R*Th - (R*(m1Th2)*(htilprimenum))/(beta*delta*(htilnum))) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/(beta*delta*(htilnum))) + (((-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilprimenum)) - (-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)* (htilnum) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggprimenum)/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (6*pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (6*pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),4) - (3*(-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-3 + omegap)*(-2 + omegap)*(-1 + omegap)*(omegap)*g0* pow(R,-4 + omegap)*Th*(htilnum)) - (-1 - alpha)*(1 - alpha)*(zetap)*alpha*g0*pow(R,-zetap)* ggnum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) + ((-2*(-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum ))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th*(htilsecondnum)) - 2*(-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilprimenum) + ((1 - alpha)*(zetap)*g0*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/pow(R,alpha))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilprimenum)) - (-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)* (htilnum) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) + (4*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (2*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (6*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),4) + (4*(-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))) /pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-2 + omegap)*(-1 + omegap)*(omegap)*g0*pow(R,-3 + omegap)*Th* (htilnum)) - (1 - alpha)*(zetap)*alpha*g0*pow(R,-1 - alpha)* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2)) /(-2*R*Th - (R*(m1Th2)*(htilprimenum))/(beta*delta*(htilnum))) + (2*pow(-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2)* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (2*(-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2)))/pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (((-(g0*omega*Th*(6*A + 60*B*Th2)) - 3*g0*omega*(htilsecondnum) + g0*zeta*(24*c2*Th - 48*c3*pow(Th,3) + 72*c3*Th*(m1Th2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))\ - (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - (2*(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2) + (2*pow(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)),2)* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - (((-2*R*(m1Th2)*pow(htilprimenum,3))/ (beta*delta*pow(htilnum,3)) + (3*R*(m1Th2)*(htilsecondnum)*(htilprimenum))/ (beta*delta*pow(htilnum,2)) - (4*R*Th*pow(htilprimenum,2))/(beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(6*A + 60*B*Th2))/(beta*delta*(htilnum)) + (4*R*Th*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*pow(-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum),2)* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 3) - ((-2 + 4*beta*delta - (2*beta*delta*Th*(htilsecondnum))/(htilprimenum) + (4*beta*delta*Th*pow(htilsecondnum,2)*(htilnum))/ pow(htilprimenum,3) - (2*beta*delta*Th*(6*A + 60*B*Th2)*(htilnum))/ pow(htilprimenum,2) - (4*beta*delta*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2))/(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* ((-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2)))/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) + (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((omegap)*g0*R1momegap*Th*(htilnum)) + (zetap)*g0*R1malpha* ggnum))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/ (htilprimenum),2)))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + ((-((omegap)*g0*R1momegap*Th*(htilsecondnum)) - 2*(omegap)*g0*R1momegap*(htilprimenum) + (zetap)*g0*R1malpha* ggsecondnum )/(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilsecondnum)) - 2*g0*omega*(htilprimenum) + g0*zeta*(-2*c1 + 8*c2*Th2 - 4*c2*(m1Th2) + 24*c3*Th2*(m1Th2) - 6*c3*pow(m1Th2,2))))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) - ((-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (2*(-2*R + (R*(m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - (R*(m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*R*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),3) - ((-2 + ((m1Th2)*pow(htilprimenum,2))/ (beta*delta*pow(htilnum,2)) - ((m1Th2)*(htilsecondnum))/(beta*delta*(htilnum)) + (2*Th*(htilprimenum))/(beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilprimenum)) - (-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)* (htilnum) + ((1 - alpha)*(zetap)*g0*ggprimenum)/pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum)) - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha)))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum), 2))/(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))\ - ((-2*Th + 2*beta*delta*Th - (2*beta*delta*Th*(htilsecondnum)*(htilnum))/ pow(htilprimenum,2) + (2*beta*delta*(htilnum))/(htilprimenum))* ((-((omegap)*g0*R1momegap*Th*(htilprimenum)) - (omegap)*g0*R1momegap*(htilnum) + (zetap)*g0*R1malpha*ggprimenum)/ (-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum))) - ((-2*Th - ((m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)))* (-(g0*omega*Th*(htilprimenum)) - g0*omega*(htilnum) + g0*zeta*ggprimenum))/ pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2) + (-((-1 + omegap)*(omegap)*g0*pow(R,-2 + omegap)*Th* (htilnum)) + ((1 - alpha)*(zetap)*g0*ggnum)/ pow(R,alpha))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))))/ pow(m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum),2))) /pow(-2*R*Th - (R*(m1Th2)*(htilprimenum))/ (beta*delta*(htilnum)),2))/ (m1Th2 + (2*beta*delta*Th*(htilnum))/(htilprimenum))); } /*}}}*/ /* For (equilibrium) correlation length */ /*{{{*/ // Magnetization double M(double R, double Theta){ return M0*pow(R,beta)*Theta;} // Scaling variable z double z(double R, double Theta){ return 2.0/(1.0+((1.0/3.0)*((fabs(R*(1-Theta*Theta)))/(pow(fabs(M0*pow(R,beta)*Theta),(1/beta)))))); } // Epsilon expansion of scaling function g double gEpsExp(double R, double Theta){ return pow(6.0,(-2.0*nu))*(z(R,Theta))*(1.0 - ((1.0/36.0)*epsilon*(((5.0+(6.0*log(3.0)))*z(R,Theta))-(6*(1.0+z(R,Theta))*log(z(R,Theta))))) + ((epsilon*epsilon)*((((1.0/72.0)*(1.0+(2.0*z(R,Theta)*z(R,Theta))))*log(z(R,Theta))*log(z(R,Theta)))+((((z(R,Theta)/18.0)*(z(R,Theta)-(1.0/2.0))*(1.0-log(3.0)))-((1.0/216.0)*((16.0*z(R,Theta)*z(R,Theta))-((47.0/3.0)*z(R,Theta))-(56.0/3.0))))*log(z(R,Theta)))+(((1.0/216.0)*((101.0/6.0)+((2.0/3.0)*I)+(6.0*log(3.0)*log(3.0))+(4.0*log(3.0))-10.0))*z(R,Theta)*z(R,Theta))-(((1.0/216.0)*((6.0*log(3.0)*log(3.0))+((44.0/3.0)*log(3.0))+(137.0/9.0)+((8.0/3.0)*I)))*z(R,Theta))))); } // Asypmtotic form of scaling function g double gAsymp(double R, double Theta){ return pow((1.0/(3.0+((fabs(R*(1-Theta*Theta)))/(pow(fabs(M0*pow(R,beta)*Theta),(1/beta)))))),(2.0*nu)); } // Correlation length in epsilon expansion double CalcCorrLengthEpsExp(double R, double Theta){ return sqrt(aa*aa*(pow((fabs(M(R,Theta))),(-2.0*nu/beta)))*fabs(gEpsExp(R,Theta))); } // Correlation length in epsilon expansion double CalcCorrLengthAsympt(double R, double Theta){ return sqrt(aa*aa*(pow((fabs(M(R,Theta))),(-2.0*nu/beta)))*gAsymp(R,Theta)); } /*}}}*/ /* For gaussian filtering */ /*{{{*/ double GausFunc (double x, double y, double sigmax, double sigmay){ return 1.0/sqrt(2.0*PI*sigmax*sigmax*sigmay*sigmay)*exp(-x*x/(2.0*sigmax*sigmax)-y*y/(2.0*sigmay*sigmay)); } /*}}}*/ #undef NRANSI