Packages for ATTT

Initial

BeginPackage["ATTT`"];

δ2D::usage="δ2D[r_,α_,ν_,λ1_,λ2_,n_]  returns the 2D density at euclidian position (rCos[α],rSin[α]) around a critical point of height ν and eigenvalues λ1, λ2";

spin2D::usage="spin2D[r_,α_,ν_,λ1_,λ2_,n_]  returns  the 2D spin at euclidian position (r Cos[α],r Sin[α]) around a critical point of height ν and eigenvalues λ1, λ2";

var2D::usage="var2D[r_,α_,ν_,λ1_,λ2_,n_] variance on 2D spin at euclidian position (r Cos[α] , r Sin[α]) around a critical point of height ν and eigenvalues λ1, λ2";

δ3D::usage="δ3D[r_,θ_,z_,ν_,λ1_,λ2_,λ3_,n_] returns the 3D density at cylindrical position (r, θ, z) around a critical point of height ν and eigenvalues λ1, λ2, λ3";

spin3D::usage="spin3D[r_,θ_,z_,ν_,λ1_,λ2_,λ3_,n_] returns the spin in euclidian coordinates at position (x,y,z) around a critical point of height ν and eigenvalues λ1, λ2, λ3";

δ2DN::usage="δ2DN[r_,α_,ν_,λ1_,λ2_,n_]  returns the (compiled) 2D density at euclidian position (rCos[α] , rSin[α]) around a critical point of height ν and eigenvalues λ1, λ2";

spin2DN::usage="spin2DN[r_,α_,ν_,λ1_,λ2_,n_]  returns  the (compiled) 2D spin at euclidian position (r Cos[α] , r Sin[α]) around a critical point of height ν and eigenvalues λ1, λ2";

var2DN::usage="var2DN[r_,α_,ν_,λ1_,λ2_,n_] variance on (compiled) 2D spin at euclidian position (r Cos[α] , r Sin[α]) around a critical point of height ν and eigenvalues λ1, λ2";

δ3DN::usage="δ3DN[r_,θ_,z_,ν_,λ1_,λ2_,λ3_,n_] returns the (compiled) 3D density at cylindrical position (r, θ, z) around a critical point of height ν and eigenvalues λ1, λ2, λ3";

spin3DN::usage="spin3DN[r_,θ_,z_,ν_,λ1_,λ2_,λ3_,n_] returns the (compiled) spin in euclidian coordinates at position (x,y,z) around a critical point of height ν and eigenvalues λ1, λ2, λ3";

Begin["Private`"]

2D

δ2D[r_,α_,ν_,λ1_,λ2_,n_]=((4 + n)*(16*Sqrt[8 + 6*n + n^2]*(Sqrt[(2 + n)/(4 + n)]*λ1 + 
     Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Hypergeometric1F1[1 + n/2, 2, -r^2/4] + 
   (2 + n)*(-16*(λ1 + λ2 + Sqrt[(2 + n)/(4 + n)]*ν)*
      Hypergeometric1F1[2 + n/2, 2, -r^2/4] + 
     r^2*(-(Sqrt[8 + 6*n + n^2]*(Sqrt[(2 + n)/(4 + n)]*λ1 + Sqrt[(2 + n)/(4 + n)]*
           λ2 + ν)*Hypergeometric1F1[2 + n/2, 3, -r^2/4]) + 
       ((4 + n)*(λ1 + λ2 + Sqrt[(2 + n)/(4 + n)]*ν) + 
         4*(λ1 - λ2)*Cos[2*α])*Hypergeometric1F1[3 + n/2, 3, -r^2/4]))))/
 (32*Sqrt[8 + 6*n + n^2]);

spin2D[r_,α_,ν_,λ1_,λ2_,n_]=((λ1 - λ2)*((-4 - n)*Sqrt[8 + 6*n + n^2]*r^2*
    ((4 + n)*(λ1 + λ2 + Sqrt[(2 + n)/(4 + n)]*ν) + 4*(λ1 - λ2)*Cos[2*α])*
    Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
    (-4*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
     3*Hypergeometric1F1[3 + n/2, 3, -r^2/4]) - 
   Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
    (4*((2 + n)*(4 + n)^2*r^2*(Sqrt[(2 + n)/(4 + n)]*λ1 + Sqrt[(2 + n)/(4 + n)]*
          λ2 + ν) + 48*Sqrt[8 + 6*n + n^2]*(λ1 - λ2)*Cos[2*α])*
      Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 3*(6 + n)*Sqrt[8 + 6*n + n^2]*r^2*
      ((4 + n)*(λ1 + λ2 + Sqrt[(2 + n)/(4 + n)]*ν) + 
       4*(λ1 - λ2)*Cos[2*α])*Hypergeometric1F1[4 + n/2, 3, -r^2/4]) + 
   4*Hypergeometric1F1[2 + n/2, 2, -r^2/4]*
    (((2 + n)*(4 + n)^2*r^2*(Sqrt[(2 + n)/(4 + n)]*λ1 + Sqrt[(2 + n)/(4 + n)]*
          λ2 + ν) + 48*Sqrt[8 + 6*n + n^2]*(λ1 - λ2)*Cos[2*α])*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - (6 + n)*Sqrt[8 + 6*n + n^2]*r^2*
      ((4 + n)*(λ1 + λ2 + Sqrt[(2 + n)/(4 + n)]*ν) + 
       4*(λ1 - λ2)*Cos[2*α])*Hypergeometric1F1[4 + n/2, 3, -r^2/4]))*
  Sin[2*α])/(64*(4 + n));

var2D[r_,α_,ν_,λ1_,λ2_,n_]=-((λ1 - λ2)^2*((-4 - n)*Sqrt[8 + 6*n + n^2]*r^2*
       ((4 + n)*(λ1 + λ2 + Sqrt[(2 + n)/(4 + n)]*ν) + 
        4*(λ1 - λ2)*Cos[2*α])*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       (-4*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
        3*Hypergeometric1F1[3 + n/2, 3, -r^2/4]) - 
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       (4*((2 + n)*(4 + n)^2*r^2*(Sqrt[(2 + n)/(4 + n)]*λ1 + Sqrt[(2 + n)/(4 + n)]*
             λ2 + ν) + 48*Sqrt[8 + 6*n + n^2]*(λ1 - λ2)*Cos[2*α])*
         Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 3*(6 + n)*Sqrt[8 + 6*n + n^2]*r^2*
         ((4 + n)*(λ1 + λ2 + Sqrt[(2 + n)/(4 + n)]*ν) + 
          4*(λ1 - λ2)*Cos[2*α])*Hypergeometric1F1[4 + n/2, 3, -r^2/4]) + 
      4*Hypergeometric1F1[2 + n/2, 2, -r^2/4]*
       (((2 + n)*(4 + n)^2*r^2*(Sqrt[(2 + n)/(4 + n)]*λ1 + Sqrt[(2 + n)/(4 + n)]*
             λ2 + ν) + 48*Sqrt[8 + 6*n + n^2]*(λ1 - λ2)*Cos[2*α])*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] - (6 + n)*Sqrt[8 + 6*n + n^2]*r^2*
         ((4 + n)*(λ1 + λ2 + Sqrt[(2 + n)/(4 + n)]*ν) + 
          4*(λ1 - λ2)*Cos[2*α])*Hypergeometric1F1[4 + n/2, 3, -r^2/4]))^2*
    Sin[2*α]^2)/(4096*(4 + n)^2) + 
 ((-144*(-8*(4 + n) + 128*(2 + n)*(1 - λ1^2 + 2*λ1*λ2 - λ2^2 + 
        (λ1 - λ2)^2*Cos[4*α])*Hypergeometric1F1[2 + n/2, 2, -r^2/4]^2 - 
      192*(2 + n)*(1 - λ1^2 + 2*λ1*λ2 - λ2^2 + (λ1 - λ2)^2*Cos[4*α])*
       Hypergeometric1F1[2 + n/2, 2, -r^2/4]*Hypergeometric1F1[2 + n/2, 3, -r^2/4] + 
      (2 + n)*((4 + n)*r^2 - 72*(-1 + λ1^2 - 2*λ1*λ2 + λ2^2) + 
        72*(λ1 - λ2)^2*Cos[4*α])*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2)*
     (24 + 4*(2 + n)*(-2 + (2 + n)*λ1^2 + (2 + n)*λ2^2 + 
        2*Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2*ν + 4*ν^2 + n*ν^2 + 
        2*λ1*((2 + n)*λ2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*ν))*
       Hypergeometric1F1[2 + n/2, 2, -r^2/4]^2 + 
      4*(-16 - 2*n + 24*λ1^2 + 8*n*λ1^2 + n^2*λ1^2 + 16*λ1*λ2 + 
        16*n*λ1*λ2 + 2*n^2*λ1*λ2 + 24*λ2^2 + 8*n*λ2^2 + n^2*λ2^2 + 
        32*Sqrt[(2 + n)/(4 + n)]*λ1*ν + 16*n*Sqrt[(2 + n)/(4 + n)]*λ1*ν + 
        2*n^2*Sqrt[(2 + n)/(4 + n)]*λ1*ν + 32*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 
        16*n*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 2*n^2*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 
        8*ν^2 + 6*n*ν^2 + n^2*ν^2 + 8*(4 + n)*(λ1 - λ2)*
         (λ1 + λ2 + Sqrt[(2 + n)/(4 + n)]*ν)*Cos[2*α] + 
        8*(λ1 - λ2)^2*Cos[4*α])*Hypergeometric1F1[3 + n/2, 2, -r^2/4]^2 - 
      48*((4 + n)*(λ1 - λ2)*(λ1 + λ2 + Sqrt[(2 + n)/(4 + n)]*ν)*
         Cos[2*α] + 2*(-1 + λ1^2 - 2*λ1*λ2 + λ2^2 + 
          (λ1 - λ2)^2*Cos[4*α]))*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      72*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      4*r^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      n*r^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 144*λ1^2*Cos[2*α]^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 288*λ1*λ2*Cos[2*α]^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 144*λ2^2*Cos[2*α]^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 8*Sqrt[8 + 6*n + n^2]*
       Hypergeometric1F1[2 + n/2, 2, -r^2/4]*
       ((-2*Sqrt[(2 + n)/(4 + n)] + Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ1^2 + 
          4*Sqrt[(2 + n)/(4 + n)]*λ2^2 + n*Sqrt[(2 + n)/(4 + n)]*λ2^2 + 
          6*λ2*ν + 2*n*λ2*ν + 4*Sqrt[(2 + n)/(4 + n)]*ν^2 + 
          n*Sqrt[(2 + n)/(4 + n)]*ν^2 + 2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*
             λ2 + (3 + n)*ν) + 4*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*λ1 + 
            Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Cos[2*α])*Hypergeometric1F1[3 + n/2, 
          2, -r^2/4] - 6*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*λ1 + 
          Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4])))/(4 + n) - 
   (24*(8*(4 + n) - 128*(2 + n)*(1 - λ1^2 + 2*λ1*λ2 - λ2^2 + 
        (λ1 - λ2)^2*Cos[4*α])*Hypergeometric1F1[2 + n/2, 2, -r^2/4]^2 + 
      192*(2 + n)*(1 - λ1^2 + 2*λ1*λ2 - λ2^2 + (λ1 - λ2)^2*Cos[4*α])*
       Hypergeometric1F1[2 + n/2, 2, -r^2/4]*Hypergeometric1F1[2 + n/2, 3, -r^2/4] - 
      (2 + n)*((4 + n)*r^2 - 72*(-1 + λ1^2 - 2*λ1*λ2 + λ2^2) + 
        72*(λ1 - λ2)^2*Cos[4*α])*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2)*
     (96 + 48*(2 + n)*(-2 + (2 + n)*λ1^2 + (2 + n)*λ2^2 + 
        2*Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2*ν + 4*ν^2 + n*ν^2 + 
        2*λ1*((2 + n)*λ2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*ν))*
       Hypergeometric1F1[2 + n/2, 2, -r^2/4]^2 + 
      48*(8*(λ1^2 + 6*λ1*λ2 + λ2^2 + 4*Sqrt[(2 + n)/(4 + n)]*λ1*ν + 
          4*Sqrt[(2 + n)/(4 + n)]*λ2*ν + ν^2) + 
        n^2*(λ1^2 + λ2^2 + 2*Sqrt[(2 + n)/(4 + n)]*λ2*ν + ν^2 + 
          2*λ1*(λ2 + Sqrt[(2 + n)/(4 + n)]*ν)) + 
        2*n*(-1 + 4*λ1^2 + 4*λ2^2 + 8*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 3*ν^2 + 
          8*λ1*(λ2 + Sqrt[(2 + n)/(4 + n)]*ν)) - 8*(λ1 - λ2)^2*Cos[4*α])*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4]^2 + 
      864*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      144*r^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      36*n*r^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 144*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 36*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 144*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 36*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 144*Sqrt[8 + 6*n + n^2]*r^2*λ1*
       ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      36*n*Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 144*Sqrt[8 + 6*n + n^2]*r^2*λ2*
       ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      36*n*Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 1728*λ1^2*Cos[2*α]^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 3456*λ1*λ2*Cos[2*α]^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 1728*λ2^2*Cos[2*α]^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      432*r^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, 
        -r^2/4] - 72*n*r^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 864*r^2*λ1^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      360*n*r^2*λ1^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 36*n^2*r^2*λ1^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      864*r^2*λ2^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 360*n*r^2*λ2^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      36*n^2*r^2*λ2^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 864*Sqrt[(2 + n)/(4 + n)]*r^2*λ1*
       ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 360*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ1*
       ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 36*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*λ1*
       ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 864*Sqrt[(2 + n)/(4 + n)]*r^2*λ2*
       ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 360*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ2*
       ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 36*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*λ2*
       ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 864*r^2*λ1^2*Cos[2*α]^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      144*n*r^2*λ1^2*Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 1728*r^2*λ1*λ2*Cos[2*α]^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      288*n*r^2*λ1*λ2*Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 864*r^2*λ2^2*Cos[2*α]^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      144*n*r^2*λ2^2*Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      6*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       ((-192 + (4 + n)*Sqrt[8 + 6*n + n^2]*r^2*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*
             λ1^2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2^2 + 2*(3 + n)*λ2*ν + 
            2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2 + (3 + n)*ν) + 
            Sqrt[(2 + n)/(4 + n)]*(-2 + (4 + n)*ν^2)) + 
          4*(4 + n)*Sqrt[8 + 6*n + n^2]*r^2*(λ1 - λ2)*
           (Sqrt[(2 + n)/(4 + n)]*λ1 + Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*
           Cos[2*α] + 384*(λ1 - λ2)^2*Cos[2*α]^2)*Hypergeometric1F1[3 + n/2, 
          3, -r^2/4] - (6 + n)*r^2*(-16 - 2*n + 24*λ1^2 + 8*n*λ1^2 + 
          n^2*λ1^2 + 16*λ1*λ2 + 16*n*λ1*λ2 + 2*n^2*λ1*λ2 + 24*λ2^2 + 
          8*n*λ2^2 + n^2*λ2^2 + 32*Sqrt[(2 + n)/(4 + n)]*λ1*ν + 
          16*n*Sqrt[(2 + n)/(4 + n)]*λ1*ν + 2*n^2*Sqrt[(2 + n)/(4 + n)]*λ1*
           ν + 32*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 16*n*Sqrt[(2 + n)/(4 + n)]*λ2*
           ν + 2*n^2*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 8*ν^2 + 6*n*ν^2 + 
          n^2*ν^2 + 8*(4 + n)*(λ1 - λ2)*(λ1 + λ2 + Sqrt[(2 + n)/(4 + n)]*
             ν)*Cos[2*α] + 8*(λ1 - λ2)^2*Cos[4*α])*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4]) - 
      6*Hypergeometric1F1[2 + n/2, 2, -r^2/4]*(16*Sqrt[8 + 6*n + n^2]*
         (Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ1^2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*
           λ2^2 + 2*(3 + n)*λ2*ν + 2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*
             λ2 + (3 + n)*ν) + Sqrt[(2 + n)/(4 + n)]*(-2 + (4 + n)*ν^2))*
         Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
        r^2*((8 + 6*n + n^2)*(-2 + (2 + n)*λ1^2 + (2 + n)*λ2^2 + 
            2*Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2*ν + 4*ν^2 + n*ν^2 + 
            2*λ1*((2 + n)*λ2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*ν))*
           Hypergeometric1F1[3 + n/2, 3, -r^2/4] - (6 + n)*Sqrt[8 + 6*n + n^2]*
           (-2*Sqrt[(2 + n)/(4 + n)] + Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ1^2 + 
            4*Sqrt[(2 + n)/(4 + n)]*λ2^2 + n*Sqrt[(2 + n)/(4 + n)]*λ2^2 + 
            6*λ2*ν + 2*n*λ2*ν + 4*Sqrt[(2 + n)/(4 + n)]*ν^2 + 
            n*Sqrt[(2 + n)/(4 + n)]*ν^2 + 2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + 
                n)*λ2 + (3 + n)*ν) + 4*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*
               λ1 + Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Cos[2*α])*
           Hypergeometric1F1[4 + n/2, 3, -r^2/4])) + 
      24*r^4*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 4, 
        -r^2/4] + 10*n*r^4*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 4, -r^2/4] + n^2*r^4*Hypergeometric1F1[3 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[4 + n/2, 4, -r^2/4]))/(4 + n) + 
   ((8*(4 + n) - 128*(2 + n)*(1 - λ1^2 + 2*λ1*λ2 - λ2^2 + 
        (λ1 - λ2)^2*Cos[4*α])*Hypergeometric1F1[2 + n/2, 2, -r^2/4]^2 + 
      192*(2 + n)*(1 - λ1^2 + 2*λ1*λ2 - λ2^2 + (λ1 - λ2)^2*Cos[4*α])*
       Hypergeometric1F1[2 + n/2, 2, -r^2/4]*Hypergeometric1F1[2 + n/2, 3, -r^2/4] - 
      (2 + n)*((4 + n)*r^2 - 72*(-1 + λ1^2 - 2*λ1*λ2 + λ2^2) + 
        72*(λ1 - λ2)^2*Cos[4*α])*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2)*
     (3456 + 576*(2 + n)*(-2 + (2 + n)*λ1^2 + (2 + n)*λ2^2 + 
        2*Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2*ν + 4*ν^2 + n*ν^2 + 
        2*λ1*((2 + n)*λ2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*ν))*
       Hypergeometric1F1[2 + n/2, 2, -r^2/4]^2 + 
      576*(-16 - 2*n + 24*λ1^2 + 8*n*λ1^2 + n^2*λ1^2 + 16*λ1*λ2 + 
        16*n*λ1*λ2 + 2*n^2*λ1*λ2 + 24*λ2^2 + 8*n*λ2^2 + n^2*λ2^2 + 
        32*Sqrt[(2 + n)/(4 + n)]*λ1*ν + 16*n*Sqrt[(2 + n)/(4 + n)]*λ1*ν + 
        2*n^2*Sqrt[(2 + n)/(4 + n)]*λ1*ν + 32*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 
        16*n*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 2*n^2*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 
        8*ν^2 + 6*n*ν^2 + n^2*ν^2 - 8*(4 + n)*(λ1 - λ2)*
         (λ1 + λ2 + Sqrt[(2 + n)/(4 + n)]*ν)*Cos[2*α] + 
        8*(λ1 - λ2)^2*Cos[4*α])*Hypergeometric1F1[3 + n/2, 2, -r^2/4]^2 - 
      10368*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      5184*r^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      1296*n*r^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      576*r^4*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      576*n*r^4*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      180*n^2*r^4*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      18*n^3*r^4*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      576*r^4*λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      864*n*r^4*λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      468*n^2*r^4*λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      108*n^3*r^4*λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      9*n^4*r^4*λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      1152*r^4*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      1728*n*r^4*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      936*n^2*r^4*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      216*n^3*r^4*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      18*n^4*r^4*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      576*r^4*λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      864*n*r^4*λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      468*n^2*r^4*λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      108*n^3*r^4*λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      9*n^4*r^4*λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      2304*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^
        2 + 2880*n*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*ν*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 1296*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ1*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      252*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*ν*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 18*n^4*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ1*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      2304*Sqrt[(2 + n)/(4 + n)]*r^4*λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^
        2 + 2880*n*Sqrt[(2 + n)/(4 + n)]*r^4*λ2*ν*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 1296*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      252*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*λ2*ν*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 18*n^4*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      1152*r^4*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      1440*n*r^4*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      648*n^2*r^4*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      126*n^3*r^4*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      9*n^4*r^4*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      3456*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 864*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 3456*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 864*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 3456*Sqrt[8 + 6*n + n^2]*r^2*λ1*
       ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      864*n*Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 3456*Sqrt[8 + 6*n + n^2]*r^2*λ2*
       ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      864*n*Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 20736*λ1^2*Cos[2*α]^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 41472*λ1*λ2*Cos[2*α]^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 20736*λ2^2*Cos[2*α]^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      10368*r^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, 
        -r^2/4] + 1728*n*r^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 864*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 360*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 36*n^2*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 1728*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 1152*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 252*n^2*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 18*n^3*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 3456*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 2304*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 504*n^2*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 36*n^3*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 1728*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 1152*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 252*n^2*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 18*n^3*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 2592*Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      1944*n*Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 468*n^2*Sqrt[8 + 6*n + n^2]*r^4*λ1*
       ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, 
        -r^2/4] - 36*n^3*Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*Hypergeometric1F1[3 + n/2, 
        3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      2592*Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 1944*n*Sqrt[8 + 6*n + n^2]*r^4*λ2*
       ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, 
        -r^2/4] - 468*n^2*Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      36*n^3*Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 1728*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 1152*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 252*n^2*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 18*n^3*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 20736*r^2*λ1^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      8640*n*r^2*λ1^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 864*n^2*r^2*λ1^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      1728*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      720*n*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      72*n^2*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      20736*r^2*λ2^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 8640*n*r^2*λ2^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      864*n^2*r^2*λ2^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 1728*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ2^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 720*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ2^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 72*n^2*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ2^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 20736*Sqrt[(2 + n)/(4 + n)]*
       r^2*λ1*ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 8640*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ1*
       ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 864*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*
       λ1*ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 1728*Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*
       Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 
        3, -r^2/4] - 720*n*Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      72*n^2*Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 
        3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      20736*Sqrt[(2 + n)/(4 + n)]*r^2*λ2*ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 
        3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      8640*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      864*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      1728*Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 720*n*Sqrt[8 + 6*n + n^2]*
       r^4*λ2*ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 72*n^2*Sqrt[8 + 6*n + n^2]*r^4*λ2*
       ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 20736*r^2*λ1^2*Cos[2*α]^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      3456*n*r^2*λ1^2*Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 41472*r^2*λ1*λ2*Cos[2*α]^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      6912*n*r^2*λ1*λ2*Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 20736*r^2*λ2^2*Cos[2*α]^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      3456*n*r^2*λ2^2*Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      5184*r^4*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 - 
      2376*n*r^4*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 - 
      360*n^2*r^4*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 - 
      18*n^3*r^4*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      5184*r^4*λ1^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      4320*n*r^4*λ1^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      1332*n^2*r^4*λ1^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      180*n^3*r^4*λ1^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      9*n^4*r^4*λ1^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      10368*r^4*λ1*λ2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      8640*n*r^4*λ1*λ2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      2664*n^2*r^4*λ1*λ2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      360*n^3*r^4*λ1*λ2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      18*n^4*r^4*λ1*λ2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      5184*r^4*λ2^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      4320*n*r^4*λ2^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      1332*n^2*r^4*λ2^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      180*n^3*r^4*λ2^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      9*n^4*r^4*λ2^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      10368*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*ν*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^
        2 + 8640*n*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*ν*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 2664*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ1*ν*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      360*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*ν*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 18*n^4*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ1*ν*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      10368*Sqrt[(2 + n)/(4 + n)]*r^4*λ2*ν*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^
        2 + 8640*n*Sqrt[(2 + n)/(4 + n)]*r^4*λ2*ν*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 2664*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ2*ν*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      360*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*λ2*ν*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 18*n^4*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ2*ν*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      2592*r^4*ν^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      2808*n*r^4*ν^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      1044*n^2*r^4*ν^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      162*n^3*r^4*ν^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      9*n^4*r^4*ν^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      10368*r^4*λ1^2*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      6048*n*r^4*λ1^2*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      1152*n^2*r^4*λ1^2*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      72*n^3*r^4*λ1^2*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 - 
      10368*r^4*λ2^2*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 - 
      6048*n*r^4*λ2^2*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 - 
      1152*n^2*r^4*λ2^2*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 - 
      72*n^3*r^4*λ2^2*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      10368*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 6048*n*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ1*ν*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      1152*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 72*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ1*ν*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 - 
      10368*Sqrt[(2 + n)/(4 + n)]*r^4*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 - 6048*n*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ2*ν*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 - 
      1152*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 - 72*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ2*ν*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      5184*r^4*λ1^2*Cos[2*α]^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      1728*n*r^4*λ1^2*Cos[2*α]^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      144*n^2*r^4*λ1^2*Cos[2*α]^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 - 
      10368*r^4*λ1*λ2*Cos[2*α]^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 - 
      3456*n*r^4*λ1*λ2*Cos[2*α]^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 - 
      288*n^2*r^4*λ1*λ2*Cos[2*α]^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      5184*r^4*λ2^2*Cos[2*α]^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      1728*n*r^4*λ2^2*Cos[2*α]^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 + 
      144*n^2*r^4*λ2^2*Cos[2*α]^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4]^2 - 
      144*Hypergeometric1F1[2 + n/2, 2, -r^2/4]*
       (8*Sqrt[8 + 6*n + n^2]*(-2*Sqrt[(2 + n)/(4 + n)] + Sqrt[(2 + n)/(4 + n)]*
           (4 + n)*λ1^2 + 4*Sqrt[(2 + n)/(4 + n)]*λ2^2 + n*Sqrt[(2 + n)/(4 + n)]*
           λ2^2 + 6*λ2*ν + 2*n*λ2*ν + 4*Sqrt[(2 + n)/(4 + n)]*ν^2 + 
          n*Sqrt[(2 + n)/(4 + n)]*ν^2 + 2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*
             λ2 + (3 + n)*ν) - 4*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*λ1 + 
            Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Cos[2*α])*Hypergeometric1F1[3 + n/2, 
          2, -r^2/4] + ((8 + 6*n + n^2)*r^2*(-2 + (2 + n)*λ1^2 + (2 + n)*λ2^2 + 
            2*Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2*ν + 4*ν^2 + n*ν^2 + 
            2*λ1*((2 + n)*λ2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*ν)) + 
          48*Sqrt[8 + 6*n + n^2]*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*λ1 + 
            Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Cos[2*α])*Hypergeometric1F1[3 + n/2, 
          3, -r^2/4] - (6 + n)*Sqrt[8 + 6*n + n^2]*r^2*(-2*Sqrt[(2 + n)/(4 + n)] + 
          Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ1^2 + 4*Sqrt[(2 + n)/(4 + n)]*λ2^2 + 
          n*Sqrt[(2 + n)/(4 + n)]*λ2^2 + 6*λ2*ν + 2*n*λ2*ν + 
          4*Sqrt[(2 + n)/(4 + n)]*ν^2 + n*Sqrt[(2 + n)/(4 + n)]*ν^2 + 
          2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2 + (3 + n)*ν) + 
          4*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*λ1 + Sqrt[(2 + n)/(4 + n)]*λ2 + 
            ν)*Cos[2*α])*Hypergeometric1F1[4 + n/2, 3, -r^2/4]) + 
      144*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       ((96 + (4 + n)*Sqrt[8 + 6*n + n^2]*r^2*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*
             λ1^2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2^2 + 2*(3 + n)*λ2*ν + 
            2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2 + (3 + n)*ν) + 
            Sqrt[(2 + n)/(4 + n)]*(-2 + (4 + n)*ν^2)) - 4*(4 + n)*(λ1 - λ2)*
           ((-12 + Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2)*λ1 + 
            (-12 + Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2)*λ2 - 
            12*Sqrt[(2 + n)/(4 + n)]*ν + Sqrt[8 + 6*n + n^2]*r^2*ν)*Cos[2*α] - 
          192*(λ1 - λ2)^2*Cos[2*α]^2)*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        (6 + n)*r^2*(8*(λ1^2 + 6*λ1*λ2 + λ2^2 + 4*Sqrt[(2 + n)/(4 + n)]*λ1*
             ν + 4*Sqrt[(2 + n)/(4 + n)]*λ2*ν + ν^2) + 
          n^2*(λ1^2 + λ2^2 + 2*Sqrt[(2 + n)/(4 + n)]*λ2*ν + ν^2 + 
            2*λ1*(λ2 + Sqrt[(2 + n)/(4 + n)]*ν)) + 
          2*n*(-1 + 4*λ1^2 + 4*λ2^2 + 8*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 
            3*ν^2 + 8*λ1*(λ2 + Sqrt[(2 + n)/(4 + n)]*ν)) - 
          8*(λ1 - λ2)^2*Cos[4*α])*Hypergeometric1F1[4 + n/2, 3, -r^2/4]) + 
      1728*r^4*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 4, 
        -r^2/4] + 720*n*r^4*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 4, -r^2/4] + 72*n^2*r^4*Hypergeometric1F1[3 + n/2, 
        3, -r^2/4]*Hypergeometric1F1[4 + n/2, 4, -r^2/4] - 
      144*r^6*Hypergeometric1F1[4 + n/2, 4, -r^2/4]^2 - 
      84*n*r^6*Hypergeometric1F1[4 + n/2, 4, -r^2/4]^2 - 
      16*n^2*r^6*Hypergeometric1F1[4 + n/2, 4, -r^2/4]^2 - 
      n^3*r^6*Hypergeometric1F1[4 + n/2, 4, -r^2/4]^2))/(4 + n) - 
   (576*(96 + 24*n + 4*(4 + n)^2*(-2 + (2 + n)*λ1^2 + (2 + n)*λ2^2 + 
        2*Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2*ν + 4*ν^2 + n*ν^2 + 
        2*λ1*((2 + n)*λ2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*ν))*
       Hypergeometric1F1[1 + n/2, 2, -r^2/4]^2 + 
      4*(2 + n)*(-16 - 2*n + 24*λ1^2 + 8*n*λ1^2 + n^2*λ1^2 + 16*λ1*λ2 + 
        16*n*λ1*λ2 + 2*n^2*λ1*λ2 + 24*λ2^2 + 8*n*λ2^2 + n^2*λ2^2 + 
        32*Sqrt[(2 + n)/(4 + n)]*λ1*ν + 16*n*Sqrt[(2 + n)/(4 + n)]*λ1*ν + 
        2*n^2*Sqrt[(2 + n)/(4 + n)]*λ1*ν + 32*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 
        16*n*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 2*n^2*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 
        8*ν^2 + 6*n*ν^2 + n^2*ν^2 + 8*(4 + n)*(λ1 - λ2)*
         (λ1 + λ2 + Sqrt[(2 + n)/(4 + n)]*ν)*Cos[2*α] + 
        8*(λ1 - λ2)^2*Cos[4*α])*Hypergeometric1F1[2 + n/2, 2, -r^2/4]^2 - 
      48*(2 + n)*((4 + n)*(λ1 - λ2)*(λ1 + λ2 + Sqrt[(2 + n)/(4 + n)]*ν)*
         Cos[2*α] + 2*(-1 + λ1^2 - 2*λ1*λ2 + λ2^2 + 
          (λ1 - λ2)^2*Cos[4*α]))*Hypergeometric1F1[2 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4] - 
      144*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 - 
      72*n*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 - 
      8*r^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 - 
      6*n*r^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 - 
      n^2*r^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 288*λ1^2*Cos[2*α]^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 144*n*λ1^2*Cos[2*α]^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 - 576*λ1*λ2*Cos[2*α]^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 - 288*n*λ1*λ2*Cos[2*α]^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 288*λ2^2*Cos[2*α]^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 144*n*λ2^2*Cos[2*α]^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 - 8*(4 + n)*Sqrt[8 + 6*n + n^2]*
       Hypergeometric1F1[1 + n/2, 2, -r^2/4]*
       ((-2*Sqrt[(2 + n)/(4 + n)] + Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ1^2 + 
          4*Sqrt[(2 + n)/(4 + n)]*λ2^2 + n*Sqrt[(2 + n)/(4 + n)]*λ2^2 + 
          6*λ2*ν + 2*n*λ2*ν + 4*Sqrt[(2 + n)/(4 + n)]*ν^2 + 
          n*Sqrt[(2 + n)/(4 + n)]*ν^2 + 2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*
             λ2 + (3 + n)*ν) + 4*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*λ1 + 
            Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Cos[2*α])*Hypergeometric1F1[2 + n/2, 
          2, -r^2/4] - 6*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*λ1 + 
          Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, 
          -r^2/4]))*(-8 - 192*(1 - λ1^2 + 2*λ1*λ2 - λ2^2 + 
        (λ1 - λ2)^2*Cos[4*α])*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + Hypergeometric1F1[3 + n/2, 3, -r^2/4]^
        2*(72 + (4 + n)*r^2 - 144*(λ1 - λ2)^2*Sin[2*α]^2) - 
      128*Hypergeometric1F1[3 + n/2, 2, -r^2/4]^2*
       (-1 + 2*(λ1 - λ2)^2*Sin[2*α]^2)))/(4 + n) + 
   48*(384 + 96*(4 + n)*(-2 + (2 + n)*λ1^2 + (2 + n)*λ2^2 + 
       2*Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2*ν + 4*ν^2 + n*ν^2 + 
       2*λ1*((2 + n)*λ2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*ν))*
      Hypergeometric1F1[1 + n/2, 2, -r^2/4]^2 + 
     96*(2 + n)*(-2 + (4 + n)*λ1^2 + 4*λ2^2 + n*λ2^2 + 
       8*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 2*n*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 
       2*ν^2 + n*ν^2 + 2*(4 + n)*λ1*(λ2 + Sqrt[(2 + n)/(4 + n)]*ν) + 
       4*(λ1 - λ2)*(λ1 + λ2 + Sqrt[(2 + n)/(4 + n)]*ν)*Cos[2*α])*
      Hypergeometric1F1[2 + n/2, 2, -r^2/4]^2 - 
     96*r^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 - 
     48*n*r^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 - 72*Sqrt[(2 + n)/(4 + n)]*
      Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Cos[2*α]*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 - 36*n*Sqrt[(2 + n)/(4 + n)]*
      Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Cos[2*α]*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 72*Sqrt[(2 + n)/(4 + n)]*
      Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Cos[2*α]*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 36*n*Sqrt[(2 + n)/(4 + n)]*
      Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Cos[2*α]*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 - 72*Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*
      Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 - 
     36*n*Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Cos[2*α]*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 72*Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*
      Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     36*n*Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Cos[2*α]*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 - 
     144*r^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, 
       -r^2/4] - 72*n*r^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 288*r^2*λ1^2*Cos[2*α]*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
     216*n*r^2*λ1^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 36*n^2*r^2*λ1^2*Cos[2*α]*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
     288*r^2*λ2^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 216*n*r^2*λ2^2*Cos[2*α]*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
     36*n^2*r^2*λ2^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 288*Sqrt[(2 + n)/(4 + n)]*r^2*λ1*ν*
      Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, 
       -r^2/4] + 216*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ1*ν*Cos[2*α]*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
     36*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*λ1*ν*Cos[2*α]*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
     288*Sqrt[(2 + n)/(4 + n)]*r^2*λ2*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, 
       -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 216*n*Sqrt[(2 + n)/(4 + n)]*
      r^2*λ2*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 36*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*λ2*
      ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 288*r^2*λ1^2*Cos[2*α]^2*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
     144*n*r^2*λ1^2*Cos[2*α]^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 576*r^2*λ1*λ2*Cos[2*α]^2*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
     288*n*r^2*λ1*λ2*Cos[2*α]^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 288*r^2*λ2^2*Cos[2*α]^2*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
     144*n*r^2*λ2^2*Cos[2*α]^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
     6*Hypergeometric1F1[1 + n/2, 2, -r^2/4]*
      (32*Sqrt[8 + 6*n + n^2]*(-2*Sqrt[(2 + n)/(4 + n)] + Sqrt[(2 + n)/(4 + n)]*
          (4 + n)*λ1^2 + 4*Sqrt[(2 + n)/(4 + n)]*λ2^2 + n*Sqrt[(2 + n)/(4 + n)]*
          λ2^2 + 6*λ2*ν + 2*n*λ2*ν + 4*Sqrt[(2 + n)/(4 + n)]*ν^2 + 
         n*Sqrt[(2 + n)/(4 + n)]*ν^2 + 2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*
            λ2 + (3 + n)*ν) + 2*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*λ1 + 
           Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Cos[2*α])*Hypergeometric1F1[2 + n/2, 
         2, -r^2/4] + ((8 + 6*n + n^2)*r^2*(-2 + (2 + n)*λ1^2 + (2 + n)*λ2^2 + 
           2*Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2*ν + 4*ν^2 + n*ν^2 + 
           2*λ1*((2 + n)*λ2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*ν)) - 
         96*Sqrt[8 + 6*n + n^2]*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*λ1 + 
           Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Cos[2*α])*Hypergeometric1F1[2 + n/2, 
         3, -r^2/4] - (4 + n)*Sqrt[8 + 6*n + n^2]*r^2*(-2*Sqrt[(2 + n)/(4 + n)] + 
         Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ1^2 + 4*Sqrt[(2 + n)/(4 + n)]*λ2^2 + 
         n*Sqrt[(2 + n)/(4 + n)]*λ2^2 + 6*λ2*ν + 2*n*λ2*ν + 
         4*Sqrt[(2 + n)/(4 + n)]*ν^2 + n*Sqrt[(2 + n)/(4 + n)]*ν^2 + 
         2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2 + (3 + n)*ν) + 
         4*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*λ1 + Sqrt[(2 + n)/(4 + n)]*λ2 + 
           ν)*Cos[2*α])*Hypergeometric1F1[3 + n/2, 3, -r^2/4]) - 
     6*(2 + n)*Hypergeometric1F1[2 + n/2, 2, -r^2/4]*
      (-((Sqrt[8 + 6*n + n^2]*r^2*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ1^2 + 
            Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2^2 + 2*(3 + n)*λ2*ν + 
            2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2 + (3 + n)*ν) + 
            Sqrt[(2 + n)/(4 + n)]*(-2 + (4 + n)*ν^2)) + 4*(λ1 - λ2)*
           ((-24 + Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2)*λ1 + 
            (-24 + Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2)*λ2 - 
            24*Sqrt[(2 + n)/(4 + n)]*ν + Sqrt[8 + 6*n + n^2]*r^2*ν)*Cos[2*α])*
         Hypergeometric1F1[2 + n/2, 3, -r^2/4]) + 
       r^2*(-16 - 2*n + 24*λ1^2 + 8*n*λ1^2 + n^2*λ1^2 + 16*λ1*λ2 + 
         16*n*λ1*λ2 + 2*n^2*λ1*λ2 + 24*λ2^2 + 8*n*λ2^2 + n^2*λ2^2 + 
         32*Sqrt[(2 + n)/(4 + n)]*λ1*ν + 16*n*Sqrt[(2 + n)/(4 + n)]*λ1*ν + 
         2*n^2*Sqrt[(2 + n)/(4 + n)]*λ1*ν + 32*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 
         16*n*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 2*n^2*Sqrt[(2 + n)/(4 + n)]*λ2*
          ν + 8*ν^2 + 6*n*ν^2 + n^2*ν^2 + 8*(4 + n)*(λ1 - λ2)*
          (λ1 + λ2 + Sqrt[(2 + n)/(4 + n)]*ν)*Cos[2*α] + 
         8*(λ1 - λ2)^2*Cos[4*α])*Hypergeometric1F1[3 + n/2, 3, -r^2/4]) + 
     8*r^4*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 4, 
       -r^2/4] + 6*n*r^4*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 4, -r^2/4] + 
     n^2*r^4*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 4, 
       -r^2/4])*(-8 - 192*(1 - λ1^2 + 2*λ1*λ2 - λ2^2 + 
       (λ1 - λ2)^2*Cos[4*α])*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
     Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2*(72 + (4 + n)*r^2 - 
       144*(λ1 - λ2)^2*Sin[2*α]^2) - 128*Hypergeometric1F1[3 + n/2, 2, -r^2/4]^
       2*(-1 + 2*(λ1 - λ2)^2*Sin[2*α]^2)) - 
   (9216 + 2304*(4 + n)*(-2 + (2 + n)*λ1^2 + (2 + n)*λ2^2 + 
       2*Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2*ν + 4*ν^2 + n*ν^2 + 
       2*λ1*((2 + n)*λ2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*ν))*
      Hypergeometric1F1[1 + n/2, 2, -r^2/4]^2 + 
     2304*(2 + n)*(-2 + (4 + n)*λ1^2 + (4 + n)*λ2^2 + 2*Sqrt[(2 + n)/(4 + n)]*
        (4 + n)*λ2*ν + 2*ν^2 + n*ν^2 + 2*(4 + n)*λ1*
        (λ2 + Sqrt[(2 + n)/(4 + n)]*ν))*Hypergeometric1F1[2 + n/2, 2, -r^2/4]^
       2 - 4608*r^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 - 
     2304*n*r^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 - 
     288*r^4*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 - 
     360*n*r^4*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 - 
     144*n^2*r^4*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 - 
     18*n^3*r^4*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     288*r^4*λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     504*n*r^4*λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     324*n^2*r^4*λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     90*n^3*r^4*λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     9*n^4*r^4*λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     576*r^4*λ1*λ2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     1008*n*r^4*λ1*λ2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     648*n^2*r^4*λ1*λ2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     180*n^3*r^4*λ1*λ2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     18*n^4*r^4*λ1*λ2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     288*r^4*λ2^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     504*n*r^4*λ2^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     324*n^2*r^4*λ2^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     90*n^3*r^4*λ2^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     9*n^4*r^4*λ2^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     1152*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^
       2 + 1728*n*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*ν*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 936*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*
      λ1*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     216*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*ν*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 18*n^4*Sqrt[(2 + n)/(4 + n)]*r^4*
      λ1*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     1152*Sqrt[(2 + n)/(4 + n)]*r^4*λ2*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^
       2 + 1728*n*Sqrt[(2 + n)/(4 + n)]*r^4*λ2*ν*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 936*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*
      λ2*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     216*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*λ2*ν*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 18*n^4*Sqrt[(2 + n)/(4 + n)]*r^4*
      λ2*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     576*r^4*ν^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     864*n*r^4*ν^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     468*n^2*r^4*ν^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     108*n^3*r^4*ν^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     9*n^4*r^4*ν^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]^2 + 
     288*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*Hypergeometric1F1[2 + n/2, 3, 
       -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 216*n*Sqrt[(2 + n)/(4 + n)]*
      Sqrt[8 + 6*n + n^2]*r^4*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 36*n^2*Sqrt[(2 + n)/(4 + n)]*
      Sqrt[8 + 6*n + n^2]*r^4*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 576*Sqrt[(2 + n)/(4 + n)]*
      Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 576*n*Sqrt[(2 + n)/(4 + n)]*
      Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 180*n^2*Sqrt[(2 + n)/(4 + n)]*
      Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 18*n^3*Sqrt[(2 + n)/(4 + n)]*
      Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 1152*Sqrt[(2 + n)/(4 + n)]*
      Sqrt[8 + 6*n + n^2]*r^4*λ1*λ2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 1152*n*Sqrt[(2 + n)/(4 + n)]*
      Sqrt[8 + 6*n + n^2]*r^4*λ1*λ2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 360*n^2*Sqrt[(2 + n)/(4 + n)]*
      Sqrt[8 + 6*n + n^2]*r^4*λ1*λ2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 36*n^3*Sqrt[(2 + n)/(4 + n)]*
      Sqrt[8 + 6*n + n^2]*r^4*λ1*λ2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 576*Sqrt[(2 + n)/(4 + n)]*
      Sqrt[8 + 6*n + n^2]*r^4*λ2^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 576*n*Sqrt[(2 + n)/(4 + n)]*
      Sqrt[8 + 6*n + n^2]*r^4*λ2^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 180*n^2*Sqrt[(2 + n)/(4 + n)]*
      Sqrt[8 + 6*n + n^2]*r^4*λ2^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 18*n^3*Sqrt[(2 + n)/(4 + n)]*
      Sqrt[8 + 6*n + n^2]*r^4*λ2^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 864*Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
     936*n*Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 324*n^2*Sqrt[8 + 6*n + n^2]*r^4*λ1*
      ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, 
       -r^2/4] - 36*n^3*Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*Hypergeometric1F1[2 + n/2, 
       3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
     864*Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 936*n*Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
     324*n^2*Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 36*n^3*Sqrt[8 + 6*n + n^2]*r^4*λ2*
      ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, 
       -r^2/4] - 576*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*ν^2*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
     576*n*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*ν^2*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
     180*n^2*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*ν^2*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
     18*n^3*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*ν^2*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
     576*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Cos[2*α]*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
     432*n*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Cos[2*α]*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
     72*n^2*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Cos[2*α]*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
     576*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ2^2*Cos[2*α]*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
     432*n*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ2^2*Cos[2*α]*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
     72*n^2*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ2^2*Cos[2*α]*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
     576*Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, 
       -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 432*n*Sqrt[8 + 6*n + n^2]*r^4*
      λ1*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 72*n^2*Sqrt[8 + 6*n + n^2]*r^4*λ1*
      ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 576*Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*
      Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, 
       -r^2/4] + 432*n*Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*Cos[2*α]*
      Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
     72*n^2*Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 
       3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
     1152*r^4*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
     1008*n*r^4*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
     252*n^2*r^4*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
     18*n^3*r^4*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     1728*r^4*λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     1872*n*r^4*λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     720*n^2*r^4*λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     126*n^3*r^4*λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     9*n^4*r^4*λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     1152*r^4*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     2016*n*r^4*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     1152*n^2*r^4*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     252*n^3*r^4*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     18*n^4*r^4*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     1728*r^4*λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     1872*n*r^4*λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     720*n^2*r^4*λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     126*n^3*r^4*λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     9*n^4*r^4*λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     2304*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^
       2 + 2880*n*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*ν*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 1296*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*
      λ1*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     252*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*ν*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 18*n^4*Sqrt[(2 + n)/(4 + n)]*r^4*
      λ1*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     2304*Sqrt[(2 + n)/(4 + n)]*r^4*λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^
       2 + 2880*n*Sqrt[(2 + n)/(4 + n)]*r^4*λ2*ν*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 1296*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*
      λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     252*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*λ2*ν*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 18*n^4*Sqrt[(2 + n)/(4 + n)]*r^4*
      λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     576*r^4*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     864*n*r^4*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     468*n^2*r^4*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     108*n^3*r^4*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     9*n^4*r^4*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     2304*r^4*λ1^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     2304*n*r^4*λ1^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     720*n^2*r^4*λ1^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     72*n^3*r^4*λ1^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
     2304*r^4*λ2^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
     2304*n*r^4*λ2^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
     720*n^2*r^4*λ2^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
     72*n^3*r^4*λ2^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     2304*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*ν*Cos[2*α]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 2304*n*Sqrt[(2 + n)/(4 + n)]*r^4*
      λ1*ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     720*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*ν*Cos[2*α]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 72*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*
      λ1*ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
     2304*Sqrt[(2 + n)/(4 + n)]*r^4*λ2*ν*Cos[2*α]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 2304*n*Sqrt[(2 + n)/(4 + n)]*r^4*
      λ2*ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
     720*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*λ2*ν*Cos[2*α]*
      Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 72*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*
      λ2*ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     576*r^4*λ1^2*Cos[4*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     432*n*r^4*λ1^2*Cos[4*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     72*n^2*r^4*λ1^2*Cos[4*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
     1152*r^4*λ1*λ2*Cos[4*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
     864*n*r^4*λ1*λ2*Cos[4*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
     144*n^2*r^4*λ1*λ2*Cos[4*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     576*r^4*λ2^2*Cos[4*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     432*n*r^4*λ2^2*Cos[4*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
     72*n^2*r^4*λ2^2*Cos[4*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
     288*(2 + n)*r^2*Hypergeometric1F1[2 + n/2, 2, -r^2/4]*
      (-(Sqrt[8 + 6*n + n^2]*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ1^2 + 
          Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2^2 + 2*(3 + n)*λ2*ν + 
          2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2 + (3 + n)*ν) + 
          Sqrt[(2 + n)/(4 + n)]*(-2 + (4 + n)*ν^2))*Hypergeometric1F1[2 + n/2, 3, 
          -r^2/4]) + (4 + n)*(-2 + (4 + n)*λ1^2 + 4*λ2^2 + n*λ2^2 + 
         8*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 2*n*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 
         2*ν^2 + n*ν^2 + 2*(4 + n)*λ1*(λ2 + Sqrt[(2 + n)/(4 + n)]*ν) + 
         4*(λ1 - λ2)*(λ1 + λ2 + Sqrt[(2 + n)/(4 + n)]*ν)*Cos[2*α])*
        Hypergeometric1F1[3 + n/2, 3, -r^2/4]) - 
     288*Hypergeometric1F1[1 + n/2, 2, -r^2/4]*
      (16*Sqrt[8 + 6*n + n^2]*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ1^2 + 
         Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2^2 + 2*(3 + n)*λ2*ν + 
         2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2 + (3 + n)*ν) + 
         Sqrt[(2 + n)/(4 + n)]*(-2 + (4 + n)*ν^2))*Hypergeometric1F1[2 + n/2, 2, 
         -r^2/4] + (4 + n)*r^2*((2 + n)*(-2 + (2 + n)*λ1^2 + (2 + n)*λ2^2 + 
           2*Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2*ν + 4*ν^2 + n*ν^2 + 
           2*λ1*((2 + n)*λ2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*ν))*
          Hypergeometric1F1[2 + n/2, 3, -r^2/4] - Sqrt[8 + 6*n + n^2]*
          (-2*Sqrt[(2 + n)/(4 + n)] + Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ1^2 + 
           4*Sqrt[(2 + n)/(4 + n)]*λ2^2 + n*Sqrt[(2 + n)/(4 + n)]*λ2^2 + 
           6*λ2*ν + 2*n*λ2*ν + 4*Sqrt[(2 + n)/(4 + n)]*ν^2 + 
           n*Sqrt[(2 + n)/(4 + n)]*ν^2 + 2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*
              λ2 + (3 + n)*ν) + 4*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*λ1 + 
             Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Cos[2*α])*Hypergeometric1F1[
           3 + n/2, 3, -r^2/4])) + 768*r^4*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 4, -r^2/4] + 
     576*n*r^4*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 4, 
       -r^2/4] + 96*n^2*r^4*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
      Hypergeometric1F1[3 + n/2, 4, -r^2/4] - 
     32*r^6*Hypergeometric1F1[3 + n/2, 4, -r^2/4]^2 - 
     32*n*r^6*Hypergeometric1F1[3 + n/2, 4, -r^2/4]^2 - 
     10*n^2*r^6*Hypergeometric1F1[3 + n/2, 4, -r^2/4]^2 - 
     n^3*r^6*Hypergeometric1F1[3 + n/2, 4, -r^2/4]^2)*
    (-8 - 192*(1 - λ1^2 + 2*λ1*λ2 - λ2^2 + (λ1 - λ2)^2*Cos[4*α])*
      Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
     Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2*(72 + (4 + n)*r^2 - 
       144*(λ1 - λ2)^2*Sin[2*α]^2) - 128*Hypergeometric1F1[3 + n/2, 2, -r^2/4]^
       2*(-1 + 2*(λ1 - λ2)^2*Sin[2*α]^2)) + 
   (576*(-96*Sqrt[(2 + n)/(4 + n)] - 24*n*Sqrt[(2 + n)/(4 + n)] + 
      4*(8 + 6*n + n^2)*(-2*Sqrt[(2 + n)/(4 + n)] + Sqrt[(2 + n)/(4 + n)]*(4 + n)*
         λ1^2 + 4*Sqrt[(2 + n)/(4 + n)]*λ2^2 + n*Sqrt[(2 + n)/(4 + n)]*λ2^2 + 
        6*λ2*ν + 2*n*λ2*ν + 4*Sqrt[(2 + n)/(4 + n)]*ν^2 + 
        n*Sqrt[(2 + n)/(4 + n)]*ν^2 + 2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2 + 
          (3 + n)*ν) + 4*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*λ1 + 
          Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Cos[2*α])*
       Hypergeometric1F1[2 + n/2, 2, -r^2/4]^2 - 48*Sqrt[8 + 6*n + n^2]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      96*Sqrt[8 + 6*n + n^2]*λ1^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 24*n*Sqrt[8 + 6*n + n^2]*λ1^2*
       Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 
        2, -r^2/4] - 96*Sqrt[8 + 6*n + n^2]*λ2^2*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      24*n*Sqrt[8 + 6*n + n^2]*λ2^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 96*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*λ1*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 24*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*λ1*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 96*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*λ2*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 24*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*λ2*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 96*Sqrt[8 + 6*n + n^2]*λ1^2*
       Cos[2*α]^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 
        2, -r^2/4] - 192*Sqrt[8 + 6*n + n^2]*λ1*λ2*Cos[2*α]^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      96*Sqrt[8 + 6*n + n^2]*λ2^2*Cos[2*α]^2*Hypergeometric1F1[2 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 72*Sqrt[8 + 6*n + n^2]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
      4*Sqrt[2 + n]*Sqrt[4 + n]*r^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + n*Sqrt[2 + n]*Sqrt[4 + n]*r^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      144*Sqrt[8 + 6*n + n^2]*λ1^2*Cos[2*α]^2*Hypergeometric1F1[2 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 288*Sqrt[8 + 6*n + n^2]*λ1*
       λ2*Cos[2*α]^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 144*Sqrt[8 + 6*n + n^2]*λ2^2*
       Cos[2*α]^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 
        3, -r^2/4] + 4*(4 + n)*Hypergeometric1F1[1 + n/2, 2, -r^2/4]*
       (-(Sqrt[8 + 6*n + n^2]*(-2 + (2 + n)*λ1^2 + (2 + n)*λ2^2 + 
           2*Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2*ν + 4*ν^2 + n*ν^2 + 
           2*λ1*((2 + n)*λ2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*ν))*
          Hypergeometric1F1[2 + n/2, 2, -r^2/4]) + 
        (4 + n)*((-2*Sqrt[(2 + n)/(4 + n)] + Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ1^2 + 
            4*Sqrt[(2 + n)/(4 + n)]*λ2^2 + n*Sqrt[(2 + n)/(4 + n)]*λ2^2 + 
            6*λ2*ν + 2*n*λ2*ν + 4*Sqrt[(2 + n)/(4 + n)]*ν^2 + 
            n*Sqrt[(2 + n)/(4 + n)]*ν^2 + 2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + 
                n)*λ2 + (3 + n)*ν) + 4*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*
               λ1 + Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Cos[2*α])*
           Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 6*(λ1 - λ2)*
           (Sqrt[(2 + n)/(4 + n)]*λ1 + Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*
           Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4])) - 
      4*Hypergeometric1F1[2 + n/2, 2, -r^2/4]*(6*(8 + 6*n + n^2)*(λ1 - λ2)*
         (Sqrt[(2 + n)/(4 + n)]*λ1 + Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Cos[2*α]*
         Hypergeometric1F1[2 + n/2, 3, -r^2/4] + Sqrt[8 + 6*n + n^2]*
         ((-16 - 2*n + 24*λ1^2 + 8*n*λ1^2 + n^2*λ1^2 + 16*λ1*λ2 + 
            16*n*λ1*λ2 + 2*n^2*λ1*λ2 + 24*λ2^2 + 8*n*λ2^2 + n^2*λ2^2 + 
            32*Sqrt[(2 + n)/(4 + n)]*λ1*ν + 16*n*Sqrt[(2 + n)/(4 + n)]*λ1*
             ν + 2*n^2*Sqrt[(2 + n)/(4 + n)]*λ1*ν + 32*Sqrt[(2 + n)/(4 + n)]*
             λ2*ν + 16*n*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 
            2*n^2*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 8*ν^2 + 6*n*ν^2 + n^2*ν^2 + 
            8*(4 + n)*(λ1 - λ2)*(λ1 + λ2 + Sqrt[(2 + n)/(4 + n)]*ν)*
             Cos[2*α] + 8*(λ1 - λ2)^2*Cos[4*α])*Hypergeometric1F1[3 + n/2, 
            2, -r^2/4] - 6*((4 + n)*(λ1 - λ2)*(λ1 + λ2 + 
              Sqrt[(2 + n)/(4 + n)]*ν)*Cos[2*α] + 2*(-1 + λ1^2 - 2*λ1*λ2 + 
              λ2^2 + (λ1 - λ2)^2*Cos[4*α]))*Hypergeometric1F1[3 + n/2, 3, 
            -r^2/4])))*(8*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2] - 
      32*(2 + n)*(1 - λ1^2 + 2*λ1*λ2 - λ2^2 + (λ1 - λ2)^2*Cos[4*α])*
       Hypergeometric1F1[2 + n/2, 2, -r^2/4]*
       (4*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 3*Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4]) - Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       (-96*(2 + n)*(1 - λ1^2 + 2*λ1*λ2 - λ2^2 + (λ1 - λ2)^2*Cos[4*α])*
         Hypergeometric1F1[3 + n/2, 2, -r^2/4] + Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4]*(144 + 72*n + Sqrt[2 + n]*Sqrt[4 + n]*Sqrt[8 + 6*n + n^2]*r^2 - 
          144*(2 + n)*(λ1 - λ2)^2*Sin[2*α]^2))))/
    ((4 + n)*Sqrt[8 + 6*n + n^2]) + 
   (24*(384*Sqrt[(2 + n)/(4 + n)] - 96*(2 + n)*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*
         λ1^2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2^2 + 2*(3 + n)*λ2*ν + 
        2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2 + (3 + n)*ν) + 
        Sqrt[(2 + n)/(4 + n)]*(-2 + (4 + n)*ν^2))*
       Hypergeometric1F1[2 + n/2, 2, -r^2/4]^2 - 96*Sqrt[(2 + n)/(4 + n)]*r^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      72*n*Sqrt[(2 + n)/(4 + n)]*r^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 12*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      192*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 192*n*Sqrt[(2 + n)/(4 + n)]*r^2*
       λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, 
        -r^2/4] + 60*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Hypergeometric1F1[2 + n/2, 
        3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      6*n^3*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 384*Sqrt[(2 + n)/(4 + n)]*r^2*λ1*
       λ2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, 
        -r^2/4] + 384*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ1*λ2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      120*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*λ1*λ2*Hypergeometric1F1[2 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 12*n^3*Sqrt[(2 + n)/(4 + n)]*
       r^2*λ1*λ2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 192*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      192*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 60*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*
       λ2^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, 
        -r^2/4] + 6*n^3*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*Hypergeometric1F1[2 + n/2, 
        3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      288*r^2*λ1*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 312*n*r^2*λ1*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      108*n^2*r^2*λ1*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 12*n^3*r^2*λ1*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      288*r^2*λ2*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 312*n*r^2*λ2*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      108*n^2*r^2*λ2*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 12*n^3*r^2*λ2*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      192*Sqrt[(2 + n)/(4 + n)]*r^2*ν^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 192*n*Sqrt[(2 + n)/(4 + n)]*r^2*ν^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      60*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*ν^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 6*n^3*Sqrt[(2 + n)/(4 + n)]*r^2*ν^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      192*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 144*n*Sqrt[(2 + n)/(4 + n)]*
       r^2*λ1^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 24*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*
       λ1^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 192*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*
       Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 
        2, -r^2/4] - 144*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      24*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 
        3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      192*r^2*λ1*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 144*n*r^2*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      24*n^2*r^2*λ1*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 192*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      144*n*r^2*λ2*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 24*n^2*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      48*Sqrt[2 + n]*Sqrt[4 + n]*r^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 288*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*
       Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 
        3, -r^2/4] - 216*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      36*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 
        3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
      288*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 216*n*Sqrt[(2 + n)/(4 + n)]*
       r^2*λ2^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 36*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*
       λ2^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 288*r^2*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      216*n*r^2*λ1*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 36*n^2*r^2*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
      288*r^2*λ2*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 216*n*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
      36*n^2*r^2*λ2*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 96*Sqrt[8 + 6*n + n^2]*r^2*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
      12*n*Sqrt[8 + 6*n + n^2]*r^2*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 96*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      48*n*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 6*n^2*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      192*Sqrt[8 + 6*n + n^2]*r^2*λ1*λ2*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 96*n*Sqrt[8 + 6*n + n^2]*r^2*λ1*
       λ2*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, 
        -r^2/4] - 12*n^2*Sqrt[8 + 6*n + n^2]*r^2*λ1*λ2*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      96*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 48*n*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      6*n^2*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 192*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 96*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 12*n^2*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 192*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 96*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 12*n^2*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 48*Sqrt[8 + 6*n + n^2]*r^2*ν^2*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      36*n*Sqrt[8 + 6*n + n^2]*r^2*ν^2*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 6*n^2*Sqrt[8 + 6*n + n^2]*r^2*ν^2*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      192*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 2, 
        -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 48*n*Sqrt[8 + 6*n + n^2]*r^2*
       λ1^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 192*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*
       Cos[2*α]*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 
        3, -r^2/4] + 48*n*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      192*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      48*n*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
      192*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
      48*n*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      96*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 2, 
        -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 192*Sqrt[8 + 6*n + n^2]*r^2*
       λ1*λ2*Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 96*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*
       Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 
        3, -r^2/4] - 72*Sqrt[8 + 6*n + n^2]*r^2*Hypergeometric1F1[3 + n/2, 3, 
         -r^2/4]^2 + 144*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 36*n*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*
       Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      144*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 36*n*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*
       Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      144*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 36*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 144*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 36*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 144*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*
       Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      288*Sqrt[8 + 6*n + n^2]*r^2*λ1*λ2*Cos[2*α]^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 144*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*
       Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      6*Hypergeometric1F1[2 + n/2, 2, -r^2/4]*((2 + n)*Sqrt[8 + 6*n + n^2]*r^2*
         (-2 + (2 + n)*λ1^2 + (2 + n)*λ2^2 + 2*Sqrt[(2 + n)/(4 + n)]*(4 + n)*
           λ2*ν + 4*ν^2 + n*ν^2 + 2*λ1*((2 + n)*λ2 + 
            Sqrt[(2 + n)/(4 + n)]*(4 + n)*ν))*Hypergeometric1F1[2 + n/2, 3, 
          -r^2/4] - 16*Sqrt[8 + 6*n + n^2]*(-2 + (4 + n)*λ1^2 + 4*λ2^2 + 
          n*λ2^2 + 8*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 2*n*Sqrt[(2 + n)/(4 + n)]*
           λ2*ν + 2*ν^2 + n*ν^2 + 2*(4 + n)*λ1*
           (λ2 + Sqrt[(2 + n)/(4 + n)]*ν) + 4*(λ1 - λ2)*
           (λ1 + λ2 + Sqrt[(2 + n)/(4 + n)]*ν)*Cos[2*α])*
         Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
        ((8 + 6*n + n^2)*r^2*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ1^2 + 
            Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2^2 + 2*(3 + n)*λ2*ν + 
            2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2 + (3 + n)*ν) + 
            Sqrt[(2 + n)/(4 + n)]*(-2 + (4 + n)*ν^2)) - 4*(λ1 - λ2)*
           ((24*Sqrt[8 + 6*n + n^2] - Sqrt[(2 + n)/(4 + n)]*(8 + 6*n + n^2)*r^2)*
             λ1 + (24*Sqrt[8 + 6*n + n^2] - Sqrt[(2 + n)/(4 + n)]*(8 + 6*n + n^2)*
               r^2)*λ2 + (24*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2] - 
              (8 + 6*n + n^2)*r^2)*ν)*Cos[2*α])*Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4]) + 96*Hypergeometric1F1[1 + n/2, 2, -r^2/4]*
       (Sqrt[8 + 6*n + n^2]*(-2 + (2 + n)*λ1^2 + (2 + n)*λ2^2 + 
          2*Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2*ν + 4*ν^2 + n*ν^2 + 
          2*λ1*((2 + n)*λ2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*ν))*
         Hypergeometric1F1[2 + n/2, 2, -r^2/4] - 
        (4 + n)*((-2*Sqrt[(2 + n)/(4 + n)] + Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ1^2 + 
            4*Sqrt[(2 + n)/(4 + n)]*λ2^2 + n*Sqrt[(2 + n)/(4 + n)]*λ2^2 + 
            6*λ2*ν + 2*n*λ2*ν + 4*Sqrt[(2 + n)/(4 + n)]*ν^2 + 
            n*Sqrt[(2 + n)/(4 + n)]*ν^2 + 2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + 
                n)*λ2 + (3 + n)*ν) + 4*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*
               λ1 + Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Cos[2*α])*
           Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 6*(λ1 - λ2)*
           (Sqrt[(2 + n)/(4 + n)]*λ1 + Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*
           Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4])) + 
      4*Sqrt[2 + n]*Sqrt[4 + n]*r^4*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 4, -r^2/4] + n*Sqrt[2 + n]*Sqrt[4 + n]*r^4*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 4, -r^2/4])*
     (8*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2] - 
      32*(2 + n)*(1 - λ1^2 + 2*λ1*λ2 - λ2^2 + (λ1 - λ2)^2*Cos[4*α])*
       Hypergeometric1F1[2 + n/2, 2, -r^2/4]*
       (4*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 3*Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4]) - Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       (-96*(2 + n)*(1 - λ1^2 + 2*λ1*λ2 - λ2^2 + (λ1 - λ2)^2*Cos[4*α])*
         Hypergeometric1F1[3 + n/2, 2, -r^2/4] + Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4]*(144 + 72*n + Sqrt[2 + n]*Sqrt[4 + n]*Sqrt[8 + 6*n + n^2]*r^2 - 
          144*(2 + n)*(λ1 - λ2)^2*Sin[2*α]^2))))/Sqrt[8 + 6*n + n^2] + 
   (48*(384*Sqrt[(2 + n)/(4 + n)] + 96*n*Sqrt[(2 + n)/(4 + n)] - 
      48*(8 + 6*n + n^2)*(-2*Sqrt[(2 + n)/(4 + n)] + Sqrt[(2 + n)/(4 + n)]*(4 + n)*
         λ1^2 + 4*Sqrt[(2 + n)/(4 + n)]*λ2^2 + n*Sqrt[(2 + n)/(4 + n)]*λ2^2 + 
        6*λ2*ν + 2*n*λ2*ν + 4*Sqrt[(2 + n)/(4 + n)]*ν^2 + 
        n*Sqrt[(2 + n)/(4 + n)]*ν^2 + 2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2 + 
          (3 + n)*ν) + 4*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*λ1 + 
          Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Cos[2*α])*
       Hypergeometric1F1[2 + n/2, 2, -r^2/4]^2 - 576*Sqrt[8 + 6*n + n^2]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      1152*Sqrt[8 + 6*n + n^2]*λ1^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 288*n*Sqrt[8 + 6*n + n^2]*
       λ1^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 1152*Sqrt[8 + 6*n + n^2]*λ2^2*
       Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 
        2, -r^2/4] + 288*n*Sqrt[8 + 6*n + n^2]*λ2^2*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      1152*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      288*n*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      1152*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      288*n*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      1152*Sqrt[8 + 6*n + n^2]*λ1^2*Cos[2*α]^2*Hypergeometric1F1[2 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 2304*Sqrt[8 + 6*n + n^2]*
       λ1*λ2*Cos[2*α]^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 1152*Sqrt[8 + 6*n + n^2]*λ2^2*
       Cos[2*α]^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 
        2, -r^2/4] + 864*Sqrt[8 + 6*n + n^2]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 144*Sqrt[2 + n]*Sqrt[4 + n]*r^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      36*n*Sqrt[2 + n]*Sqrt[4 + n]*r^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 1152*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*
       Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 
        3, -r^2/4] - 1152*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      360*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 
        3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      36*n^3*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 
        3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
      1152*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 1152*n*Sqrt[(2 + n)/(4 + n)]*
       r^2*λ2^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 360*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*
       λ2^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 36*n^3*Sqrt[(2 + n)/(4 + n)]*r^2*
       λ2^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 1152*r^2*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      1152*n*r^2*λ1*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 360*n^2*r^2*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      36*n^3*r^2*λ1*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 1152*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
      1152*n*r^2*λ2*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 360*n^2*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
      36*n^3*r^2*λ2*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 1728*Sqrt[8 + 6*n + n^2]*λ1^2*
       Cos[2*α]^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 
        3, -r^2/4] + 3456*Sqrt[8 + 6*n + n^2]*λ1*λ2*Cos[2*α]^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      1728*Sqrt[8 + 6*n + n^2]*λ2^2*Cos[2*α]^2*Hypergeometric1F1[2 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 432*Sqrt[8 + 6*n + n^2]*r^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      72*n*Sqrt[8 + 6*n + n^2]*r^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 864*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*
       Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 
        3, -r^2/4] + 360*n*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      36*n^2*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 864*Sqrt[8 + 6*n + n^2]*r^2*
       λ2^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 360*n*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*
       Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 
        3, -r^2/4] - 36*n^2*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      864*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      360*n*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      36*n^2*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      864*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      360*n*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      36*n^2*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      864*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Cos[2*α]^2*Hypergeometric1F1[2 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 144*n*Sqrt[8 + 6*n + n^2]*
       r^2*λ1^2*Cos[2*α]^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 1728*Sqrt[8 + 6*n + n^2]*r^2*λ1*
       λ2*Cos[2*α]^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 288*n*Sqrt[8 + 6*n + n^2]*r^2*λ1*
       λ2*Cos[2*α]^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 864*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*
       Cos[2*α]^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 
        3, -r^2/4] + 144*n*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Cos[2*α]^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      6*Hypergeometric1F1[2 + n/2, 2, -r^2/4]*(48*(8 + 6*n + n^2)*(λ1 - λ2)*
         (Sqrt[(2 + n)/(4 + n)]*λ1 + Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Cos[2*α]*
         Hypergeometric1F1[2 + n/2, 3, -r^2/4] + 8*Sqrt[8 + 6*n + n^2]*
         (8*(λ1^2 + 6*λ1*λ2 + λ2^2 + 4*Sqrt[(2 + n)/(4 + n)]*λ1*ν + 
            4*Sqrt[(2 + n)/(4 + n)]*λ2*ν + ν^2) + 
          n^2*(λ1^2 + λ2^2 + 2*Sqrt[(2 + n)/(4 + n)]*λ2*ν + ν^2 + 
            2*λ1*(λ2 + Sqrt[(2 + n)/(4 + n)]*ν)) + 
          2*n*(-1 + 4*λ1^2 + 4*λ2^2 + 8*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 
            3*ν^2 + 8*λ1*(λ2 + Sqrt[(2 + n)/(4 + n)]*ν)) - 
          8*(λ1 - λ2)^2*Cos[4*α])*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
        96*Sqrt[8 + 6*n + n^2]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        64*Sqrt[(2 + n)/(4 + n)]*r^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        64*n*Sqrt[(2 + n)/(4 + n)]*r^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        20*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        2*n^3*Sqrt[(2 + n)/(4 + n)]*r^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        128*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        160*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4] + 72*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Hypergeometric1F1[
          3 + n/2, 3, -r^2/4] + 14*n^3*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] + n^4*Sqrt[(2 + n)/(4 + n)]*r^2*
         λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 256*Sqrt[(2 + n)/(4 + n)]*
         r^2*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        320*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4] + 144*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*λ1*λ2*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 28*n^3*Sqrt[(2 + n)/(4 + n)]*r^2*
         λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        2*n^4*Sqrt[(2 + n)/(4 + n)]*r^2*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4] + 128*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*Hypergeometric1F1[3 + n/2, 
          3, -r^2/4] + 160*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 72*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*
         λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 14*n^3*Sqrt[(2 + n)/(4 + n)]*
         r^2*λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        n^4*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        192*r^2*λ1*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        256*n*r^2*λ1*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        124*n^2*r^2*λ1*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        26*n^3*r^2*λ1*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        2*n^4*r^2*λ1*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        192*r^2*λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        256*n*r^2*λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        124*n^2*r^2*λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        26*n^3*r^2*λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        2*n^4*r^2*λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        128*Sqrt[(2 + n)/(4 + n)]*r^2*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        160*n*Sqrt[(2 + n)/(4 + n)]*r^2*ν^2*Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4] + 72*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*ν^2*Hypergeometric1F1[
          3 + n/2, 3, -r^2/4] + 14*n^3*Sqrt[(2 + n)/(4 + n)]*r^2*ν^2*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] + n^4*Sqrt[(2 + n)/(4 + n)]*r^2*ν^2*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 192*Sqrt[8 + 6*n + n^2]*λ1^2*
         Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 48*n*Sqrt[8 + 6*n + n^2]*
         λ1^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        128*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 
          3, -r^2/4] + 128*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Cos[2*α]*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 40*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*
         λ1^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        4*n^3*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 
          3, -r^2/4] - 192*Sqrt[8 + 6*n + n^2]*λ2^2*Cos[2*α]*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 48*n*Sqrt[8 + 6*n + n^2]*λ2^2*
         Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        128*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 
          3, -r^2/4] - 128*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*Cos[2*α]*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 40*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*
         λ2^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        4*n^3*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 
          3, -r^2/4] + 192*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*λ1*ν*
         Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        48*n*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*λ1*ν*Cos[2*α]*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 128*r^2*λ1*ν*Cos[2*α]*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 128*n*r^2*λ1*ν*Cos[2*α]*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 40*n^2*r^2*λ1*ν*Cos[2*α]*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 4*n^3*r^2*λ1*ν*Cos[2*α]*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 192*Sqrt[(2 + n)/(4 + n)]*
         Sqrt[8 + 6*n + n^2]*λ2*ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4] - 48*n*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*λ2*ν*
         Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        128*r^2*λ2*ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        128*n*r^2*λ2*ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        40*n^2*r^2*λ2*ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        4*n^3*r^2*λ2*ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        192*Sqrt[8 + 6*n + n^2]*λ1^2*Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4] - 384*Sqrt[8 + 6*n + n^2]*λ1*λ2*Cos[2*α]^2*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 192*Sqrt[8 + 6*n + n^2]*λ2^2*
         Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        96*Sqrt[8 + 6*n + n^2]*r^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
        28*n*Sqrt[8 + 6*n + n^2]*r^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
        2*n^2*Sqrt[8 + 6*n + n^2]*r^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
        96*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
        64*n*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
        14*n^2*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Hypergeometric1F1[4 + n/2, 3, 
          -r^2/4] - n^3*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Hypergeometric1F1[4 + n/2, 3, 
          -r^2/4] - 192*Sqrt[8 + 6*n + n^2]*r^2*λ1*λ2*Hypergeometric1F1[4 + n/2, 
          3, -r^2/4] - 128*n*Sqrt[8 + 6*n + n^2]*r^2*λ1*λ2*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 28*n^2*Sqrt[8 + 6*n + n^2]*r^2*λ1*
         λ2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 2*n^3*Sqrt[8 + 6*n + n^2]*r^2*
         λ1*λ2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 96*Sqrt[8 + 6*n + n^2]*
         r^2*λ2^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 64*n*Sqrt[8 + 6*n + n^2]*
         r^2*λ2^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
        14*n^2*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Hypergeometric1F1[4 + n/2, 3, 
          -r^2/4] - n^3*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Hypergeometric1F1[4 + n/2, 3, 
          -r^2/4] - 192*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 128*n*Sqrt[(2 + n)/(4 + n)]*
         Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
        28*n^2*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 2*n^3*Sqrt[(2 + n)/(4 + n)]*
         Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
        192*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 128*n*Sqrt[(2 + n)/(4 + n)]*
         Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
        28*n^2*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 2*n^3*Sqrt[(2 + n)/(4 + n)]*
         Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
        48*Sqrt[8 + 6*n + n^2]*r^2*ν^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
        44*n*Sqrt[8 + 6*n + n^2]*r^2*ν^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
        12*n^2*Sqrt[8 + 6*n + n^2]*r^2*ν^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
        n^3*Sqrt[8 + 6*n + n^2]*r^2*ν^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
        192*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, 
          -r^2/4] - 80*n*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Cos[2*α]*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 8*n^2*Sqrt[8 + 6*n + n^2]*r^2*
         λ1^2*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
        192*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, 
          -r^2/4] + 80*n*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Cos[2*α]*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 8*n^2*Sqrt[8 + 6*n + n^2]*r^2*
         λ2^2*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
        192*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Cos[2*α]*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 80*n*Sqrt[(2 + n)/(4 + n)]*
         Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, 
          -r^2/4] - 8*n^2*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*
         Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
        192*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Cos[2*α]*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 80*n*Sqrt[(2 + n)/(4 + n)]*
         Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, 
          -r^2/4] + 8*n^2*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*
         Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 96*Sqrt[8 + 6*n + n^2]*
         r^2*λ1^2*Cos[2*α]^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
        16*n*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Cos[2*α]^2*Hypergeometric1F1[4 + n/2, 
          3, -r^2/4] + 192*Sqrt[8 + 6*n + n^2]*r^2*λ1*λ2*Cos[2*α]^2*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 32*n*Sqrt[8 + 6*n + n^2]*r^2*λ1*
         λ2*Cos[2*α]^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
        96*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Cos[2*α]^2*Hypergeometric1F1[4 + n/2, 3, 
          -r^2/4] - 16*n*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Cos[2*α]^2*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4]) + 
      6*(4 + n)*Hypergeometric1F1[1 + n/2, 2, -r^2/4]*
       (8*Sqrt[8 + 6*n + n^2]*(-2 + (2 + n)*λ1^2 + (2 + n)*λ2^2 + 
          2*Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2*ν + 4*ν^2 + n*ν^2 + 
          2*λ1*((2 + n)*λ2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*ν))*
         Hypergeometric1F1[2 + n/2, 2, -r^2/4] + 
        (4 + n)*(-8*(-2*Sqrt[(2 + n)/(4 + n)] + Sqrt[(2 + n)/(4 + n)]*(4 + n)*
             λ1^2 + 4*Sqrt[(2 + n)/(4 + n)]*λ2^2 + n*Sqrt[(2 + n)/(4 + n)]*
             λ2^2 + 6*λ2*ν + 2*n*λ2*ν + 4*Sqrt[(2 + n)/(4 + n)]*ν^2 + 
            n*Sqrt[(2 + n)/(4 + n)]*ν^2 + 2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + 
                n)*λ2 + (3 + n)*ν) - 4*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*
               λ1 + Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Cos[2*α])*
           Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
          (Sqrt[8 + 6*n + n^2]*r^2*(-2 + (2 + n)*λ1^2 + (2 + n)*λ2^2 + 
              2*Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2*ν + 4*ν^2 + n*ν^2 + 
              2*λ1*((2 + n)*λ2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*ν)) + 
            48*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*λ1 + Sqrt[(2 + n)/(4 + n)]*
               λ2 + ν)*Cos[2*α])*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
          (6 + n)*r^2*(-2*Sqrt[(2 + n)/(4 + n)] + Sqrt[(2 + n)/(4 + n)]*(4 + n)*
             λ1^2 + 4*Sqrt[(2 + n)/(4 + n)]*λ2^2 + n*Sqrt[(2 + n)/(4 + n)]*
             λ2^2 + 6*λ2*ν + 2*n*λ2*ν + 4*Sqrt[(2 + n)/(4 + n)]*ν^2 + 
            n*Sqrt[(2 + n)/(4 + n)]*ν^2 + 2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + 
                n)*λ2 + (3 + n)*ν) + 4*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*
               λ1 + Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Cos[2*α])*
           Hypergeometric1F1[4 + n/2, 3, -r^2/4])) + 24*Sqrt[2 + n]*Sqrt[4 + n]*r^4*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 4, -r^2/4] + 
      10*n*Sqrt[2 + n]*Sqrt[4 + n]*r^4*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 4, -r^2/4] + n^2*Sqrt[2 + n]*Sqrt[4 + n]*r^4*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 4, -r^2/4])*
     (8*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2] - 
      32*(2 + n)*(1 - λ1^2 + 2*λ1*λ2 - λ2^2 + (λ1 - λ2)^2*Cos[4*α])*
       Hypergeometric1F1[2 + n/2, 2, -r^2/4]*
       (4*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 3*Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4]) - Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       (-96*(2 + n)*(1 - λ1^2 + 2*λ1*λ2 - λ2^2 + (λ1 - λ2)^2*Cos[4*α])*
         Hypergeometric1F1[3 + n/2, 2, -r^2/4] + Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4]*(144 + 72*n + Sqrt[2 + n]*Sqrt[4 + n]*Sqrt[8 + 6*n + n^2]*r^2 - 
          144*(2 + n)*(λ1 - λ2)^2*Sin[2*α]^2))))/
    ((4 + n)*Sqrt[8 + 6*n + n^2]) + 
   (2*(-4608*Sqrt[(2 + n)/(4 + n)] + 1152*(2 + n)*
       (Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ1^2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*
         λ2^2 + 2*(3 + n)*λ2*ν + 2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2 + 
          (3 + n)*ν) + Sqrt[(2 + n)/(4 + n)]*(-2 + (4 + n)*ν^2))*
       Hypergeometric1F1[2 + n/2, 2, -r^2/4]^2 + 1152*Sqrt[(2 + n)/(4 + n)]*r^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      864*n*Sqrt[(2 + n)/(4 + n)]*r^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 144*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      2304*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 2304*n*Sqrt[(2 + n)/(4 + n)]*r^2*
       λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, 
        -r^2/4] - 720*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      72*n^3*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 4608*Sqrt[(2 + n)/(4 + n)]*r^2*λ1*
       λ2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, 
        -r^2/4] - 4608*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ1*λ2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      1440*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*λ1*λ2*Hypergeometric1F1[2 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      144*n^3*Sqrt[(2 + n)/(4 + n)]*r^2*λ1*λ2*Hypergeometric1F1[2 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 2304*Sqrt[(2 + n)/(4 + n)]*
       r^2*λ2^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 
        2, -r^2/4] - 2304*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      720*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 72*n^3*Sqrt[(2 + n)/(4 + n)]*r^2*
       λ2^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, 
        -r^2/4] - 3456*r^2*λ1*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 3744*n*r^2*λ1*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      1296*n^2*r^2*λ1*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 144*n^3*r^2*λ1*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      3456*r^2*λ2*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 3744*n*r^2*λ2*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      1296*n^2*r^2*λ2*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 144*n^3*r^2*λ2*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      2304*Sqrt[(2 + n)/(4 + n)]*r^2*ν^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 2304*n*Sqrt[(2 + n)/(4 + n)]*r^2*
       ν^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, 
        -r^2/4] - 720*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*ν^2*Hypergeometric1F1[2 + n/2, 
        3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      72*n^3*Sqrt[(2 + n)/(4 + n)]*r^2*ν^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 2304*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*
       Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 
        2, -r^2/4] + 1728*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      288*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 
        3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      2304*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 1728*n*Sqrt[(2 + n)/(4 + n)]*
       r^2*λ2^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 288*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*
       λ2^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 2304*r^2*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 
      1728*n*r^2*λ1*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 288*n^2*r^2*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      2304*r^2*λ2*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 1728*n*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
      288*n^2*r^2*λ2*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 1728*Sqrt[2 + n]*Sqrt[4 + n]*r^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
      144*Sqrt[8 + 6*n + n^2]*r^4*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 108*n*Sqrt[8 + 6*n + n^2]*r^4*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
      18*n^2*Sqrt[8 + 6*n + n^2]*r^4*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 144*Sqrt[8 + 6*n + n^2]*r^4*λ1^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      180*n*Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 72*n^2*Sqrt[8 + 6*n + n^2]*r^4*λ1^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      9*n^3*Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 288*Sqrt[8 + 6*n + n^2]*r^4*λ1*λ2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      360*n*Sqrt[8 + 6*n + n^2]*r^4*λ1*λ2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 144*n^2*Sqrt[8 + 6*n + n^2]*r^4*λ1*
       λ2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, 
        -r^2/4] - 18*n^3*Sqrt[8 + 6*n + n^2]*r^4*λ1*λ2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      144*Sqrt[8 + 6*n + n^2]*r^4*λ2^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 180*n*Sqrt[8 + 6*n + n^2]*r^4*λ2^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      72*n^2*Sqrt[8 + 6*n + n^2]*r^4*λ2^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 9*n^3*Sqrt[8 + 6*n + n^2]*r^4*λ2^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      576*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      576*n*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      180*n^2*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      18*n^3*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      576*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      576*n*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      180*n^2*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      18*n^3*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      288*Sqrt[8 + 6*n + n^2]*r^4*ν^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 288*n*Sqrt[8 + 6*n + n^2]*r^4*ν^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      90*n^2*Sqrt[8 + 6*n + n^2]*r^4*ν^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 9*n^3*Sqrt[8 + 6*n + n^2]*r^4*ν^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      3456*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 2592*n*Sqrt[(2 + n)/(4 + n)]*
       r^2*λ1^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 432*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*
       λ1^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 3456*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*
       Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 
        3, -r^2/4] + 2592*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
      432*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 
        3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      3456*r^2*λ1*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 2592*n*r^2*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      432*n^2*r^2*λ1*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 3456*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
      2592*n*r^2*λ2*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 432*n^2*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      144*n*Sqrt[8 + 6*n + n^2]*r^2*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 1152*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
      576*n*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 72*n^2*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
      2304*Sqrt[8 + 6*n + n^2]*r^2*λ1*λ2*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 1152*n*Sqrt[8 + 6*n + n^2]*r^2*λ1*
       λ2*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, 
        -r^2/4] + 144*n^2*Sqrt[8 + 6*n + n^2]*r^2*λ1*λ2*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
      1152*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 576*n*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
      72*n^2*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 2304*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 1152*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 144*n^2*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 2304*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 1152*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 144*n^2*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 576*Sqrt[8 + 6*n + n^2]*r^2*ν^2*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
      432*n*Sqrt[8 + 6*n + n^2]*r^2*ν^2*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 72*n^2*Sqrt[8 + 6*n + n^2]*r^2*ν^2*
       Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
      1152*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 2, 
        -r^2/4]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 2304*Sqrt[8 + 6*n + n^2]*r^2*
       λ1*λ2*Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 1152*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*
       Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 2, -r^2/4]*Hypergeometric1F1[3 + n/2, 
        3, -r^2/4] - 864*Sqrt[8 + 6*n + n^2]*r^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 576*Sqrt[(2 + n)/(4 + n)]*r^4*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 576*n*Sqrt[(2 + n)/(4 + n)]*r^4*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 180*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 18*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 1152*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 1440*n*Sqrt[(2 + n)/(4 + n)]*
       r^4*λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      648*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^
        2 + 126*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*λ1^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 9*n^4*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 2304*Sqrt[(2 + n)/(4 + n)]*
       r^4*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      2880*n*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*λ2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 1296*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      252*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*λ2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 18*n^4*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      1152*Sqrt[(2 + n)/(4 + n)]*r^4*λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^
        2 + 1440*n*Sqrt[(2 + n)/(4 + n)]*r^4*λ2^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 648*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      126*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^
        2 + 9*n^4*Sqrt[(2 + n)/(4 + n)]*r^4*λ2^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 1728*r^4*λ1*ν*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 2304*n*r^4*λ1*ν*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 1116*n^2*r^4*λ1*ν*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 234*n^3*r^4*λ1*ν*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 18*n^4*r^4*λ1*ν*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 1728*r^4*λ2*ν*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 2304*n*r^4*λ2*ν*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 1116*n^2*r^4*λ2*ν*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 234*n^3*r^4*λ2*ν*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 18*n^4*r^4*λ2*ν*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 1152*Sqrt[(2 + n)/(4 + n)]*r^4*
       ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 1440*n*Sqrt[(2 + n)/(4 + n)]*
       r^4*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      648*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^
        2 + 126*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*ν^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 9*n^4*Sqrt[(2 + n)/(4 + n)]*r^4*
       ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 1728*Sqrt[8 + 6*n + n^2]*r^2*
       λ1^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      432*n*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 1152*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ1^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      1152*n*Sqrt[(2 + n)/(4 + n)]*r^4*λ1^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 360*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ1^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 
      36*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*λ1^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 1728*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*
       Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      432*n*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 1152*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ2^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      1152*n*Sqrt[(2 + n)/(4 + n)]*r^4*λ2^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 360*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ2^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      36*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*λ2^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 1728*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 432*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 1152*r^4*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 1152*n*r^4*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 360*n^2*r^4*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 36*n^3*r^4*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 1728*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 432*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 1152*r^4*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 1152*n*r^4*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 360*n^2*r^4*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 36*n^3*r^4*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 1728*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*
       Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      3456*Sqrt[8 + 6*n + n^2]*r^2*λ1*λ2*Cos[2*α]^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 + 1728*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*
       Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]^2 - 
      144*Sqrt[2 + n]*Sqrt[4 + n]*r^4*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[3 + n/2, 4, -r^2/4] - 36*n*Sqrt[2 + n]*Sqrt[4 + n]*r^4*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[3 + n/2, 4, -r^2/4] - 
      864*Sqrt[(2 + n)/(4 + n)]*r^4*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 792*n*Sqrt[(2 + n)/(4 + n)]*r^4*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      216*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 18*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      1728*Sqrt[(2 + n)/(4 + n)]*r^4*λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 2016*n*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, 
        -r^2/4] + 828*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*λ1^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      144*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 9*n^4*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ1^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, 
        -r^2/4] + 3456*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*λ2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      4032*n*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*λ2*Hypergeometric1F1[2 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      1656*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*λ2*Hypergeometric1F1[2 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      288*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*λ1*λ2*Hypergeometric1F1[2 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 18*n^4*Sqrt[(2 + n)/(4 + n)]*
       r^4*λ1*λ2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 1728*Sqrt[(2 + n)/(4 + n)]*r^4*λ2^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      2016*n*Sqrt[(2 + n)/(4 + n)]*r^4*λ2^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 828*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ2^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, 
        -r^2/4] + 144*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*λ2^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      9*n^4*Sqrt[(2 + n)/(4 + n)]*r^4*λ2^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 2592*r^4*λ1*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      3240*n*r^4*λ1*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 1440*n^2*r^4*λ1*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      270*n^3*r^4*λ1*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 18*n^4*r^4*λ1*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      2592*r^4*λ2*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 3240*n*r^4*λ2*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      1440*n^2*r^4*λ2*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 270*n^3*r^4*λ2*ν*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      18*n^4*r^4*λ2*ν*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 1728*Sqrt[(2 + n)/(4 + n)]*r^4*ν^2*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      2016*n*Sqrt[(2 + n)/(4 + n)]*r^4*ν^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 828*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*
       ν^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, 
        -r^2/4] + 144*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*ν^2*Hypergeometric1F1[2 + n/2, 
        3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      9*n^4*Sqrt[(2 + n)/(4 + n)]*r^4*ν^2*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 1728*Sqrt[(2 + n)/(4 + n)]*r^4*λ1^2*
       Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 
        3, -r^2/4] + 1584*n*Sqrt[(2 + n)/(4 + n)]*r^4*λ1^2*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      432*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*λ1^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 
        3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      36*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*λ1^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 
        3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      1728*Sqrt[(2 + n)/(4 + n)]*r^4*λ2^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 1584*n*Sqrt[(2 + n)/(4 + n)]*
       r^4*λ2^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 432*n^2*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ2^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 36*n^3*Sqrt[(2 + n)/(4 + n)]*r^4*
       λ2^2*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 1728*r^4*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      1584*n*r^4*λ1*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 432*n^2*r^4*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      36*n^3*r^4*λ1*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 1728*r^4*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      1584*n*r^4*λ2*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 432*n^2*r^4*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      36*n^3*r^4*λ2*ν*Cos[2*α]*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 864*Sqrt[8 + 6*n + n^2]*r^4*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      252*n*Sqrt[8 + 6*n + n^2]*r^4*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 18*n^2*Sqrt[8 + 6*n + n^2]*r^4*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      864*Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 576*n*Sqrt[8 + 6*n + n^2]*r^4*λ1^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      126*n^2*Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 9*n^3*Sqrt[8 + 6*n + n^2]*r^4*λ1^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      1728*Sqrt[8 + 6*n + n^2]*r^4*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 1152*n*Sqrt[8 + 6*n + n^2]*r^4*λ1*
       λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, 
        -r^2/4] - 252*n^2*Sqrt[8 + 6*n + n^2]*r^4*λ1*λ2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      18*n^3*Sqrt[8 + 6*n + n^2]*r^4*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 864*Sqrt[8 + 6*n + n^2]*r^4*λ2^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      576*n*Sqrt[8 + 6*n + n^2]*r^4*λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 126*n^2*Sqrt[8 + 6*n + n^2]*r^4*
       λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, 
        -r^2/4] - 9*n^3*Sqrt[8 + 6*n + n^2]*r^4*λ2^2*Hypergeometric1F1[3 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 1728*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 1152*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 252*n^2*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 18*n^3*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 1728*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 1152*n*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 252*n^2*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 18*n^3*Sqrt[(2 + n)/(4 + n)]*
       Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 432*Sqrt[8 + 6*n + n^2]*r^4*ν^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      396*n*Sqrt[8 + 6*n + n^2]*r^4*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 108*n^2*Sqrt[8 + 6*n + n^2]*r^4*ν^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      9*n^3*Sqrt[8 + 6*n + n^2]*r^4*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 1728*Sqrt[8 + 6*n + n^2]*r^4*λ1^2*
       Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 
        3, -r^2/4] - 720*n*Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      72*n^2*Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 1728*Sqrt[8 + 6*n + n^2]*r^4*
       λ2^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 720*n*Sqrt[8 + 6*n + n^2]*r^4*λ2^2*
       Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 
        3, -r^2/4] + 72*n^2*Sqrt[8 + 6*n + n^2]*r^4*λ2^2*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      1728*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      720*n*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      72*n^2*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ1*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      1728*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      720*n*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      72*n^2*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^4*λ2*ν*Cos[2*α]*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
      864*Sqrt[8 + 6*n + n^2]*r^4*λ1^2*Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 3, 
        -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 144*n*Sqrt[8 + 6*n + n^2]*
       r^4*λ1^2*Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 1728*Sqrt[8 + 6*n + n^2]*r^4*λ1*
       λ2*Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 288*n*Sqrt[8 + 6*n + n^2]*r^4*λ1*
       λ2*Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 864*Sqrt[8 + 6*n + n^2]*r^4*λ2^2*
       Cos[2*α]^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 
        3, -r^2/4] - 144*n*Sqrt[8 + 6*n + n^2]*r^4*λ2^2*Cos[2*α]^2*
       Hypergeometric1F1[3 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
      72*Hypergeometric1F1[2 + n/2, 2, -r^2/4]*((2 + n)*Sqrt[8 + 6*n + n^2]*r^2*
         (-2 + (2 + n)*λ1^2 + (2 + n)*λ2^2 + 2*Sqrt[(2 + n)/(4 + n)]*(4 + n)*
           λ2*ν + 4*ν^2 + n*ν^2 + 2*λ1*((2 + n)*λ2 + 
            Sqrt[(2 + n)/(4 + n)]*(4 + n)*ν))*Hypergeometric1F1[2 + n/2, 3, 
          -r^2/4] - 16*Sqrt[8 + 6*n + n^2]*(-2 + (4 + n)*λ1^2 + 4*λ2^2 + 
          n*λ2^2 + 8*Sqrt[(2 + n)/(4 + n)]*λ2*ν + 2*n*Sqrt[(2 + n)/(4 + n)]*
           λ2*ν + 2*ν^2 + n*ν^2 + 2*(4 + n)*λ1*
           (λ2 + Sqrt[(2 + n)/(4 + n)]*ν) - 4*(λ1 - λ2)*
           (λ1 + λ2 + Sqrt[(2 + n)/(4 + n)]*ν)*Cos[2*α])*
         Hypergeometric1F1[3 + n/2, 2, -r^2/4] + 48*Sqrt[(2 + n)/(4 + n)]*r^2*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 36*n*Sqrt[(2 + n)/(4 + n)]*r^2*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 6*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 96*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 96*n*Sqrt[(2 + n)/(4 + n)]*r^2*
         λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 30*n^2*Sqrt[(2 + n)/(4 + n)]*
         r^2*λ1^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        3*n^3*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4] - 192*Sqrt[(2 + n)/(4 + n)]*r^2*λ1*λ2*Hypergeometric1F1[
          3 + n/2, 3, -r^2/4] - 192*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ1*λ2*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 60*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*
         λ1*λ2*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        6*n^3*Sqrt[(2 + n)/(4 + n)]*r^2*λ1*λ2*Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4] - 96*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*Hypergeometric1F1[3 + n/2, 
          3, -r^2/4] - 96*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 30*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*
         λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 3*n^3*Sqrt[(2 + n)/(4 + n)]*
         r^2*λ2^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        144*r^2*λ1*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        156*n*r^2*λ1*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        54*n^2*r^2*λ1*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        6*n^3*r^2*λ1*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        144*r^2*λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        156*n*r^2*λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        54*n^2*r^2*λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        6*n^3*r^2*λ2*ν*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        96*Sqrt[(2 + n)/(4 + n)]*r^2*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        96*n*Sqrt[(2 + n)/(4 + n)]*r^2*ν^2*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        30*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*ν^2*Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4] - 3*n^3*Sqrt[(2 + n)/(4 + n)]*r^2*ν^2*Hypergeometric1F1[3 + n/2, 
          3, -r^2/4] - 96*Sqrt[8 + 6*n + n^2]*λ1^2*Cos[2*α]*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 32*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*
         Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 
        24*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 
          3, -r^2/4] - 4*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*λ1^2*Cos[2*α]*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 96*Sqrt[8 + 6*n + n^2]*λ2^2*
         Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 32*Sqrt[(2 + n)/(4 + n)]*
         r^2*λ2^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
        24*n*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*Cos[2*α]*Hypergeometric1F1[3 + n/2, 
          3, -r^2/4] + 4*n^2*Sqrt[(2 + n)/(4 + n)]*r^2*λ2^2*Cos[2*α]*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 96*Sqrt[(2 + n)/(4 + n)]*
         Sqrt[8 + 6*n + n^2]*λ1*ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4] - 32*r^2*λ1*ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4] - 24*n*r^2*λ1*ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4] - 4*n^2*r^2*λ1*ν*Cos[2*α]*Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4] + 96*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*λ2*ν*Cos[2*α]*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 32*r^2*λ2*ν*Cos[2*α]*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 24*n*r^2*λ2*ν*Cos[2*α]*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 4*n^2*r^2*λ2*ν*Cos[2*α]*
         Hypergeometric1F1[3 + n/2, 3, -r^2/4] - 24*Sqrt[8 + 6*n + n^2]*r^2*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 4*n*Sqrt[8 + 6*n + n^2]*r^2*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 48*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 20*n*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 2*n^2*Sqrt[8 + 6*n + n^2]*r^2*
         λ1^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 96*Sqrt[8 + 6*n + n^2]*r^2*
         λ1*λ2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 40*n*Sqrt[8 + 6*n + n^2]*
         r^2*λ1*λ2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
        4*n^2*Sqrt[8 + 6*n + n^2]*r^2*λ1*λ2*Hypergeometric1F1[4 + n/2, 3, 
          -r^2/4] + 48*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Hypergeometric1F1[4 + n/2, 3, 
          -r^2/4] + 20*n*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Hypergeometric1F1[4 + n/2, 
          3, -r^2/4] + 2*n^2*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*Hypergeometric1F1[
          4 + n/2, 3, -r^2/4] + 96*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*
         λ1*ν*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 40*n*Sqrt[(2 + n)/(4 + n)]*
         Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
        4*n^2*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 96*Sqrt[(2 + n)/(4 + n)]*
         Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
        40*n*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 4*n^2*Sqrt[(2 + n)/(4 + n)]*
         Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
        24*Sqrt[8 + 6*n + n^2]*r^2*ν^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
        16*n*Sqrt[8 + 6*n + n^2]*r^2*ν^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
        2*n^2*Sqrt[8 + 6*n + n^2]*r^2*ν^2*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
        48*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, 
          -r^2/4] + 8*n*Sqrt[8 + 6*n + n^2]*r^2*λ1^2*Cos[2*α]*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 48*Sqrt[8 + 6*n + n^2]*r^2*λ2^2*
         Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 8*n*Sqrt[8 + 6*n + n^2]*
         r^2*λ2^2*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 
        48*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Cos[2*α]*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4] + 8*n*Sqrt[(2 + n)/(4 + n)]*
         Sqrt[8 + 6*n + n^2]*r^2*λ1*ν*Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, 
          -r^2/4] - 48*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*
         Cos[2*α]*Hypergeometric1F1[4 + n/2, 3, -r^2/4] - 
        8*n*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2]*r^2*λ2*ν*Cos[2*α]*
         Hypergeometric1F1[4 + n/2, 3, -r^2/4]) + 
      144*Hypergeometric1F1[1 + n/2, 2, -r^2/4]*
       (-8*Sqrt[8 + 6*n + n^2]*(-2 + (2 + n)*λ1^2 + (2 + n)*λ2^2 + 
          2*Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2*ν + 4*ν^2 + n*ν^2 + 
          2*λ1*((2 + n)*λ2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*ν))*
         Hypergeometric1F1[2 + n/2, 2, -r^2/4] - 
        (4 + n)*(-8*(-2*Sqrt[(2 + n)/(4 + n)] + Sqrt[(2 + n)/(4 + n)]*(4 + n)*
             λ1^2 + 4*Sqrt[(2 + n)/(4 + n)]*λ2^2 + n*Sqrt[(2 + n)/(4 + n)]*
             λ2^2 + 6*λ2*ν + 2*n*λ2*ν + 4*Sqrt[(2 + n)/(4 + n)]*ν^2 + 
            n*Sqrt[(2 + n)/(4 + n)]*ν^2 + 2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + 
                n)*λ2 + (3 + n)*ν) - 4*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*
               λ1 + Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Cos[2*α])*
           Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 
          (Sqrt[8 + 6*n + n^2]*r^2*(-2 + (2 + n)*λ1^2 + (2 + n)*λ2^2 + 
              2*Sqrt[(2 + n)/(4 + n)]*(4 + n)*λ2*ν + 4*ν^2 + n*ν^2 + 
              2*λ1*((2 + n)*λ2 + Sqrt[(2 + n)/(4 + n)]*(4 + n)*ν)) + 
            48*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*λ1 + Sqrt[(2 + n)/(4 + n)]*
               λ2 + ν)*Cos[2*α])*Hypergeometric1F1[3 + n/2, 3, -r^2/4] + 
          (6 + n)*r^2*(-2*Sqrt[(2 + n)/(4 + n)] + Sqrt[(2 + n)/(4 + n)]*(4 + n)*
             λ1^2 + 4*Sqrt[(2 + n)/(4 + n)]*λ2^2 + n*Sqrt[(2 + n)/(4 + n)]*
             λ2^2 + 6*λ2*ν + 2*n*λ2*ν + 4*Sqrt[(2 + n)/(4 + n)]*ν^2 + 
            n*Sqrt[(2 + n)/(4 + n)]*ν^2 + 2*λ1*(Sqrt[(2 + n)/(4 + n)]*(4 + 
                n)*λ2 + (3 + n)*ν) + 4*(λ1 - λ2)*(Sqrt[(2 + n)/(4 + n)]*
               λ1 + Sqrt[(2 + n)/(4 + n)]*λ2 + ν)*Cos[2*α])*
           Hypergeometric1F1[4 + n/2, 3, -r^2/4])) - 288*Sqrt[2 + n]*Sqrt[4 + n]*r^4*
       Hypergeometric1F1[2 + n/2, 3, -r^2/4]*Hypergeometric1F1[4 + n/2, 4, -r^2/4] - 
      48*n*Sqrt[2 + n]*Sqrt[4 + n]*r^4*Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 4, -r^2/4] + 24*Sqrt[2 + n]*Sqrt[4 + n]*r^6*
       Hypergeometric1F1[3 + n/2, 4, -r^2/4]*Hypergeometric1F1[4 + n/2, 4, -r^2/4] + 
      10*n*Sqrt[2 + n]*Sqrt[4 + n]*r^6*Hypergeometric1F1[3 + n/2, 4, -r^2/4]*
       Hypergeometric1F1[4 + n/2, 4, -r^2/4] + n^2*Sqrt[2 + n]*Sqrt[4 + n]*r^6*
       Hypergeometric1F1[3 + n/2, 4, -r^2/4]*Hypergeometric1F1[4 + n/2, 4, -r^2/4])*
     (8*Sqrt[(2 + n)/(4 + n)]*Sqrt[8 + 6*n + n^2] - 
      32*(2 + n)*(1 - λ1^2 + 2*λ1*λ2 - λ2^2 + (λ1 - λ2)^2*Cos[4*α])*
       Hypergeometric1F1[2 + n/2, 2, -r^2/4]*
       (4*Hypergeometric1F1[3 + n/2, 2, -r^2/4] - 3*Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4]) - Hypergeometric1F1[2 + n/2, 3, -r^2/4]*
       (-96*(2 + n)*(1 - λ1^2 + 2*λ1*λ2 - λ2^2 + (λ1 - λ2)^2*Cos[4*α])*
         Hypergeometric1F1[3 + n/2, 2, -r^2/4] + Hypergeometric1F1[3 + n/2, 3, 
          -r^2/4]*(144 + 72*n + Sqrt[2 + n]*Sqrt[4 + n]*Sqrt[8 + 6*n + n^2]*r^2 - 
          144*(2 + n)*(λ1 - λ2)^2*Sin[2*α]^2))))/Sqrt[8 + 6*n + n^2])/589824;

3D

δ3D[r_,θ_,z_,ν_,λ1_,λ2_,λ3_,n_]=-(-8*(5 + n)*(r^2 + z^2)*(Sqrt[(3 + n)/(5 + n)]*λ1 + Sqrt[(3 + n)/(5 + n)]*λ2 + Sqrt[(3 + n)/(5 + n)]*λ3 + ν)*Sqrt[Gamma[(3 + n)/2]]*Sqrt[Gamma[(7 + n)/2]]*
    (-((-32 + r^4 + (2 - 4*n)*z^2 + z^4 + r^2*(2 - 4*n + 2*z^2))*Hypergeometric1F1[(-1 + n)/2, 1/2, (-r^2 - z^2)/4]) + 
     (2*n^2*(r^2 + z^2) + 2*(-32 + r^4 + 2*r^2*z^2 + z^4) - n*(-32 + r^4 + 4*z^2 + z^4 + 2*r^2*(2 + z^2)))*Hypergeometric1F1[(-1 + n)/2, 3/2, (-r^2 - z^2)/4] - 
     32*(-1 + n)*Hypergeometric1F1[(1 + n)/2, 3/2, (-r^2 - z^2)/4]) + (-1 + n^2)*Gamma[(1 + n)/2]*
    ((2*r^4*((30 + 36*n + 4*n^2 - 15*z^2 - 3*n*z^2)*λ1 + (30 + 36*n + 4*n^2 - 15*z^2 - 3*n*z^2)*λ2 + 30*λ3 + 6*n*λ3 + 4*n^2*λ3 - 15*z^2*λ3 - 3*n*z^2*λ3 + 
         30*Sqrt[(3 + n)/(5 + n)]*ν + 26*n*Sqrt[(3 + n)/(5 + n)]*ν + 4*n^2*Sqrt[(3 + n)/(5 + n)]*ν - 15*Sqrt[(3 + n)/(5 + n)]*z^2*ν - 3*n*Sqrt[(3 + n)/(5 + n)]*z^2*ν) + 
       2*z^2*((4*n^2*z^2 + 30*(8 + z^2) - n*(28 - 6*z^2 + z^4))*λ1 + (4*n^2*z^2 + 30*(8 + z^2) - n*(28 - 6*z^2 + z^4))*λ2 + 152*n*λ3 + 30*z^2*λ3 + 66*n*z^2*λ3 + 
         4*n^2*z^2*λ3 - 15*z^4*λ3 - n*z^4*λ3 + 160*Sqrt[(3 + n)/(5 + n)]*ν + 32*n*Sqrt[(3 + n)/(5 + n)]*ν + 30*Sqrt[(3 + n)/(5 + n)]*z^2*ν + 
         26*n*Sqrt[(3 + n)/(5 + n)]*z^2*ν + 4*n^2*Sqrt[(3 + n)/(5 + n)]*z^2*ν - 5*Sqrt[(3 + n)/(5 + n)]*z^4*ν - n*Sqrt[(3 + n)/(5 + n)]*z^4*ν) - 
       r^6*((15 + 2*n)*λ1 + (15 + 2*n)*λ2 + 2*(n*λ3 + 5*Sqrt[(3 + n)/(5 + n)]*ν + n*Sqrt[(3 + n)/(5 + n)]*ν)) + 
       r^2*((16*n^2*z^2 + n*(124 + 84*z^2 - 6*z^4) - 15*(-16 - 8*z^2 + z^4))*λ1 + (16*n^2*z^2 + n*(124 + 84*z^2 - 6*z^4) - 15*(-16 - 8*z^2 + z^4))*λ2 + 
         2*((8*n^2*z^2 + n*(-28 + 72*z^2 - 3*z^4) - 30*(-8 - 2*z^2 + z^4))*λ3 + Sqrt[(3 + n)/(5 + n)]*(160 + 60*z^2 + 8*n^2*z^2 - 15*z^4 + n*(32 + 52*z^2 - 3*z^4))*ν)) - 
       15*r^2*(16 + r^4 + 2*r^2*z^2 + z^4 - 4*n*(3 + r^2 + z^2))*(λ1 - λ2)*Cos[2*θ])*Hypergeometric1F1[(1 + n)/2, 1/2, (-r^2 - z^2)/4] + 
     n*(r^4*((30 + 38*n + 4*n^2 - 30*z^2 - 6*n*z^2)*λ1 + (30 + 38*n + 4*n^2 - 30*z^2 - 6*n*z^2)*λ2 + 60*λ3 + 8*n*λ3 + 4*n^2*λ3 - 30*z^2*λ3 - 6*n*z^2*λ3 + 
         40*Sqrt[(3 + n)/(5 + n)]*ν + 28*n*Sqrt[(3 + n)/(5 + n)]*ν + 4*n^2*Sqrt[(3 + n)/(5 + n)]*ν - 30*Sqrt[(3 + n)/(5 + n)]*z^2*ν - 6*n*Sqrt[(3 + n)/(5 + n)]*z^2*ν) + 
       r^2*((8*n^2*z^2 + n*(64 + 46*z^2 - 6*z^4) - 15*(-12 - 6*z^2 + z^4))*λ1 + (180 + 64*n + 90*z^2 + 46*n*z^2 + 8*n^2*z^2 - 15*z^4 - 6*n*z^4)*λ2 + 600*λ3 + 64*n*λ3 + 
         60*z^2*λ3 + 76*n*z^2*λ3 + 8*n^2*z^2*λ3 - 60*z^4*λ3 - 6*n*z^4*λ3 + 320*Sqrt[(3 + n)/(5 + n)]*ν + 64*n*Sqrt[(3 + n)/(5 + n)]*ν + 
         80*Sqrt[(3 + n)/(5 + n)]*z^2*ν + 56*n*Sqrt[(3 + n)/(5 + n)]*z^2*ν + 8*n^2*Sqrt[(3 + n)/(5 + n)]*z^2*ν - 30*Sqrt[(3 + n)/(5 + n)]*z^4*ν - 
         6*n*Sqrt[(3 + n)/(5 + n)]*z^4*ν) + 2*z^2*((2*n^2*z^2 + 30*(10 + z^2) + n*(32 + 4*z^2 - z^4))*λ1 + (2*n^2*z^2 + 30*(10 + z^2) + n*(32 + 4*z^2 - z^4))*λ2 - 120*λ3 + 
         32*n*λ3 + 34*n*z^2*λ3 + 2*n^2*z^2*λ3 - 15*z^4*λ3 - n*z^4*λ3 + 160*Sqrt[(3 + n)/(5 + n)]*ν + 32*n*Sqrt[(3 + n)/(5 + n)]*ν + 20*Sqrt[(3 + n)/(5 + n)]*z^2*ν + 
         14*n*Sqrt[(3 + n)/(5 + n)]*z^2*ν + 2*n^2*Sqrt[(3 + n)/(5 + n)]*z^2*ν - 5*Sqrt[(3 + n)/(5 + n)]*z^4*ν - n*Sqrt[(3 + n)/(5 + n)]*z^4*ν) - 
       r^6*((15 + 2*n)*λ1 + (15 + 2*n)*λ2 + 2*(n*λ3 + 5*Sqrt[(3 + n)/(5 + n)]*ν + n*Sqrt[(3 + n)/(5 + n)]*ν)) - 
       15*r^2*(28 + r^4 - 2*(-1 + n)*z^2 + z^4 + r^2*(2 - 2*n + 2*z^2))*(λ1 - λ2)*Cos[2*θ])*Hypergeometric1F1[(1 + n)/2, 3/2, (-r^2 - z^2)/4] - 
     16*(1 + n)*(2*z^2*(15*λ1 + 2*n*λ1 + 15*λ2 + 2*n*λ2 + 2*n*λ3 + 10*Sqrt[(3 + n)/(5 + n)]*ν + 2*n*Sqrt[(3 + n)/(5 + n)]*ν) + 
       r^2*(15*λ1 + 4*n*λ1 + 15*λ2 + 4*n*λ2 + 30*λ3 + 4*n*λ3 + 20*Sqrt[(3 + n)/(5 + n)]*ν + 4*n*Sqrt[(3 + n)/(5 + n)]*ν) - 15*r^2*(λ1 - λ2)*Cos[2*θ])*
      Hypergeometric1F1[(3 + n)/2, 3/2, (-r^2 - z^2)/4]))/(32*(-1 + n^2)*(r^2 + z^2)^2*Sqrt[Gamma[(3 + n)/2]]*Sqrt[Gamma[(7 + n)/2]]);

spin3D[x_,y_,z_,ν_,λ1_,λ2_,λ3_,n_]={(-5*E^((-x^2 - y^2 - z^2)/2)*y*z*(λ2 - λ3)*(-2*(x^2 + y^2 + z^2)*(-(y^6*(Sqrt[3]*λ1 - 29*Sqrt[3]*λ2 + Sqrt[3]*λ3 - 15*ν)) + 
      x^6*(29*Sqrt[3]*λ1 - Sqrt[3]*λ2 - Sqrt[3]*λ3 + 15*ν) - 3*y^4*(Sqrt[3]*(86 + z^2)*λ1 - Sqrt[3]*(444 + 19*z^2)*λ2 + 106*Sqrt[3]*λ3 - 9*Sqrt[3]*z^2*λ3 - 60*ν - 
        15*z^2*ν) + 3*x^4*(Sqrt[3]*(464 + 19*y^2 + 19*z^2)*λ1 + Sqrt[3]*(-106 + 9*y^2 - z^2)*λ2 - 106*Sqrt[3]*λ3 - Sqrt[3]*y^2*λ3 + 9*Sqrt[3]*z^2*λ3 + 60*ν + 
        15*y^2*ν + 15*z^2*ν) + 3*y^2*(-(Sqrt[3]*(72 + 172*z^2 + z^4)*λ1) + Sqrt[3]*(768 + 338*z^2 + 9*z^4)*λ2 + 168*Sqrt[3]*λ3 + 338*Sqrt[3]*z^2*λ3 + 
        19*Sqrt[3]*z^4*λ3 + 288*ν + 120*z^2*ν + 15*z^4*ν) + z^2*(-(Sqrt[3]*(216 + 258*z^2 + z^4)*λ1) - Sqrt[3]*(-504 + 318*z^2 + z^4)*λ2 + 2304*Sqrt[3]*λ3 + 
        1332*Sqrt[3]*z^2*λ3 + 29*Sqrt[3]*z^4*λ3 + 864*ν + 180*z^2*ν + 15*z^4*ν) + 3*x^2*(3*Sqrt[3]*(176 + 3*y^4 + 126*z^2 + 3*z^4 + 6*y^2*(21 + z^2))*λ1 + 
        Sqrt[3]*(168 + 19*y^4 - 212*z^2 - z^4 + 2*y^2*(169 + 9*z^2))*λ2 + 168*Sqrt[3]*λ3 - 212*Sqrt[3]*y^2*λ3 - Sqrt[3]*y^4*λ3 + 338*Sqrt[3]*z^2*λ3 + 
        18*Sqrt[3]*y^2*z^2*λ3 + 19*Sqrt[3]*z^4*λ3 + 288*ν + 120*y^2*ν + 15*y^4*ν + 120*z^2*ν + 30*y^2*z^2*ν + 15*z^4*ν)) + 
    E^((x^2 + y^2 + z^2)/4)*Sqrt[Pi]*Sqrt[x^2 + y^2 + z^2]*(x^8*(23*Sqrt[3]*λ1 - 7*Sqrt[3]*λ2 - 7*Sqrt[3]*λ3 - 3*ν) - 
      y^8*(7*Sqrt[3]*λ1 - 23*Sqrt[3]*λ2 + 7*Sqrt[3]*λ3 + 3*ν) + 2*x^6*(Sqrt[3]*(-165 + 31*y^2 + 31*z^2)*λ1 + Sqrt[3]*(60 + y^2 - 14*z^2)*λ2 + 60*Sqrt[3]*λ3 - 
        14*Sqrt[3]*y^2*λ3 + Sqrt[3]*z^2*λ3 - 9*ν - 6*y^2*ν - 6*z^2*ν) - 2*y^6*(2*Sqrt[3]*(-15 + 7*z^2)*λ1 + Sqrt[3]*(135 - 31*z^2)*λ2 - 60*Sqrt[3]*λ3 - 
        Sqrt[3]*z^2*λ3 + 9*ν + 6*z^2*ν) + 6*x^4*(4*Sqrt[3]*(113 + 2*y^4 - 25*z^2 + 2*z^4 + y^2*(-25 + 4*z^2))*λ1 + Sqrt[3]*(-118 + 8*y^4 + 60*z^2 - 7*z^4 + y^2*(-5 + z^2))*
         λ2 - 118*Sqrt[3]*λ3 + 60*Sqrt[3]*y^2*λ3 - 7*Sqrt[3]*y^4*λ3 - 5*Sqrt[3]*z^2*λ3 + Sqrt[3]*y^2*z^2*λ3 + 8*Sqrt[3]*z^4*λ3 + 24*ν - 9*y^2*ν - 3*y^4*ν - 
        9*z^2*ν - 6*y^2*z^2*ν - 3*z^4*ν) - 6*y^4*(Sqrt[3]*(98 - 30*z^2 + 7*z^4)*λ1 - 2*Sqrt[3]*(216 - 35*z^2 + 4*z^4)*λ2 + 118*Sqrt[3]*λ3 + 5*Sqrt[3]*z^2*λ3 - 
        8*Sqrt[3]*z^4*λ3 - 24*ν + 9*z^2*ν + 3*z^4*ν) + 2*x^2*(Sqrt[3]*(3168 + y^6 + 1062*z^2 - 105*z^4 + z^6 + 3*y^4*(-35 + z^2) + 3*y^2*(354 - 70*z^2 + z^4))*λ1 + 
        Sqrt[3]*(31*y^6 + 6*y^4*(-35 + 8*z^2) + 3*y^2*(314 - 10*z^2 + z^4) + 2*(504 - 354*z^2 + 90*z^4 - 7*z^6))*λ2 + 1008*Sqrt[3]*λ3 - 708*Sqrt[3]*y^2*λ3 + 
        180*Sqrt[3]*y^4*λ3 - 14*Sqrt[3]*y^6*λ3 + 942*Sqrt[3]*z^2*λ3 - 30*Sqrt[3]*y^2*z^2*λ3 + 3*Sqrt[3]*y^4*z^2*λ3 - 210*Sqrt[3]*z^4*λ3 + 48*Sqrt[3]*y^2*z^4*λ3 + 
        31*Sqrt[3]*z^6*λ3 + 1728*ν + 144*y^2*ν - 27*y^4*ν - 6*y^6*ν + 144*z^2*ν - 54*y^2*z^2*ν - 18*y^4*z^2*ν - 27*z^4*ν - 18*y^2*z^4*ν - 6*z^6*ν) + 
      z^2*(-(Sqrt[3]*(864 + 588*z^2 - 60*z^4 + 7*z^6)*λ1) + Sqrt[3]*(2016 - 708*z^2 + 120*z^4 - 7*z^6)*λ2 + 9216*Sqrt[3]*λ3 + 2592*Sqrt[3]*z^2*λ3 - 270*Sqrt[3]*z^4*λ3 + 
        23*Sqrt[3]*z^6*λ3 + 3456*ν + 144*z^2*ν - 18*z^4*ν - 3*z^6*ν) - 2*y^2*(2*Sqrt[3]*(216 + 294*z^2 - 45*z^4 + 7*z^6)*λ1 - 
        Sqrt[3]*(4608 + 942*z^2 - 15*z^4 + z^6)*λ2 - 1008*Sqrt[3]*λ3 - 942*Sqrt[3]*z^2*λ3 + 210*Sqrt[3]*z^4*λ3 - 31*Sqrt[3]*z^6*λ3 - 1728*ν - 144*z^2*ν + 27*z^4*ν + 
        6*z^6*ν))*Erf[Sqrt[x^2 + y^2 + z^2]/2] + 72*E^((x^2 + y^2 + z^2)/2)*Pi*(x^4*(Sqrt[3]*λ1 + Sqrt[3]*λ2 + Sqrt[3]*λ3 + 3*ν) + 
      y^4*(Sqrt[3]*λ1 + Sqrt[3]*λ2 + Sqrt[3]*λ3 + 3*ν) + z^2*(Sqrt[3]*(6 + z^2)*λ1 + Sqrt[3]*(-14 + z^2)*λ2 - 64*Sqrt[3]*λ3 + Sqrt[3]*z^2*λ3 - 24*ν + 3*z^2*ν) + 
      2*y^2*(Sqrt[3]*(3 + z^2)*λ1 + Sqrt[3]*(-32 + z^2)*λ2 - 7*Sqrt[3]*λ3 + Sqrt[3]*z^2*λ3 - 12*ν + 3*z^2*ν) + 
      2*x^2*(Sqrt[3]*(-22 + y^2 + z^2)*λ1 + Sqrt[3]*(-7 + y^2 + z^2)*λ2 - 7*Sqrt[3]*λ3 + Sqrt[3]*y^2*λ3 + Sqrt[3]*z^2*λ3 - 12*ν + 3*y^2*ν + 3*z^2*ν))*
     Erf[Sqrt[x^2 + y^2 + z^2]/2]^2))/(12*(x^2 + y^2 + z^2)^6), 
 (5*E^((-x^2 - y^2 - z^2)/2)*x*z*(λ1 - λ3)*(-2*(x^2 + y^2 + z^2)*(-(y^6*(Sqrt[3]*λ1 - 29*Sqrt[3]*λ2 + Sqrt[3]*λ3 - 15*ν)) + 
      x^6*(29*Sqrt[3]*λ1 - Sqrt[3]*λ2 - Sqrt[3]*λ3 + 15*ν) - 3*y^4*(Sqrt[3]*(106 + z^2)*λ1 - Sqrt[3]*(464 + 19*z^2)*λ2 + 106*Sqrt[3]*λ3 - 9*Sqrt[3]*z^2*λ3 - 60*ν - 
        15*z^2*ν) + 3*x^4*(Sqrt[3]*(444 + 19*y^2 + 19*z^2)*λ1 + Sqrt[3]*(-86 + 9*y^2 - z^2)*λ2 - 106*Sqrt[3]*λ3 - Sqrt[3]*y^2*λ3 + 9*Sqrt[3]*z^2*λ3 + 60*ν + 
        15*y^2*ν + 15*z^2*ν) + 3*y^2*(-(Sqrt[3]*(-168 + 212*z^2 + z^4)*λ1) + 3*Sqrt[3]*(176 + 126*z^2 + 3*z^4)*λ2 + 168*Sqrt[3]*λ3 + 338*Sqrt[3]*z^2*λ3 + 
        19*Sqrt[3]*z^4*λ3 + 288*ν + 120*z^2*ν + 15*z^4*ν) + z^2*(-(Sqrt[3]*(-504 + 318*z^2 + z^4)*λ1) - Sqrt[3]*(216 + 258*z^2 + z^4)*λ2 + 2304*Sqrt[3]*λ3 + 
        1332*Sqrt[3]*z^2*λ3 + 29*Sqrt[3]*z^4*λ3 + 864*ν + 180*z^2*ν + 15*z^4*ν) + 3*x^2*(Sqrt[3]*(768 + 9*y^4 + 338*z^2 + 9*z^4 + 2*y^2*(169 + 9*z^2))*λ1 + 
        Sqrt[3]*(-72 + 19*y^4 - 172*z^2 - z^4 + 18*y^2*(21 + z^2))*λ2 + 168*Sqrt[3]*λ3 - 212*Sqrt[3]*y^2*λ3 - Sqrt[3]*y^4*λ3 + 338*Sqrt[3]*z^2*λ3 + 
        18*Sqrt[3]*y^2*z^2*λ3 + 19*Sqrt[3]*z^4*λ3 + 288*ν + 120*y^2*ν + 15*y^4*ν + 120*z^2*ν + 30*y^2*z^2*ν + 15*z^4*ν)) + 
    E^((x^2 + y^2 + z^2)/4)*Sqrt[Pi]*Sqrt[x^2 + y^2 + z^2]*(x^8*(23*Sqrt[3]*λ1 - 7*Sqrt[3]*λ2 - 7*Sqrt[3]*λ3 - 3*ν) - 
      y^8*(7*Sqrt[3]*λ1 - 23*Sqrt[3]*λ2 + 7*Sqrt[3]*λ3 + 3*ν) + 2*x^6*(Sqrt[3]*(-135 + 31*y^2 + 31*z^2)*λ1 + Sqrt[3]*(30 + y^2 - 14*z^2)*λ2 + 60*Sqrt[3]*λ3 - 
        14*Sqrt[3]*y^2*λ3 + Sqrt[3]*z^2*λ3 - 9*ν - 6*y^2*ν - 6*z^2*ν) - 2*y^6*(2*Sqrt[3]*(-30 + 7*z^2)*λ1 + Sqrt[3]*(165 - 31*z^2)*λ2 - 60*Sqrt[3]*λ3 - 
        Sqrt[3]*z^2*λ3 + 9*ν + 6*z^2*ν) + 6*x^4*(2*Sqrt[3]*(216 + 4*y^4 - 35*z^2 + 4*z^4 + y^2*(-35 + 8*z^2))*λ1 + Sqrt[3]*(-98 + 8*y^4 + 30*z^2 - 7*z^4 + y^2*(-35 + z^2))*
         λ2 - 118*Sqrt[3]*λ3 + 60*Sqrt[3]*y^2*λ3 - 7*Sqrt[3]*y^4*λ3 - 5*Sqrt[3]*z^2*λ3 + Sqrt[3]*y^2*z^2*λ3 + 8*Sqrt[3]*z^4*λ3 + 24*ν - 9*y^2*ν - 3*y^4*ν - 
        9*z^2*ν - 6*y^2*z^2*ν - 3*z^4*ν) - 6*y^4*(Sqrt[3]*(118 - 60*z^2 + 7*z^4)*λ1 - 4*Sqrt[3]*(113 - 25*z^2 + 2*z^4)*λ2 + 118*Sqrt[3]*λ3 + 5*Sqrt[3]*z^2*λ3 - 
        8*Sqrt[3]*z^4*λ3 - 24*ν + 9*z^2*ν + 3*z^4*ν) + 2*y^2*(-2*Sqrt[3]*(-504 + 354*z^2 - 90*z^4 + 7*z^6)*λ1 + Sqrt[3]*(3168 + 1062*z^2 - 105*z^4 + z^6)*λ2 + 
        1008*Sqrt[3]*λ3 + 942*Sqrt[3]*z^2*λ3 - 210*Sqrt[3]*z^4*λ3 + 31*Sqrt[3]*z^6*λ3 + 1728*ν + 144*z^2*ν - 27*z^4*ν - 6*z^6*ν) + 
      2*x^2*(Sqrt[3]*(4608 + y^6 + 942*z^2 - 15*z^4 + z^6 + 3*y^4*(-5 + z^2) + 3*y^2*(314 - 10*z^2 + z^4))*λ1 + 
        Sqrt[3]*(31*y^6 + 12*y^4*(-25 + 4*z^2) + 3*y^2*(354 - 70*z^2 + z^4) - 2*(216 + 294*z^2 - 45*z^4 + 7*z^6))*λ2 + 1008*Sqrt[3]*λ3 - 708*Sqrt[3]*y^2*λ3 + 
        180*Sqrt[3]*y^4*λ3 - 14*Sqrt[3]*y^6*λ3 + 942*Sqrt[3]*z^2*λ3 - 30*Sqrt[3]*y^2*z^2*λ3 + 3*Sqrt[3]*y^4*z^2*λ3 - 210*Sqrt[3]*z^4*λ3 + 48*Sqrt[3]*y^2*z^4*λ3 + 
        31*Sqrt[3]*z^6*λ3 + 1728*ν + 144*y^2*ν - 27*y^4*ν - 6*y^6*ν + 144*z^2*ν - 54*y^2*z^2*ν - 18*y^4*z^2*ν - 27*z^4*ν - 18*y^2*z^4*ν - 6*z^6*ν) + 
      z^2*(Sqrt[3]*(2016 - 708*z^2 + 120*z^4 - 7*z^6)*λ1 - Sqrt[3]*(864 + 588*z^2 - 60*z^4 + 7*z^6)*λ2 + 9216*Sqrt[3]*λ3 + 2592*Sqrt[3]*z^2*λ3 - 270*Sqrt[3]*z^4*λ3 + 
        23*Sqrt[3]*z^6*λ3 + 3456*ν + 144*z^2*ν - 18*z^4*ν - 3*z^6*ν))*Erf[Sqrt[x^2 + y^2 + z^2]/2] + 
    72*E^((x^2 + y^2 + z^2)/2)*Pi*(x^4*(Sqrt[3]*λ1 + Sqrt[3]*λ2 + Sqrt[3]*λ3 + 3*ν) + y^4*(Sqrt[3]*λ1 + Sqrt[3]*λ2 + Sqrt[3]*λ3 + 3*ν) + 
      z^2*(Sqrt[3]*(-14 + z^2)*λ1 + Sqrt[3]*(6 + z^2)*λ2 - 64*Sqrt[3]*λ3 + Sqrt[3]*z^2*λ3 - 24*ν + 3*z^2*ν) + 
      2*y^2*(Sqrt[3]*(-7 + z^2)*λ1 + Sqrt[3]*(-22 + z^2)*λ2 - 7*Sqrt[3]*λ3 + Sqrt[3]*z^2*λ3 - 12*ν + 3*z^2*ν) + 
      2*x^2*(Sqrt[3]*(-32 + y^2 + z^2)*λ1 + Sqrt[3]*(3 + y^2 + z^2)*λ2 - 7*Sqrt[3]*λ3 + Sqrt[3]*y^2*λ3 + Sqrt[3]*z^2*λ3 - 12*ν + 3*y^2*ν + 3*z^2*ν))*
     Erf[Sqrt[x^2 + y^2 + z^2]/2]^2))/(12*(x^2 + y^2 + z^2)^6), 
 (-5*E^((-x^2 - y^2 - z^2)/2)*x*y*(λ1 - λ2)*(-2*(x^2 + y^2 + z^2)*(-(y^6*(Sqrt[3]*λ1 - 29*Sqrt[3]*λ2 + Sqrt[3]*λ3 - 15*ν)) + 
      x^6*(29*Sqrt[3]*λ1 - Sqrt[3]*λ2 - Sqrt[3]*λ3 + 15*ν) - 3*y^4*(Sqrt[3]*(106 + z^2)*λ1 - Sqrt[3]*(444 + 19*z^2)*λ2 + 86*Sqrt[3]*λ3 - 9*Sqrt[3]*z^2*λ3 - 60*ν - 
        15*z^2*ν) + 3*x^4*(Sqrt[3]*(444 + 19*y^2 + 19*z^2)*λ1 + Sqrt[3]*(-106 + 9*y^2 - z^2)*λ2 - 86*Sqrt[3]*λ3 - Sqrt[3]*y^2*λ3 + 9*Sqrt[3]*z^2*λ3 + 60*ν + 
        15*y^2*ν + 15*z^2*ν) + 3*y^2*(-(Sqrt[3]*(-168 + 212*z^2 + z^4)*λ1) + Sqrt[3]*(768 + 338*z^2 + 9*z^4)*λ2 - 72*Sqrt[3]*λ3 + 378*Sqrt[3]*z^2*λ3 + 
        19*Sqrt[3]*z^4*λ3 + 288*ν + 120*z^2*ν + 15*z^4*ν) + z^2*(-(Sqrt[3]*(-504 + 318*z^2 + z^4)*λ1) - Sqrt[3]*(-504 + 318*z^2 + z^4)*λ2 + 1584*Sqrt[3]*λ3 + 
        1392*Sqrt[3]*z^2*λ3 + 29*Sqrt[3]*z^4*λ3 + 864*ν + 180*z^2*ν + 15*z^4*ν) + 3*x^2*(Sqrt[3]*(768 + 9*y^4 + 338*z^2 + 9*z^4 + 2*y^2*(169 + 9*z^2))*λ1 + 
        Sqrt[3]*(168 + 19*y^4 - 212*z^2 - z^4 + 2*y^2*(169 + 9*z^2))*λ2 - 72*Sqrt[3]*λ3 - 172*Sqrt[3]*y^2*λ3 - Sqrt[3]*y^4*λ3 + 378*Sqrt[3]*z^2*λ3 + 
        18*Sqrt[3]*y^2*z^2*λ3 + 19*Sqrt[3]*z^4*λ3 + 288*ν + 120*y^2*ν + 15*y^4*ν + 120*z^2*ν + 30*y^2*z^2*ν + 15*z^4*ν)) + 
    E^((x^2 + y^2 + z^2)/4)*Sqrt[Pi]*Sqrt[x^2 + y^2 + z^2]*(x^8*(23*Sqrt[3]*λ1 - 7*Sqrt[3]*λ2 - 7*Sqrt[3]*λ3 - 3*ν) - 
      y^8*(7*Sqrt[3]*λ1 - 23*Sqrt[3]*λ2 + 7*Sqrt[3]*λ3 + 3*ν) + 2*x^6*(Sqrt[3]*(-135 + 31*y^2 + 31*z^2)*λ1 + Sqrt[3]*(60 + y^2 - 14*z^2)*λ2 + 30*Sqrt[3]*λ3 - 
        14*Sqrt[3]*y^2*λ3 + Sqrt[3]*z^2*λ3 - 9*ν - 6*y^2*ν - 6*z^2*ν) - 2*y^6*(2*Sqrt[3]*(-30 + 7*z^2)*λ1 + Sqrt[3]*(135 - 31*z^2)*λ2 - 30*Sqrt[3]*λ3 - 
        Sqrt[3]*z^2*λ3 + 9*ν + 6*z^2*ν) + 6*x^4*(2*Sqrt[3]*(216 + 4*y^4 - 35*z^2 + 4*z^4 + y^2*(-35 + 8*z^2))*λ1 + Sqrt[3]*(-118 + 8*y^4 + 60*z^2 - 7*z^4 + y^2*(-5 + z^2))*
         λ2 - 98*Sqrt[3]*λ3 + 30*Sqrt[3]*y^2*λ3 - 7*Sqrt[3]*y^4*λ3 - 35*Sqrt[3]*z^2*λ3 + Sqrt[3]*y^2*z^2*λ3 + 8*Sqrt[3]*z^4*λ3 + 24*ν - 9*y^2*ν - 3*y^4*ν - 
        9*z^2*ν - 6*y^2*z^2*ν - 3*z^4*ν) - 6*y^4*(Sqrt[3]*(118 - 60*z^2 + 7*z^4)*λ1 - 2*Sqrt[3]*(216 - 35*z^2 + 4*z^4)*λ2 + 98*Sqrt[3]*λ3 + 35*Sqrt[3]*z^2*λ3 - 
        8*Sqrt[3]*z^4*λ3 - 24*ν + 9*z^2*ν + 3*z^4*ν) + 2*y^2*(-2*Sqrt[3]*(-504 + 354*z^2 - 90*z^4 + 7*z^6)*λ1 + Sqrt[3]*(4608 + 942*z^2 - 15*z^4 + z^6)*λ2 - 
        432*Sqrt[3]*λ3 + 1062*Sqrt[3]*z^2*λ3 - 300*Sqrt[3]*z^4*λ3 + 31*Sqrt[3]*z^6*λ3 + 1728*ν + 144*z^2*ν - 27*z^4*ν - 6*z^6*ν) + 
      2*x^2*(Sqrt[3]*(4608 + y^6 + 942*z^2 - 15*z^4 + z^6 + 3*y^4*(-5 + z^2) + 3*y^2*(314 - 10*z^2 + z^4))*λ1 + 
        Sqrt[3]*(31*y^6 + 6*y^4*(-35 + 8*z^2) + 3*y^2*(314 - 10*z^2 + z^4) + 2*(504 - 354*z^2 + 90*z^4 - 7*z^6))*λ2 - 432*Sqrt[3]*λ3 - 588*Sqrt[3]*y^2*λ3 + 
        90*Sqrt[3]*y^4*λ3 - 14*Sqrt[3]*y^6*λ3 + 1062*Sqrt[3]*z^2*λ3 - 210*Sqrt[3]*y^2*z^2*λ3 + 3*Sqrt[3]*y^4*z^2*λ3 - 300*Sqrt[3]*z^4*λ3 + 48*Sqrt[3]*y^2*z^4*λ3 + 
        31*Sqrt[3]*z^6*λ3 + 1728*ν + 144*y^2*ν - 27*y^4*ν - 6*y^6*ν + 144*z^2*ν - 54*y^2*z^2*ν - 18*y^4*z^2*ν - 27*z^4*ν - 18*y^2*z^4*ν - 6*z^6*ν) + 
      z^2*(Sqrt[3]*(2016 - 708*z^2 + 120*z^4 - 7*z^6)*λ1 + Sqrt[3]*(2016 - 708*z^2 + 120*z^4 - 7*z^6)*λ2 + 6336*Sqrt[3]*λ3 + 2712*Sqrt[3]*z^2*λ3 - 330*Sqrt[3]*z^4*λ3 + 
        23*Sqrt[3]*z^6*λ3 + 3456*ν + 144*z^2*ν - 18*z^4*ν - 3*z^6*ν))*Erf[Sqrt[x^2 + y^2 + z^2]/2] + 
    72*E^((x^2 + y^2 + z^2)/2)*Pi*(x^4*(Sqrt[3]*λ1 + Sqrt[3]*λ2 + Sqrt[3]*λ3 + 3*ν) + y^4*(Sqrt[3]*λ1 + Sqrt[3]*λ2 + Sqrt[3]*λ3 + 3*ν) + 
      z^2*(Sqrt[3]*(-14 + z^2)*λ1 + Sqrt[3]*(-14 + z^2)*λ2 - 44*Sqrt[3]*λ3 + Sqrt[3]*z^2*λ3 - 24*ν + 3*z^2*ν) + 
      2*y^2*(Sqrt[3]*(-7 + z^2)*λ1 + Sqrt[3]*(-32 + z^2)*λ2 + 3*Sqrt[3]*λ3 + Sqrt[3]*z^2*λ3 - 12*ν + 3*z^2*ν) + 
      2*x^2*(Sqrt[3]*(-32 + y^2 + z^2)*λ1 + Sqrt[3]*(-7 + y^2 + z^2)*λ2 + 3*Sqrt[3]*λ3 + Sqrt[3]*y^2*λ3 + Sqrt[3]*z^2*λ3 - 12*ν + 3*y^2*ν + 3*z^2*ν))*
     Erf[Sqrt[x^2 + y^2 + z^2]/2]^2))/(12*(x^2 + y^2 + z^2)^6)};

Compiled

δ2DN=Compile[{r,α,ν,λ1,λ2,n},δ2D[r,α,ν,λ1,λ2,n]//Evaluate,CompilationTarget->"C",CompilationOptions->{"ExpressionOptimization" -> True,"InlineCompiledFunctions"->True,"InlineExternalDefinitions"->True},RuntimeOptions->"Speed"];

spin2DN=Compile[{r,α,ν,λ1,λ2,n},spin2D[r,α,ν,λ1,λ2,n]//Evaluate,CompilationTarget->"C",CompilationOptions->{"ExpressionOptimization" -> True,"InlineCompiledFunctions"->True,"InlineExternalDefinitions"->True},RuntimeOptions->"Speed"];

var2DN=Compile[{r,α,ν,λ1,λ2,n},var2D[r,α,ν,λ1,λ2,n]//Evaluate,CompilationTarget->"C",CompilationOptions->{"ExpressionOptimization" -> True,"InlineCompiledFunctions"->True,"InlineExternalDefinitions"->True},RuntimeOptions->"Speed"];

δ3DN=Compile[{r,θ,z,ν,λ1,λ2,λ3,n},δ3D[r,θ,z,ν,λ1,λ2,λ3,n]//Evaluate,CompilationTarget->"C",CompilationOptions->{"ExpressionOptimization" -> True,"InlineCompiledFunctions"->True,"InlineExternalDefinitions"->True},RuntimeOptions->"Speed"];

spin3DN=Compile[{r,θ,z,ν,λ1,λ2,λ3,n},spin3D[r,θ,z,ν,λ1,λ2,λ3,n]//Evaluate,CompilationTarget->"C",CompilationOptions->{"ExpressionOptimization" -> True,"InlineCompiledFunctions"->True,"InlineExternalDefinitions"->True},RuntimeOptions->"Speed"];

End[];
EndPackage[];

Example

<<NotebookDirectory[]<>"/ATTT.m"

?ATTT`*

ParallelTable[{r Cos[α],r Sin[α],spin2DN[r,α,1,1,2,1]},{r,0.01,1.5,0.0125},
{α,0,2Pi,Pi/64}]//Flatten[#,1]&//ListContourPlot[#]&//Image[#,ImageResolution-> 300]&

3D spin as a function of correlation functions and spectral parameter

HH={{λ1,0,0},{0,λ2,0},{0,0,λ3}};

THH=HH-1/3Tr[HH] IdentityMatrix[3];

rr={x,y,z};

Le=LeviCivitaTensor[3];

Clear[spinxyz];spinxyz[x_,y_,z_,λ1_,λ2_,λ3_,ν_]=(-15*(1/(1-γ^2)*(ν*(((Subscript[ξΔP, ϕϕ])[r]+γ (Subscript[ξΔP, ϕx])[r]) (Subscript[ξCC, xx])[r]-((Subscript[ξΔP, ϕx])[r]+γ (Subscript[ξΔP, xx])[r])(Subscript[ξCC, ϕx])[r])+Tr[HH]*((γ (Subscript[ξΔP, ϕϕ])[r]+(Subscript[ξΔP, ϕx])[r]) (Subscript[ξCC, xx])[r]-(γ (Subscript[ξΔP, ϕx])[r]+(Subscript[ξΔP, xx])[r])(Subscript[ξCC, ϕx])[r]))*rr.Le.THH.rr/(rr.rr)-5/8(2(((Subscript[ξΔP, ϕx])[r]-(Subscript[ξΔΔ, ϕx])[r]) (Subscript[ξCC, xx])[r]-((Subscript[ξΔP, xx])[r]-(Subscript[ξΔΔ, xx]) [r]) (Subscript[ξCC, ϕx])[r]) *
(THH.(rr.Le.THH.rr)/(rr.rr))+((7(Subscript[ξΔΔ, xx])[r]+5(Subscript[ξΔP, xx])[r])(Subscript[ξCC, ϕx])[r]-(7(Subscript[ξΔΔ, ϕx])[r]+5(Subscript[ξΔP, ϕx])[r])(Subscript[ξCC, xx])[r]) (rr.THH.rr)(rr.Le.THH.rr)/(rr.rr)^2)));

where γ is the density spectral parameter, (Subscript[ξΔP, ϕϕ])[r] is  (Subscript[ξ, ϕϕ]^(Δ+))(r), (Subscript[ξCC, xx])[r] is  (Subscript[ξ, xx]^(××))(r), (Subscript[ξΔΔ, ϕx])[r] is (Subscript[ξ, ϕx]^(ΔΔ))(r),etc

Clear[δ3D];δ3D[x_,y_,z_,λ1_,λ2_,λ3_,ν_]=Tr[HH]((Subscript[ξΔΔ, ϕx])[r]+γ(Subscript[ξΔΔ, ϕϕ])[r])/(1-γ^2)+ν((Subscript[ξΔΔ, ϕϕ])[r]+γ(Subscript[ξΔΔ, ϕx])[r])/(1-γ^2)+15/2*(rr.THH.rr)(Subscript[ξΔP, ϕx])[r];