Angular and energy distributions in a three - body T-system: 
Two identical particles with spin 1/2 and a core with arbitrary spin

by Natalia Shulgina

(shulgina@fy.chalmers.se)

This Notebook allows deriving a normalized energy and angular correlation function W(ϵ, cos θ). The calculation is performed in a Jacobi T-system (see figure). The relative energy is defined as (Subscript[ϵ, nn])=(Subscript[E, nn])/E, where (Subscript[E, nn])=(Subscript[p, nn]^2)/(Subscript[μ, 12]) and θ is the angle between the Jacobi vectors. The correlation function is derived starting from the three-body amplitude, (Subscript[F, JM]), which for the T-system is given as:
(Subscript[F, JM])=(∑_( K, S, L, lx, ly, Jh))(Subscript[A, K Sx L lx ly Jh])(E) [ (Subscript[Υ, lx ly]^(K L (Subscript[M, L])))(α, (Overscript[(Subscript[p, 12]), ⋀]),(Subscript[(Overscript[p, ⋀]), 3-(12)])) ⊗ χ((Subscript[σ, 1]),(Subscript[σ, 2]),(Subscript[J, c]))]_JM
	where (Subscript[l, x]) and (Subscript[l, y]) are the angular momenta associated with (Subscript[p, 12]) and (Subscript[p, 3-(12)]), respectively (see figure). K is the hypermomentum defined as K=(Subscript[l, x])+(Subscript[l, y])+2n, (n= 0, 1, 2, 3...). The angular momentum L is the vector sum of (Subscript[l, x]) and (Subscript[l, y]) , (Subscript[σ, 1]), (Subscript[σ, 2]), are nucleon spins, which are coupled to form (Subscript[S, x]). Then L and (Subscript[S, x]) are coupled to the halo spin (Subscript[J, h]) which is coupled to core spin (Subscript[J, c]) to give the total spin J. The brackets [...]_JM denotes the vector addition. The variable α is the hyperangle defined as: α = arcsin[(Sqrt[(Subscript[ϵ, nn])]) ]. The explicit form of the Hyperharmonic function (Subscript[Υ, lx ly]^(K L (Subscript[M, L])))(α, (Overscript[(Subscript[p, 12]), ⋀]),(Subscript[(Overscript[p, ⋀]), 3-(12)])) in momentum representation is:
(Subscript[Υ, lx ly]^(K L (Subscript[M, L])))(α, (Overscript[(Subscript[p, 12]), ⋀]),(Subscript[(Overscript[p, ⋀]), 3-(12)]))=(Subscript[Ψ, K]^(lx ly)) (α) (∑_(mx my))(Subscript[C, lx mx ly my]^(L (Subscript[M, L]))) (Subscript[Y, lx mx])( (Overscript[(Subscript[p, 12]), ⋀])) (Subscript[Y, ly my])((Subscript[(Overscript[p, ⋀]), 3-(12)]))
with
(Subscript[Ψ, K]^(lx ly)) (α) =(Subscript[N, K]^(lx ly)) (sin^lx)α (cos^ly)α (Subscript[P, (K-lx-ly)/2]^(lx+1/2  ly+1/2))(cos 2α)
Here (Subscript[P, (K-lx-ly)/2]^(lx+1/2  ly+1/2))(cos 2α) is Jacobi polynomial and  (Subscript[N, K]^(lx ly)) is a normalization coefficient:
(Subscript[N, K]^(lx ly))=(Sqrt[((2((K-lx-ly)/2)!(K+2)((K+lx+ly)/2+1)!)/(Γ[(K-ly+lx+3)/2]Γ[(K+ly-lx+3)/2]))])
	By summing of squared modulo of the three-body amplitude over the total spin projections M the correlation function 
W(ϵ, cos θ) is obtained:
W(ϵ, cos θ) =(1/(2J+1))(∑_(M=-J)^J)|(Subscript[F, JM])((|)^2)
	To run this Notebook go to the Input section and give the values for J, Kmax, Jc, Parity and Key of your own choice. Then just evaluate the Notebook. Note, that this takes some time for large values of K and J. Before starting a new evaluation don't forget to clear the variables. 

	In the section "Collection of examples" you can find the correlation function for some typical cases.

Clear[WF,WFc,YAh,YAhc,Corr,CD,CD1,dis,enedis,angdis]

Input

Give following input values:
J - the total spin of the three-body system
Kmax - the maximum value for the hypermomentum
Jc - the spin of the core
Parity - defines parity of the halo system, 0 for even parity, 1 for odd parity. Parity=(((-1))^(lx+ly)) 
Key =0 gives real amplitudes, Key=1 gives complex amplitudes

J=0;
Kmax=4;
Jc=0;
Parity=0;
Key=1;

Rules

RuleSpin:={Θ[ms1_,ms2_,ms3_]*Θ[ms11_,ms21_,ms31_]->KroneckerDelta[ms1,ms11]*KroneckerDelta[ms2,ms21]*KroneckerDelta[ms3,ms31],Θ[ms1_,ms2_,ms3_]^2->1}

RuleReal:=If[Key==0,(Subscript[ϕ , K_,L_,Sx_,lx_,ly_,Jh_])->0,(Subscript[ϕ , K_,L_,Sx_,lx_,ly_,Jh_])->(Subscript[ϕ , K,L,Sx,lx,ly,Jh])]

RuleSinToCos:={((Sin[θ1])^(n_))->(((1-((Cos[θ1])^2)))^(n/2)),((Sin[φ1])^(n_))->(((1-((Cos[φ1])^2)))^(n/2))}

ruledx:={((Sin[α])^(n_))->Sqrt[enn]^n,((Cos[α])^(n_))->Sqrt[1-enn]^n}

HH

hyp3[k1_,l1_,l2_,al1_]:=If[k1≥l1+l2&&EvenQ[k1-l1-l2],(Sqrt[((2((k1-l2-l1)/2)!(k1+2)((k1+l2+l1)/2+1)!)/(Gamma[(k1-l2+l1+3)/2]Gamma[(k1+l2-l1+3)/2]))])*Sin[al1]^l1*Cos[al1]^l2*JacobiP[(k1-l1-l2)/2,l1+1/2,l2+1/2,Cos[2*al1]],0]

hyp3[k1_,l1_,l2_,enn_]:=If[k1≥l1+l2&&EvenQ[k1-l1-l2],(Sqrt[((2((k1-l2-l1)/2)!(k1+2)((k1+l2+l1)/2+1)!)/(Gamma[(k1-l2+l1+3)/2]Gamma[(k1+l2-l1+3)/2]))])*Sqrt[enn]^l1*Sqrt[1-enn]^l2*JacobiP[(k1-l1-l2)/2,l1+1/2,l2+1/2,1-2 enn],0]

jac3[enn_]:=enn*(1-enn)

da[enn_]:=(1/(2 (Sqrt[1-enn]) (Sqrt[enn])))

Clebsch

Z[i_]:=(-1)^i
H[i_]:=Sqrt[2i+1]

Triangle[j1_,j2_,j_]:=j1+j2-j≥0 && Abs[j1-j2]≤j && IntegerQ[j1+j2-j] ;

MyClebsch[{j1_,mj1_},{j2_,mj2_},{j_,mj_}]:=If[ Triangle[j1,j2,j]&&
(mj1+mj2)==mj&&
Abs[mj]≤j && IntegerQ[j-mj] &&
Abs[mj1]≤j1 && IntegerQ[j1-mj1] &&
Abs[mj2]≤j2 && IntegerQ[j2-mj2],
ClebschGordan[{j1,mj1},{j2,mj2},{j,mj}],0];

MySix[{j1_,j2_,j3_},{j4_,j5_,j6_}]:=Z[j1+j2+j4+j5]/(H[j1]*H[j4])*Sum[MyClebsch[{j1,j6-m5},{j5,m5},{j6,j6}]*
MyClebsch[{j3,m4-m5},{j2,j6-m4},{j1,j6-m5}]*
MyClebsch[{j4,m4},{j2,j6-m4},{j6,j6}]*
MyClebsch[{j3,m4-m5},{j5,m5},{j4,m4}],
{m4,-j4,j4,1},{m5,-j5,j5,1}]

Wave Function

Exp[I*(Subscript[ϕ , K,lx,ly,L,Sx,Jh])]*(Subscript[A, K,lx,ly,L,Sx,Jh])- is the complex amplitude of the configuration  {K, L, Sx, lx, ly, Jh}  in the total wave function Ψ[J, MJ] with momentum J and projection MJ.

Θ[ms1,ms2, MJc] - spin function
The coordinate system is choosen with z direction along py.

Kmin=If[Parity==0,0,1]

Components may be removed from the wave function, WF, and its conjugate, WFc, do it either directly after the wave function as: WF=[.....] /.(Subscript[A, 3,2,1,1,0,1])->0 or by including it in the list in RuleExc. The phase may also be specified here.

RuleExc:={(Subscript[A, 4,L_,Sx_,0,0,Jh_])->0,(Subscript[A, 4,L_,Sx_,1,1,Jh_])->0,(Subscript[A, 4,L_,Sx_,3,1,Jh_])->0,(Subscript[A, 4,L_,Sx_,1,3,Jh_])->0,(Subscript[A, 4,L_,Sx_,2,0,Jh_])->0,(Subscript[A, 4,L_,Sx_,0,2,Jh_])->0, (Subscript[ϕ , 0,0,0,0,0,0])->0,(Subscript[ϕ , 2,2,0,0,0,0])->0}

WF gives the sum of the amplitudes A (real or complex is defined by the Key input). The summing is over K, L, Sx, lx, ly, Jh

WF=Sum[If[L≤lx+ly&&L≥Abs[lx-ly]&&K≥lx+ly&&EvenQ[K-lx-ly]&&(EvenQ[Sx]&&EvenQ[lx]||OddQ[Sx]&&OddQ[lx])&&J≤Jh+Jc&&J≥Abs[Jh-Jc],Exp[I*(Subscript[ϕ , K,L,Sx,lx,ly,Jh])]*(Subscript[A, K,L,Sx,lx,ly,Jh]) *YAh[K,L,Sx,lx,ly,Jh,MJ,enn,θ1,φ1],0],{K,Kmin,Kmax,2},{L,0,K},{Sx,0,1},{Jh,Abs[L-Sx],L+Sx},{lx,0,K},{ly,0,K}]/.RuleReal

The conjugate wave function:

WFc=Sum[If[L≤lx+ly&&L≥Abs[lx-ly]&&K≥lx+ly&&EvenQ[K-lx-ly]&&(EvenQ[Sx]&&EvenQ[lx]||OddQ[Sx]&&OddQ[lx])&&J≤Jh+Jc&&J≥Abs[Jh-Jc],Exp[-I*(Subscript[ϕ , K,L,Sx,lx,ly,Jh])]*(Subscript[A, K,L,Sx,lx,ly,Jh]) *YAhc[K,L,Sx,lx,ly,Jh,MJ,enn,θ1,φ1],0],{K,Kmin,Kmax,2},{L,0,K},{Sx,0,1},{Jh,Abs[L-Sx],L+Sx},{lx,0,K},{ly,0,K}]/.RuleReal

Coupled Hyperspherical Harmonics

The coupling scheme used here is built up in the following way: lx and ly are coupled to form L and the neutron spins are coupled to form Sx, then L and Sx are coupled to Jh which is coupled to Jc to give the total spin. (Different coupling schemes may be selected by doing appropriate changes.)

YAh[K_,L_,Sx_,lx_,ly_,Jh_,MJ_,enn_,θ1_,φ1_]:=Sum[MyClebsch[{lx,mlx},{ly,mly},{L,mlx+mly}]* MyClebsch[{(1/2),ms1},{(1/2),ms2},{Sx,ms1+ms2}]*MyClebsch[{L,mlx+mly},{Sx,ms1+ms2},{Jh,ms1+ms2+mlx+mly}]*MyClebsch[{Jh,ms1+ms2+mlx+mly},{Jc,MJc},{J,MJ}]*hyp3[K,lx,ly,enn]*SphericalHarmonicY[lx,mlx,θ1,φ1]*SphericalHarmonicY[ly,mly,0,0]*Θ[ms1,ms2,MJc],{mlx,-lx,lx},{mly,-ly,ly},{ms1,-1/2,1/2},{ms2,-1/2,1/2},{MJc,-Jc,Jc}]

YAhc[K_,L_,Sx_,lx_,ly_,Jh_,MJ_,enn_,θ1_,φ1_]:=Sum[MyClebsch[{lx,mlx},{ly,mly},{L,mlx+mly}]* MyClebsch[{(1/2),ms1},{(1/2),ms2},{Sx,ms1+ms2}]*MyClebsch[{L,mlx+mly},{Sx,ms1+ms2},{Jh,ms1+ms2+mlx+mly}]*MyClebsch[{Jh,ms1+ms2+mlx+mly},{Jc,MJc},{J,MJ}]*hyp3[K,lx,ly,enn]*(-1)^(mlx+mly)*SphericalHarmonicY[lx,-mlx,θ1,φ1]*SphericalHarmonicY[ly,-mly,0,0]*Θ[ms1,ms2,MJc],{mlx,-lx,lx},{mly,-ly,ly},{ms1,-1/2,1/2},{ms2,-1/2,1/2},{MJc,-Jc,Jc}]

Calculations

Corr=Expand[(1/(2*J+1))Sum[WF*WFc,{MJ,-J,J}]]/.RuleSpin;

CD1=8*Pi^2*ExpToTrig[Corr];

CD is total correlation density as a function of energy in the subsystem - enn  and angle θ1 between momenta px and py

CD=CD1/.RuleSinToCos/.Cos[θ1]->x//Simplify;

Output

Total distribution as a function of energy in subsystem - enn  and x=Cos[θ]

dis=CD*jac3[enn]*da[enn]//Simplify

Energy distribution

enedis=Integrate[dis,{x,-1,1}]//Simplify

Angular distribution

angdis=Integrate[dis,{enn,0,1}]//Simplify

Check normalisation. Distributions are normalised to sum of the squared amplitudes

Integrate[angdis,{x,-1,1}]

Integrate[enedis,{enn,0,1}]

Collection of examples

Kmax=4, Jc=0, J=0+ (for example, 6He, 8He,10He 0+,14Be 0+)

dis400=(1/π)4 (Sqrt[-(-1+enn) enn]) ((Subscript[A, 0,0,0,0,0,0]^2)+4 (((1-2 enn))^2) (Subscript[A, 2,0,0,0,0,0]^2)+9 (Subscript[A, 4,0,0,0,0,0]^2)+2 (Subscript[A, 0,0,0,0,0,0]) (2 (1-2 enn) Cos[(Subscript[ϕ, 0,0,0,0,0,0])-(Subscript[ϕ, 2,0,0,0,0,0])] (Subscript[A, 2,0,0,0,0,0])+(-3+4 enn) (-1+4 enn) Cos[(Subscript[ϕ, 0,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,0,0,0])] (Subscript[A, 4,0,0,0,0,0])-4 (Sqrt[2]) (-1+enn) enn (-1+3 (x^2)) Cos[(Subscript[ϕ, 0,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,2,2,0])] (Subscript[A, 4,0,0,2,2,0]))+4 (Subscript[A, 2,0,0,0,0,0]) ((3-2 enn (11+8 enn (-3+2 enn))) Cos[(Subscript[ϕ, 2,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,0,0,0])] (Subscript[A, 4,0,0,0,0,0])+4 (Sqrt[2]) (-1+enn) enn (-1+2 enn) (-1+3 (x^2)) Cos[(Subscript[ϕ, 2,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,2,2,0])] (Subscript[A, 4,0,0,2,2,0]))+8 (-1+enn) enn ((-1+(x^2)) (Subscript[A, 2,1,1,1,1,0]^2)+4 (3+8 (-1+enn) enn) (Subscript[A, 4,0,0,0,0,0]^2)-(Sqrt[2]) (-3+4 enn) (-1+4 enn) (-1+3 (x^2)) Cos[(Subscript[ϕ, 4,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,2,2,0])] (Subscript[A, 4,0,0,0,0,0]) (Subscript[A, 4,0,0,2,2,0])+4 (-1+enn) enn (((1-3 (x^2)))^2) (Subscript[A, 4,0,0,2,2,0]^2)-2 (Sqrt[6]) (-1+2 enn) (-1+(x^2)) Cos[(Subscript[ϕ, 2,1,1,1,1,0])-(Subscript[ϕ, 4,1,1,1,1,0])] (Subscript[A, 2,1,1,1,1,0]) (Subscript[A, 4,1,1,1,1,0])+6 (((1-2 enn))^2) (-1+(x^2)) (Subscript[A, 4,1,1,1,1,0]^2)));

Kmax=4, Jc=0+, J=2+ (for example, 10He 2+)

dis402=(1/(35 π))32 (Sqrt[-(-1+enn) enn]) (35 (-1+enn) enn (-1+(x^2)) (Subscript[A, 2,1,1,1,1,2]^2)+14 (((-1+enn))^2) (Subscript[A, 2,2,0,0,2,2]^2)+14 (enn^2) (Subscript[A, 2,2,0,2,0,2]^2)+21 enn (Subscript[A, 2,2,1,1,1,2]^2)-21 (enn^2) (Subscript[A, 2,2,1,1,1,2]^2)+7 enn (x^2) (Subscript[A, 2,2,1,1,1,2]^2)-7 (enn^2) (x^2) (Subscript[A, 2,2,1,1,1,2]^2)-70 (Sqrt[6]) (-1+enn) enn (-1+2 enn) (-1+(x^2)) Cos[(Subscript[ϕ, 2,1,1,1,1,2])-(Subscript[ϕ, 4,1,1,1,1,2])] (Subscript[A, 2,1,1,1,1,2]) (Subscript[A, 4,1,1,1,1,2])+210 enn (Subscript[A, 4,1,1,1,1,2]^2)-1050 (enn^2) (Subscript[A, 4,1,1,1,1,2]^2)+1680 (enn^3) (Subscript[A, 4,1,1,1,1,2]^2)-840 (enn^4) (Subscript[A, 4,1,1,1,1,2]^2)-210 enn (x^2) (Subscript[A, 4,1,1,1,1,2]^2)+1050 (enn^2) (x^2) (Subscript[A, 4,1,1,1,1,2]^2)-1680 (enn^3) (x^2) (Subscript[A, 4,1,1,1,1,2]^2)+840 (enn^4) (x^2) (Subscript[A, 4,1,1,1,1,2]^2)-6 (Sqrt[14]) enn Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,0,2,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,0,2,2])+26 (Sqrt[14]) (enn^2) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,0,2,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,0,2,2])-20 (Sqrt[14]) (enn^3) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,0,2,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,0,2,2])+18 (Sqrt[14]) enn (x^2) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,0,2,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,0,2,2])-78 (Sqrt[14]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,0,2,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,0,2,2])+60 (Sqrt[14]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,0,2,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,0,2,2])+36 (Subscript[A, 4,2,0,0,2,2]^2)-312 enn (Subscript[A, 4,2,0,0,2,2]^2)+916 (enn^2) (Subscript[A, 4,2,0,0,2,2]^2)-1040 (enn^3) (Subscript[A, 4,2,0,0,2,2]^2)+400 (enn^4) (Subscript[A, 4,2,0,0,2,2]^2)+28 (Sqrt[14]) (enn^2) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,2,0,2])-40 (Sqrt[14]) (enn^3) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,2,0,2])-84 enn Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])+484 (enn^2) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])-800 (enn^3) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])+400 (enn^4) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])+252 enn (x^2) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])-1452 (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])+2400 (enn^3) (x^2) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])-1200 (enn^4) (x^2) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])+196 (enn^2) (Subscript[A, 4,2,0,2,0,2]^2)-560 (enn^3) (Subscript[A, 4,2,0,2,0,2]^2)+400 (enn^4) (Subscript[A, 4,2,0,2,0,2]^2)+8 (Sqrt[35]) (enn^2) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,2,2,2])-8 (Sqrt[35]) (enn^3) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,2,2,2])-24 (Sqrt[35]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,2,2,2])+24 (Sqrt[35]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,2,2,2])+24 (Sqrt[10]) enn Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])-128 (Sqrt[10]) (enn^2) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])+184 (Sqrt[10]) (enn^3) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])-80 (Sqrt[10]) (enn^4) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])-72 (Sqrt[10]) enn (x^2) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])+384 (Sqrt[10]) (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])-552 (Sqrt[10]) (enn^3) (x^2) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])+240 (Sqrt[10]) (enn^4) (x^2) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])+56 (Sqrt[10]) (enn^2) Cos[(Subscript[ϕ, 4,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,2,0,2]) (Subscript[A, 4,2,0,2,2,2])-136 (Sqrt[10]) (enn^3) Cos[(Subscript[ϕ, 4,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,2,0,2]) (Subscript[A, 4,2,0,2,2,2])+80 (Sqrt[10]) (enn^4) Cos[(Subscript[ϕ, 4,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,2,0,2]) (Subscript[A, 4,2,0,2,2,2])-168 (Sqrt[10]) (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,2,0,2]) (Subscript[A, 4,2,0,2,2,2])+408 (Sqrt[10]) (enn^3) (x^2) Cos[(Subscript[ϕ, 4,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,2,0,2]) (Subscript[A, 4,2,0,2,2,2])-240 (Sqrt[10]) (enn^4) (x^2) Cos[(Subscript[ϕ, 4,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,2,0,2]) (Subscript[A, 4,2,0,2,2,2])+160 (enn^2) (Subscript[A, 4,2,0,2,2,2]^2)-320 (enn^3) (Subscript[A, 4,2,0,2,2,2]^2)+160 (enn^4) (Subscript[A, 4,2,0,2,2,2]^2)-360 (enn^2) (x^2) (Subscript[A, 4,2,0,2,2,2]^2)+720 (enn^3) (x^2) (Subscript[A, 4,2,0,2,2,2]^2)-360 (enn^4) (x^2) (Subscript[A, 4,2,0,2,2,2]^2)+360 (enn^2) (x^4) (Subscript[A, 4,2,0,2,2,2]^2)-720 (enn^3) (x^4) (Subscript[A, 4,2,0,2,2,2]^2)+360 (enn^4) (x^4) (Subscript[A, 4,2,0,2,2,2]^2)+2 (-1+enn) (Subscript[A, 2,2,0,0,2,2]) (-2 (Sqrt[14]) (-1+enn) (-3+10 enn) Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,0,2,2])] (Subscript[A, 4,2,0,0,2,2])+enn (-1+3 (x^2)) (-7 Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 2,2,0,2,0,2])] (Subscript[A, 2,2,0,2,0,2])+(Sqrt[14]) (-7+10 enn) Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 4,2,0,2,0,2])-4 (Sqrt[35]) (-1+enn) Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,2,2,2])))+42 (Sqrt[6]) enn Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,1,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,1,2])-126 (Sqrt[6]) (enn^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,1,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,1,2])+84 (Sqrt[6]) (enn^3) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,1,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,1,2])+14 (Sqrt[6]) enn (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,1,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,1,2])-42 (Sqrt[6]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,1,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,1,2])+28 (Sqrt[6]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,1,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,1,2])+126 enn (Subscript[A, 4,2,1,1,1,2]^2)-630 (enn^2) (Subscript[A, 4,2,1,1,1,2]^2)+1008 (enn^3) (Subscript[A, 4,2,1,1,1,2]^2)-504 (enn^4) (Subscript[A, 4,2,1,1,1,2]^2)+42 enn (x^2) (Subscript[A, 4,2,1,1,1,2]^2)-210 (enn^2) (x^2) (Subscript[A, 4,2,1,1,1,2]^2)+336 (enn^3) (x^2) (Subscript[A, 4,2,1,1,1,2]^2)-168 (enn^4) (x^2) (Subscript[A, 4,2,1,1,1,2]^2)+24 (Sqrt[7]) enn Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])-48 (Sqrt[7]) (enn^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])+24 (Sqrt[7]) (enn^3) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])-72 (Sqrt[7]) enn (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])+144 (Sqrt[7]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])-72 (Sqrt[7]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])+24 (Sqrt[42]) enn Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])-96 (Sqrt[42]) (enn^2) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])+120 (Sqrt[42]) (enn^3) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])-48 (Sqrt[42]) (enn^4) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])-72 (Sqrt[42]) enn (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])+288 (Sqrt[42]) (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])-360 (Sqrt[42]) (enn^3) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])+144 (Sqrt[42]) (enn^4) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])+48 enn (Subscript[A, 4,2,1,1,3,2]^2)-144 (enn^2) (Subscript[A, 4,2,1,1,3,2]^2)+144 (enn^3) (Subscript[A, 4,2,1,1,3,2]^2)-48 (enn^4) (Subscript[A, 4,2,1,1,3,2]^2)+96 enn (x^2) (Subscript[A, 4,2,1,1,3,2]^2)-288 (enn^2) (x^2) (Subscript[A, 4,2,1,1,3,2]^2)+288 (enn^3) (x^2) (Subscript[A, 4,2,1,1,3,2]^2)-96 (enn^4) (x^2) (Subscript[A, 4,2,1,1,3,2]^2)+24 (Sqrt[7]) (enn^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,3,1,2])-24 (Sqrt[7]) (enn^3) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,3,1,2])-72 (Sqrt[7]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,3,1,2])+72 (Sqrt[7]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,3,1,2])+24 (Sqrt[42]) (enn^2) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,3,1,2])-72 (Sqrt[42]) (enn^3) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,3,1,2])+48 (Sqrt[42]) (enn^4) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,3,1,2])-72 (Sqrt[42]) (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,3,1,2])+216 (Sqrt[42]) (enn^3) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,3,1,2])-144 (Sqrt[42]) (enn^4) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,3,1,2])+96 (enn^2) Cos[(Subscript[ϕ, 4,2,1,1,3,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,3,2]) (Subscript[A, 4,2,1,3,1,2])-192 (enn^3) Cos[(Subscript[ϕ, 4,2,1,1,3,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,3,2]) (Subscript[A, 4,2,1,3,1,2])+96 (enn^4) Cos[(Subscript[ϕ, 4,2,1,1,3,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,3,2]) (Subscript[A, 4,2,1,3,1,2])-1008 (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,3,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,3,2]) (Subscript[A, 4,2,1,3,1,2])+2016 (enn^3) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,3,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,3,2]) (Subscript[A, 4,2,1,3,1,2])-1008 (enn^4) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,3,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,3,2]) (Subscript[A, 4,2,1,3,1,2])+1200 (enn^2) (x^4) Cos[(Subscript[ϕ, 4,2,1,1,3,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,3,2]) (Subscript[A, 4,2,1,3,1,2])-2400 (enn^3) (x^4) Cos[(Subscript[ϕ, 4,2,1,1,3,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,3,2]) (Subscript[A, 4,2,1,3,1,2])+1200 (enn^4) (x^4) Cos[(Subscript[ϕ, 4,2,1,1,3,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,3,2]) (Subscript[A, 4,2,1,3,1,2])+48 (enn^3) (Subscript[A, 4,2,1,3,1,2]^2)-48 (enn^4) (Subscript[A, 4,2,1,3,1,2]^2)+96 (enn^3) (x^2) (Subscript[A, 4,2,1,3,1,2]^2)-96 (enn^4) (x^2) (Subscript[A, 4,2,1,3,1,2]^2)+120 enn (Subscript[A, 4,3,1,1,3,2]^2)-360 (enn^2) (Subscript[A, 4,3,1,1,3,2]^2)+360 (enn^3) (Subscript[A, 4,3,1,1,3,2]^2)-120 (enn^4) (Subscript[A, 4,3,1,1,3,2]^2)-120 enn (x^2) (Subscript[A, 4,3,1,1,3,2]^2)+360 (enn^2) (x^2) (Subscript[A, 4,3,1,1,3,2]^2)-360 (enn^3) (x^2) (Subscript[A, 4,3,1,1,3,2]^2)+120 (enn^4) (x^2) (Subscript[A, 4,3,1,1,3,2]^2)-60 (((-1+enn))^2) (enn^2) (1-6 (x^2)+5 (x^4)) Cos[(Subscript[ϕ, 4,3,1,1,3,2])] Cos[(Subscript[ϕ, 4,3,1,3,1,2])] (Subscript[A, 4,3,1,1,3,2]) (Subscript[A, 4,3,1,3,1,2])-60 (((-1+enn))^2) (enn^2) (1-6 (x^2)+5 (x^4)) Sin[(Subscript[ϕ, 4,3,1,1,3,2])] Sin[(Subscript[ϕ, 4,3,1,3,1,2])] (Subscript[A, 4,3,1,1,3,2]) (Subscript[A, 4,3,1,3,1,2])+120 (enn^3) (Subscript[A, 4,3,1,3,1,2]^2)-120 (enn^4) (Subscript[A, 4,3,1,3,1,2]^2)-120 (enn^3) (x^2) (Subscript[A, 4,3,1,3,1,2]^2)+120 (enn^4) (x^2) (Subscript[A, 4,3,1,3,1,2]^2));

Kmax=4, Jc=1/2+, J=1/2+ (for example, 5H 1/2+)

dis41212=(1/(35 π))4 (Sqrt[-(-1+enn) enn]) (35 (Subscript[A, 0,0,0,0,0,0]^2)+140 (((1-2 enn))^2) (Subscript[A, 2,0,0,0,0,0]^2)+315 (Subscript[A, 4,0,0,0,0,0]^2)+70 (Subscript[A, 0,0,0,0,0,0]) (2 (1-2 enn) Cos[(Subscript[ϕ, 0,0,0,0,0,0])-(Subscript[ϕ, 2,0,0,0,0,0])] (Subscript[A, 2,0,0,0,0,0])+(-3+4 enn) (-1+4 enn) Cos[(Subscript[ϕ, 0,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,0,0,0])] (Subscript[A, 4,0,0,0,0,0])-4 (Sqrt[2]) (-1+enn) enn (-1+3 (x^2)) Cos[(Subscript[ϕ, 0,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,2,2,0])] (Subscript[A, 4,0,0,2,2,0]))+140 (Subscript[A, 2,0,0,0,0,0]) ((3-2 enn (11+8 enn (-3+2 enn))) Cos[(Subscript[ϕ, 2,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,0,0,0])] (Subscript[A, 4,0,0,0,0,0])+4 (Sqrt[2]) (-1+enn) enn (-1+2 enn) (-1+3 (x^2)) Cos[(Subscript[ϕ, 2,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,2,2,0])] (Subscript[A, 4,0,0,2,2,0]))+8 (-1+enn) enn (-70 (x^2) (Subscript[A, 2,0,1,1,1,1]^2)+35 (-1+(x^2)) (Subscript[A, 2,1,1,1,1,0]^2)+35 (x^2) (Subscript[A, 2,1,1,1,1,1]^2)-7 (x^2) (Subscript[A, 2,2,1,1,1,1]^2)-315 (Sqrt[2]) (x^2) Cos[(Subscript[ϕ, 4,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,2,2,0])] (Subscript[A, 4,0,0,0,0,0]) (Subscript[A, 4,0,0,2,2,0])+1680 (Sqrt[2]) enn (x^2) Cos[(Subscript[ϕ, 4,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,2,2,0])] (Subscript[A, 4,0,0,0,0,0]) (Subscript[A, 4,0,0,2,2,0])-1680 (Sqrt[2]) (enn^2) (x^2) Cos[(Subscript[ϕ, 4,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,2,2,0])] (Subscript[A, 4,0,0,0,0,0]) (Subscript[A, 4,0,0,2,2,0])-140 enn (Subscript[A, 4,0,0,2,2,0]^2)+140 (enn^2) (Subscript[A, 4,0,0,2,2,0]^2)+840 enn (x^2) (Subscript[A, 4,0,0,2,2,0]^2)-840 (enn^2) (x^2) (Subscript[A, 4,0,0,2,2,0]^2)-1260 enn (x^4) (Subscript[A, 4,0,0,2,2,0]^2)+1260 (enn^2) (x^4) (Subscript[A, 4,0,0,2,2,0]^2)+7 (-5 (Subscript[A, 2,1,1,1,1,1]^2)-3 (Subscript[A, 2,2,1,1,1,1]^2)+5 (Subscript[A, 4,0,0,0,0,0]) (4 (3+8 (-1+enn) enn) (Subscript[A, 4,0,0,0,0,0])+(Sqrt[2]) (-3+4 enn) (-1+4 enn) Cos[(Subscript[ϕ, 4,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,2,2,0])] (Subscript[A, 4,0,0,2,2,0])))+140 (Sqrt[6]) (-1+2 enn) (x^2) Cos[(Subscript[ϕ, 2,0,1,1,1,1])-(Subscript[ϕ, 4,0,1,1,1,1])] (Subscript[A, 2,0,1,1,1,1]) (Subscript[A, 4,0,1,1,1,1])-420 (x^2) (Subscript[A, 4,0,1,1,1,1]^2)+1680 enn (x^2) (Subscript[A, 4,0,1,1,1,1]^2)-1680 (enn^2) (x^2) (Subscript[A, 4,0,1,1,1,1]^2)-840 enn (x^2) (Subscript[A, 4,1,0,2,2,1]^2)+840 (enn^2) (x^2) (Subscript[A, 4,1,0,2,2,1]^2)+840 enn (x^4) (Subscript[A, 4,1,0,2,2,1]^2)-840 (enn^2) (x^4) (Subscript[A, 4,1,0,2,2,1]^2)-70 (Sqrt[6]) (-1+2 enn) (-1+(x^2)) Cos[(Subscript[ϕ, 2,1,1,1,1,0])-(Subscript[ϕ, 4,1,1,1,1,0])] (Subscript[A, 2,1,1,1,1,0]) (Subscript[A, 4,1,1,1,1,0])-210 (Subscript[A, 4,1,1,1,1,0]^2)+840 enn (Subscript[A, 4,1,1,1,1,0]^2)-840 (enn^2) (Subscript[A, 4,1,1,1,1,0]^2)+210 (x^2) (Subscript[A, 4,1,1,1,1,0]^2)-840 enn (x^2) (Subscript[A, 4,1,1,1,1,0]^2)+840 (enn^2) (x^2) (Subscript[A, 4,1,1,1,1,0]^2)-70 (Sqrt[6]) Cos[(Subscript[ϕ, 2,1,1,1,1,1])-(Subscript[ϕ, 4,1,1,1,1,1])] (Subscript[A, 2,1,1,1,1,1]) (Subscript[A, 4,1,1,1,1,1])+140 (Sqrt[6]) enn Cos[(Subscript[ϕ, 2,1,1,1,1,1])-(Subscript[ϕ, 4,1,1,1,1,1])] (Subscript[A, 2,1,1,1,1,1]) (Subscript[A, 4,1,1,1,1,1])+70 (Sqrt[6]) (x^2) Cos[(Subscript[ϕ, 2,1,1,1,1,1])-(Subscript[ϕ, 4,1,1,1,1,1])] (Subscript[A, 2,1,1,1,1,1]) (Subscript[A, 4,1,1,1,1,1])-140 (Sqrt[6]) enn (x^2) Cos[(Subscript[ϕ, 2,1,1,1,1,1])-(Subscript[ϕ, 4,1,1,1,1,1])] (Subscript[A, 2,1,1,1,1,1]) (Subscript[A, 4,1,1,1,1,1])-210 (Subscript[A, 4,1,1,1,1,1]^2)+840 enn (Subscript[A, 4,1,1,1,1,1]^2)-840 (enn^2) (Subscript[A, 4,1,1,1,1,1]^2)+210 (x^2) (Subscript[A, 4,1,1,1,1,1]^2)-840 enn (x^2) (Subscript[A, 4,1,1,1,1,1]^2)+840 (enn^2) (x^2) (Subscript[A, 4,1,1,1,1,1]^2)-126 (Subscript[A, 4,2,1,1,1,1]^2)+504 enn (Subscript[A, 4,2,1,1,1,1]^2)-504 (enn^2) (Subscript[A, 4,2,1,1,1,1]^2)-42 (x^2) (Subscript[A, 4,2,1,1,1,1]^2)+168 enn (x^2) (Subscript[A, 4,2,1,1,1,1]^2)-168 (enn^2) (x^2) (Subscript[A, 4,2,1,1,1,1]^2)-24 (Sqrt[42]) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,1,3,1])+72 (Sqrt[42]) enn Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,1,3,1])-48 (Sqrt[42]) (enn^2) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,1,3,1])+72 (Sqrt[42]) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,1,3,1])-216 (Sqrt[42]) enn (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,1,3,1])+144 (Sqrt[42]) (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,1,3,1])-48 (Subscript[A, 4,2,1,1,3,1]^2)+96 enn (Subscript[A, 4,2,1,1,3,1]^2)-48 (enn^2) (Subscript[A, 4,2,1,1,3,1]^2)-96 (x^2) (Subscript[A, 4,2,1,1,3,1]^2)+192 enn (x^2) (Subscript[A, 4,2,1,1,3,1]^2)-96 (enn^2) (x^2) (Subscript[A, 4,2,1,1,3,1]^2)-24 (Sqrt[42]) enn Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,3,1,1])+48 (Sqrt[42]) (enn^2) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,3,1,1])+72 (Sqrt[42]) enn (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,3,1,1])-144 (Sqrt[42]) (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,3,1,1])-96 enn Cos[(Subscript[ϕ, 4,2,1,1,3,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,3,1]) (Subscript[A, 4,2,1,3,1,1])+96 (enn^2) Cos[(Subscript[ϕ, 4,2,1,1,3,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,3,1]) (Subscript[A, 4,2,1,3,1,1])+1008 enn (x^2) Cos[(Subscript[ϕ, 4,2,1,1,3,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,3,1]) (Subscript[A, 4,2,1,3,1,1])-1008 (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,3,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,3,1]) (Subscript[A, 4,2,1,3,1,1])-1200 enn (x^4) Cos[(Subscript[ϕ, 4,2,1,1,3,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,3,1]) (Subscript[A, 4,2,1,3,1,1])+1200 (enn^2) (x^4) Cos[(Subscript[ϕ, 4,2,1,1,3,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,3,1]) (Subscript[A, 4,2,1,3,1,1])-48 (enn^2) (Subscript[A, 4,2,1,3,1,1]^2)-96 (enn^2) (x^2) (Subscript[A, 4,2,1,3,1,1]^2)+2 (Subscript[A, 2,2,1,1,1,1]) (7 (Sqrt[6]) (-1+2 enn) (3+(x^2)) Cos[(Subscript[ϕ, 2,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,1,1])] (Subscript[A, 4,2,1,1,1,1])-12 (Sqrt[7]) (-1+3 (x^2)) ((-1+enn) Cos[(Subscript[ϕ, 2,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 4,2,1,1,3,1])-enn Cos[(Subscript[ϕ, 2,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,3,1,1])))));

Kmax=4, Jc=3/2, J=3/2 (for example, 11Li 3/2)

dis43232=(1/(105 π))4 (Sqrt[-(-1+enn) enn]) (105 (Subscript[A, 0,0,0,0,0,0]^2)+420 (((1-2 enn))^2) (Subscript[A, 2,0,0,0,0,0]^2)+1680 enn (x^2) (Subscript[A, 2,0,1,1,1,1]^2)-1680 (enn^2) (x^2) (Subscript[A, 2,0,1,1,1,1]^2)+840 enn (Subscript[A, 2,1,1,1,1,0]^2)-840 (enn^2) (Subscript[A, 2,1,1,1,1,0]^2)-840 enn (x^2) (Subscript[A, 2,1,1,1,1,0]^2)+840 (enn^2) (x^2) (Subscript[A, 2,1,1,1,1,0]^2)+840 enn (Subscript[A, 2,1,1,1,1,1]^2)-840 (enn^2) (Subscript[A, 2,1,1,1,1,1]^2)-840 enn (x^2) (Subscript[A, 2,1,1,1,1,1]^2)+840 (enn^2) (x^2) (Subscript[A, 2,1,1,1,1,1]^2)+840 enn (Subscript[A, 2,1,1,1,1,2]^2)-840 (enn^2) (Subscript[A, 2,1,1,1,1,2]^2)-840 enn (x^2) (Subscript[A, 2,1,1,1,1,2]^2)+840 (enn^2) (x^2) (Subscript[A, 2,1,1,1,1,2]^2)+336 (Subscript[A, 2,2,0,0,2,2]^2)-672 enn (Subscript[A, 2,2,0,0,2,2]^2)+336 (enn^2) (Subscript[A, 2,2,0,0,2,2]^2)-336 enn Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 2,2,0,2,0,2])] (Subscript[A, 2,2,0,0,2,2]) (Subscript[A, 2,2,0,2,0,2])+336 (enn^2) Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 2,2,0,2,0,2])] (Subscript[A, 2,2,0,0,2,2]) (Subscript[A, 2,2,0,2,0,2])+1008 enn (x^2) Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 2,2,0,2,0,2])] (Subscript[A, 2,2,0,0,2,2]) (Subscript[A, 2,2,0,2,0,2])-1008 (enn^2) (x^2) Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 2,2,0,2,0,2])] (Subscript[A, 2,2,0,0,2,2]) (Subscript[A, 2,2,0,2,0,2])+336 (enn^2) (Subscript[A, 2,2,0,2,0,2]^2)+504 enn (Subscript[A, 2,2,1,1,1,1]^2)-504 (enn^2) (Subscript[A, 2,2,1,1,1,1]^2)+168 enn (x^2) (Subscript[A, 2,2,1,1,1,1]^2)-168 (enn^2) (x^2) (Subscript[A, 2,2,1,1,1,1]^2)+504 enn (Subscript[A, 2,2,1,1,1,2]^2)-504 (enn^2) (Subscript[A, 2,2,1,1,1,2]^2)+168 enn (x^2) (Subscript[A, 2,2,1,1,1,2]^2)-168 (enn^2) (x^2) (Subscript[A, 2,2,1,1,1,2]^2)+504 enn (Subscript[A, 2,2,1,1,1,3]^2)-504 (enn^2) (Subscript[A, 2,2,1,1,1,3]^2)+168 enn (x^2) (Subscript[A, 2,2,1,1,1,3]^2)-168 (enn^2) (x^2) (Subscript[A, 2,2,1,1,1,3]^2)+945 (Subscript[A, 4,0,0,0,0,0]^2)-10080 enn (Subscript[A, 4,0,0,0,0,0]^2)+36960 (enn^2) (Subscript[A, 4,0,0,0,0,0]^2)-53760 (enn^3) (Subscript[A, 4,0,0,0,0,0]^2)+26880 (enn^4) (Subscript[A, 4,0,0,0,0,0]^2)-2520 (Sqrt[2]) enn Cos[(Subscript[ϕ, 4,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,2,2,0])] (Subscript[A, 4,0,0,0,0,0]) (Subscript[A, 4,0,0,2,2,0])+15960 (Sqrt[2]) (enn^2) Cos[(Subscript[ϕ, 4,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,2,2,0])] (Subscript[A, 4,0,0,0,0,0]) (Subscript[A, 4,0,0,2,2,0])-26880 (Sqrt[2]) (enn^3) Cos[(Subscript[ϕ, 4,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,2,2,0])] (Subscript[A, 4,0,0,0,0,0]) (Subscript[A, 4,0,0,2,2,0])+13440 (Sqrt[2]) (enn^4) Cos[(Subscript[ϕ, 4,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,2,2,0])] (Subscript[A, 4,0,0,0,0,0]) (Subscript[A, 4,0,0,2,2,0])+7560 (Sqrt[2]) enn (x^2) Cos[(Subscript[ϕ, 4,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,2,2,0])] (Subscript[A, 4,0,0,0,0,0]) (Subscript[A, 4,0,0,2,2,0])-47880 (Sqrt[2]) (enn^2) (x^2) Cos[(Subscript[ϕ, 4,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,2,2,0])] (Subscript[A, 4,0,0,0,0,0]) (Subscript[A, 4,0,0,2,2,0])+80640 (Sqrt[2]) (enn^3) (x^2) Cos[(Subscript[ϕ, 4,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,2,2,0])] (Subscript[A, 4,0,0,0,0,0]) (Subscript[A, 4,0,0,2,2,0])-40320 (Sqrt[2]) (enn^4) (x^2) Cos[(Subscript[ϕ, 4,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,2,2,0])] (Subscript[A, 4,0,0,0,0,0]) (Subscript[A, 4,0,0,2,2,0])+3360 (enn^2) (Subscript[A, 4,0,0,2,2,0]^2)-6720 (enn^3) (Subscript[A, 4,0,0,2,2,0]^2)+3360 (enn^4) (Subscript[A, 4,0,0,2,2,0]^2)-20160 (enn^2) (x^2) (Subscript[A, 4,0,0,2,2,0]^2)+40320 (enn^3) (x^2) (Subscript[A, 4,0,0,2,2,0]^2)-20160 (enn^4) (x^2) (Subscript[A, 4,0,0,2,2,0]^2)+30240 (enn^2) (x^4) (Subscript[A, 4,0,0,2,2,0]^2)-60480 (enn^3) (x^4) (Subscript[A, 4,0,0,2,2,0]^2)+30240 (enn^4) (x^4) (Subscript[A, 4,0,0,2,2,0]^2)-210 (Subscript[A, 0,0,0,0,0,0]) (2 (-1+2 enn) Cos[(Subscript[ϕ, 0,0,0,0,0,0])-(Subscript[ϕ, 2,0,0,0,0,0])] (Subscript[A, 2,0,0,0,0,0])-(3-16 enn+16 (enn^2)) Cos[(Subscript[ϕ, 0,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,0,0,0])] (Subscript[A, 4,0,0,0,0,0])+4 (Sqrt[2]) (-1+enn) enn (-1+3 (x^2)) Cos[(Subscript[ϕ, 0,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,2,2,0])] (Subscript[A, 4,0,0,2,2,0]))-420 (-1+2 enn) (Subscript[A, 2,0,0,0,0,0]) ((3-16 enn+16 (enn^2)) Cos[(Subscript[ϕ, 2,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,0,0,0])] (Subscript[A, 4,0,0,0,0,0])-4 (Sqrt[2]) (-1+enn) enn (-1+3 (x^2)) Cos[(Subscript[ϕ, 2,0,0,0,0,0])-(Subscript[ϕ, 4,0,0,2,2,0])] (Subscript[A, 4,0,0,2,2,0]))+3360 (Sqrt[6]) enn (x^2) Cos[(Subscript[ϕ, 2,0,1,1,1,1])-(Subscript[ϕ, 4,0,1,1,1,1])] (Subscript[A, 2,0,1,1,1,1]) (Subscript[A, 4,0,1,1,1,1])-10080 (Sqrt[6]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,0,1,1,1,1])-(Subscript[ϕ, 4,0,1,1,1,1])] (Subscript[A, 2,0,1,1,1,1]) (Subscript[A, 4,0,1,1,1,1])+6720 (Sqrt[6]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,0,1,1,1,1])-(Subscript[ϕ, 4,0,1,1,1,1])] (Subscript[A, 2,0,1,1,1,1]) (Subscript[A, 4,0,1,1,1,1])+10080 enn (x^2) (Subscript[A, 4,0,1,1,1,1]^2)-50400 (enn^2) (x^2) (Subscript[A, 4,0,1,1,1,1]^2)+80640 (enn^3) (x^2) (Subscript[A, 4,0,1,1,1,1]^2)-40320 (enn^4) (x^2) (Subscript[A, 4,0,1,1,1,1]^2)+20160 (enn^2) (x^2) (Subscript[A, 4,1,0,2,2,1]^2)-40320 (enn^3) (x^2) (Subscript[A, 4,1,0,2,2,1]^2)+20160 (enn^4) (x^2) (Subscript[A, 4,1,0,2,2,1]^2)-20160 (enn^2) (x^4) (Subscript[A, 4,1,0,2,2,1]^2)+40320 (enn^3) (x^4) (Subscript[A, 4,1,0,2,2,1]^2)-20160 (enn^4) (x^4) (Subscript[A, 4,1,0,2,2,1]^2)+1680 (Sqrt[6]) enn Cos[(Subscript[ϕ, 2,1,1,1,1,0])-(Subscript[ϕ, 4,1,1,1,1,0])] (Subscript[A, 2,1,1,1,1,0]) (Subscript[A, 4,1,1,1,1,0])-5040 (Sqrt[6]) (enn^2) Cos[(Subscript[ϕ, 2,1,1,1,1,0])-(Subscript[ϕ, 4,1,1,1,1,0])] (Subscript[A, 2,1,1,1,1,0]) (Subscript[A, 4,1,1,1,1,0])+3360 (Sqrt[6]) (enn^3) Cos[(Subscript[ϕ, 2,1,1,1,1,0])-(Subscript[ϕ, 4,1,1,1,1,0])] (Subscript[A, 2,1,1,1,1,0]) (Subscript[A, 4,1,1,1,1,0])-1680 (Sqrt[6]) enn (x^2) Cos[(Subscript[ϕ, 2,1,1,1,1,0])-(Subscript[ϕ, 4,1,1,1,1,0])] (Subscript[A, 2,1,1,1,1,0]) (Subscript[A, 4,1,1,1,1,0])+5040 (Sqrt[6]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,1,1,1,1,0])-(Subscript[ϕ, 4,1,1,1,1,0])] (Subscript[A, 2,1,1,1,1,0]) (Subscript[A, 4,1,1,1,1,0])-3360 (Sqrt[6]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,1,1,1,1,0])-(Subscript[ϕ, 4,1,1,1,1,0])] (Subscript[A, 2,1,1,1,1,0]) (Subscript[A, 4,1,1,1,1,0])+5040 enn (Subscript[A, 4,1,1,1,1,0]^2)-25200 (enn^2) (Subscript[A, 4,1,1,1,1,0]^2)+40320 (enn^3) (Subscript[A, 4,1,1,1,1,0]^2)-20160 (enn^4) (Subscript[A, 4,1,1,1,1,0]^2)-5040 enn (x^2) (Subscript[A, 4,1,1,1,1,0]^2)+25200 (enn^2) (x^2) (Subscript[A, 4,1,1,1,1,0]^2)-40320 (enn^3) (x^2) (Subscript[A, 4,1,1,1,1,0]^2)+20160 (enn^4) (x^2) (Subscript[A, 4,1,1,1,1,0]^2)+1680 (Sqrt[6]) enn Cos[(Subscript[ϕ, 2,1,1,1,1,1])-(Subscript[ϕ, 4,1,1,1,1,1])] (Subscript[A, 2,1,1,1,1,1]) (Subscript[A, 4,1,1,1,1,1])-5040 (Sqrt[6]) (enn^2) Cos[(Subscript[ϕ, 2,1,1,1,1,1])-(Subscript[ϕ, 4,1,1,1,1,1])] (Subscript[A, 2,1,1,1,1,1]) (Subscript[A, 4,1,1,1,1,1])+3360 (Sqrt[6]) (enn^3) Cos[(Subscript[ϕ, 2,1,1,1,1,1])-(Subscript[ϕ, 4,1,1,1,1,1])] (Subscript[A, 2,1,1,1,1,1]) (Subscript[A, 4,1,1,1,1,1])-1680 (Sqrt[6]) enn (x^2) Cos[(Subscript[ϕ, 2,1,1,1,1,1])-(Subscript[ϕ, 4,1,1,1,1,1])] (Subscript[A, 2,1,1,1,1,1]) (Subscript[A, 4,1,1,1,1,1])+5040 (Sqrt[6]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,1,1,1,1,1])-(Subscript[ϕ, 4,1,1,1,1,1])] (Subscript[A, 2,1,1,1,1,1]) (Subscript[A, 4,1,1,1,1,1])-3360 (Sqrt[6]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,1,1,1,1,1])-(Subscript[ϕ, 4,1,1,1,1,1])] (Subscript[A, 2,1,1,1,1,1]) (Subscript[A, 4,1,1,1,1,1])+5040 enn (Subscript[A, 4,1,1,1,1,1]^2)-25200 (enn^2) (Subscript[A, 4,1,1,1,1,1]^2)+40320 (enn^3) (Subscript[A, 4,1,1,1,1,1]^2)-20160 (enn^4) (Subscript[A, 4,1,1,1,1,1]^2)-5040 enn (x^2) (Subscript[A, 4,1,1,1,1,1]^2)+25200 (enn^2) (x^2) (Subscript[A, 4,1,1,1,1,1]^2)-40320 (enn^3) (x^2) (Subscript[A, 4,1,1,1,1,1]^2)+20160 (enn^4) (x^2) (Subscript[A, 4,1,1,1,1,1]^2)+1680 (Sqrt[6]) enn Cos[(Subscript[ϕ, 2,1,1,1,1,2])-(Subscript[ϕ, 4,1,1,1,1,2])] (Subscript[A, 2,1,1,1,1,2]) (Subscript[A, 4,1,1,1,1,2])-5040 (Sqrt[6]) (enn^2) Cos[(Subscript[ϕ, 2,1,1,1,1,2])-(Subscript[ϕ, 4,1,1,1,1,2])] (Subscript[A, 2,1,1,1,1,2]) (Subscript[A, 4,1,1,1,1,2])+3360 (Sqrt[6]) (enn^3) Cos[(Subscript[ϕ, 2,1,1,1,1,2])-(Subscript[ϕ, 4,1,1,1,1,2])] (Subscript[A, 2,1,1,1,1,2]) (Subscript[A, 4,1,1,1,1,2])-1680 (Sqrt[6]) enn (x^2) Cos[(Subscript[ϕ, 2,1,1,1,1,2])-(Subscript[ϕ, 4,1,1,1,1,2])] (Subscript[A, 2,1,1,1,1,2]) (Subscript[A, 4,1,1,1,1,2])+5040 (Sqrt[6]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,1,1,1,1,2])-(Subscript[ϕ, 4,1,1,1,1,2])] (Subscript[A, 2,1,1,1,1,2]) (Subscript[A, 4,1,1,1,1,2])-3360 (Sqrt[6]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,1,1,1,1,2])-(Subscript[ϕ, 4,1,1,1,1,2])] (Subscript[A, 2,1,1,1,1,2]) (Subscript[A, 4,1,1,1,1,2])+5040 enn (Subscript[A, 4,1,1,1,1,2]^2)-25200 (enn^2) (Subscript[A, 4,1,1,1,1,2]^2)+40320 (enn^3) (Subscript[A, 4,1,1,1,1,2]^2)-20160 (enn^4) (Subscript[A, 4,1,1,1,1,2]^2)-5040 enn (x^2) (Subscript[A, 4,1,1,1,1,2]^2)+25200 (enn^2) (x^2) (Subscript[A, 4,1,1,1,1,2]^2)-40320 (enn^3) (x^2) (Subscript[A, 4,1,1,1,1,2]^2)+20160 (enn^4) (x^2) (Subscript[A, 4,1,1,1,1,2]^2)+288 (Sqrt[14]) Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,0,2,2])] (Subscript[A, 2,2,0,0,2,2]) (Subscript[A, 4,2,0,0,2,2])-1536 (Sqrt[14]) enn Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,0,2,2])] (Subscript[A, 2,2,0,0,2,2]) (Subscript[A, 4,2,0,0,2,2])+2208 (Sqrt[14]) (enn^2) Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,0,2,2])] (Subscript[A, 2,2,0,0,2,2]) (Subscript[A, 4,2,0,0,2,2])-960 (Sqrt[14]) (enn^3) Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,0,2,2])] (Subscript[A, 2,2,0,0,2,2]) (Subscript[A, 4,2,0,0,2,2])-144 (Sqrt[14]) enn Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,0,2,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,0,2,2])+624 (Sqrt[14]) (enn^2) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,0,2,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,0,2,2])-480 (Sqrt[14]) (enn^3) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,0,2,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,0,2,2])+432 (Sqrt[14]) enn (x^2) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,0,2,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,0,2,2])-1872 (Sqrt[14]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,0,2,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,0,2,2])+1440 (Sqrt[14]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,0,2,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,0,2,2])+864 (Subscript[A, 4,2,0,0,2,2]^2)-7488 enn (Subscript[A, 4,2,0,0,2,2]^2)+21984 (enn^2) (Subscript[A, 4,2,0,0,2,2]^2)-24960 (enn^3) (Subscript[A, 4,2,0,0,2,2]^2)+9600 (enn^4) (Subscript[A, 4,2,0,0,2,2]^2)-336 (Sqrt[14]) enn Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 2,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])+816 (Sqrt[14]) (enn^2) Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 2,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])-480 (Sqrt[14]) (enn^3) Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 2,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])+1008 (Sqrt[14]) enn (x^2) Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 2,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])-2448 (Sqrt[14]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 2,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])+1440 (Sqrt[14]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 2,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])+672 (Sqrt[14]) (enn^2) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,2,0,2])-960 (Sqrt[14]) (enn^3) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,2,0,2])-2016 enn Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])+11616 (enn^2) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])-19200 (enn^3) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])+9600 (enn^4) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])+6048 enn (x^2) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])-34848 (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])+57600 (enn^3) (x^2) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])-28800 (enn^4) (x^2) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,0,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,0,2])+4704 (enn^2) (Subscript[A, 4,2,0,2,0,2]^2)-13440 (enn^3) (Subscript[A, 4,2,0,2,0,2]^2)+9600 (enn^4) (Subscript[A, 4,2,0,2,0,2]^2)+192 (Sqrt[35]) enn Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 2,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])-384 (Sqrt[35]) (enn^2) Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 2,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])+192 (Sqrt[35]) (enn^3) Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 2,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])-576 (Sqrt[35]) enn (x^2) Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 2,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])+1152 (Sqrt[35]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 2,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])-576 (Sqrt[35]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 2,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])+192 (Sqrt[35]) (enn^2) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,2,2,2])-192 (Sqrt[35]) (enn^3) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,2,2,2])-576 (Sqrt[35]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,2,2,2])+576 (Sqrt[35]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 2,2,0,2,0,2]) (Subscript[A, 4,2,0,2,2,2])+576 (Sqrt[10]) enn Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])-3072 (Sqrt[10]) (enn^2) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])+4416 (Sqrt[10]) (enn^3) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])-1920 (Sqrt[10]) (enn^4) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])-1728 (Sqrt[10]) enn (x^2) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])+9216 (Sqrt[10]) (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])-13248 (Sqrt[10]) (enn^3) (x^2) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])+5760 (Sqrt[10]) (enn^4) (x^2) Cos[(Subscript[ϕ, 4,2,0,0,2,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,0,2,2]) (Subscript[A, 4,2,0,2,2,2])+1344 (Sqrt[10]) (enn^2) Cos[(Subscript[ϕ, 4,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,2,0,2]) (Subscript[A, 4,2,0,2,2,2])-3264 (Sqrt[10]) (enn^3) Cos[(Subscript[ϕ, 4,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,2,0,2]) (Subscript[A, 4,2,0,2,2,2])+1920 (Sqrt[10]) (enn^4) Cos[(Subscript[ϕ, 4,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,2,0,2]) (Subscript[A, 4,2,0,2,2,2])-4032 (Sqrt[10]) (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,2,0,2]) (Subscript[A, 4,2,0,2,2,2])+9792 (Sqrt[10]) (enn^3) (x^2) Cos[(Subscript[ϕ, 4,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,2,0,2]) (Subscript[A, 4,2,0,2,2,2])-5760 (Sqrt[10]) (enn^4) (x^2) Cos[(Subscript[ϕ, 4,2,0,2,0,2])-(Subscript[ϕ, 4,2,0,2,2,2])] (Subscript[A, 4,2,0,2,0,2]) (Subscript[A, 4,2,0,2,2,2])+3840 (enn^2) (Subscript[A, 4,2,0,2,2,2]^2)-7680 (enn^3) (Subscript[A, 4,2,0,2,2,2]^2)+3840 (enn^4) (Subscript[A, 4,2,0,2,2,2]^2)-8640 (enn^2) (x^2) (Subscript[A, 4,2,0,2,2,2]^2)+17280 (enn^3) (x^2) (Subscript[A, 4,2,0,2,2,2]^2)-8640 (enn^4) (x^2) (Subscript[A, 4,2,0,2,2,2]^2)+8640 (enn^2) (x^4) (Subscript[A, 4,2,0,2,2,2]^2)-17280 (enn^3) (x^4) (Subscript[A, 4,2,0,2,2,2]^2)+8640 (enn^4) (x^4) (Subscript[A, 4,2,0,2,2,2]^2)+1008 (Sqrt[6]) enn Cos[(Subscript[ϕ, 2,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,1,1])] (Subscript[A, 2,2,1,1,1,1]) (Subscript[A, 4,2,1,1,1,1])-3024 (Sqrt[6]) (enn^2) Cos[(Subscript[ϕ, 2,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,1,1])] (Subscript[A, 2,2,1,1,1,1]) (Subscript[A, 4,2,1,1,1,1])+2016 (Sqrt[6]) (enn^3) Cos[(Subscript[ϕ, 2,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,1,1])] (Subscript[A, 2,2,1,1,1,1]) (Subscript[A, 4,2,1,1,1,1])+336 (Sqrt[6]) enn (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,1,1])] (Subscript[A, 2,2,1,1,1,1]) (Subscript[A, 4,2,1,1,1,1])-1008 (Sqrt[6]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,1,1])] (Subscript[A, 2,2,1,1,1,1]) (Subscript[A, 4,2,1,1,1,1])+672 (Sqrt[6]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,1,1])] (Subscript[A, 2,2,1,1,1,1]) (Subscript[A, 4,2,1,1,1,1])+3024 enn (Subscript[A, 4,2,1,1,1,1]^2)-15120 (enn^2) (Subscript[A, 4,2,1,1,1,1]^2)+24192 (enn^3) (Subscript[A, 4,2,1,1,1,1]^2)-12096 (enn^4) (Subscript[A, 4,2,1,1,1,1]^2)+1008 enn (x^2) (Subscript[A, 4,2,1,1,1,1]^2)-5040 (enn^2) (x^2) (Subscript[A, 4,2,1,1,1,1]^2)+8064 (enn^3) (x^2) (Subscript[A, 4,2,1,1,1,1]^2)-4032 (enn^4) (x^2) (Subscript[A, 4,2,1,1,1,1]^2)+1008 (Sqrt[6]) enn Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,1,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,1,2])-3024 (Sqrt[6]) (enn^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,1,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,1,2])+2016 (Sqrt[6]) (enn^3) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,1,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,1,2])+336 (Sqrt[6]) enn (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,1,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,1,2])-1008 (Sqrt[6]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,1,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,1,2])+672 (Sqrt[6]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,1,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,1,2])+3024 enn (Subscript[A, 4,2,1,1,1,2]^2)-15120 (enn^2) (Subscript[A, 4,2,1,1,1,2]^2)+24192 (enn^3) (Subscript[A, 4,2,1,1,1,2]^2)-12096 (enn^4) (Subscript[A, 4,2,1,1,1,2]^2)+1008 enn (x^2) (Subscript[A, 4,2,1,1,1,2]^2)-5040 (enn^2) (x^2) (Subscript[A, 4,2,1,1,1,2]^2)+8064 (enn^3) (x^2) (Subscript[A, 4,2,1,1,1,2]^2)-4032 (enn^4) (x^2) (Subscript[A, 4,2,1,1,1,2]^2)+1008 (Sqrt[6]) enn Cos[(Subscript[ϕ, 2,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,1,1,3])] (Subscript[A, 2,2,1,1,1,3]) (Subscript[A, 4,2,1,1,1,3])-3024 (Sqrt[6]) (enn^2) Cos[(Subscript[ϕ, 2,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,1,1,3])] (Subscript[A, 2,2,1,1,1,3]) (Subscript[A, 4,2,1,1,1,3])+2016 (Sqrt[6]) (enn^3) Cos[(Subscript[ϕ, 2,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,1,1,3])] (Subscript[A, 2,2,1,1,1,3]) (Subscript[A, 4,2,1,1,1,3])+336 (Sqrt[6]) enn (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,1,1,3])] (Subscript[A, 2,2,1,1,1,3]) (Subscript[A, 4,2,1,1,1,3])-1008 (Sqrt[6]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,1,1,3])] (Subscript[A, 2,2,1,1,1,3]) (Subscript[A, 4,2,1,1,1,3])+672 (Sqrt[6]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,1,1,3])] (Subscript[A, 2,2,1,1,1,3]) (Subscript[A, 4,2,1,1,1,3])+3024 enn (Subscript[A, 4,2,1,1,1,3]^2)-15120 (enn^2) (Subscript[A, 4,2,1,1,1,3]^2)+24192 (enn^3) (Subscript[A, 4,2,1,1,1,3]^2)-12096 (enn^4) (Subscript[A, 4,2,1,1,1,3]^2)+1008 enn (x^2) (Subscript[A, 4,2,1,1,1,3]^2)-5040 (enn^2) (x^2) (Subscript[A, 4,2,1,1,1,3]^2)+8064 (enn^3) (x^2) (Subscript[A, 4,2,1,1,1,3]^2)-4032 (enn^4) (x^2) (Subscript[A, 4,2,1,1,1,3]^2)+576 (Sqrt[7]) enn Cos[(Subscript[ϕ, 2,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 2,2,1,1,1,1]) (Subscript[A, 4,2,1,1,3,1])-1152 (Sqrt[7]) (enn^2) Cos[(Subscript[ϕ, 2,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 2,2,1,1,1,1]) (Subscript[A, 4,2,1,1,3,1])+576 (Sqrt[7]) (enn^3) Cos[(Subscript[ϕ, 2,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 2,2,1,1,1,1]) (Subscript[A, 4,2,1,1,3,1])-1728 (Sqrt[7]) enn (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 2,2,1,1,1,1]) (Subscript[A, 4,2,1,1,3,1])+3456 (Sqrt[7]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 2,2,1,1,1,1]) (Subscript[A, 4,2,1,1,3,1])-1728 (Sqrt[7]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 2,2,1,1,1,1]) (Subscript[A, 4,2,1,1,3,1])+576 (Sqrt[42]) enn Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,1,3,1])-2304 (Sqrt[42]) (enn^2) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,1,3,1])+2880 (Sqrt[42]) (enn^3) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,1,3,1])-1152 (Sqrt[42]) (enn^4) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,1,3,1])-1728 (Sqrt[42]) enn (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,1,3,1])+6912 (Sqrt[42]) (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,1,3,1])-8640 (Sqrt[42]) (enn^3) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,1,3,1])+3456 (Sqrt[42]) (enn^4) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,1,3,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,1,3,1])+1152 enn (Subscript[A, 4,2,1,1,3,1]^2)-3456 (enn^2) (Subscript[A, 4,2,1,1,3,1]^2)+3456 (enn^3) (Subscript[A, 4,2,1,1,3,1]^2)-1152 (enn^4) (Subscript[A, 4,2,1,1,3,1]^2)+2304 enn (x^2) (Subscript[A, 4,2,1,1,3,1]^2)-6912 (enn^2) (x^2) (Subscript[A, 4,2,1,1,3,1]^2)+6912 (enn^3) (x^2) (Subscript[A, 4,2,1,1,3,1]^2)-2304 (enn^4) (x^2) (Subscript[A, 4,2,1,1,3,1]^2)+576 (Sqrt[7]) enn Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])-1152 (Sqrt[7]) (enn^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])+576 (Sqrt[7]) (enn^3) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])-1728 (Sqrt[7]) enn (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])+3456 (Sqrt[7]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])-1728 (Sqrt[7]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])+576 (Sqrt[42]) enn Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])-2304 (Sqrt[42]) (enn^2) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])+2880 (Sqrt[42]) (enn^3) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])-1152 (Sqrt[42]) (enn^4) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])-1728 (Sqrt[42]) enn (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])+6912 (Sqrt[42]) (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])-8640 (Sqrt[42]) (enn^3) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])+3456 (Sqrt[42]) (enn^4) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,1,3,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,1,3,2])+1152 enn (Subscript[A, 4,2,1,1,3,2]^2)-3456 (enn^2) (Subscript[A, 4,2,1,1,3,2]^2)+3456 (enn^3) (Subscript[A, 4,2,1,1,3,2]^2)-1152 (enn^4) (Subscript[A, 4,2,1,1,3,2]^2)+2304 enn (x^2) (Subscript[A, 4,2,1,1,3,2]^2)-6912 (enn^2) (x^2) (Subscript[A, 4,2,1,1,3,2]^2)+6912 (enn^3) (x^2) (Subscript[A, 4,2,1,1,3,2]^2)-2304 (enn^4) (x^2) (Subscript[A, 4,2,1,1,3,2]^2)+576 (Sqrt[7]) enn Cos[(Subscript[ϕ, 2,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,1,3,3])] (Subscript[A, 2,2,1,1,1,3]) (Subscript[A, 4,2,1,1,3,3])-1152 (Sqrt[7]) (enn^2) Cos[(Subscript[ϕ, 2,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,1,3,3])] (Subscript[A, 2,2,1,1,1,3]) (Subscript[A, 4,2,1,1,3,3])+576 (Sqrt[7]) (enn^3) Cos[(Subscript[ϕ, 2,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,1,3,3])] (Subscript[A, 2,2,1,1,1,3]) (Subscript[A, 4,2,1,1,3,3])-1728 (Sqrt[7]) enn (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,1,3,3])] (Subscript[A, 2,2,1,1,1,3]) (Subscript[A, 4,2,1,1,3,3])+3456 (Sqrt[7]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,1,3,3])] (Subscript[A, 2,2,1,1,1,3]) (Subscript[A, 4,2,1,1,3,3])-1728 (Sqrt[7]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,1,3,3])] (Subscript[A, 2,2,1,1,1,3]) (Subscript[A, 4,2,1,1,3,3])+576 (Sqrt[42]) enn Cos[(Subscript[ϕ, 4,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,1,3,3])] (Subscript[A, 4,2,1,1,1,3]) (Subscript[A, 4,2,1,1,3,3])-2304 (Sqrt[42]) (enn^2) Cos[(Subscript[ϕ, 4,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,1,3,3])] (Subscript[A, 4,2,1,1,1,3]) (Subscript[A, 4,2,1,1,3,3])+2880 (Sqrt[42]) (enn^3) Cos[(Subscript[ϕ, 4,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,1,3,3])] (Subscript[A, 4,2,1,1,1,3]) (Subscript[A, 4,2,1,1,3,3])-1152 (Sqrt[42]) (enn^4) Cos[(Subscript[ϕ, 4,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,1,3,3])] (Subscript[A, 4,2,1,1,1,3]) (Subscript[A, 4,2,1,1,3,3])-1728 (Sqrt[42]) enn (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,1,3,3])] (Subscript[A, 4,2,1,1,1,3]) (Subscript[A, 4,2,1,1,3,3])+6912 (Sqrt[42]) (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,1,3,3])] (Subscript[A, 4,2,1,1,1,3]) (Subscript[A, 4,2,1,1,3,3])-8640 (Sqrt[42]) (enn^3) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,1,3,3])] (Subscript[A, 4,2,1,1,1,3]) (Subscript[A, 4,2,1,1,3,3])+3456 (Sqrt[42]) (enn^4) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,1,3,3])] (Subscript[A, 4,2,1,1,1,3]) (Subscript[A, 4,2,1,1,3,3])+1152 enn (Subscript[A, 4,2,1,1,3,3]^2)-3456 (enn^2) (Subscript[A, 4,2,1,1,3,3]^2)+3456 (enn^3) (Subscript[A, 4,2,1,1,3,3]^2)-1152 (enn^4) (Subscript[A, 4,2,1,1,3,3]^2)+2304 enn (x^2) (Subscript[A, 4,2,1,1,3,3]^2)-6912 (enn^2) (x^2) (Subscript[A, 4,2,1,1,3,3]^2)+6912 (enn^3) (x^2) (Subscript[A, 4,2,1,1,3,3]^2)-2304 (enn^4) (x^2) (Subscript[A, 4,2,1,1,3,3]^2)+576 (Sqrt[7]) (enn^2) Cos[(Subscript[ϕ, 2,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 2,2,1,1,1,1]) (Subscript[A, 4,2,1,3,1,1])-576 (Sqrt[7]) (enn^3) Cos[(Subscript[ϕ, 2,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 2,2,1,1,1,1]) (Subscript[A, 4,2,1,3,1,1])-1728 (Sqrt[7]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 2,2,1,1,1,1]) (Subscript[A, 4,2,1,3,1,1])+1728 (Sqrt[7]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 2,2,1,1,1,1]) (Subscript[A, 4,2,1,3,1,1])+576 (Sqrt[42]) (enn^2) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,3,1,1])-1728 (Sqrt[42]) (enn^3) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,3,1,1])+1152 (Sqrt[42]) (enn^4) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,3,1,1])-1728 (Sqrt[42]) (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,3,1,1])+5184 (Sqrt[42]) (enn^3) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,3,1,1])-3456 (Sqrt[42]) (enn^4) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,1,1]) (Subscript[A, 4,2,1,3,1,1])+2304 (enn^2) Cos[(Subscript[ϕ, 4,2,1,1,3,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,3,1]) (Subscript[A, 4,2,1,3,1,1])-4608 (enn^3) Cos[(Subscript[ϕ, 4,2,1,1,3,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,3,1]) (Subscript[A, 4,2,1,3,1,1])+2304 (enn^4) Cos[(Subscript[ϕ, 4,2,1,1,3,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,3,1]) (Subscript[A, 4,2,1,3,1,1])-24192 (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,3,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,3,1]) (Subscript[A, 4,2,1,3,1,1])+48384 (enn^3) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,3,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,3,1]) (Subscript[A, 4,2,1,3,1,1])-24192 (enn^4) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,3,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,3,1]) (Subscript[A, 4,2,1,3,1,1])+28800 (enn^2) (x^4) Cos[(Subscript[ϕ, 4,2,1,1,3,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,3,1]) (Subscript[A, 4,2,1,3,1,1])-57600 (enn^3) (x^4) Cos[(Subscript[ϕ, 4,2,1,1,3,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,3,1]) (Subscript[A, 4,2,1,3,1,1])+28800 (enn^4) (x^4) Cos[(Subscript[ϕ, 4,2,1,1,3,1])-(Subscript[ϕ, 4,2,1,3,1,1])] (Subscript[A, 4,2,1,1,3,1]) (Subscript[A, 4,2,1,3,1,1])+1152 (enn^3) (Subscript[A, 4,2,1,3,1,1]^2)-1152 (enn^4) (Subscript[A, 4,2,1,3,1,1]^2)+2304 (enn^3) (x^2) (Subscript[A, 4,2,1,3,1,1]^2)-2304 (enn^4) (x^2) (Subscript[A, 4,2,1,3,1,1]^2)+576 (Sqrt[7]) (enn^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,3,1,2])-576 (Sqrt[7]) (enn^3) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,3,1,2])-1728 (Sqrt[7]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,3,1,2])+1728 (Sqrt[7]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 2,2,1,1,1,2]) (Subscript[A, 4,2,1,3,1,2])+576 (Sqrt[42]) (enn^2) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,3,1,2])-1728 (Sqrt[42]) (enn^3) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,3,1,2])+1152 (Sqrt[42]) (enn^4) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,3,1,2])-1728 (Sqrt[42]) (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,3,1,2])+5184 (Sqrt[42]) (enn^3) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,3,1,2])-3456 (Sqrt[42]) (enn^4) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,1,2]) (Subscript[A, 4,2,1,3,1,2])+2304 (enn^2) Cos[(Subscript[ϕ, 4,2,1,1,3,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,3,2]) (Subscript[A, 4,2,1,3,1,2])-4608 (enn^3) Cos[(Subscript[ϕ, 4,2,1,1,3,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,3,2]) (Subscript[A, 4,2,1,3,1,2])+2304 (enn^4) Cos[(Subscript[ϕ, 4,2,1,1,3,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,3,2]) (Subscript[A, 4,2,1,3,1,2])-24192 (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,3,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,3,2]) (Subscript[A, 4,2,1,3,1,2])+48384 (enn^3) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,3,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,3,2]) (Subscript[A, 4,2,1,3,1,2])-24192 (enn^4) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,3,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,3,2]) (Subscript[A, 4,2,1,3,1,2])+28800 (enn^2) (x^4) Cos[(Subscript[ϕ, 4,2,1,1,3,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,3,2]) (Subscript[A, 4,2,1,3,1,2])-57600 (enn^3) (x^4) Cos[(Subscript[ϕ, 4,2,1,1,3,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,3,2]) (Subscript[A, 4,2,1,3,1,2])+28800 (enn^4) (x^4) Cos[(Subscript[ϕ, 4,2,1,1,3,2])-(Subscript[ϕ, 4,2,1,3,1,2])] (Subscript[A, 4,2,1,1,3,2]) (Subscript[A, 4,2,1,3,1,2])+1152 (enn^3) (Subscript[A, 4,2,1,3,1,2]^2)-1152 (enn^4) (Subscript[A, 4,2,1,3,1,2]^2)+2304 (enn^3) (x^2) (Subscript[A, 4,2,1,3,1,2]^2)-2304 (enn^4) (x^2) (Subscript[A, 4,2,1,3,1,2]^2)+576 (Sqrt[7]) (enn^2) Cos[(Subscript[ϕ, 2,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,3,1,3])] (Subscript[A, 2,2,1,1,1,3]) (Subscript[A, 4,2,1,3,1,3])-576 (Sqrt[7]) (enn^3) Cos[(Subscript[ϕ, 2,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,3,1,3])] (Subscript[A, 2,2,1,1,1,3]) (Subscript[A, 4,2,1,3,1,3])-1728 (Sqrt[7]) (enn^2) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,3,1,3])] (Subscript[A, 2,2,1,1,1,3]) (Subscript[A, 4,2,1,3,1,3])+1728 (Sqrt[7]) (enn^3) (x^2) Cos[(Subscript[ϕ, 2,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,3,1,3])] (Subscript[A, 2,2,1,1,1,3]) (Subscript[A, 4,2,1,3,1,3])+576 (Sqrt[42]) (enn^2) Cos[(Subscript[ϕ, 4,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,3,1,3])] (Subscript[A, 4,2,1,1,1,3]) (Subscript[A, 4,2,1,3,1,3])-1728 (Sqrt[42]) (enn^3) Cos[(Subscript[ϕ, 4,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,3,1,3])] (Subscript[A, 4,2,1,1,1,3]) (Subscript[A, 4,2,1,3,1,3])+1152 (Sqrt[42]) (enn^4) Cos[(Subscript[ϕ, 4,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,3,1,3])] (Subscript[A, 4,2,1,1,1,3]) (Subscript[A, 4,2,1,3,1,3])-1728 (Sqrt[42]) (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,3,1,3])] (Subscript[A, 4,2,1,1,1,3]) (Subscript[A, 4,2,1,3,1,3])+5184 (Sqrt[42]) (enn^3) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,3,1,3])] (Subscript[A, 4,2,1,1,1,3]) (Subscript[A, 4,2,1,3,1,3])-3456 (Sqrt[42]) (enn^4) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,1,3])-(Subscript[ϕ, 4,2,1,3,1,3])] (Subscript[A, 4,2,1,1,1,3]) (Subscript[A, 4,2,1,3,1,3])+2304 (enn^2) Cos[(Subscript[ϕ, 4,2,1,1,3,3])-(Subscript[ϕ, 4,2,1,3,1,3])] (Subscript[A, 4,2,1,1,3,3]) (Subscript[A, 4,2,1,3,1,3])-4608 (enn^3) Cos[(Subscript[ϕ, 4,2,1,1,3,3])-(Subscript[ϕ, 4,2,1,3,1,3])] (Subscript[A, 4,2,1,1,3,3]) (Subscript[A, 4,2,1,3,1,3])+2304 (enn^4) Cos[(Subscript[ϕ, 4,2,1,1,3,3])-(Subscript[ϕ, 4,2,1,3,1,3])] (Subscript[A, 4,2,1,1,3,3]) (Subscript[A, 4,2,1,3,1,3])-24192 (enn^2) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,3,3])-(Subscript[ϕ, 4,2,1,3,1,3])] (Subscript[A, 4,2,1,1,3,3]) (Subscript[A, 4,2,1,3,1,3])+48384 (enn^3) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,3,3])-(Subscript[ϕ, 4,2,1,3,1,3])] (Subscript[A, 4,2,1,1,3,3]) (Subscript[A, 4,2,1,3,1,3])-24192 (enn^4) (x^2) Cos[(Subscript[ϕ, 4,2,1,1,3,3])-(Subscript[ϕ, 4,2,1,3,1,3])] (Subscript[A, 4,2,1,1,3,3]) (Subscript[A, 4,2,1,3,1,3])+28800 (enn^2) (x^4) Cos[(Subscript[ϕ, 4,2,1,1,3,3])-(Subscript[ϕ, 4,2,1,3,1,3])] (Subscript[A, 4,2,1,1,3,3]) (Subscript[A, 4,2,1,3,1,3])-57600 (enn^3) (x^4) Cos[(Subscript[ϕ, 4,2,1,1,3,3])-(Subscript[ϕ, 4,2,1,3,1,3])] (Subscript[A, 4,2,1,1,3,3]) (Subscript[A, 4,2,1,3,1,3])+28800 (enn^4) (x^4) Cos[(Subscript[ϕ, 4,2,1,1,3,3])-(Subscript[ϕ, 4,2,1,3,1,3])] (Subscript[A, 4,2,1,1,3,3]) (Subscript[A, 4,2,1,3,1,3])+1152 (enn^3) (Subscript[A, 4,2,1,3,1,3]^2)-1152 (enn^4) (Subscript[A, 4,2,1,3,1,3]^2)+2304 (enn^3) (x^2) (Subscript[A, 4,2,1,3,1,3]^2)-2304 (enn^4) (x^2) (Subscript[A, 4,2,1,3,1,3]^2)+3600 (enn^2) (Subscript[A, 4,3,0,2,2,3]^2)-7200 (enn^3) (Subscript[A, 4,3,0,2,2,3]^2)+3600 (enn^4) (Subscript[A, 4,3,0,2,2,3]^2)-1440 (enn^2) (x^2) (Subscript[A, 4,3,0,2,2,3]^2)+2880 (enn^3) (x^2) (Subscript[A, 4,3,0,2,2,3]^2)-1440 (enn^4) (x^2) (Subscript[A, 4,3,0,2,2,3]^2)-2160 (enn^2) (x^4) (Subscript[A, 4,3,0,2,2,3]^2)+4320 (enn^3) (x^4) (Subscript[A, 4,3,0,2,2,3]^2)-2160 (enn^4) (x^4) (Subscript[A, 4,3,0,2,2,3]^2)+2880 enn (Subscript[A, 4,3,1,1,3,2]^2)-8640 (enn^2) (Subscript[A, 4,3,1,1,3,2]^2)+8640 (enn^3) (Subscript[A, 4,3,1,1,3,2]^2)-2880 (enn^4) (Subscript[A, 4,3,1,1,3,2]^2)-2880 enn (x^2) (Subscript[A, 4,3,1,1,3,2]^2)+8640 (enn^2) (x^2) (Subscript[A, 4,3,1,1,3,2]^2)-8640 (enn^3) (x^2) (Subscript[A, 4,3,1,1,3,2]^2)+2880 (enn^4) (x^2) (Subscript[A, 4,3,1,1,3,2]^2)+2880 enn (Subscript[A, 4,3,1,1,3,3]^2)-8640 (enn^2) (Subscript[A, 4,3,1,1,3,3]^2)+8640 (enn^3) (Subscript[A, 4,3,1,1,3,3]^2)-2880 (enn^4) (Subscript[A, 4,3,1,1,3,3]^2)-2880 enn (x^2) (Subscript[A, 4,3,1,1,3,3]^2)+8640 (enn^2) (x^2) (Subscript[A, 4,3,1,1,3,3]^2)-8640 (enn^3) (x^2) (Subscript[A, 4,3,1,1,3,3]^2)+2880 (enn^4) (x^2) (Subscript[A, 4,3,1,1,3,3]^2)-1440 (enn^2) Cos[(Subscript[ϕ, 4,3,1,1,3,2])-(Subscript[ϕ, 4,3,1,3,1,2])] (Subscript[A, 4,3,1,1,3,2]) (Subscript[A, 4,3,1,3,1,2])+2880 (enn^3) Cos[(Subscript[ϕ, 4,3,1,1,3,2])-(Subscript[ϕ, 4,3,1,3,1,2])] (Subscript[A, 4,3,1,1,3,2]) (Subscript[A, 4,3,1,3,1,2])-1440 (enn^4) Cos[(Subscript[ϕ, 4,3,1,1,3,2])-(Subscript[ϕ, 4,3,1,3,1,2])] (Subscript[A, 4,3,1,1,3,2]) (Subscript[A, 4,3,1,3,1,2])+8640 (enn^2) (x^2) Cos[(Subscript[ϕ, 4,3,1,1,3,2])-(Subscript[ϕ, 4,3,1,3,1,2])] (Subscript[A, 4,3,1,1,3,2]) (Subscript[A, 4,3,1,3,1,2])-17280 (enn^3) (x^2) Cos[(Subscript[ϕ, 4,3,1,1,3,2])-(Subscript[ϕ, 4,3,1,3,1,2])] (Subscript[A, 4,3,1,1,3,2]) (Subscript[A, 4,3,1,3,1,2])+8640 (enn^4) (x^2) Cos[(Subscript[ϕ, 4,3,1,1,3,2])-(Subscript[ϕ, 4,3,1,3,1,2])] (Subscript[A, 4,3,1,1,3,2]) (Subscript[A, 4,3,1,3,1,2])-7200 (enn^2) (x^4) Cos[(Subscript[ϕ, 4,3,1,1,3,2])-(Subscript[ϕ, 4,3,1,3,1,2])] (Subscript[A, 4,3,1,1,3,2]) (Subscript[A, 4,3,1,3,1,2])+14400 (enn^3) (x^4) Cos[(Subscript[ϕ, 4,3,1,1,3,2])-(Subscript[ϕ, 4,3,1,3,1,2])] (Subscript[A, 4,3,1,1,3,2]) (Subscript[A, 4,3,1,3,1,2])-7200 (enn^4) (x^4) Cos[(Subscript[ϕ, 4,3,1,1,3,2])-(Subscript[ϕ, 4,3,1,3,1,2])] (Subscript[A, 4,3,1,1,3,2]) (Subscript[A, 4,3,1,3,1,2])+2880 (enn^3) (Subscript[A, 4,3,1,3,1,2]^2)-2880 (enn^4) (Subscript[A, 4,3,1,3,1,2]^2)-2880 (enn^3) (x^2) (Subscript[A, 4,3,1,3,1,2]^2)+2880 (enn^4) (x^2) (Subscript[A, 4,3,1,3,1,2]^2)-1440 (enn^2) Cos[(Subscript[ϕ, 4,3,1,1,3,3])-(Subscript[ϕ, 4,3,1,3,1,3])] (Subscript[A, 4,3,1,1,3,3]) (Subscript[A, 4,3,1,3,1,3])+2880 (enn^3) Cos[(Subscript[ϕ, 4,3,1,1,3,3])-(Subscript[ϕ, 4,3,1,3,1,3])] (Subscript[A, 4,3,1,1,3,3]) (Subscript[A, 4,3,1,3,1,3])-1440 (enn^4) Cos[(Subscript[ϕ, 4,3,1,1,3,3])-(Subscript[ϕ, 4,3,1,3,1,3])] (Subscript[A, 4,3,1,1,3,3]) (Subscript[A, 4,3,1,3,1,3])+8640 (enn^2) (x^2) Cos[(Subscript[ϕ, 4,3,1,1,3,3])-(Subscript[ϕ, 4,3,1,3,1,3])] (Subscript[A, 4,3,1,1,3,3]) (Subscript[A, 4,3,1,3,1,3])-17280 (enn^3) (x^2) Cos[(Subscript[ϕ, 4,3,1,1,3,3])-(Subscript[ϕ, 4,3,1,3,1,3])] (Subscript[A, 4,3,1,1,3,3]) (Subscript[A, 4,3,1,3,1,3])+8640 (enn^4) (x^2) Cos[(Subscript[ϕ, 4,3,1,1,3,3])-(Subscript[ϕ, 4,3,1,3,1,3])] (Subscript[A, 4,3,1,1,3,3]) (Subscript[A, 4,3,1,3,1,3])-7200 (enn^2) (x^4) Cos[(Subscript[ϕ, 4,3,1,1,3,3])-(Subscript[ϕ, 4,3,1,3,1,3])] (Subscript[A, 4,3,1,1,3,3]) (Subscript[A, 4,3,1,3,1,3])+14400 (enn^3) (x^4) Cos[(Subscript[ϕ, 4,3,1,1,3,3])-(Subscript[ϕ, 4,3,1,3,1,3])] (Subscript[A, 4,3,1,1,3,3]) (Subscript[A, 4,3,1,3,1,3])-7200 (enn^4) (x^4) Cos[(Subscript[ϕ, 4,3,1,1,3,3])-(Subscript[ϕ, 4,3,1,3,1,3])] (Subscript[A, 4,3,1,1,3,3]) (Subscript[A, 4,3,1,3,1,3])+2880 (enn^3) (Subscript[A, 4,3,1,3,1,3]^2)-2880 (enn^4) (Subscript[A, 4,3,1,3,1,3]^2)-2880 (enn^3) (x^2) (Subscript[A, 4,3,1,3,1,3]^2)+2880 (enn^4) (x^2) (Subscript[A, 4,3,1,3,1,3]^2)+1600 enn (Subscript[A, 4,4,1,1,3,3]^2)-4800 (enn^2) (Subscript[A, 4,4,1,1,3,3]^2)+4800 (enn^3) (Subscript[A, 4,4,1,1,3,3]^2)-1600 (enn^4) (Subscript[A, 4,4,1,1,3,3]^2)+960 enn (x^2) (Subscript[A, 4,4,1,1,3,3]^2)-2880 (enn^2) (x^2) (Subscript[A, 4,4,1,1,3,3]^2)+2880 (enn^3) (x^2) (Subscript[A, 4,4,1,1,3,3]^2)-960 (enn^4) (x^2) (Subscript[A, 4,4,1,1,3,3]^2)-2400 (enn^2) Cos[(Subscript[ϕ, 4,4,1,1,3,3])-(Subscript[ϕ, 4,4,1,3,1,3])] (Subscript[A, 4,4,1,1,3,3]) (Subscript[A, 4,4,1,3,1,3])+4800 (enn^3) Cos[(Subscript[ϕ, 4,4,1,1,3,3])-(Subscript[ϕ, 4,4,1,3,1,3])] (Subscript[A, 4,4,1,1,3,3]) (Subscript[A, 4,4,1,3,1,3])-2400 (enn^4) Cos[(Subscript[ϕ, 4,4,1,1,3,3])-(Subscript[ϕ, 4,4,1,3,1,3])] (Subscript[A, 4,4,1,1,3,3]) (Subscript[A, 4,4,1,3,1,3])+6720 (enn^2) (x^2) Cos[(Subscript[ϕ, 4,4,1,1,3,3])-(Subscript[ϕ, 4,4,1,3,1,3])] (Subscript[A, 4,4,1,1,3,3]) (Subscript[A, 4,4,1,3,1,3])-13440 (enn^3) (x^2) Cos[(Subscript[ϕ, 4,4,1,1,3,3])-(Subscript[ϕ, 4,4,1,3,1,3])] (Subscript[A, 4,4,1,1,3,3]) (Subscript[A, 4,4,1,3,1,3])+6720 (enn^4) (x^2) Cos[(Subscript[ϕ, 4,4,1,1,3,3])-(Subscript[ϕ, 4,4,1,3,1,3])] (Subscript[A, 4,4,1,1,3,3]) (Subscript[A, 4,4,1,3,1,3])+800 (enn^2) (x^4) Cos[(Subscript[ϕ, 4,4,1,1,3,3])-(Subscript[ϕ, 4,4,1,3,1,3])] (Subscript[A, 4,4,1,1,3,3]) (Subscript[A, 4,4,1,3,1,3])-1600 (enn^3) (x^4) Cos[(Subscript[ϕ, 4,4,1,1,3,3])-(Subscript[ϕ, 4,4,1,3,1,3])] (Subscript[A, 4,4,1,1,3,3]) (Subscript[A, 4,4,1,3,1,3])+800 (enn^4) (x^4) Cos[(Subscript[ϕ, 4,4,1,1,3,3])-(Subscript[ϕ, 4,4,1,3,1,3])] (Subscript[A, 4,4,1,1,3,3]) (Subscript[A, 4,4,1,3,1,3])+1600 (enn^3) (Subscript[A, 4,4,1,3,1,3]^2)-1600 (enn^4) (Subscript[A, 4,4,1,3,1,3]^2)+960 (enn^3) (x^2) (Subscript[A, 4,4,1,3,1,3]^2)-960 (enn^4) (x^2) (Subscript[A, 4,4,1,3,1,3]^2));