Unprotect["`*"]; 
ClearAll["`*"];

Black holes and gravitational waves in models of minicharged dark matter

Radial plunge of charged particle into a spherically symmetric charged black hole.

Mathematica notebook to compute the perturbations induced by a charged particle falling into a charged black hole. This notebook is a reference for:
Black holes and gravitational waves in models of minicharged dark matter, by V. Cardoso, C. F. B. Macedo, P. Pani and V. Ferrari.

Metric, vector and matter perturbations.

Here we define the perturbations (in the frequency domain) expanded in terms of harmonics.

$Assumptions={r≥0,π≥θ≥0,Element[L,Integers],Element[ms,Reals],v[r]>0};
x={t,r,θ,ϕ};

Metric

gdd={{g00,g01,0,0},{g01,g11,0,0},{0,0,g22,0},{0,0,0,g33}};

(*Metric and perturbations at first order*)
ordere=1;
h00=Exp[v[r]]H0[r]Y[θ]Exp[-I σ t] ;
h01= I σ H1[r]Y[θ]Exp[-I σ t];
h11=((H0[r])/(Exp[v[r]]))Y[θ]*Exp[-I σ t];
h22=(r^2)Kp[r]Y[θ]Exp[-I σ t];
h33=(r^2)Kp[r]Y[θ]Exp[-I σ t]((Sin[θ])^2);
g00=-Exp[v[r]]+ϵ h00; 
g01=ϵ h01;
g11=(1/(Exp[v[r]]))+ϵ h11;
g22=(r^2)+ϵ h22;
g33=(r^2)((Sin[θ])^2)+ϵ h33;
guu=Inverse[gdd];
dim=Length[gdd];
Do[g[i,j]=Simplify[gdd[[i]][[j]]];,{i,1,dim},{j,1,dim}];
Do[gu[i,j]=Simplify[Normal[Series[guu[[i]][[j]],{ϵ,0,ordere}]]];,{i,1,dim},{j,1,dim}];
DET=Simplify[Normal[Series[Det[gdd],{ϵ,0,ordere}]]];

DET

Vector field

Av0={At[r],0,0,0};

δAp={-f02[r](E^(-I t σ)) Y[θ],-f12[r](E^(-I t σ)) Y[θ],0,0};

Av=Av0+ϵ δAp;

Av

Particle’s stress-energy tensor and current

Ten=ϵ (E^(-I σ t)){{ Alm0p[r] Y[θ],((I  Alm1p[r] Y[θ])/(Sqrt[2])),0,0},{((I  Alm1p[r] Y[θ])/(Sqrt[2])),Almp[r] Y[θ],0,0},{0,0,0,0},{0,0,0,0}};

(*Ten=ϵ (E^(-I σ t)){{ ((A00[r])/(16π)) Y[θ],((-A01[r] Y[θ])/(16π)),0,0},{((-A01[r] Y[θ])/(16π)),((-A11[r])/(16π)) Y[θ],0,0},{0,0,0,0},{0,0,0,0}};*)

Jc=(E^(-I σ t))ϵ{j0[r]Y[θ],j1[r]Y[θ],j2[r]Y'[θ],0};

Equations of motion

In this section we compute the equations of motion, as well simplificate them to set a pair of second order Schrodinger-like equations.

Compute equations

ruY=Y''[θ]->-L (1+L) Y[θ]-Cot[θ] Y'[θ];

expan[XX_]:=Factor[Normal[Series[XX,{ϵ,0,1}]]];

(*Computing geometric quantities*)
Γ=ParallelTable[expan[Sum[(1/2)guu[[k]][[l]](D[gdd[[l]][[i]],x[[j]]]+D[g[l,j],x[[i]]]-D[g[j,i],x[[l]]]),{l,1,dim}]],{i,1,dim},{j,1,dim},{k,1,dim}]/.ruY;
Ruddd=ParallelTable[expan[D[Γ[[i,k,b]],x[[j]]]-D[Γ[[i,j,b]],x[[k]]]+Sum[Γ[[i,k,β]]Γ[[β,j,b]]-Γ[[i,j,β]]Γ[[β,k,b]],{β,1,dim}]],{b,1,dim},{i,1,dim},{j,1,dim},{k,1,dim}]/.ruY; (*here is the definition of Riemann tensor*)

Rdddd=ParallelTable[expan[Sum[g[l,b]*Ruddd[[l,i,j,k]],{l,1,dim}]],{b,1,dim},{i,1,dim},{j,1,dim},{k,1,dim}]/.ruY;
Ricci=ParallelTable[expan[Sum[Ruddd[[k,i,k,j]],{k,1,dim}]],{i,1,dim},{j,1,dim}]/.ruY;
scalarR=expan[Sum[Ricci[[i,j]]*gu[i,j],{i,1,dim},{j,1,dim}]]/.ruY;
G=ParallelTable[expan[Ricci[[i,j]]-g[i,j]*scalarR/2],{i,1,dim},{j,1,dim}]/.ruY;
Fm=ParallelTable[expan[D[Av[[j]],x[[i]]]-D[Av[[i]],x[[j]]]],{i,1,dim},{j,1,dim}];
Fmu=ParallelTable[expan[Sum[(gu[α,i]gu[β,j]) Fm[[α,β]],{α,1,dim},{β,1,dim}]],{i,1,dim},{j,1,dim}];
Jcu=ParallelTable[expan[Sum[expan[Jc[[α]](gu[i,α])],{α,1,dim}]],{i,1,dim}];
Tem=ParallelTable[(1/(4π))(Sum[gu[α,β]Fm[[α,i]]Fm[[β,j]]-(1/4)g[i,j]Fm[[α,β]]Fmu[[α,β]],{α,1,dim},{β,1,dim}]),{i,1,dim},{j,1,dim}]/.ruY;
SeT=ParallelTable[Factor[Normal[Series[(Ten[[i,j]]+Tem[[i,j]]),{ϵ,0,ordere}]]],{i,1,dim},{j,1,dim}];
EinEq=ParallelTable[Factor[Normal[Series[G[[i,j]]-8π (SeT[[i,j]]),{ϵ,0,ordere}]]],{i,1,dim},{j,1,dim}];
maxeq=ParallelTable[expan[Sum[D[(((-DET))^(1/2))Fmu[[i,α]],x[[α]]],{α,1,dim}]-4π(((-DET))^(1/2))Jcu[[i]]],{i,1,dim}]/.ruY;
divt=ParallelTable[Sum[D[(Tem[[α,i]])]+Sum[Γ[[]],{β,1,dim}],{α,1,dim}],{i,1,dim}];
Beep[]

Manipulating the equations

Background

At[r_]:=((-Q)/r);

Checking the background equations

Simplify[{EinEq[[1,1]],EinEq[[2,2]],maxeq[[1]]}/.ϵ->0]//Simplify

sbkg=Solve[{-(((E^(v[r])) ((Q^2)+(-1+(E^(v[r]))) (r^2)+(E^(v[r])) (r^3) v'[r]))/(r^4))==0},{v'[r]}][[1]]

(*Clear[λ,v]*)

(*λ[r_]:=v[r];*)

Perturbations

Here we collect the Einstein-Maxwell equations in the first order of the perturbation.

varsp={H0[r],H1[r],Kp[r],H0'[r],H1'[r],Kp'[r],H0''[r],H1''[r],Kp''[r],f12[r],f02[r],f12''[r],f02''[r],f12'[r],f02'[r],f01'[r],f01[r]};

Einstein’s equation

eq11=Collect[((Coefficient[EinEq[[1,1]],ϵ])/(Y[θ] Exp[-I σ t])),varsp,FullSimplify];
eq12=Collect[((Coefficient[EinEq[[1,2]],ϵ])/(Y[θ] Exp[-I σ t])),varsp,FullSimplify];
eq13=Collect[((Coefficient[EinEq[[1,3]],ϵ])/((E^(-I t σ))  Y'[θ])),varsp,FullSimplify];
eq22=Collect[((Coefficient[EinEq[[2,2]],ϵ])/(Y[θ] (E^(-I σ t)))),varsp,FullSimplify];
eq23=Collect[((Coefficient[EinEq[[2,3]],ϵ])/(Y'[θ] (E^(-I σ t)))),varsp,FullSimplify];
eq33=Collect[((Coefficient[EinEq[[3,3]],ϵ])/(Y[θ] (E^(-I σ t)))),varsp,FullSimplify];
eq44=Collect[((Coefficient[EinEq[[4,4]],ϵ])/(Y[θ] (E^(-I σ t))((Sin[θ])^2))),varsp,FullSimplify];

Maxwell’s equation

ma1=Collect[((Coefficient[maxeq[[1]],ϵ])/(Sin[θ] Y[θ] (E^(-I t σ)))),varsp,Simplify];
ma2=Collect[Coefficient[((maxeq[[2]])/(Sin[θ]Y[θ](E^(-I t σ)))),ϵ],varsp,Simplify];
ma3=Collect[Coefficient[((maxeq[[3]])/(Sin[θ]Y'[θ](E^(-I t σ)))),ϵ],varsp,Simplify];

{eq11,eq12,eq13,eq22,eq23,eq33}/.H1->(((H1[#])/(I σ))&)

ma1
ma2
ma3

eq22

Reducing to five first order equations

s1st=Solve[{eq12,eq13,eq23,ma2,ma3}==0,{Kp'[r],H1'[r],H0'[r],f02'[r],f12'[r]}][[1]]//FullSimplify

s1st=Solve[{eq12,eq13,eq23,eq22,ma2,ma3}==0,{Kp'[r],H1'[r],H0'[r],H0[r],f02'[r],f12'[r]}][[1]]/.L->1//FullSimplify

Collect[s1st[[1,2]]/.Kp->(0&)/.L->1,varsp,Simplify]

sh0=Solve[((4 (Sqrt[2]) π Alm1p[r])/σ)+((H0[r])/r)-((H1[r] ((Q^2)+(E^(v[r])) (r^2)+(E^(v[r])) (r^3) v'[r]))/(r^4))==0,H0[r]][[1]]/.r->#//Simplify

Solve[{s1st[[2,1]]==s1st[[2,2]],s1st[[3,1]]==s1st[[3,2]]}//.{Kp->(0&),H0->(-((4 (Sqrt[2]) π Alm1p[#1] #1)/σ)+H1[#1] ((((Q^2)+(E^(v[#1])) ((#1)^2))/((#1)^3))+(E^(v[#1])) v'[#1])&),v->(Log[1-2(M/(#))+((Q^2)/((#)^2))]&),L->1},{H1[r],H1'[r]}]//Simplify

Collect[eq33s1st[[1,2]]/.L->1/.D[s1st[[1]],r]/.D[s1st[[3]],r]/.s1st/.v->(Log[1-2(M/(#))+((Q^2)/((#)^2))]&),varsp,Simplify]

s1st[[1]]/.L->2/.v->(Log[1-2(M/(#))+((Q^2)/((#)^2))]&)//Simplify

eqs11=
{s1st[[1,1]]-s1st[[1,2]],
s1st[[2,1]]-s1st[[2,2]],
s1st[[3,1]]-s1st[[3,2]],
s1st[[4,1]]-s1st[[4,2]],
s1st[[5,1]]-s1st[[5,2]]}

Reducing the system to a two differential second order equations.

sΛ=Solve[(1/2)(L-1)(L+2)==Λ,L][[2]];

eqsme=Collect[Solve[({eq12,eq23,eq13,eq22}/.sΛ)==0,{Kp'[r],H1'[r],H0'[r],H0[r]}][[1]],varsp,FullSimplify];

sma=Collect[Solve[({ma1,ma2,ma3}/.sΛ)==0,{f02''[r],f02'[r],f12'[r]}],varsp,FullSimplify][[1]];

eqsfi={eqsme[[1,1]]-eqsme[[1,2]],eqsme[[2,1]]-eqsme[[2,2]],sma[[2,1]]-sma[[2,2]],sma[[3,1]]-sma[[3,2]]};

eqsfi

Setting a system of second order equations a la Zerilli. First, let us look into the Maxwell equations

sf02=Solve[eqsfi[[3]]==0,f02'[r]][[1]]

sf022=Solve[eqsfi[[4]]==0,f02[r]][[1]];

sf022/.f12->(flm[#]Exp[-v[#]]&)//Simplify

eqem=Collect[I σ (E^(v[r])) D[((eqsfi[[4]])/(I (E^(-2 v[r])) σ)),r]/.sf02/.f12->(flm[#]Exp[-v[#]]&),{flm''[r],flm'[r],flm[r],(σ^2)},Simplify]

eqsg1=Collect[Simplify[{eqsfi[[1]],eqsfi[[2]]}/.sf02/.sf022/.f12->(flm[#]Exp[-v[#]]&)]//Simplify,{H1'[r],Kp'[r],H1[r],Kp[r]},Simplify]

Coefficient[eqsg1[[2]],Kp[r]]

For the gravitational perturbations, the manipulations are a bit more complicated. See the generic_zerilli.nb notebook for details. We have

rulecos={
α0[r]->-Coefficient[eqsg1[[1]],Kp[r]]/.σ->0,
α2[r]->-Coefficient[Coefficient[eqsg1[[1]],Kp[r]],(σ^2)],
β0[r]->-Coefficient[eqsg1[[1]],H1[r]]/.σ->0,
β2[r]->-Coefficient[Coefficient[eqsg1[[1]],H1[r]],(σ^2)],
γ0[r]->-Coefficient[eqsg1[[2]],Kp[r]]/.σ->0,
γ2[r]->-Coefficient[Coefficient[eqsg1[[2]],Kp[r]],(σ^2)],
δ0[r]->-Coefficient[eqsg1[[2]],H1[r]]/.σ->0,
δ2[r]->-Coefficient[Coefficient[eqsg1[[2]],H1[r]],(σ^2)],
Sk[r]->-eqsg1[[1]]/.{Kp->(0&),H1->(0&)},
Sh[r]->-eqsg1[[2]]/.{Kp->(0&),H1->(0&)}
}//Simplify

The main functions are given by (see other notebook for derivation)

Clear[Fe,g2]

Fe1=Simplify[((Sqrt[β2[r]]))/(√(-((β2[r])^2) γ0[r]+δ2[r] (β0[r] δ2[r]-(β2)'[r])+β2[r] ((α0[r]-δ0[r]) δ2[r]+(δ2)'[r])))//.Union[rulecos,D[rulecos,r],D[rulecos,{r,2}],D[rulecos,{r,3}]],Assumptions->v[r]>0];
dgf=Simplify[(g2[r] (-((β2[r])^2) Fe'[r]-Fe[r] β2[r] (β2[r] δ0[r]-β0[r] δ2[r]+(β2)'[r])-((Fe[r])^3) (α0[r] β2[r]+β0[r] δ2[r]) (-((β2[r])^2) γ0[r]+δ2[r] (β0[r] δ2[r]-(β2)'[r])+β2[r] (α0[r] δ2[r]-δ0[r] δ2[r]+(δ2)'[r]))))/(Fe[r] β2[r] (((Fe[r])^2) ((β2[r])^2) γ0[r]+((Fe[r])^2) δ2[r] (-β0[r] δ2[r]+(β2)'[r])-β2[r] (1+((Fe[r])^2) (α0[r] δ2[r]-δ0[r] δ2[r]+(δ2)'[r]))))//.Union[rulecos,D[rulecos,r],D[rulecos,{r,2}],D[rulecos,{r,3}]],Assumptions->v[r]>0];
Veff=-((Fe[r] (-α0[r] (β2[r] Fe'[r]+Fe[r] (β2[r] (-α0[r]+δ0[r])-2 β0[r] δ2[r]+(β2)'[r])) (((Fe[r])^2) ((β2[r])^2) γ0[r]+((Fe[r])^2) δ2[r] (-β0[r] δ2[r]+(β2)'[r])-β2[r] (1+((Fe[r])^2) ((α0[r]-δ0[r]) δ2[r]+(δ2)'[r])))-(1/(Fe[r] β2[r]))β0[r] (-((Fe[r])^2) ((β2[r])^2) γ0[r]-((Fe[r])^2) β0[r] ((δ2[r])^2)+β2[r] (1+Fe[r] δ2[r] Fe'[r]+((Fe[r])^2) (δ2)'[r])) (((Fe[r])^2) ((β2[r])^2) γ0[r]+((Fe[r])^2) δ2[r] (-β0[r] δ2[r]+(β2)'[r])-β2[r] (1+((Fe[r])^2) ((α0[r]-δ0[r]) δ2[r]+(δ2)'[r])))+(1/(Fe[r] β2[r]))(-β2[r] Fe'[r]+Fe[r] (α0[r] β2[r]-β2[r] δ0[r]+2 β0[r] δ2[r]-(β2)'[r])) (((β2[r])^2) Fe'[r]+Fe[r] β2[r] (β2[r] δ0[r]-β0[r] δ2[r]+(β2)'[r])+((Fe[r])^3) (α0[r] β2[r]+β0[r] δ2[r]) (-((β2[r])^2) γ0[r]+δ2[r] (β0[r] δ2[r]-(β2)'[r])+β2[r] (α0[r] δ2[r]-δ0[r] δ2[r]+(δ2)'[r])))+(((Fe[r])^2) ((β2[r])^2) γ0[r]+((Fe[r])^2) δ2[r] (-β0[r] δ2[r]+(β2)'[r])-β2[r] (1+((Fe[r])^2) ((α0[r]-δ0[r]) δ2[r]+(δ2)'[r]))) (Fe'[r] (β2)'[r]+Fe'[r] (β2[r] (-α0[r]+δ0[r])-2 β0[r] δ2[r]+(β2)'[r])+β2[r] Fe''[r]+Fe[r] (-2 δ2[r] (β0)'[r]+(-α0[r]+δ0[r]) (β2)'[r]+β2[r] (-(α0)'[r]+(δ0)'[r])-2 β0[r] (δ2)'[r]+(β2)''[r]))-(β2[r] Fe'[r]+Fe[r] (β2[r] (-α0[r]+δ0[r])-2 β0[r] δ2[r]+(β2)'[r])) (-(β2)'[r]+2 Fe[r] Fe'[r] (((β2[r])^2) γ0[r]+δ2[r] (-β0[r] δ2[r]+(β2)'[r])-β2[r] (α0[r] δ2[r]-δ0[r] δ2[r]+(δ2)'[r]))+((Fe[r])^2) (((β2[r])^2) (γ0)'[r]+δ2[r] (-δ2[r] (β0)'[r]-α0[r] (β2)'[r]+δ0[r] (β2)'[r]-2 β0[r] (δ2)'[r]+(β2)''[r])-β2[r] (-2 γ0[r] (β2)'[r]+δ2[r] ((α0)'[r]-(δ0)'[r])+α0[r] (δ2)'[r]-δ0[r] (δ2)'[r]+(δ2)''[r])))))/(((((Fe[r])^2) ((β2[r])^2) γ0[r]+((Fe[r])^2) δ2[r] (-β0[r] δ2[r]+(β2)'[r])-β2[r] (1+((Fe[r])^2) ((α0[r]-δ0[r]) δ2[r]+(δ2)'[r]))))^2));
Sve={(β2[r] (Sh[r] β2[r]-Sk[r] δ2[r]))/(g2[r] (((β2[r])^2) γ0[r]+δ2[r] (-β0[r] δ2[r]+(β2)'[r])-β2[r] (α0[r] δ2[r]-δ0[r] δ2[r]+(δ2)'[r]))),((Sqrt[β2[r]]) (Sh[r] β2[r] (2 ((α0[r])^2) ((β2[r])^2) δ2[r]+δ2[r] (4 ((β0[r])^2) ((δ2[r])^2)-7 β0[r] δ2[r] (β2)'[r]+3 (((β2)'[r])^2))+((β2[r])^3) (2 γ0[r] δ0[r]-(γ0)'[r])+α0[r] β2[r] (-2 ((β2[r])^2) γ0[r]-4 β2[r] δ0[r] δ2[r]+6 β0[r] ((δ2[r])^2)-4 δ2[r] (β2)'[r]+3 β2[r] (δ2)'[r])+β2[r] (((δ2[r])^2) (β0)'[r]+4 δ0[r] δ2[r] (β2)'[r]-3 (β2)'[r] (δ2)'[r]+6 β0[r] δ2[r] (-δ0[r] δ2[r]+(δ2)'[r])-δ2[r] (β2)''[r])+((β2[r])^2) (-4 β0[r] γ0[r] δ2[r]+2 ((δ0[r])^2) δ2[r]+δ2[r] (α0)'[r]+γ0[r] (β2)'[r]-δ2[r] (δ0)'[r]-3 δ0[r] (δ2)'[r]+(δ2)''[r]))+Sk[r] (4 ((β2[r])^4) ((γ0[r])^2)+((δ2[r])^2) (β2)'[r] (-β0[r] δ2[r]+(β2)'[r])+((β2[r])^3) (-6 α0[r] γ0[r] δ2[r]+δ2[r] (γ0)'[r]+γ0[r] (6 δ0[r] δ2[r]-8 (δ2)'[r]))+β2[r] δ2[r] (-((δ2[r])^2) (β0)'[r]+2 α0[r] δ2[r] (β0[r] δ2[r]-2 (β2)'[r])+4 δ0[r] δ2[r] (β2)'[r]-5 (β2)'[r] (δ2)'[r]+2 β0[r] δ2[r] (-δ0[r] δ2[r]+(δ2)'[r])+δ2[r] (β2)''[r])+((β2[r])^2) (2 ((α0[r])^2) ((δ2[r])^2)-4 β0[r] γ0[r] ((δ2[r])^2)+2 ((δ0[r])^2) ((δ2[r])^2)-((δ2[r])^2) (α0)'[r]+7 γ0[r] δ2[r] (β2)'[r]+((δ2[r])^2) (δ0)'[r]-5 δ0[r] δ2[r] (δ2)'[r]+4 (((δ2)'[r])^2)+α0[r] δ2[r] (-4 δ0[r] δ2[r]+5 (δ2)'[r])-δ2[r] (δ2)''[r]))))/(4 g2[r] (((((β2[r])^2) γ0[r]+δ2[r] (-β0[r] δ2[r]+(β2)'[r])-β2[r] (α0[r] δ2[r]-δ0[r] δ2[r]+(δ2)'[r])))^2) √(-((β2[r])^2) γ0[r]+δ2[r] (β0[r] δ2[r]-(β2)'[r])+β2[r] (α0[r] δ2[r]-δ0[r] δ2[r]+(δ2)'[r])))};
Sz=-(1/(g2[r]))Fe[r] (-Sk[r]-(α0[r] β2[r] (-Sh[r] β2[r]+Sk[r] δ2[r]))/(((β2[r])^2) γ0[r]+δ2[r] (-β0[r] δ2[r]+(β2)'[r])-β2[r] ((α0[r]-δ0[r]) δ2[r]+(δ2)'[r]))+((-Sh[r] β2[r]+Sk[r] δ2[r]) (β2)'[r])/(((β2[r])^2) γ0[r]+δ2[r] (-β0[r] δ2[r]+(β2)'[r])-β2[r] ((α0[r]-δ0[r]) δ2[r]+(δ2)'[r]))+(β2[r] (-β2[r] Sh'[r]+δ2[r] Sk'[r]-Sh[r] (β2)'[r]+Sk[r] (δ2)'[r]))/(((β2[r])^2) γ0[r]+δ2[r] (-β0[r] δ2[r]+(β2)'[r])-β2[r] ((α0[r]-δ0[r]) δ2[r]+(δ2)'[r]))+(β0[r] δ2[r] (-Sh[r] β2[r]+Sk[r] δ2[r]))/(-((β2[r])^2) γ0[r]+δ2[r] (β0[r] δ2[r]-(β2)'[r])+β2[r] (α0[r] δ2[r]-δ0[r] δ2[r]+(δ2)'[r]))+(β2[r] (Sh[r] β2[r]-Sk[r] δ2[r]) (((β2[r])^2) (γ0)'[r]+δ2[r] (-δ2[r] (β0)'[r]-α0[r] (β2)'[r]+δ0[r] (β2)'[r]-2 β0[r] (δ2)'[r]+(β2)''[r])-β2[r] (-2 γ0[r] (β2)'[r]+δ2[r] ((α0)'[r]-(δ0)'[r])+α0[r] (δ2)'[r]-δ0[r] (δ2)'[r]+(δ2)''[r])))/(((((β2[r])^2) γ0[r]+δ2[r] (-β0[r] δ2[r]+(β2)'[r])-β2[r] (α0[r] δ2[r]-δ0[r] δ2[r]+(δ2)'[r])))^2));

For the F and g2 functions, we have

Fe1

Fe[r_]:=Exp[v[r]];

dgf/.{v->(Log[1-2(M/(#))+((Q^2)/((#)^2))]&)}//Simplify

g2[r_]:=1

Hence the potential is given by

sbkg2=Union[sbkg,D[sbkg,r],D[sbkg,{r,2}]];
srv={v->(Log[1-2(M/(#))+((Q^2)/((#)^2))]&)};

Simplify[Veff//.Union[rulecos,D[rulecos,r],D[rulecos,{r,2}],D[rulecos,{r,3}]]/.{v->(Log[1-2(M/(#))+((Q^2)/((#)^2))]&)}]

Beep[]

Veffx=(2 ((Q^2)+r (-2 M+r)) (-4 (Q^6)+6 (Q^4) r (3 M+r Λ)+(Q^2) (r^2) (-27 (M^2)+2 M r (3-8 Λ)+6 (r^2) Λ)+(r^3) (9 (M^3)+9 (M^2) r Λ+3 M (r^2) (Λ^2)+(r^3) (Λ^2) (1+Λ))))/((r^6) (((-2 (Q^2)+r (3 M+r Λ)))^2));

Comparing with Ruffini expression

Vruf=Exp[v[r]](L(((L+1))/(r^2))-((6M)/(r^3))+8((Q^2)/(r^4))+4((((3M r-4(Q^2))(r M-(Q^2))-(E^(v[r]))(r^2)(3M r-5(Q^2))))/((Λ (r^2)+3M r-2 (Q^2))(r^4)))+((2(E^(v[r]))(((3M r-4(Q^2)))^2))/((r^2)(((Λ (r^2)+3 M r-2(Q^2)))^2))))/.{v->(Log[1-2(M/(#))+((Q^2)/((#)^2))]&)}/.sΛ//Simplify

Simplify[Vruf/.sΛ]

And the source terms

Szs=Collect[Simplify[Sve//.Union[rulecos,D[rulecos,r],D[rulecos,{r,2}],D[rulecos,{r,3}]]//.sbkg2,Assumptions->v[r]>0],{Almp[r],Alm1p[r],Alm1p'[r]},Simplify]

SzRN=Collect[Simplify[Sz//.Union[rulecos,D[rulecos,r],D[rulecos,{r,2}],D[rulecos,{r,3}]]//.sbkg2,Assumptions->v[r]>0],{Alm1p[r],Almp[r],Alm1p'[r]},Simplify]

Sdi=Collect[Simplify[(Szs[[2]]+Fe[r]D[Szs[[1]],r])//.Union[rulecos,D[rulecos,r],D[rulecos,{r,2}],D[rulecos,{r,3}]]//.sbkg2,Assumptions->v[r]>0],{Alm1p[r],Almp[r],Alm1p'[r]},Simplify]

Collect[Sdi,{flm[r],flm'[r],A11[r]},FullSimplify]

The relation for the functions leads to the source term

sL=Solve[sΛ[[1,1]]==sΛ[[1,2]],Λ][[1]]

{w[r]->(1/(Fe[r] ((β2[r])^2)))(g2[r] (((Fe[r])^2) β0[r] ((δ2[r])^2)+β2[r] (-1+((Fe[r])^2) α0[r] δ2[r]))-((Fe[r])^2) β2[r] δ2[r] g2'[r]),k[r]->((g2[r] δ2[r])/(β2[r])),f[r]->Fe[r] (g2[r] (α0[r]+((β0[r] δ2[r])/(β2[r])))-g2'[r])}//.Union[rulecos,D[rulecos,r],D[rulecos,{r,2}],D[rulecos,{r,3}]]//.sbkg2//Simplify

rurel={w[r]->(((E^(-v[r])) (-(Q^4)+2 (Q^2) (r^2) (2+2 (E^(v[r]))+Λ)-(r^4) (3+3 (E^(2 v[r]))+2 Λ-6 (E^(v[r])) (1+Λ))))/(2 (r^2) ((Q^2)+(r^2) (-3+3 (E^(v[r]))-2 Λ)))),k[r]->-(E^(-v[r])) r,f[r]->(((Q^2) (1-5 (E^(v[r]))+Λ)-(r^2) (3+3 (E^(2 v[r]))+5 Λ+2 (Λ^2)-3 (E^(v[r])) (2+Λ)))/(r ((Q^2)+(r^2) (-3+3 (E^(v[r]))-2 Λ))))};

rukh={H1->(((g2[#1] δ2[#1] ψ2[#1])/(β2[#1]))+(δ2[#1] (Sh[#1] β2[#1]-Sk[#1] δ2[#1]))/(-((β2[#1])^2) γ0[#1]+δ2[#1] (β0[#1] δ2[#1]-(β2)'[#1])+β2[#1] ((α0[#1]-δ0[#1]) δ2[#1]+(δ2)'[#1]))+(g2[#1] ψ1[#1] (-((Fe[#1])^2) ((β2[#1])^2) γ0[#1]-((Fe[#1])^2) β0[#1] ((δ2[#1])^2)+β2[#1] (1+Fe[#1] δ2[#1] Fe'[#1]+((Fe[#1])^2) (δ2)'[#1])))/(Fe[#1] β2[#1] (((Fe[#1])^2) ((β2[#1])^2) γ0[#1]+((Fe[#1])^2) δ2[#1] (-β0[#1] δ2[#1]+(β2)'[#1])-β2[#1] (1+((Fe[#1])^2) ((α0[#1]-δ0[#1]) δ2[#1]+(δ2)'[#1]))))&),Kp->(g2[#1] ψ2[#1]+(β2[#1] (-Sh[#1] β2[#1]+Sk[#1] δ2[#1]))/(((β2[#1])^2) γ0[#1]+δ2[#1] (-β0[#1] δ2[#1]+(β2)'[#1])-β2[#1] ((α0[#1]-δ0[#1]) δ2[#1]+(δ2)'[#1]))+(g2[#1] ψ1[#1] (β2[#1] Fe'[#1]+Fe[#1] (β2[#1] (-α0[#1]+δ0[#1])-2 β0[#1] δ2[#1]+(β2)'[#1])))/(((Fe[#1])^2) ((β2[#1])^2) γ0[#1]+((Fe[#1])^2) δ2[#1] (-β0[#1] δ2[#1]+(β2)'[#1])-β2[#1] (1+((Fe[#1])^2) ((α0[#1]-δ0[#1]) δ2[#1]+(δ2)'[#1])))&)};

rukp=Collect[Kp[r]/.rukh//.{ψ2[r]->Fe[r] ψ1'[r],ψ1->(ψz[#]&)}//.Union[rulecos,D[rulecos,r],D[rulecos,{r,2}],D[rulecos,{r,3}]]//.sbkg2,{ψz[r],ψz'[r]},FullSimplify]
ruh1=Collect[H1[r]/.rukh//.{ψ2[r]->Fe[r] ψ1'[r],ψ1->(ψz[#]&)}//.Union[rulecos,D[rulecos,r],D[rulecos,{r,2}],D[rulecos,{r,3}]]//.sbkg2,{ψz[r],ψz'[r]},FullSimplify]

Collect[(f[r]ψz[r]+g2[r]Fe[r]ψz'[r]-g2[r]Szs[[1]])/.rurel//.sbkg2,{ψz[r],ψz'[r]},Simplify]
Collect[(w[r]ψz[r]+k[r]Fe[r]ψz'[r]-k[r]Szs[[1]])/.rurel//.sbkg2,{ψz[r],ψz'[r]},FullSimplify]

The second order system is then given by

eqZer=Fe[r]D[Fe[r]ψz'[r],r]+((σ^2)-Veffx)ψz[r]-SzRN;

eqZf=Collect[eqZer,{(ψz)''[r],(ψz)'[r],ψz[r],flm[r],flm'[r],Alm1p[r],Almp[r],Alm1p'[r]},FullSimplify]

eqmf=Collect[eqem/.rukh//.{ψ2[r]->Fe[r] ψ1'[r],D[ψ2[r]->Fe[r] ψ1'[r],r],ψ1->(ψz[#]&)}//.Union[rulecos,D[rulecos,r],D[rulecos,{r,2}],D[rulecos,{r,3}]]//.sbkg2,{flm''[r],flm'[r],flm[r],(ψz)''[r],(ψz)'[r],ψz[r],Alm1p[r],Almp[r],Alm1p'[r]},FullSimplify]

Showing that both equations from the first order system reduces to the same second order equation

eqsfir=Collect[{Exp[v[r]]eqsg1[[1]],-Exp[2v[r]]((eqsg1[[2]])/r)}/.rukh//.{ψ2[r]->Fe[r] ψ1'[r],D[ψ2[r]->Fe[r] ψ1'[r],r],ψ1->(ψz[#]&)}//.Union[rulecos,D[rulecos,r],D[rulecos,{r,2}],D[rulecos,{r,3}]]//.sbkg2,{ψz''[r],ψz'[r],ψz[r]},Simplify]

eqsfir[[1]]-eqsfir[[2]]//Simplify

Exporting the equations

SetDirectory[NotebookDirectory[]]

eqZf
eqmf

FullSimplify[Exp[v[r]]D[Exp[v[r]]j2[r],r]]//.sbkg2//Simplify

Solve[(((E^(v[r])) (-((Q^2)+(-1+(E^(v[r]))) (r^2)) j2[r]+(E^(v[r])) (r^3) j2'[r]))/(r^3))==dj2,j2'[r]]

FullSimplify[(j1[r]+(((E^(-v[r])) ((Q^2)+(-1+(E^(v[r]))) (r^2)) j2[r])/(r^3))-j2'[r])/.j2'[r]->(((E^(-2 v[r])) (dj2 (r^3)+(E^(v[r])) (Q^2) j2[r]-(E^(v[r])) (r^2) j2[r]+(E^(2 v[r])) (r^2) j2[r]))/(r^3))]

Collect[(((E^(2 v[r])) (8 (Q^2)-6 (r^2) (1+Λ))+(r^2) ((Q^2)-(r^2) (3+2 Λ)) (σ^2)+(E^(v[r])) (2 (1+Λ) (-(Q^2)+(r^2) (3+2 Λ))+3 (r^4) (σ^2))) flm[r])/((r^2) ((Q^2)+(r^2) (-3+3 (E^(v[r]))-2 Λ))),(σ^2),FullSimplify]

eqsfi>>"eqs_pert_RN_first.m"

{eqZf,eqmf}>>"eqs_pert_RN_sec.m"

Beep[]

Integrations: second order system

Unprotect["`*"]; 
ClearAll["`*"];

$Assumptions={r>rp,rp>0,r>0,rm>0,rm<rp,L≥2,Λ≥2,σ>0,γ>0 ,Element[{r,rp,rm,Λ,σ,γ},Reals]};

SetDirectory[NotebookDirectory[]]

Differential equations

eqsper1=<<"eqs_pert_RN_first.m";
eqsper2=<<"eqs_pert_RN_sec.m";

eqsper2/.Λ->0

In terms of the horizon radii

M=((rm+rp)/2);Q=(Sqrt[rm]) (Sqrt[rp]);
v[r_]:=Log[(((r-rm) (r-rp))/(r^2))];

Rules for the homogeneous equations

runosour={Kp->(0&),H1->(0&),f02->(0&),f12->(0&)};
runosour2={ψz->(0&),flm->(0&)};

source1=-eqsper1/.runosour//FullSimplify
source2=-eqsper2/.runosour2//FullSimplify

varsp={H1[r],H1'[r],Kp[r],Kp'[r],f12[r],f02[r],ψz''[r],ψz[r],ψz[r],flm''[r],flm'[r],flm[r]};

eqshom1=Collect[eqsper1/.{Alm1p->(0&),Almp->(0&),j1->(0&),j0->(0&),j2->(0&)},varsp,Simplify]
eqshom2=Collect[eqsper2/.{Alm1p->(0&),Almp->(0&),j1->(0&),j0->(0&),j2->(0&)},varsp,Simplify]

sou2n={(1/((r^2) (((-2 rm rp+(3/2) r (rm+rp)+(r^2) Λ))^2) σ))4 π (r-rm) (r-rp) ((1/(Sqrt[2]))(-8 (rm^2) (rp^2)+12 r rm rp (rm+rp)+2 (r^3) (rm+rp) (3+Λ)-(r^2) (3 (rm^2)+22 rm rp+3 (rp^2)+4 rm rp Λ)) Alm1p[r]+(1/2) r (r-rm) (r-rp) (-4 rm rp+3 r (rm+rp)+2 (r^2) Λ) (2 σ Almp[r]+(Sqrt[2]) Alm1p'[r])),((8 I (Sqrt[2]) π (((r-rm))^2) (((r-rp))^2) (Sqrt[rm rp]) Alm1p[r])/((r^3) (-4 rm rp+3 r (rm+rp)+2 (r^2) Λ)))};
eqshom2o={-(8 I (r-rm) (r-rp) (Sqrt[rm rp]) (6 (r^2) (rm+rp)+2 rm rp (rm+rp)-3 r (((rm+rp))^2)+4 (r^3) Λ (2+Λ)) flm[r])/((r^4) (((-4 rm rp+3 r (rm+rp)+2 (r^2) Λ))^2) σ)+(-(1/((r^6) (((-2 rm rp+(3/2) r (rm+rp)+(r^2) Λ))^2)))2 (r-rm) (r-rp) (-4 (rm^3) (rp^3)+3 r (rm^2) (rp^2) (3 rm+3 rp+2 r Λ)+(r^2) rm rp (-(27/4) (((rm+rp))^2)+r (rm+rp) (3-8 Λ)+6 (r^2) Λ)+(r^3) ((9/8) (((rm+rp))^3)+(9/4) r (((rm+rp))^2) Λ+(3/2) (r^2) (rm+rp) (Λ^2)+(r^3) (Λ^2) (1+Λ)))+(σ^2)) ψz[r]+(((r-rm) (r-rp) (-2 rm rp+r (rm+rp)) (ψz)'[r])/(r^5))+(((((r-rm))^2) (((r-rp))^2) (ψz)''[r])/(r^4)),(-(2 (r-rm) (r-rp) (2 (rm^2) (rp^2)-2 r rm rp (rm+rp+r Λ)+(r^3) (1+Λ) (((3 (rm+rp))/2)+r Λ)))/((r^6) (-2 rm rp+(3/2) r (rm+rp)+(r^2) Λ))+(σ^2)) flm[r]+(I (r-rm) (r-rp) (Sqrt[rm rp]) (8 (rm^2) (rp^2)-11 r rm rp (rm+rp)+(r^2) (3 (rm^2)+3 (rp^2)+2 rm rp (5-2 Λ))+3 (r^3) (rm+rp) Λ+2 (r^4) Λ (1+Λ)) σ ψz[r])/((r^7) (-4 rm rp+3 r (rm+rp)+2 (r^2) Λ))+(((r-rm) (r-rp) (-2 rm rp+r (rm+rp)) flm'[r])/(r^5))+((I (((r-rm))^2) (((r-rp))^2) (Sqrt[rm rp]) σ (ψz)'[r])/(r^6))+(((((r-rm))^2) (((r-rp))^2) flm''[r])/(r^4))};

source2-sou2n//Simplify
eqshom2-eqshom2o//Simplify

L=(1/2) (-1+(Sqrt[9+8 Λ]));

Source terms

Clear[μp,u0,dθ,dϕ,Alm1p,Almp,fp,u0,T,γ,dr,u0]

κ=8π;

(*General source terms*)

u[r_]:=-v[r];

ruY={Conjugate[Y[θ0,ϕ]]->FunctionExpand[SphericalHarmonicY[L,0,0,0]]}//Simplify;

Almpt[r_]:=(1/(r^2))(((dr[r])^2) (E^(((3 u[r])/2)-((v[r])/2))) u0[r] μp Conjugate[Y[θ0,ϕ]] δ[r,rp])/.ruY//Simplify;
Alm1pt[r_]:=(1/(r^2))(I √2 dr[r] (E^((1/2) (u[r]+v[r]))) u0[r] μp Conjugate[Y[θ0,ϕ]] δ[r,rp])/.ruY//Simplify;
Almp1tz[r_]:=((I(Sqrt[2]))/(16π))16π μp u0[r]dr[r](r^(-2))Conjugate[Y[θ0,ϕ]] δ[r,rp]/.ruY//Simplify;
Almptz[r_]:=(1/(16π))16π μp u0[r]Exp[-2v[r]]((dr[r])^2)(r^(-2))Conjugate[Y[θ0,ϕ]] δ[r,rp]/.ruY//Simplify;
Alm1pt[r_]:=(1/(r^2))(I √2 dr[r] (E^((1/2) (u[r]+v[r]))) u0[r] μp Conjugate[Y[θ0,ϕ]] δ[r,rp])/.ruY//Simplify;
Almp[r_]:=FullSimplify[((Almpt[r])/(Sqrt[2π])) Exp[I σ T[r]]/.δ[r,rp]->(1/(Abs[dr[r]])),Assumptions->dr[r]<0];
Alm1p[r_]:=FullSimplify[((Alm1pt[r])/(Sqrt[2π]))Exp[I σ T[r]]/.δ[r,rp]->(1/(Abs[dr[r]])),Assumptions->dr[r]<0];
j0t[r_]:=-q Exp[v[r]] (r^(-2)) Conjugate[Y[θ0,ϕ]] δ[r,rp]/.ruY//Simplify;
j1t[r_]:=q Exp[-v[r]]dr[r] (r^(-2))Conjugate[Y[θ0,ϕ]] δ[r,rp]/.ruY//Simplify;
j2t[r_]:=0;
j0[r_]:=FullSimplify[((j0t[r])/(Sqrt[2π])) Exp[I σ T[r]]/.δ[r,rp]->(1/(Abs[dr[r]])),Assumptions->dr[r]<0];
j1[r_]:=FullSimplify[((j1t[r])/(Sqrt[2π])) Exp[I σ T[r]]/.δ[r,rp]->(1/(Abs[dr[r]])),Assumptions->dr[r]<0];
j2[r_]:=FullSimplify[((j2t[r])/(Sqrt[2π])) Exp[I σ T[r]]/.δ[r,rp]->(1/(Abs[dr[r]])),Assumptions->dr[r]<0];
(*This is to compared with Ruffini 1973, Eq. 15b*)

Alm1pt[r]
Almpt[r]
Almp1tz[r]
Almptz[r]

Alm1p[r]/.Λ->(1/2)(l-1)(l+2)//Simplify
Almp[r]/.Λ->(1/2)(l-1)(l+2)//Simplify
j1[r]/.Λ->(1/2)(l-1)(l+2)//Simplify
j2[r]

Espelializing to infalling case with boost γ (Particle case)

Clear[u0,fp,dr]

fp[r_]:=(1-((2M)/r)+((Q^2)/(r^2)));u0[r_]:=((-q Q+r γ)/(r fp[r]));
dr[r_]:=(1/(T'[r]))//FullSimplify;dθ=0;
dT[r_]:=((-1)/(fp[r] ))(Sqrt[((((q Q-r γ))^2)/((((q Q-r γ))^2)-(r^2) fp[r]))]);
dϕ=0;

(*Check with Schwarzschild values*)

FullSimplify[Almp[r]/.dr[r]->(1/(dT[r]))/.{rm->0,rp->2Ms,Λ->(1/2)(l-1)(l+2)},Assumptions->l>2]
FullSimplify[Alm1p[r]/.dr[r]->(1/(dT[r]))/.{rm->0,rp->2Ms,Λ->(1/2)(l-1)(l+2)},Assumptions->l>2]

dT[r]//FullSimplify

Beep[]

Almp[r]//Simplify
Alm1p[r]//Simplify
j1[r]//Simplify
j2[r]

Almp[r_]:=(((E^(I σ T[r])) (r^3) (q (Sqrt[rm rp])-r γ) (((9+8 Λ))^(1/4)) μp)/(2 (Sqrt[2]) π (((r-rm))^3) (((r-rp))^3) T'[r]));
Alm1p[r_]:=((I (E^(I σ T[r])) (q (Sqrt[rm rp])-r γ) (((9+8 Λ))^(1/4)) μp)/(2 π r (r-rm) (r-rp)));
j1[r_]:=-(((E^(I σ T[r])) q (((9+8 Λ))^(1/4)))/(2 (Sqrt[2]) π (r-rm) (r-rp)));
j2[r_]:=0;

Simplify[source2/.T'[r]->dT[r]]

Beep[]

source2={(1/((r^3) (((-4 rm rp+3 r (rm+rp)+2 (r^2) Λ))^2) σ))4 (Sqrt[2]) (E^(I σ T[r])) (((9+8 Λ))^(1/4)) (I (q (Sqrt[rm rp])-r γ) (-8 (rm^2) (rp^2)+12 r rm rp (rm+rp)+2 (r^3) (rm+rp) (3+Λ)-(r^2) (3 (rm^2)+3 (rp^2)+2 rm rp (11+2 Λ))) μp+(-4 rm rp+3 r (rm+rp)+2 (r^2) Λ) (-I q (-r+rm) (Sqrt[rm rp]) (-r+rp)+(((r^3) (-q (Sqrt[rm rp])+r γ) μp σ)/(Sqrt[((((q (Sqrt[rm rp])-r γ))^2)/((-1+(q^2)) rm rp+r (rm+rp-2 q (Sqrt[rm rp]) γ)+(r^2) (-1+(γ^2))))]))+μp (-(r^2) γ (-2 I r+I (rm+rp)+(r^2) (Sqrt[((((q (Sqrt[rm rp])-r γ))^2)/((-1+(q^2)) rm rp+r (rm+rp-2 q (Sqrt[rm rp]) γ)+(r^2) (-1+(γ^2))))]) σ)+q (-3 I (r^2) (Sqrt[rm rp])-I (((rm rp))^(3/2))+2 I r (Sqrt[rm rp]) (rm+rp)+(r^3) (Sqrt[((rm rp ((q^2) rm rp-2 q r (Sqrt[rm rp]) γ+(r^2) (γ^2)))/((-1+(q^2)) rm rp+r (rm+rp-2 q (Sqrt[rm rp]) γ)+(r^2) (-1+(γ^2))))]) σ)))),-(((Sqrt[2]) (E^(I σ T[r])) (r-rm) (r-rp) (((9+8 Λ))^(1/4)) (q (3 r (rm+rp)+2 (r^2) Λ+4 rm rp (-1+μp))-4 r (Sqrt[rm rp]) γ μp))/((r^4) (-4 rm rp+3 r (rm+rp)+2 (r^2) Λ)))};

Testing the limit in the speed of light

Series[source2/.rm->0,{γ,∞,0}]/.rp->2Ms//Simplify

From rest

FullSimplify[Series[source2/.rm->0,{γ,1,0}]/.rp->2Ms]/.(2 Ms-r)->-f[r]r//Simplify

Asymptotic limits

Series[source2,{r,rp,0}]
Series[source2,{r,∞,1}]

Series[source2[[2]]/.Λ->(1/2)(l-1)(l+2)//Simplify,{r,∞,2}]

The above expressions match with the Schwarzschild limit.

Boundary conditions at the horizon and at infinity. We first deal with the homogeneous set

Clear[H1,Kp,h1,kp,f1,f2,f02,f12,ψz,flm,ψz1,flm1]

Solving the series at the horizon

rst[r_]:=((r rm-r rp+(rm^2) Log[r-rm]-(rp^2) Log[r-rp])/(rm-rp));

ORDH=3;
ψz[r_]:=ψz1[r](E^(-I σ rst[r]));
flm[r_]:=flm1[r](E^(-I σ rst[r]));

exsys={((eqshom2[[1]])/(E^(-I σ rst[r]))),((eqshom2[[2]])/(E^(-I σ rst[r])))}//Simplify;

ψz1[r_]:=Sum[(Subscript[ψzi, i]) (((r-rp))^i),{i,0,ORDH}];
flm1[r_]:=Sum[(Subscript[flmi, i]) (((r-rp))^i),{i,0,ORDH}];

eqsh=Join[
Table[SeriesCoefficient[Series[exsys[[1]],{r,rp,ORDH}],i],{i,1,ORDH}],
Table[SeriesCoefficient[Series[exsys[[2]],{r,rp,ORDH}],i],{i,1,ORDH}]
];
varsh=Join[
Table[(Subscript[ψzi, i]),{i,1,ORDH}],
Table[(Subscript[flmi, i]),{i,1,ORDH}]
];
solh=Solve[eqsh==0,varsh][[1]]//Factor;

Beep[]

Clear[ψz,ψz1,flm,flm1]

bounh={
ψz[r]==(E^(-I σ rst[r]))Sum[(Subscript[ψzi, i]) (((r-rp))^i),{i,0,ORDH}],
D[ψz[r]==Sum[(E^(-I σ rst[r]))(Subscript[ψzi, i]) (((r-rp))^i),{i,0,ORDH}],r],
flm[r]==(E^(-I σ rst[r]))Sum[(Subscript[flmi, i]) (((r-rp))^i),{i,0,ORDH}],
D[flm[r]==Sum[(E^(-I σ rst[r]))(Subscript[flmi, i]) (((r-rp))^i),{i,0,ORDH}],r]
}/.solh;

Beep[]

Solving the series at infinity

Clear[ψz,ψz1,flm,flm1]

ORDF=5;
ψz[r_]:=ψz1[r](E^(I σ rst[r]));
flm[r_]:=flm1[r](E^(I σ rst[r]));

exsys={((eqshom2[[1]])/(E^(I σ rst[r]))),((eqshom2[[2]])/(E^(I σ rst[r])))}//Simplify;

ψz1[r_]:=Sum[(Subscript[ψzi, i]) (((r))^(-i)),{i,0,ORDF+1}];
flm1[r_]:=Sum[(Subscript[flmi, i]) (((r))^(-i)),{i,0,ORDF+1}];

eqsi=Join[
Table[SeriesCoefficient[Series[exsys,{r,∞,ORDF+4}][[1]],i],{i,2,ORDF+1}],
Table[SeriesCoefficient[Series[exsys,{r,∞,ORDF+4}][[2]],i],{i,2,ORDF+1}]
];
varsi=Join[
Table[(Subscript[ψzi, i]),{i,1,ORDF}],
Table[(Subscript[flmi, i]),{i,1,ORDF}]
];
soli=Solve[eqsi==0,varsi][[1]]//Simplify;

Clear[ψz,ψz1,flm,flm1]

bouni={
(E^(I σ rst[r]))Sum[(Subscript[ψzi, i]) (((r))^(-i)),{i,0,ORDF}],
D[(E^(I σ rst[r]))Sum[(Subscript[ψzi, i]) (((r))^(-i)),{i,0,ORDF}],r],
(E^(I σ rst[r]))Sum[(Subscript[flmi, i]) (((r))^(-i)),{i,0,ORDF}],
D[(E^(I σ rst[r]))Sum[(Subscript[flmi, i]) (((r))^(-i)),{i,0,ORDF}],r]
}/.soli//Factor;

ψini=bouni[[1]]/.σ->-σ/.{(Subscript[ψzi, 0])->Agin,(Subscript[flmi, 0])->Aein};
dψini=bouni[[2]]/.σ->-σ/.{(Subscript[ψzi, 0])->Agin,(Subscript[flmi, 0])->Aein};
fini=bouni[[3]]/.σ->-σ/.{(Subscript[ψzi, 0])->Agin,(Subscript[flmi, 0])->Aein};
dfini=bouni[[4]]/.σ->-σ/.{(Subscript[ψzi, 0])->Agin,(Subscript[flmi, 0])->Aein};
ψoui=bouni[[1]]/.{(Subscript[ψzi, 0])->Agou,(Subscript[flmi, 0])->Aeou};
dψoui=bouni[[2]]/.{(Subscript[ψzi, 0])->Agou,(Subscript[flmi, 0])->Aeou};
foui=bouni[[3]]/.{(Subscript[ψzi, 0])->Agou,(Subscript[flmi, 0])->Aeou};
dfoui=bouni[[4]]/.{(Subscript[ψzi, 0])->Agou,(Subscript[flmi, 0])->Aeou};

Solving the system: Shooting method

eqhomf={eqshom2[[1]]==source2[[1]],eqshom2[[2]]==source2[[2]]};

Clear[INTH,FR]

INTH[σ0_,l0_,Q0_,q0_,γ0_,ϵh0_,rinf0_,e1h_,e2h_]:=(
param={Λ->(1/2)(l0-1)(l0+2),σ->σ0,γ->γ0,rp->1+(Sqrt[1-(Q0^2)]),rm->1-(Sqrt[1-(Q0^2)]),μp->1,q->q0};
ruleP={MaxSteps->Infinity(*,PrecisionGoal->8,AccuracyGoal->8*)};
RHo=ϵh0 rp/.param;
(*TinN=NDSolveValue[{T'[r]==(dT[r]/.param),T[RHo]==0},T,{r,RHo,rinf0},ruleP][r];*)
(**from the horizon*)
EQS=Union[eqhomf,{T'[r]==(dT[r]/.param)}]/.param;
BOU=Union[bounh,{T[r]==0}]/.r->(RHo)/.param/.{(Subscript[ψzi, 0])->e1h,(Subscript[flmi, 0])->e2h};
SOL=NDSolveValue[Join[EQS,BOU],{ψz,flm,T},{r,RHo,rinf0},ruleP];
ψhz=SOL[[1]][r];flh=SOL[[2]][r];
dψhz=SOL[[1]]'[r];dflh=SOL[[2]]'[r];
(**Matching with the infinity**)
solpam=Solve[{ψhz==(ψini+ψoui),dψhz==dψini+dψoui,flh==((fini+foui)/e2h),dflh==dfini+dfoui}/.param/.r->rinf0,{Agin,Aein,Agou,Aeou}][[1]];
fluxg=(((l0+2)(l0+1)(l0-1)l0 ((σ0)^2) )/(32π))((Abs[ψoui/.solpam/.param/.r->rinf0])^2);
fluxe=((Q )/(2π))(l0+1)l0 ((Abs[foui/.solpam/.param/.r->rinf0])^2)/.param;
(*EQS=eqhomf/.param;
BOU=bouni/.r->(rinf0)/.param/.{(Subscript[ψzi, 0])->e1i,(Subscript[flmi, 0])->e2i};
SOL=NDSolveValue[Join[EQS,BOU],{ψz,flm},{r,rinf0,RHo}];
ψiz=SOL[[1]][r];fli=SOL[[2]][r];
dψiz=(1-2(M/r)+((Q0^2)/(r^2)))SOL[[1]]'[r]/.param;dfli=(1-2(M/r)+((Q0^2)/(r^2)))SOL[[2]]'[r]/.param;*)
);

|

INTH[.3,2,(10^(-3)),(10^(-3)),1.0001,1.01,(10^2),.01,.01]//AbsoluteTiming

flh/.r->100

ψini/.param/.r->100//Simplify

FR[σ0_,l0_,Q0_,q0_,γ0_,ϵh0_,rinf0_,e1h_?NumberQ,e2h_?NumberQ]:=
(
INTH[σ0,l0,Q0,q0,γ0,ϵh0,rinf0,e1h,e2h];
{Agin,Aein}/.solpam
)

FR[.3,2,0.001,0.001,1.001,1.0001,3 (10^2),2.272529673250576` +0.8766007042447244` I,-0.0000775799745487716`+0.0005494030994655824` I]

Monitor[FindRoot[FR[.3,2,0.9,0.9,1.1,1.001,.5 (10^3),xx,yy],{xx,1.9761853260683178` +0.7271238761042017` I},{yy,-0.021704911847783854`+0.26670092927005773` I}],{xx,yy}]

Beep[]

fluxg
fluxe

FluxGE[0.3,2,0.5,0.5,1.001,(10^(-4)),1 (10^3)]

It checks with Schwarzchild!

fluxe

Solving the system: variation of parameters.

Setting the matrix with the solutions

soleqs=Solve[{eqshom2[[1]]==0,eqshom2[[2]]==0},{ψz''[r],flm''[r]}][[1]]//Simplify;

eqs=Table[soleqs[[i,1]]==soleqs[[i,2]],{i,1,Length[soleqs]}];

INTH2[σ0_,l0_,Q0_,γ0_,ϵh0_,rinf0_,e1h_,e2h_,e1i_,e2i_]:=(
param={Λ->(1/2)(l0-1)(l0+2),σ->σ0,γ->γ0,rp->1+(Sqrt[1-(Q0^2)]),rm->1-(Sqrt[1-(Q0^2)]),μp->1};
ruleP={MaxSteps->Infinity(*,PrecisionGoal->12,AccuracyGoal->12*)};
(**from the horizon*)
EQS=eqs/.param;
RHo=rp+ϵh0/.param;
BOU=bounh/.r->(RHo)/.param/.{(Subscript[ψzi, 0])->e1h,(Subscript[flmi, 0])->e2h};
SOL=NDSolveValue[Join[EQS,BOU],{ψz,flm},{r,RHo,rinf0},ruleP];
ψhz=SOL[[1]][r];flh=SOL[[2]][r];
dψhz=(1-2(M/r)+((Q0^2)/(r^2)))SOL[[1]]'[r]/.param;
dflh=(1-2(M/r)+((Q0^2)/(r^2)))SOL[[2]]'[r]/.param;
(*INtegrating from infinity**)
EQS={eqshom2[[1]]==0,eqshom2[[2]]==0}/.param;
BOU={ψz[r]==bouni[[1]],ψz'[r]==bouni[[2]],flm[r]==bouni[[3]],flm'[r]==bouni[[4]]}/.r->(rinf0)/.param/.{(Subscript[ψzi, 0])->e1i,(Subscript[flmi, 0])->e2i};
SOL=NDSolveValue[Join[EQS,BOU],{ψz,flm},{r,rinf0,RHo},ruleP];
ψiz=SOL[[1]][r];fli=SOL[[2]][r];
dψiz=(1-2(M/r)+((Q0^2)/(r^2)))SOL[[1]]'[r]/.param;
dfli=(1-2(M/r)+((Q0^2)/(r^2)))SOL[[2]]'[r]/.param;
);

INTH2[.3,2,.1,1.001,(10^(-5)),100,1,1,1,1]//AbsoluteTiming

MATS[σ0_,l0_,Q0_,γ0_,ϵh0_,rinf0_]:=
(
INTH2[σ0,l0,Q0,γ0,ϵh0,rinf0,1,0,1,0];
Ψ1h={ψhz,flh,dψhz,dflh};
Ψ1i={ψiz,fli,dψiz,dfli};
INTH2[σ0,l0,Q0,γ0,ϵh0,rinf0,0,1,0,1];
Ψ2h={ψhz,flh,dψhz,dflh};
Ψ2i={ψiz,fli,dψiz,dfli};
(****)
Xt=Join[{Ψ1h,Ψ2h,Ψ1i,Ψ2i}];
Xh=Transpose[Xt];
)

Computing the wave functions at infinity

(*Function for the adjoint matrix*)
adj[m_]:=Map[Reverse,Minors[Transpose[m],Length[m]-1],{0,1}]*Table[(-1)^(i+j),{i,Length[m]},{j,Length[m]}];

(*Defining the source vector*)
Sou={0,0,source2[[1]],source2[[2]]};

FluxGE[σ0_,l0_,Q0_,q0_,γ0_,ϵh0_,rinf0_]:=
(
MATS[σ0,l0,Q0,γ0,ϵh0,rinf0];
TinN=NDSolveValue[{T'[r]==(dT[r]/.μp->1/.param/.q->q0),T[RHo]==0},T,{r,RHo,rinf0},ruleP][r];
soun=Sou/.T[r]->TinN/.μp->1/.param/.q->q0;
ff=(1-2(M/r)+((Q0^2)/(r^2)))/.param;
int1=NDSolveValue[{II'[r]==(soun[[3]]adj[ Xh][[3,3]]+soun[[4]]adj[ Xh][[3,4]])(ff^(-1)),II[RHo]==0},II,{r,RHo,rinf0},ruleP][rinf0];
int2=NDSolveValue[{II'[r]==(soun[[3]]adj[ Xh][[4,3]]+soun[[4]]adj[ Xh][[4,4]])(ff^(-1)),II[RHo]==0},II,{r,RHo,rinf0},ruleP][rinf0];
(*int1=NIntegrate[(soun[[3]]adj[ Xh][[3,3]]+soun[[4]]adj[ Xh][[3,4]])(ff^(-1)),{r,RHo,rinf0}]//Quiet;*)
ψzinf=(int1/(Det[Xh/.r->100]));
ψeinf=(int2/(Det[Xh/.r->100]));
flug=(((l0+2)(l0+1)(l0-1)l0 ((σ0)^2) )/(32π))((Abs[ψzinf])^2);
flue=Q0 l0(((l0+1))/(2π))((Abs[ψeinf])^2);
)

FluxGE[0.3,2,0.8,-20,1.001,(10^(-4)),2 (10^3)]

(flug/(20^2))

Clear[ii]

Integrations: First order system. Shooting method

Unprotect["`*"]; 
ClearAll["`*"];

$Assumptions={r>rp,rp>0,r>0,rm>0,rm<rp,L≥2,Λ≥2,σ>0,γ>0 ,Element[{r,rp,rm,Λ,σ,γ},Reals]};

SetDirectory[NotebookDirectory[]]

Differential equations

The differential equations are

eqsper={Kp'[r]-(1/(2 (r^4) σ))(8 (Sqrt[2]) π (r^4) Alm1p[r]+σ (-2 (Q^2) H1[r]+(r^2) (2 r H0[r]+r Kp[r] (-2+r v'[r])-H1[r] (-2+L+(L^2)+2 (E^(v[r])) (1+r v'[r]))))),((4 I Q f12[r])/((r^2) σ))+(E^(-v[r])) (H0[r]+Kp[r])+H1'[r]+H1[r] v'[r],H0'[r]-(1/(2 (r^4) σ))(E^(-v[r])) (8 Q (r^2) σ f02[r]+2 (r^4) (σ^3) H1[r]-2 (E^(2 v[r])) (r^2) σ H1[r] (1+r v'[r])+(E^(v[r])) (8 (Sqrt[2]) π (r^4) Alm1p[r]-σ (2 (Q^2) H1[r]+(r^2) ((-2+L+(L^2)) H1[r]+r Kp[r] (2-r v'[r])+2 r H0[r] (-1+r v'[r]))))),-((I (E^(v[r])) (L (1+L) f12[r]+4 π (r^2) j1[r])+σ (-I (r^2) σ f12[r]+Q Kp[r]))/((r^2) σ))+f02'[r],(E^(-2 v[r])) (I σ f02[r]+4 (E^(v[r])) π j2[r])+f12'[r]+f12[r] v'[r]};
L=(1/2) (-1+(Sqrt[9+8 Λ]));

In terms of horizon radii

M=((rm+rp)/2);Q=(Sqrt[rm]) (Sqrt[rp]);
v[r_]:=Log[(((r-rm) (r-rp))/(r^2))];

The homogeneous equations and the source terms are

runosour={Alm1p->(0&),Almp->(0&),Alm1p->(0&),j1->(0&),j2->(0&)};
runofun={H0->(0&),H1->(0&),Kp->(0&),f02->(0&),f12->(0&)};

eqhom=eqsper/.runosour//FullSimplify
source=-eqsper/.runofun//FullSimplify

Source terms

Clear[μp,u0,dθ,dϕ,Alm1p,Almp,fp,u0,T,γ,dr,u0]

κ=8π;
μp=1;

(*General source terms*)

u[r_]:=-v[r];

ruY={Conjugate[Y[θ0,ϕ]]->FunctionExpand[SphericalHarmonicY[L,0,0,0]]}//Simplify;

Almpt[r_]:=(1/(r^2))(((dr[r])^2) (E^(((3 u[r])/2)-((v[r])/2))) u0[r] μp Conjugate[Y[θ0,ϕ]] δ[r,rp])/.ruY//Simplify;
Alm1pt[r_]:=(1/(r^2))(I √2 dr[r] (E^((1/2) (u[r]+v[r]))) u0[r] μp Conjugate[Y[θ0,ϕ]] δ[r,rp])/.ruY//Simplify;
Almp1tz[r_]:=((I(Sqrt[2]))/(16π))16π μp u0[r]dr[r](r^(-2))Conjugate[Y[θ0,ϕ]] δ[r,rp]/.ruY//Simplify;
Almptz[r_]:=(1/(16π))16π μp u0[r]Exp[-2v[r]]((dr[r])^2)(r^(-2))Conjugate[Y[θ0,ϕ]] δ[r,rp]/.ruY//Simplify;
Alm1pt[r_]:=(1/(r^2))(I √2 dr[r] (E^((1/2) (u[r]+v[r]))) u0[r] μp Conjugate[Y[θ0,ϕ]] δ[r,rp])/.ruY//Simplify;
Almp[r_]:=FullSimplify[((Almpt[r])/(Sqrt[2π])) Exp[I σ T[r]]/.δ[r,rp]->(1/(Abs[dr[r]])),Assumptions->dr[r]<0];
Alm1p[r_]:=FullSimplify[((Alm1pt[r])/(Sqrt[2π]))Exp[I σ T[r]]/.δ[r,rp]->(1/(Abs[dr[r]])),Assumptions->dr[r]<0];
j0t[r_]:=-q Exp[v[r]] (r^(-2)) Conjugate[Y[θ0,ϕ]] δ[r,rp]/.ruY//Simplify;
j1t[r_]:=q Exp[-v[r]]dr[r] (r^(-2))Conjugate[Y[θ0,ϕ]] δ[r,rp]/.ruY//Simplify;
j2t[r_]:=0;
j0[r_]:=FullSimplify[((j0t[r])/(Sqrt[2π])) Exp[I σ T[r]]/.δ[r,rp]->(1/(Abs[dr[r]])),Assumptions->dr[r]<0];
j1[r_]:=FullSimplify[((j1t[r])/(Sqrt[2π])) Exp[I σ T[r]]/.δ[r,rp]->(1/(Abs[dr[r]])),Assumptions->dr[r]<0];
j2[r_]:=FullSimplify[((j2t[r])/(Sqrt[2π])) Exp[I σ T[r]]/.δ[r,rp]->(1/(Abs[dr[r]])),Assumptions->dr[r]<0];
(*This is to compared with Ruffini 1973, Eq. 15b*)

Alm1pt[r]
Almpt[r]
Almp1tz[r]
Almptz[r]

Alm1p[r]/.Λ->(1/2)(l-1)(l+2)//Simplify
Almp[r]/.Λ->(1/2)(l-1)(l+2)//Simplify
j1[r]/.Λ->(1/2)(l-1)(l+2)//Simplify
j2[r]

Espelializing to infalling case with boost γ (Particle case)

Clear[u0,fp,dr]

fp[r_]:=(1-((2M)/r)+((Q^2)/(r^2)));u0[r_]:=((-q Q+r γ)/(r fp[r]));
dr[r_]:=(1/(T'[r]))//FullSimplify;dθ=0;
dT[r_]:=((-1)/(fp[r] ))(Sqrt[((((q Q-r γ))^2)/((((q Q-r γ))^2)-(r^2) fp[r]))]);
dϕ=0;

(*Check with Schwarzschild values*)

FullSimplify[Almp[r]/.dr[r]->(1/(dT[r]))/.{rm->0,rp->2Ms,Λ->(1/2)(l-1)(l+2)},Assumptions->l>2]
FullSimplify[Alm1p[r]/.dr[r]->(1/(dT[r]))/.{rm->0,rp->2Ms,Λ->(1/2)(l-1)(l+2)},Assumptions->l>2]

dT[r]//FullSimplify

Beep[]

Almp[r]//Simplify
Alm1p[r]//Simplify
j1[r]//Simplify
j2[r]

Almp[r_]:=(((E^(I σ T[r])) (r^3) (q (Sqrt[rm rp])-r γ) (((9+8 Λ))^(1/4)) μp)/(2 (Sqrt[2]) π (((r-rm))^3) (((r-rp))^3) T'[r]));
Alm1p[r_]:=((I (E^(I σ T[r])) (q (Sqrt[rm rp])-r γ) (((9+8 Λ))^(1/4)) μp)/(2 π r (r-rm) (r-rp)));
j1[r_]:=-(((E^(I σ T[r])) q (((9+8 Λ))^(1/4)))/(2 (Sqrt[2]) π (r-rm) (r-rp)))
j2[r_]:=0;

Simplify[source/.T'[r]->dT[r]]

Beep[]

source

source={((2 I (Sqrt[2]) (E^(I σ T[r])) (q (Sqrt[rm rp])-r γ) (((9+8 Λ))^(1/4)) μp)/(r (r-rm) (r-rp) σ)),0,((2 I (Sqrt[2]) (E^(I σ T[r])) (q (Sqrt[rm rp])-r γ) (((9+8 Λ))^(1/4)) μp)/(r (r-rm) (r-rp) σ)),-((I (Sqrt[2]) (E^(I σ T[r])) q (((9+8 Λ))^(1/4)))/((r^2) σ)),0};

Testing the limit in the speed of light

Series[source/.rm->0,{γ,∞,0}]/.rp->2Ms//Simplify

From rest

FullSimplify[Series[source/.rm->0,{γ,1,0}]/.rp->2Ms]/.(2 Ms-r)->-f[r]r//Simplify

Testing asymptotic limits

Series[source,{r,rp,-1}]//FullSimplify

Series[source,{r,∞,0}]

The above expressions match with the Schwarzschild limit (See other notebook).

Boundary conditions

Note that here we consider the full nonhomogeneous equations, such that the proper boundary conditions are aquired. First, let us see the equations with the source

Clear[H0,H1,Kp,f02,f12,h0,h1,kp,f1,f2];
ordh=3;

H0[r_]:=Exp[I σ T[r]]h0[r];
H1[r_]:=Exp[I σ T[r]]h1[r];
Kp[r_]:=Exp[I σ T[r]]kp[r];
f02[r_]:=Exp[I σ T[r]]f1[r];
f12[r_]:=Exp[I σ T[r]]f2[r];

varsp2={h0[r],h1[r],kp[r],f1[r],f2[r]};
varc=Union[varsp2,D[varsp2,r]];

syse=Collect[Table[((eqhom[[i]]-source[[i]])/(Exp[I σ T[r]])),{i,1,Length[eqhom]}]/.{T'[r]->dT[r],T''[r]->dT'[r]},varc,FullSimplify];

(*Solve[%==0,{(Subscript[f1i, 1])}]//Simplify*)

h0[r_]:=Sum[(Subscript[h0i, i]) (((r-rp))^(i-1)),{i,0,ordh}];
h1[r_]:=Sum[(Subscript[h1i, i]) (((r-rp))^(i-1)),{i,0,ordh}];
kp[r_]:=Sum[(Subscript[kpi, i]) (((r-rp))^i),{i,0,ordh}];
f1[r_]:=Sum[(Subscript[f1i, i]) (((r-rp))^i),{i,0,ordh}];
f2[r_]:=Sum[(Subscript[f2i, i]) (((r-rp))^(i-1)),{i,0,ordh}];

Solve[(1/((r-rp)))==xx,r]

rucoen={(Subscript[h1i, 0])->-((rp (4 (Sqrt[2]) q (Sqrt[rm rp]) (((9+8 Λ))^(1/4))-4 (Sqrt[2]) rp γ (((9+8 Λ))^(1/4))+I rm rp σ (Subscript[kpi, 0])-I (rp^2) σ (Subscript[kpi, 0])+2 (rp^3) (σ^2) (Subscript[kpi, 0])))/(2 (-rm+rp) σ (I+I Λ+rp σ))),(Subscript[h0i, 0])->-((rp (-4 I (Sqrt[2]) q (Sqrt[rm rp]) (((9+8 Λ))^(1/4))+4 I (Sqrt[2]) rp γ (((9+8 Λ))^(1/4))+rm rp σ (Subscript[kpi, 0])-(rp^2) σ (Subscript[kpi, 0])-2 I (rp^3) (σ^2) (Subscript[kpi, 0])))/(2 (rm-rp) (I+I Λ+rp σ))),(Subscript[f2i, 0])->-(((rp^2) (Subscript[f1i, 0]))/(rm-rp)),(Subscript[h1i, 1])->(4 (Sqrt[2]) (q^3) rm (rp^3) (Sqrt[rm rp]) (((9+8 Λ))^(1/4))-12 (Sqrt[2]) (q^2) rm (rp^4) γ (((9+8 Λ))^(1/4))+12 (Sqrt[2]) q (rp^4) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4))-4 (Sqrt[2]) (rp^5) (γ^3) (((9+8 Λ))^(1/4))-8 I (q^2) rm (rp^4) (Sqrt[rm rp]) σ (Subscript[f1i, 0])+16 I q rm (rp^5) γ σ (Subscript[f1i, 0])-8 I (rp^5) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 0])+8 (q^2) (rm^3) (Sqrt[rm rp]) (Subscript[f2i, 0])-16 (q^2) (rm^2) rp (Sqrt[rm rp]) (Subscript[f2i, 0])+8 (q^2) rm (rp^2) (Sqrt[rm rp]) (Subscript[f2i, 0])-16 q (rm^3) rp γ (Subscript[f2i, 0])+32 q (rm^2) (rp^2) γ (Subscript[f2i, 0])-16 q rm (rp^3) γ (Subscript[f2i, 0])+8 (rm^2) rp (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 0])-16 rm (rp^2) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 0])+8 (rp^3) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 0])+8 I (q^2) (rm^2) (rp^2) (Sqrt[rm rp]) σ (Subscript[f2i, 0])-8 I (q^2) rm (rp^3) (Sqrt[rm rp]) σ (Subscript[f2i, 0])-16 I q (rm^2) (rp^3) γ σ (Subscript[f2i, 0])+16 I q rm (rp^4) γ σ (Subscript[f2i, 0])+8 I rm (rp^3) (Sqrt[rm rp]) (γ^2) σ (Subscript[f2i, 0])-8 I (rp^4) (Sqrt[rm rp]) (γ^2) σ (Subscript[f2i, 0])+10 I (q^2) (rm^2) (rp^3) σ (Subscript[h0i, 0])-6 I (q^2) rm (rp^4) σ (Subscript[h0i, 0])-20 I q rm (rp^3) (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])+12 I q (rp^4) (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])+10 I rm (rp^4) (γ^2) σ (Subscript[h0i, 0])-6 I (rp^5) (γ^2) σ (Subscript[h0i, 0])-rm (rp^5) (σ^2) (Subscript[h0i, 0])+(rp^6) (σ^2) (Subscript[h0i, 0])+4 I (q^2) (rm^3) rp σ (Subscript[h1i, 0])-8 I (q^2) (rm^2) (rp^2) σ (Subscript[h1i, 0])+4 I (q^2) rm (rp^3) σ (Subscript[h1i, 0])-8 I q (rm^2) rp (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])+16 I q rm (rp^2) (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])-8 I q (rp^3) (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])+4 I (rm^2) (rp^2) (γ^2) σ (Subscript[h1i, 0])-8 I rm (rp^3) (γ^2) σ (Subscript[h1i, 0])+4 I (rp^4) (γ^2) σ (Subscript[h1i, 0])-2 I (q^2) (rm^2) (rp^2) Λ σ (Subscript[h1i, 0])+2 I (q^2) rm (rp^3) Λ σ (Subscript[h1i, 0])+4 I q rm (rp^2) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])-4 I q (rp^3) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])-2 I rm (rp^3) (γ^2) Λ σ (Subscript[h1i, 0])+2 I (rp^4) (γ^2) Λ σ (Subscript[h1i, 0])-(rm^2) (rp^3) (σ^2) (Subscript[h1i, 0])+2 rm (rp^4) (σ^2) (Subscript[h1i, 0])-(rp^5) (σ^2) (Subscript[h1i, 0])-I rm (rp^5) (σ^3) (Subscript[h1i, 0])+I (rp^6) (σ^3) (Subscript[h1i, 0])+3 I (q^2) (rm^2) (rp^4) σ (Subscript[kpi, 0])-3 I (q^2) rm (rp^5) σ (Subscript[kpi, 0])-6 I q rm (rp^4) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])+6 I q (rp^5) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])+3 I rm (rp^5) (γ^2) σ (Subscript[kpi, 0])-3 I (rp^6) (γ^2) σ (Subscript[kpi, 0])-2 (q^2) rm (rp^6) (σ^2) (Subscript[kpi, 0])+4 q (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 0])-2 (rp^7) (γ^2) (σ^2) (Subscript[kpi, 0]))/(2 (rm-rp) (rp^2) ((q^2) rm-2 q (Sqrt[rm rp]) γ+rp (γ^2)) σ (I rm-I rp-2 (rp^2) σ)),(Subscript[h0i, 1])->(4 (Sqrt[2]) (q^3) (rm^2) rp (Sqrt[rm rp]) (((9+8 Λ))^(1/4))-4 (Sqrt[2]) (q^3) rm (rp^2) (Sqrt[rm rp]) (((9+8 Λ))^(1/4))-12 (Sqrt[2]) (q^2) (rm^2) (rp^2) γ (((9+8 Λ))^(1/4))+12 (Sqrt[2]) (q^2) rm (rp^3) γ (((9+8 Λ))^(1/4))+12 (Sqrt[2]) q rm (rp^2) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4))-12 (Sqrt[2]) q (rp^3) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4))-4 (Sqrt[2]) rm (rp^3) (γ^3) (((9+8 Λ))^(1/4))+4 (Sqrt[2]) (rp^4) (γ^3) (((9+8 Λ))^(1/4))+4 I (Sqrt[2]) (q^3) rm (rp^3) (Sqrt[rm rp]) (((9+8 Λ))^(1/4)) σ-12 I (Sqrt[2]) (q^2) rm (rp^4) γ (((9+8 Λ))^(1/4)) σ+12 I (Sqrt[2]) q (rp^4) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4)) σ-4 I (Sqrt[2]) (rp^5) (γ^3) (((9+8 Λ))^(1/4)) σ-8 I (q^2) (rm^2) (rp^2) (Sqrt[rm rp]) σ (Subscript[f1i, 0])+8 I (q^2) rm (rp^3) (Sqrt[rm rp]) σ (Subscript[f1i, 0])+16 I q (rm^2) (rp^3) γ σ (Subscript[f1i, 0])-16 I q rm (rp^4) γ σ (Subscript[f1i, 0])-8 I rm (rp^3) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 0])+8 I (rp^4) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 0])+8 (q^2) rm (rp^4) (Sqrt[rm rp]) (σ^2) (Subscript[f1i, 0])-16 q rm (rp^5) γ (σ^2) (Subscript[f1i, 0])+8 (rp^5) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f1i, 0])-8 (q^2) (rm^2) (rp^2) (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 0])+8 (q^2) rm (rp^3) (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 0])+16 q (rm^2) (rp^3) γ (σ^2) (Subscript[f2i, 0])-16 q rm (rp^4) γ (σ^2) (Subscript[f2i, 0])-8 rm (rp^3) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f2i, 0])+8 (rp^4) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f2i, 0])+6 I (q^2) (rm^3) rp σ (Subscript[h0i, 0])-10 I (q^2) (rm^2) (rp^2) σ (Subscript[h0i, 0])+4 I (q^2) rm (rp^3) σ (Subscript[h0i, 0])-12 I q (rm^2) rp (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])+20 I q rm (rp^2) (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])-8 I q (rp^3) (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])+6 I (rm^2) (rp^2) (γ^2) σ (Subscript[h0i, 0])-10 I rm (rp^3) (γ^2) σ (Subscript[h0i, 0])+4 I (rp^4) (γ^2) σ (Subscript[h0i, 0])-(rm^2) (rp^3) (σ^2) (Subscript[h0i, 0])-2 (q^2) (rm^2) (rp^3) (σ^2) (Subscript[h0i, 0])+2 rm (rp^4) (σ^2) (Subscript[h0i, 0])+2 (q^2) rm (rp^4) (σ^2) (Subscript[h0i, 0])-(rp^5) (σ^2) (Subscript[h0i, 0])+4 q rm (rp^3) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])-4 q (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])-2 rm (rp^4) (γ^2) (σ^2) (Subscript[h0i, 0])+2 (rp^5) (γ^2) (σ^2) (Subscript[h0i, 0])-I rm (rp^5) (σ^3) (Subscript[h0i, 0])+I (rp^6) (σ^3) (Subscript[h0i, 0])-2 I (q^2) (rm^3) σ (Subscript[h1i, 0])+4 I (q^2) (rm^2) rp σ (Subscript[h1i, 0])-2 I (q^2) rm (rp^2) σ (Subscript[h1i, 0])+4 I q (rm^2) (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])-8 I q rm rp (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])+4 I q (rp^2) (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])-2 I (rm^2) rp (γ^2) σ (Subscript[h1i, 0])+4 I rm (rp^2) (γ^2) σ (Subscript[h1i, 0])-2 I (rp^3) (γ^2) σ (Subscript[h1i, 0])-2 I (q^2) (rm^3) Λ σ (Subscript[h1i, 0])+4 I (q^2) (rm^2) rp Λ σ (Subscript[h1i, 0])-2 I (q^2) rm (rp^2) Λ σ (Subscript[h1i, 0])+4 I q (rm^2) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])-8 I q rm rp (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])+4 I q (rp^2) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])-2 I (rm^2) rp (γ^2) Λ σ (Subscript[h1i, 0])+4 I rm (rp^2) (γ^2) Λ σ (Subscript[h1i, 0])-2 I (rp^3) (γ^2) Λ σ (Subscript[h1i, 0])+2 (q^2) (rm^2) (rp^2) (σ^2) (Subscript[h1i, 0])-2 (q^2) rm (rp^3) (σ^2) (Subscript[h1i, 0])-4 q rm (rp^2) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])+4 q (rp^3) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])+2 rm (rp^3) (γ^2) (σ^2) (Subscript[h1i, 0])-2 (rp^4) (γ^2) (σ^2) (Subscript[h1i, 0])+2 (q^2) (rm^2) (rp^2) Λ (σ^2) (Subscript[h1i, 0])-2 (q^2) rm (rp^3) Λ (σ^2) (Subscript[h1i, 0])-4 q rm (rp^2) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 0])+4 q (rp^3) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 0])+2 rm (rp^3) (γ^2) Λ (σ^2) (Subscript[h1i, 0])-2 (rp^4) (γ^2) Λ (σ^2) (Subscript[h1i, 0])-8 I (q^2) (rm^2) (rp^3) (σ^3) (Subscript[h1i, 0])+4 I (q^2) rm (rp^4) (σ^3) (Subscript[h1i, 0])+16 I q rm (rp^3) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 0])-8 I q (rp^4) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 0])-8 I rm (rp^4) (γ^2) (σ^3) (Subscript[h1i, 0])+4 I (rp^5) (γ^2) (σ^3) (Subscript[h1i, 0])+rm (rp^5) (σ^4) (Subscript[h1i, 0])-(rp^6) (σ^4) (Subscript[h1i, 0])+I (q^2) (rm^3) (rp^2) σ (Subscript[kpi, 0])-2 I (q^2) (rm^2) (rp^3) σ (Subscript[kpi, 0])+I (q^2) rm (rp^4) σ (Subscript[kpi, 0])-2 I q (rm^2) (rp^2) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])+4 I q rm (rp^3) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])-2 I q (rp^4) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])+I (rm^2) (rp^3) (γ^2) σ (Subscript[kpi, 0])-2 I rm (rp^4) (γ^2) σ (Subscript[kpi, 0])+I (rp^5) (γ^2) σ (Subscript[kpi, 0])-(q^2) (rm^2) (rp^4) (σ^2) (Subscript[kpi, 0])+(q^2) rm (rp^5) (σ^2) (Subscript[kpi, 0])+2 q rm (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 0])-2 q (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 0])-rm (rp^5) (γ^2) (σ^2) (Subscript[kpi, 0])+(rp^6) (γ^2) (σ^2) (Subscript[kpi, 0])-2 I (q^2) rm (rp^6) (σ^3) (Subscript[kpi, 0])+4 I q (rp^6) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 0])-2 I (rp^7) (γ^2) (σ^3) (Subscript[kpi, 0]))/(2 (rm-rp) (rp^2) ((q^2) rm-2 q (Sqrt[rm rp]) γ+rp (γ^2)) σ (I rm-I rp-2 (rp^2) σ)),(Subscript[kpi, 1])->-((-4 I (Sqrt[2]) (q^2) (rm^3) (rp^3) γ (((9+8 Λ))^(1/4))+8 I (Sqrt[2]) (q^2) (rm^2) (rp^4) γ (((9+8 Λ))^(1/4))-4 I (Sqrt[2]) (q^2) rm (rp^5) γ (((9+8 Λ))^(1/4))+8 I (Sqrt[2]) q (rm^2) (rp^3) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4))-16 I (Sqrt[2]) q rm (rp^4) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4))+8 I (Sqrt[2]) q (rp^5) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4))-4 I (Sqrt[2]) (rm^2) (rp^4) (γ^3) (((9+8 Λ))^(1/4))+8 I (Sqrt[2]) rm (rp^5) (γ^3) (((9+8 Λ))^(1/4))-4 I (Sqrt[2]) (rp^6) (γ^3) (((9+8 Λ))^(1/4))-4 I (Sqrt[2]) (q^3) (rm^2) (rp^3) (Sqrt[rm rp]) Λ (((9+8 Λ))^(1/4))+4 I (Sqrt[2]) (q^3) rm (rp^4) (Sqrt[rm rp]) Λ (((9+8 Λ))^(1/4))+12 I (Sqrt[2]) (q^2) (rm^2) (rp^4) γ Λ (((9+8 Λ))^(1/4))-12 I (Sqrt[2]) (q^2) rm (rp^5) γ Λ (((9+8 Λ))^(1/4))-12 I (Sqrt[2]) q rm (rp^4) (Sqrt[rm rp]) (γ^2) Λ (((9+8 Λ))^(1/4))+12 I (Sqrt[2]) q (rp^5) (Sqrt[rm rp]) (γ^2) Λ (((9+8 Λ))^(1/4))+4 I (Sqrt[2]) rm (rp^5) (γ^3) Λ (((9+8 Λ))^(1/4))-4 I (Sqrt[2]) (rp^6) (γ^3) Λ (((9+8 Λ))^(1/4))+4 (Sqrt[2]) (q^3) (rm^2) (rp^4) (Sqrt[rm rp]) (((9+8 Λ))^(1/4)) σ-12 (Sqrt[2]) (q^3) rm (rp^5) (Sqrt[rm rp]) (((9+8 Λ))^(1/4)) σ-4 (Sqrt[2]) (q^2) (rm^2) (rp^5) γ (((9+8 Λ))^(1/4)) σ+28 (Sqrt[2]) (q^2) rm (rp^6) γ (((9+8 Λ))^(1/4)) σ-4 (Sqrt[2]) q rm (rp^5) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4)) σ-20 (Sqrt[2]) q (rp^6) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4)) σ+4 (Sqrt[2]) rm (rp^6) (γ^3) (((9+8 Λ))^(1/4)) σ+4 (Sqrt[2]) (rp^7) (γ^3) (((9+8 Λ))^(1/4)) σ+8 (q^2) (rm^3) (rp^3) (Sqrt[rm rp]) σ (Subscript[f1i, 0])-24 (q^2) (rm^2) (rp^4) (Sqrt[rm rp]) σ (Subscript[f1i, 0])+16 (q^2) rm (rp^5) (Sqrt[rm rp]) σ (Subscript[f1i, 0])-16 q (rm^3) (rp^4) γ σ (Subscript[f1i, 0])+48 q (rm^2) (rp^5) γ σ (Subscript[f1i, 0])-32 q rm (rp^6) γ σ (Subscript[f1i, 0])+8 (rm^2) (rp^4) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 0])-24 rm (rp^5) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 0])+16 (rp^6) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 0])-8 (q^2) (rm^2) (rp^4) (Sqrt[rm rp]) Λ σ (Subscript[f1i, 0])+8 (q^2) rm (rp^5) (Sqrt[rm rp]) Λ σ (Subscript[f1i, 0])+16 q (rm^2) (rp^5) γ Λ σ (Subscript[f1i, 0])-16 q rm (rp^6) γ Λ σ (Subscript[f1i, 0])-8 rm (rp^5) (Sqrt[rm rp]) (γ^2) Λ σ (Subscript[f1i, 0])+8 (rp^6) (Sqrt[rm rp]) (γ^2) Λ σ (Subscript[f1i, 0])+8 I (q^2) (rm^2) (rp^5) (Sqrt[rm rp]) (σ^2) (Subscript[f1i, 0])-8 I (q^2) rm (rp^6) (Sqrt[rm rp]) (σ^2) (Subscript[f1i, 0])-16 I q (rm^2) (rp^6) γ (σ^2) (Subscript[f1i, 0])+16 I q rm (rp^7) γ (σ^2) (Subscript[f1i, 0])+8 I rm (rp^6) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f1i, 0])-8 I (rp^7) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f1i, 0])-8 I (q^2) (rm^4) (Sqrt[rm rp]) (Subscript[f2i, 0])+24 I (q^2) (rm^3) rp (Sqrt[rm rp]) (Subscript[f2i, 0])-24 I (q^2) (rm^2) (rp^2) (Sqrt[rm rp]) (Subscript[f2i, 0])+8 I (q^2) rm (rp^3) (Sqrt[rm rp]) (Subscript[f2i, 0])+16 I q (rm^4) rp γ (Subscript[f2i, 0])-48 I q (rm^3) (rp^2) γ (Subscript[f2i, 0])+48 I q (rm^2) (rp^3) γ (Subscript[f2i, 0])-16 I q rm (rp^4) γ (Subscript[f2i, 0])-8 I (rm^3) rp (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 0])+24 I (rm^2) (rp^2) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 0])-24 I rm (rp^3) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 0])+8 I (rp^4) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 0])-8 I (q^2) (rm^4) (Sqrt[rm rp]) Λ (Subscript[f2i, 0])+24 I (q^2) (rm^3) rp (Sqrt[rm rp]) Λ (Subscript[f2i, 0])-24 I (q^2) (rm^2) (rp^2) (Sqrt[rm rp]) Λ (Subscript[f2i, 0])+8 I (q^2) rm (rp^3) (Sqrt[rm rp]) Λ (Subscript[f2i, 0])+16 I q (rm^4) rp γ Λ (Subscript[f2i, 0])-48 I q (rm^3) (rp^2) γ Λ (Subscript[f2i, 0])+48 I q (rm^2) (rp^3) γ Λ (Subscript[f2i, 0])-16 I q rm (rp^4) γ Λ (Subscript[f2i, 0])-8 I (rm^3) rp (Sqrt[rm rp]) (γ^2) Λ (Subscript[f2i, 0])+24 I (rm^2) (rp^2) (Sqrt[rm rp]) (γ^2) Λ (Subscript[f2i, 0])-24 I rm (rp^3) (Sqrt[rm rp]) (γ^2) Λ (Subscript[f2i, 0])+8 I (rp^4) (Sqrt[rm rp]) (γ^2) Λ (Subscript[f2i, 0])+8 (q^2) (rm^3) (rp^2) (Sqrt[rm rp]) σ (Subscript[f2i, 0])-16 (q^2) (rm^2) (rp^3) (Sqrt[rm rp]) σ (Subscript[f2i, 0])+8 (q^2) rm (rp^4) (Sqrt[rm rp]) σ (Subscript[f2i, 0])-16 q (rm^3) (rp^3) γ σ (Subscript[f2i, 0])+32 q (rm^2) (rp^4) γ σ (Subscript[f2i, 0])-16 q rm (rp^5) γ σ (Subscript[f2i, 0])+8 (rm^2) (rp^3) (Sqrt[rm rp]) (γ^2) σ (Subscript[f2i, 0])-16 rm (rp^4) (Sqrt[rm rp]) (γ^2) σ (Subscript[f2i, 0])+8 (rp^5) (Sqrt[rm rp]) (γ^2) σ (Subscript[f2i, 0])+8 (q^2) (rm^3) (rp^2) (Sqrt[rm rp]) Λ σ (Subscript[f2i, 0])-16 (q^2) (rm^2) (rp^3) (Sqrt[rm rp]) Λ σ (Subscript[f2i, 0])+8 (q^2) rm (rp^4) (Sqrt[rm rp]) Λ σ (Subscript[f2i, 0])-16 q (rm^3) (rp^3) γ Λ σ (Subscript[f2i, 0])+32 q (rm^2) (rp^4) γ Λ σ (Subscript[f2i, 0])-16 q rm (rp^5) γ Λ σ (Subscript[f2i, 0])+8 (rm^2) (rp^3) (Sqrt[rm rp]) (γ^2) Λ σ (Subscript[f2i, 0])-16 rm (rp^4) (Sqrt[rm rp]) (γ^2) Λ σ (Subscript[f2i, 0])+8 (rp^5) (Sqrt[rm rp]) (γ^2) Λ σ (Subscript[f2i, 0])-8 I (q^2) (rm^3) (rp^3) (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 0])+16 I (q^2) (rm^2) (rp^4) (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 0])-8 I (q^2) rm (rp^5) (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 0])+16 I q (rm^3) (rp^4) γ (σ^2) (Subscript[f2i, 0])-32 I q (rm^2) (rp^5) γ (σ^2) (Subscript[f2i, 0])+16 I q rm (rp^6) γ (σ^2) (Subscript[f2i, 0])-8 I (rm^2) (rp^4) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f2i, 0])+16 I rm (rp^5) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f2i, 0])-8 I (rp^6) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f2i, 0])-4 (q^2) (rm^4) (rp^2) σ (Subscript[h0i, 0])+20 (q^2) (rm^3) (rp^3) σ (Subscript[h0i, 0])-24 (q^2) (rm^2) (rp^4) σ (Subscript[h0i, 0])+8 (q^2) rm (rp^5) σ (Subscript[h0i, 0])+8 q (rm^3) (rp^2) (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])-40 q (rm^2) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])+48 q rm (rp^4) (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])-16 q (rp^5) (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])-4 (rm^3) (rp^3) (γ^2) σ (Subscript[h0i, 0])+20 (rm^2) (rp^4) (γ^2) σ (Subscript[h0i, 0])-24 rm (rp^5) (γ^2) σ (Subscript[h0i, 0])+8 (rp^6) (γ^2) σ (Subscript[h0i, 0])+10 (q^2) (rm^3) (rp^3) Λ σ (Subscript[h0i, 0])-16 (q^2) (rm^2) (rp^4) Λ σ (Subscript[h0i, 0])+6 (q^2) rm (rp^5) Λ σ (Subscript[h0i, 0])-20 q (rm^2) (rp^3) (Sqrt[rm rp]) γ Λ σ (Subscript[h0i, 0])+32 q rm (rp^4) (Sqrt[rm rp]) γ Λ σ (Subscript[h0i, 0])-12 q (rp^5) (Sqrt[rm rp]) γ Λ σ (Subscript[h0i, 0])+10 (rm^2) (rp^4) (γ^2) Λ σ (Subscript[h0i, 0])-16 rm (rp^5) (γ^2) Λ σ (Subscript[h0i, 0])+6 (rp^6) (γ^2) Λ σ (Subscript[h0i, 0])-I (rm^3) (rp^4) (σ^2) (Subscript[h0i, 0])+2 I (q^2) (rm^3) (rp^4) (σ^2) (Subscript[h0i, 0])+4 I (rm^2) (rp^5) (σ^2) (Subscript[h0i, 0])-4 I (q^2) (rm^2) (rp^5) (σ^2) (Subscript[h0i, 0])-5 I rm (rp^6) (σ^2) (Subscript[h0i, 0])+2 I (q^2) rm (rp^6) (σ^2) (Subscript[h0i, 0])+2 I (rp^7) (σ^2) (Subscript[h0i, 0])-4 I q (rm^2) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])+8 I q rm (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])-4 I q (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])+2 I (rm^2) (rp^5) (γ^2) (σ^2) (Subscript[h0i, 0])-4 I rm (rp^6) (γ^2) (σ^2) (Subscript[h0i, 0])+2 I (rp^7) (γ^2) (σ^2) (Subscript[h0i, 0])+I (rm^2) (rp^5) Λ (σ^2) (Subscript[h0i, 0])-2 I rm (rp^6) Λ (σ^2) (Subscript[h0i, 0])+I (rp^7) Λ (σ^2) (Subscript[h0i, 0])+(rm^2) (rp^6) (σ^3) (Subscript[h0i, 0])-2 rm (rp^7) (σ^3) (Subscript[h0i, 0])+(rp^8) (σ^3) (Subscript[h0i, 0])+2 (q^2) (rm^4) rp σ (Subscript[h1i, 0])-6 (q^2) (rm^3) (rp^2) σ (Subscript[h1i, 0])+6 (q^2) (rm^2) (rp^3) σ (Subscript[h1i, 0])-2 (q^2) rm (rp^4) σ (Subscript[h1i, 0])-4 q (rm^3) rp (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])+12 q (rm^2) (rp^2) (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])-12 q rm (rp^3) (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])+4 q (rp^4) (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])+2 (rm^3) (rp^2) (γ^2) σ (Subscript[h1i, 0])-6 (rm^2) (rp^3) (γ^2) σ (Subscript[h1i, 0])+6 rm (rp^4) (γ^2) σ (Subscript[h1i, 0])-2 (rp^5) (γ^2) σ (Subscript[h1i, 0])+2 (q^2) (rm^4) rp Λ σ (Subscript[h1i, 0])-8 (q^2) (rm^3) (rp^2) Λ σ (Subscript[h1i, 0])+10 (q^2) (rm^2) (rp^3) Λ σ (Subscript[h1i, 0])-4 (q^2) rm (rp^4) Λ σ (Subscript[h1i, 0])-4 q (rm^3) rp (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])+16 q (rm^2) (rp^2) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])-20 q rm (rp^3) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])+8 q (rp^4) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])+2 (rm^3) (rp^2) (γ^2) Λ σ (Subscript[h1i, 0])-8 (rm^2) (rp^3) (γ^2) Λ σ (Subscript[h1i, 0])+10 rm (rp^4) (γ^2) Λ σ (Subscript[h1i, 0])-4 (rp^5) (γ^2) Λ σ (Subscript[h1i, 0])-2 (q^2) (rm^3) (rp^2) (Λ^2) σ (Subscript[h1i, 0])+4 (q^2) (rm^2) (rp^3) (Λ^2) σ (Subscript[h1i, 0])-2 (q^2) rm (rp^4) (Λ^2) σ (Subscript[h1i, 0])+4 q (rm^2) (rp^2) (Sqrt[rm rp]) γ (Λ^2) σ (Subscript[h1i, 0])-8 q rm (rp^3) (Sqrt[rm rp]) γ (Λ^2) σ (Subscript[h1i, 0])+4 q (rp^4) (Sqrt[rm rp]) γ (Λ^2) σ (Subscript[h1i, 0])-2 (rm^2) (rp^3) (γ^2) (Λ^2) σ (Subscript[h1i, 0])+4 rm (rp^4) (γ^2) (Λ^2) σ (Subscript[h1i, 0])-2 (rp^5) (γ^2) (Λ^2) σ (Subscript[h1i, 0])+I (rm^3) (rp^3) (σ^2) (Subscript[h1i, 0])-6 I (q^2) (rm^3) (rp^3) (σ^2) (Subscript[h1i, 0])-3 I (rm^2) (rp^4) (σ^2) (Subscript[h1i, 0])+12 I (q^2) (rm^2) (rp^4) (σ^2) (Subscript[h1i, 0])+3 I rm (rp^5) (σ^2) (Subscript[h1i, 0])-6 I (q^2) rm (rp^5) (σ^2) (Subscript[h1i, 0])-I (rp^6) (σ^2) (Subscript[h1i, 0])+12 I q (rm^2) (rp^3) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])-24 I q rm (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])+12 I q (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])-6 I (rm^2) (rp^4) (γ^2) (σ^2) (Subscript[h1i, 0])+12 I rm (rp^5) (γ^2) (σ^2) (Subscript[h1i, 0])-6 I (rp^6) (γ^2) (σ^2) (Subscript[h1i, 0])+I (rm^3) (rp^3) Λ (σ^2) (Subscript[h1i, 0])-6 I (q^2) (rm^3) (rp^3) Λ (σ^2) (Subscript[h1i, 0])-3 I (rm^2) (rp^4) Λ (σ^2) (Subscript[h1i, 0])+12 I (q^2) (rm^2) (rp^4) Λ (σ^2) (Subscript[h1i, 0])+3 I rm (rp^5) Λ (σ^2) (Subscript[h1i, 0])-6 I (q^2) rm (rp^5) Λ (σ^2) (Subscript[h1i, 0])-I (rp^6) Λ (σ^2) (Subscript[h1i, 0])+12 I q (rm^2) (rp^3) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 0])-24 I q rm (rp^4) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 0])+12 I q (rp^5) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 0])-6 I (rm^2) (rp^4) (γ^2) Λ (σ^2) (Subscript[h1i, 0])+12 I rm (rp^5) (γ^2) Λ (σ^2) (Subscript[h1i, 0])-6 I (rp^6) (γ^2) Λ (σ^2) (Subscript[h1i, 0])+8 (q^2) (rm^3) (rp^4) (σ^3) (Subscript[h1i, 0])-(rm^2) (rp^5) (σ^3) (Subscript[h1i, 0])-12 (q^2) (rm^2) (rp^5) (σ^3) (Subscript[h1i, 0])+2 rm (rp^6) (σ^3) (Subscript[h1i, 0])+4 (q^2) rm (rp^6) (σ^3) (Subscript[h1i, 0])-(rp^7) (σ^3) (Subscript[h1i, 0])-16 q (rm^2) (rp^4) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 0])+24 q rm (rp^5) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 0])-8 q (rp^6) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 0])+8 (rm^2) (rp^5) (γ^2) (σ^3) (Subscript[h1i, 0])-12 rm (rp^6) (γ^2) (σ^3) (Subscript[h1i, 0])+4 (rp^7) (γ^2) (σ^3) (Subscript[h1i, 0])-(rm^2) (rp^5) Λ (σ^3) (Subscript[h1i, 0])+2 rm (rp^6) Λ (σ^3) (Subscript[h1i, 0])-(rp^7) Λ (σ^3) (Subscript[h1i, 0])+I (rm^2) (rp^6) (σ^4) (Subscript[h1i, 0])-2 I rm (rp^7) (σ^4) (Subscript[h1i, 0])+I (rp^8) (σ^4) (Subscript[h1i, 0])+3 (q^2) (rm^4) (rp^3) σ (Subscript[kpi, 0])-5 (q^2) (rm^3) (rp^4) σ (Subscript[kpi, 0])+(q^2) (rm^2) (rp^5) σ (Subscript[kpi, 0])+(q^2) rm (rp^6) σ (Subscript[kpi, 0])-6 q (rm^3) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])+10 q (rm^2) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])-2 q rm (rp^5) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])-2 q (rp^6) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])+3 (rm^3) (rp^4) (γ^2) σ (Subscript[kpi, 0])-5 (rm^2) (rp^5) (γ^2) σ (Subscript[kpi, 0])+rm (rp^6) (γ^2) σ (Subscript[kpi, 0])+(rp^7) (γ^2) σ (Subscript[kpi, 0])+3 (q^2) (rm^3) (rp^4) Λ σ (Subscript[kpi, 0])-6 (q^2) (rm^2) (rp^5) Λ σ (Subscript[kpi, 0])+3 (q^2) rm (rp^6) Λ σ (Subscript[kpi, 0])-6 q (rm^2) (rp^4) (Sqrt[rm rp]) γ Λ σ (Subscript[kpi, 0])+12 q rm (rp^5) (Sqrt[rm rp]) γ Λ σ (Subscript[kpi, 0])-6 q (rp^6) (Sqrt[rm rp]) γ Λ σ (Subscript[kpi, 0])+3 (rm^2) (rp^5) (γ^2) Λ σ (Subscript[kpi, 0])-6 rm (rp^6) (γ^2) Λ σ (Subscript[kpi, 0])+3 (rp^7) (γ^2) Λ σ (Subscript[kpi, 0])-I (rm^3) (rp^5) (σ^2) (Subscript[kpi, 0])+11 I (q^2) (rm^3) (rp^5) (σ^2) (Subscript[kpi, 0])+3 I (rm^2) (rp^6) (σ^2) (Subscript[kpi, 0])-16 I (q^2) (rm^2) (rp^6) (σ^2) (Subscript[kpi, 0])-3 I rm (rp^7) (σ^2) (Subscript[kpi, 0])+5 I (q^2) rm (rp^7) (σ^2) (Subscript[kpi, 0])+I (rp^8) (σ^2) (Subscript[kpi, 0])-22 I q (rm^2) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 0])+32 I q rm (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 0])-10 I q (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 0])+11 I (rm^2) (rp^6) (γ^2) (σ^2) (Subscript[kpi, 0])-16 I rm (rp^7) (γ^2) (σ^2) (Subscript[kpi, 0])+5 I (rp^8) (γ^2) (σ^2) (Subscript[kpi, 0])+2 I (q^2) (rm^2) (rp^6) Λ (σ^2) (Subscript[kpi, 0])-2 I (q^2) rm (rp^7) Λ (σ^2) (Subscript[kpi, 0])-4 I q rm (rp^6) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[kpi, 0])+4 I q (rp^7) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[kpi, 0])+2 I rm (rp^7) (γ^2) Λ (σ^2) (Subscript[kpi, 0])-2 I (rp^8) (γ^2) Λ (σ^2) (Subscript[kpi, 0])+2 (rm^2) (rp^7) (σ^3) (Subscript[kpi, 0])-6 (q^2) (rm^2) (rp^7) (σ^3) (Subscript[kpi, 0])-4 rm (rp^8) (σ^3) (Subscript[kpi, 0])+2 (q^2) rm (rp^8) (σ^3) (Subscript[kpi, 0])+2 (rp^9) (σ^3) (Subscript[kpi, 0])+12 q rm (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 0])-4 q (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 0])-6 rm (rp^8) (γ^2) (σ^3) (Subscript[kpi, 0])+2 (rp^9) (γ^2) (σ^3) (Subscript[kpi, 0]))/((rm-rp) (rp^4) ((q^2) rm-2 q (Sqrt[rm rp]) γ+rp (γ^2)) σ (((rm-rp+2 I (rp^2) σ))^2))),(Subscript[f1i, 1])->(2 (Sqrt[2]) (q^3) (rm^4) (rp^2) (((9+8 Λ))^(1/4))-6 (Sqrt[2]) (q^3) (rm^3) (rp^3) (((9+8 Λ))^(1/4))+6 (Sqrt[2]) (q^3) (rm^2) (rp^4) (((9+8 Λ))^(1/4))-2 (Sqrt[2]) (q^3) rm (rp^5) (((9+8 Λ))^(1/4))-4 (Sqrt[2]) (q^2) (rm^3) (rp^2) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4))+12 (Sqrt[2]) (q^2) (rm^2) (rp^3) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4))-12 (Sqrt[2]) (q^2) rm (rp^4) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4))+4 (Sqrt[2]) (q^2) (rp^5) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4))+2 (Sqrt[2]) q (rm^3) (rp^3) (γ^2) (((9+8 Λ))^(1/4))-6 (Sqrt[2]) q (rm^2) (rp^4) (γ^2) (((9+8 Λ))^(1/4))+6 (Sqrt[2]) q rm (rp^5) (γ^2) (((9+8 Λ))^(1/4))-2 (Sqrt[2]) q (rp^6) (γ^2) (((9+8 Λ))^(1/4))+2 I (Sqrt[2]) (q^3) (rm^3) (rp^4) (((9+8 Λ))^(1/4)) σ-4 I (Sqrt[2]) (q^3) (rm^2) (rp^5) (((9+8 Λ))^(1/4)) σ+2 I (Sqrt[2]) (q^3) rm (rp^6) (((9+8 Λ))^(1/4)) σ-4 I (Sqrt[2]) (q^2) (rm^2) (rp^4) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4)) σ+8 I (Sqrt[2]) (q^2) rm (rp^5) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4)) σ-4 I (Sqrt[2]) (q^2) (rp^6) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4)) σ+2 I (Sqrt[2]) q (rm^2) (rp^5) (γ^2) (((9+8 Λ))^(1/4)) σ-4 I (Sqrt[2]) q rm (rp^6) (γ^2) (((9+8 Λ))^(1/4)) σ+2 I (Sqrt[2]) q (rp^7) (γ^2) (((9+8 Λ))^(1/4)) σ-(rm^3) (rp^5) (σ^2) (Subscript[f1i, 0])+4 (q^2) (rm^3) (rp^5) (σ^2) (Subscript[f1i, 0])+3 (rm^2) (rp^6) (σ^2) (Subscript[f1i, 0])-6 (q^2) (rm^2) (rp^6) (σ^2) (Subscript[f1i, 0])-3 rm (rp^7) (σ^2) (Subscript[f1i, 0])+2 (q^2) rm (rp^7) (σ^2) (Subscript[f1i, 0])+(rp^8) (σ^2) (Subscript[f1i, 0])-8 q (rm^2) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 0])+12 q rm (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 0])-4 q (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 0])+4 (rm^2) (rp^6) (γ^2) (σ^2) (Subscript[f1i, 0])-6 rm (rp^7) (γ^2) (σ^2) (Subscript[f1i, 0])+2 (rp^8) (γ^2) (σ^2) (Subscript[f1i, 0])-I (rm^2) (rp^7) (σ^3) (Subscript[f1i, 0])-4 I (q^2) (rm^2) (rp^7) (σ^3) (Subscript[f1i, 0])+2 I rm (rp^8) (σ^3) (Subscript[f1i, 0])+2 I (q^2) rm (rp^8) (σ^3) (Subscript[f1i, 0])-I (rp^9) (σ^3) (Subscript[f1i, 0])+8 I q rm (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[f1i, 0])-4 I q (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[f1i, 0])-4 I rm (rp^8) (γ^2) (σ^3) (Subscript[f1i, 0])+2 I (rp^9) (γ^2) (σ^3) (Subscript[f1i, 0])+4 (q^2) (rm^5) (Subscript[f2i, 0])-16 (q^2) (rm^4) rp (Subscript[f2i, 0])+24 (q^2) (rm^3) (rp^2) (Subscript[f2i, 0])-16 (q^2) (rm^2) (rp^3) (Subscript[f2i, 0])+4 (q^2) rm (rp^4) (Subscript[f2i, 0])-8 q (rm^4) (Sqrt[rm rp]) γ (Subscript[f2i, 0])+32 q (rm^3) rp (Sqrt[rm rp]) γ (Subscript[f2i, 0])-48 q (rm^2) (rp^2) (Sqrt[rm rp]) γ (Subscript[f2i, 0])+32 q rm (rp^3) (Sqrt[rm rp]) γ (Subscript[f2i, 0])-8 q (rp^4) (Sqrt[rm rp]) γ (Subscript[f2i, 0])+4 (rm^4) rp (γ^2) (Subscript[f2i, 0])-16 (rm^3) (rp^2) (γ^2) (Subscript[f2i, 0])+24 (rm^2) (rp^3) (γ^2) (Subscript[f2i, 0])-16 rm (rp^4) (γ^2) (Subscript[f2i, 0])+4 (rp^5) (γ^2) (Subscript[f2i, 0])+4 (q^2) (rm^5) Λ (Subscript[f2i, 0])-16 (q^2) (rm^4) rp Λ (Subscript[f2i, 0])+24 (q^2) (rm^3) (rp^2) Λ (Subscript[f2i, 0])-16 (q^2) (rm^2) (rp^3) Λ (Subscript[f2i, 0])+4 (q^2) rm (rp^4) Λ (Subscript[f2i, 0])-8 q (rm^4) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 0])+32 q (rm^3) rp (Sqrt[rm rp]) γ Λ (Subscript[f2i, 0])-48 q (rm^2) (rp^2) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 0])+32 q rm (rp^3) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 0])-8 q (rp^4) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 0])+4 (rm^4) rp (γ^2) Λ (Subscript[f2i, 0])-16 (rm^3) (rp^2) (γ^2) Λ (Subscript[f2i, 0])+24 (rm^2) (rp^3) (γ^2) Λ (Subscript[f2i, 0])-16 rm (rp^4) (γ^2) Λ (Subscript[f2i, 0])+4 (rp^5) (γ^2) Λ (Subscript[f2i, 0])+4 I (q^2) (rm^4) (rp^2) σ (Subscript[f2i, 0])-12 I (q^2) (rm^3) (rp^3) σ (Subscript[f2i, 0])+12 I (q^2) (rm^2) (rp^4) σ (Subscript[f2i, 0])-4 I (q^2) rm (rp^5) σ (Subscript[f2i, 0])-8 I q (rm^3) (rp^2) (Sqrt[rm rp]) γ σ (Subscript[f2i, 0])+24 I q (rm^2) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[f2i, 0])-24 I q rm (rp^4) (Sqrt[rm rp]) γ σ (Subscript[f2i, 0])+8 I q (rp^5) (Sqrt[rm rp]) γ σ (Subscript[f2i, 0])+4 I (rm^3) (rp^3) (γ^2) σ (Subscript[f2i, 0])-12 I (rm^2) (rp^4) (γ^2) σ (Subscript[f2i, 0])+12 I rm (rp^5) (γ^2) σ (Subscript[f2i, 0])-4 I (rp^6) (γ^2) σ (Subscript[f2i, 0])+4 I (q^2) (rm^4) (rp^2) Λ σ (Subscript[f2i, 0])-12 I (q^2) (rm^3) (rp^3) Λ σ (Subscript[f2i, 0])+12 I (q^2) (rm^2) (rp^4) Λ σ (Subscript[f2i, 0])-4 I (q^2) rm (rp^5) Λ σ (Subscript[f2i, 0])-8 I q (rm^3) (rp^2) (Sqrt[rm rp]) γ Λ σ (Subscript[f2i, 0])+24 I q (rm^2) (rp^3) (Sqrt[rm rp]) γ Λ σ (Subscript[f2i, 0])-24 I q rm (rp^4) (Sqrt[rm rp]) γ Λ σ (Subscript[f2i, 0])+8 I q (rp^5) (Sqrt[rm rp]) γ Λ σ (Subscript[f2i, 0])+4 I (rm^3) (rp^3) (γ^2) Λ σ (Subscript[f2i, 0])-12 I (rm^2) (rp^4) (γ^2) Λ σ (Subscript[f2i, 0])+12 I rm (rp^5) (γ^2) Λ σ (Subscript[f2i, 0])-4 I (rp^6) (γ^2) Λ σ (Subscript[f2i, 0])+4 (q^2) (rm^4) (rp^3) (σ^2) (Subscript[f2i, 0])-10 (q^2) (rm^3) (rp^4) (σ^2) (Subscript[f2i, 0])+8 (q^2) (rm^2) (rp^5) (σ^2) (Subscript[f2i, 0])-2 (q^2) rm (rp^6) (σ^2) (Subscript[f2i, 0])-8 q (rm^3) (rp^3) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 0])+20 q (rm^2) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 0])-16 q rm (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 0])+4 q (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 0])+4 (rm^3) (rp^4) (γ^2) (σ^2) (Subscript[f2i, 0])-10 (rm^2) (rp^5) (γ^2) (σ^2) (Subscript[f2i, 0])+8 rm (rp^6) (γ^2) (σ^2) (Subscript[f2i, 0])-2 (rp^7) (γ^2) (σ^2) (Subscript[f2i, 0])+I (rm^3) (rp^5) (σ^3) (Subscript[f2i, 0])-4 I (q^2) (rm^3) (rp^5) (σ^3) (Subscript[f2i, 0])-3 I (rm^2) (rp^6) (σ^3) (Subscript[f2i, 0])+6 I (q^2) (rm^2) (rp^6) (σ^3) (Subscript[f2i, 0])+3 I rm (rp^7) (σ^3) (Subscript[f2i, 0])-2 I (q^2) rm (rp^7) (σ^3) (Subscript[f2i, 0])-I (rp^8) (σ^3) (Subscript[f2i, 0])+8 I q (rm^2) (rp^5) (Sqrt[rm rp]) γ (σ^3) (Subscript[f2i, 0])-12 I q rm (rp^6) (Sqrt[rm rp]) γ (σ^3) (Subscript[f2i, 0])+4 I q (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[f2i, 0])-4 I (rm^2) (rp^6) (γ^2) (σ^3) (Subscript[f2i, 0])+6 I rm (rp^7) (γ^2) (σ^3) (Subscript[f2i, 0])-2 I (rp^8) (γ^2) (σ^3) (Subscript[f2i, 0])+2 I (q^2) (rm^4) (rp^2) (Sqrt[rm rp]) σ (Subscript[kpi, 0])-6 I (q^2) (rm^3) (rp^3) (Sqrt[rm rp]) σ (Subscript[kpi, 0])+6 I (q^2) (rm^2) (rp^4) (Sqrt[rm rp]) σ (Subscript[kpi, 0])-2 I (q^2) rm (rp^5) (Sqrt[rm rp]) σ (Subscript[kpi, 0])-4 I q (rm^4) (rp^3) γ σ (Subscript[kpi, 0])+12 I q (rm^3) (rp^4) γ σ (Subscript[kpi, 0])-12 I q (rm^2) (rp^5) γ σ (Subscript[kpi, 0])+4 I q rm (rp^6) γ σ (Subscript[kpi, 0])+2 I (rm^3) (rp^3) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 0])-6 I (rm^2) (rp^4) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 0])+6 I rm (rp^5) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 0])-2 I (rp^6) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 0])-2 (q^2) (rm^3) (rp^4) (Sqrt[rm rp]) (σ^2) (Subscript[kpi, 0])+4 (q^2) (rm^2) (rp^5) (Sqrt[rm rp]) (σ^2) (Subscript[kpi, 0])-2 (q^2) rm (rp^6) (Sqrt[rm rp]) (σ^2) (Subscript[kpi, 0])+4 q (rm^3) (rp^5) γ (σ^2) (Subscript[kpi, 0])-8 q (rm^2) (rp^6) γ (σ^2) (Subscript[kpi, 0])+4 q rm (rp^7) γ (σ^2) (Subscript[kpi, 0])-2 (rm^2) (rp^5) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[kpi, 0])+4 rm (rp^6) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[kpi, 0])-2 (rp^7) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[kpi, 0]))/(2 (((rm-rp))^2) (rp^4) ((q^2) rm-2 q (Sqrt[rm rp]) γ+rp (γ^2)) σ (I rm-I rp-2 (rp^2) σ)),(Subscript[f2i, 1])->-((2 (Sqrt[2]) (q^3) (rm^3) (rp^3) (((9+8 Λ))^(1/4))-4 (Sqrt[2]) (q^3) (rm^2) (rp^4) (((9+8 Λ))^(1/4))+2 (Sqrt[2]) (q^3) rm (rp^5) (((9+8 Λ))^(1/4))-4 (Sqrt[2]) (q^2) (rm^2) (rp^3) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4))+8 (Sqrt[2]) (q^2) rm (rp^4) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4))-4 (Sqrt[2]) (q^2) (rp^5) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4))+2 (Sqrt[2]) q (rm^2) (rp^4) (γ^2) (((9+8 Λ))^(1/4))-4 (Sqrt[2]) q rm (rp^5) (γ^2) (((9+8 Λ))^(1/4))+2 (Sqrt[2]) q (rp^6) (γ^2) (((9+8 Λ))^(1/4))+8 I (q^2) (rm^3) (rp^4) σ (Subscript[f1i, 0])-12 I (q^2) (rm^2) (rp^5) σ (Subscript[f1i, 0])+4 I (q^2) rm (rp^6) σ (Subscript[f1i, 0])-16 I q (rm^2) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[f1i, 0])+24 I q rm (rp^5) (Sqrt[rm rp]) γ σ (Subscript[f1i, 0])-8 I q (rp^6) (Sqrt[rm rp]) γ σ (Subscript[f1i, 0])+8 I (rm^2) (rp^5) (γ^2) σ (Subscript[f1i, 0])-12 I rm (rp^6) (γ^2) σ (Subscript[f1i, 0])+4 I (rp^7) (γ^2) σ (Subscript[f1i, 0])-(rm^2) (rp^6) (σ^2) (Subscript[f1i, 0])-4 (q^2) (rm^2) (rp^6) (σ^2) (Subscript[f1i, 0])+2 rm (rp^7) (σ^2) (Subscript[f1i, 0])+2 (q^2) rm (rp^7) (σ^2) (Subscript[f1i, 0])-(rp^8) (σ^2) (Subscript[f1i, 0])+8 q rm (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 0])-4 q (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 0])-4 rm (rp^7) (γ^2) (σ^2) (Subscript[f1i, 0])+2 (rp^8) (γ^2) (σ^2) (Subscript[f1i, 0])-4 (q^2) (rm^5) (Subscript[f2i, 0])+18 (q^2) (rm^4) rp (Subscript[f2i, 0])-30 (q^2) (rm^3) (rp^2) (Subscript[f2i, 0])+22 (q^2) (rm^2) (rp^3) (Subscript[f2i, 0])-6 (q^2) rm (rp^4) (Subscript[f2i, 0])+8 q (rm^4) (Sqrt[rm rp]) γ (Subscript[f2i, 0])-36 q (rm^3) rp (Sqrt[rm rp]) γ (Subscript[f2i, 0])+60 q (rm^2) (rp^2) (Sqrt[rm rp]) γ (Subscript[f2i, 0])-44 q rm (rp^3) (Sqrt[rm rp]) γ (Subscript[f2i, 0])+12 q (rp^4) (Sqrt[rm rp]) γ (Subscript[f2i, 0])-4 (rm^4) rp (γ^2) (Subscript[f2i, 0])+18 (rm^3) (rp^2) (γ^2) (Subscript[f2i, 0])-30 (rm^2) (rp^3) (γ^2) (Subscript[f2i, 0])+22 rm (rp^4) (γ^2) (Subscript[f2i, 0])-6 (rp^5) (γ^2) (Subscript[f2i, 0])+4 (q^2) (rm^4) rp Λ (Subscript[f2i, 0])-12 (q^2) (rm^3) (rp^2) Λ (Subscript[f2i, 0])+12 (q^2) (rm^2) (rp^3) Λ (Subscript[f2i, 0])-4 (q^2) rm (rp^4) Λ (Subscript[f2i, 0])-8 q (rm^3) rp (Sqrt[rm rp]) γ Λ (Subscript[f2i, 0])+24 q (rm^2) (rp^2) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 0])-24 q rm (rp^3) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 0])+8 q (rp^4) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 0])+4 (rm^3) (rp^2) (γ^2) Λ (Subscript[f2i, 0])-12 (rm^2) (rp^3) (γ^2) Λ (Subscript[f2i, 0])+12 rm (rp^4) (γ^2) Λ (Subscript[f2i, 0])-4 (rp^5) (γ^2) Λ (Subscript[f2i, 0])-I (rm^4) (rp^2) σ (Subscript[f2i, 0])+4 I (rm^3) (rp^3) σ (Subscript[f2i, 0])-6 I (rm^2) (rp^4) σ (Subscript[f2i, 0])+4 I rm (rp^5) σ (Subscript[f2i, 0])-I (rp^6) σ (Subscript[f2i, 0])+(rm^3) (rp^4) (σ^2) (Subscript[f2i, 0])-4 (q^2) (rm^3) (rp^4) (σ^2) (Subscript[f2i, 0])-3 (rm^2) (rp^5) (σ^2) (Subscript[f2i, 0])+6 (q^2) (rm^2) (rp^5) (σ^2) (Subscript[f2i, 0])+3 rm (rp^6) (σ^2) (Subscript[f2i, 0])-2 (q^2) rm (rp^6) (σ^2) (Subscript[f2i, 0])-(rp^7) (σ^2) (Subscript[f2i, 0])+8 q (rm^2) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 0])-12 q rm (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 0])+4 q (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 0])-4 (rm^2) (rp^5) (γ^2) (σ^2) (Subscript[f2i, 0])+6 rm (rp^6) (γ^2) (σ^2) (Subscript[f2i, 0])-2 (rp^7) (γ^2) (σ^2) (Subscript[f2i, 0])+2 I (q^2) (rm^3) (rp^3) (Sqrt[rm rp]) σ (Subscript[kpi, 0])-4 I (q^2) (rm^2) (rp^4) (Sqrt[rm rp]) σ (Subscript[kpi, 0])+2 I (q^2) rm (rp^5) (Sqrt[rm rp]) σ (Subscript[kpi, 0])-4 I q (rm^3) (rp^4) γ σ (Subscript[kpi, 0])+8 I q (rm^2) (rp^5) γ σ (Subscript[kpi, 0])-4 I q rm (rp^6) γ σ (Subscript[kpi, 0])+2 I (rm^2) (rp^4) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 0])-4 I rm (rp^5) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 0])+2 I (rp^6) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 0]))/(2 (((rm-rp))^3) rp ((q^2) rm-2 q (Sqrt[rm rp]) γ+rp (γ^2)) (rm-rp+2 I (rp^2) σ))),(Subscript[h1i, 2])->-((I (-16 (Sqrt[2]) (q^5) (rm^3) (rp^3) (Sqrt[rm rp]) (((9+8 Λ))^(1/4))+32 (Sqrt[2]) (q^5) (rm^2) (rp^4) (Sqrt[rm rp]) (((9+8 Λ))^(1/4))+64 (Sqrt[2]) (q^4) (rm^3) (rp^4) γ (((9+8 Λ))^(1/4))-144 (Sqrt[2]) (q^4) (rm^2) (rp^5) γ (((9+8 Λ))^(1/4))-32 (Sqrt[2]) (q^3) (rm^2) (rp^4) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4))+128 (Sqrt[2]) (q^3) rm (rp^5) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4))-64 (Sqrt[2]) (q^3) rm (rp^3) (((rm rp))^(3/2)) (γ^2) (((9+8 Λ))^(1/4))+128 (Sqrt[2]) (q^3) (rp^4) (((rm rp))^(3/2)) (γ^2) (((9+8 Λ))^(1/4))+64 (Sqrt[2]) (q^2) (rm^2) (rp^5) (γ^3) (((9+8 Λ))^(1/4))-224 (Sqrt[2]) (q^2) rm (rp^6) (γ^3) (((9+8 Λ))^(1/4))-16 (Sqrt[2]) q rm (rp^5) (Sqrt[rm rp]) (γ^4) (((9+8 Λ))^(1/4))+96 (Sqrt[2]) q (rp^6) (Sqrt[rm rp]) (γ^4) (((9+8 Λ))^(1/4))-16 (Sqrt[2]) (rp^7) (γ^5) (((9+8 Λ))^(1/4))-32 I (q^4) (rm^2) (rp^5) (Sqrt[rm rp]) σ (Subscript[f1i, 0])+128 I (q^3) (rm^2) (rp^6) γ σ (Subscript[f1i, 0])-64 I (q^2) rm (rp^6) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 0])-128 I (q^2) (rp^5) (((rm rp))^(3/2)) (γ^2) σ (Subscript[f1i, 0])+128 I q rm (rp^7) (γ^3) σ (Subscript[f1i, 0])-32 I (rp^7) (Sqrt[rm rp]) (γ^4) σ (Subscript[f1i, 0])-32 I (q^4) (rm^3) (rp^5) (Sqrt[rm rp]) σ (Subscript[f1i, 1])+32 I (q^4) (rm^2) (rp^6) (Sqrt[rm rp]) σ (Subscript[f1i, 1])+128 I (q^3) (rm^3) (rp^6) γ σ (Subscript[f1i, 1])-128 I (q^3) (rm^2) (rp^7) γ σ (Subscript[f1i, 1])-64 I (q^2) (rm^2) (rp^6) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 1])+64 I (q^2) rm (rp^7) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 1])-128 I (q^2) rm (rp^5) (((rm rp))^(3/2)) (γ^2) σ (Subscript[f1i, 1])+128 I (q^2) (rp^6) (((rm rp))^(3/2)) (γ^2) σ (Subscript[f1i, 1])+128 I q (rm^2) (rp^7) (γ^3) σ (Subscript[f1i, 1])-128 I q rm (rp^8) (γ^3) σ (Subscript[f1i, 1])-32 I rm (rp^7) (Sqrt[rm rp]) (γ^4) σ (Subscript[f1i, 1])+32 I (rp^8) (Sqrt[rm rp]) (γ^4) σ (Subscript[f1i, 1])-128 (q^4) (rm^5) (Sqrt[rm rp]) (Subscript[f2i, 0])+384 (q^4) (rm^4) rp (Sqrt[rm rp]) (Subscript[f2i, 0])-384 (q^4) (rm^3) (rp^2) (Sqrt[rm rp]) (Subscript[f2i, 0])+128 (q^4) (rm^2) (rp^3) (Sqrt[rm rp]) (Subscript[f2i, 0])+512 (q^3) (rm^5) rp γ (Subscript[f2i, 0])-1536 (q^3) (rm^4) (rp^2) γ (Subscript[f2i, 0])+1536 (q^3) (rm^3) (rp^3) γ (Subscript[f2i, 0])-512 (q^3) (rm^2) (rp^4) γ (Subscript[f2i, 0])-256 (q^2) (rm^4) rp (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 0])+768 (q^2) (rm^3) (rp^2) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 0])-768 (q^2) (rm^2) (rp^3) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 0])+256 (q^2) rm (rp^4) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 0])-512 (q^2) (rm^3) (((rm rp))^(3/2)) (γ^2) (Subscript[f2i, 0])+1536 (q^2) (rm^2) rp (((rm rp))^(3/2)) (γ^2) (Subscript[f2i, 0])-1536 (q^2) rm (rp^2) (((rm rp))^(3/2)) (γ^2) (Subscript[f2i, 0])+512 (q^2) (rp^3) (((rm rp))^(3/2)) (γ^2) (Subscript[f2i, 0])+512 q (rm^4) (rp^2) (γ^3) (Subscript[f2i, 0])-1536 q (rm^3) (rp^3) (γ^3) (Subscript[f2i, 0])+1536 q (rm^2) (rp^4) (γ^3) (Subscript[f2i, 0])-512 q rm (rp^5) (γ^3) (Subscript[f2i, 0])-128 (rm^3) (rp^2) (Sqrt[rm rp]) (γ^4) (Subscript[f2i, 0])+384 (rm^2) (rp^3) (Sqrt[rm rp]) (γ^4) (Subscript[f2i, 0])-384 rm (rp^4) (Sqrt[rm rp]) (γ^4) (Subscript[f2i, 0])+128 (rp^5) (Sqrt[rm rp]) (γ^4) (Subscript[f2i, 0])-64 I (q^4) (rm^4) (rp^2) (Sqrt[rm rp]) σ (Subscript[f2i, 0])+128 I (q^4) (rm^3) (rp^3) (Sqrt[rm rp]) σ (Subscript[f2i, 0])-64 I (q^4) (rm^2) (rp^4) (Sqrt[rm rp]) σ (Subscript[f2i, 0])+256 I (q^3) (rm^4) (rp^3) γ σ (Subscript[f2i, 0])-512 I (q^3) (rm^3) (rp^4) γ σ (Subscript[f2i, 0])+256 I (q^3) (rm^2) (rp^5) γ σ (Subscript[f2i, 0])-128 I (q^2) (rm^3) (rp^3) (Sqrt[rm rp]) (γ^2) σ (Subscript[f2i, 0])+256 I (q^2) (rm^2) (rp^4) (Sqrt[rm rp]) (γ^2) σ (Subscript[f2i, 0])-128 I (q^2) rm (rp^5) (Sqrt[rm rp]) (γ^2) σ (Subscript[f2i, 0])-256 I (q^2) (rm^2) (rp^2) (((rm rp))^(3/2)) (γ^2) σ (Subscript[f2i, 0])+512 I (q^2) rm (rp^3) (((rm rp))^(3/2)) (γ^2) σ (Subscript[f2i, 0])-256 I (q^2) (rp^4) (((rm rp))^(3/2)) (γ^2) σ (Subscript[f2i, 0])+256 I q (rm^3) (rp^4) (γ^3) σ (Subscript[f2i, 0])-512 I q (rm^2) (rp^5) (γ^3) σ (Subscript[f2i, 0])+256 I q rm (rp^6) (γ^3) σ (Subscript[f2i, 0])-64 I (rm^2) (rp^4) (Sqrt[rm rp]) (γ^4) σ (Subscript[f2i, 0])+128 I rm (rp^5) (Sqrt[rm rp]) (γ^4) σ (Subscript[f2i, 0])-64 I (rp^6) (Sqrt[rm rp]) (γ^4) σ (Subscript[f2i, 0])+64 (q^4) (rm^5) rp (Sqrt[rm rp]) (Subscript[f2i, 1])-192 (q^4) (rm^4) (rp^2) (Sqrt[rm rp]) (Subscript[f2i, 1])+192 (q^4) (rm^3) (rp^3) (Sqrt[rm rp]) (Subscript[f2i, 1])-64 (q^4) (rm^2) (rp^4) (Sqrt[rm rp]) (Subscript[f2i, 1])-256 (q^3) (rm^5) (rp^2) γ (Subscript[f2i, 1])+768 (q^3) (rm^4) (rp^3) γ (Subscript[f2i, 1])-768 (q^3) (rm^3) (rp^4) γ (Subscript[f2i, 1])+256 (q^3) (rm^2) (rp^5) γ (Subscript[f2i, 1])+128 (q^2) (rm^4) (rp^2) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 1])-384 (q^2) (rm^3) (rp^3) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 1])+384 (q^2) (rm^2) (rp^4) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 1])-128 (q^2) rm (rp^5) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 1])+256 (q^2) (rm^3) rp (((rm rp))^(3/2)) (γ^2) (Subscript[f2i, 1])-768 (q^2) (rm^2) (rp^2) (((rm rp))^(3/2)) (γ^2) (Subscript[f2i, 1])+768 (q^2) rm (rp^3) (((rm rp))^(3/2)) (γ^2) (Subscript[f2i, 1])-256 (q^2) (rp^4) (((rm rp))^(3/2)) (γ^2) (Subscript[f2i, 1])-256 q (rm^4) (rp^3) (γ^3) (Subscript[f2i, 1])+768 q (rm^3) (rp^4) (γ^3) (Subscript[f2i, 1])-768 q (rm^2) (rp^5) (γ^3) (Subscript[f2i, 1])+256 q rm (rp^6) (γ^3) (Subscript[f2i, 1])+64 (rm^3) (rp^3) (Sqrt[rm rp]) (γ^4) (Subscript[f2i, 1])-192 (rm^2) (rp^4) (Sqrt[rm rp]) (γ^4) (Subscript[f2i, 1])+192 rm (rp^5) (Sqrt[rm rp]) (γ^4) (Subscript[f2i, 1])-64 (rp^6) (Sqrt[rm rp]) (γ^4) (Subscript[f2i, 1])+32 I (q^4) (rm^4) (rp^3) (Sqrt[rm rp]) σ (Subscript[f2i, 1])-64 I (q^4) (rm^3) (rp^4) (Sqrt[rm rp]) σ (Subscript[f2i, 1])+32 I (q^4) (rm^2) (rp^5) (Sqrt[rm rp]) σ (Subscript[f2i, 1])-128 I (q^3) (rm^4) (rp^4) γ σ (Subscript[f2i, 1])+256 I (q^3) (rm^3) (rp^5) γ σ (Subscript[f2i, 1])-128 I (q^3) (rm^2) (rp^6) γ σ (Subscript[f2i, 1])+64 I (q^2) (rm^3) (rp^4) (Sqrt[rm rp]) (γ^2) σ (Subscript[f2i, 1])-128 I (q^2) (rm^2) (rp^5) (Sqrt[rm rp]) (γ^2) σ (Subscript[f2i, 1])+64 I (q^2) rm (rp^6) (Sqrt[rm rp]) (γ^2) σ (Subscript[f2i, 1])+128 I (q^2) (rm^2) (rp^3) (((rm rp))^(3/2)) (γ^2) σ (Subscript[f2i, 1])-256 I (q^2) rm (rp^4) (((rm rp))^(3/2)) (γ^2) σ (Subscript[f2i, 1])+128 I (q^2) (rp^5) (((rm rp))^(3/2)) (γ^2) σ (Subscript[f2i, 1])-128 I q (rm^3) (rp^5) (γ^3) σ (Subscript[f2i, 1])+256 I q (rm^2) (rp^6) (γ^3) σ (Subscript[f2i, 1])-128 I q rm (rp^7) (γ^3) σ (Subscript[f2i, 1])+32 I (rm^2) (rp^5) (Sqrt[rm rp]) (γ^4) σ (Subscript[f2i, 1])-64 I rm (rp^6) (Sqrt[rm rp]) (γ^4) σ (Subscript[f2i, 1])+32 I (rp^7) (Sqrt[rm rp]) (γ^4) σ (Subscript[f2i, 1])-8 I (q^4) (rm^4) (rp^3) σ (Subscript[h0i, 0])+48 I (q^4) (rm^3) (rp^4) σ (Subscript[h0i, 0])-16 I (q^4) (rm^2) (rp^5) σ (Subscript[h0i, 0])+32 I (q^3) (rm^3) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])-192 I (q^3) (rm^2) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])+64 I (q^3) rm (rp^5) (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])-48 I (q^2) (rm^3) (rp^4) (γ^2) σ (Subscript[h0i, 0])+288 I (q^2) (rm^2) (rp^5) (γ^2) σ (Subscript[h0i, 0])-96 I (q^2) rm (rp^6) (γ^2) σ (Subscript[h0i, 0])+32 I q (rm^2) (rp^4) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 0])-192 I q rm (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 0])+64 I q (rp^6) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 0])-8 I (rm^2) (rp^5) (γ^4) σ (Subscript[h0i, 0])+48 I rm (rp^6) (γ^4) σ (Subscript[h0i, 0])-16 I (rp^7) (γ^4) σ (Subscript[h0i, 0])+3 (rm^3) (rp^5) (σ^2) (Subscript[h0i, 0])-8 (q^2) (rm^3) (rp^5) (σ^2) (Subscript[h0i, 0])-9 (rm^2) (rp^6) (σ^2) (Subscript[h0i, 0])+16 (q^2) (rm^2) (rp^6) (σ^2) (Subscript[h0i, 0])+9 rm (rp^7) (σ^2) (Subscript[h0i, 0])-8 (q^2) rm (rp^7) (σ^2) (Subscript[h0i, 0])-3 (rp^8) (σ^2) (Subscript[h0i, 0])+8 q (rm^2) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])-16 q rm (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])+8 q (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])+56 I (q^4) (rm^4) (rp^4) σ (Subscript[h0i, 1])-88 I (q^4) (rm^3) (rp^5) σ (Subscript[h0i, 1])+32 I (q^4) (rm^2) (rp^6) σ (Subscript[h0i, 1])-224 I (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[h0i, 1])+352 I (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ σ (Subscript[h0i, 1])-128 I (q^3) rm (rp^6) (Sqrt[rm rp]) γ σ (Subscript[h0i, 1])+336 I (q^2) (rm^3) (rp^5) (γ^2) σ (Subscript[h0i, 1])-528 I (q^2) (rm^2) (rp^6) (γ^2) σ (Subscript[h0i, 1])+192 I (q^2) rm (rp^7) (γ^2) σ (Subscript[h0i, 1])-224 I q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 1])+352 I q rm (rp^6) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 1])-128 I q (rp^7) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 1])+56 I (rm^2) (rp^6) (γ^4) σ (Subscript[h0i, 1])-88 I rm (rp^7) (γ^4) σ (Subscript[h0i, 1])+32 I (rp^8) (γ^4) σ (Subscript[h0i, 1])-4 (q^2) (rm^3) (rp^6) (σ^2) (Subscript[h0i, 1])+8 (q^2) (rm^2) (rp^7) (σ^2) (Subscript[h0i, 1])-4 (q^2) rm (rp^8) (σ^2) (Subscript[h0i, 1])+8 q (rm^2) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 1])-16 q rm (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 1])+8 q (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 1])-4 (rm^2) (rp^7) (γ^2) (σ^2) (Subscript[h0i, 1])+8 rm (rp^8) (γ^2) (σ^2) (Subscript[h0i, 1])-4 (rp^9) (γ^2) (σ^2) (Subscript[h0i, 1])-32 I (q^4) (rm^5) rp σ (Subscript[h1i, 0])+112 I (q^4) (rm^4) (rp^2) σ (Subscript[h1i, 0])-112 I (q^4) (rm^3) (rp^3) σ (Subscript[h1i, 0])+32 I (q^4) (rm^2) (rp^4) σ (Subscript[h1i, 0])+128 I (q^3) (rm^4) rp (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])-448 I (q^3) (rm^3) (rp^2) (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])+448 I (q^3) (rm^2) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])-128 I (q^3) rm (rp^4) (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])-192 I (q^2) (rm^4) (rp^2) (γ^2) σ (Subscript[h1i, 0])+672 I (q^2) (rm^3) (rp^3) (γ^2) σ (Subscript[h1i, 0])-672 I (q^2) (rm^2) (rp^4) (γ^2) σ (Subscript[h1i, 0])+192 I (q^2) rm (rp^5) (γ^2) σ (Subscript[h1i, 0])+128 I q (rm^3) (rp^2) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 0])-448 I q (rm^2) (rp^3) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 0])+448 I q rm (rp^4) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 0])-128 I q (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 0])-32 I (rm^3) (rp^3) (γ^4) σ (Subscript[h1i, 0])+112 I (rm^2) (rp^4) (γ^4) σ (Subscript[h1i, 0])-112 I rm (rp^5) (γ^4) σ (Subscript[h1i, 0])+32 I (rp^6) (γ^4) σ (Subscript[h1i, 0])+16 I (q^4) (rm^4) (rp^2) Λ σ (Subscript[h1i, 0])-32 I (q^4) (rm^3) (rp^3) Λ σ (Subscript[h1i, 0])+16 I (q^4) (rm^2) (rp^4) Λ σ (Subscript[h1i, 0])-64 I (q^3) (rm^3) (rp^2) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])+128 I (q^3) (rm^2) (rp^3) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])-64 I (q^3) rm (rp^4) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])+96 I (q^2) (rm^3) (rp^3) (γ^2) Λ σ (Subscript[h1i, 0])-192 I (q^2) (rm^2) (rp^4) (γ^2) Λ σ (Subscript[h1i, 0])+96 I (q^2) rm (rp^5) (γ^2) Λ σ (Subscript[h1i, 0])-64 I q (rm^2) (rp^3) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 0])+128 I q rm (rp^4) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 0])-64 I q (rp^5) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 0])+16 I (rm^2) (rp^4) (γ^4) Λ σ (Subscript[h1i, 0])-32 I rm (rp^5) (γ^4) Λ σ (Subscript[h1i, 0])+16 I (rp^6) (γ^4) Λ σ (Subscript[h1i, 0])+6 (rm^4) (rp^3) (σ^2) (Subscript[h1i, 0])-16 (q^2) (rm^4) (rp^3) (σ^2) (Subscript[h1i, 0])+32 (q^4) (rm^4) (rp^3) (σ^2) (Subscript[h1i, 0])-24 (rm^3) (rp^4) (σ^2) (Subscript[h1i, 0])+48 (q^2) (rm^3) (rp^4) (σ^2) (Subscript[h1i, 0])-32 (q^4) (rm^3) (rp^4) (σ^2) (Subscript[h1i, 0])+36 (rm^2) (rp^5) (σ^2) (Subscript[h1i, 0])-48 (q^2) (rm^2) (rp^5) (σ^2) (Subscript[h1i, 0])+8 (q^4) (rm^2) (rp^5) (σ^2) (Subscript[h1i, 0])-24 rm (rp^6) (σ^2) (Subscript[h1i, 0])+16 (q^2) rm (rp^6) (σ^2) (Subscript[h1i, 0])+6 (rp^7) (σ^2) (Subscript[h1i, 0])+16 q (rm^3) (rp^3) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])-128 (q^3) (rm^3) (rp^3) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])-48 q (rm^2) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])+128 (q^3) (rm^2) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])+48 q rm (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])-32 (q^3) rm (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])-16 q (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])+192 (q^2) (rm^3) (rp^4) (γ^2) (σ^2) (Subscript[h1i, 0])-192 (q^2) (rm^2) (rp^5) (γ^2) (σ^2) (Subscript[h1i, 0])+48 (q^2) rm (rp^6) (γ^2) (σ^2) (Subscript[h1i, 0])-128 q (rm^2) (rp^4) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h1i, 0])+128 q rm (rp^5) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h1i, 0])-32 q (rp^6) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h1i, 0])+32 (rm^2) (rp^5) (γ^4) (σ^2) (Subscript[h1i, 0])-32 rm (rp^6) (γ^4) (σ^2) (Subscript[h1i, 0])+8 (rp^7) (γ^4) (σ^2) (Subscript[h1i, 0])+3 I (rm^3) (rp^5) (σ^3) (Subscript[h1i, 0])-8 I (q^2) (rm^3) (rp^5) (σ^3) (Subscript[h1i, 0])-9 I (rm^2) (rp^6) (σ^3) (Subscript[h1i, 0])+16 I (q^2) (rm^2) (rp^6) (σ^3) (Subscript[h1i, 0])+9 I rm (rp^7) (σ^3) (Subscript[h1i, 0])-8 I (q^2) rm (rp^7) (σ^3) (Subscript[h1i, 0])-3 I (rp^8) (σ^3) (Subscript[h1i, 0])+8 I q (rm^2) (rp^5) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 0])-16 I q rm (rp^6) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 0])+8 I q (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 0])+32 I (q^4) (rm^5) (rp^2) σ (Subscript[h1i, 1])-88 I (q^4) (rm^4) (rp^3) σ (Subscript[h1i, 1])+80 I (q^4) (rm^3) (rp^4) σ (Subscript[h1i, 1])-24 I (q^4) (rm^2) (rp^5) σ (Subscript[h1i, 1])-128 I (q^3) (rm^4) (rp^2) (Sqrt[rm rp]) γ σ (Subscript[h1i, 1])+352 I (q^3) (rm^3) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[h1i, 1])-320 I (q^3) (rm^2) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[h1i, 1])+96 I (q^3) rm (rp^5) (Sqrt[rm rp]) γ σ (Subscript[h1i, 1])+192 I (q^2) (rm^4) (rp^3) (γ^2) σ (Subscript[h1i, 1])-528 I (q^2) (rm^3) (rp^4) (γ^2) σ (Subscript[h1i, 1])+480 I (q^2) (rm^2) (rp^5) (γ^2) σ (Subscript[h1i, 1])-144 I (q^2) rm (rp^6) (γ^2) σ (Subscript[h1i, 1])-128 I q (rm^3) (rp^3) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 1])+352 I q (rm^2) (rp^4) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 1])-320 I q rm (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 1])+96 I q (rp^6) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 1])+32 I (rm^3) (rp^4) (γ^4) σ (Subscript[h1i, 1])-88 I (rm^2) (rp^5) (γ^4) σ (Subscript[h1i, 1])+80 I rm (rp^6) (γ^4) σ (Subscript[h1i, 1])-24 I (rp^7) (γ^4) σ (Subscript[h1i, 1])-8 I (q^4) (rm^4) (rp^3) Λ σ (Subscript[h1i, 1])+16 I (q^4) (rm^3) (rp^4) Λ σ (Subscript[h1i, 1])-8 I (q^4) (rm^2) (rp^5) Λ σ (Subscript[h1i, 1])+32 I (q^3) (rm^3) (rp^3) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 1])-64 I (q^3) (rm^2) (rp^4) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 1])+32 I (q^3) rm (rp^5) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 1])-48 I (q^2) (rm^3) (rp^4) (γ^2) Λ σ (Subscript[h1i, 1])+96 I (q^2) (rm^2) (rp^5) (γ^2) Λ σ (Subscript[h1i, 1])-48 I (q^2) rm (rp^6) (γ^2) Λ σ (Subscript[h1i, 1])+32 I q (rm^2) (rp^4) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 1])-64 I q rm (rp^5) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 1])+32 I q (rp^6) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 1])-8 I (rm^2) (rp^5) (γ^4) Λ σ (Subscript[h1i, 1])+16 I rm (rp^6) (γ^4) Λ σ (Subscript[h1i, 1])-8 I (rp^7) (γ^4) Λ σ (Subscript[h1i, 1])-8 (q^2) (rm^4) (rp^4) (σ^2) (Subscript[h1i, 1])+16 (q^4) (rm^4) (rp^4) (σ^2) (Subscript[h1i, 1])+24 (q^2) (rm^3) (rp^5) (σ^2) (Subscript[h1i, 1])-24 (q^4) (rm^3) (rp^5) (σ^2) (Subscript[h1i, 1])-24 (q^2) (rm^2) (rp^6) (σ^2) (Subscript[h1i, 1])+8 (q^4) (rm^2) (rp^6) (σ^2) (Subscript[h1i, 1])+8 (q^2) rm (rp^7) (σ^2) (Subscript[h1i, 1])+16 q (rm^3) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 1])-64 (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 1])-48 q (rm^2) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 1])+96 (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 1])+48 q rm (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 1])-32 (q^3) rm (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 1])-16 q (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 1])-8 (rm^3) (rp^5) (γ^2) (σ^2) (Subscript[h1i, 1])+96 (q^2) (rm^3) (rp^5) (γ^2) (σ^2) (Subscript[h1i, 1])+24 (rm^2) (rp^6) (γ^2) (σ^2) (Subscript[h1i, 1])-144 (q^2) (rm^2) (rp^6) (γ^2) (σ^2) (Subscript[h1i, 1])-24 rm (rp^7) (γ^2) (σ^2) (Subscript[h1i, 1])+48 (q^2) rm (rp^7) (γ^2) (σ^2) (Subscript[h1i, 1])+8 (rp^8) (γ^2) (σ^2) (Subscript[h1i, 1])-64 q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h1i, 1])+96 q rm (rp^6) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h1i, 1])-32 q (rp^7) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h1i, 1])+16 (rm^2) (rp^6) (γ^4) (σ^2) (Subscript[h1i, 1])-24 rm (rp^7) (γ^4) (σ^2) (Subscript[h1i, 1])+8 (rp^8) (γ^4) (σ^2) (Subscript[h1i, 1])-4 I (q^2) (rm^3) (rp^6) (σ^3) (Subscript[h1i, 1])+8 I (q^2) (rm^2) (rp^7) (σ^3) (Subscript[h1i, 1])-4 I (q^2) rm (rp^8) (σ^3) (Subscript[h1i, 1])+8 I q (rm^2) (rp^6) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 1])-16 I q rm (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 1])+8 I q (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 1])-4 I (rm^2) (rp^7) (γ^2) (σ^3) (Subscript[h1i, 1])+8 I rm (rp^8) (γ^2) (σ^3) (Subscript[h1i, 1])-4 I (rp^9) (γ^2) (σ^3) (Subscript[h1i, 1])+16 I (q^4) (rm^4) (rp^4) σ (Subscript[kpi, 0])-20 I (q^4) (rm^3) (rp^5) σ (Subscript[kpi, 0])+4 I (q^4) (rm^2) (rp^6) σ (Subscript[kpi, 0])-64 I (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])+80 I (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])-16 I (q^3) rm (rp^6) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])+96 I (q^2) (rm^3) (rp^5) (γ^2) σ (Subscript[kpi, 0])-120 I (q^2) (rm^2) (rp^6) (γ^2) σ (Subscript[kpi, 0])+24 I (q^2) rm (rp^7) (γ^2) σ (Subscript[kpi, 0])-64 I q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 0])+80 I q rm (rp^6) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 0])-16 I q (rp^7) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 0])+16 I (rm^2) (rp^6) (γ^4) σ (Subscript[kpi, 0])-20 I rm (rp^7) (γ^4) σ (Subscript[kpi, 0])+4 I (rp^8) (γ^4) σ (Subscript[kpi, 0])-16 (q^4) (rm^3) (rp^6) (σ^2) (Subscript[kpi, 0])+8 (q^4) (rm^2) (rp^7) (σ^2) (Subscript[kpi, 0])+64 (q^3) (rm^2) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 0])-32 (q^3) rm (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 0])-96 (q^2) (rm^2) (rp^7) (γ^2) (σ^2) (Subscript[kpi, 0])+48 (q^2) rm (rp^8) (γ^2) (σ^2) (Subscript[kpi, 0])+64 q rm (rp^7) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[kpi, 0])-32 q (rp^8) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[kpi, 0])-16 rm (rp^8) (γ^4) (σ^2) (Subscript[kpi, 0])+8 (rp^9) (γ^4) (σ^2) (Subscript[kpi, 0])+20 I (q^4) (rm^4) (rp^5) σ (Subscript[kpi, 1])-40 I (q^4) (rm^3) (rp^6) σ (Subscript[kpi, 1])+20 I (q^4) (rm^2) (rp^7) σ (Subscript[kpi, 1])-80 I (q^3) (rm^3) (rp^5) (Sqrt[rm rp]) γ σ (Subscript[kpi, 1])+160 I (q^3) (rm^2) (rp^6) (Sqrt[rm rp]) γ σ (Subscript[kpi, 1])-80 I (q^3) rm (rp^7) (Sqrt[rm rp]) γ σ (Subscript[kpi, 1])+120 I (q^2) (rm^3) (rp^6) (γ^2) σ (Subscript[kpi, 1])-240 I (q^2) (rm^2) (rp^7) (γ^2) σ (Subscript[kpi, 1])+120 I (q^2) rm (rp^8) (γ^2) σ (Subscript[kpi, 1])-80 I q (rm^2) (rp^6) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 1])+160 I q rm (rp^7) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 1])-80 I q (rp^8) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 1])+20 I (rm^2) (rp^7) (γ^4) σ (Subscript[kpi, 1])-40 I rm (rp^8) (γ^4) σ (Subscript[kpi, 1])+20 I (rp^9) (γ^4) σ (Subscript[kpi, 1])-8 (q^4) (rm^3) (rp^7) (σ^2) (Subscript[kpi, 1])+8 (q^4) (rm^2) (rp^8) (σ^2) (Subscript[kpi, 1])+32 (q^3) (rm^2) (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 1])-32 (q^3) rm (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 1])-48 (q^2) (rm^2) (rp^8) (γ^2) (σ^2) (Subscript[kpi, 1])+48 (q^2) rm (rp^9) (γ^2) (σ^2) (Subscript[kpi, 1])+32 q rm (rp^8) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[kpi, 1])-32 q (rp^9) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[kpi, 1])-8 rm (rp^9) (γ^4) (σ^2) (Subscript[kpi, 1])+8 (rp^10) (γ^4) (σ^2) (Subscript[kpi, 1])))/(32 (((rm-rp))^2) (rp^3) ((((q^2) rm-2 q (Sqrt[rm rp]) γ+rp (γ^2)))^2) σ (rm-rp+I (rp^2) σ))),(Subscript[h0i, 2])->(32 I (Sqrt[2]) (q^5) (rm^4) rp (Sqrt[rm rp]) (((9+8 Λ))^(1/4))-96 I (Sqrt[2]) (q^5) (rm^3) (rp^2) (Sqrt[rm rp]) (((9+8 Λ))^(1/4))+64 I (Sqrt[2]) (q^5) (rm^2) (rp^3) (Sqrt[rm rp]) (((9+8 Λ))^(1/4))-128 I (Sqrt[2]) (q^4) (rm^4) (rp^2) γ (((9+8 Λ))^(1/4))+416 I (Sqrt[2]) (q^4) (rm^3) (rp^3) γ (((9+8 Λ))^(1/4))-288 I (Sqrt[2]) (q^4) (rm^2) (rp^4) γ (((9+8 Λ))^(1/4))+192 I (Sqrt[2]) (q^3) (rm^3) (rp^2) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4))-704 I (Sqrt[2]) (q^3) (rm^2) (rp^3) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4))+512 I (Sqrt[2]) (q^3) rm (rp^4) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4))-128 I (Sqrt[2]) (q^2) (rm^3) (rp^3) (γ^3) (((9+8 Λ))^(1/4))+576 I (Sqrt[2]) (q^2) (rm^2) (rp^4) (γ^3) (((9+8 Λ))^(1/4))-448 I (Sqrt[2]) (q^2) rm (rp^5) (γ^3) (((9+8 Λ))^(1/4))+32 I (Sqrt[2]) q (rm^2) (rp^3) (Sqrt[rm rp]) (γ^4) (((9+8 Λ))^(1/4))-224 I (Sqrt[2]) q rm (rp^4) (Sqrt[rm rp]) (γ^4) (((9+8 Λ))^(1/4))+192 I (Sqrt[2]) q (rp^5) (Sqrt[rm rp]) (γ^4) (((9+8 Λ))^(1/4))+32 I (Sqrt[2]) rm (rp^5) (γ^5) (((9+8 Λ))^(1/4))-32 I (Sqrt[2]) (rp^6) (γ^5) (((9+8 Λ))^(1/4))-16 (Sqrt[2]) (q^5) (rm^3) (rp^3) (Sqrt[rm rp]) (((9+8 Λ))^(1/4)) σ+32 (Sqrt[2]) (q^5) (rm^2) (rp^4) (Sqrt[rm rp]) (((9+8 Λ))^(1/4)) σ+64 (Sqrt[2]) (q^4) (rm^3) (rp^4) γ (((9+8 Λ))^(1/4)) σ-144 (Sqrt[2]) (q^4) (rm^2) (rp^5) γ (((9+8 Λ))^(1/4)) σ-96 (Sqrt[2]) (q^3) (rm^2) (rp^4) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4)) σ+256 (Sqrt[2]) (q^3) rm (rp^5) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4)) σ+64 (Sqrt[2]) (q^2) (rm^2) (rp^5) (γ^3) (((9+8 Λ))^(1/4)) σ-224 (Sqrt[2]) (q^2) rm (rp^6) (γ^3) (((9+8 Λ))^(1/4)) σ-16 (Sqrt[2]) q rm (rp^5) (Sqrt[rm rp]) (γ^4) (((9+8 Λ))^(1/4)) σ+96 (Sqrt[2]) q (rp^6) (Sqrt[rm rp]) (γ^4) (((9+8 Λ))^(1/4)) σ-16 (Sqrt[2]) (rp^7) (γ^5) (((9+8 Λ))^(1/4)) σ-64 (q^4) (rm^3) (rp^3) (Sqrt[rm rp]) σ (Subscript[f1i, 0])+64 (q^4) (rm^2) (rp^4) (Sqrt[rm rp]) σ (Subscript[f1i, 0])+256 (q^3) (rm^3) (rp^4) γ σ (Subscript[f1i, 0])-256 (q^3) (rm^2) (rp^5) γ σ (Subscript[f1i, 0])-384 (q^2) (rm^2) (rp^4) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 0])+384 (q^2) rm (rp^5) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 0])+256 q (rm^2) (rp^5) (γ^3) σ (Subscript[f1i, 0])-256 q rm (rp^6) (γ^3) σ (Subscript[f1i, 0])-64 rm (rp^5) (Sqrt[rm rp]) (γ^4) σ (Subscript[f1i, 0])+64 (rp^6) (Sqrt[rm rp]) (γ^4) σ (Subscript[f1i, 0])-32 I (q^4) (rm^2) (rp^5) (Sqrt[rm rp]) (σ^2) (Subscript[f1i, 0])+128 I (q^3) (rm^2) (rp^6) γ (σ^2) (Subscript[f1i, 0])-192 I (q^2) rm (rp^6) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f1i, 0])+128 I q rm (rp^7) (γ^3) (σ^2) (Subscript[f1i, 0])-32 I (rp^7) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f1i, 0])-64 (q^4) (rm^4) (rp^3) (Sqrt[rm rp]) σ (Subscript[f1i, 1])+128 (q^4) (rm^3) (rp^4) (Sqrt[rm rp]) σ (Subscript[f1i, 1])-64 (q^4) (rm^2) (rp^5) (Sqrt[rm rp]) σ (Subscript[f1i, 1])+256 (q^3) (rm^4) (rp^4) γ σ (Subscript[f1i, 1])-512 (q^3) (rm^3) (rp^5) γ σ (Subscript[f1i, 1])+256 (q^3) (rm^2) (rp^6) γ σ (Subscript[f1i, 1])-384 (q^2) (rm^3) (rp^4) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 1])+768 (q^2) (rm^2) (rp^5) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 1])-384 (q^2) rm (rp^6) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 1])+256 q (rm^3) (rp^5) (γ^3) σ (Subscript[f1i, 1])-512 q (rm^2) (rp^6) (γ^3) σ (Subscript[f1i, 1])+256 q rm (rp^7) (γ^3) σ (Subscript[f1i, 1])-64 (rm^2) (rp^5) (Sqrt[rm rp]) (γ^4) σ (Subscript[f1i, 1])+128 rm (rp^6) (Sqrt[rm rp]) (γ^4) σ (Subscript[f1i, 1])-64 (rp^7) (Sqrt[rm rp]) (γ^4) σ (Subscript[f1i, 1])-32 I (q^4) (rm^3) (rp^5) (Sqrt[rm rp]) (σ^2) (Subscript[f1i, 1])+32 I (q^4) (rm^2) (rp^6) (Sqrt[rm rp]) (σ^2) (Subscript[f1i, 1])+128 I (q^3) (rm^3) (rp^6) γ (σ^2) (Subscript[f1i, 1])-128 I (q^3) (rm^2) (rp^7) γ (σ^2) (Subscript[f1i, 1])-192 I (q^2) (rm^2) (rp^6) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f1i, 1])+192 I (q^2) rm (rp^7) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f1i, 1])+128 I q (rm^2) (rp^7) (γ^3) (σ^2) (Subscript[f1i, 1])-128 I q rm (rp^8) (γ^3) (σ^2) (Subscript[f1i, 1])-32 I rm (rp^7) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f1i, 1])+32 I (rp^8) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f1i, 1])-64 I (q^4) (rm^4) (rp^2) (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 0])+128 I (q^4) (rm^3) (rp^3) (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 0])-64 I (q^4) (rm^2) (rp^4) (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 0])+256 I (q^3) (rm^4) (rp^3) γ (σ^2) (Subscript[f2i, 0])-512 I (q^3) (rm^3) (rp^4) γ (σ^2) (Subscript[f2i, 0])+256 I (q^3) (rm^2) (rp^5) γ (σ^2) (Subscript[f2i, 0])-384 I (q^2) (rm^3) (rp^3) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f2i, 0])+768 I (q^2) (rm^2) (rp^4) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f2i, 0])-384 I (q^2) rm (rp^5) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f2i, 0])+256 I q (rm^3) (rp^4) (γ^3) (σ^2) (Subscript[f2i, 0])-512 I q (rm^2) (rp^5) (γ^3) (σ^2) (Subscript[f2i, 0])+256 I q rm (rp^6) (γ^3) (σ^2) (Subscript[f2i, 0])-64 I (rm^2) (rp^4) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f2i, 0])+128 I rm (rp^5) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f2i, 0])-64 I (rp^6) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f2i, 0])+32 I (q^4) (rm^4) (rp^3) (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 1])-64 I (q^4) (rm^3) (rp^4) (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 1])+32 I (q^4) (rm^2) (rp^5) (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 1])-128 I (q^3) (rm^4) (rp^4) γ (σ^2) (Subscript[f2i, 1])+256 I (q^3) (rm^3) (rp^5) γ (σ^2) (Subscript[f2i, 1])-128 I (q^3) (rm^2) (rp^6) γ (σ^2) (Subscript[f2i, 1])+192 I (q^2) (rm^3) (rp^4) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f2i, 1])-384 I (q^2) (rm^2) (rp^5) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f2i, 1])+192 I (q^2) rm (rp^6) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f2i, 1])-128 I q (rm^3) (rp^5) (γ^3) (σ^2) (Subscript[f2i, 1])+256 I q (rm^2) (rp^6) (γ^3) (σ^2) (Subscript[f2i, 1])-128 I q rm (rp^7) (γ^3) (σ^2) (Subscript[f2i, 1])+32 I (rm^2) (rp^5) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f2i, 1])-64 I rm (rp^6) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f2i, 1])+32 I (rp^7) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f2i, 1])-48 (q^4) (rm^5) rp σ (Subscript[h0i, 0])+144 (q^4) (rm^4) (rp^2) σ (Subscript[h0i, 0])-128 (q^4) (rm^3) (rp^3) σ (Subscript[h0i, 0])+32 (q^4) (rm^2) (rp^4) σ (Subscript[h0i, 0])+192 (q^3) (rm^4) rp (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])-576 (q^3) (rm^3) (rp^2) (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])+512 (q^3) (rm^2) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])-128 (q^3) rm (rp^4) (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])-288 (q^2) (rm^4) (rp^2) (γ^2) σ (Subscript[h0i, 0])+864 (q^2) (rm^3) (rp^3) (γ^2) σ (Subscript[h0i, 0])-768 (q^2) (rm^2) (rp^4) (γ^2) σ (Subscript[h0i, 0])+192 (q^2) rm (rp^5) (γ^2) σ (Subscript[h0i, 0])+192 q (rm^3) (rp^2) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 0])-576 q (rm^2) (rp^3) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 0])+512 q rm (rp^4) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 0])-128 q (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 0])-48 (rm^3) (rp^3) (γ^4) σ (Subscript[h0i, 0])+144 (rm^2) (rp^4) (γ^4) σ (Subscript[h0i, 0])-128 rm (rp^5) (γ^4) σ (Subscript[h0i, 0])+32 (rp^6) (γ^4) σ (Subscript[h0i, 0])-6 I (rm^4) (rp^3) (σ^2) (Subscript[h0i, 0])+16 I (q^2) (rm^4) (rp^3) (σ^2) (Subscript[h0i, 0])-40 I (q^4) (rm^4) (rp^3) (σ^2) (Subscript[h0i, 0])+24 I (rm^3) (rp^4) (σ^2) (Subscript[h0i, 0])-48 I (q^2) (rm^3) (rp^4) (σ^2) (Subscript[h0i, 0])+48 I (q^4) (rm^3) (rp^4) (σ^2) (Subscript[h0i, 0])-36 I (rm^2) (rp^5) (σ^2) (Subscript[h0i, 0])+48 I (q^2) (rm^2) (rp^5) (σ^2) (Subscript[h0i, 0])-16 I (q^4) (rm^2) (rp^5) (σ^2) (Subscript[h0i, 0])+24 I rm (rp^6) (σ^2) (Subscript[h0i, 0])-16 I (q^2) rm (rp^6) (σ^2) (Subscript[h0i, 0])-6 I (rp^7) (σ^2) (Subscript[h0i, 0])-16 I q (rm^3) (rp^3) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])+160 I (q^3) (rm^3) (rp^3) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])+48 I q (rm^2) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])-192 I (q^3) (rm^2) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])-48 I q rm (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])+64 I (q^3) rm (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])+16 I q (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])-240 I (q^2) (rm^3) (rp^4) (γ^2) (σ^2) (Subscript[h0i, 0])+288 I (q^2) (rm^2) (rp^5) (γ^2) (σ^2) (Subscript[h0i, 0])-96 I (q^2) rm (rp^6) (γ^2) (σ^2) (Subscript[h0i, 0])+160 I q (rm^2) (rp^4) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h0i, 0])-192 I q rm (rp^5) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h0i, 0])+64 I q (rp^6) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h0i, 0])-40 I (rm^2) (rp^5) (γ^4) (σ^2) (Subscript[h0i, 0])+48 I rm (rp^6) (γ^4) (σ^2) (Subscript[h0i, 0])-16 I (rp^7) (γ^4) (σ^2) (Subscript[h0i, 0])+3 (rm^3) (rp^5) (σ^3) (Subscript[h0i, 0])-8 (q^2) (rm^3) (rp^5) (σ^3) (Subscript[h0i, 0])-9 (rm^2) (rp^6) (σ^3) (Subscript[h0i, 0])+16 (q^2) (rm^2) (rp^6) (σ^3) (Subscript[h0i, 0])+9 rm (rp^7) (σ^3) (Subscript[h0i, 0])-8 (q^2) rm (rp^7) (σ^3) (Subscript[h0i, 0])-3 (rp^8) (σ^3) (Subscript[h0i, 0])+8 q (rm^2) (rp^5) (Sqrt[rm rp]) γ (σ^3) (Subscript[h0i, 0])-16 q rm (rp^6) (Sqrt[rm rp]) γ (σ^3) (Subscript[h0i, 0])+8 q (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[h0i, 0])+48 (q^4) (rm^5) (rp^2) σ (Subscript[h0i, 1])-128 (q^4) (rm^4) (rp^3) σ (Subscript[h0i, 1])+112 (q^4) (rm^3) (rp^4) σ (Subscript[h0i, 1])-32 (q^4) (rm^2) (rp^5) σ (Subscript[h0i, 1])-192 (q^3) (rm^4) (rp^2) (Sqrt[rm rp]) γ σ (Subscript[h0i, 1])+512 (q^3) (rm^3) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[h0i, 1])-448 (q^3) (rm^2) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[h0i, 1])+128 (q^3) rm (rp^5) (Sqrt[rm rp]) γ σ (Subscript[h0i, 1])+288 (q^2) (rm^4) (rp^3) (γ^2) σ (Subscript[h0i, 1])-768 (q^2) (rm^3) (rp^4) (γ^2) σ (Subscript[h0i, 1])+672 (q^2) (rm^2) (rp^5) (γ^2) σ (Subscript[h0i, 1])-192 (q^2) rm (rp^6) (γ^2) σ (Subscript[h0i, 1])-192 q (rm^3) (rp^3) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 1])+512 q (rm^2) (rp^4) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 1])-448 q rm (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 1])+128 q (rp^6) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 1])+48 (rm^3) (rp^4) (γ^4) σ (Subscript[h0i, 1])-128 (rm^2) (rp^5) (γ^4) σ (Subscript[h0i, 1])+112 rm (rp^6) (γ^4) σ (Subscript[h0i, 1])-32 (rp^7) (γ^4) σ (Subscript[h0i, 1])+8 I (q^2) (rm^4) (rp^4) (σ^2) (Subscript[h0i, 1])-8 I (q^4) (rm^4) (rp^4) (σ^2) (Subscript[h0i, 1])-24 I (q^2) (rm^3) (rp^5) (σ^2) (Subscript[h0i, 1])+8 I (q^4) (rm^3) (rp^5) (σ^2) (Subscript[h0i, 1])+24 I (q^2) (rm^2) (rp^6) (σ^2) (Subscript[h0i, 1])-8 I (q^2) rm (rp^7) (σ^2) (Subscript[h0i, 1])-16 I q (rm^3) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 1])+32 I (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 1])+48 I q (rm^2) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 1])-32 I (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 1])-48 I q rm (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 1])+16 I q (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 1])+8 I (rm^3) (rp^5) (γ^2) (σ^2) (Subscript[h0i, 1])-48 I (q^2) (rm^3) (rp^5) (γ^2) (σ^2) (Subscript[h0i, 1])-24 I (rm^2) (rp^6) (γ^2) (σ^2) (Subscript[h0i, 1])+48 I (q^2) (rm^2) (rp^6) (γ^2) (σ^2) (Subscript[h0i, 1])+24 I rm (rp^7) (γ^2) (σ^2) (Subscript[h0i, 1])-8 I (rp^8) (γ^2) (σ^2) (Subscript[h0i, 1])+32 I q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h0i, 1])-32 I q rm (rp^6) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h0i, 1])-8 I (rm^2) (rp^6) (γ^4) (σ^2) (Subscript[h0i, 1])+8 I rm (rp^7) (γ^4) (σ^2) (Subscript[h0i, 1])-4 (q^2) (rm^3) (rp^6) (σ^3) (Subscript[h0i, 1])+8 (q^2) (rm^2) (rp^7) (σ^3) (Subscript[h0i, 1])-4 (q^2) rm (rp^8) (σ^3) (Subscript[h0i, 1])+8 q (rm^2) (rp^6) (Sqrt[rm rp]) γ (σ^3) (Subscript[h0i, 1])-16 q rm (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[h0i, 1])+8 q (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[h0i, 1])-4 (rm^2) (rp^7) (γ^2) (σ^3) (Subscript[h0i, 1])+8 rm (rp^8) (γ^2) (σ^3) (Subscript[h0i, 1])-4 (rp^9) (γ^2) (σ^3) (Subscript[h0i, 1])+32 (q^4) (rm^5) σ (Subscript[h1i, 0])-96 (q^4) (rm^4) rp σ (Subscript[h1i, 0])+96 (q^4) (rm^3) (rp^2) σ (Subscript[h1i, 0])-32 (q^4) (rm^2) (rp^3) σ (Subscript[h1i, 0])-128 (q^3) (rm^4) (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])+384 (q^3) (rm^3) rp (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])-384 (q^3) (rm^2) (rp^2) (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])+128 (q^3) rm (rp^3) (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])+192 (q^2) (rm^4) rp (γ^2) σ (Subscript[h1i, 0])-576 (q^2) (rm^3) (rp^2) (γ^2) σ (Subscript[h1i, 0])+576 (q^2) (rm^2) (rp^3) (γ^2) σ (Subscript[h1i, 0])-192 (q^2) rm (rp^4) (γ^2) σ (Subscript[h1i, 0])-128 q (rm^3) rp (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 0])+384 q (rm^2) (rp^2) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 0])-384 q rm (rp^3) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 0])+128 q (rp^4) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 0])+32 (rm^3) (rp^2) (γ^4) σ (Subscript[h1i, 0])-96 (rm^2) (rp^3) (γ^4) σ (Subscript[h1i, 0])+96 rm (rp^4) (γ^4) σ (Subscript[h1i, 0])-32 (rp^5) (γ^4) σ (Subscript[h1i, 0])+32 (q^4) (rm^5) Λ σ (Subscript[h1i, 0])-96 (q^4) (rm^4) rp Λ σ (Subscript[h1i, 0])+96 (q^4) (rm^3) (rp^2) Λ σ (Subscript[h1i, 0])-32 (q^4) (rm^2) (rp^3) Λ σ (Subscript[h1i, 0])-128 (q^3) (rm^4) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])+384 (q^3) (rm^3) rp (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])-384 (q^3) (rm^2) (rp^2) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])+128 (q^3) rm (rp^3) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])+192 (q^2) (rm^4) rp (γ^2) Λ σ (Subscript[h1i, 0])-576 (q^2) (rm^3) (rp^2) (γ^2) Λ σ (Subscript[h1i, 0])+576 (q^2) (rm^2) (rp^3) (γ^2) Λ σ (Subscript[h1i, 0])-192 (q^2) rm (rp^4) (γ^2) Λ σ (Subscript[h1i, 0])-128 q (rm^3) rp (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 0])+384 q (rm^2) (rp^2) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 0])-384 q rm (rp^3) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 0])+128 q (rp^4) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 0])+32 (rm^3) (rp^2) (γ^4) Λ σ (Subscript[h1i, 0])-96 (rm^2) (rp^3) (γ^4) Λ σ (Subscript[h1i, 0])+96 rm (rp^4) (γ^4) Λ σ (Subscript[h1i, 0])-32 (rp^5) (γ^4) Λ σ (Subscript[h1i, 0])+16 I (q^4) (rm^4) (rp^2) (σ^2) (Subscript[h1i, 0])-32 I (q^4) (rm^3) (rp^3) (σ^2) (Subscript[h1i, 0])+16 I (q^4) (rm^2) (rp^4) (σ^2) (Subscript[h1i, 0])-64 I (q^3) (rm^3) (rp^2) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])+128 I (q^3) (rm^2) (rp^3) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])-64 I (q^3) rm (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])+96 I (q^2) (rm^3) (rp^3) (γ^2) (σ^2) (Subscript[h1i, 0])-192 I (q^2) (rm^2) (rp^4) (γ^2) (σ^2) (Subscript[h1i, 0])+96 I (q^2) rm (rp^5) (γ^2) (σ^2) (Subscript[h1i, 0])-64 I q (rm^2) (rp^3) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h1i, 0])+128 I q rm (rp^4) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h1i, 0])-64 I q (rp^5) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h1i, 0])+16 I (rm^2) (rp^4) (γ^4) (σ^2) (Subscript[h1i, 0])-32 I rm (rp^5) (γ^4) (σ^2) (Subscript[h1i, 0])+16 I (rp^6) (γ^4) (σ^2) (Subscript[h1i, 0])+16 I (q^4) (rm^4) (rp^2) Λ (σ^2) (Subscript[h1i, 0])-32 I (q^4) (rm^3) (rp^3) Λ (σ^2) (Subscript[h1i, 0])+16 I (q^4) (rm^2) (rp^4) Λ (σ^2) (Subscript[h1i, 0])-64 I (q^3) (rm^3) (rp^2) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 0])+128 I (q^3) (rm^2) (rp^3) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 0])-64 I (q^3) rm (rp^4) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 0])+96 I (q^2) (rm^3) (rp^3) (γ^2) Λ (σ^2) (Subscript[h1i, 0])-192 I (q^2) (rm^2) (rp^4) (γ^2) Λ (σ^2) (Subscript[h1i, 0])+96 I (q^2) rm (rp^5) (γ^2) Λ (σ^2) (Subscript[h1i, 0])-64 I q (rm^2) (rp^3) (Sqrt[rm rp]) (γ^3) Λ (σ^2) (Subscript[h1i, 0])+128 I q rm (rp^4) (Sqrt[rm rp]) (γ^3) Λ (σ^2) (Subscript[h1i, 0])-64 I q (rp^5) (Sqrt[rm rp]) (γ^3) Λ (σ^2) (Subscript[h1i, 0])+16 I (rm^2) (rp^4) (γ^4) Λ (σ^2) (Subscript[h1i, 0])-32 I rm (rp^5) (γ^4) Λ (σ^2) (Subscript[h1i, 0])+16 I (rp^6) (γ^4) Λ (σ^2) (Subscript[h1i, 0])-32 (q^4) (rm^3) (rp^4) (σ^3) (Subscript[h1i, 0])+8 (q^4) (rm^2) (rp^5) (σ^3) (Subscript[h1i, 0])+128 (q^3) (rm^2) (rp^4) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 0])-32 (q^3) rm (rp^5) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 0])-192 (q^2) (rm^2) (rp^5) (γ^2) (σ^3) (Subscript[h1i, 0])+48 (q^2) rm (rp^6) (γ^2) (σ^3) (Subscript[h1i, 0])+128 q rm (rp^5) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[h1i, 0])-32 q (rp^6) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[h1i, 0])-32 rm (rp^6) (γ^4) (σ^3) (Subscript[h1i, 0])+8 (rp^7) (γ^4) (σ^3) (Subscript[h1i, 0])+3 I (rm^3) (rp^5) (σ^4) (Subscript[h1i, 0])-8 I (q^2) (rm^3) (rp^5) (σ^4) (Subscript[h1i, 0])-9 I (rm^2) (rp^6) (σ^4) (Subscript[h1i, 0])+16 I (q^2) (rm^2) (rp^6) (σ^4) (Subscript[h1i, 0])+9 I rm (rp^7) (σ^4) (Subscript[h1i, 0])-8 I (q^2) rm (rp^7) (σ^4) (Subscript[h1i, 0])-3 I (rp^8) (σ^4) (Subscript[h1i, 0])+8 I q (rm^2) (rp^5) (Sqrt[rm rp]) γ (σ^4) (Subscript[h1i, 0])-16 I q rm (rp^6) (Sqrt[rm rp]) γ (σ^4) (Subscript[h1i, 0])+8 I q (rp^7) (Sqrt[rm rp]) γ (σ^4) (Subscript[h1i, 0])-16 (q^4) (rm^5) rp σ (Subscript[h1i, 1])+48 (q^4) (rm^4) (rp^2) σ (Subscript[h1i, 1])-48 (q^4) (rm^3) (rp^3) σ (Subscript[h1i, 1])+16 (q^4) (rm^2) (rp^4) σ (Subscript[h1i, 1])+64 (q^3) (rm^4) rp (Sqrt[rm rp]) γ σ (Subscript[h1i, 1])-192 (q^3) (rm^3) (rp^2) (Sqrt[rm rp]) γ σ (Subscript[h1i, 1])+192 (q^3) (rm^2) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[h1i, 1])-64 (q^3) rm (rp^4) (Sqrt[rm rp]) γ σ (Subscript[h1i, 1])-96 (q^2) (rm^4) (rp^2) (γ^2) σ (Subscript[h1i, 1])+288 (q^2) (rm^3) (rp^3) (γ^2) σ (Subscript[h1i, 1])-288 (q^2) (rm^2) (rp^4) (γ^2) σ (Subscript[h1i, 1])+96 (q^2) rm (rp^5) (γ^2) σ (Subscript[h1i, 1])+64 q (rm^3) (rp^2) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 1])-192 q (rm^2) (rp^3) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 1])+192 q rm (rp^4) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 1])-64 q (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 1])-16 (rm^3) (rp^3) (γ^4) σ (Subscript[h1i, 1])+48 (rm^2) (rp^4) (γ^4) σ (Subscript[h1i, 1])-48 rm (rp^5) (γ^4) σ (Subscript[h1i, 1])+16 (rp^6) (γ^4) σ (Subscript[h1i, 1])-16 (q^4) (rm^5) rp Λ σ (Subscript[h1i, 1])+48 (q^4) (rm^4) (rp^2) Λ σ (Subscript[h1i, 1])-48 (q^4) (rm^3) (rp^3) Λ σ (Subscript[h1i, 1])+16 (q^4) (rm^2) (rp^4) Λ σ (Subscript[h1i, 1])+64 (q^3) (rm^4) rp (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 1])-192 (q^3) (rm^3) (rp^2) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 1])+192 (q^3) (rm^2) (rp^3) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 1])-64 (q^3) rm (rp^4) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 1])-96 (q^2) (rm^4) (rp^2) (γ^2) Λ σ (Subscript[h1i, 1])+288 (q^2) (rm^3) (rp^3) (γ^2) Λ σ (Subscript[h1i, 1])-288 (q^2) (rm^2) (rp^4) (γ^2) Λ σ (Subscript[h1i, 1])+96 (q^2) rm (rp^5) (γ^2) Λ σ (Subscript[h1i, 1])+64 q (rm^3) (rp^2) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 1])-192 q (rm^2) (rp^3) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 1])+192 q rm (rp^4) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 1])-64 q (rp^5) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 1])-16 (rm^3) (rp^3) (γ^4) Λ σ (Subscript[h1i, 1])+48 (rm^2) (rp^4) (γ^4) Λ σ (Subscript[h1i, 1])-48 rm (rp^5) (γ^4) Λ σ (Subscript[h1i, 1])+16 (rp^6) (γ^4) Λ σ (Subscript[h1i, 1])-8 I (q^4) (rm^4) (rp^3) (σ^2) (Subscript[h1i, 1])+16 I (q^4) (rm^3) (rp^4) (σ^2) (Subscript[h1i, 1])-8 I (q^4) (rm^2) (rp^5) (σ^2) (Subscript[h1i, 1])+32 I (q^3) (rm^3) (rp^3) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 1])-64 I (q^3) (rm^2) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 1])+32 I (q^3) rm (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 1])-48 I (q^2) (rm^3) (rp^4) (γ^2) (σ^2) (Subscript[h1i, 1])+96 I (q^2) (rm^2) (rp^5) (γ^2) (σ^2) (Subscript[h1i, 1])-48 I (q^2) rm (rp^6) (γ^2) (σ^2) (Subscript[h1i, 1])+32 I q (rm^2) (rp^4) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h1i, 1])-64 I q rm (rp^5) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h1i, 1])+32 I q (rp^6) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h1i, 1])-8 I (rm^2) (rp^5) (γ^4) (σ^2) (Subscript[h1i, 1])+16 I rm (rp^6) (γ^4) (σ^2) (Subscript[h1i, 1])-8 I (rp^7) (γ^4) (σ^2) (Subscript[h1i, 1])-8 I (q^4) (rm^4) (rp^3) Λ (σ^2) (Subscript[h1i, 1])+16 I (q^4) (rm^3) (rp^4) Λ (σ^2) (Subscript[h1i, 1])-8 I (q^4) (rm^2) (rp^5) Λ (σ^2) (Subscript[h1i, 1])+32 I (q^3) (rm^3) (rp^3) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 1])-64 I (q^3) (rm^2) (rp^4) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 1])+32 I (q^3) rm (rp^5) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 1])-48 I (q^2) (rm^3) (rp^4) (γ^2) Λ (σ^2) (Subscript[h1i, 1])+96 I (q^2) (rm^2) (rp^5) (γ^2) Λ (σ^2) (Subscript[h1i, 1])-48 I (q^2) rm (rp^6) (γ^2) Λ (σ^2) (Subscript[h1i, 1])+32 I q (rm^2) (rp^4) (Sqrt[rm rp]) (γ^3) Λ (σ^2) (Subscript[h1i, 1])-64 I q rm (rp^5) (Sqrt[rm rp]) (γ^3) Λ (σ^2) (Subscript[h1i, 1])+32 I q (rp^6) (Sqrt[rm rp]) (γ^3) Λ (σ^2) (Subscript[h1i, 1])-8 I (rm^2) (rp^5) (γ^4) Λ (σ^2) (Subscript[h1i, 1])+16 I rm (rp^6) (γ^4) Λ (σ^2) (Subscript[h1i, 1])-8 I (rp^7) (γ^4) Λ (σ^2) (Subscript[h1i, 1])-48 (q^4) (rm^4) (rp^4) (σ^3) (Subscript[h1i, 1])+72 (q^4) (rm^3) (rp^5) (σ^3) (Subscript[h1i, 1])-24 (q^4) (rm^2) (rp^6) (σ^3) (Subscript[h1i, 1])+192 (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 1])-288 (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 1])+96 (q^3) rm (rp^6) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 1])-288 (q^2) (rm^3) (rp^5) (γ^2) (σ^3) (Subscript[h1i, 1])+432 (q^2) (rm^2) (rp^6) (γ^2) (σ^3) (Subscript[h1i, 1])-144 (q^2) rm (rp^7) (γ^2) (σ^3) (Subscript[h1i, 1])+192 q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[h1i, 1])-288 q rm (rp^6) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[h1i, 1])+96 q (rp^7) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[h1i, 1])-48 (rm^2) (rp^6) (γ^4) (σ^3) (Subscript[h1i, 1])+72 rm (rp^7) (γ^4) (σ^3) (Subscript[h1i, 1])-24 (rp^8) (γ^4) (σ^3) (Subscript[h1i, 1])-4 I (q^2) (rm^3) (rp^6) (σ^4) (Subscript[h1i, 1])+8 I (q^2) (rm^2) (rp^7) (σ^4) (Subscript[h1i, 1])-4 I (q^2) rm (rp^8) (σ^4) (Subscript[h1i, 1])+8 I q (rm^2) (rp^6) (Sqrt[rm rp]) γ (σ^4) (Subscript[h1i, 1])-16 I q rm (rp^7) (Sqrt[rm rp]) γ (σ^4) (Subscript[h1i, 1])+8 I q (rp^8) (Sqrt[rm rp]) γ (σ^4) (Subscript[h1i, 1])-4 I (rm^2) (rp^7) (γ^2) (σ^4) (Subscript[h1i, 1])+8 I rm (rp^8) (γ^2) (σ^4) (Subscript[h1i, 1])-4 I (rp^9) (γ^2) (σ^4) (Subscript[h1i, 1])-32 (q^4) (rm^5) (rp^2) σ (Subscript[kpi, 0])+88 (q^4) (rm^4) (rp^3) σ (Subscript[kpi, 0])-80 (q^4) (rm^3) (rp^4) σ (Subscript[kpi, 0])+24 (q^4) (rm^2) (rp^5) σ (Subscript[kpi, 0])+128 (q^3) (rm^4) (rp^2) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])-352 (q^3) (rm^3) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])+320 (q^3) (rm^2) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])-96 (q^3) rm (rp^5) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])-192 (q^2) (rm^4) (rp^3) (γ^2) σ (Subscript[kpi, 0])+528 (q^2) (rm^3) (rp^4) (γ^2) σ (Subscript[kpi, 0])-480 (q^2) (rm^2) (rp^5) (γ^2) σ (Subscript[kpi, 0])+144 (q^2) rm (rp^6) (γ^2) σ (Subscript[kpi, 0])+128 q (rm^3) (rp^3) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 0])-352 q (rm^2) (rp^4) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 0])+320 q rm (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 0])-96 q (rp^6) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 0])-32 (rm^3) (rp^4) (γ^4) σ (Subscript[kpi, 0])+88 (rm^2) (rp^5) (γ^4) σ (Subscript[kpi, 0])-80 rm (rp^6) (γ^4) σ (Subscript[kpi, 0])+24 (rp^7) (γ^4) σ (Subscript[kpi, 0])-16 I (q^4) (rm^4) (rp^4) (σ^2) (Subscript[kpi, 0])+28 I (q^4) (rm^3) (rp^5) (σ^2) (Subscript[kpi, 0])-12 I (q^4) (rm^2) (rp^6) (σ^2) (Subscript[kpi, 0])+64 I (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 0])-112 I (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 0])+48 I (q^3) rm (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 0])-96 I (q^2) (rm^3) (rp^5) (γ^2) (σ^2) (Subscript[kpi, 0])+168 I (q^2) (rm^2) (rp^6) (γ^2) (σ^2) (Subscript[kpi, 0])-72 I (q^2) rm (rp^7) (γ^2) (σ^2) (Subscript[kpi, 0])+64 I q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[kpi, 0])-112 I q rm (rp^6) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[kpi, 0])+48 I q (rp^7) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[kpi, 0])-16 I (rm^2) (rp^6) (γ^4) (σ^2) (Subscript[kpi, 0])+28 I rm (rp^7) (γ^4) (σ^2) (Subscript[kpi, 0])-12 I (rp^8) (γ^4) (σ^2) (Subscript[kpi, 0])-16 (q^4) (rm^3) (rp^6) (σ^3) (Subscript[kpi, 0])+8 (q^4) (rm^2) (rp^7) (σ^3) (Subscript[kpi, 0])+64 (q^3) (rm^2) (rp^6) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 0])-32 (q^3) rm (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 0])-96 (q^2) (rm^2) (rp^7) (γ^2) (σ^3) (Subscript[kpi, 0])+48 (q^2) rm (rp^8) (γ^2) (σ^3) (Subscript[kpi, 0])+64 q rm (rp^7) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[kpi, 0])-32 q (rp^8) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[kpi, 0])-16 rm (rp^8) (γ^4) (σ^3) (Subscript[kpi, 0])+8 (rp^9) (γ^4) (σ^3) (Subscript[kpi, 0])+8 (q^4) (rm^5) (rp^3) σ (Subscript[kpi, 1])-24 (q^4) (rm^4) (rp^4) σ (Subscript[kpi, 1])+24 (q^4) (rm^3) (rp^5) σ (Subscript[kpi, 1])-8 (q^4) (rm^2) (rp^6) σ (Subscript[kpi, 1])-32 (q^3) (rm^4) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[kpi, 1])+96 (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[kpi, 1])-96 (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ σ (Subscript[kpi, 1])+32 (q^3) rm (rp^6) (Sqrt[rm rp]) γ σ (Subscript[kpi, 1])+48 (q^2) (rm^4) (rp^4) (γ^2) σ (Subscript[kpi, 1])-144 (q^2) (rm^3) (rp^5) (γ^2) σ (Subscript[kpi, 1])+144 (q^2) (rm^2) (rp^6) (γ^2) σ (Subscript[kpi, 1])-48 (q^2) rm (rp^7) (γ^2) σ (Subscript[kpi, 1])-32 q (rm^3) (rp^4) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 1])+96 q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 1])-96 q rm (rp^6) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 1])+32 q (rp^7) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 1])+8 (rm^3) (rp^5) (γ^4) σ (Subscript[kpi, 1])-24 (rm^2) (rp^6) (γ^4) σ (Subscript[kpi, 1])+24 rm (rp^7) (γ^4) σ (Subscript[kpi, 1])-8 (rp^8) (γ^4) σ (Subscript[kpi, 1])+4 I (q^4) (rm^4) (rp^5) (σ^2) (Subscript[kpi, 1])-8 I (q^4) (rm^3) (rp^6) (σ^2) (Subscript[kpi, 1])+4 I (q^4) (rm^2) (rp^7) (σ^2) (Subscript[kpi, 1])-16 I (q^3) (rm^3) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 1])+32 I (q^3) (rm^2) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 1])-16 I (q^3) rm (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 1])+24 I (q^2) (rm^3) (rp^6) (γ^2) (σ^2) (Subscript[kpi, 1])-48 I (q^2) (rm^2) (rp^7) (γ^2) (σ^2) (Subscript[kpi, 1])+24 I (q^2) rm (rp^8) (γ^2) (σ^2) (Subscript[kpi, 1])-16 I q (rm^2) (rp^6) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[kpi, 1])+32 I q rm (rp^7) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[kpi, 1])-16 I q (rp^8) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[kpi, 1])+4 I (rm^2) (rp^7) (γ^4) (σ^2) (Subscript[kpi, 1])-8 I rm (rp^8) (γ^4) (σ^2) (Subscript[kpi, 1])+4 I (rp^9) (γ^4) (σ^2) (Subscript[kpi, 1])-8 (q^4) (rm^3) (rp^7) (σ^3) (Subscript[kpi, 1])+8 (q^4) (rm^2) (rp^8) (σ^3) (Subscript[kpi, 1])+32 (q^3) (rm^2) (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 1])-32 (q^3) rm (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 1])-48 (q^2) (rm^2) (rp^8) (γ^2) (σ^3) (Subscript[kpi, 1])+48 (q^2) rm (rp^9) (γ^2) (σ^3) (Subscript[kpi, 1])+32 q rm (rp^8) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[kpi, 1])-32 q (rp^9) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[kpi, 1])-8 rm (rp^9) (γ^4) (σ^3) (Subscript[kpi, 1])+8 (rp^10) (γ^4) (σ^3) (Subscript[kpi, 1]))/(32 (((rm-rp))^2) (rp^3) ((((q^2) rm-2 q (Sqrt[rm rp]) γ+rp (γ^2)))^2) σ (rm-rp+I (rp^2) σ)),(Subscript[kpi, 2])->-((-32 I (Sqrt[2]) (q^5) (rm^5) (rp^2) (Sqrt[rm rp]) (((9+8 Λ))^(1/4))+112 I (Sqrt[2]) (q^5) (rm^4) (rp^3) (Sqrt[rm rp]) (((9+8 Λ))^(1/4))-176 I (Sqrt[2]) (q^5) (rm^3) (rp^4) (Sqrt[rm rp]) (((9+8 Λ))^(1/4))+96 I (Sqrt[2]) (q^5) (rm^2) (rp^5) (Sqrt[rm rp]) (((9+8 Λ))^(1/4))+128 I (Sqrt[2]) (q^4) (rm^5) (rp^3) γ (((9+8 Λ))^(1/4))-416 I (Sqrt[2]) (q^4) (rm^4) (rp^4) γ (((9+8 Λ))^(1/4))+688 I (Sqrt[2]) (q^4) (rm^3) (rp^5) γ (((9+8 Λ))^(1/4))-400 I (Sqrt[2]) (q^4) (rm^2) (rp^6) γ (((9+8 Λ))^(1/4))-192 I (Sqrt[2]) (q^3) (rm^4) (rp^3) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4))+544 I (Sqrt[2]) (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4))-992 I (Sqrt[2]) (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4))+640 I (Sqrt[2]) (q^3) rm (rp^6) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4))+128 I (Sqrt[2]) (q^2) (rm^4) (rp^4) (γ^3) (((9+8 Λ))^(1/4))-256 I (Sqrt[2]) (q^2) (rm^3) (rp^5) (γ^3) (((9+8 Λ))^(1/4))+608 I (Sqrt[2]) (q^2) (rm^2) (rp^6) (γ^3) (((9+8 Λ))^(1/4))-480 I (Sqrt[2]) (q^2) rm (rp^7) (γ^3) (((9+8 Λ))^(1/4))-32 I (Sqrt[2]) q (rm^3) (rp^4) (Sqrt[rm rp]) (γ^4) (((9+8 Λ))^(1/4))-16 I (Sqrt[2]) q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^4) (((9+8 Λ))^(1/4))-112 I (Sqrt[2]) q rm (rp^6) (Sqrt[rm rp]) (γ^4) (((9+8 Λ))^(1/4))+160 I (Sqrt[2]) q (rp^7) (Sqrt[rm rp]) (γ^4) (((9+8 Λ))^(1/4))+32 I (Sqrt[2]) (rm^2) (rp^6) (γ^5) (((9+8 Λ))^(1/4))-16 I (Sqrt[2]) rm (rp^7) (γ^5) (((9+8 Λ))^(1/4))-16 I (Sqrt[2]) (rp^8) (γ^5) (((9+8 Λ))^(1/4))-16 I (Sqrt[2]) (q^5) (rm^4) (rp^3) (Sqrt[rm rp]) Λ (((9+8 Λ))^(1/4))+48 I (Sqrt[2]) (q^5) (rm^3) (rp^4) (Sqrt[rm rp]) Λ (((9+8 Λ))^(1/4))-32 I (Sqrt[2]) (q^5) (rm^2) (rp^5) (Sqrt[rm rp]) Λ (((9+8 Λ))^(1/4))+64 I (Sqrt[2]) (q^4) (rm^4) (rp^4) γ Λ (((9+8 Λ))^(1/4))-208 I (Sqrt[2]) (q^4) (rm^3) (rp^5) γ Λ (((9+8 Λ))^(1/4))+144 I (Sqrt[2]) (q^4) (rm^2) (rp^6) γ Λ (((9+8 Λ))^(1/4))-96 I (Sqrt[2]) (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) (γ^2) Λ (((9+8 Λ))^(1/4))+352 I (Sqrt[2]) (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) (γ^2) Λ (((9+8 Λ))^(1/4))-256 I (Sqrt[2]) (q^3) rm (rp^6) (Sqrt[rm rp]) (γ^2) Λ (((9+8 Λ))^(1/4))+64 I (Sqrt[2]) (q^2) (rm^3) (rp^5) (γ^3) Λ (((9+8 Λ))^(1/4))-288 I (Sqrt[2]) (q^2) (rm^2) (rp^6) (γ^3) Λ (((9+8 Λ))^(1/4))+224 I (Sqrt[2]) (q^2) rm (rp^7) (γ^3) Λ (((9+8 Λ))^(1/4))-16 I (Sqrt[2]) q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^4) Λ (((9+8 Λ))^(1/4))+112 I (Sqrt[2]) q rm (rp^6) (Sqrt[rm rp]) (γ^4) Λ (((9+8 Λ))^(1/4))-96 I (Sqrt[2]) q (rp^7) (Sqrt[rm rp]) (γ^4) Λ (((9+8 Λ))^(1/4))-16 I (Sqrt[2]) rm (rp^7) (γ^5) Λ (((9+8 Λ))^(1/4))+16 I (Sqrt[2]) (rp^8) (γ^5) Λ (((9+8 Λ))^(1/4))+48 (Sqrt[2]) (q^5) (rm^4) (rp^4) (Sqrt[rm rp]) (((9+8 Λ))^(1/4)) σ-144 (Sqrt[2]) (q^5) (rm^3) (rp^5) (Sqrt[rm rp]) (((9+8 Λ))^(1/4)) σ+160 (Sqrt[2]) (q^5) (rm^2) (rp^6) (Sqrt[rm rp]) (((9+8 Λ))^(1/4)) σ-192 (Sqrt[2]) (q^4) (rm^4) (rp^5) γ (((9+8 Λ))^(1/4)) σ+560 (Sqrt[2]) (q^4) (rm^3) (rp^6) γ (((9+8 Λ))^(1/4)) σ-688 (Sqrt[2]) (q^4) (rm^2) (rp^7) γ (((9+8 Λ))^(1/4)) σ+288 (Sqrt[2]) (q^3) (rm^3) (rp^5) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4)) σ-800 (Sqrt[2]) (q^3) (rm^2) (rp^6) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4)) σ+1152 (Sqrt[2]) (q^3) rm (rp^7) (Sqrt[rm rp]) (γ^2) (((9+8 Λ))^(1/4)) σ-192 (Sqrt[2]) (q^2) (rm^3) (rp^6) (γ^3) (((9+8 Λ))^(1/4)) σ+480 (Sqrt[2]) (q^2) (rm^2) (rp^7) (γ^3) (((9+8 Λ))^(1/4)) σ-928 (Sqrt[2]) (q^2) rm (rp^8) (γ^3) (((9+8 Λ))^(1/4)) σ+48 (Sqrt[2]) q (rm^2) (rp^6) (Sqrt[rm rp]) (γ^4) (((9+8 Λ))^(1/4)) σ-80 (Sqrt[2]) q rm (rp^7) (Sqrt[rm rp]) (γ^4) (((9+8 Λ))^(1/4)) σ+352 (Sqrt[2]) q (rp^8) (Sqrt[rm rp]) (γ^4) (((9+8 Λ))^(1/4)) σ-16 (Sqrt[2]) rm (rp^8) (γ^5) (((9+8 Λ))^(1/4)) σ-48 (Sqrt[2]) (rp^9) (γ^5) (((9+8 Λ))^(1/4)) σ-64 (q^4) (rm^4) (rp^4) (Sqrt[rm rp]) σ (Subscript[f1i, 0])+160 (q^4) (rm^3) (rp^5) (Sqrt[rm rp]) σ (Subscript[f1i, 0])-96 (q^4) (rm^2) (rp^6) (Sqrt[rm rp]) σ (Subscript[f1i, 0])+256 (q^3) (rm^4) (rp^5) γ σ (Subscript[f1i, 0])-640 (q^3) (rm^3) (rp^6) γ σ (Subscript[f1i, 0])+384 (q^3) (rm^2) (rp^7) γ σ (Subscript[f1i, 0])-384 (q^2) (rm^3) (rp^5) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 0])+960 (q^2) (rm^2) (rp^6) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 0])-576 (q^2) rm (rp^7) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 0])+256 q (rm^3) (rp^6) (γ^3) σ (Subscript[f1i, 0])-640 q (rm^2) (rp^7) (γ^3) σ (Subscript[f1i, 0])+384 q rm (rp^8) (γ^3) σ (Subscript[f1i, 0])-64 (rm^2) (rp^6) (Sqrt[rm rp]) (γ^4) σ (Subscript[f1i, 0])+160 rm (rp^7) (Sqrt[rm rp]) (γ^4) σ (Subscript[f1i, 0])-96 (rp^8) (Sqrt[rm rp]) (γ^4) σ (Subscript[f1i, 0])+32 (q^4) (rm^3) (rp^5) (Sqrt[rm rp]) Λ σ (Subscript[f1i, 0])-32 (q^4) (rm^2) (rp^6) (Sqrt[rm rp]) Λ σ (Subscript[f1i, 0])-128 (q^3) (rm^3) (rp^6) γ Λ σ (Subscript[f1i, 0])+128 (q^3) (rm^2) (rp^7) γ Λ σ (Subscript[f1i, 0])+192 (q^2) (rm^2) (rp^6) (Sqrt[rm rp]) (γ^2) Λ σ (Subscript[f1i, 0])-192 (q^2) rm (rp^7) (Sqrt[rm rp]) (γ^2) Λ σ (Subscript[f1i, 0])-128 q (rm^2) (rp^7) (γ^3) Λ σ (Subscript[f1i, 0])+128 q rm (rp^8) (γ^3) Λ σ (Subscript[f1i, 0])+32 rm (rp^7) (Sqrt[rm rp]) (γ^4) Λ σ (Subscript[f1i, 0])-32 (rp^8) (Sqrt[rm rp]) (γ^4) Λ σ (Subscript[f1i, 0])-32 I (q^4) (rm^3) (rp^6) (Sqrt[rm rp]) (σ^2) (Subscript[f1i, 0])+32 I (q^4) (rm^2) (rp^7) (Sqrt[rm rp]) (σ^2) (Subscript[f1i, 0])+128 I (q^3) (rm^3) (rp^7) γ (σ^2) (Subscript[f1i, 0])-128 I (q^3) (rm^2) (rp^8) γ (σ^2) (Subscript[f1i, 0])-192 I (q^2) (rm^2) (rp^7) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f1i, 0])+192 I (q^2) rm (rp^8) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f1i, 0])+128 I q (rm^2) (rp^8) (γ^3) (σ^2) (Subscript[f1i, 0])-128 I q rm (rp^9) (γ^3) (σ^2) (Subscript[f1i, 0])-32 I rm (rp^8) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f1i, 0])+32 I (rp^9) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f1i, 0])-64 (q^4) (rm^5) (rp^4) (Sqrt[rm rp]) σ (Subscript[f1i, 1])+224 (q^4) (rm^4) (rp^5) (Sqrt[rm rp]) σ (Subscript[f1i, 1])-256 (q^4) (rm^3) (rp^6) (Sqrt[rm rp]) σ (Subscript[f1i, 1])+96 (q^4) (rm^2) (rp^7) (Sqrt[rm rp]) σ (Subscript[f1i, 1])+256 (q^3) (rm^5) (rp^5) γ σ (Subscript[f1i, 1])-896 (q^3) (rm^4) (rp^6) γ σ (Subscript[f1i, 1])+1024 (q^3) (rm^3) (rp^7) γ σ (Subscript[f1i, 1])-384 (q^3) (rm^2) (rp^8) γ σ (Subscript[f1i, 1])-384 (q^2) (rm^4) (rp^5) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 1])+1344 (q^2) (rm^3) (rp^6) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 1])-1536 (q^2) (rm^2) (rp^7) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 1])+576 (q^2) rm (rp^8) (Sqrt[rm rp]) (γ^2) σ (Subscript[f1i, 1])+256 q (rm^4) (rp^6) (γ^3) σ (Subscript[f1i, 1])-896 q (rm^3) (rp^7) (γ^3) σ (Subscript[f1i, 1])+1024 q (rm^2) (rp^8) (γ^3) σ (Subscript[f1i, 1])-384 q rm (rp^9) (γ^3) σ (Subscript[f1i, 1])-64 (rm^3) (rp^6) (Sqrt[rm rp]) (γ^4) σ (Subscript[f1i, 1])+224 (rm^2) (rp^7) (Sqrt[rm rp]) (γ^4) σ (Subscript[f1i, 1])-256 rm (rp^8) (Sqrt[rm rp]) (γ^4) σ (Subscript[f1i, 1])+96 (rp^9) (Sqrt[rm rp]) (γ^4) σ (Subscript[f1i, 1])+32 (q^4) (rm^4) (rp^5) (Sqrt[rm rp]) Λ σ (Subscript[f1i, 1])-64 (q^4) (rm^3) (rp^6) (Sqrt[rm rp]) Λ σ (Subscript[f1i, 1])+32 (q^4) (rm^2) (rp^7) (Sqrt[rm rp]) Λ σ (Subscript[f1i, 1])-128 (q^3) (rm^4) (rp^6) γ Λ σ (Subscript[f1i, 1])+256 (q^3) (rm^3) (rp^7) γ Λ σ (Subscript[f1i, 1])-128 (q^3) (rm^2) (rp^8) γ Λ σ (Subscript[f1i, 1])+192 (q^2) (rm^3) (rp^6) (Sqrt[rm rp]) (γ^2) Λ σ (Subscript[f1i, 1])-384 (q^2) (rm^2) (rp^7) (Sqrt[rm rp]) (γ^2) Λ σ (Subscript[f1i, 1])+192 (q^2) rm (rp^8) (Sqrt[rm rp]) (γ^2) Λ σ (Subscript[f1i, 1])-128 q (rm^3) (rp^7) (γ^3) Λ σ (Subscript[f1i, 1])+256 q (rm^2) (rp^8) (γ^3) Λ σ (Subscript[f1i, 1])-128 q rm (rp^9) (γ^3) Λ σ (Subscript[f1i, 1])+32 (rm^2) (rp^7) (Sqrt[rm rp]) (γ^4) Λ σ (Subscript[f1i, 1])-64 rm (rp^8) (Sqrt[rm rp]) (γ^4) Λ σ (Subscript[f1i, 1])+32 (rp^9) (Sqrt[rm rp]) (γ^4) Λ σ (Subscript[f1i, 1])-32 I (q^4) (rm^4) (rp^6) (Sqrt[rm rp]) (σ^2) (Subscript[f1i, 1])+64 I (q^4) (rm^3) (rp^7) (Sqrt[rm rp]) (σ^2) (Subscript[f1i, 1])-32 I (q^4) (rm^2) (rp^8) (Sqrt[rm rp]) (σ^2) (Subscript[f1i, 1])+128 I (q^3) (rm^4) (rp^7) γ (σ^2) (Subscript[f1i, 1])-256 I (q^3) (rm^3) (rp^8) γ (σ^2) (Subscript[f1i, 1])+128 I (q^3) (rm^2) (rp^9) γ (σ^2) (Subscript[f1i, 1])-192 I (q^2) (rm^3) (rp^7) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f1i, 1])+384 I (q^2) (rm^2) (rp^8) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f1i, 1])-192 I (q^2) rm (rp^9) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f1i, 1])+128 I q (rm^3) (rp^8) (γ^3) (σ^2) (Subscript[f1i, 1])-256 I q (rm^2) (rp^9) (γ^3) (σ^2) (Subscript[f1i, 1])+128 I q rm (rp^10) (γ^3) (σ^2) (Subscript[f1i, 1])-32 I (rm^2) (rp^8) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f1i, 1])+64 I rm (rp^9) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f1i, 1])-32 I (rp^10) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f1i, 1])-128 I (q^4) (rm^6) (Sqrt[rm rp]) (Subscript[f2i, 0])+512 I (q^4) (rm^5) rp (Sqrt[rm rp]) (Subscript[f2i, 0])-768 I (q^4) (rm^4) (rp^2) (Sqrt[rm rp]) (Subscript[f2i, 0])+512 I (q^4) (rm^3) (rp^3) (Sqrt[rm rp]) (Subscript[f2i, 0])-128 I (q^4) (rm^2) (rp^4) (Sqrt[rm rp]) (Subscript[f2i, 0])+512 I (q^3) (rm^6) rp γ (Subscript[f2i, 0])-2048 I (q^3) (rm^5) (rp^2) γ (Subscript[f2i, 0])+3072 I (q^3) (rm^4) (rp^3) γ (Subscript[f2i, 0])-2048 I (q^3) (rm^3) (rp^4) γ (Subscript[f2i, 0])+512 I (q^3) (rm^2) (rp^5) γ (Subscript[f2i, 0])-768 I (q^2) (rm^5) rp (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 0])+3072 I (q^2) (rm^4) (rp^2) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 0])-4608 I (q^2) (rm^3) (rp^3) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 0])+3072 I (q^2) (rm^2) (rp^4) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 0])-768 I (q^2) rm (rp^5) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 0])+512 I q (rm^5) (rp^2) (γ^3) (Subscript[f2i, 0])-2048 I q (rm^4) (rp^3) (γ^3) (Subscript[f2i, 0])+3072 I q (rm^3) (rp^4) (γ^3) (Subscript[f2i, 0])-2048 I q (rm^2) (rp^5) (γ^3) (Subscript[f2i, 0])+512 I q rm (rp^6) (γ^3) (Subscript[f2i, 0])-128 I (rm^4) (rp^2) (Sqrt[rm rp]) (γ^4) (Subscript[f2i, 0])+512 I (rm^3) (rp^3) (Sqrt[rm rp]) (γ^4) (Subscript[f2i, 0])-768 I (rm^2) (rp^4) (Sqrt[rm rp]) (γ^4) (Subscript[f2i, 0])+512 I rm (rp^5) (Sqrt[rm rp]) (γ^4) (Subscript[f2i, 0])-128 I (rp^6) (Sqrt[rm rp]) (γ^4) (Subscript[f2i, 0])-128 I (q^4) (rm^6) (Sqrt[rm rp]) Λ (Subscript[f2i, 0])+512 I (q^4) (rm^5) rp (Sqrt[rm rp]) Λ (Subscript[f2i, 0])-768 I (q^4) (rm^4) (rp^2) (Sqrt[rm rp]) Λ (Subscript[f2i, 0])+512 I (q^4) (rm^3) (rp^3) (Sqrt[rm rp]) Λ (Subscript[f2i, 0])-128 I (q^4) (rm^2) (rp^4) (Sqrt[rm rp]) Λ (Subscript[f2i, 0])+512 I (q^3) (rm^6) rp γ Λ (Subscript[f2i, 0])-2048 I (q^3) (rm^5) (rp^2) γ Λ (Subscript[f2i, 0])+3072 I (q^3) (rm^4) (rp^3) γ Λ (Subscript[f2i, 0])-2048 I (q^3) (rm^3) (rp^4) γ Λ (Subscript[f2i, 0])+512 I (q^3) (rm^2) (rp^5) γ Λ (Subscript[f2i, 0])-768 I (q^2) (rm^5) rp (Sqrt[rm rp]) (γ^2) Λ (Subscript[f2i, 0])+3072 I (q^2) (rm^4) (rp^2) (Sqrt[rm rp]) (γ^2) Λ (Subscript[f2i, 0])-4608 I (q^2) (rm^3) (rp^3) (Sqrt[rm rp]) (γ^2) Λ (Subscript[f2i, 0])+3072 I (q^2) (rm^2) (rp^4) (Sqrt[rm rp]) (γ^2) Λ (Subscript[f2i, 0])-768 I (q^2) rm (rp^5) (Sqrt[rm rp]) (γ^2) Λ (Subscript[f2i, 0])+512 I q (rm^5) (rp^2) (γ^3) Λ (Subscript[f2i, 0])-2048 I q (rm^4) (rp^3) (γ^3) Λ (Subscript[f2i, 0])+3072 I q (rm^3) (rp^4) (γ^3) Λ (Subscript[f2i, 0])-2048 I q (rm^2) (rp^5) (γ^3) Λ (Subscript[f2i, 0])+512 I q rm (rp^6) (γ^3) Λ (Subscript[f2i, 0])-128 I (rm^4) (rp^2) (Sqrt[rm rp]) (γ^4) Λ (Subscript[f2i, 0])+512 I (rm^3) (rp^3) (Sqrt[rm rp]) (γ^4) Λ (Subscript[f2i, 0])-768 I (rm^2) (rp^4) (Sqrt[rm rp]) (γ^4) Λ (Subscript[f2i, 0])+512 I rm (rp^5) (Sqrt[rm rp]) (γ^4) Λ (Subscript[f2i, 0])-128 I (rp^6) (Sqrt[rm rp]) (γ^4) Λ (Subscript[f2i, 0])+64 (q^4) (rm^5) (rp^2) (Sqrt[rm rp]) σ (Subscript[f2i, 0])-192 (q^4) (rm^4) (rp^3) (Sqrt[rm rp]) σ (Subscript[f2i, 0])+192 (q^4) (rm^3) (rp^4) (Sqrt[rm rp]) σ (Subscript[f2i, 0])-64 (q^4) (rm^2) (rp^5) (Sqrt[rm rp]) σ (Subscript[f2i, 0])-256 (q^3) (rm^5) (rp^3) γ σ (Subscript[f2i, 0])+768 (q^3) (rm^4) (rp^4) γ σ (Subscript[f2i, 0])-768 (q^3) (rm^3) (rp^5) γ σ (Subscript[f2i, 0])+256 (q^3) (rm^2) (rp^6) γ σ (Subscript[f2i, 0])+384 (q^2) (rm^4) (rp^3) (Sqrt[rm rp]) (γ^2) σ (Subscript[f2i, 0])-1152 (q^2) (rm^3) (rp^4) (Sqrt[rm rp]) (γ^2) σ (Subscript[f2i, 0])+1152 (q^2) (rm^2) (rp^5) (Sqrt[rm rp]) (γ^2) σ (Subscript[f2i, 0])-384 (q^2) rm (rp^6) (Sqrt[rm rp]) (γ^2) σ (Subscript[f2i, 0])-256 q (rm^4) (rp^4) (γ^3) σ (Subscript[f2i, 0])+768 q (rm^3) (rp^5) (γ^3) σ (Subscript[f2i, 0])-768 q (rm^2) (rp^6) (γ^3) σ (Subscript[f2i, 0])+256 q rm (rp^7) (γ^3) σ (Subscript[f2i, 0])+64 (rm^3) (rp^4) (Sqrt[rm rp]) (γ^4) σ (Subscript[f2i, 0])-192 (rm^2) (rp^5) (Sqrt[rm rp]) (γ^4) σ (Subscript[f2i, 0])+192 rm (rp^6) (Sqrt[rm rp]) (γ^4) σ (Subscript[f2i, 0])-64 (rp^7) (Sqrt[rm rp]) (γ^4) σ (Subscript[f2i, 0])+64 (q^4) (rm^5) (rp^2) (Sqrt[rm rp]) Λ σ (Subscript[f2i, 0])-192 (q^4) (rm^4) (rp^3) (Sqrt[rm rp]) Λ σ (Subscript[f2i, 0])+192 (q^4) (rm^3) (rp^4) (Sqrt[rm rp]) Λ σ (Subscript[f2i, 0])-64 (q^4) (rm^2) (rp^5) (Sqrt[rm rp]) Λ σ (Subscript[f2i, 0])-256 (q^3) (rm^5) (rp^3) γ Λ σ (Subscript[f2i, 0])+768 (q^3) (rm^4) (rp^4) γ Λ σ (Subscript[f2i, 0])-768 (q^3) (rm^3) (rp^5) γ Λ σ (Subscript[f2i, 0])+256 (q^3) (rm^2) (rp^6) γ Λ σ (Subscript[f2i, 0])+384 (q^2) (rm^4) (rp^3) (Sqrt[rm rp]) (γ^2) Λ σ (Subscript[f2i, 0])-1152 (q^2) (rm^3) (rp^4) (Sqrt[rm rp]) (γ^2) Λ σ (Subscript[f2i, 0])+1152 (q^2) (rm^2) (rp^5) (Sqrt[rm rp]) (γ^2) Λ σ (Subscript[f2i, 0])-384 (q^2) rm (rp^6) (Sqrt[rm rp]) (γ^2) Λ σ (Subscript[f2i, 0])-256 q (rm^4) (rp^4) (γ^3) Λ σ (Subscript[f2i, 0])+768 q (rm^3) (rp^5) (γ^3) Λ σ (Subscript[f2i, 0])-768 q (rm^2) (rp^6) (γ^3) Λ σ (Subscript[f2i, 0])+256 q rm (rp^7) (γ^3) Λ σ (Subscript[f2i, 0])+64 (rm^3) (rp^4) (Sqrt[rm rp]) (γ^4) Λ σ (Subscript[f2i, 0])-192 (rm^2) (rp^5) (Sqrt[rm rp]) (γ^4) Λ σ (Subscript[f2i, 0])+192 rm (rp^6) (Sqrt[rm rp]) (γ^4) Λ σ (Subscript[f2i, 0])-64 (rp^7) (Sqrt[rm rp]) (γ^4) Λ σ (Subscript[f2i, 0])-64 I (q^4) (rm^5) (rp^3) (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 0])+192 I (q^4) (rm^4) (rp^4) (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 0])-192 I (q^4) (rm^3) (rp^5) (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 0])+64 I (q^4) (rm^2) (rp^6) (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 0])+256 I (q^3) (rm^5) (rp^4) γ (σ^2) (Subscript[f2i, 0])-768 I (q^3) (rm^4) (rp^5) γ (σ^2) (Subscript[f2i, 0])+768 I (q^3) (rm^3) (rp^6) γ (σ^2) (Subscript[f2i, 0])-256 I (q^3) (rm^2) (rp^7) γ (σ^2) (Subscript[f2i, 0])-384 I (q^2) (rm^4) (rp^4) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f2i, 0])+1152 I (q^2) (rm^3) (rp^5) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f2i, 0])-1152 I (q^2) (rm^2) (rp^6) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f2i, 0])+384 I (q^2) rm (rp^7) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f2i, 0])+256 I q (rm^4) (rp^5) (γ^3) (σ^2) (Subscript[f2i, 0])-768 I q (rm^3) (rp^6) (γ^3) (σ^2) (Subscript[f2i, 0])+768 I q (rm^2) (rp^7) (γ^3) (σ^2) (Subscript[f2i, 0])-256 I q rm (rp^8) (γ^3) (σ^2) (Subscript[f2i, 0])-64 I (rm^3) (rp^5) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f2i, 0])+192 I (rm^2) (rp^6) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f2i, 0])-192 I rm (rp^7) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f2i, 0])+64 I (rp^8) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f2i, 0])+64 I (q^4) (rm^6) rp (Sqrt[rm rp]) (Subscript[f2i, 1])-256 I (q^4) (rm^5) (rp^2) (Sqrt[rm rp]) (Subscript[f2i, 1])+384 I (q^4) (rm^4) (rp^3) (Sqrt[rm rp]) (Subscript[f2i, 1])-256 I (q^4) (rm^3) (rp^4) (Sqrt[rm rp]) (Subscript[f2i, 1])+64 I (q^4) (rm^2) (rp^5) (Sqrt[rm rp]) (Subscript[f2i, 1])-256 I (q^3) (rm^6) (rp^2) γ (Subscript[f2i, 1])+1024 I (q^3) (rm^5) (rp^3) γ (Subscript[f2i, 1])-1536 I (q^3) (rm^4) (rp^4) γ (Subscript[f2i, 1])+1024 I (q^3) (rm^3) (rp^5) γ (Subscript[f2i, 1])-256 I (q^3) (rm^2) (rp^6) γ (Subscript[f2i, 1])+384 I (q^2) (rm^5) (rp^2) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 1])-1536 I (q^2) (rm^4) (rp^3) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 1])+2304 I (q^2) (rm^3) (rp^4) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 1])-1536 I (q^2) (rm^2) (rp^5) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 1])+384 I (q^2) rm (rp^6) (Sqrt[rm rp]) (γ^2) (Subscript[f2i, 1])-256 I q (rm^5) (rp^3) (γ^3) (Subscript[f2i, 1])+1024 I q (rm^4) (rp^4) (γ^3) (Subscript[f2i, 1])-1536 I q (rm^3) (rp^5) (γ^3) (Subscript[f2i, 1])+1024 I q (rm^2) (rp^6) (γ^3) (Subscript[f2i, 1])-256 I q rm (rp^7) (γ^3) (Subscript[f2i, 1])+64 I (rm^4) (rp^3) (Sqrt[rm rp]) (γ^4) (Subscript[f2i, 1])-256 I (rm^3) (rp^4) (Sqrt[rm rp]) (γ^4) (Subscript[f2i, 1])+384 I (rm^2) (rp^5) (Sqrt[rm rp]) (γ^4) (Subscript[f2i, 1])-256 I rm (rp^6) (Sqrt[rm rp]) (γ^4) (Subscript[f2i, 1])+64 I (rp^7) (Sqrt[rm rp]) (γ^4) (Subscript[f2i, 1])+64 I (q^4) (rm^6) rp (Sqrt[rm rp]) Λ (Subscript[f2i, 1])-256 I (q^4) (rm^5) (rp^2) (Sqrt[rm rp]) Λ (Subscript[f2i, 1])+384 I (q^4) (rm^4) (rp^3) (Sqrt[rm rp]) Λ (Subscript[f2i, 1])-256 I (q^4) (rm^3) (rp^4) (Sqrt[rm rp]) Λ (Subscript[f2i, 1])+64 I (q^4) (rm^2) (rp^5) (Sqrt[rm rp]) Λ (Subscript[f2i, 1])-256 I (q^3) (rm^6) (rp^2) γ Λ (Subscript[f2i, 1])+1024 I (q^3) (rm^5) (rp^3) γ Λ (Subscript[f2i, 1])-1536 I (q^3) (rm^4) (rp^4) γ Λ (Subscript[f2i, 1])+1024 I (q^3) (rm^3) (rp^5) γ Λ (Subscript[f2i, 1])-256 I (q^3) (rm^2) (rp^6) γ Λ (Subscript[f2i, 1])+384 I (q^2) (rm^5) (rp^2) (Sqrt[rm rp]) (γ^2) Λ (Subscript[f2i, 1])-1536 I (q^2) (rm^4) (rp^3) (Sqrt[rm rp]) (γ^2) Λ (Subscript[f2i, 1])+2304 I (q^2) (rm^3) (rp^4) (Sqrt[rm rp]) (γ^2) Λ (Subscript[f2i, 1])-1536 I (q^2) (rm^2) (rp^5) (Sqrt[rm rp]) (γ^2) Λ (Subscript[f2i, 1])+384 I (q^2) rm (rp^6) (Sqrt[rm rp]) (γ^2) Λ (Subscript[f2i, 1])-256 I q (rm^5) (rp^3) (γ^3) Λ (Subscript[f2i, 1])+1024 I q (rm^4) (rp^4) (γ^3) Λ (Subscript[f2i, 1])-1536 I q (rm^3) (rp^5) (γ^3) Λ (Subscript[f2i, 1])+1024 I q (rm^2) (rp^6) (γ^3) Λ (Subscript[f2i, 1])-256 I q rm (rp^7) (γ^3) Λ (Subscript[f2i, 1])+64 I (rm^4) (rp^3) (Sqrt[rm rp]) (γ^4) Λ (Subscript[f2i, 1])-256 I (rm^3) (rp^4) (Sqrt[rm rp]) (γ^4) Λ (Subscript[f2i, 1])+384 I (rm^2) (rp^5) (Sqrt[rm rp]) (γ^4) Λ (Subscript[f2i, 1])-256 I rm (rp^6) (Sqrt[rm rp]) (γ^4) Λ (Subscript[f2i, 1])+64 I (rp^7) (Sqrt[rm rp]) (γ^4) Λ (Subscript[f2i, 1])-32 (q^4) (rm^5) (rp^3) (Sqrt[rm rp]) σ (Subscript[f2i, 1])+96 (q^4) (rm^4) (rp^4) (Sqrt[rm rp]) σ (Subscript[f2i, 1])-96 (q^4) (rm^3) (rp^5) (Sqrt[rm rp]) σ (Subscript[f2i, 1])+32 (q^4) (rm^2) (rp^6) (Sqrt[rm rp]) σ (Subscript[f2i, 1])+128 (q^3) (rm^5) (rp^4) γ σ (Subscript[f2i, 1])-384 (q^3) (rm^4) (rp^5) γ σ (Subscript[f2i, 1])+384 (q^3) (rm^3) (rp^6) γ σ (Subscript[f2i, 1])-128 (q^3) (rm^2) (rp^7) γ σ (Subscript[f2i, 1])-192 (q^2) (rm^4) (rp^4) (Sqrt[rm rp]) (γ^2) σ (Subscript[f2i, 1])+576 (q^2) (rm^3) (rp^5) (Sqrt[rm rp]) (γ^2) σ (Subscript[f2i, 1])-576 (q^2) (rm^2) (rp^6) (Sqrt[rm rp]) (γ^2) σ (Subscript[f2i, 1])+192 (q^2) rm (rp^7) (Sqrt[rm rp]) (γ^2) σ (Subscript[f2i, 1])+128 q (rm^4) (rp^5) (γ^3) σ (Subscript[f2i, 1])-384 q (rm^3) (rp^6) (γ^3) σ (Subscript[f2i, 1])+384 q (rm^2) (rp^7) (γ^3) σ (Subscript[f2i, 1])-128 q rm (rp^8) (γ^3) σ (Subscript[f2i, 1])-32 (rm^3) (rp^5) (Sqrt[rm rp]) (γ^4) σ (Subscript[f2i, 1])+96 (rm^2) (rp^6) (Sqrt[rm rp]) (γ^4) σ (Subscript[f2i, 1])-96 rm (rp^7) (Sqrt[rm rp]) (γ^4) σ (Subscript[f2i, 1])+32 (rp^8) (Sqrt[rm rp]) (γ^4) σ (Subscript[f2i, 1])-32 (q^4) (rm^5) (rp^3) (Sqrt[rm rp]) Λ σ (Subscript[f2i, 1])+96 (q^4) (rm^4) (rp^4) (Sqrt[rm rp]) Λ σ (Subscript[f2i, 1])-96 (q^4) (rm^3) (rp^5) (Sqrt[rm rp]) Λ σ (Subscript[f2i, 1])+32 (q^4) (rm^2) (rp^6) (Sqrt[rm rp]) Λ σ (Subscript[f2i, 1])+128 (q^3) (rm^5) (rp^4) γ Λ σ (Subscript[f2i, 1])-384 (q^3) (rm^4) (rp^5) γ Λ σ (Subscript[f2i, 1])+384 (q^3) (rm^3) (rp^6) γ Λ σ (Subscript[f2i, 1])-128 (q^3) (rm^2) (rp^7) γ Λ σ (Subscript[f2i, 1])-192 (q^2) (rm^4) (rp^4) (Sqrt[rm rp]) (γ^2) Λ σ (Subscript[f2i, 1])+576 (q^2) (rm^3) (rp^5) (Sqrt[rm rp]) (γ^2) Λ σ (Subscript[f2i, 1])-576 (q^2) (rm^2) (rp^6) (Sqrt[rm rp]) (γ^2) Λ σ (Subscript[f2i, 1])+192 (q^2) rm (rp^7) (Sqrt[rm rp]) (γ^2) Λ σ (Subscript[f2i, 1])+128 q (rm^4) (rp^5) (γ^3) Λ σ (Subscript[f2i, 1])-384 q (rm^3) (rp^6) (γ^3) Λ σ (Subscript[f2i, 1])+384 q (rm^2) (rp^7) (γ^3) Λ σ (Subscript[f2i, 1])-128 q rm (rp^8) (γ^3) Λ σ (Subscript[f2i, 1])-32 (rm^3) (rp^5) (Sqrt[rm rp]) (γ^4) Λ σ (Subscript[f2i, 1])+96 (rm^2) (rp^6) (Sqrt[rm rp]) (γ^4) Λ σ (Subscript[f2i, 1])-96 rm (rp^7) (Sqrt[rm rp]) (γ^4) Λ σ (Subscript[f2i, 1])+32 (rp^8) (Sqrt[rm rp]) (γ^4) Λ σ (Subscript[f2i, 1])+32 I (q^4) (rm^5) (rp^4) (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 1])-96 I (q^4) (rm^4) (rp^5) (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 1])+96 I (q^4) (rm^3) (rp^6) (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 1])-32 I (q^4) (rm^2) (rp^7) (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 1])-128 I (q^3) (rm^5) (rp^5) γ (σ^2) (Subscript[f2i, 1])+384 I (q^3) (rm^4) (rp^6) γ (σ^2) (Subscript[f2i, 1])-384 I (q^3) (rm^3) (rp^7) γ (σ^2) (Subscript[f2i, 1])+128 I (q^3) (rm^2) (rp^8) γ (σ^2) (Subscript[f2i, 1])+192 I (q^2) (rm^4) (rp^5) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f2i, 1])-576 I (q^2) (rm^3) (rp^6) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f2i, 1])+576 I (q^2) (rm^2) (rp^7) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f2i, 1])-192 I (q^2) rm (rp^8) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[f2i, 1])-128 I q (rm^4) (rp^6) (γ^3) (σ^2) (Subscript[f2i, 1])+384 I q (rm^3) (rp^7) (γ^3) (σ^2) (Subscript[f2i, 1])-384 I q (rm^2) (rp^8) (γ^3) (σ^2) (Subscript[f2i, 1])+128 I q rm (rp^9) (γ^3) (σ^2) (Subscript[f2i, 1])+32 I (rm^3) (rp^6) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f2i, 1])-96 I (rm^2) (rp^7) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f2i, 1])+96 I rm (rp^8) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f2i, 1])-32 I (rp^9) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[f2i, 1])-16 (q^4) (rm^6) (rp^2) σ (Subscript[h0i, 0])+72 (q^4) (rm^5) (rp^3) σ (Subscript[h0i, 0])-136 (q^4) (rm^4) (rp^4) σ (Subscript[h0i, 0])+96 (q^4) (rm^3) (rp^5) σ (Subscript[h0i, 0])-16 (q^4) (rm^2) (rp^6) σ (Subscript[h0i, 0])+64 (q^3) (rm^5) (rp^2) (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])-288 (q^3) (rm^4) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])+544 (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])-384 (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])+64 (q^3) rm (rp^6) (Sqrt[rm rp]) γ σ (Subscript[h0i, 0])-96 (q^2) (rm^5) (rp^3) (γ^2) σ (Subscript[h0i, 0])+432 (q^2) (rm^4) (rp^4) (γ^2) σ (Subscript[h0i, 0])-816 (q^2) (rm^3) (rp^5) (γ^2) σ (Subscript[h0i, 0])+576 (q^2) (rm^2) (rp^6) (γ^2) σ (Subscript[h0i, 0])-96 (q^2) rm (rp^7) (γ^2) σ (Subscript[h0i, 0])+64 q (rm^4) (rp^3) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 0])-288 q (rm^3) (rp^4) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 0])+544 q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 0])-384 q rm (rp^6) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 0])+64 q (rp^7) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 0])-16 (rm^4) (rp^4) (γ^4) σ (Subscript[h0i, 0])+72 (rm^3) (rp^5) (γ^4) σ (Subscript[h0i, 0])-136 (rm^2) (rp^6) (γ^4) σ (Subscript[h0i, 0])+96 rm (rp^7) (γ^4) σ (Subscript[h0i, 0])-16 (rp^8) (γ^4) σ (Subscript[h0i, 0])+8 (q^4) (rm^5) (rp^3) Λ σ (Subscript[h0i, 0])-56 (q^4) (rm^4) (rp^4) Λ σ (Subscript[h0i, 0])+64 (q^4) (rm^3) (rp^5) Λ σ (Subscript[h0i, 0])-16 (q^4) (rm^2) (rp^6) Λ σ (Subscript[h0i, 0])-32 (q^3) (rm^4) (rp^3) (Sqrt[rm rp]) γ Λ σ (Subscript[h0i, 0])+224 (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ Λ σ (Subscript[h0i, 0])-256 (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ Λ σ (Subscript[h0i, 0])+64 (q^3) rm (rp^6) (Sqrt[rm rp]) γ Λ σ (Subscript[h0i, 0])+48 (q^2) (rm^4) (rp^4) (γ^2) Λ σ (Subscript[h0i, 0])-336 (q^2) (rm^3) (rp^5) (γ^2) Λ σ (Subscript[h0i, 0])+384 (q^2) (rm^2) (rp^6) (γ^2) Λ σ (Subscript[h0i, 0])-96 (q^2) rm (rp^7) (γ^2) Λ σ (Subscript[h0i, 0])-32 q (rm^3) (rp^4) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h0i, 0])+224 q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h0i, 0])-256 q rm (rp^6) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h0i, 0])+64 q (rp^7) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h0i, 0])+8 (rm^3) (rp^5) (γ^4) Λ σ (Subscript[h0i, 0])-56 (rm^2) (rp^6) (γ^4) Λ σ (Subscript[h0i, 0])+64 rm (rp^7) (γ^4) Λ σ (Subscript[h0i, 0])-16 (rp^8) (γ^4) Λ σ (Subscript[h0i, 0])-6 I (rm^5) (rp^4) (σ^2) (Subscript[h0i, 0])+16 I (q^2) (rm^5) (rp^4) (σ^2) (Subscript[h0i, 0])-8 I (q^4) (rm^5) (rp^4) (σ^2) (Subscript[h0i, 0])+33 I (rm^4) (rp^5) (σ^2) (Subscript[h0i, 0])-72 I (q^2) (rm^4) (rp^5) (σ^2) (Subscript[h0i, 0])-8 I (q^4) (rm^4) (rp^5) (σ^2) (Subscript[h0i, 0])-72 I (rm^3) (rp^6) (σ^2) (Subscript[h0i, 0])+120 I (q^2) (rm^3) (rp^6) (σ^2) (Subscript[h0i, 0])+32 I (q^4) (rm^3) (rp^6) (σ^2) (Subscript[h0i, 0])+78 I (rm^2) (rp^7) (σ^2) (Subscript[h0i, 0])-88 I (q^2) (rm^2) (rp^7) (σ^2) (Subscript[h0i, 0])-16 I (q^4) (rm^2) (rp^7) (σ^2) (Subscript[h0i, 0])-42 I rm (rp^8) (σ^2) (Subscript[h0i, 0])+24 I (q^2) rm (rp^8) (σ^2) (Subscript[h0i, 0])+9 I (rp^9) (σ^2) (Subscript[h0i, 0])-16 I q (rm^4) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])+32 I (q^3) (rm^4) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])+72 I q (rm^3) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])+32 I (q^3) (rm^3) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])-120 I q (rm^2) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])-128 I (q^3) (rm^2) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])+88 I q rm (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])+64 I (q^3) rm (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])-24 I q (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 0])-48 I (q^2) (rm^4) (rp^5) (γ^2) (σ^2) (Subscript[h0i, 0])-48 I (q^2) (rm^3) (rp^6) (γ^2) (σ^2) (Subscript[h0i, 0])+192 I (q^2) (rm^2) (rp^7) (γ^2) (σ^2) (Subscript[h0i, 0])-96 I (q^2) rm (rp^8) (γ^2) (σ^2) (Subscript[h0i, 0])+32 I q (rm^3) (rp^5) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h0i, 0])+32 I q (rm^2) (rp^6) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h0i, 0])-128 I q rm (rp^7) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h0i, 0])+64 I q (rp^8) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h0i, 0])-8 I (rm^3) (rp^6) (γ^4) (σ^2) (Subscript[h0i, 0])-8 I (rm^2) (rp^7) (γ^4) (σ^2) (Subscript[h0i, 0])+32 I rm (rp^8) (γ^4) (σ^2) (Subscript[h0i, 0])-16 I (rp^9) (γ^4) (σ^2) (Subscript[h0i, 0])+3 I (rm^4) (rp^5) Λ (σ^2) (Subscript[h0i, 0])-8 I (q^2) (rm^4) (rp^5) Λ (σ^2) (Subscript[h0i, 0])-12 I (rm^3) (rp^6) Λ (σ^2) (Subscript[h0i, 0])+24 I (q^2) (rm^3) (rp^6) Λ (σ^2) (Subscript[h0i, 0])+18 I (rm^2) (rp^7) Λ (σ^2) (Subscript[h0i, 0])-24 I (q^2) (rm^2) (rp^7) Λ (σ^2) (Subscript[h0i, 0])-12 I rm (rp^8) Λ (σ^2) (Subscript[h0i, 0])+8 I (q^2) rm (rp^8) Λ (σ^2) (Subscript[h0i, 0])+3 I (rp^9) Λ (σ^2) (Subscript[h0i, 0])+8 I q (rm^3) (rp^5) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h0i, 0])-24 I q (rm^2) (rp^6) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h0i, 0])+24 I q rm (rp^7) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h0i, 0])-8 I q (rp^8) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h0i, 0])+3 (rm^4) (rp^6) (σ^3) (Subscript[h0i, 0])-8 (q^2) (rm^4) (rp^6) (σ^3) (Subscript[h0i, 0])-12 (rm^3) (rp^7) (σ^3) (Subscript[h0i, 0])+24 (q^2) (rm^3) (rp^7) (σ^3) (Subscript[h0i, 0])+18 (rm^2) (rp^8) (σ^3) (Subscript[h0i, 0])-24 (q^2) (rm^2) (rp^8) (σ^3) (Subscript[h0i, 0])-12 rm (rp^9) (σ^3) (Subscript[h0i, 0])+8 (q^2) rm (rp^9) (σ^3) (Subscript[h0i, 0])+3 (rp^10) (σ^3) (Subscript[h0i, 0])+8 q (rm^3) (rp^6) (Sqrt[rm rp]) γ (σ^3) (Subscript[h0i, 0])-24 q (rm^2) (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[h0i, 0])+24 q rm (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[h0i, 0])-8 q (rp^9) (Sqrt[rm rp]) γ (σ^3) (Subscript[h0i, 0])+16 (q^4) (rm^6) (rp^3) σ (Subscript[h0i, 1])-104 (q^4) (rm^5) (rp^4) σ (Subscript[h0i, 1])+192 (q^4) (rm^4) (rp^5) σ (Subscript[h0i, 1])-136 (q^4) (rm^3) (rp^6) σ (Subscript[h0i, 1])+32 (q^4) (rm^2) (rp^7) σ (Subscript[h0i, 1])-64 (q^3) (rm^5) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[h0i, 1])+416 (q^3) (rm^4) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[h0i, 1])-768 (q^3) (rm^3) (rp^5) (Sqrt[rm rp]) γ σ (Subscript[h0i, 1])+544 (q^3) (rm^2) (rp^6) (Sqrt[rm rp]) γ σ (Subscript[h0i, 1])-128 (q^3) rm (rp^7) (Sqrt[rm rp]) γ σ (Subscript[h0i, 1])+96 (q^2) (rm^5) (rp^4) (γ^2) σ (Subscript[h0i, 1])-624 (q^2) (rm^4) (rp^5) (γ^2) σ (Subscript[h0i, 1])+1152 (q^2) (rm^3) (rp^6) (γ^2) σ (Subscript[h0i, 1])-816 (q^2) (rm^2) (rp^7) (γ^2) σ (Subscript[h0i, 1])+192 (q^2) rm (rp^8) (γ^2) σ (Subscript[h0i, 1])-64 q (rm^4) (rp^4) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 1])+416 q (rm^3) (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 1])-768 q (rm^2) (rp^6) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 1])+544 q rm (rp^7) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 1])-128 q (rp^8) (Sqrt[rm rp]) (γ^3) σ (Subscript[h0i, 1])+16 (rm^4) (rp^5) (γ^4) σ (Subscript[h0i, 1])-104 (rm^3) (rp^6) (γ^4) σ (Subscript[h0i, 1])+192 (rm^2) (rp^7) (γ^4) σ (Subscript[h0i, 1])-136 rm (rp^8) (γ^4) σ (Subscript[h0i, 1])+32 (rp^9) (γ^4) σ (Subscript[h0i, 1])-56 (q^4) (rm^5) (rp^4) Λ σ (Subscript[h0i, 1])+144 (q^4) (rm^4) (rp^5) Λ σ (Subscript[h0i, 1])-120 (q^4) (rm^3) (rp^6) Λ σ (Subscript[h0i, 1])+32 (q^4) (rm^2) (rp^7) Λ σ (Subscript[h0i, 1])+224 (q^3) (rm^4) (rp^4) (Sqrt[rm rp]) γ Λ σ (Subscript[h0i, 1])-576 (q^3) (rm^3) (rp^5) (Sqrt[rm rp]) γ Λ σ (Subscript[h0i, 1])+480 (q^3) (rm^2) (rp^6) (Sqrt[rm rp]) γ Λ σ (Subscript[h0i, 1])-128 (q^3) rm (rp^7) (Sqrt[rm rp]) γ Λ σ (Subscript[h0i, 1])-336 (q^2) (rm^4) (rp^5) (γ^2) Λ σ (Subscript[h0i, 1])+864 (q^2) (rm^3) (rp^6) (γ^2) Λ σ (Subscript[h0i, 1])-720 (q^2) (rm^2) (rp^7) (γ^2) Λ σ (Subscript[h0i, 1])+192 (q^2) rm (rp^8) (γ^2) Λ σ (Subscript[h0i, 1])+224 q (rm^3) (rp^5) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h0i, 1])-576 q (rm^2) (rp^6) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h0i, 1])+480 q rm (rp^7) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h0i, 1])-128 q (rp^8) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h0i, 1])-56 (rm^3) (rp^6) (γ^4) Λ σ (Subscript[h0i, 1])+144 (rm^2) (rp^7) (γ^4) Λ σ (Subscript[h0i, 1])-120 rm (rp^8) (γ^4) Λ σ (Subscript[h0i, 1])+32 (rp^9) (γ^4) Λ σ (Subscript[h0i, 1])+8 I (q^2) (rm^5) (rp^5) (σ^2) (Subscript[h0i, 1])-40 I (q^4) (rm^5) (rp^5) (σ^2) (Subscript[h0i, 1])-36 I (q^2) (rm^4) (rp^6) (σ^2) (Subscript[h0i, 1])+112 I (q^4) (rm^4) (rp^6) (σ^2) (Subscript[h0i, 1])+60 I (q^2) (rm^3) (rp^7) (σ^2) (Subscript[h0i, 1])-104 I (q^4) (rm^3) (rp^7) (σ^2) (Subscript[h0i, 1])-44 I (q^2) (rm^2) (rp^8) (σ^2) (Subscript[h0i, 1])+32 I (q^4) (rm^2) (rp^8) (σ^2) (Subscript[h0i, 1])+12 I (q^2) rm (rp^9) (σ^2) (Subscript[h0i, 1])-16 I q (rm^4) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 1])+160 I (q^3) (rm^4) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 1])+72 I q (rm^3) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 1])-448 I (q^3) (rm^3) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 1])-120 I q (rm^2) (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 1])+416 I (q^3) (rm^2) (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 1])+88 I q rm (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 1])-128 I (q^3) rm (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 1])-24 I q (rp^9) (Sqrt[rm rp]) γ (σ^2) (Subscript[h0i, 1])+8 I (rm^4) (rp^6) (γ^2) (σ^2) (Subscript[h0i, 1])-240 I (q^2) (rm^4) (rp^6) (γ^2) (σ^2) (Subscript[h0i, 1])-36 I (rm^3) (rp^7) (γ^2) (σ^2) (Subscript[h0i, 1])+672 I (q^2) (rm^3) (rp^7) (γ^2) (σ^2) (Subscript[h0i, 1])+60 I (rm^2) (rp^8) (γ^2) (σ^2) (Subscript[h0i, 1])-624 I (q^2) (rm^2) (rp^8) (γ^2) (σ^2) (Subscript[h0i, 1])-44 I rm (rp^9) (γ^2) (σ^2) (Subscript[h0i, 1])+192 I (q^2) rm (rp^9) (γ^2) (σ^2) (Subscript[h0i, 1])+12 I (rp^10) (γ^2) (σ^2) (Subscript[h0i, 1])+160 I q (rm^3) (rp^6) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h0i, 1])-448 I q (rm^2) (rp^7) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h0i, 1])+416 I q rm (rp^8) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h0i, 1])-128 I q (rp^9) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h0i, 1])-40 I (rm^3) (rp^7) (γ^4) (σ^2) (Subscript[h0i, 1])+112 I (rm^2) (rp^8) (γ^4) (σ^2) (Subscript[h0i, 1])-104 I rm (rp^9) (γ^4) (σ^2) (Subscript[h0i, 1])+32 I (rp^10) (γ^4) (σ^2) (Subscript[h0i, 1])-4 I (q^2) (rm^4) (rp^6) Λ (σ^2) (Subscript[h0i, 1])+12 I (q^2) (rm^3) (rp^7) Λ (σ^2) (Subscript[h0i, 1])-12 I (q^2) (rm^2) (rp^8) Λ (σ^2) (Subscript[h0i, 1])+4 I (q^2) rm (rp^9) Λ (σ^2) (Subscript[h0i, 1])+8 I q (rm^3) (rp^6) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h0i, 1])-24 I q (rm^2) (rp^7) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h0i, 1])+24 I q rm (rp^8) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h0i, 1])-8 I q (rp^9) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h0i, 1])-4 I (rm^3) (rp^7) (γ^2) Λ (σ^2) (Subscript[h0i, 1])+12 I (rm^2) (rp^8) (γ^2) Λ (σ^2) (Subscript[h0i, 1])-12 I rm (rp^9) (γ^2) Λ (σ^2) (Subscript[h0i, 1])+4 I (rp^10) (γ^2) Λ (σ^2) (Subscript[h0i, 1])-4 (q^2) (rm^4) (rp^7) (σ^3) (Subscript[h0i, 1])+12 (q^2) (rm^3) (rp^8) (σ^3) (Subscript[h0i, 1])-12 (q^2) (rm^2) (rp^9) (σ^3) (Subscript[h0i, 1])+4 (q^2) rm (rp^10) (σ^3) (Subscript[h0i, 1])+8 q (rm^3) (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[h0i, 1])-24 q (rm^2) (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[h0i, 1])+24 q rm (rp^9) (Sqrt[rm rp]) γ (σ^3) (Subscript[h0i, 1])-8 q (rp^10) (Sqrt[rm rp]) γ (σ^3) (Subscript[h0i, 1])-4 (rm^3) (rp^8) (γ^2) (σ^3) (Subscript[h0i, 1])+12 (rm^2) (rp^9) (γ^2) (σ^3) (Subscript[h0i, 1])-12 rm (rp^10) (γ^2) (σ^3) (Subscript[h0i, 1])+4 (rp^11) (γ^2) (σ^3) (Subscript[h0i, 1])-32 (q^4) (rm^6) rp σ (Subscript[h1i, 0])+112 (q^4) (rm^5) (rp^2) σ (Subscript[h1i, 0])-160 (q^4) (rm^4) (rp^3) σ (Subscript[h1i, 0])+112 (q^4) (rm^3) (rp^4) σ (Subscript[h1i, 0])-32 (q^4) (rm^2) (rp^5) σ (Subscript[h1i, 0])+128 (q^3) (rm^5) rp (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])-448 (q^3) (rm^4) (rp^2) (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])+640 (q^3) (rm^3) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])-448 (q^3) (rm^2) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])+128 (q^3) rm (rp^5) (Sqrt[rm rp]) γ σ (Subscript[h1i, 0])-192 (q^2) (rm^5) (rp^2) (γ^2) σ (Subscript[h1i, 0])+672 (q^2) (rm^4) (rp^3) (γ^2) σ (Subscript[h1i, 0])-960 (q^2) (rm^3) (rp^4) (γ^2) σ (Subscript[h1i, 0])+672 (q^2) (rm^2) (rp^5) (γ^2) σ (Subscript[h1i, 0])-192 (q^2) rm (rp^6) (γ^2) σ (Subscript[h1i, 0])+128 q (rm^4) (rp^2) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 0])-448 q (rm^3) (rp^3) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 0])+640 q (rm^2) (rp^4) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 0])-448 q rm (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 0])+128 q (rp^6) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 0])-32 (rm^4) (rp^3) (γ^4) σ (Subscript[h1i, 0])+112 (rm^3) (rp^4) (γ^4) σ (Subscript[h1i, 0])-160 (rm^2) (rp^5) (γ^4) σ (Subscript[h1i, 0])+112 rm (rp^6) (γ^4) σ (Subscript[h1i, 0])-32 (rp^7) (γ^4) σ (Subscript[h1i, 0])-32 (q^4) (rm^6) rp Λ σ (Subscript[h1i, 0])+96 (q^4) (rm^5) (rp^2) Λ σ (Subscript[h1i, 0])-112 (q^4) (rm^4) (rp^3) Λ σ (Subscript[h1i, 0])+64 (q^4) (rm^3) (rp^4) Λ σ (Subscript[h1i, 0])-16 (q^4) (rm^2) (rp^5) Λ σ (Subscript[h1i, 0])+128 (q^3) (rm^5) rp (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])-384 (q^3) (rm^4) (rp^2) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])+448 (q^3) (rm^3) (rp^3) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])-256 (q^3) (rm^2) (rp^4) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])+64 (q^3) rm (rp^5) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 0])-192 (q^2) (rm^5) (rp^2) (γ^2) Λ σ (Subscript[h1i, 0])+576 (q^2) (rm^4) (rp^3) (γ^2) Λ σ (Subscript[h1i, 0])-672 (q^2) (rm^3) (rp^4) (γ^2) Λ σ (Subscript[h1i, 0])+384 (q^2) (rm^2) (rp^5) (γ^2) Λ σ (Subscript[h1i, 0])-96 (q^2) rm (rp^6) (γ^2) Λ σ (Subscript[h1i, 0])+128 q (rm^4) (rp^2) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 0])-384 q (rm^3) (rp^3) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 0])+448 q (rm^2) (rp^4) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 0])-256 q rm (rp^5) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 0])+64 q (rp^6) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 0])-32 (rm^4) (rp^3) (γ^4) Λ σ (Subscript[h1i, 0])+96 (rm^3) (rp^4) (γ^4) Λ σ (Subscript[h1i, 0])-112 (rm^2) (rp^5) (γ^4) Λ σ (Subscript[h1i, 0])+64 rm (rp^6) (γ^4) Λ σ (Subscript[h1i, 0])-16 (rp^7) (γ^4) Λ σ (Subscript[h1i, 0])-16 (q^4) (rm^5) (rp^2) (Λ^2) σ (Subscript[h1i, 0])+48 (q^4) (rm^4) (rp^3) (Λ^2) σ (Subscript[h1i, 0])-48 (q^4) (rm^3) (rp^4) (Λ^2) σ (Subscript[h1i, 0])+16 (q^4) (rm^2) (rp^5) (Λ^2) σ (Subscript[h1i, 0])+64 (q^3) (rm^4) (rp^2) (Sqrt[rm rp]) γ (Λ^2) σ (Subscript[h1i, 0])-192 (q^3) (rm^3) (rp^3) (Sqrt[rm rp]) γ (Λ^2) σ (Subscript[h1i, 0])+192 (q^3) (rm^2) (rp^4) (Sqrt[rm rp]) γ (Λ^2) σ (Subscript[h1i, 0])-64 (q^3) rm (rp^5) (Sqrt[rm rp]) γ (Λ^2) σ (Subscript[h1i, 0])-96 (q^2) (rm^4) (rp^3) (γ^2) (Λ^2) σ (Subscript[h1i, 0])+288 (q^2) (rm^3) (rp^4) (γ^2) (Λ^2) σ (Subscript[h1i, 0])-288 (q^2) (rm^2) (rp^5) (γ^2) (Λ^2) σ (Subscript[h1i, 0])+96 (q^2) rm (rp^6) (γ^2) (Λ^2) σ (Subscript[h1i, 0])+64 q (rm^3) (rp^3) (Sqrt[rm rp]) (γ^3) (Λ^2) σ (Subscript[h1i, 0])-192 q (rm^2) (rp^4) (Sqrt[rm rp]) (γ^3) (Λ^2) σ (Subscript[h1i, 0])+192 q rm (rp^5) (Sqrt[rm rp]) (γ^3) (Λ^2) σ (Subscript[h1i, 0])-64 q (rp^6) (Sqrt[rm rp]) (γ^3) (Λ^2) σ (Subscript[h1i, 0])-16 (rm^3) (rp^4) (γ^4) (Λ^2) σ (Subscript[h1i, 0])+48 (rm^2) (rp^5) (γ^4) (Λ^2) σ (Subscript[h1i, 0])-48 rm (rp^6) (γ^4) (Λ^2) σ (Subscript[h1i, 0])+16 (rp^7) (γ^4) (Λ^2) σ (Subscript[h1i, 0])+6 I (rm^5) (rp^3) (σ^2) (Subscript[h1i, 0])-16 I (q^2) (rm^5) (rp^3) (σ^2) (Subscript[h1i, 0])-48 I (q^4) (rm^5) (rp^3) (σ^2) (Subscript[h1i, 0])-30 I (rm^4) (rp^4) (σ^2) (Subscript[h1i, 0])+64 I (q^2) (rm^4) (rp^4) (σ^2) (Subscript[h1i, 0])+176 I (q^4) (rm^4) (rp^4) (σ^2) (Subscript[h1i, 0])+60 I (rm^3) (rp^5) (σ^2) (Subscript[h1i, 0])-96 I (q^2) (rm^3) (rp^5) (σ^2) (Subscript[h1i, 0])-200 I (q^4) (rm^3) (rp^5) (σ^2) (Subscript[h1i, 0])-60 I (rm^2) (rp^6) (σ^2) (Subscript[h1i, 0])+64 I (q^2) (rm^2) (rp^6) (σ^2) (Subscript[h1i, 0])+72 I (q^4) (rm^2) (rp^6) (σ^2) (Subscript[h1i, 0])+30 I rm (rp^7) (σ^2) (Subscript[h1i, 0])-16 I (q^2) rm (rp^7) (σ^2) (Subscript[h1i, 0])-6 I (rp^8) (σ^2) (Subscript[h1i, 0])+16 I q (rm^4) (rp^3) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])+192 I (q^3) (rm^4) (rp^3) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])-64 I q (rm^3) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])-704 I (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])+96 I q (rm^2) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])+800 I (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])-64 I q rm (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])-288 I (q^3) rm (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])+16 I q (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 0])-288 I (q^2) (rm^4) (rp^4) (γ^2) (σ^2) (Subscript[h1i, 0])+1056 I (q^2) (rm^3) (rp^5) (γ^2) (σ^2) (Subscript[h1i, 0])-1200 I (q^2) (rm^2) (rp^6) (γ^2) (σ^2) (Subscript[h1i, 0])+432 I (q^2) rm (rp^7) (γ^2) (σ^2) (Subscript[h1i, 0])+192 I q (rm^3) (rp^4) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h1i, 0])-704 I q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h1i, 0])+800 I q rm (rp^6) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h1i, 0])-288 I q (rp^7) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h1i, 0])-48 I (rm^3) (rp^5) (γ^4) (σ^2) (Subscript[h1i, 0])+176 I (rm^2) (rp^6) (γ^4) (σ^2) (Subscript[h1i, 0])-200 I rm (rp^7) (γ^4) (σ^2) (Subscript[h1i, 0])+72 I (rp^8) (γ^4) (σ^2) (Subscript[h1i, 0])+6 I (rm^5) (rp^3) Λ (σ^2) (Subscript[h1i, 0])-16 I (q^2) (rm^5) (rp^3) Λ (σ^2) (Subscript[h1i, 0])-48 I (q^4) (rm^5) (rp^3) Λ (σ^2) (Subscript[h1i, 0])-30 I (rm^4) (rp^4) Λ (σ^2) (Subscript[h1i, 0])+64 I (q^2) (rm^4) (rp^4) Λ (σ^2) (Subscript[h1i, 0])+176 I (q^4) (rm^4) (rp^4) Λ (σ^2) (Subscript[h1i, 0])+60 I (rm^3) (rp^5) Λ (σ^2) (Subscript[h1i, 0])-96 I (q^2) (rm^3) (rp^5) Λ (σ^2) (Subscript[h1i, 0])-200 I (q^4) (rm^3) (rp^5) Λ (σ^2) (Subscript[h1i, 0])-60 I (rm^2) (rp^6) Λ (σ^2) (Subscript[h1i, 0])+64 I (q^2) (rm^2) (rp^6) Λ (σ^2) (Subscript[h1i, 0])+72 I (q^4) (rm^2) (rp^6) Λ (σ^2) (Subscript[h1i, 0])+30 I rm (rp^7) Λ (σ^2) (Subscript[h1i, 0])-16 I (q^2) rm (rp^7) Λ (σ^2) (Subscript[h1i, 0])-6 I (rp^8) Λ (σ^2) (Subscript[h1i, 0])+16 I q (rm^4) (rp^3) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 0])+192 I (q^3) (rm^4) (rp^3) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 0])-64 I q (rm^3) (rp^4) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 0])-704 I (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 0])+96 I q (rm^2) (rp^5) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 0])+800 I (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 0])-64 I q rm (rp^6) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 0])-288 I (q^3) rm (rp^6) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 0])+16 I q (rp^7) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 0])-288 I (q^2) (rm^4) (rp^4) (γ^2) Λ (σ^2) (Subscript[h1i, 0])+1056 I (q^2) (rm^3) (rp^5) (γ^2) Λ (σ^2) (Subscript[h1i, 0])-1200 I (q^2) (rm^2) (rp^6) (γ^2) Λ (σ^2) (Subscript[h1i, 0])+432 I (q^2) rm (rp^7) (γ^2) Λ (σ^2) (Subscript[h1i, 0])+192 I q (rm^3) (rp^4) (Sqrt[rm rp]) (γ^3) Λ (σ^2) (Subscript[h1i, 0])-704 I q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) Λ (σ^2) (Subscript[h1i, 0])+800 I q rm (rp^6) (Sqrt[rm rp]) (γ^3) Λ (σ^2) (Subscript[h1i, 0])-288 I q (rp^7) (Sqrt[rm rp]) (γ^3) Λ (σ^2) (Subscript[h1i, 0])-48 I (rm^3) (rp^5) (γ^4) Λ (σ^2) (Subscript[h1i, 0])+176 I (rm^2) (rp^6) (γ^4) Λ (σ^2) (Subscript[h1i, 0])-200 I rm (rp^7) (γ^4) Λ (σ^2) (Subscript[h1i, 0])+72 I (rp^8) (γ^4) Λ (σ^2) (Subscript[h1i, 0])-3 (rm^4) (rp^5) (σ^3) (Subscript[h1i, 0])+8 (q^2) (rm^4) (rp^5) (σ^3) (Subscript[h1i, 0])-32 (q^4) (rm^4) (rp^5) (σ^3) (Subscript[h1i, 0])+12 (rm^3) (rp^6) (σ^3) (Subscript[h1i, 0])-24 (q^2) (rm^3) (rp^6) (σ^3) (Subscript[h1i, 0])+40 (q^4) (rm^3) (rp^6) (σ^3) (Subscript[h1i, 0])-18 (rm^2) (rp^7) (σ^3) (Subscript[h1i, 0])+24 (q^2) (rm^2) (rp^7) (σ^3) (Subscript[h1i, 0])-8 (q^4) (rm^2) (rp^7) (σ^3) (Subscript[h1i, 0])+12 rm (rp^8) (σ^3) (Subscript[h1i, 0])-8 (q^2) rm (rp^8) (σ^3) (Subscript[h1i, 0])-3 (rp^9) (σ^3) (Subscript[h1i, 0])-8 q (rm^3) (rp^5) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 0])+128 (q^3) (rm^3) (rp^5) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 0])+24 q (rm^2) (rp^6) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 0])-160 (q^3) (rm^2) (rp^6) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 0])-24 q rm (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 0])+32 (q^3) rm (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 0])+8 q (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 0])-192 (q^2) (rm^3) (rp^6) (γ^2) (σ^3) (Subscript[h1i, 0])+240 (q^2) (rm^2) (rp^7) (γ^2) (σ^3) (Subscript[h1i, 0])-48 (q^2) rm (rp^8) (γ^2) (σ^3) (Subscript[h1i, 0])+128 q (rm^2) (rp^6) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[h1i, 0])-160 q rm (rp^7) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[h1i, 0])+32 q (rp^8) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[h1i, 0])-32 (rm^2) (rp^7) (γ^4) (σ^3) (Subscript[h1i, 0])+40 rm (rp^8) (γ^4) (σ^3) (Subscript[h1i, 0])-8 (rp^9) (γ^4) (σ^3) (Subscript[h1i, 0])-3 (rm^4) (rp^5) Λ (σ^3) (Subscript[h1i, 0])+8 (q^2) (rm^4) (rp^5) Λ (σ^3) (Subscript[h1i, 0])+12 (rm^3) (rp^6) Λ (σ^3) (Subscript[h1i, 0])-24 (q^2) (rm^3) (rp^6) Λ (σ^3) (Subscript[h1i, 0])-18 (rm^2) (rp^7) Λ (σ^3) (Subscript[h1i, 0])+24 (q^2) (rm^2) (rp^7) Λ (σ^3) (Subscript[h1i, 0])+12 rm (rp^8) Λ (σ^3) (Subscript[h1i, 0])-8 (q^2) rm (rp^8) Λ (σ^3) (Subscript[h1i, 0])-3 (rp^9) Λ (σ^3) (Subscript[h1i, 0])-8 q (rm^3) (rp^5) (Sqrt[rm rp]) γ Λ (σ^3) (Subscript[h1i, 0])+24 q (rm^2) (rp^6) (Sqrt[rm rp]) γ Λ (σ^3) (Subscript[h1i, 0])-24 q rm (rp^7) (Sqrt[rm rp]) γ Λ (σ^3) (Subscript[h1i, 0])+8 q (rp^8) (Sqrt[rm rp]) γ Λ (σ^3) (Subscript[h1i, 0])+3 I (rm^4) (rp^6) (σ^4) (Subscript[h1i, 0])-8 I (q^2) (rm^4) (rp^6) (σ^4) (Subscript[h1i, 0])-12 I (rm^3) (rp^7) (σ^4) (Subscript[h1i, 0])+24 I (q^2) (rm^3) (rp^7) (σ^4) (Subscript[h1i, 0])+18 I (rm^2) (rp^8) (σ^4) (Subscript[h1i, 0])-24 I (q^2) (rm^2) (rp^8) (σ^4) (Subscript[h1i, 0])-12 I rm (rp^9) (σ^4) (Subscript[h1i, 0])+8 I (q^2) rm (rp^9) (σ^4) (Subscript[h1i, 0])+3 I (rp^10) (σ^4) (Subscript[h1i, 0])+8 I q (rm^3) (rp^6) (Sqrt[rm rp]) γ (σ^4) (Subscript[h1i, 0])-24 I q (rm^2) (rp^7) (Sqrt[rm rp]) γ (σ^4) (Subscript[h1i, 0])+24 I q rm (rp^8) (Sqrt[rm rp]) γ (σ^4) (Subscript[h1i, 0])-8 I q (rp^9) (Sqrt[rm rp]) γ (σ^4) (Subscript[h1i, 0])+16 (q^4) (rm^6) (rp^2) σ (Subscript[h1i, 1])-72 (q^4) (rm^5) (rp^3) σ (Subscript[h1i, 1])+120 (q^4) (rm^4) (rp^4) σ (Subscript[h1i, 1])-88 (q^4) (rm^3) (rp^5) σ (Subscript[h1i, 1])+24 (q^4) (rm^2) (rp^6) σ (Subscript[h1i, 1])-64 (q^3) (rm^5) (rp^2) (Sqrt[rm rp]) γ σ (Subscript[h1i, 1])+288 (q^3) (rm^4) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[h1i, 1])-480 (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[h1i, 1])+352 (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ σ (Subscript[h1i, 1])-96 (q^3) rm (rp^6) (Sqrt[rm rp]) γ σ (Subscript[h1i, 1])+96 (q^2) (rm^5) (rp^3) (γ^2) σ (Subscript[h1i, 1])-432 (q^2) (rm^4) (rp^4) (γ^2) σ (Subscript[h1i, 1])+720 (q^2) (rm^3) (rp^5) (γ^2) σ (Subscript[h1i, 1])-528 (q^2) (rm^2) (rp^6) (γ^2) σ (Subscript[h1i, 1])+144 (q^2) rm (rp^7) (γ^2) σ (Subscript[h1i, 1])-64 q (rm^4) (rp^3) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 1])+288 q (rm^3) (rp^4) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 1])-480 q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 1])+352 q rm (rp^6) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 1])-96 q (rp^7) (Sqrt[rm rp]) (γ^3) σ (Subscript[h1i, 1])+16 (rm^4) (rp^4) (γ^4) σ (Subscript[h1i, 1])-72 (rm^3) (rp^5) (γ^4) σ (Subscript[h1i, 1])+120 (rm^2) (rp^6) (γ^4) σ (Subscript[h1i, 1])-88 rm (rp^7) (γ^4) σ (Subscript[h1i, 1])+24 (rp^8) (γ^4) σ (Subscript[h1i, 1])+16 (q^4) (rm^6) (rp^2) Λ σ (Subscript[h1i, 1])-64 (q^4) (rm^5) (rp^3) Λ σ (Subscript[h1i, 1])+96 (q^4) (rm^4) (rp^4) Λ σ (Subscript[h1i, 1])-64 (q^4) (rm^3) (rp^5) Λ σ (Subscript[h1i, 1])+16 (q^4) (rm^2) (rp^6) Λ σ (Subscript[h1i, 1])-64 (q^3) (rm^5) (rp^2) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 1])+256 (q^3) (rm^4) (rp^3) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 1])-384 (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 1])+256 (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 1])-64 (q^3) rm (rp^6) (Sqrt[rm rp]) γ Λ σ (Subscript[h1i, 1])+96 (q^2) (rm^5) (rp^3) (γ^2) Λ σ (Subscript[h1i, 1])-384 (q^2) (rm^4) (rp^4) (γ^2) Λ σ (Subscript[h1i, 1])+576 (q^2) (rm^3) (rp^5) (γ^2) Λ σ (Subscript[h1i, 1])-384 (q^2) (rm^2) (rp^6) (γ^2) Λ σ (Subscript[h1i, 1])+96 (q^2) rm (rp^7) (γ^2) Λ σ (Subscript[h1i, 1])-64 q (rm^4) (rp^3) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 1])+256 q (rm^3) (rp^4) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 1])-384 q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 1])+256 q rm (rp^6) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 1])-64 q (rp^7) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[h1i, 1])+16 (rm^4) (rp^4) (γ^4) Λ σ (Subscript[h1i, 1])-64 (rm^3) (rp^5) (γ^4) Λ σ (Subscript[h1i, 1])+96 (rm^2) (rp^6) (γ^4) Λ σ (Subscript[h1i, 1])-64 rm (rp^7) (γ^4) Λ σ (Subscript[h1i, 1])+16 (rp^8) (γ^4) Λ σ (Subscript[h1i, 1])+8 (q^4) (rm^5) (rp^3) (Λ^2) σ (Subscript[h1i, 1])-24 (q^4) (rm^4) (rp^4) (Λ^2) σ (Subscript[h1i, 1])+24 (q^4) (rm^3) (rp^5) (Λ^2) σ (Subscript[h1i, 1])-8 (q^4) (rm^2) (rp^6) (Λ^2) σ (Subscript[h1i, 1])-32 (q^3) (rm^4) (rp^3) (Sqrt[rm rp]) γ (Λ^2) σ (Subscript[h1i, 1])+96 (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ (Λ^2) σ (Subscript[h1i, 1])-96 (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ (Λ^2) σ (Subscript[h1i, 1])+32 (q^3) rm (rp^6) (Sqrt[rm rp]) γ (Λ^2) σ (Subscript[h1i, 1])+48 (q^2) (rm^4) (rp^4) (γ^2) (Λ^2) σ (Subscript[h1i, 1])-144 (q^2) (rm^3) (rp^5) (γ^2) (Λ^2) σ (Subscript[h1i, 1])+144 (q^2) (rm^2) (rp^6) (γ^2) (Λ^2) σ (Subscript[h1i, 1])-48 (q^2) rm (rp^7) (γ^2) (Λ^2) σ (Subscript[h1i, 1])-32 q (rm^3) (rp^4) (Sqrt[rm rp]) (γ^3) (Λ^2) σ (Subscript[h1i, 1])+96 q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) (Λ^2) σ (Subscript[h1i, 1])-96 q rm (rp^6) (Sqrt[rm rp]) (γ^3) (Λ^2) σ (Subscript[h1i, 1])+32 q (rp^7) (Sqrt[rm rp]) (γ^3) (Λ^2) σ (Subscript[h1i, 1])+8 (rm^3) (rp^5) (γ^4) (Λ^2) σ (Subscript[h1i, 1])-24 (rm^2) (rp^6) (γ^4) (Λ^2) σ (Subscript[h1i, 1])+24 rm (rp^7) (γ^4) (Λ^2) σ (Subscript[h1i, 1])-8 (rp^8) (γ^4) (Λ^2) σ (Subscript[h1i, 1])-8 I (q^2) (rm^5) (rp^4) (σ^2) (Subscript[h1i, 1])+72 I (q^4) (rm^5) (rp^4) (σ^2) (Subscript[h1i, 1])+32 I (q^2) (rm^4) (rp^5) (σ^2) (Subscript[h1i, 1])-208 I (q^4) (rm^4) (rp^5) (σ^2) (Subscript[h1i, 1])-48 I (q^2) (rm^3) (rp^6) (σ^2) (Subscript[h1i, 1])+200 I (q^4) (rm^3) (rp^6) (σ^2) (Subscript[h1i, 1])+32 I (q^2) (rm^2) (rp^7) (σ^2) (Subscript[h1i, 1])-64 I (q^4) (rm^2) (rp^7) (σ^2) (Subscript[h1i, 1])-8 I (q^2) rm (rp^8) (σ^2) (Subscript[h1i, 1])+16 I q (rm^4) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 1])-288 I (q^3) (rm^4) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 1])-64 I q (rm^3) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 1])+832 I (q^3) (rm^3) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 1])+96 I q (rm^2) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 1])-800 I (q^3) (rm^2) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 1])-64 I q rm (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 1])+256 I (q^3) rm (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 1])+16 I q (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[h1i, 1])-8 I (rm^4) (rp^5) (γ^2) (σ^2) (Subscript[h1i, 1])+432 I (q^2) (rm^4) (rp^5) (γ^2) (σ^2) (Subscript[h1i, 1])+32 I (rm^3) (rp^6) (γ^2) (σ^2) (Subscript[h1i, 1])-1248 I (q^2) (rm^3) (rp^6) (γ^2) (σ^2) (Subscript[h1i, 1])-48 I (rm^2) (rp^7) (γ^2) (σ^2) (Subscript[h1i, 1])+1200 I (q^2) (rm^2) (rp^7) (γ^2) (σ^2) (Subscript[h1i, 1])+32 I rm (rp^8) (γ^2) (σ^2) (Subscript[h1i, 1])-384 I (q^2) rm (rp^8) (γ^2) (σ^2) (Subscript[h1i, 1])-8 I (rp^9) (γ^2) (σ^2) (Subscript[h1i, 1])-288 I q (rm^3) (rp^5) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h1i, 1])+832 I q (rm^2) (rp^6) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h1i, 1])-800 I q rm (rp^7) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h1i, 1])+256 I q (rp^8) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[h1i, 1])+72 I (rm^3) (rp^6) (γ^4) (σ^2) (Subscript[h1i, 1])-208 I (rm^2) (rp^7) (γ^4) (σ^2) (Subscript[h1i, 1])+200 I rm (rp^8) (γ^4) (σ^2) (Subscript[h1i, 1])-64 I (rp^9) (γ^4) (σ^2) (Subscript[h1i, 1])-8 I (q^2) (rm^5) (rp^4) Λ (σ^2) (Subscript[h1i, 1])+72 I (q^4) (rm^5) (rp^4) Λ (σ^2) (Subscript[h1i, 1])+32 I (q^2) (rm^4) (rp^5) Λ (σ^2) (Subscript[h1i, 1])-208 I (q^4) (rm^4) (rp^5) Λ (σ^2) (Subscript[h1i, 1])-48 I (q^2) (rm^3) (rp^6) Λ (σ^2) (Subscript[h1i, 1])+200 I (q^4) (rm^3) (rp^6) Λ (σ^2) (Subscript[h1i, 1])+32 I (q^2) (rm^2) (rp^7) Λ (σ^2) (Subscript[h1i, 1])-64 I (q^4) (rm^2) (rp^7) Λ (σ^2) (Subscript[h1i, 1])-8 I (q^2) rm (rp^8) Λ (σ^2) (Subscript[h1i, 1])+16 I q (rm^4) (rp^4) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 1])-288 I (q^3) (rm^4) (rp^4) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 1])-64 I q (rm^3) (rp^5) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 1])+832 I (q^3) (rm^3) (rp^5) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 1])+96 I q (rm^2) (rp^6) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 1])-800 I (q^3) (rm^2) (rp^6) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 1])-64 I q rm (rp^7) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 1])+256 I (q^3) rm (rp^7) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 1])+16 I q (rp^8) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[h1i, 1])-8 I (rm^4) (rp^5) (γ^2) Λ (σ^2) (Subscript[h1i, 1])+432 I (q^2) (rm^4) (rp^5) (γ^2) Λ (σ^2) (Subscript[h1i, 1])+32 I (rm^3) (rp^6) (γ^2) Λ (σ^2) (Subscript[h1i, 1])-1248 I (q^2) (rm^3) (rp^6) (γ^2) Λ (σ^2) (Subscript[h1i, 1])-48 I (rm^2) (rp^7) (γ^2) Λ (σ^2) (Subscript[h1i, 1])+1200 I (q^2) (rm^2) (rp^7) (γ^2) Λ (σ^2) (Subscript[h1i, 1])+32 I rm (rp^8) (γ^2) Λ (σ^2) (Subscript[h1i, 1])-384 I (q^2) rm (rp^8) (γ^2) Λ (σ^2) (Subscript[h1i, 1])-8 I (rp^9) (γ^2) Λ (σ^2) (Subscript[h1i, 1])-288 I q (rm^3) (rp^5) (Sqrt[rm rp]) (γ^3) Λ (σ^2) (Subscript[h1i, 1])+832 I q (rm^2) (rp^6) (Sqrt[rm rp]) (γ^3) Λ (σ^2) (Subscript[h1i, 1])-800 I q rm (rp^7) (Sqrt[rm rp]) (γ^3) Λ (σ^2) (Subscript[h1i, 1])+256 I q (rp^8) (Sqrt[rm rp]) (γ^3) Λ (σ^2) (Subscript[h1i, 1])+72 I (rm^3) (rp^6) (γ^4) Λ (σ^2) (Subscript[h1i, 1])-208 I (rm^2) (rp^7) (γ^4) Λ (σ^2) (Subscript[h1i, 1])+200 I rm (rp^8) (γ^4) Λ (σ^2) (Subscript[h1i, 1])-64 I (rp^9) (γ^4) Λ (σ^2) (Subscript[h1i, 1])-48 (q^4) (rm^5) (rp^5) (σ^3) (Subscript[h1i, 1])+4 (q^2) (rm^4) (rp^6) (σ^3) (Subscript[h1i, 1])+120 (q^4) (rm^4) (rp^6) (σ^3) (Subscript[h1i, 1])-12 (q^2) (rm^3) (rp^7) (σ^3) (Subscript[h1i, 1])-96 (q^4) (rm^3) (rp^7) (σ^3) (Subscript[h1i, 1])+12 (q^2) (rm^2) (rp^8) (σ^3) (Subscript[h1i, 1])+24 (q^4) (rm^2) (rp^8) (σ^3) (Subscript[h1i, 1])-4 (q^2) rm (rp^9) (σ^3) (Subscript[h1i, 1])+192 (q^3) (rm^4) (rp^5) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 1])-8 q (rm^3) (rp^6) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 1])-480 (q^3) (rm^3) (rp^6) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 1])+24 q (rm^2) (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 1])+384 (q^3) (rm^2) (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 1])-24 q rm (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 1])-96 (q^3) rm (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 1])+8 q (rp^9) (Sqrt[rm rp]) γ (σ^3) (Subscript[h1i, 1])-288 (q^2) (rm^4) (rp^6) (γ^2) (σ^3) (Subscript[h1i, 1])+4 (rm^3) (rp^7) (γ^2) (σ^3) (Subscript[h1i, 1])+720 (q^2) (rm^3) (rp^7) (γ^2) (σ^3) (Subscript[h1i, 1])-12 (rm^2) (rp^8) (γ^2) (σ^3) (Subscript[h1i, 1])-576 (q^2) (rm^2) (rp^8) (γ^2) (σ^3) (Subscript[h1i, 1])+12 rm (rp^9) (γ^2) (σ^3) (Subscript[h1i, 1])+144 (q^2) rm (rp^9) (γ^2) (σ^3) (Subscript[h1i, 1])-4 (rp^10) (γ^2) (σ^3) (Subscript[h1i, 1])+192 q (rm^3) (rp^6) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[h1i, 1])-480 q (rm^2) (rp^7) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[h1i, 1])+384 q rm (rp^8) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[h1i, 1])-96 q (rp^9) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[h1i, 1])-48 (rm^3) (rp^7) (γ^4) (σ^3) (Subscript[h1i, 1])+120 (rm^2) (rp^8) (γ^4) (σ^3) (Subscript[h1i, 1])-96 rm (rp^9) (γ^4) (σ^3) (Subscript[h1i, 1])+24 (rp^10) (γ^4) (σ^3) (Subscript[h1i, 1])+4 (q^2) (rm^4) (rp^6) Λ (σ^3) (Subscript[h1i, 1])-12 (q^2) (rm^3) (rp^7) Λ (σ^3) (Subscript[h1i, 1])+12 (q^2) (rm^2) (rp^8) Λ (σ^3) (Subscript[h1i, 1])-4 (q^2) rm (rp^9) Λ (σ^3) (Subscript[h1i, 1])-8 q (rm^3) (rp^6) (Sqrt[rm rp]) γ Λ (σ^3) (Subscript[h1i, 1])+24 q (rm^2) (rp^7) (Sqrt[rm rp]) γ Λ (σ^3) (Subscript[h1i, 1])-24 q rm (rp^8) (Sqrt[rm rp]) γ Λ (σ^3) (Subscript[h1i, 1])+8 q (rp^9) (Sqrt[rm rp]) γ Λ (σ^3) (Subscript[h1i, 1])+4 (rm^3) (rp^7) (γ^2) Λ (σ^3) (Subscript[h1i, 1])-12 (rm^2) (rp^8) (γ^2) Λ (σ^3) (Subscript[h1i, 1])+12 rm (rp^9) (γ^2) Λ (σ^3) (Subscript[h1i, 1])-4 (rp^10) (γ^2) Λ (σ^3) (Subscript[h1i, 1])-4 I (q^2) (rm^4) (rp^7) (σ^4) (Subscript[h1i, 1])+12 I (q^2) (rm^3) (rp^8) (σ^4) (Subscript[h1i, 1])-12 I (q^2) (rm^2) (rp^9) (σ^4) (Subscript[h1i, 1])+4 I (q^2) rm (rp^10) (σ^4) (Subscript[h1i, 1])+8 I q (rm^3) (rp^7) (Sqrt[rm rp]) γ (σ^4) (Subscript[h1i, 1])-24 I q (rm^2) (rp^8) (Sqrt[rm rp]) γ (σ^4) (Subscript[h1i, 1])+24 I q rm (rp^9) (Sqrt[rm rp]) γ (σ^4) (Subscript[h1i, 1])-8 I q (rp^10) (Sqrt[rm rp]) γ (σ^4) (Subscript[h1i, 1])-4 I (rm^3) (rp^8) (γ^2) (σ^4) (Subscript[h1i, 1])+12 I (rm^2) (rp^9) (γ^2) (σ^4) (Subscript[h1i, 1])-12 I rm (rp^10) (γ^2) (σ^4) (Subscript[h1i, 1])+4 I (rp^11) (γ^2) (σ^4) (Subscript[h1i, 1])+32 (q^4) (rm^6) (rp^3) σ (Subscript[kpi, 0])-152 (q^4) (rm^5) (rp^4) σ (Subscript[kpi, 0])+236 (q^4) (rm^4) (rp^5) σ (Subscript[kpi, 0])-144 (q^4) (rm^3) (rp^6) σ (Subscript[kpi, 0])+28 (q^4) (rm^2) (rp^7) σ (Subscript[kpi, 0])-128 (q^3) (rm^5) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])+608 (q^3) (rm^4) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])-944 (q^3) (rm^3) (rp^5) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])+576 (q^3) (rm^2) (rp^6) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])-112 (q^3) rm (rp^7) (Sqrt[rm rp]) γ σ (Subscript[kpi, 0])+192 (q^2) (rm^5) (rp^4) (γ^2) σ (Subscript[kpi, 0])-912 (q^2) (rm^4) (rp^5) (γ^2) σ (Subscript[kpi, 0])+1416 (q^2) (rm^3) (rp^6) (γ^2) σ (Subscript[kpi, 0])-864 (q^2) (rm^2) (rp^7) (γ^2) σ (Subscript[kpi, 0])+168 (q^2) rm (rp^8) (γ^2) σ (Subscript[kpi, 0])-128 q (rm^4) (rp^4) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 0])+608 q (rm^3) (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 0])-944 q (rm^2) (rp^6) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 0])+576 q rm (rp^7) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 0])-112 q (rp^8) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 0])+32 (rm^4) (rp^5) (γ^4) σ (Subscript[kpi, 0])-152 (rm^3) (rp^6) (γ^4) σ (Subscript[kpi, 0])+236 (rm^2) (rp^7) (γ^4) σ (Subscript[kpi, 0])-144 rm (rp^8) (γ^4) σ (Subscript[kpi, 0])+28 (rp^9) (γ^4) σ (Subscript[kpi, 0])-16 (q^4) (rm^5) (rp^4) Λ σ (Subscript[kpi, 0])+36 (q^4) (rm^4) (rp^5) Λ σ (Subscript[kpi, 0])-24 (q^4) (rm^3) (rp^6) Λ σ (Subscript[kpi, 0])+4 (q^4) (rm^2) (rp^7) Λ σ (Subscript[kpi, 0])+64 (q^3) (rm^4) (rp^4) (Sqrt[rm rp]) γ Λ σ (Subscript[kpi, 0])-144 (q^3) (rm^3) (rp^5) (Sqrt[rm rp]) γ Λ σ (Subscript[kpi, 0])+96 (q^3) (rm^2) (rp^6) (Sqrt[rm rp]) γ Λ σ (Subscript[kpi, 0])-16 (q^3) rm (rp^7) (Sqrt[rm rp]) γ Λ σ (Subscript[kpi, 0])-96 (q^2) (rm^4) (rp^5) (γ^2) Λ σ (Subscript[kpi, 0])+216 (q^2) (rm^3) (rp^6) (γ^2) Λ σ (Subscript[kpi, 0])-144 (q^2) (rm^2) (rp^7) (γ^2) Λ σ (Subscript[kpi, 0])+24 (q^2) rm (rp^8) (γ^2) Λ σ (Subscript[kpi, 0])+64 q (rm^3) (rp^5) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[kpi, 0])-144 q (rm^2) (rp^6) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[kpi, 0])+96 q rm (rp^7) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[kpi, 0])-16 q (rp^8) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[kpi, 0])-16 (rm^3) (rp^6) (γ^4) Λ σ (Subscript[kpi, 0])+36 (rm^2) (rp^7) (γ^4) Λ σ (Subscript[kpi, 0])-24 rm (rp^8) (γ^4) Λ σ (Subscript[kpi, 0])+4 (rp^9) (γ^4) Λ σ (Subscript[kpi, 0])-12 I (rm^5) (rp^5) (σ^2) (Subscript[kpi, 0])+32 I (q^2) (rm^5) (rp^5) (σ^2) (Subscript[kpi, 0])+16 I (q^4) (rm^5) (rp^5) (σ^2) (Subscript[kpi, 0])+60 I (rm^4) (rp^6) (σ^2) (Subscript[kpi, 0])-128 I (q^2) (rm^4) (rp^6) (σ^2) (Subscript[kpi, 0])-132 I (q^4) (rm^4) (rp^6) (σ^2) (Subscript[kpi, 0])-120 I (rm^3) (rp^7) (σ^2) (Subscript[kpi, 0])+192 I (q^2) (rm^3) (rp^7) (σ^2) (Subscript[kpi, 0])+160 I (q^4) (rm^3) (rp^7) (σ^2) (Subscript[kpi, 0])+120 I (rm^2) (rp^8) (σ^2) (Subscript[kpi, 0])-128 I (q^2) (rm^2) (rp^8) (σ^2) (Subscript[kpi, 0])-44 I (q^4) (rm^2) (rp^8) (σ^2) (Subscript[kpi, 0])-60 I rm (rp^9) (σ^2) (Subscript[kpi, 0])+32 I (q^2) rm (rp^9) (σ^2) (Subscript[kpi, 0])+12 I (rp^10) (σ^2) (Subscript[kpi, 0])-32 I q (rm^4) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 0])-64 I (q^3) (rm^4) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 0])+128 I q (rm^3) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 0])+528 I (q^3) (rm^3) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 0])-192 I q (rm^2) (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 0])-640 I (q^3) (rm^2) (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 0])+128 I q rm (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 0])+176 I (q^3) rm (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 0])-32 I q (rp^9) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 0])+96 I (q^2) (rm^4) (rp^6) (γ^2) (σ^2) (Subscript[kpi, 0])-792 I (q^2) (rm^3) (rp^7) (γ^2) (σ^2) (Subscript[kpi, 0])+960 I (q^2) (rm^2) (rp^8) (γ^2) (σ^2) (Subscript[kpi, 0])-264 I (q^2) rm (rp^9) (γ^2) (σ^2) (Subscript[kpi, 0])-64 I q (rm^3) (rp^6) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[kpi, 0])+528 I q (rm^2) (rp^7) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[kpi, 0])-640 I q rm (rp^8) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[kpi, 0])+176 I q (rp^9) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[kpi, 0])+16 I (rm^3) (rp^7) (γ^4) (σ^2) (Subscript[kpi, 0])-132 I (rm^2) (rp^8) (γ^4) (σ^2) (Subscript[kpi, 0])+160 I rm (rp^9) (γ^4) (σ^2) (Subscript[kpi, 0])-44 I (rp^10) (γ^4) (σ^2) (Subscript[kpi, 0])-16 I (q^4) (rm^4) (rp^6) Λ (σ^2) (Subscript[kpi, 0])+24 I (q^4) (rm^3) (rp^7) Λ (σ^2) (Subscript[kpi, 0])-8 I (q^4) (rm^2) (rp^8) Λ (σ^2) (Subscript[kpi, 0])+64 I (q^3) (rm^3) (rp^6) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[kpi, 0])-96 I (q^3) (rm^2) (rp^7) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[kpi, 0])+32 I (q^3) rm (rp^8) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[kpi, 0])-96 I (q^2) (rm^3) (rp^7) (γ^2) Λ (σ^2) (Subscript[kpi, 0])+144 I (q^2) (rm^2) (rp^8) (γ^2) Λ (σ^2) (Subscript[kpi, 0])-48 I (q^2) rm (rp^9) (γ^2) Λ (σ^2) (Subscript[kpi, 0])+64 I q (rm^2) (rp^7) (Sqrt[rm rp]) (γ^3) Λ (σ^2) (Subscript[kpi, 0])-96 I q rm (rp^8) (Sqrt[rm rp]) (γ^3) Λ (σ^2) (Subscript[kpi, 0])+32 I q (rp^9) (Sqrt[rm rp]) (γ^3) Λ (σ^2) (Subscript[kpi, 0])-16 I (rm^2) (rp^8) (γ^4) Λ (σ^2) (Subscript[kpi, 0])+24 I rm (rp^9) (γ^4) Λ (σ^2) (Subscript[kpi, 0])-8 I (rp^10) (γ^4) Λ (σ^2) (Subscript[kpi, 0])+12 (rm^4) (rp^7) (σ^3) (Subscript[kpi, 0])-32 (q^2) (rm^4) (rp^7) (σ^3) (Subscript[kpi, 0])+16 (q^4) (rm^4) (rp^7) (σ^3) (Subscript[kpi, 0])-48 (rm^3) (rp^8) (σ^3) (Subscript[kpi, 0])+96 (q^2) (rm^3) (rp^8) (σ^3) (Subscript[kpi, 0])+24 (q^4) (rm^3) (rp^8) (σ^3) (Subscript[kpi, 0])+72 (rm^2) (rp^9) (σ^3) (Subscript[kpi, 0])-96 (q^2) (rm^2) (rp^9) (σ^3) (Subscript[kpi, 0])-8 (q^4) (rm^2) (rp^9) (σ^3) (Subscript[kpi, 0])-48 rm (rp^10) (σ^3) (Subscript[kpi, 0])+32 (q^2) rm (rp^10) (σ^3) (Subscript[kpi, 0])+12 (rp^11) (σ^3) (Subscript[kpi, 0])+32 q (rm^3) (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 0])-64 (q^3) (rm^3) (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 0])-96 q (rm^2) (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 0])-96 (q^3) (rm^2) (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 0])+96 q rm (rp^9) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 0])+32 (q^3) rm (rp^9) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 0])-32 q (rp^10) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 0])+96 (q^2) (rm^3) (rp^8) (γ^2) (σ^3) (Subscript[kpi, 0])+144 (q^2) (rm^2) (rp^9) (γ^2) (σ^3) (Subscript[kpi, 0])-48 (q^2) rm (rp^10) (γ^2) (σ^3) (Subscript[kpi, 0])-64 q (rm^2) (rp^8) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[kpi, 0])-96 q rm (rp^9) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[kpi, 0])+32 q (rp^10) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[kpi, 0])+16 (rm^2) (rp^9) (γ^4) (σ^3) (Subscript[kpi, 0])+24 rm (rp^10) (γ^4) (σ^3) (Subscript[kpi, 0])-8 (rp^11) (γ^4) (σ^3) (Subscript[kpi, 0])-56 (q^4) (rm^6) (rp^4) σ (Subscript[kpi, 1])+188 (q^4) (rm^5) (rp^5) σ (Subscript[kpi, 1])-228 (q^4) (rm^4) (rp^6) σ (Subscript[kpi, 1])+116 (q^4) (rm^3) (rp^7) σ (Subscript[kpi, 1])-20 (q^4) (rm^2) (rp^8) σ (Subscript[kpi, 1])+224 (q^3) (rm^5) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[kpi, 1])-752 (q^3) (rm^4) (rp^5) (Sqrt[rm rp]) γ σ (Subscript[kpi, 1])+912 (q^3) (rm^3) (rp^6) (Sqrt[rm rp]) γ σ (Subscript[kpi, 1])-464 (q^3) (rm^2) (rp^7) (Sqrt[rm rp]) γ σ (Subscript[kpi, 1])+80 (q^3) rm (rp^8) (Sqrt[rm rp]) γ σ (Subscript[kpi, 1])-336 (q^2) (rm^5) (rp^5) (γ^2) σ (Subscript[kpi, 1])+1128 (q^2) (rm^4) (rp^6) (γ^2) σ (Subscript[kpi, 1])-1368 (q^2) (rm^3) (rp^7) (γ^2) σ (Subscript[kpi, 1])+696 (q^2) (rm^2) (rp^8) (γ^2) σ (Subscript[kpi, 1])-120 (q^2) rm (rp^9) (γ^2) σ (Subscript[kpi, 1])+224 q (rm^4) (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 1])-752 q (rm^3) (rp^6) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 1])+912 q (rm^2) (rp^7) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 1])-464 q rm (rp^8) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 1])+80 q (rp^9) (Sqrt[rm rp]) (γ^3) σ (Subscript[kpi, 1])-56 (rm^4) (rp^6) (γ^4) σ (Subscript[kpi, 1])+188 (rm^3) (rp^7) (γ^4) σ (Subscript[kpi, 1])-228 (rm^2) (rp^8) (γ^4) σ (Subscript[kpi, 1])+116 rm (rp^9) (γ^4) σ (Subscript[kpi, 1])-20 (rp^10) (γ^4) σ (Subscript[kpi, 1])-20 (q^4) (rm^5) (rp^5) Λ σ (Subscript[kpi, 1])+60 (q^4) (rm^4) (rp^6) Λ σ (Subscript[kpi, 1])-60 (q^4) (rm^3) (rp^7) Λ σ (Subscript[kpi, 1])+20 (q^4) (rm^2) (rp^8) Λ σ (Subscript[kpi, 1])+80 (q^3) (rm^4) (rp^5) (Sqrt[rm rp]) γ Λ σ (Subscript[kpi, 1])-240 (q^3) (rm^3) (rp^6) (Sqrt[rm rp]) γ Λ σ (Subscript[kpi, 1])+240 (q^3) (rm^2) (rp^7) (Sqrt[rm rp]) γ Λ σ (Subscript[kpi, 1])-80 (q^3) rm (rp^8) (Sqrt[rm rp]) γ Λ σ (Subscript[kpi, 1])-120 (q^2) (rm^4) (rp^6) (γ^2) Λ σ (Subscript[kpi, 1])+360 (q^2) (rm^3) (rp^7) (γ^2) Λ σ (Subscript[kpi, 1])-360 (q^2) (rm^2) (rp^8) (γ^2) Λ σ (Subscript[kpi, 1])+120 (q^2) rm (rp^9) (γ^2) Λ σ (Subscript[kpi, 1])+80 q (rm^3) (rp^6) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[kpi, 1])-240 q (rm^2) (rp^7) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[kpi, 1])+240 q rm (rp^8) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[kpi, 1])-80 q (rp^9) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[kpi, 1])-20 (rm^3) (rp^7) (γ^4) Λ σ (Subscript[kpi, 1])+60 (rm^2) (rp^8) (γ^4) Λ σ (Subscript[kpi, 1])-60 rm (rp^9) (γ^4) Λ σ (Subscript[kpi, 1])+20 (rp^10) (γ^4) Λ σ (Subscript[kpi, 1])+16 I (q^2) (rm^5) (rp^6) (σ^2) (Subscript[kpi, 1])-124 I (q^4) (rm^5) (rp^6) (σ^2) (Subscript[kpi, 1])-64 I (q^2) (rm^4) (rp^7) (σ^2) (Subscript[kpi, 1])+316 I (q^4) (rm^4) (rp^7) (σ^2) (Subscript[kpi, 1])+96 I (q^2) (rm^3) (rp^8) (σ^2) (Subscript[kpi, 1])-260 I (q^4) (rm^3) (rp^8) (σ^2) (Subscript[kpi, 1])-64 I (q^2) (rm^2) (rp^9) (σ^2) (Subscript[kpi, 1])+68 I (q^4) (rm^2) (rp^9) (σ^2) (Subscript[kpi, 1])+16 I (q^2) rm (rp^10) (σ^2) (Subscript[kpi, 1])-32 I q (rm^4) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 1])+496 I (q^3) (rm^4) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 1])+128 I q (rm^3) (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 1])-1264 I (q^3) (rm^3) (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 1])-192 I q (rm^2) (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 1])+1040 I (q^3) (rm^2) (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 1])+128 I q rm (rp^9) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 1])-272 I (q^3) rm (rp^9) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 1])-32 I q (rp^10) (Sqrt[rm rp]) γ (σ^2) (Subscript[kpi, 1])+16 I (rm^4) (rp^7) (γ^2) (σ^2) (Subscript[kpi, 1])-744 I (q^2) (rm^4) (rp^7) (γ^2) (σ^2) (Subscript[kpi, 1])-64 I (rm^3) (rp^8) (γ^2) (σ^2) (Subscript[kpi, 1])+1896 I (q^2) (rm^3) (rp^8) (γ^2) (σ^2) (Subscript[kpi, 1])+96 I (rm^2) (rp^9) (γ^2) (σ^2) (Subscript[kpi, 1])-1560 I (q^2) (rm^2) (rp^9) (γ^2) (σ^2) (Subscript[kpi, 1])-64 I rm (rp^10) (γ^2) (σ^2) (Subscript[kpi, 1])+408 I (q^2) rm (rp^10) (γ^2) (σ^2) (Subscript[kpi, 1])+16 I (rp^11) (γ^2) (σ^2) (Subscript[kpi, 1])+496 I q (rm^3) (rp^7) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[kpi, 1])-1264 I q (rm^2) (rp^8) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[kpi, 1])+1040 I q rm (rp^9) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[kpi, 1])-272 I q (rp^10) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[kpi, 1])-124 I (rm^3) (rp^8) (γ^4) (σ^2) (Subscript[kpi, 1])+316 I (rm^2) (rp^9) (γ^4) (σ^2) (Subscript[kpi, 1])-260 I rm (rp^10) (γ^4) (σ^2) (Subscript[kpi, 1])+68 I (rp^11) (γ^4) (σ^2) (Subscript[kpi, 1])-8 I (q^4) (rm^4) (rp^7) Λ (σ^2) (Subscript[kpi, 1])+16 I (q^4) (rm^3) (rp^8) Λ (σ^2) (Subscript[kpi, 1])-8 I (q^4) (rm^2) (rp^9) Λ (σ^2) (Subscript[kpi, 1])+32 I (q^3) (rm^3) (rp^7) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[kpi, 1])-64 I (q^3) (rm^2) (rp^8) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[kpi, 1])+32 I (q^3) rm (rp^9) (Sqrt[rm rp]) γ Λ (σ^2) (Subscript[kpi, 1])-48 I (q^2) (rm^3) (rp^8) (γ^2) Λ (σ^2) (Subscript[kpi, 1])+96 I (q^2) (rm^2) (rp^9) (γ^2) Λ (σ^2) (Subscript[kpi, 1])-48 I (q^2) rm (rp^10) (γ^2) Λ (σ^2) (Subscript[kpi, 1])+32 I q (rm^2) (rp^8) (Sqrt[rm rp]) (γ^3) Λ (σ^2) (Subscript[kpi, 1])-64 I q rm (rp^9) (Sqrt[rm rp]) (γ^3) Λ (σ^2) (Subscript[kpi, 1])+32 I q (rp^10) (Sqrt[rm rp]) (γ^3) Λ (σ^2) (Subscript[kpi, 1])-8 I (rm^2) (rp^9) (γ^4) Λ (σ^2) (Subscript[kpi, 1])+16 I rm (rp^10) (γ^4) Λ (σ^2) (Subscript[kpi, 1])-8 I (rp^11) (γ^4) Λ (σ^2) (Subscript[kpi, 1])-16 (q^2) (rm^4) (rp^8) (σ^3) (Subscript[kpi, 1])+56 (q^4) (rm^4) (rp^8) (σ^3) (Subscript[kpi, 1])+48 (q^2) (rm^3) (rp^9) (σ^3) (Subscript[kpi, 1])-80 (q^4) (rm^3) (rp^9) (σ^3) (Subscript[kpi, 1])-48 (q^2) (rm^2) (rp^10) (σ^3) (Subscript[kpi, 1])+24 (q^4) (rm^2) (rp^10) (σ^3) (Subscript[kpi, 1])+16 (q^2) rm (rp^11) (σ^3) (Subscript[kpi, 1])+32 q (rm^3) (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 1])-224 (q^3) (rm^3) (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 1])-96 q (rm^2) (rp^9) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 1])+320 (q^3) (rm^2) (rp^9) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 1])+96 q rm (rp^10) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 1])-96 (q^3) rm (rp^10) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 1])-32 q (rp^11) (Sqrt[rm rp]) γ (σ^3) (Subscript[kpi, 1])-16 (rm^3) (rp^9) (γ^2) (σ^3) (Subscript[kpi, 1])+336 (q^2) (rm^3) (rp^9) (γ^2) (σ^3) (Subscript[kpi, 1])+48 (rm^2) (rp^10) (γ^2) (σ^3) (Subscript[kpi, 1])-480 (q^2) (rm^2) (rp^10) (γ^2) (σ^3) (Subscript[kpi, 1])-48 rm (rp^11) (γ^2) (σ^3) (Subscript[kpi, 1])+144 (q^2) rm (rp^11) (γ^2) (σ^3) (Subscript[kpi, 1])+16 (rp^12) (γ^2) (σ^3) (Subscript[kpi, 1])-224 q (rm^2) (rp^9) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[kpi, 1])+320 q rm (rp^10) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[kpi, 1])-96 q (rp^11) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[kpi, 1])+56 (rm^2) (rp^10) (γ^4) (σ^3) (Subscript[kpi, 1])-80 rm (rp^11) (γ^4) (σ^3) (Subscript[kpi, 1])+24 (rp^12) (γ^4) (σ^3) (Subscript[kpi, 1]))/(16 (rp^5) (((-rm+rp))^2) ((((q^2) rm-2 q (Sqrt[rm rp]) γ+rp (γ^2)))^2) σ (-I rm+I rp+(rp^2) σ) (-3 I rm+3 I rp+2 (rp^2) σ))),(Subscript[f1i, 2])->-((-32 I (Sqrt[2]) (q^5) (rm^6) (rp^2) (((9+8 Λ))^(1/4))+128 I (Sqrt[2]) (q^5) (rm^5) (rp^3) (((9+8 Λ))^(1/4))-192 I (Sqrt[2]) (q^5) (rm^4) (rp^4) (((9+8 Λ))^(1/4))+128 I (Sqrt[2]) (q^5) (rm^3) (rp^5) (((9+8 Λ))^(1/4))-32 I (Sqrt[2]) (q^5) (rm^2) (rp^6) (((9+8 Λ))^(1/4))+128 I (Sqrt[2]) (q^4) (rm^5) (rp^2) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4))-512 I (Sqrt[2]) (q^4) (rm^4) (rp^3) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4))+768 I (Sqrt[2]) (q^4) (rm^3) (rp^4) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4))-512 I (Sqrt[2]) (q^4) (rm^2) (rp^5) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4))+128 I (Sqrt[2]) (q^4) rm (rp^6) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4))-192 I (Sqrt[2]) (q^3) (rm^5) (rp^3) (γ^2) (((9+8 Λ))^(1/4))+768 I (Sqrt[2]) (q^3) (rm^4) (rp^4) (γ^2) (((9+8 Λ))^(1/4))-1152 I (Sqrt[2]) (q^3) (rm^3) (rp^5) (γ^2) (((9+8 Λ))^(1/4))+768 I (Sqrt[2]) (q^3) (rm^2) (rp^6) (γ^2) (((9+8 Λ))^(1/4))-192 I (Sqrt[2]) (q^3) rm (rp^7) (γ^2) (((9+8 Λ))^(1/4))+128 I (Sqrt[2]) (q^2) (rm^4) (rp^3) (Sqrt[rm rp]) (γ^3) (((9+8 Λ))^(1/4))-512 I (Sqrt[2]) (q^2) (rm^3) (rp^4) (Sqrt[rm rp]) (γ^3) (((9+8 Λ))^(1/4))+768 I (Sqrt[2]) (q^2) (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) (((9+8 Λ))^(1/4))-512 I (Sqrt[2]) (q^2) rm (rp^6) (Sqrt[rm rp]) (γ^3) (((9+8 Λ))^(1/4))+128 I (Sqrt[2]) (q^2) (rp^7) (Sqrt[rm rp]) (γ^3) (((9+8 Λ))^(1/4))-32 I (Sqrt[2]) q (rm^4) (rp^4) (γ^4) (((9+8 Λ))^(1/4))+128 I (Sqrt[2]) q (rm^3) (rp^5) (γ^4) (((9+8 Λ))^(1/4))-192 I (Sqrt[2]) q (rm^2) (rp^6) (γ^4) (((9+8 Λ))^(1/4))+128 I (Sqrt[2]) q rm (rp^7) (γ^4) (((9+8 Λ))^(1/4))-32 I (Sqrt[2]) q (rp^8) (γ^4) (((9+8 Λ))^(1/4))+16 (Sqrt[2]) (q^5) (rm^5) (rp^4) (((9+8 Λ))^(1/4)) σ-48 (Sqrt[2]) (q^5) (rm^4) (rp^5) (((9+8 Λ))^(1/4)) σ+48 (Sqrt[2]) (q^5) (rm^3) (rp^6) (((9+8 Λ))^(1/4)) σ-16 (Sqrt[2]) (q^5) (rm^2) (rp^7) (((9+8 Λ))^(1/4)) σ-64 (Sqrt[2]) (q^4) (rm^4) (rp^4) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4)) σ+192 (Sqrt[2]) (q^4) (rm^3) (rp^5) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4)) σ-192 (Sqrt[2]) (q^4) (rm^2) (rp^6) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4)) σ+64 (Sqrt[2]) (q^4) rm (rp^7) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4)) σ+96 (Sqrt[2]) (q^3) (rm^4) (rp^5) (γ^2) (((9+8 Λ))^(1/4)) σ-288 (Sqrt[2]) (q^3) (rm^3) (rp^6) (γ^2) (((9+8 Λ))^(1/4)) σ+288 (Sqrt[2]) (q^3) (rm^2) (rp^7) (γ^2) (((9+8 Λ))^(1/4)) σ-96 (Sqrt[2]) (q^3) rm (rp^8) (γ^2) (((9+8 Λ))^(1/4)) σ-64 (Sqrt[2]) (q^2) (rm^3) (rp^5) (Sqrt[rm rp]) (γ^3) (((9+8 Λ))^(1/4)) σ+192 (Sqrt[2]) (q^2) (rm^2) (rp^6) (Sqrt[rm rp]) (γ^3) (((9+8 Λ))^(1/4)) σ-192 (Sqrt[2]) (q^2) rm (rp^7) (Sqrt[rm rp]) (γ^3) (((9+8 Λ))^(1/4)) σ+64 (Sqrt[2]) (q^2) (rp^8) (Sqrt[rm rp]) (γ^3) (((9+8 Λ))^(1/4)) σ+16 (Sqrt[2]) q (rm^3) (rp^6) (γ^4) (((9+8 Λ))^(1/4)) σ-48 (Sqrt[2]) q (rm^2) (rp^7) (γ^4) (((9+8 Λ))^(1/4)) σ+48 (Sqrt[2]) q rm (rp^8) (γ^4) (((9+8 Λ))^(1/4)) σ-16 (Sqrt[2]) q (rp^9) (γ^4) (((9+8 Λ))^(1/4)) σ+6 I (rm^5) (rp^5) (σ^2) (Subscript[f1i, 0])-16 I (q^2) (rm^5) (rp^5) (σ^2) (Subscript[f1i, 0])+16 I (q^4) (rm^5) (rp^5) (σ^2) (Subscript[f1i, 0])-30 I (rm^4) (rp^6) (σ^2) (Subscript[f1i, 0])+64 I (q^2) (rm^4) (rp^6) (σ^2) (Subscript[f1i, 0])-16 I (q^4) (rm^4) (rp^6) (σ^2) (Subscript[f1i, 0])+60 I (rm^3) (rp^7) (σ^2) (Subscript[f1i, 0])-96 I (q^2) (rm^3) (rp^7) (σ^2) (Subscript[f1i, 0])-60 I (rm^2) (rp^8) (σ^2) (Subscript[f1i, 0])+64 I (q^2) (rm^2) (rp^8) (σ^2) (Subscript[f1i, 0])+30 I rm (rp^9) (σ^2) (Subscript[f1i, 0])-16 I (q^2) rm (rp^9) (σ^2) (Subscript[f1i, 0])-6 I (rp^10) (σ^2) (Subscript[f1i, 0])+16 I q (rm^4) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 0])-64 I (q^3) (rm^4) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 0])-64 I q (rm^3) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 0])+64 I (q^3) (rm^3) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 0])+96 I q (rm^2) (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 0])-64 I q rm (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 0])+16 I q (rp^9) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 0])+96 I (q^2) (rm^4) (rp^6) (γ^2) (σ^2) (Subscript[f1i, 0])-96 I (q^2) (rm^3) (rp^7) (γ^2) (σ^2) (Subscript[f1i, 0])-64 I q (rm^3) (rp^6) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f1i, 0])+64 I q (rm^2) (rp^7) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f1i, 0])+16 I (rm^3) (rp^7) (γ^4) (σ^2) (Subscript[f1i, 0])-16 I (rm^2) (rp^8) (γ^4) (σ^2) (Subscript[f1i, 0])-3 (rm^4) (rp^7) (σ^3) (Subscript[f1i, 0])+8 (q^2) (rm^4) (rp^7) (σ^3) (Subscript[f1i, 0])+40 (q^4) (rm^4) (rp^7) (σ^3) (Subscript[f1i, 0])+12 (rm^3) (rp^8) (σ^3) (Subscript[f1i, 0])-24 (q^2) (rm^3) (rp^8) (σ^3) (Subscript[f1i, 0])-32 (q^4) (rm^3) (rp^8) (σ^3) (Subscript[f1i, 0])-18 (rm^2) (rp^9) (σ^3) (Subscript[f1i, 0])+24 (q^2) (rm^2) (rp^9) (σ^3) (Subscript[f1i, 0])+8 (q^4) (rm^2) (rp^9) (σ^3) (Subscript[f1i, 0])+12 rm (rp^10) (σ^3) (Subscript[f1i, 0])-8 (q^2) rm (rp^10) (σ^3) (Subscript[f1i, 0])-3 (rp^11) (σ^3) (Subscript[f1i, 0])-8 q (rm^3) (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[f1i, 0])-160 (q^3) (rm^3) (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[f1i, 0])+24 q (rm^2) (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[f1i, 0])+128 (q^3) (rm^2) (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[f1i, 0])-24 q rm (rp^9) (Sqrt[rm rp]) γ (σ^3) (Subscript[f1i, 0])-32 (q^3) rm (rp^9) (Sqrt[rm rp]) γ (σ^3) (Subscript[f1i, 0])+8 q (rp^10) (Sqrt[rm rp]) γ (σ^3) (Subscript[f1i, 0])+240 (q^2) (rm^3) (rp^8) (γ^2) (σ^3) (Subscript[f1i, 0])-192 (q^2) (rm^2) (rp^9) (γ^2) (σ^3) (Subscript[f1i, 0])+48 (q^2) rm (rp^10) (γ^2) (σ^3) (Subscript[f1i, 0])-160 q (rm^2) (rp^8) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[f1i, 0])+128 q rm (rp^9) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[f1i, 0])-32 q (rp^10) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[f1i, 0])+40 (rm^2) (rp^9) (γ^4) (σ^3) (Subscript[f1i, 0])-32 rm (rp^10) (γ^4) (σ^3) (Subscript[f1i, 0])+8 (rp^11) (γ^4) (σ^3) (Subscript[f1i, 0])-8 I (q^2) (rm^5) (rp^6) (σ^2) (Subscript[f1i, 1])+32 I (q^4) (rm^5) (rp^6) (σ^2) (Subscript[f1i, 1])+32 I (q^2) (rm^4) (rp^7) (σ^2) (Subscript[f1i, 1])-80 I (q^4) (rm^4) (rp^7) (σ^2) (Subscript[f1i, 1])-48 I (q^2) (rm^3) (rp^8) (σ^2) (Subscript[f1i, 1])+64 I (q^4) (rm^3) (rp^8) (σ^2) (Subscript[f1i, 1])+32 I (q^2) (rm^2) (rp^9) (σ^2) (Subscript[f1i, 1])-16 I (q^4) (rm^2) (rp^9) (σ^2) (Subscript[f1i, 1])-8 I (q^2) rm (rp^10) (σ^2) (Subscript[f1i, 1])+16 I q (rm^4) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 1])-128 I (q^3) (rm^4) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 1])-64 I q (rm^3) (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 1])+320 I (q^3) (rm^3) (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 1])+96 I q (rm^2) (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 1])-256 I (q^3) (rm^2) (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 1])-64 I q rm (rp^9) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 1])+64 I (q^3) rm (rp^9) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 1])+16 I q (rp^10) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 1])-8 I (rm^4) (rp^7) (γ^2) (σ^2) (Subscript[f1i, 1])+192 I (q^2) (rm^4) (rp^7) (γ^2) (σ^2) (Subscript[f1i, 1])+32 I (rm^3) (rp^8) (γ^2) (σ^2) (Subscript[f1i, 1])-480 I (q^2) (rm^3) (rp^8) (γ^2) (σ^2) (Subscript[f1i, 1])-48 I (rm^2) (rp^9) (γ^2) (σ^2) (Subscript[f1i, 1])+384 I (q^2) (rm^2) (rp^9) (γ^2) (σ^2) (Subscript[f1i, 1])+32 I rm (rp^10) (γ^2) (σ^2) (Subscript[f1i, 1])-96 I (q^2) rm (rp^10) (γ^2) (σ^2) (Subscript[f1i, 1])-8 I (rp^11) (γ^2) (σ^2) (Subscript[f1i, 1])-128 I q (rm^3) (rp^7) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f1i, 1])+320 I q (rm^2) (rp^8) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f1i, 1])-256 I q rm (rp^9) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f1i, 1])+64 I q (rp^10) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f1i, 1])+32 I (rm^3) (rp^8) (γ^4) (σ^2) (Subscript[f1i, 1])-80 I (rm^2) (rp^9) (γ^4) (σ^2) (Subscript[f1i, 1])+64 I rm (rp^10) (γ^4) (σ^2) (Subscript[f1i, 1])-16 I (rp^11) (γ^4) (σ^2) (Subscript[f1i, 1])+4 (q^2) (rm^4) (rp^8) (σ^3) (Subscript[f1i, 1])+16 (q^4) (rm^4) (rp^8) (σ^3) (Subscript[f1i, 1])-12 (q^2) (rm^3) (rp^9) (σ^3) (Subscript[f1i, 1])-24 (q^4) (rm^3) (rp^9) (σ^3) (Subscript[f1i, 1])+12 (q^2) (rm^2) (rp^10) (σ^3) (Subscript[f1i, 1])+8 (q^4) (rm^2) (rp^10) (σ^3) (Subscript[f1i, 1])-4 (q^2) rm (rp^11) (σ^3) (Subscript[f1i, 1])-8 q (rm^3) (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[f1i, 1])-64 (q^3) (rm^3) (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[f1i, 1])+24 q (rm^2) (rp^9) (Sqrt[rm rp]) γ (σ^3) (Subscript[f1i, 1])+96 (q^3) (rm^2) (rp^9) (Sqrt[rm rp]) γ (σ^3) (Subscript[f1i, 1])-24 q rm (rp^10) (Sqrt[rm rp]) γ (σ^3) (Subscript[f1i, 1])-32 (q^3) rm (rp^10) (Sqrt[rm rp]) γ (σ^3) (Subscript[f1i, 1])+8 q (rp^11) (Sqrt[rm rp]) γ (σ^3) (Subscript[f1i, 1])+4 (rm^3) (rp^9) (γ^2) (σ^3) (Subscript[f1i, 1])+96 (q^2) (rm^3) (rp^9) (γ^2) (σ^3) (Subscript[f1i, 1])-12 (rm^2) (rp^10) (γ^2) (σ^3) (Subscript[f1i, 1])-144 (q^2) (rm^2) (rp^10) (γ^2) (σ^3) (Subscript[f1i, 1])+12 rm (rp^11) (γ^2) (σ^3) (Subscript[f1i, 1])+48 (q^2) rm (rp^11) (γ^2) (σ^3) (Subscript[f1i, 1])-4 (rp^12) (γ^2) (σ^3) (Subscript[f1i, 1])-64 q (rm^2) (rp^9) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[f1i, 1])+96 q rm (rp^10) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[f1i, 1])-32 q (rp^11) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[f1i, 1])+16 (rm^2) (rp^10) (γ^4) (σ^3) (Subscript[f1i, 1])-24 rm (rp^11) (γ^4) (σ^3) (Subscript[f1i, 1])+8 (rp^12) (γ^4) (σ^3) (Subscript[f1i, 1])-128 I (q^4) (rm^7) (Subscript[f2i, 0])+608 I (q^4) (rm^6) rp (Subscript[f2i, 0])-1152 I (q^4) (rm^5) (rp^2) (Subscript[f2i, 0])+1088 I (q^4) (rm^4) (rp^3) (Subscript[f2i, 0])-512 I (q^4) (rm^3) (rp^4) (Subscript[f2i, 0])+96 I (q^4) (rm^2) (rp^5) (Subscript[f2i, 0])+512 I (q^3) (rm^6) (Sqrt[rm rp]) γ (Subscript[f2i, 0])-2432 I (q^3) (rm^5) rp (Sqrt[rm rp]) γ (Subscript[f2i, 0])+4608 I (q^3) (rm^4) (rp^2) (Sqrt[rm rp]) γ (Subscript[f2i, 0])-4352 I (q^3) (rm^3) (rp^3) (Sqrt[rm rp]) γ (Subscript[f2i, 0])+2048 I (q^3) (rm^2) (rp^4) (Sqrt[rm rp]) γ (Subscript[f2i, 0])-384 I (q^3) rm (rp^5) (Sqrt[rm rp]) γ (Subscript[f2i, 0])-768 I (q^2) (rm^6) rp (γ^2) (Subscript[f2i, 0])+3648 I (q^2) (rm^5) (rp^2) (γ^2) (Subscript[f2i, 0])-6912 I (q^2) (rm^4) (rp^3) (γ^2) (Subscript[f2i, 0])+6528 I (q^2) (rm^3) (rp^4) (γ^2) (Subscript[f2i, 0])-3072 I (q^2) (rm^2) (rp^5) (γ^2) (Subscript[f2i, 0])+576 I (q^2) rm (rp^6) (γ^2) (Subscript[f2i, 0])+512 I q (rm^5) rp (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 0])-2432 I q (rm^4) (rp^2) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 0])+4608 I q (rm^3) (rp^3) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 0])-4352 I q (rm^2) (rp^4) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 0])+2048 I q rm (rp^5) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 0])-384 I q (rp^6) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 0])-128 I (rm^5) (rp^2) (γ^4) (Subscript[f2i, 0])+608 I (rm^4) (rp^3) (γ^4) (Subscript[f2i, 0])-1152 I (rm^3) (rp^4) (γ^4) (Subscript[f2i, 0])+1088 I (rm^2) (rp^5) (γ^4) (Subscript[f2i, 0])-512 I rm (rp^6) (γ^4) (Subscript[f2i, 0])+96 I (rp^7) (γ^4) (Subscript[f2i, 0])-128 I (q^4) (rm^7) Λ (Subscript[f2i, 0])+608 I (q^4) (rm^6) rp Λ (Subscript[f2i, 0])-1152 I (q^4) (rm^5) (rp^2) Λ (Subscript[f2i, 0])+1088 I (q^4) (rm^4) (rp^3) Λ (Subscript[f2i, 0])-512 I (q^4) (rm^3) (rp^4) Λ (Subscript[f2i, 0])+96 I (q^4) (rm^2) (rp^5) Λ (Subscript[f2i, 0])+512 I (q^3) (rm^6) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 0])-2432 I (q^3) (rm^5) rp (Sqrt[rm rp]) γ Λ (Subscript[f2i, 0])+4608 I (q^3) (rm^4) (rp^2) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 0])-4352 I (q^3) (rm^3) (rp^3) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 0])+2048 I (q^3) (rm^2) (rp^4) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 0])-384 I (q^3) rm (rp^5) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 0])-768 I (q^2) (rm^6) rp (γ^2) Λ (Subscript[f2i, 0])+3648 I (q^2) (rm^5) (rp^2) (γ^2) Λ (Subscript[f2i, 0])-6912 I (q^2) (rm^4) (rp^3) (γ^2) Λ (Subscript[f2i, 0])+6528 I (q^2) (rm^3) (rp^4) (γ^2) Λ (Subscript[f2i, 0])-3072 I (q^2) (rm^2) (rp^5) (γ^2) Λ (Subscript[f2i, 0])+576 I (q^2) rm (rp^6) (γ^2) Λ (Subscript[f2i, 0])+512 I q (rm^5) rp (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 0])-2432 I q (rm^4) (rp^2) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 0])+4608 I q (rm^3) (rp^3) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 0])-4352 I q (rm^2) (rp^4) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 0])+2048 I q rm (rp^5) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 0])-384 I q (rp^6) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 0])-128 I (rm^5) (rp^2) (γ^4) Λ (Subscript[f2i, 0])+608 I (rm^4) (rp^3) (γ^4) Λ (Subscript[f2i, 0])-1152 I (rm^3) (rp^4) (γ^4) Λ (Subscript[f2i, 0])+1088 I (rm^2) (rp^5) (γ^4) Λ (Subscript[f2i, 0])-512 I rm (rp^6) (γ^4) Λ (Subscript[f2i, 0])+96 I (rp^7) (γ^4) Λ (Subscript[f2i, 0])+64 (q^4) (rm^6) (rp^2) σ (Subscript[f2i, 0])-240 (q^4) (rm^5) (rp^3) σ (Subscript[f2i, 0])+336 (q^4) (rm^4) (rp^4) σ (Subscript[f2i, 0])-208 (q^4) (rm^3) (rp^5) σ (Subscript[f2i, 0])+48 (q^4) (rm^2) (rp^6) σ (Subscript[f2i, 0])-256 (q^3) (rm^5) (rp^2) (Sqrt[rm rp]) γ σ (Subscript[f2i, 0])+960 (q^3) (rm^4) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[f2i, 0])-1344 (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[f2i, 0])+832 (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ σ (Subscript[f2i, 0])-192 (q^3) rm (rp^6) (Sqrt[rm rp]) γ σ (Subscript[f2i, 0])+384 (q^2) (rm^5) (rp^3) (γ^2) σ (Subscript[f2i, 0])-1440 (q^2) (rm^4) (rp^4) (γ^2) σ (Subscript[f2i, 0])+2016 (q^2) (rm^3) (rp^5) (γ^2) σ (Subscript[f2i, 0])-1248 (q^2) (rm^2) (rp^6) (γ^2) σ (Subscript[f2i, 0])+288 (q^2) rm (rp^7) (γ^2) σ (Subscript[f2i, 0])-256 q (rm^4) (rp^3) (Sqrt[rm rp]) (γ^3) σ (Subscript[f2i, 0])+960 q (rm^3) (rp^4) (Sqrt[rm rp]) (γ^3) σ (Subscript[f2i, 0])-1344 q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[f2i, 0])+832 q rm (rp^6) (Sqrt[rm rp]) (γ^3) σ (Subscript[f2i, 0])-192 q (rp^7) (Sqrt[rm rp]) (γ^3) σ (Subscript[f2i, 0])+64 (rm^4) (rp^4) (γ^4) σ (Subscript[f2i, 0])-240 (rm^3) (rp^5) (γ^4) σ (Subscript[f2i, 0])+336 (rm^2) (rp^6) (γ^4) σ (Subscript[f2i, 0])-208 rm (rp^7) (γ^4) σ (Subscript[f2i, 0])+48 (rp^8) (γ^4) σ (Subscript[f2i, 0])+64 (q^4) (rm^6) (rp^2) Λ σ (Subscript[f2i, 0])-240 (q^4) (rm^5) (rp^3) Λ σ (Subscript[f2i, 0])+336 (q^4) (rm^4) (rp^4) Λ σ (Subscript[f2i, 0])-208 (q^4) (rm^3) (rp^5) Λ σ (Subscript[f2i, 0])+48 (q^4) (rm^2) (rp^6) Λ σ (Subscript[f2i, 0])-256 (q^3) (rm^5) (rp^2) (Sqrt[rm rp]) γ Λ σ (Subscript[f2i, 0])+960 (q^3) (rm^4) (rp^3) (Sqrt[rm rp]) γ Λ σ (Subscript[f2i, 0])-1344 (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ Λ σ (Subscript[f2i, 0])+832 (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ Λ σ (Subscript[f2i, 0])-192 (q^3) rm (rp^6) (Sqrt[rm rp]) γ Λ σ (Subscript[f2i, 0])+384 (q^2) (rm^5) (rp^3) (γ^2) Λ σ (Subscript[f2i, 0])-1440 (q^2) (rm^4) (rp^4) (γ^2) Λ σ (Subscript[f2i, 0])+2016 (q^2) (rm^3) (rp^5) (γ^2) Λ σ (Subscript[f2i, 0])-1248 (q^2) (rm^2) (rp^6) (γ^2) Λ σ (Subscript[f2i, 0])+288 (q^2) rm (rp^7) (γ^2) Λ σ (Subscript[f2i, 0])-256 q (rm^4) (rp^3) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[f2i, 0])+960 q (rm^3) (rp^4) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[f2i, 0])-1344 q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[f2i, 0])+832 q rm (rp^6) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[f2i, 0])-192 q (rp^7) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[f2i, 0])+64 (rm^4) (rp^4) (γ^4) Λ σ (Subscript[f2i, 0])-240 (rm^3) (rp^5) (γ^4) Λ σ (Subscript[f2i, 0])+336 (rm^2) (rp^6) (γ^4) Λ σ (Subscript[f2i, 0])-208 rm (rp^7) (γ^4) Λ σ (Subscript[f2i, 0])+48 (rp^8) (γ^4) Λ σ (Subscript[f2i, 0])-16 I (q^4) (rm^6) (rp^3) (σ^2) (Subscript[f2i, 0])+64 I (q^4) (rm^5) (rp^4) (σ^2) (Subscript[f2i, 0])-88 I (q^4) (rm^4) (rp^5) (σ^2) (Subscript[f2i, 0])+48 I (q^4) (rm^3) (rp^6) (σ^2) (Subscript[f2i, 0])-8 I (q^4) (rm^2) (rp^7) (σ^2) (Subscript[f2i, 0])+64 I (q^3) (rm^5) (rp^3) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 0])-256 I (q^3) (rm^4) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 0])+352 I (q^3) (rm^3) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 0])-192 I (q^3) (rm^2) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 0])+32 I (q^3) rm (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 0])-96 I (q^2) (rm^5) (rp^4) (γ^2) (σ^2) (Subscript[f2i, 0])+384 I (q^2) (rm^4) (rp^5) (γ^2) (σ^2) (Subscript[f2i, 0])-528 I (q^2) (rm^3) (rp^6) (γ^2) (σ^2) (Subscript[f2i, 0])+288 I (q^2) (rm^2) (rp^7) (γ^2) (σ^2) (Subscript[f2i, 0])-48 I (q^2) rm (rp^8) (γ^2) (σ^2) (Subscript[f2i, 0])+64 I q (rm^4) (rp^4) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f2i, 0])-256 I q (rm^3) (rp^5) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f2i, 0])+352 I q (rm^2) (rp^6) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f2i, 0])-192 I q rm (rp^7) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f2i, 0])+32 I q (rp^8) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f2i, 0])-16 I (rm^4) (rp^5) (γ^4) (σ^2) (Subscript[f2i, 0])+64 I (rm^3) (rp^6) (γ^4) (σ^2) (Subscript[f2i, 0])-88 I (rm^2) (rp^7) (γ^4) (σ^2) (Subscript[f2i, 0])+48 I rm (rp^8) (γ^4) (σ^2) (Subscript[f2i, 0])-8 I (rp^9) (γ^4) (σ^2) (Subscript[f2i, 0])+3 (rm^5) (rp^5) (σ^3) (Subscript[f2i, 0])-8 (q^2) (rm^5) (rp^5) (σ^3) (Subscript[f2i, 0])+8 (q^4) (rm^5) (rp^5) (σ^3) (Subscript[f2i, 0])-15 (rm^4) (rp^6) (σ^3) (Subscript[f2i, 0])+32 (q^2) (rm^4) (rp^6) (σ^3) (Subscript[f2i, 0])-8 (q^4) (rm^4) (rp^6) (σ^3) (Subscript[f2i, 0])+30 (rm^3) (rp^7) (σ^3) (Subscript[f2i, 0])-48 (q^2) (rm^3) (rp^7) (σ^3) (Subscript[f2i, 0])-30 (rm^2) (rp^8) (σ^3) (Subscript[f2i, 0])+32 (q^2) (rm^2) (rp^8) (σ^3) (Subscript[f2i, 0])+15 rm (rp^9) (σ^3) (Subscript[f2i, 0])-8 (q^2) rm (rp^9) (σ^3) (Subscript[f2i, 0])-3 (rp^10) (σ^3) (Subscript[f2i, 0])+8 q (rm^4) (rp^5) (Sqrt[rm rp]) γ (σ^3) (Subscript[f2i, 0])-32 (q^3) (rm^4) (rp^5) (Sqrt[rm rp]) γ (σ^3) (Subscript[f2i, 0])-32 q (rm^3) (rp^6) (Sqrt[rm rp]) γ (σ^3) (Subscript[f2i, 0])+32 (q^3) (rm^3) (rp^6) (Sqrt[rm rp]) γ (σ^3) (Subscript[f2i, 0])+48 q (rm^2) (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[f2i, 0])-32 q rm (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[f2i, 0])+8 q (rp^9) (Sqrt[rm rp]) γ (σ^3) (Subscript[f2i, 0])+48 (q^2) (rm^4) (rp^6) (γ^2) (σ^3) (Subscript[f2i, 0])-48 (q^2) (rm^3) (rp^7) (γ^2) (σ^3) (Subscript[f2i, 0])-32 q (rm^3) (rp^6) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[f2i, 0])+32 q (rm^2) (rp^7) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[f2i, 0])+8 (rm^3) (rp^7) (γ^4) (σ^3) (Subscript[f2i, 0])-8 (rm^2) (rp^8) (γ^4) (σ^3) (Subscript[f2i, 0])+32 I (q^4) (rm^7) rp (Subscript[f2i, 1])-160 I (q^4) (rm^6) (rp^2) (Subscript[f2i, 1])+320 I (q^4) (rm^5) (rp^3) (Subscript[f2i, 1])-320 I (q^4) (rm^4) (rp^4) (Subscript[f2i, 1])+160 I (q^4) (rm^3) (rp^5) (Subscript[f2i, 1])-32 I (q^4) (rm^2) (rp^6) (Subscript[f2i, 1])-128 I (q^3) (rm^6) rp (Sqrt[rm rp]) γ (Subscript[f2i, 1])+640 I (q^3) (rm^5) (rp^2) (Sqrt[rm rp]) γ (Subscript[f2i, 1])-1280 I (q^3) (rm^4) (rp^3) (Sqrt[rm rp]) γ (Subscript[f2i, 1])+1280 I (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ (Subscript[f2i, 1])-640 I (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ (Subscript[f2i, 1])+128 I (q^3) rm (rp^6) (Sqrt[rm rp]) γ (Subscript[f2i, 1])+192 I (q^2) (rm^6) (rp^2) (γ^2) (Subscript[f2i, 1])-960 I (q^2) (rm^5) (rp^3) (γ^2) (Subscript[f2i, 1])+1920 I (q^2) (rm^4) (rp^4) (γ^2) (Subscript[f2i, 1])-1920 I (q^2) (rm^3) (rp^5) (γ^2) (Subscript[f2i, 1])+960 I (q^2) (rm^2) (rp^6) (γ^2) (Subscript[f2i, 1])-192 I (q^2) rm (rp^7) (γ^2) (Subscript[f2i, 1])-128 I q (rm^5) (rp^2) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 1])+640 I q (rm^4) (rp^3) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 1])-1280 I q (rm^3) (rp^4) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 1])+1280 I q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 1])-640 I q rm (rp^6) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 1])+128 I q (rp^7) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 1])+32 I (rm^5) (rp^3) (γ^4) (Subscript[f2i, 1])-160 I (rm^4) (rp^4) (γ^4) (Subscript[f2i, 1])+320 I (rm^3) (rp^5) (γ^4) (Subscript[f2i, 1])-320 I (rm^2) (rp^6) (γ^4) (Subscript[f2i, 1])+160 I rm (rp^7) (γ^4) (Subscript[f2i, 1])-32 I (rp^8) (γ^4) (Subscript[f2i, 1])+32 I (q^4) (rm^7) rp Λ (Subscript[f2i, 1])-160 I (q^4) (rm^6) (rp^2) Λ (Subscript[f2i, 1])+320 I (q^4) (rm^5) (rp^3) Λ (Subscript[f2i, 1])-320 I (q^4) (rm^4) (rp^4) Λ (Subscript[f2i, 1])+160 I (q^4) (rm^3) (rp^5) Λ (Subscript[f2i, 1])-32 I (q^4) (rm^2) (rp^6) Λ (Subscript[f2i, 1])-128 I (q^3) (rm^6) rp (Sqrt[rm rp]) γ Λ (Subscript[f2i, 1])+640 I (q^3) (rm^5) (rp^2) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 1])-1280 I (q^3) (rm^4) (rp^3) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 1])+1280 I (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 1])-640 I (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 1])+128 I (q^3) rm (rp^6) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 1])+192 I (q^2) (rm^6) (rp^2) (γ^2) Λ (Subscript[f2i, 1])-960 I (q^2) (rm^5) (rp^3) (γ^2) Λ (Subscript[f2i, 1])+1920 I (q^2) (rm^4) (rp^4) (γ^2) Λ (Subscript[f2i, 1])-1920 I (q^2) (rm^3) (rp^5) (γ^2) Λ (Subscript[f2i, 1])+960 I (q^2) (rm^2) (rp^6) (γ^2) Λ (Subscript[f2i, 1])-192 I (q^2) rm (rp^7) (γ^2) Λ (Subscript[f2i, 1])-128 I q (rm^5) (rp^2) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 1])+640 I q (rm^4) (rp^3) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 1])-1280 I q (rm^3) (rp^4) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 1])+1280 I q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 1])-640 I q rm (rp^6) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 1])+128 I q (rp^7) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 1])+32 I (rm^5) (rp^3) (γ^4) Λ (Subscript[f2i, 1])-160 I (rm^4) (rp^4) (γ^4) Λ (Subscript[f2i, 1])+320 I (rm^3) (rp^5) (γ^4) Λ (Subscript[f2i, 1])-320 I (rm^2) (rp^6) (γ^4) Λ (Subscript[f2i, 1])+160 I rm (rp^7) (γ^4) Λ (Subscript[f2i, 1])-32 I (rp^8) (γ^4) Λ (Subscript[f2i, 1])-16 (q^4) (rm^6) (rp^3) σ (Subscript[f2i, 1])+64 (q^4) (rm^5) (rp^4) σ (Subscript[f2i, 1])-96 (q^4) (rm^4) (rp^5) σ (Subscript[f2i, 1])+64 (q^4) (rm^3) (rp^6) σ (Subscript[f2i, 1])-16 (q^4) (rm^2) (rp^7) σ (Subscript[f2i, 1])+64 (q^3) (rm^5) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[f2i, 1])-256 (q^3) (rm^4) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[f2i, 1])+384 (q^3) (rm^3) (rp^5) (Sqrt[rm rp]) γ σ (Subscript[f2i, 1])-256 (q^3) (rm^2) (rp^6) (Sqrt[rm rp]) γ σ (Subscript[f2i, 1])+64 (q^3) rm (rp^7) (Sqrt[rm rp]) γ σ (Subscript[f2i, 1])-96 (q^2) (rm^5) (rp^4) (γ^2) σ (Subscript[f2i, 1])+384 (q^2) (rm^4) (rp^5) (γ^2) σ (Subscript[f2i, 1])-576 (q^2) (rm^3) (rp^6) (γ^2) σ (Subscript[f2i, 1])+384 (q^2) (rm^2) (rp^7) (γ^2) σ (Subscript[f2i, 1])-96 (q^2) rm (rp^8) (γ^2) σ (Subscript[f2i, 1])+64 q (rm^4) (rp^4) (Sqrt[rm rp]) (γ^3) σ (Subscript[f2i, 1])-256 q (rm^3) (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[f2i, 1])+384 q (rm^2) (rp^6) (Sqrt[rm rp]) (γ^3) σ (Subscript[f2i, 1])-256 q rm (rp^7) (Sqrt[rm rp]) (γ^3) σ (Subscript[f2i, 1])+64 q (rp^8) (Sqrt[rm rp]) (γ^3) σ (Subscript[f2i, 1])-16 (rm^4) (rp^5) (γ^4) σ (Subscript[f2i, 1])+64 (rm^3) (rp^6) (γ^4) σ (Subscript[f2i, 1])-96 (rm^2) (rp^7) (γ^4) σ (Subscript[f2i, 1])+64 rm (rp^8) (γ^4) σ (Subscript[f2i, 1])-16 (rp^9) (γ^4) σ (Subscript[f2i, 1])-16 (q^4) (rm^6) (rp^3) Λ σ (Subscript[f2i, 1])+64 (q^4) (rm^5) (rp^4) Λ σ (Subscript[f2i, 1])-96 (q^4) (rm^4) (rp^5) Λ σ (Subscript[f2i, 1])+64 (q^4) (rm^3) (rp^6) Λ σ (Subscript[f2i, 1])-16 (q^4) (rm^2) (rp^7) Λ σ (Subscript[f2i, 1])+64 (q^3) (rm^5) (rp^3) (Sqrt[rm rp]) γ Λ σ (Subscript[f2i, 1])-256 (q^3) (rm^4) (rp^4) (Sqrt[rm rp]) γ Λ σ (Subscript[f2i, 1])+384 (q^3) (rm^3) (rp^5) (Sqrt[rm rp]) γ Λ σ (Subscript[f2i, 1])-256 (q^3) (rm^2) (rp^6) (Sqrt[rm rp]) γ Λ σ (Subscript[f2i, 1])+64 (q^3) rm (rp^7) (Sqrt[rm rp]) γ Λ σ (Subscript[f2i, 1])-96 (q^2) (rm^5) (rp^4) (γ^2) Λ σ (Subscript[f2i, 1])+384 (q^2) (rm^4) (rp^5) (γ^2) Λ σ (Subscript[f2i, 1])-576 (q^2) (rm^3) (rp^6) (γ^2) Λ σ (Subscript[f2i, 1])+384 (q^2) (rm^2) (rp^7) (γ^2) Λ σ (Subscript[f2i, 1])-96 (q^2) rm (rp^8) (γ^2) Λ σ (Subscript[f2i, 1])+64 q (rm^4) (rp^4) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[f2i, 1])-256 q (rm^3) (rp^5) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[f2i, 1])+384 q (rm^2) (rp^6) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[f2i, 1])-256 q rm (rp^7) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[f2i, 1])+64 q (rp^8) (Sqrt[rm rp]) (γ^3) Λ σ (Subscript[f2i, 1])-16 (rm^4) (rp^5) (γ^4) Λ σ (Subscript[f2i, 1])+64 (rm^3) (rp^6) (γ^4) Λ σ (Subscript[f2i, 1])-96 (rm^2) (rp^7) (γ^4) Λ σ (Subscript[f2i, 1])+64 rm (rp^8) (γ^4) Λ σ (Subscript[f2i, 1])-16 (rp^9) (γ^4) Λ σ (Subscript[f2i, 1])+16 I (q^4) (rm^6) (rp^4) (σ^2) (Subscript[f2i, 1])-56 I (q^4) (rm^5) (rp^5) (σ^2) (Subscript[f2i, 1])+72 I (q^4) (rm^4) (rp^6) (σ^2) (Subscript[f2i, 1])-40 I (q^4) (rm^3) (rp^7) (σ^2) (Subscript[f2i, 1])+8 I (q^4) (rm^2) (rp^8) (σ^2) (Subscript[f2i, 1])-64 I (q^3) (rm^5) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 1])+224 I (q^3) (rm^4) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 1])-288 I (q^3) (rm^3) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 1])+160 I (q^3) (rm^2) (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 1])-32 I (q^3) rm (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 1])+96 I (q^2) (rm^5) (rp^5) (γ^2) (σ^2) (Subscript[f2i, 1])-336 I (q^2) (rm^4) (rp^6) (γ^2) (σ^2) (Subscript[f2i, 1])+432 I (q^2) (rm^3) (rp^7) (γ^2) (σ^2) (Subscript[f2i, 1])-240 I (q^2) (rm^2) (rp^8) (γ^2) (σ^2) (Subscript[f2i, 1])+48 I (q^2) rm (rp^9) (γ^2) (σ^2) (Subscript[f2i, 1])-64 I q (rm^4) (rp^5) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f2i, 1])+224 I q (rm^3) (rp^6) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f2i, 1])-288 I q (rm^2) (rp^7) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f2i, 1])+160 I q rm (rp^8) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f2i, 1])-32 I q (rp^9) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f2i, 1])+16 I (rm^4) (rp^6) (γ^4) (σ^2) (Subscript[f2i, 1])-56 I (rm^3) (rp^7) (γ^4) (σ^2) (Subscript[f2i, 1])+72 I (rm^2) (rp^8) (γ^4) (σ^2) (Subscript[f2i, 1])-40 I rm (rp^9) (γ^4) (σ^2) (Subscript[f2i, 1])+8 I (rp^10) (γ^4) (σ^2) (Subscript[f2i, 1])-4 (q^2) (rm^5) (rp^6) (σ^3) (Subscript[f2i, 1])+16 (q^4) (rm^5) (rp^6) (σ^3) (Subscript[f2i, 1])+16 (q^2) (rm^4) (rp^7) (σ^3) (Subscript[f2i, 1])-40 (q^4) (rm^4) (rp^7) (σ^3) (Subscript[f2i, 1])-24 (q^2) (rm^3) (rp^8) (σ^3) (Subscript[f2i, 1])+32 (q^4) (rm^3) (rp^8) (σ^3) (Subscript[f2i, 1])+16 (q^2) (rm^2) (rp^9) (σ^3) (Subscript[f2i, 1])-8 (q^4) (rm^2) (rp^9) (σ^3) (Subscript[f2i, 1])-4 (q^2) rm (rp^10) (σ^3) (Subscript[f2i, 1])+8 q (rm^4) (rp^6) (Sqrt[rm rp]) γ (σ^3) (Subscript[f2i, 1])-64 (q^3) (rm^4) (rp^6) (Sqrt[rm rp]) γ (σ^3) (Subscript[f2i, 1])-32 q (rm^3) (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[f2i, 1])+160 (q^3) (rm^3) (rp^7) (Sqrt[rm rp]) γ (σ^3) (Subscript[f2i, 1])+48 q (rm^2) (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[f2i, 1])-128 (q^3) (rm^2) (rp^8) (Sqrt[rm rp]) γ (σ^3) (Subscript[f2i, 1])-32 q rm (rp^9) (Sqrt[rm rp]) γ (σ^3) (Subscript[f2i, 1])+32 (q^3) rm (rp^9) (Sqrt[rm rp]) γ (σ^3) (Subscript[f2i, 1])+8 q (rp^10) (Sqrt[rm rp]) γ (σ^3) (Subscript[f2i, 1])-4 (rm^4) (rp^7) (γ^2) (σ^3) (Subscript[f2i, 1])+96 (q^2) (rm^4) (rp^7) (γ^2) (σ^3) (Subscript[f2i, 1])+16 (rm^3) (rp^8) (γ^2) (σ^3) (Subscript[f2i, 1])-240 (q^2) (rm^3) (rp^8) (γ^2) (σ^3) (Subscript[f2i, 1])-24 (rm^2) (rp^9) (γ^2) (σ^3) (Subscript[f2i, 1])+192 (q^2) (rm^2) (rp^9) (γ^2) (σ^3) (Subscript[f2i, 1])+16 rm (rp^10) (γ^2) (σ^3) (Subscript[f2i, 1])-48 (q^2) rm (rp^10) (γ^2) (σ^3) (Subscript[f2i, 1])-4 (rp^11) (γ^2) (σ^3) (Subscript[f2i, 1])-64 q (rm^3) (rp^7) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[f2i, 1])+160 q (rm^2) (rp^8) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[f2i, 1])-128 q rm (rp^9) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[f2i, 1])+32 q (rp^10) (Sqrt[rm rp]) (γ^3) (σ^3) (Subscript[f2i, 1])+16 (rm^3) (rp^8) (γ^4) (σ^3) (Subscript[f2i, 1])-40 (rm^2) (rp^9) (γ^4) (σ^3) (Subscript[f2i, 1])+32 rm (rp^10) (γ^4) (σ^3) (Subscript[f2i, 1])-8 (rp^11) (γ^4) (σ^3) (Subscript[f2i, 1])+32 (q^4) (rm^6) (rp^2) (Sqrt[rm rp]) σ (Subscript[kpi, 0])-128 (q^4) (rm^5) (rp^3) (Sqrt[rm rp]) σ (Subscript[kpi, 0])+192 (q^4) (rm^4) (rp^4) (Sqrt[rm rp]) σ (Subscript[kpi, 0])-128 (q^4) (rm^3) (rp^5) (Sqrt[rm rp]) σ (Subscript[kpi, 0])+32 (q^4) (rm^2) (rp^6) (Sqrt[rm rp]) σ (Subscript[kpi, 0])-128 (q^3) (rm^6) (rp^3) γ σ (Subscript[kpi, 0])+512 (q^3) (rm^5) (rp^4) γ σ (Subscript[kpi, 0])-768 (q^3) (rm^4) (rp^5) γ σ (Subscript[kpi, 0])+512 (q^3) (rm^3) (rp^6) γ σ (Subscript[kpi, 0])-128 (q^3) (rm^2) (rp^7) γ σ (Subscript[kpi, 0])+64 (q^2) (rm^5) (rp^3) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 0])-256 (q^2) (rm^4) (rp^4) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 0])+384 (q^2) (rm^3) (rp^5) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 0])-256 (q^2) (rm^2) (rp^6) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 0])+64 (q^2) rm (rp^7) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 0])+128 (q^2) (rm^4) (rp^2) (((rm rp))^(3/2)) (γ^2) σ (Subscript[kpi, 0])-512 (q^2) (rm^3) (rp^3) (((rm rp))^(3/2)) (γ^2) σ (Subscript[kpi, 0])+768 (q^2) (rm^2) (rp^4) (((rm rp))^(3/2)) (γ^2) σ (Subscript[kpi, 0])-512 (q^2) rm (rp^5) (((rm rp))^(3/2)) (γ^2) σ (Subscript[kpi, 0])+128 (q^2) (rp^6) (((rm rp))^(3/2)) (γ^2) σ (Subscript[kpi, 0])-128 q (rm^5) (rp^4) (γ^3) σ (Subscript[kpi, 0])+512 q (rm^4) (rp^5) (γ^3) σ (Subscript[kpi, 0])-768 q (rm^3) (rp^6) (γ^3) σ (Subscript[kpi, 0])+512 q (rm^2) (rp^7) (γ^3) σ (Subscript[kpi, 0])-128 q rm (rp^8) (γ^3) σ (Subscript[kpi, 0])+32 (rm^4) (rp^4) (Sqrt[rm rp]) (γ^4) σ (Subscript[kpi, 0])-128 (rm^3) (rp^5) (Sqrt[rm rp]) (γ^4) σ (Subscript[kpi, 0])+192 (rm^2) (rp^6) (Sqrt[rm rp]) (γ^4) σ (Subscript[kpi, 0])-128 rm (rp^7) (Sqrt[rm rp]) (γ^4) σ (Subscript[kpi, 0])+32 (rp^8) (Sqrt[rm rp]) (γ^4) σ (Subscript[kpi, 0])+16 I (q^4) (rm^5) (rp^4) (Sqrt[rm rp]) (σ^2) (Subscript[kpi, 0])-48 I (q^4) (rm^4) (rp^5) (Sqrt[rm rp]) (σ^2) (Subscript[kpi, 0])+48 I (q^4) (rm^3) (rp^6) (Sqrt[rm rp]) (σ^2) (Subscript[kpi, 0])-16 I (q^4) (rm^2) (rp^7) (Sqrt[rm rp]) (σ^2) (Subscript[kpi, 0])-64 I (q^3) (rm^5) (rp^5) γ (σ^2) (Subscript[kpi, 0])+192 I (q^3) (rm^4) (rp^6) γ (σ^2) (Subscript[kpi, 0])-192 I (q^3) (rm^3) (rp^7) γ (σ^2) (Subscript[kpi, 0])+64 I (q^3) (rm^2) (rp^8) γ (σ^2) (Subscript[kpi, 0])+32 I (q^2) (rm^4) (rp^5) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[kpi, 0])-96 I (q^2) (rm^3) (rp^6) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[kpi, 0])+96 I (q^2) (rm^2) (rp^7) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[kpi, 0])-32 I (q^2) rm (rp^8) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[kpi, 0])+64 I (q^2) (rm^3) (rp^4) (((rm rp))^(3/2)) (γ^2) (σ^2) (Subscript[kpi, 0])-192 I (q^2) (rm^2) (rp^5) (((rm rp))^(3/2)) (γ^2) (σ^2) (Subscript[kpi, 0])+192 I (q^2) rm (rp^6) (((rm rp))^(3/2)) (γ^2) (σ^2) (Subscript[kpi, 0])-64 I (q^2) (rp^7) (((rm rp))^(3/2)) (γ^2) (σ^2) (Subscript[kpi, 0])-64 I q (rm^4) (rp^6) (γ^3) (σ^2) (Subscript[kpi, 0])+192 I q (rm^3) (rp^7) (γ^3) (σ^2) (Subscript[kpi, 0])-192 I q (rm^2) (rp^8) (γ^3) (σ^2) (Subscript[kpi, 0])+64 I q rm (rp^9) (γ^3) (σ^2) (Subscript[kpi, 0])+16 I (rm^3) (rp^6) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[kpi, 0])-48 I (rm^2) (rp^7) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[kpi, 0])+48 I rm (rp^8) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[kpi, 0])-16 I (rp^9) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[kpi, 0])-16 (q^4) (rm^6) (rp^3) (Sqrt[rm rp]) σ (Subscript[kpi, 1])+64 (q^4) (rm^5) (rp^4) (Sqrt[rm rp]) σ (Subscript[kpi, 1])-96 (q^4) (rm^4) (rp^5) (Sqrt[rm rp]) σ (Subscript[kpi, 1])+64 (q^4) (rm^3) (rp^6) (Sqrt[rm rp]) σ (Subscript[kpi, 1])-16 (q^4) (rm^2) (rp^7) (Sqrt[rm rp]) σ (Subscript[kpi, 1])+64 (q^3) (rm^6) (rp^4) γ σ (Subscript[kpi, 1])-256 (q^3) (rm^5) (rp^5) γ σ (Subscript[kpi, 1])+384 (q^3) (rm^4) (rp^6) γ σ (Subscript[kpi, 1])-256 (q^3) (rm^3) (rp^7) γ σ (Subscript[kpi, 1])+64 (q^3) (rm^2) (rp^8) γ σ (Subscript[kpi, 1])-32 (q^2) (rm^5) (rp^4) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 1])+128 (q^2) (rm^4) (rp^5) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 1])-192 (q^2) (rm^3) (rp^6) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 1])+128 (q^2) (rm^2) (rp^7) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 1])-32 (q^2) rm (rp^8) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 1])-64 (q^2) (rm^4) (rp^3) (((rm rp))^(3/2)) (γ^2) σ (Subscript[kpi, 1])+256 (q^2) (rm^3) (rp^4) (((rm rp))^(3/2)) (γ^2) σ (Subscript[kpi, 1])-384 (q^2) (rm^2) (rp^5) (((rm rp))^(3/2)) (γ^2) σ (Subscript[kpi, 1])+256 (q^2) rm (rp^6) (((rm rp))^(3/2)) (γ^2) σ (Subscript[kpi, 1])-64 (q^2) (rp^7) (((rm rp))^(3/2)) (γ^2) σ (Subscript[kpi, 1])+64 q (rm^5) (rp^5) (γ^3) σ (Subscript[kpi, 1])-256 q (rm^4) (rp^6) (γ^3) σ (Subscript[kpi, 1])+384 q (rm^3) (rp^7) (γ^3) σ (Subscript[kpi, 1])-256 q (rm^2) (rp^8) (γ^3) σ (Subscript[kpi, 1])+64 q rm (rp^9) (γ^3) σ (Subscript[kpi, 1])-16 (rm^4) (rp^5) (Sqrt[rm rp]) (γ^4) σ (Subscript[kpi, 1])+64 (rm^3) (rp^6) (Sqrt[rm rp]) (γ^4) σ (Subscript[kpi, 1])-96 (rm^2) (rp^7) (Sqrt[rm rp]) (γ^4) σ (Subscript[kpi, 1])+64 rm (rp^8) (Sqrt[rm rp]) (γ^4) σ (Subscript[kpi, 1])-16 (rp^9) (Sqrt[rm rp]) (γ^4) σ (Subscript[kpi, 1])-8 I (q^4) (rm^5) (rp^5) (Sqrt[rm rp]) (σ^2) (Subscript[kpi, 1])+24 I (q^4) (rm^4) (rp^6) (Sqrt[rm rp]) (σ^2) (Subscript[kpi, 1])-24 I (q^4) (rm^3) (rp^7) (Sqrt[rm rp]) (σ^2) (Subscript[kpi, 1])+8 I (q^4) (rm^2) (rp^8) (Sqrt[rm rp]) (σ^2) (Subscript[kpi, 1])+32 I (q^3) (rm^5) (rp^6) γ (σ^2) (Subscript[kpi, 1])-96 I (q^3) (rm^4) (rp^7) γ (σ^2) (Subscript[kpi, 1])+96 I (q^3) (rm^3) (rp^8) γ (σ^2) (Subscript[kpi, 1])-32 I (q^3) (rm^2) (rp^9) γ (σ^2) (Subscript[kpi, 1])-16 I (q^2) (rm^4) (rp^6) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[kpi, 1])+48 I (q^2) (rm^3) (rp^7) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[kpi, 1])-48 I (q^2) (rm^2) (rp^8) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[kpi, 1])+16 I (q^2) rm (rp^9) (Sqrt[rm rp]) (γ^2) (σ^2) (Subscript[kpi, 1])-32 I (q^2) (rm^3) (rp^5) (((rm rp))^(3/2)) (γ^2) (σ^2) (Subscript[kpi, 1])+96 I (q^2) (rm^2) (rp^6) (((rm rp))^(3/2)) (γ^2) (σ^2) (Subscript[kpi, 1])-96 I (q^2) rm (rp^7) (((rm rp))^(3/2)) (γ^2) (σ^2) (Subscript[kpi, 1])+32 I (q^2) (rp^8) (((rm rp))^(3/2)) (γ^2) (σ^2) (Subscript[kpi, 1])+32 I q (rm^4) (rp^7) (γ^3) (σ^2) (Subscript[kpi, 1])-96 I q (rm^3) (rp^8) (γ^3) (σ^2) (Subscript[kpi, 1])+96 I q (rm^2) (rp^9) (γ^3) (σ^2) (Subscript[kpi, 1])-32 I q rm (rp^10) (γ^3) (σ^2) (Subscript[kpi, 1])-8 I (rm^3) (rp^7) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[kpi, 1])+24 I (rm^2) (rp^8) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[kpi, 1])-24 I rm (rp^9) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[kpi, 1])+8 I (rp^10) (Sqrt[rm rp]) (γ^4) (σ^2) (Subscript[kpi, 1]))/(32 (((rm-rp))^3) (rp^5) ((((q^2) rm-2 q (Sqrt[rm rp]) γ+rp (γ^2)))^2) σ (rm-rp+I (rp^2) σ))),(Subscript[f2i, 2])->(16 (Sqrt[2]) (q^5) (rm^5) (rp^3) (((9+8 Λ))^(1/4))-48 (Sqrt[2]) (q^5) (rm^4) (rp^4) (((9+8 Λ))^(1/4))+48 (Sqrt[2]) (q^5) (rm^3) (rp^5) (((9+8 Λ))^(1/4))-16 (Sqrt[2]) (q^5) (rm^2) (rp^6) (((9+8 Λ))^(1/4))-64 (Sqrt[2]) (q^4) (rm^4) (rp^3) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4))+192 (Sqrt[2]) (q^4) (rm^3) (rp^4) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4))-192 (Sqrt[2]) (q^4) (rm^2) (rp^5) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4))+64 (Sqrt[2]) (q^4) rm (rp^6) (Sqrt[rm rp]) γ (((9+8 Λ))^(1/4))+96 (Sqrt[2]) (q^3) (rm^4) (rp^4) (γ^2) (((9+8 Λ))^(1/4))-288 (Sqrt[2]) (q^3) (rm^3) (rp^5) (γ^2) (((9+8 Λ))^(1/4))+288 (Sqrt[2]) (q^3) (rm^2) (rp^6) (γ^2) (((9+8 Λ))^(1/4))-96 (Sqrt[2]) (q^3) rm (rp^7) (γ^2) (((9+8 Λ))^(1/4))-64 (Sqrt[2]) (q^2) (rm^3) (rp^4) (Sqrt[rm rp]) (γ^3) (((9+8 Λ))^(1/4))+192 (Sqrt[2]) (q^2) (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) (((9+8 Λ))^(1/4))-192 (Sqrt[2]) (q^2) rm (rp^6) (Sqrt[rm rp]) (γ^3) (((9+8 Λ))^(1/4))+64 (Sqrt[2]) (q^2) (rp^7) (Sqrt[rm rp]) (γ^3) (((9+8 Λ))^(1/4))+16 (Sqrt[2]) q (rm^3) (rp^5) (γ^4) (((9+8 Λ))^(1/4))-48 (Sqrt[2]) q (rm^2) (rp^6) (γ^4) (((9+8 Λ))^(1/4))+48 (Sqrt[2]) q rm (rp^7) (γ^4) (((9+8 Λ))^(1/4))-16 (Sqrt[2]) q (rp^8) (γ^4) (((9+8 Λ))^(1/4))-96 I (q^4) (rm^5) (rp^4) σ (Subscript[f1i, 0])+160 I (q^4) (rm^4) (rp^5) σ (Subscript[f1i, 0])-80 I (q^4) (rm^3) (rp^6) σ (Subscript[f1i, 0])+16 I (q^4) (rm^2) (rp^7) σ (Subscript[f1i, 0])+384 I (q^3) (rm^4) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[f1i, 0])-640 I (q^3) (rm^3) (rp^5) (Sqrt[rm rp]) γ σ (Subscript[f1i, 0])+320 I (q^3) (rm^2) (rp^6) (Sqrt[rm rp]) γ σ (Subscript[f1i, 0])-64 I (q^3) rm (rp^7) (Sqrt[rm rp]) γ σ (Subscript[f1i, 0])-576 I (q^2) (rm^4) (rp^5) (γ^2) σ (Subscript[f1i, 0])+960 I (q^2) (rm^3) (rp^6) (γ^2) σ (Subscript[f1i, 0])-480 I (q^2) (rm^2) (rp^7) (γ^2) σ (Subscript[f1i, 0])+96 I (q^2) rm (rp^8) (γ^2) σ (Subscript[f1i, 0])+384 I q (rm^3) (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[f1i, 0])-640 I q (rm^2) (rp^6) (Sqrt[rm rp]) (γ^3) σ (Subscript[f1i, 0])+320 I q rm (rp^7) (Sqrt[rm rp]) (γ^3) σ (Subscript[f1i, 0])-64 I q (rp^8) (Sqrt[rm rp]) (γ^3) σ (Subscript[f1i, 0])-96 I (rm^3) (rp^6) (γ^4) σ (Subscript[f1i, 0])+160 I (rm^2) (rp^7) (γ^4) σ (Subscript[f1i, 0])-80 I rm (rp^8) (γ^4) σ (Subscript[f1i, 0])+16 I (rp^9) (γ^4) σ (Subscript[f1i, 0])-3 (rm^4) (rp^6) (σ^2) (Subscript[f1i, 0])+8 (q^2) (rm^4) (rp^6) (σ^2) (Subscript[f1i, 0])+40 (q^4) (rm^4) (rp^6) (σ^2) (Subscript[f1i, 0])+12 (rm^3) (rp^7) (σ^2) (Subscript[f1i, 0])-24 (q^2) (rm^3) (rp^7) (σ^2) (Subscript[f1i, 0])-32 (q^4) (rm^3) (rp^7) (σ^2) (Subscript[f1i, 0])-18 (rm^2) (rp^8) (σ^2) (Subscript[f1i, 0])+24 (q^2) (rm^2) (rp^8) (σ^2) (Subscript[f1i, 0])+8 (q^4) (rm^2) (rp^8) (σ^2) (Subscript[f1i, 0])+12 rm (rp^9) (σ^2) (Subscript[f1i, 0])-8 (q^2) rm (rp^9) (σ^2) (Subscript[f1i, 0])-3 (rp^10) (σ^2) (Subscript[f1i, 0])-8 q (rm^3) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 0])-160 (q^3) (rm^3) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 0])+24 q (rm^2) (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 0])+128 (q^3) (rm^2) (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 0])-24 q rm (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 0])-32 (q^3) rm (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 0])+8 q (rp^9) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 0])+240 (q^2) (rm^3) (rp^7) (γ^2) (σ^2) (Subscript[f1i, 0])-192 (q^2) (rm^2) (rp^8) (γ^2) (σ^2) (Subscript[f1i, 0])+48 (q^2) rm (rp^9) (γ^2) (σ^2) (Subscript[f1i, 0])-160 q (rm^2) (rp^7) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f1i, 0])+128 q rm (rp^8) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f1i, 0])-32 q (rp^9) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f1i, 0])+40 (rm^2) (rp^8) (γ^4) (σ^2) (Subscript[f1i, 0])-32 rm (rp^9) (γ^4) (σ^2) (Subscript[f1i, 0])+8 (rp^10) (γ^4) (σ^2) (Subscript[f1i, 0])-64 I (q^4) (rm^5) (rp^5) σ (Subscript[f1i, 1])+160 I (q^4) (rm^4) (rp^6) σ (Subscript[f1i, 1])-128 I (q^4) (rm^3) (rp^7) σ (Subscript[f1i, 1])+32 I (q^4) (rm^2) (rp^8) σ (Subscript[f1i, 1])+256 I (q^3) (rm^4) (rp^5) (Sqrt[rm rp]) γ σ (Subscript[f1i, 1])-640 I (q^3) (rm^3) (rp^6) (Sqrt[rm rp]) γ σ (Subscript[f1i, 1])+512 I (q^3) (rm^2) (rp^7) (Sqrt[rm rp]) γ σ (Subscript[f1i, 1])-128 I (q^3) rm (rp^8) (Sqrt[rm rp]) γ σ (Subscript[f1i, 1])-384 I (q^2) (rm^4) (rp^6) (γ^2) σ (Subscript[f1i, 1])+960 I (q^2) (rm^3) (rp^7) (γ^2) σ (Subscript[f1i, 1])-768 I (q^2) (rm^2) (rp^8) (γ^2) σ (Subscript[f1i, 1])+192 I (q^2) rm (rp^9) (γ^2) σ (Subscript[f1i, 1])+256 I q (rm^3) (rp^6) (Sqrt[rm rp]) (γ^3) σ (Subscript[f1i, 1])-640 I q (rm^2) (rp^7) (Sqrt[rm rp]) (γ^3) σ (Subscript[f1i, 1])+512 I q rm (rp^8) (Sqrt[rm rp]) (γ^3) σ (Subscript[f1i, 1])-128 I q (rp^9) (Sqrt[rm rp]) (γ^3) σ (Subscript[f1i, 1])-64 I (rm^3) (rp^7) (γ^4) σ (Subscript[f1i, 1])+160 I (rm^2) (rp^8) (γ^4) σ (Subscript[f1i, 1])-128 I rm (rp^9) (γ^4) σ (Subscript[f1i, 1])+32 I (rp^10) (γ^4) σ (Subscript[f1i, 1])+4 (q^2) (rm^4) (rp^7) (σ^2) (Subscript[f1i, 1])+16 (q^4) (rm^4) (rp^7) (σ^2) (Subscript[f1i, 1])-12 (q^2) (rm^3) (rp^8) (σ^2) (Subscript[f1i, 1])-24 (q^4) (rm^3) (rp^8) (σ^2) (Subscript[f1i, 1])+12 (q^2) (rm^2) (rp^9) (σ^2) (Subscript[f1i, 1])+8 (q^4) (rm^2) (rp^9) (σ^2) (Subscript[f1i, 1])-4 (q^2) rm (rp^10) (σ^2) (Subscript[f1i, 1])-8 q (rm^3) (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 1])-64 (q^3) (rm^3) (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 1])+24 q (rm^2) (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 1])+96 (q^3) (rm^2) (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 1])-24 q rm (rp^9) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 1])-32 (q^3) rm (rp^9) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 1])+8 q (rp^10) (Sqrt[rm rp]) γ (σ^2) (Subscript[f1i, 1])+4 (rm^3) (rp^8) (γ^2) (σ^2) (Subscript[f1i, 1])+96 (q^2) (rm^3) (rp^8) (γ^2) (σ^2) (Subscript[f1i, 1])-12 (rm^2) (rp^9) (γ^2) (σ^2) (Subscript[f1i, 1])-144 (q^2) (rm^2) (rp^9) (γ^2) (σ^2) (Subscript[f1i, 1])+12 rm (rp^10) (γ^2) (σ^2) (Subscript[f1i, 1])+48 (q^2) rm (rp^10) (γ^2) (σ^2) (Subscript[f1i, 1])-4 (rp^11) (γ^2) (σ^2) (Subscript[f1i, 1])-64 q (rm^2) (rp^8) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f1i, 1])+96 q rm (rp^9) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f1i, 1])-32 q (rp^10) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f1i, 1])+16 (rm^2) (rp^9) (γ^4) (σ^2) (Subscript[f1i, 1])-24 rm (rp^10) (γ^4) (σ^2) (Subscript[f1i, 1])+8 (rp^11) (γ^4) (σ^2) (Subscript[f1i, 1])-32 (q^4) (rm^7) (Subscript[f2i, 0])+224 (q^4) (rm^6) rp (Subscript[f2i, 0])-544 (q^4) (rm^5) (rp^2) (Subscript[f2i, 0])+608 (q^4) (rm^4) (rp^3) (Subscript[f2i, 0])-320 (q^4) (rm^3) (rp^4) (Subscript[f2i, 0])+64 (q^4) (rm^2) (rp^5) (Subscript[f2i, 0])+128 (q^3) (rm^6) (Sqrt[rm rp]) γ (Subscript[f2i, 0])-896 (q^3) (rm^5) rp (Sqrt[rm rp]) γ (Subscript[f2i, 0])+2176 (q^3) (rm^4) (rp^2) (Sqrt[rm rp]) γ (Subscript[f2i, 0])-2432 (q^3) (rm^3) (rp^3) (Sqrt[rm rp]) γ (Subscript[f2i, 0])+1280 (q^3) (rm^2) (rp^4) (Sqrt[rm rp]) γ (Subscript[f2i, 0])-256 (q^3) rm (rp^5) (Sqrt[rm rp]) γ (Subscript[f2i, 0])-192 (q^2) (rm^6) rp (γ^2) (Subscript[f2i, 0])+1344 (q^2) (rm^5) (rp^2) (γ^2) (Subscript[f2i, 0])-3264 (q^2) (rm^4) (rp^3) (γ^2) (Subscript[f2i, 0])+3648 (q^2) (rm^3) (rp^4) (γ^2) (Subscript[f2i, 0])-1920 (q^2) (rm^2) (rp^5) (γ^2) (Subscript[f2i, 0])+384 (q^2) rm (rp^6) (γ^2) (Subscript[f2i, 0])+128 q (rm^5) rp (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 0])-896 q (rm^4) (rp^2) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 0])+2176 q (rm^3) (rp^3) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 0])-2432 q (rm^2) (rp^4) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 0])+1280 q rm (rp^5) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 0])-256 q (rp^6) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 0])-32 (rm^5) (rp^2) (γ^4) (Subscript[f2i, 0])+224 (rm^4) (rp^3) (γ^4) (Subscript[f2i, 0])-544 (rm^3) (rp^4) (γ^4) (Subscript[f2i, 0])+608 (rm^2) (rp^5) (γ^4) (Subscript[f2i, 0])-320 rm (rp^6) (γ^4) (Subscript[f2i, 0])+64 (rp^7) (γ^4) (Subscript[f2i, 0])+64 (q^4) (rm^6) rp Λ (Subscript[f2i, 0])-240 (q^4) (rm^5) (rp^2) Λ (Subscript[f2i, 0])+336 (q^4) (rm^4) (rp^3) Λ (Subscript[f2i, 0])-208 (q^4) (rm^3) (rp^4) Λ (Subscript[f2i, 0])+48 (q^4) (rm^2) (rp^5) Λ (Subscript[f2i, 0])-256 (q^3) (rm^5) rp (Sqrt[rm rp]) γ Λ (Subscript[f2i, 0])+960 (q^3) (rm^4) (rp^2) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 0])-1344 (q^3) (rm^3) (rp^3) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 0])+832 (q^3) (rm^2) (rp^4) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 0])-192 (q^3) rm (rp^5) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 0])+384 (q^2) (rm^5) (rp^2) (γ^2) Λ (Subscript[f2i, 0])-1440 (q^2) (rm^4) (rp^3) (γ^2) Λ (Subscript[f2i, 0])+2016 (q^2) (rm^3) (rp^4) (γ^2) Λ (Subscript[f2i, 0])-1248 (q^2) (rm^2) (rp^5) (γ^2) Λ (Subscript[f2i, 0])+288 (q^2) rm (rp^6) (γ^2) Λ (Subscript[f2i, 0])-256 q (rm^4) (rp^2) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 0])+960 q (rm^3) (rp^3) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 0])-1344 q (rm^2) (rp^4) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 0])+832 q rm (rp^5) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 0])-192 q (rp^6) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 0])+64 (rm^4) (rp^3) (γ^4) Λ (Subscript[f2i, 0])-240 (rm^3) (rp^4) (γ^4) Λ (Subscript[f2i, 0])+336 (rm^2) (rp^5) (γ^4) Λ (Subscript[f2i, 0])-208 rm (rp^6) (γ^4) Λ (Subscript[f2i, 0])+48 (rp^7) (γ^4) Λ (Subscript[f2i, 0])-6 I (rm^6) (rp^2) σ (Subscript[f2i, 0])+16 I (q^2) (rm^6) (rp^2) σ (Subscript[f2i, 0])-32 I (q^4) (rm^6) (rp^2) σ (Subscript[f2i, 0])+36 I (rm^5) (rp^3) σ (Subscript[f2i, 0])-80 I (q^2) (rm^5) (rp^3) σ (Subscript[f2i, 0])+96 I (q^4) (rm^5) (rp^3) σ (Subscript[f2i, 0])-90 I (rm^4) (rp^4) σ (Subscript[f2i, 0])+160 I (q^2) (rm^4) (rp^4) σ (Subscript[f2i, 0])-104 I (q^4) (rm^4) (rp^4) σ (Subscript[f2i, 0])+120 I (rm^3) (rp^5) σ (Subscript[f2i, 0])-160 I (q^2) (rm^3) (rp^5) σ (Subscript[f2i, 0])+48 I (q^4) (rm^3) (rp^5) σ (Subscript[f2i, 0])-90 I (rm^2) (rp^6) σ (Subscript[f2i, 0])+80 I (q^2) (rm^2) (rp^6) σ (Subscript[f2i, 0])-8 I (q^4) (rm^2) (rp^6) σ (Subscript[f2i, 0])+36 I rm (rp^7) σ (Subscript[f2i, 0])-16 I (q^2) rm (rp^7) σ (Subscript[f2i, 0])-6 I (rp^8) σ (Subscript[f2i, 0])-16 I q (rm^5) (rp^2) (Sqrt[rm rp]) γ σ (Subscript[f2i, 0])+128 I (q^3) (rm^5) (rp^2) (Sqrt[rm rp]) γ σ (Subscript[f2i, 0])+80 I q (rm^4) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[f2i, 0])-384 I (q^3) (rm^4) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[f2i, 0])-160 I q (rm^3) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[f2i, 0])+416 I (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[f2i, 0])+160 I q (rm^2) (rp^5) (Sqrt[rm rp]) γ σ (Subscript[f2i, 0])-192 I (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ σ (Subscript[f2i, 0])-80 I q rm (rp^6) (Sqrt[rm rp]) γ σ (Subscript[f2i, 0])+32 I (q^3) rm (rp^6) (Sqrt[rm rp]) γ σ (Subscript[f2i, 0])+16 I q (rp^7) (Sqrt[rm rp]) γ σ (Subscript[f2i, 0])-192 I (q^2) (rm^5) (rp^3) (γ^2) σ (Subscript[f2i, 0])+576 I (q^2) (rm^4) (rp^4) (γ^2) σ (Subscript[f2i, 0])-624 I (q^2) (rm^3) (rp^5) (γ^2) σ (Subscript[f2i, 0])+288 I (q^2) (rm^2) (rp^6) (γ^2) σ (Subscript[f2i, 0])-48 I (q^2) rm (rp^7) (γ^2) σ (Subscript[f2i, 0])+128 I q (rm^4) (rp^3) (Sqrt[rm rp]) (γ^3) σ (Subscript[f2i, 0])-384 I q (rm^3) (rp^4) (Sqrt[rm rp]) (γ^3) σ (Subscript[f2i, 0])+416 I q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[f2i, 0])-192 I q rm (rp^6) (Sqrt[rm rp]) (γ^3) σ (Subscript[f2i, 0])+32 I q (rp^7) (Sqrt[rm rp]) (γ^3) σ (Subscript[f2i, 0])-32 I (rm^4) (rp^4) (γ^4) σ (Subscript[f2i, 0])+96 I (rm^3) (rp^5) (γ^4) σ (Subscript[f2i, 0])-104 I (rm^2) (rp^6) (γ^4) σ (Subscript[f2i, 0])+48 I rm (rp^7) (γ^4) σ (Subscript[f2i, 0])-8 I (rp^8) (γ^4) σ (Subscript[f2i, 0])+3 (rm^5) (rp^4) (σ^2) (Subscript[f2i, 0])-8 (q^2) (rm^5) (rp^4) (σ^2) (Subscript[f2i, 0])+8 (q^4) (rm^5) (rp^4) (σ^2) (Subscript[f2i, 0])-15 (rm^4) (rp^5) (σ^2) (Subscript[f2i, 0])+32 (q^2) (rm^4) (rp^5) (σ^2) (Subscript[f2i, 0])-8 (q^4) (rm^4) (rp^5) (σ^2) (Subscript[f2i, 0])+30 (rm^3) (rp^6) (σ^2) (Subscript[f2i, 0])-48 (q^2) (rm^3) (rp^6) (σ^2) (Subscript[f2i, 0])-30 (rm^2) (rp^7) (σ^2) (Subscript[f2i, 0])+32 (q^2) (rm^2) (rp^7) (σ^2) (Subscript[f2i, 0])+15 rm (rp^8) (σ^2) (Subscript[f2i, 0])-8 (q^2) rm (rp^8) (σ^2) (Subscript[f2i, 0])-3 (rp^9) (σ^2) (Subscript[f2i, 0])+8 q (rm^4) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 0])-32 (q^3) (rm^4) (rp^4) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 0])-32 q (rm^3) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 0])+32 (q^3) (rm^3) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 0])+48 q (rm^2) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 0])-32 q rm (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 0])+8 q (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 0])+48 (q^2) (rm^4) (rp^5) (γ^2) (σ^2) (Subscript[f2i, 0])-48 (q^2) (rm^3) (rp^6) (γ^2) (σ^2) (Subscript[f2i, 0])-32 q (rm^3) (rp^5) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f2i, 0])+32 q (rm^2) (rp^6) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f2i, 0])+8 (rm^3) (rp^6) (γ^4) (σ^2) (Subscript[f2i, 0])-8 (rm^2) (rp^7) (γ^4) (σ^2) (Subscript[f2i, 0])+32 (q^4) (rm^7) rp (Subscript[f2i, 1])-160 (q^4) (rm^6) (rp^2) (Subscript[f2i, 1])+320 (q^4) (rm^5) (rp^3) (Subscript[f2i, 1])-320 (q^4) (rm^4) (rp^4) (Subscript[f2i, 1])+160 (q^4) (rm^3) (rp^5) (Subscript[f2i, 1])-32 (q^4) (rm^2) (rp^6) (Subscript[f2i, 1])-128 (q^3) (rm^6) rp (Sqrt[rm rp]) γ (Subscript[f2i, 1])+640 (q^3) (rm^5) (rp^2) (Sqrt[rm rp]) γ (Subscript[f2i, 1])-1280 (q^3) (rm^4) (rp^3) (Sqrt[rm rp]) γ (Subscript[f2i, 1])+1280 (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ (Subscript[f2i, 1])-640 (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ (Subscript[f2i, 1])+128 (q^3) rm (rp^6) (Sqrt[rm rp]) γ (Subscript[f2i, 1])+192 (q^2) (rm^6) (rp^2) (γ^2) (Subscript[f2i, 1])-960 (q^2) (rm^5) (rp^3) (γ^2) (Subscript[f2i, 1])+1920 (q^2) (rm^4) (rp^4) (γ^2) (Subscript[f2i, 1])-1920 (q^2) (rm^3) (rp^5) (γ^2) (Subscript[f2i, 1])+960 (q^2) (rm^2) (rp^6) (γ^2) (Subscript[f2i, 1])-192 (q^2) rm (rp^7) (γ^2) (Subscript[f2i, 1])-128 q (rm^5) (rp^2) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 1])+640 q (rm^4) (rp^3) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 1])-1280 q (rm^3) (rp^4) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 1])+1280 q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 1])-640 q rm (rp^6) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 1])+128 q (rp^7) (Sqrt[rm rp]) (γ^3) (Subscript[f2i, 1])+32 (rm^5) (rp^3) (γ^4) (Subscript[f2i, 1])-160 (rm^4) (rp^4) (γ^4) (Subscript[f2i, 1])+320 (rm^3) (rp^5) (γ^4) (Subscript[f2i, 1])-320 (rm^2) (rp^6) (γ^4) (Subscript[f2i, 1])+160 rm (rp^7) (γ^4) (Subscript[f2i, 1])-32 (rp^8) (γ^4) (Subscript[f2i, 1])-16 (q^4) (rm^6) (rp^2) Λ (Subscript[f2i, 1])+64 (q^4) (rm^5) (rp^3) Λ (Subscript[f2i, 1])-96 (q^4) (rm^4) (rp^4) Λ (Subscript[f2i, 1])+64 (q^4) (rm^3) (rp^5) Λ (Subscript[f2i, 1])-16 (q^4) (rm^2) (rp^6) Λ (Subscript[f2i, 1])+64 (q^3) (rm^5) (rp^2) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 1])-256 (q^3) (rm^4) (rp^3) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 1])+384 (q^3) (rm^3) (rp^4) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 1])-256 (q^3) (rm^2) (rp^5) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 1])+64 (q^3) rm (rp^6) (Sqrt[rm rp]) γ Λ (Subscript[f2i, 1])-96 (q^2) (rm^5) (rp^3) (γ^2) Λ (Subscript[f2i, 1])+384 (q^2) (rm^4) (rp^4) (γ^2) Λ (Subscript[f2i, 1])-576 (q^2) (rm^3) (rp^5) (γ^2) Λ (Subscript[f2i, 1])+384 (q^2) (rm^2) (rp^6) (γ^2) Λ (Subscript[f2i, 1])-96 (q^2) rm (rp^7) (γ^2) Λ (Subscript[f2i, 1])+64 q (rm^4) (rp^3) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 1])-256 q (rm^3) (rp^4) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 1])+384 q (rm^2) (rp^5) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 1])-256 q rm (rp^6) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 1])+64 q (rp^7) (Sqrt[rm rp]) (γ^3) Λ (Subscript[f2i, 1])-16 (rm^4) (rp^4) (γ^4) Λ (Subscript[f2i, 1])+64 (rm^3) (rp^5) (γ^4) Λ (Subscript[f2i, 1])-96 (rm^2) (rp^6) (γ^4) Λ (Subscript[f2i, 1])+64 rm (rp^7) (γ^4) Λ (Subscript[f2i, 1])-16 (rp^8) (γ^4) Λ (Subscript[f2i, 1])+8 I (q^2) (rm^6) (rp^3) σ (Subscript[f2i, 1])-16 I (q^4) (rm^6) (rp^3) σ (Subscript[f2i, 1])-40 I (q^2) (rm^5) (rp^4) σ (Subscript[f2i, 1])+56 I (q^4) (rm^5) (rp^4) σ (Subscript[f2i, 1])+80 I (q^2) (rm^4) (rp^5) σ (Subscript[f2i, 1])-72 I (q^4) (rm^4) (rp^5) σ (Subscript[f2i, 1])-80 I (q^2) (rm^3) (rp^6) σ (Subscript[f2i, 1])+40 I (q^4) (rm^3) (rp^6) σ (Subscript[f2i, 1])+40 I (q^2) (rm^2) (rp^7) σ (Subscript[f2i, 1])-8 I (q^4) (rm^2) (rp^7) σ (Subscript[f2i, 1])-8 I (q^2) rm (rp^8) σ (Subscript[f2i, 1])-16 I q (rm^5) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[f2i, 1])+64 I (q^3) (rm^5) (rp^3) (Sqrt[rm rp]) γ σ (Subscript[f2i, 1])+80 I q (rm^4) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[f2i, 1])-224 I (q^3) (rm^4) (rp^4) (Sqrt[rm rp]) γ σ (Subscript[f2i, 1])-160 I q (rm^3) (rp^5) (Sqrt[rm rp]) γ σ (Subscript[f2i, 1])+288 I (q^3) (rm^3) (rp^5) (Sqrt[rm rp]) γ σ (Subscript[f2i, 1])+160 I q (rm^2) (rp^6) (Sqrt[rm rp]) γ σ (Subscript[f2i, 1])-160 I (q^3) (rm^2) (rp^6) (Sqrt[rm rp]) γ σ (Subscript[f2i, 1])-80 I q rm (rp^7) (Sqrt[rm rp]) γ σ (Subscript[f2i, 1])+32 I (q^3) rm (rp^7) (Sqrt[rm rp]) γ σ (Subscript[f2i, 1])+16 I q (rp^8) (Sqrt[rm rp]) γ σ (Subscript[f2i, 1])+8 I (rm^5) (rp^4) (γ^2) σ (Subscript[f2i, 1])-96 I (q^2) (rm^5) (rp^4) (γ^2) σ (Subscript[f2i, 1])-40 I (rm^4) (rp^5) (γ^2) σ (Subscript[f2i, 1])+336 I (q^2) (rm^4) (rp^5) (γ^2) σ (Subscript[f2i, 1])+80 I (rm^3) (rp^6) (γ^2) σ (Subscript[f2i, 1])-432 I (q^2) (rm^3) (rp^6) (γ^2) σ (Subscript[f2i, 1])-80 I (rm^2) (rp^7) (γ^2) σ (Subscript[f2i, 1])+240 I (q^2) (rm^2) (rp^7) (γ^2) σ (Subscript[f2i, 1])+40 I rm (rp^8) (γ^2) σ (Subscript[f2i, 1])-48 I (q^2) rm (rp^8) (γ^2) σ (Subscript[f2i, 1])-8 I (rp^9) (γ^2) σ (Subscript[f2i, 1])+64 I q (rm^4) (rp^4) (Sqrt[rm rp]) (γ^3) σ (Subscript[f2i, 1])-224 I q (rm^3) (rp^5) (Sqrt[rm rp]) (γ^3) σ (Subscript[f2i, 1])+288 I q (rm^2) (rp^6) (Sqrt[rm rp]) (γ^3) σ (Subscript[f2i, 1])-160 I q rm (rp^7) (Sqrt[rm rp]) (γ^3) σ (Subscript[f2i, 1])+32 I q (rp^8) (Sqrt[rm rp]) (γ^3) σ (Subscript[f2i, 1])-16 I (rm^4) (rp^5) (γ^4) σ (Subscript[f2i, 1])+56 I (rm^3) (rp^6) (γ^4) σ (Subscript[f2i, 1])-72 I (rm^2) (rp^7) (γ^4) σ (Subscript[f2i, 1])+40 I rm (rp^8) (γ^4) σ (Subscript[f2i, 1])-8 I (rp^9) (γ^4) σ (Subscript[f2i, 1])-4 (q^2) (rm^5) (rp^5) (σ^2) (Subscript[f2i, 1])+16 (q^4) (rm^5) (rp^5) (σ^2) (Subscript[f2i, 1])+16 (q^2) (rm^4) (rp^6) (σ^2) (Subscript[f2i, 1])-40 (q^4) (rm^4) (rp^6) (σ^2) (Subscript[f2i, 1])-24 (q^2) (rm^3) (rp^7) (σ^2) (Subscript[f2i, 1])+32 (q^4) (rm^3) (rp^7) (σ^2) (Subscript[f2i, 1])+16 (q^2) (rm^2) (rp^8) (σ^2) (Subscript[f2i, 1])-8 (q^4) (rm^2) (rp^8) (σ^2) (Subscript[f2i, 1])-4 (q^2) rm (rp^9) (σ^2) (Subscript[f2i, 1])+8 q (rm^4) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 1])-64 (q^3) (rm^4) (rp^5) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 1])-32 q (rm^3) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 1])+160 (q^3) (rm^3) (rp^6) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 1])+48 q (rm^2) (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 1])-128 (q^3) (rm^2) (rp^7) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 1])-32 q rm (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 1])+32 (q^3) rm (rp^8) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 1])+8 q (rp^9) (Sqrt[rm rp]) γ (σ^2) (Subscript[f2i, 1])-4 (rm^4) (rp^6) (γ^2) (σ^2) (Subscript[f2i, 1])+96 (q^2) (rm^4) (rp^6) (γ^2) (σ^2) (Subscript[f2i, 1])+16 (rm^3) (rp^7) (γ^2) (σ^2) (Subscript[f2i, 1])-240 (q^2) (rm^3) (rp^7) (γ^2) (σ^2) (Subscript[f2i, 1])-24 (rm^2) (rp^8) (γ^2) (σ^2) (Subscript[f2i, 1])+192 (q^2) (rm^2) (rp^8) (γ^2) (σ^2) (Subscript[f2i, 1])+16 rm (rp^9) (γ^2) (σ^2) (Subscript[f2i, 1])-48 (q^2) rm (rp^9) (γ^2) (σ^2) (Subscript[f2i, 1])-4 (rp^10) (γ^2) (σ^2) (Subscript[f2i, 1])-64 q (rm^3) (rp^6) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f2i, 1])+160 q (rm^2) (rp^7) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f2i, 1])-128 q rm (rp^8) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f2i, 1])+32 q (rp^9) (Sqrt[rm rp]) (γ^3) (σ^2) (Subscript[f2i, 1])+16 (rm^3) (rp^7) (γ^4) (σ^2) (Subscript[f2i, 1])-40 (rm^2) (rp^8) (γ^4) (σ^2) (Subscript[f2i, 1])+32 rm (rp^9) (γ^4) (σ^2) (Subscript[f2i, 1])-8 (rp^10) (γ^4) (σ^2) (Subscript[f2i, 1])+16 I (q^4) (rm^5) (rp^3) (Sqrt[rm rp]) σ (Subscript[kpi, 0])-48 I (q^4) (rm^4) (rp^4) (Sqrt[rm rp]) σ (Subscript[kpi, 0])+48 I (q^4) (rm^3) (rp^5) (Sqrt[rm rp]) σ (Subscript[kpi, 0])-16 I (q^4) (rm^2) (rp^6) (Sqrt[rm rp]) σ (Subscript[kpi, 0])-64 I (q^3) (rm^5) (rp^4) γ σ (Subscript[kpi, 0])+192 I (q^3) (rm^4) (rp^5) γ σ (Subscript[kpi, 0])-192 I (q^3) (rm^3) (rp^6) γ σ (Subscript[kpi, 0])+64 I (q^3) (rm^2) (rp^7) γ σ (Subscript[kpi, 0])+32 I (q^2) (rm^4) (rp^4) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 0])-96 I (q^2) (rm^3) (rp^5) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 0])+96 I (q^2) (rm^2) (rp^6) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 0])-32 I (q^2) rm (rp^7) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 0])+64 I (q^2) (rm^3) (rp^3) (((rm rp))^(3/2)) (γ^2) σ (Subscript[kpi, 0])-192 I (q^2) (rm^2) (rp^4) (((rm rp))^(3/2)) (γ^2) σ (Subscript[kpi, 0])+192 I (q^2) rm (rp^5) (((rm rp))^(3/2)) (γ^2) σ (Subscript[kpi, 0])-64 I (q^2) (rp^6) (((rm rp))^(3/2)) (γ^2) σ (Subscript[kpi, 0])-64 I q (rm^4) (rp^5) (γ^3) σ (Subscript[kpi, 0])+192 I q (rm^3) (rp^6) (γ^3) σ (Subscript[kpi, 0])-192 I q (rm^2) (rp^7) (γ^3) σ (Subscript[kpi, 0])+64 I q rm (rp^8) (γ^3) σ (Subscript[kpi, 0])+16 I (rm^3) (rp^5) (Sqrt[rm rp]) (γ^4) σ (Subscript[kpi, 0])-48 I (rm^2) (rp^6) (Sqrt[rm rp]) (γ^4) σ (Subscript[kpi, 0])+48 I rm (rp^7) (Sqrt[rm rp]) (γ^4) σ (Subscript[kpi, 0])-16 I (rp^8) (Sqrt[rm rp]) (γ^4) σ (Subscript[kpi, 0])-8 I (q^4) (rm^5) (rp^4) (Sqrt[rm rp]) σ (Subscript[kpi, 1])+24 I (q^4) (rm^4) (rp^5) (Sqrt[rm rp]) σ (Subscript[kpi, 1])-24 I (q^4) (rm^3) (rp^6) (Sqrt[rm rp]) σ (Subscript[kpi, 1])+8 I (q^4) (rm^2) (rp^7) (Sqrt[rm rp]) σ (Subscript[kpi, 1])+32 I (q^3) (rm^5) (rp^5) γ σ (Subscript[kpi, 1])-96 I (q^3) (rm^4) (rp^6) γ σ (Subscript[kpi, 1])+96 I (q^3) (rm^3) (rp^7) γ σ (Subscript[kpi, 1])-32 I (q^3) (rm^2) (rp^8) γ σ (Subscript[kpi, 1])-16 I (q^2) (rm^4) (rp^5) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 1])+48 I (q^2) (rm^3) (rp^6) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 1])-48 I (q^2) (rm^2) (rp^7) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 1])+16 I (q^2) rm (rp^8) (Sqrt[rm rp]) (γ^2) σ (Subscript[kpi, 1])-32 I (q^2) (rm^3) (rp^4) (((rm rp))^(3/2)) (γ^2) σ (Subscript[kpi, 1])+96 I (q^2) (rm^2) (rp^5) (((rm rp))^(3/2)) (γ^2) σ (Subscript[kpi, 1])-96 I (q^2) rm (rp^6) (((rm rp))^(3/2)) (γ^2) σ (Subscript[kpi, 1])+32 I (q^2) (rp^7) (((rm rp))^(3/2)) (γ^2) σ (Subscript[kpi, 1])+32 I q (rm^4) (rp^6) (γ^3) σ (Subscript[kpi, 1])-96 I q (rm^3) (rp^7) (γ^3) σ (Subscript[kpi, 1])+96 I q (rm^2) (rp^8) (γ^3) σ (Subscript[kpi, 1])-32 I q rm (rp^9) (γ^3) σ (Subscript[kpi, 1])-8 I (rm^3) (rp^6) (Sqrt[rm rp]) (γ^4) σ (Subscript[kpi, 1])+24 I (rm^2) (rp^7) (Sqrt[rm rp]) (γ^4) σ (Subscript[kpi, 1])-24 I rm (rp^8) (Sqrt[rm rp]) (γ^4) σ (Subscript[kpi, 1])+8 I (rp^9) (Sqrt[rm rp]) (γ^4) σ (Subscript[kpi, 1]))/(32 (((rm-rp))^4) (rp^2) ((((q^2) rm-2 q (Sqrt[rm rp]) γ+rp (γ^2)))^2) (rm-rp+I (rp^2) σ))};

(*Coefficient[Series[ (xx^1){syse[[1]]xx,syse[[2]],syse[[3]],xx syse[[4]],syse[[5]]}/.r->((1+rp xx)/xx),{xx,∞,0}],xx]*)

(*Solve[%==0,{(Subscript[h1i, 2]),(Subscript[h0i, 2]),(Subscript[kpi, 2]),(Subscript[f1i, 2]),(Subscript[f2i, 2])}]//Factor*)

Solve[%==0,{(Subscript[f2i, 2])}]//Factor

h0[r_]:=Sum[(Subscript[h0i, i]) (((r-rp))^(i-1)),{i,0,2}];
h1[r_]:=Sum[(Subscript[h1i, i]) (((r-rp))^(i-1)),{i,0,2}];
kp[r_]:=Sum[(Subscript[kpi, i]) (((r-rp))^i),{i,0,2}];
f1[r_]:=Sum[(Subscript[f1i, i]) (((r-rp))^i),{i,0,2}];
f2[r_]:=Sum[(Subscript[f2i, i]) (((r-rp))^(i-1)),{i,0,2}];

Clear[Kp,H1,H0,f02,f12]

bounno={Kp[r]==kp[r],
H1[r]==h1[r],
H0[r]==h0[r],
f02[r]==f1[r],
f12[r]==f2[r]};

bounno

Beep[]

Now we set the boundary conditions at infinity to do the matching

Clear[H0,H1,Kp,f02,f12,h0,h1,kp,f1,f2];
ordh=5;

Integrate[(1/(fp[r])),r]//Simplify

rst[r_]:=((r rm-r rp+(rm^2) Log[r-rm]-(rp^2) Log[r-rp])/(rm-rp));

H0[r_]:=Exp[I σ rst[r]]h0[r];
H1[r_]:=Exp[I σ rst[r]]h1[r];
Kp[r_]:=Exp[I σ rst[r]]kp[r];
f02[r_]:=Exp[I σ rst[r]]f1[r];
f12[r_]:=Exp[I σ rst[r]]f2[r];

syse=Collect[Table[((eqhom[[i]])/(Exp[I σ rst[r]])),{i,1,Length[eqhom]}],varc,FullSimplify];

h0[r_]:=Sum[(Subscript[h0i, i]) (((r))^(-i+1)),{i,0,ordh}];
h1[r_]:=Sum[(Subscript[h1i, i]) (((r))^(-i+1)),{i,0,ordh}];
kp[r_]:=Sum[(Subscript[kpi, i]) (((r))^(-i)),{i,0,ordh}];
f1[r_]:=Sum[(Subscript[f1i, i]) (((r))^(-i)),{i,0,ordh}];
f2[r_]:=Sum[(Subscript[f2i, i]) (((r))^(-i)),{i,0,ordh}];

rucoin={(Subscript[h1i, 0])->((I (Subscript[h0i, 0]))/σ),(Subscript[h0i, 0])->I σ (Subscript[kpi, 0]),(Subscript[h1i, 1])->((I (Subscript[h0i, 1]))/σ),(Subscript[f1i, 0])->-(Subscript[f2i, 0]),(Subscript[kpi, 1])->0,(Subscript[h0i, 1])->-Λ (Subscript[kpi, 0])+I (rm σ (Subscript[kpi, 0])+rp σ (Subscript[kpi, 0])),(Subscript[h0i, 2])->-I σ (Subscript[h1i, 2]),(Subscript[f2i, 1])->-(Subscript[f1i, 1])+rm (Subscript[f2i, 0])+rp (Subscript[f2i, 0]),(Subscript[h1i, 2])->(1/(4 (σ^2)))(8 I (Sqrt[rm rp]) σ (Subscript[f2i, 0])+(2 (Λ^2)+Λ (2-4 I rm σ-4 I rp σ)-σ (4 (rm^2) σ+rm (3 I+4 rp σ)+rp (3 I+4 rp σ))) (Subscript[kpi, 0])),(Subscript[kpi, 2])->((-8 I (Sqrt[rm rp]) σ (Subscript[f2i, 0])+(2 Λ+2 (Λ^2)-3 I (rm+rp) σ) (Subscript[kpi, 0]))/(4 (σ^2))),(Subscript[h0i, 3])->-I σ (Subscript[h1i, 3]),(Subscript[f1i, 2])->(1/(σ^2))(-σ (I+rm σ+rp σ) (Subscript[f1i, 1])+(2+2 Λ+(rm^2) (σ^2)+rm rp (σ^2)+(rp^2) (σ^2)) (Subscript[f2i, 0])-σ (σ (Subscript[f2i, 2])+I (Sqrt[rm rp]) (Subscript[kpi, 0]))),(Subscript[f1i, 1])->-((2 I (1+Λ) (Subscript[f2i, 0])+(Sqrt[rm rp]) σ (Subscript[kpi, 0]))/(2 σ)),(Subscript[kpi, 3])->(1/(12 (σ^3)))(-24 (Sqrt[rm rp]) σ (Subscript[f2i, 0])-2 I Λ (Subscript[kpi, 0])+2 I (Λ^2) (Subscript[kpi, 0])+4 I (Λ^3) (Subscript[kpi, 0])-3 rm σ (Subscript[kpi, 0])-3 rp σ (Subscript[kpi, 0])+6 rm Λ σ (Subscript[kpi, 0])+6 rp Λ σ (Subscript[kpi, 0])+8 I rm rp (σ^2) (Subscript[kpi, 0])),(Subscript[h0i, 4])->((8 (Sqrt[rm rp]) σ (Subscript[f2i, 0])-4 I (σ^4) (Subscript[h1i, 4])+2 I Λ (Subscript[kpi, 0])+2 I (Λ^2) (Subscript[kpi, 0])+3 rm σ (Subscript[kpi, 0])+3 rp σ (Subscript[kpi, 0]))/(4 (σ^3))),(Subscript[h1i, 3])->-(1/(12 (σ^3)))(24 (Sqrt[rm rp]) σ (Subscript[f2i, 0])+24 (Sqrt[rm rp]) Λ σ (Subscript[f2i, 0])-24 I rm (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 0])-24 I rp (Sqrt[rm rp]) (σ^2) (Subscript[f2i, 0])-2 I Λ (Subscript[kpi, 0])-4 I (Λ^2) (Subscript[kpi, 0])-2 I (Λ^3) (Subscript[kpi, 0])-3 rm σ (Subscript[kpi, 0])-3 rp σ (Subscript[kpi, 0])-9 rm Λ σ (Subscript[kpi, 0])-9 rp Λ σ (Subscript[kpi, 0])-6 rm (Λ^2) σ (Subscript[kpi, 0])-6 rp (Λ^2) σ (Subscript[kpi, 0])+9 I (rm^2) (σ^2) (Subscript[kpi, 0])+2 I rm rp (σ^2) (Subscript[kpi, 0])+9 I (rp^2) (σ^2) (Subscript[kpi, 0])+12 I (rm^2) Λ (σ^2) (Subscript[kpi, 0])+12 I rm rp Λ (σ^2) (Subscript[kpi, 0])+12 I (rp^2) Λ (σ^2) (Subscript[kpi, 0])+12 (rm^3) (σ^3) (Subscript[kpi, 0])+12 (rm^2) rp (σ^3) (Subscript[kpi, 0])+12 rm (rp^2) (σ^3) (Subscript[kpi, 0])+12 (rp^3) (σ^3) (Subscript[kpi, 0])),(Subscript[f1i, 3])->(1/(4 (σ^3)))((-2 (Λ^2) (-2 I+rm σ+rp σ)+2 I Λ (2+3 I rp σ+2 (rm^2) (σ^2)+2 (rp^2) (σ^2)+rm σ (3 I+2 rp σ))+4 σ ((rm^3) (σ^2)+(rm^2) σ (I+rp σ)+rm (-1+I rp σ+(rp^2) (σ^2))+rp (-1+I rp σ+(rp^2) (σ^2)))) (Subscript[f2i, 0])+σ (-4 (σ^2) (Subscript[f2i, 3])+((Sqrt[rm rp]) Λ (2+I rm σ+I rp σ)+2 σ (I rp (Sqrt[rm rp])+((Sqrt[(rm^5) rp])+(Sqrt[rm (rp^5)])) σ+rm (Sqrt[rm rp]) (I+rp σ))) (Subscript[kpi, 0]))),(Subscript[f2i, 2])->(1/(4 (σ^2)))((-2 (Λ^2)+2 I Λ (I+2 rm σ+2 rp σ)+4 σ ((rm^2) σ+rm (I+rp σ)+rp (I+rp σ))) (Subscript[f2i, 0])+(Sqrt[rm rp]) σ (I Λ+2 (rm+rp) σ) (Subscript[kpi, 0])),(Subscript[kpi, 4])->(1/(32 (σ^4)))(8 (Sqrt[rm rp]) σ (8 I-8 I Λ-4 I (Λ^2)+5 rm σ+5 rp σ) (Subscript[f2i, 0])+(8 (Λ^3)-4 (Λ^4)+4 (Λ^2) (1+4 I rm σ+4 I rp σ)-8 Λ (1+I rp σ+rm σ (I+3 rp σ))+σ (15 (rm^2) σ+3 rp (4 I+5 rp σ)+2 rm (6 I+23 rp σ))) (Subscript[kpi, 0])),(Subscript[h0i, 5])->-(1/(4 (σ^4)))(8 (Sqrt[rm rp]) σ (4 I+I Λ+rm σ+rp σ) (Subscript[f2i, 0])+4 I (σ^5) (Subscript[h1i, 5])+(2 (Λ^3)+2 I (Λ^2) (I+rm σ+rp σ)-I Λ (-4 I+rm σ+rp σ)+σ (3 (rm^2) σ+3 rp (2 I+rp σ)+2 rm (3 I+7 rp σ))) (Subscript[kpi, 0])),(Subscript[h1i, 4])->(1/(96 (σ^4)))(24 I σ (-8 (Sqrt[rm rp])-4 (Sqrt[rm rp]) (Λ^2)+9 I rp (Sqrt[rm rp]) σ+8 (Sqrt[(rm^5) rp]) (σ^2)+8 (Sqrt[rm (rp^5)]) (σ^2)+8 I (Sqrt[rm rp]) Λ (I+rm σ+rp σ)+rm (Sqrt[rm rp]) σ (9 I+8 rp σ)) (Subscript[f2i, 0])-(4 (Λ^4)+8 (Λ^3) (1-2 I rm σ-2 I rp σ)-4 (Λ^2) (5+8 I rp σ+12 (rm^2) (σ^2)+12 (rp^2) (σ^2)+4 rm σ (2 I+3 rp σ))+8 I Λ (3 I-2 rp σ+9 I (rp^2) (σ^2)+12 (rm^3) (σ^3)+12 (rp^3) (σ^3)+3 (rm^2) (σ^2) (3 I+4 rp σ)+rm σ (-2+5 I rp σ+12 (rp^2) (σ^2)))+σ (96 (rm^4) (σ^3)+24 (rm^3) (σ^2) (3 I+4 rp σ)+(rm^2) σ (-15+16 I rp σ+96 (rp^2) (σ^2))+3 rp (12 I-5 rp σ+24 I (rp^2) (σ^2)+32 (rp^3) (σ^3))+2 rm (18 I+9 rp σ+8 I (rp^2) (σ^2)+48 (rp^3) (σ^3)))) (Subscript[kpi, 0])),(Subscript[f1i, 4])->(1/(24 (σ^4)))(4 (-I (Λ^3) (-3 I+rm σ+rp σ)-(Λ^2) (-3+5 I rp σ+3 (rm^2) (σ^2)+3 (rp^2) (σ^2)+rm σ (5 I+3 rp σ))+I Λ (-6 I+5 rp σ+6 I (rp^2) (σ^2)+6 (rm^3) (σ^3)+6 (rp^3) (σ^3)+6 (rm^2) (σ^2) (I+rp σ)+rm σ (5+3 I rp σ+6 (rp^2) (σ^2)))+σ (6 (rm^4) (σ^3)+6 (rm^3) (σ^2) (I+rp σ)+(rm^2) σ (-3+4 I rp σ+6 (rp^2) (σ^2))+3 rp (3 I-rp σ+2 I (rp^2) (σ^2)+2 (rp^3) (σ^3))+rm (9 I-6 rp σ+4 I (rp^2) (σ^2)+6 (rp^3) (σ^3)))) (Subscript[f2i, 0])+3 σ (-8 (σ^3) (Subscript[f2i, 4])+(2 I Λ (-3 (Sqrt[rm rp])+I ((Sqrt[(rm^3) rp])+(Sqrt[rm (rp^3)])) σ+((((rm rp))^(3/2))+(Sqrt[(rm^5) rp])+(Sqrt[rm (rp^5)])) (σ^2))+σ (3 ((Sqrt[(rm^3) rp])+(Sqrt[rm (rp^3)]))-2 I (((rm rp))^(3/2)) σ+I ((Sqrt[(rm^5) rp])+(Sqrt[rm (rp^5)])) σ+4 (rm^(5/2)) (rp^(3/2)) (σ^2)+4 (rm^(3/2)) (rp^(5/2)) (σ^2)+4 ((Sqrt[(rm^7) rp])+(Sqrt[rm (rp^7)])) (σ^2))) (Subscript[kpi, 0]))),(Subscript[f2i, 3])->(1/(24 (σ^3)))(4 (-I (Λ^3)+(Λ^2) (I-3 rm σ-3 rp σ)+2 I Λ (1+3 I rp σ+3 (rm^2) (σ^2)+3 (rp^2) (σ^2)+3 rm σ (I+rp σ))+σ (6 (rm^3) (σ^2)+6 (rm^2) σ (I+rp σ)+3 rp (-1+2 I rp σ+2 (rp^2) (σ^2))+rm (-3+4 I rp σ+6 (rp^2) (σ^2)))) (Subscript[f2i, 0])+3 σ (2 Λ ((Sqrt[rm rp])+I ((Sqrt[(rm^3) rp])+(Sqrt[rm (rp^3)])) σ)+σ (I ((Sqrt[(rm^3) rp])+(Sqrt[rm (rp^3)]))+4 (((rm rp))^(3/2)) σ+4 ((Sqrt[(rm^5) rp])+(Sqrt[rm (rp^5)])) σ)) (Subscript[kpi, 0]))};

(*Series[syse//.rucoin,{r,∞,4}]//Simplify*)

h0[r_]:=Sum[(Subscript[h0i, i]) (((r))^(-i+1)),{i,0,3}];
h1[r_]:=Sum[(Subscript[h1i, i]) (((r))^(-i+1)),{i,0,3}];
kp[r_]:=Sum[(Subscript[kpi, i]) (((r))^(-i)),{i,0,3}];
f1[r_]:=Sum[(Subscript[f1i, i]) (((r))^(-i)),{i,0,3}];
f2[r_]:=Sum[(Subscript[f2i, i]) (((r))^(-i)),{i,0,3}];

bouinou={(*Kp[r]==*)Kp[r],
(*H1[r]==*)H1[r],
(*H0[r]==*)H0[r],
(*f02[r]==*)f02[r],
(*f12[r]==*)f12[r]}//.rucoin/.{(Subscript[kpi, 0])->Aog,(Subscript[f2i, 0])->Aoe};
bouinin=bouinou/.{σ->-σ,Aog->Aig,Aoe->Aie};

Ψinf=Table[bouinou[[i]]+bouinin[[i]],{i,1,Length[bouinin]}];

Clear[H0,H1,Kp,f02,f12,h0,h1,kp,f1,f2];

Beep[]

Integrating the differential equations

eqs=Table[eqhom[[i]]==source[[i]],{i,1,Length[eqhom]}];

soleqs=Solve[eqs,{H0'[r],Kp'[r],H1'[r],f02'[r],f12'[r]}][[1]]//FullSimplify

eqs=Table[soleqs[[i,1]]==soleqs[[i,2]],{i,1,Length[soleqs]}];

INTS[σ0_,l0_,Q0_,q0_,γ0_,ϵh0_,rinf0_,e1h_,e2h_]:=(
param={Λ->(1/2)(l0-1)(l0+2),σ->σ0,γ->γ0,rp->1+(Sqrt[1-(Q0^2)]),rm->1-(Sqrt[1-(Q0^2)]),μp->1,q->q0};
ruleP={MaxSteps->Infinity,PrecisionGoal->13,AccuracyGoal->13};
(**from the horizon*)
dt=(dT[r]/.param);
RHo=rp ϵh0/.param;
(*TinN=NDSolveValue[{T'[r]==dt,T[RHo]==0},T,{r,RHo,rinf0},ruleP][r];*)
EQS=Union[eqs,{T'[r]==dt}]/.param;
ruexp=Union[rucoen,{(Subscript[kpi, 0])->e1h,(Subscript[f1i, 0])->e2h}]/.param;
BOU=Union[bounno,{T[RHo]==0}]/.r->(RHo)/.param//.ruexp//Simplify;
(**)
solsy=NDSolve[Union[EQS,BOU],{Kp,H1,H0,f12,f02,T},{r,RHo,rinf0},ruleP][[1]];
Ψsol={Kp[r],H1[r],H0[r],f02[r],f12[r]}/.solsy;
dΨsol=D[{Kp[r],H1[r],H0[r],f02[r],f12[r]},r]/.solsy;
(*Matching with the far solution to find amplitudes*)
eqsinf={dΨsol[[5]]bouinou[[5]]-D[bouinou[[5]],r]Ψsol[[5]],dΨsol[[1]]bouinou[[1]]-Ψsol[[1]]D[bouinou[[1]],r]}/.{Aog->1,Aoe->1}/.r->rinf0/.param//Simplify;
flug=(((l0+2)(l0+1)(l0-1)l0 )/(32π))((Abs[Ψsol[[1]]/.r->rinf0])^2);
flue=(((l0+1)l0 )/(2π))((Abs[Ψsol[[5]]/.r->rinf0])^2);

)

FR[σ0_,l0_,Q0_,q0_,γ0_,ϵh0_,rinf0_,e1h_?NumberQ,e2h_?NumberQ]:=
(
INTS[σ0,l0,Q0,q0,γ0,ϵh0,rinf0,e1h,e2h];
eqsinf
)

tt=ParallelTable[{xx,Abs[FR[.002,2,0.6,0.6,1.1,1.001,2 (10^3),xx,-1][[1]]]},{xx,-7.,4,0.5}];

Monitor[FindRoot[FR[.05,3,0.02,0.05,1.001,1.0001,2 (10^2),xx,yy],{xx,0.7145184134680802` -0.08753912321294872` I},{yy,0.0263543171212365` +0.000026168612413231117` I}],{xx,yy}]

flue
flug

Beep[]

wwi=0.05;
wfi=0.7;
rooi={xx->0.5337993699539045` -0.03221544109787153` I,yy->0.015573999936069205` -0.000024830481234851818` I};
qi=0.1;Qi=0.1;
γi=1.001;
li=3;
pts=60;

Monitor[Do[
wii=wwi+(i/pts)(wfi-wwi);
xv={xx,yy}/.rooi;
rooi=FindRoot[FR[wii,li,Qi,qi,γi,1.001,2 ((10^2)/wii),xx,yy],{xx,xv[[1]]},{yy,xv[[2]]}]//Quiet;
fg[i]=flug;
fe[i]=flue;
wvi[i]=wii;
tel=Table[{wvi[j],fe[j]},{j,0,i}];
tgr=Table[{wvi[j],fg[j]},{j,0,i}];
PP=ListPlot[tgr];
PP2=ListPlot[tel];
,{i,0,pts}],{i,wii,flue,PP,PP2}];

tl3g1=tgr;
tl3e1=tel;

Beep[]

Integrating the differential equations: dipole mode

eqs=Table[eqhom[[i]]==source[[i]],{i,4,Length[eqhom]}];

soleqs=Solve[eqs,{f02'[r],f12'[r]}][[1]]//FullSimplify

eqs=Table[soleqs[[i,1]]==soleqs[[i,2]],{i,1,Length[soleqs]}]/.Kp[r]->0;

INTS[σ0_,l0_,Q0_,q0_,γ0_,ϵh0_,rinf0_,e2h_]:=(
param={Λ->(1/2)(l0-1)(l0+2),σ->σ0,γ->γ0,rp->1+(Sqrt[1-(Q0^2)]),rm->1-(Sqrt[1-(Q0^2)]),μp->1,q->q0};
ruleP={MaxSteps->Infinity(*,PrecisionGoal->10,AccuracyGoal->10*)};
(**from the horizon*)
dt=(dT[r]/.param);
RHo=rp ϵh0/.param;
(*TinN=NDSolveValue[{T'[r]==dt,T[RHo]==0},T,{r,RHo,rinf0},ruleP][r];*)
EQS=Union[eqs,{T'[r]==dt}]/.param;
ruexp=Union[rucoen,{(Subscript[kpi, 0])->0,(Subscript[f1i, 0])->e2h}]/.param;
BOU=Union[{bounno[[4]],bounno[[5]]},{T[RHo]==0}]/.r->(RHo)/.param//.ruexp//Simplify;
(**)
solsy=NDSolve[Union[EQS,BOU],{f12,f02,T},{r,RHo,rinf0},ruleP][[1]];
Ψsol={f02[r],f12[r]}/.solsy;
dΨsol=D[{f02[r],f12[r]},r]/.solsy;
(*Matching with the far solution to find amplitudes*)
eqsinf={((dΨsol[[2]])/(D[bouinou[[5]],r]))-((Ψsol[[2]])/(bouinou[[5]]))}/.{Aog->0,Aoe->1}/.r->rinf0/.param//Simplify;
(*flug=(((l0+2)(l0+1)(l0-1)l0 )/(32π))((Abs[Ψsol[[1]]/.r->rinf0])^2);*)
flue=(((l0+1)l0 )/(2π))((Abs[Ψsol[[1]]/.r->rinf0])^2);

)

FR[σ0_,l0_,Q0_,q0_,γ0_,ϵh0_,rinf0_,e1h_?NumberQ]:=
(
INTS[σ0,l0,Q0,q0,γ0,ϵh0,rinf0,e1h];
eqsinf
)

tt=ParallelTable[{xx,Abs[FR[0.05,1,0.001,-1,2,1.0001,4 (10^2),xx][[1]]]},{xx,-10,10,0.5}];

ListPlot[tt]

sxx=Monitor[FindRoot[FR[0.02,1,0.05,0.05,1.001,1.0001,8 (10^2),xx],{xx,-1.228599461710037`+0.008215336682785849` I}],xx]

flue

tl2e05[[1]]

Beep[]

wwi=0.02;
wfi=0.7;
rooi={xx->0.06089077578018265` -0.000781905023539026` I};
γi=1.001;
pts=60;
qi=0.08;Qi=0.08;

Monitor[Do[
wii=wwi+(i/pts)(wfi-wwi);
xv={xx}/.rooi;
rooi=FindRoot[FR[wii,1,Qi,qi,γi,1.0001,3 ((10^2)/wii),xx],{xx,xv[[1]]}]//Quiet;
fe[i]=flue;
wvi[i]=wii;
tqs=Table[{wvi[j],fe[j]},{j,0,i}];
PP2=ListPlot[{tqs}];
,{i,0,pts}],{i,wii,xv[[1]],flue,PP2}];

Beep[]
td08=tqs;

ListPlot[{td02,td05,td08,td1}]

ttots=Import["EM_l1_gamma1.1.dat"];

ListPlot[{tqs,tl2},PlotRange->{{0,1.2},{0,0.25}},Frame->True,Joined->True]

ttots[[2]]