SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\SL2Invariant"];
<< SL2Invariant.m

{tin,ζs,L,Q,P}={27.390000000000015`,{(Subscript[β, nn[0]]),(Subscript[τ, nn[0]]),(Subscript[a, nn[0]]),(Subscript[β, nn[4]]),(Subscript[τ, nn[4]]),(Subscript[a, nn[4]])},(Subscript[a, 0]) (Subscript[α, nn[0]])+(Subscript[a, 0]) (Subscript[α, nn[4]])+t (Subscript[τ, nn[0]])+t (Subscript[τ, nn[4]]),(((ℏ-4 T ℏ+8 (T^2) ℏ-8 (T^3) ℏ+7 (T^4) ℏ-4 (T^5) ℏ+(T^6) ℏ) (Subscript[x, 14]) (Subscript[y, 14]))/(T-3 (T^2)+5 (T^3)-6 (T^4)+7 (T^5)-4 (T^6)+(T^7)))+(((ℏ-(T^2) ℏ+(T^3) ℏ) (Subscript[x, nn[0]]) (Subscript[y, 14]))/(1-3 T+5 (T^2)-6 (T^3)+7 (T^4)-4 (T^5)+(T^6)))+(((-ℏ+T ℏ-2 (T^2) ℏ+(T^3) ℏ) (Subscript[x, nn[4]]) (Subscript[y, 14]))/(1-3 T+5 (T^2)-6 (T^3)+7 (T^4)-4 (T^5)+(T^6)))+(((-ℏ+4 T ℏ-8 (T^2) ℏ+9 (T^3) ℏ-8 (T^4) ℏ+5 (T^5) ℏ-(T^6) ℏ) (Subscript[x, 14]) (Subscript[y, nn[0]]))/(T-3 (T^2)+5 (T^3)-6 (T^4)+7 (T^5)-4 (T^6)+(T^7)))+(((-ℏ+T ℏ-(T^4) ℏ) (Subscript[x, nn[0]]) (Subscript[y, nn[0]]))/(1-3 T+5 (T^2)-6 (T^3)+7 (T^4)-4 (T^5)+(T^6)))+(((ℏ-2 T ℏ+3 (T^2) ℏ-3 (T^3) ℏ+2 (T^4) ℏ-(T^5) ℏ) (Subscript[x, nn[4]]) (Subscript[y, nn[0]]))/(1-3 T+5 (T^2)-6 (T^3)+7 (T^4)-4 (T^5)+(T^6)))+(((-(T^2) ℏ+(T^3) ℏ-(T^4) ℏ) (Subscript[x, 14]) (Subscript[y, nn[4]]))/(1-3 T+5 (T^2)-6 (T^3)+7 (T^4)-4 (T^5)+(T^6)))+(((-T ℏ+(T^2) ℏ-(T^3) ℏ+(T^4) ℏ) (Subscript[x, nn[0]]) (Subscript[y, nn[4]]))/(1-3 T+5 (T^2)-6 (T^3)+7 (T^4)-4 (T^5)+(T^6)))+(((T ℏ-(T^2) ℏ+2 (T^3) ℏ-2 (T^4) ℏ+(T^5) ℏ) (Subscript[x, nn[4]]) (Subscript[y, nn[4]]))/(1-3 T+5 (T^2)-6 (T^3)+7 (T^4)-4 (T^5)+(T^6)))+(Subscript[y, 0]) (Subscript[η, nn[0]])+(((Subscript[y, 0]) (Subscript[η, nn[4]]))/(Subscript[𝒜, nn[0]]))+(((Subscript[x, 0]) (Subscript[ξ, nn[0]]))/(Subscript[𝒜, nn[4]]))+(((1-T) (Subscript[η, nn[4]]) (Subscript[ξ, nn[0]]))/ℏ)+(Subscript[x, 0]) (Subscript[ξ, nn[4]]),(((T^3)/(1-3 T+5 (T^2)-6 (T^3)+7 (T^4)-4 (T^5)+(T^6)))+ϵ (((-4 (T^3) γ ℏ+21 (T^4) γ ℏ-55 (T^5) γ ℏ+95 (T^6) γ ℏ-117 (T^7) γ ℏ+101 (T^8) γ ℏ-51 (T^9) γ ℏ-5 (T^10) γ ℏ+40 (T^11) γ ℏ-46 (T^12) γ ℏ+31 (T^13) γ ℏ-12 (T^14) γ ℏ+2 (T^15) γ ℏ)/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+(((-2 (T^3) ℏ+4 (T^4) ℏ-4 (T^5) ℏ+6 (T^7) ℏ-6 (T^8) ℏ+2 (T^9) ℏ) (Subscript[a, 14]))/(1-6 T+19 (T^2)-42 (T^3)+75 (T^4)-110 (T^5)+132 (T^6)-130 (T^7)+107 (T^8)-68 (T^9)+30 (T^10)-8 (T^11)+(T^12)))+(((T^3) ℏ (Subscript[a, 14]^2))/(γ-3 T γ+5 (T^2) γ-6 (T^3) γ+7 (T^4) γ-4 (T^5) γ+(T^6) γ))+(((-(T^3) ℏ+(T^4) ℏ+(T^5) ℏ-2 (T^6) ℏ+(T^7) ℏ-2 (T^8) ℏ+(T^9) ℏ) (Subscript[a, nn[0]]))/(1-6 T+19 (T^2)-42 (T^3)+75 (T^4)-110 (T^5)+132 (T^6)-130 (T^7)+107 (T^8)-68 (T^9)+30 (T^10)-8 (T^11)+(T^12)))+(((T^3) ℏ (Subscript[a, 14]) (Subscript[a, nn[0]]))/(γ-3 T γ+5 (T^2) γ-6 (T^3) γ+7 (T^4) γ-4 (T^5) γ+(T^6) γ))-((zubi (T^3) ℏ (Subscript[a, nn[0]]^2))/(γ-3 T γ+5 (T^2) γ-6 (T^3) γ+7 (T^4) γ-4 (T^5) γ+(T^6) γ))+(((-3 (T^3) ℏ+7 (T^4) ℏ-7 (T^5) ℏ+2 (T^6) ℏ+7 (T^7) ℏ-8 (T^8) ℏ+3 (T^9) ℏ) (Subscript[a, nn[4]]))/(1-6 T+19 (T^2)-42 (T^3)+75 (T^4)-110 (T^5)+132 (T^6)-130 (T^7)+107 (T^8)-68 (T^9)+30 (T^10)-8 (T^11)+(T^12)))-((2 (T^3) ℏ (Subscript[a, 14]) (Subscript[a, nn[4]]))/(γ-3 T γ+5 (T^2) γ-6 (T^3) γ+7 (T^4) γ-4 (T^5) γ+(T^6) γ))+(((T^3) ℏ (Subscript[a, nn[4]]^2))/(γ-3 T γ+5 (T^2) γ-6 (T^3) γ+7 (T^4) γ-4 (T^5) γ+(T^6) γ))+(((T^2) γ (ℏ^2)-10 (T^3) γ (ℏ^2)+47 (T^4) γ (ℏ^2)-154 (T^5) γ (ℏ^2)+418 (T^6) γ (ℏ^2)-976 (T^7) γ (ℏ^2)+1924 (T^8) γ (ℏ^2)-3122 (T^9) γ (ℏ^2)+4151 (T^10) γ (ℏ^2)-4532 (T^11) γ (ℏ^2)+4063 (T^12) γ (ℏ^2)-2964 (T^13) γ (ℏ^2)+1706 (T^14) γ (ℏ^2)-712 (T^15) γ (ℏ^2)+165 (T^16) γ (ℏ^2)+14 (T^17) γ (ℏ^2)-25 (T^18) γ (ℏ^2)+8 (T^19) γ (ℏ^2)-(T^20) γ (ℏ^2)) (Subscript[x, 14]) (Subscript[y, 14]))/(1-12 T+74 (T^2)-312 (T^3)+1015 (T^4)-2716 (T^5)+6198 (T^6)-12324 (T^7)+21655 (T^8)-33948 (T^9)+47762 (T^10)-60488 (T^11)+69024 (T^12)-70896 (T^13)+65318 (T^14)-53656 (T^15)+38959 (T^16)-24684 (T^17)+13388 (T^18)-6052 (T^19)+2202 (T^20)-616 (T^21)+124 (T^22)-16 (T^23)+(T^24))+(((2 (T^4) (ℏ^2)-12 (T^5) (ℏ^2)+34 (T^6) (ℏ^2)-68 (T^7) (ℏ^2)+98 (T^8) (ℏ^2)-86 (T^9) (ℏ^2)+40 (T^10) (ℏ^2)-8 (T^11) (ℏ^2)) (Subscript[a, 14]) (Subscript[x, 14]) (Subscript[y, 14]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+((((T^2) (ℏ^2)-5 (T^3) (ℏ^2)+13 (T^4) (ℏ^2)-28 (T^5) (ℏ^2)+48 (T^6) (ℏ^2)-57 (T^7) (ℏ^2)+43 (T^8) (ℏ^2)-19 (T^9) (ℏ^2)-6 (T^10) (ℏ^2)+20 (T^11) (ℏ^2)-16 (T^12) (ℏ^2)+6 (T^13) (ℏ^2)-(T^14) (ℏ^2)) (Subscript[a, nn[0]]) (Subscript[x, 14]) (Subscript[y, 14]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+(((-2 (T^4) (ℏ^2)+2 (T^5) (ℏ^2)+20 (T^6) (ℏ^2)-78 (T^7) (ℏ^2)+144 (T^8) (ℏ^2)-162 (T^9) (ℏ^2)+140 (T^10) (ℏ^2)-94 (T^11) (ℏ^2)+46 (T^12) (ℏ^2)-14 (T^13) (ℏ^2)+2 (T^14) (ℏ^2)) (Subscript[a, nn[4]]) (Subscript[x, 14]) (Subscript[y, 14]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+(((T^3) γ (ℏ^2)-8 (T^4) γ (ℏ^2)+36 (T^5) γ (ℏ^2)-107 (T^6) γ (ℏ^2)+240 (T^7) γ (ℏ^2)-389 (T^8) γ (ℏ^2)+433 (T^9) γ (ℏ^2)-287 (T^10) γ (ℏ^2)+9 (T^11) γ (ℏ^2)+244 (T^12) γ (ℏ^2)-349 (T^13) γ (ℏ^2)+303 (T^14) γ (ℏ^2)-187 (T^15) γ (ℏ^2)+82 (T^16) γ (ℏ^2)-23 (T^17) γ (ℏ^2)+3 (T^18) γ (ℏ^2)) (Subscript[x, nn[0]]) (Subscript[y, 14]))/(1-12 T+74 (T^2)-312 (T^3)+1015 (T^4)-2716 (T^5)+6198 (T^6)-12324 (T^7)+21655 (T^8)-33948 (T^9)+47762 (T^10)-60488 (T^11)+69024 (T^12)-70896 (T^13)+65318 (T^14)-53656 (T^15)+38959 (T^16)-24684 (T^17)+13388 (T^18)-6052 (T^19)+2202 (T^20)-616 (T^21)+124 (T^22)-16 (T^23)+(T^24))+(((-2 (T^4) (ℏ^2)+6 (T^5) (ℏ^2)-12 (T^6) (ℏ^2)+18 (T^7) (ℏ^2)-6 (T^8) (ℏ^2)-16 (T^9) (ℏ^2)+20 (T^10) (ℏ^2)-10 (T^11) (ℏ^2)+2 (T^12) (ℏ^2)) (Subscript[a, 14]) (Subscript[x, nn[0]]) (Subscript[y, 14]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+(((-2 (T^4) (ℏ^2)+6 (T^5) (ℏ^2)-6 (T^6) (ℏ^2)+8 (T^8) (ℏ^2)-14 (T^9) (ℏ^2)+14 (T^10) (ℏ^2)-8 (T^11) (ℏ^2)+2 (T^12) (ℏ^2)) (Subscript[a, nn[0]]) (Subscript[x, nn[0]]) (Subscript[y, 14]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+(((-2 (T^4) (ℏ^2)+12 (T^5) (ℏ^2)-30 (T^6) (ℏ^2)+50 (T^7) (ℏ^2)-40 (T^8) (ℏ^2)+14 (T^9) (ℏ^2)+4 (T^10) (ℏ^2)-6 (T^11) (ℏ^2)+2 (T^12) (ℏ^2)) (Subscript[a, nn[4]]) (Subscript[x, nn[0]]) (Subscript[y, 14]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+((-(T^3) γ (ℏ^2)+7 (T^4) γ (ℏ^2)-27 (T^5) γ (ℏ^2)+74 (T^6) γ (ℏ^2)-187 (T^7) γ (ℏ^2)+404 (T^8) γ (ℏ^2)-720 (T^9) γ (ℏ^2)+1045 (T^10) γ (ℏ^2)-1243 (T^11) γ (ℏ^2)+1211 (T^12) γ (ℏ^2)-970 (T^13) γ (ℏ^2)+631 (T^14) γ (ℏ^2)-321 (T^15) γ (ℏ^2)+119 (T^16) γ (ℏ^2)-28 (T^17) γ (ℏ^2)+3 (T^18) γ (ℏ^2)) (Subscript[x, nn[4]]) (Subscript[y, 14]))/(1-12 T+74 (T^2)-312 (T^3)+1015 (T^4)-2716 (T^5)+6198 (T^6)-12324 (T^7)+21655 (T^8)-33948 (T^9)+47762 (T^10)-60488 (T^11)+69024 (T^12)-70896 (T^13)+65318 (T^14)-53656 (T^15)+38959 (T^16)-24684 (T^17)+13388 (T^18)-6052 (T^19)+2202 (T^20)-616 (T^21)+124 (T^22)-16 (T^23)+(T^24))+(((2 (T^4) (ℏ^2)-6 (T^5) (ℏ^2)+14 (T^6) (ℏ^2)-30 (T^7) (ℏ^2)+42 (T^8) (ℏ^2)-44 (T^9) (ℏ^2)+30 (T^10) (ℏ^2)-12 (T^11) (ℏ^2)+2 (T^12) (ℏ^2)) (Subscript[a, 14]) (Subscript[x, nn[4]]) (Subscript[y, 14]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+(((-(T^3) (ℏ^2)+4 (T^4) (ℏ^2)-10 (T^5) (ℏ^2)+18 (T^6) (ℏ^2)-28 (T^7) (ℏ^2)+28 (T^8) (ℏ^2)-23 (T^9) (ℏ^2)+14 (T^10) (ℏ^2)-6 (T^11) (ℏ^2)+(T^12) (ℏ^2)) (Subscript[a, nn[0]]) (Subscript[x, nn[4]]) (Subscript[y, 14]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+((((T^3) (ℏ^2)-2 (T^4) (ℏ^2)+4 (T^5) (ℏ^2)-4 (T^6) (ℏ^2)-10 (T^7) (ℏ^2)+26 (T^8) (ℏ^2)-33 (T^9) (ℏ^2)+28 (T^10) (ℏ^2)-14 (T^11) (ℏ^2)+3 (T^12) (ℏ^2)) (Subscript[a, nn[4]]) (Subscript[x, nn[4]]) (Subscript[y, 14]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+((-T γ (ℏ^3)+16 (T^2) γ (ℏ^3)-125 (T^3) γ (ℏ^3)+636 (T^4) γ (ℏ^3)-2385 (T^5) γ (ℏ^3)+7060 (T^6) γ (ℏ^3)-17258 (T^7) γ (ℏ^3)+35932 (T^8) γ (ℏ^3)-65042 (T^9) γ (ℏ^3)+103732 (T^10) γ (ℏ^3)-146963 (T^11) γ (ℏ^3)+185516 (T^12) γ (ℏ^3)-208137 (T^13) γ (ℏ^3)+206348 (T^14) γ (ℏ^3)-179667 (T^15) γ (ℏ^3)+136304 (T^16) γ (ℏ^3)-88914 (T^17) γ (ℏ^3)+48996 (T^18) γ (ℏ^3)-22430 (T^19) γ (ℏ^3)+8444 (T^20) γ (ℏ^3)-2602 (T^21) γ (ℏ^3)+648 (T^22) γ (ℏ^3)-124 (T^23) γ (ℏ^3)+16 (T^24) γ (ℏ^3)-(T^25) γ (ℏ^3)) (Subscript[x, 14]^2) (Subscript[y, 14]^2))/(4-60 T+460 (T^2)-2400 (T^3)+9600 (T^4)-31412 (T^5)+87440 (T^6)-212320 (T^7)+457360 (T^8)-884420 (T^9)+1548360 (T^10)-2468880 (T^11)+3600260 (T^12)-4814240 (T^13)+5911340 (T^14)-6666584 (T^15)+6899100 (T^16)-6538420 (T^17)+5656020 (T^18)-4444600 (T^19)+3152228 (T^20)-2000360 (T^21)+1122820 (T^22)-549120 (T^23)+229500 (T^24)-79996 (T^25)+22540 (T^26)-4920 (T^27)+780 (T^28)-80 (T^29)+4 (T^30))+(((T^3) γ (ℏ^3)-9 (T^4) γ (ℏ^3)+40 (T^5) γ (ℏ^3)-119 (T^6) γ (ℏ^3)+277 (T^7) γ (ℏ^3)-537 (T^8) γ (ℏ^3)+882 (T^9) γ (ℏ^3)-1217 (T^10) γ (ℏ^3)+1327 (T^11) γ (ℏ^3)-857 (T^12) γ (ℏ^3)-447 (T^13) γ (ℏ^3)+2254 (T^14) γ (ℏ^3)-3747 (T^15) γ (ℏ^3)+4292 (T^16) γ (ℏ^3)-3790 (T^17) γ (ℏ^3)+2622 (T^18) γ (ℏ^3)-1392 (T^19) γ (ℏ^3)+545 (T^20) γ (ℏ^3)-148 (T^21) γ (ℏ^3)+25 (T^22) γ (ℏ^3)-2 (T^23) γ (ℏ^3)) (Subscript[x, 14]) (Subscript[x, nn[0]]) (Subscript[y, 14]^2))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+((-(T^3) γ (ℏ^3)+12 (T^4) γ (ℏ^3)-57 (T^5) γ (ℏ^3)+172 (T^6) γ (ℏ^3)-392 (T^7) γ (ℏ^3)+740 (T^8) γ (ℏ^3)-1174 (T^9) γ (ℏ^3)+1532 (T^10) γ (ℏ^3)-1591 (T^11) γ (ℏ^3)+1180 (T^12) γ (ℏ^3)-475 (T^13) γ (ℏ^3)-8 (T^14) γ (ℏ^3)+8 (T^15) γ (ℏ^3)+204 (T^16) γ (ℏ^3)-275 (T^17) γ (ℏ^3)+176 (T^18) γ (ℏ^3)-63 (T^19) γ (ℏ^3)+12 (T^20) γ (ℏ^3)-(T^21) γ (ℏ^3)) (Subscript[x, nn[0]]^2) (Subscript[y, 14]^2))/(4-60 T+460 (T^2)-2400 (T^3)+9600 (T^4)-31412 (T^5)+87440 (T^6)-212320 (T^7)+457360 (T^8)-884420 (T^9)+1548360 (T^10)-2468880 (T^11)+3600260 (T^12)-4814240 (T^13)+5911340 (T^14)-6666584 (T^15)+6899100 (T^16)-6538420 (T^17)+5656020 (T^18)-4444600 (T^19)+3152228 (T^20)-2000360 (T^21)+1122820 (T^22)-549120 (T^23)+229500 (T^24)-79996 (T^25)+22540 (T^26)-4920 (T^27)+780 (T^28)-80 (T^29)+4 (T^30))+((-2 (T^3) γ (ℏ^3)+21 (T^4) γ (ℏ^3)-111 (T^5) γ (ℏ^3)+398 (T^6) γ (ℏ^3)-1100 (T^7) γ (ℏ^3)+2490 (T^8) γ (ℏ^3)-4779 (T^9) γ (ℏ^3)+7960 (T^10) γ (ℏ^3)-11696 (T^11) γ (ℏ^3)+15265 (T^12) γ (ℏ^3)-17658 (T^13) γ (ℏ^3)+18011 (T^14) γ (ℏ^3)-16071 (T^15) γ (ℏ^3)+12426 (T^16) γ (ℏ^3)-8216 (T^17) γ (ℏ^3)+4548 (T^18) γ (ℏ^3)-2037 (T^19) γ (ℏ^3)+702 (T^20) γ (ℏ^3)-173 (T^21) γ (ℏ^3)+27 (T^22) γ (ℏ^3)-2 (T^23) γ (ℏ^3)) (Subscript[x, 14]) (Subscript[x, nn[4]]) (Subscript[y, 14]^2))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+((-(T^4) γ (ℏ^3)+6 (T^5) γ (ℏ^3)-20 (T^6) γ (ℏ^3)+46 (T^7) γ (ℏ^3)-85 (T^8) γ (ℏ^3)+136 (T^9) γ (ℏ^3)-200 (T^10) γ (ℏ^3)+283 (T^11) γ (ℏ^3)-335 (T^12) γ (ℏ^3)+294 (T^13) γ (ℏ^3)-151 (T^14) γ (ℏ^3)-8 (T^15) γ (ℏ^3)+92 (T^16) γ (ℏ^3)-84 (T^17) γ (ℏ^3)+40 (T^18) γ (ℏ^3)-10 (T^19) γ (ℏ^3)+(T^20) γ (ℏ^3)) (Subscript[x, nn[0]]) (Subscript[x, nn[4]]) (Subscript[y, 14]^2))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+(((T^3) γ (ℏ^3)-4 (T^4) γ (ℏ^3)+8 (T^5) γ (ℏ^3)-46 (T^7) γ (ℏ^3)+176 (T^8) γ (ℏ^3)-414 (T^9) γ (ℏ^3)+756 (T^10) γ (ℏ^3)-1174 (T^11) γ (ℏ^3)+1588 (T^12) γ (ℏ^3)-1880 (T^13) γ (ℏ^3)+1912 (T^14) γ (ℏ^3)-1627 (T^15) γ (ℏ^3)+1132 (T^16) γ (ℏ^3)-620 (T^17) γ (ℏ^3)+252 (T^18) γ (ℏ^3)-70 (T^19) γ (ℏ^3)+12 (T^20) γ (ℏ^3)-(T^21) γ (ℏ^3)) (Subscript[x, nn[4]]^2) (Subscript[y, 14]^2))/(4-60 T+460 (T^2)-2400 (T^3)+9600 (T^4)-31412 (T^5)+87440 (T^6)-212320 (T^7)+457360 (T^8)-884420 (T^9)+1548360 (T^10)-2468880 (T^11)+3600260 (T^12)-4814240 (T^13)+5911340 (T^14)-6666584 (T^15)+6899100 (T^16)-6538420 (T^17)+5656020 (T^18)-4444600 (T^19)+3152228 (T^20)-2000360 (T^21)+1122820 (T^22)-549120 (T^23)+229500 (T^24)-79996 (T^25)+22540 (T^26)-4920 (T^27)+780 (T^28)-80 (T^29)+4 (T^30))+((-2 (T^3) γ (ℏ^2)+18 (T^4) γ (ℏ^2)-76 (T^5) γ (ℏ^2)+194 (T^6) γ (ℏ^2)-332 (T^7) γ (ℏ^2)+388 (T^8) γ (ℏ^2)-294 (T^9) γ (ℏ^2)+100 (T^10) γ (ℏ^2)+62 (T^11) γ (ℏ^2)-106 (T^12) γ (ℏ^2)+62 (T^13) γ (ℏ^2)-8 (T^14) γ (ℏ^2)-20 (T^15) γ (ℏ^2)+24 (T^16) γ (ℏ^2)-12 (T^17) γ (ℏ^2)+2 (T^18) γ (ℏ^2)) (Subscript[x, 14]) (Subscript[y, nn[0]]))/(1-12 T+74 (T^2)-312 (T^3)+1015 (T^4)-2716 (T^5)+6198 (T^6)-12324 (T^7)+21655 (T^8)-33948 (T^9)+47762 (T^10)-60488 (T^11)+69024 (T^12)-70896 (T^13)+65318 (T^14)-53656 (T^15)+38959 (T^16)-24684 (T^17)+13388 (T^18)-6052 (T^19)+2202 (T^20)-616 (T^21)+124 (T^22)-16 (T^23)+(T^24))+(((-(T^2) (ℏ^2)+7 (T^3) (ℏ^2)-25 (T^4) (ℏ^2)+61 (T^5) (ℏ^2)-118 (T^6) (ℏ^2)+190 (T^7) (ℏ^2)-247 (T^8) (ℏ^2)+241 (T^9) (ℏ^2)-177 (T^10) (ℏ^2)+102 (T^11) (ℏ^2)-43 (T^12) (ℏ^2)+11 (T^13) (ℏ^2)-(T^14) (ℏ^2)) (Subscript[a, 14]) (Subscript[x, 14]) (Subscript[y, nn[0]]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+(((-(T^2) (ℏ^2)+7 (T^3) (ℏ^2)-25 (T^4) (ℏ^2)+63 (T^5) (ℏ^2)-120 (T^6) (ℏ^2)+176 (T^7) (ℏ^2)-203 (T^8) (ℏ^2)+189 (T^9) (ℏ^2)-139 (T^10) (ℏ^2)+78 (T^11) (ℏ^2)-33 (T^12) (ℏ^2)+9 (T^13) (ℏ^2)-(T^14) (ℏ^2)) (Subscript[a, nn[0]]) (Subscript[x, 14]) (Subscript[y, nn[0]]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+(((-2 (T^3) (ℏ^2)+12 (T^4) (ℏ^2)-32 (T^5) (ℏ^2)+46 (T^6) (ℏ^2)-38 (T^7) (ℏ^2)+12 (T^8) (ℏ^2)+2 (T^9) (ℏ^2)-2 (T^10) (ℏ^2)-4 (T^11) (ℏ^2)+2 (T^12) (ℏ^2)) (Subscript[a, nn[4]]) (Subscript[x, 14]) (Subscript[y, nn[0]]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+((-2 (T^5) γ (ℏ^2)+10 (T^6) γ (ℏ^2)-24 (T^7) γ (ℏ^2)+2 (T^8) γ (ℏ^2)+152 (T^9) γ (ℏ^2)-492 (T^10) γ (ℏ^2)+936 (T^11) γ (ℏ^2)-1296 (T^12) γ (ℏ^2)+1404 (T^13) γ (ℏ^2)-1232 (T^14) γ (ℏ^2)+894 (T^15) γ (ℏ^2)-532 (T^16) γ (ℏ^2)+246 (T^17) γ (ℏ^2)-82 (T^18) γ (ℏ^2)+18 (T^19) γ (ℏ^2)-2 (T^20) γ (ℏ^2)) (Subscript[x, nn[0]]) (Subscript[y, nn[0]]))/(1-12 T+74 (T^2)-312 (T^3)+1015 (T^4)-2716 (T^5)+6198 (T^6)-12324 (T^7)+21655 (T^8)-33948 (T^9)+47762 (T^10)-60488 (T^11)+69024 (T^12)-70896 (T^13)+65318 (T^14)-53656 (T^15)+38959 (T^16)-24684 (T^17)+13388 (T^18)-6052 (T^19)+2202 (T^20)-616 (T^21)+124 (T^22)-16 (T^23)+(T^24))+((((T^3) (ℏ^2)-6 (T^4) (ℏ^2)+18 (T^5) (ℏ^2)-37 (T^6) (ℏ^2)+62 (T^7) (ℏ^2)-98 (T^8) (ℏ^2)+126 (T^9) (ℏ^2)-119 (T^10) (ℏ^2)+85 (T^11) (ℏ^2)-42 (T^12) (ℏ^2)+13 (T^13) (ℏ^2)-2 (T^14) (ℏ^2)) (Subscript[a, 14]) (Subscript[x, nn[0]]) (Subscript[y, nn[0]]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+(((-2 (T^3) (ℏ^2)+12 (T^4) (ℏ^2)-34 (T^5) (ℏ^2)+62 (T^6) (ℏ^2)-92 (T^7) (ℏ^2)+116 (T^8) (ℏ^2)-120 (T^9) (ℏ^2)+104 (T^10) (ℏ^2)-82 (T^11) (ℏ^2)+48 (T^12) (ℏ^2)-16 (T^13) (ℏ^2)+2 (T^14) (ℏ^2)) (Subscript[a, nn[0]]) (Subscript[x, nn[0]]) (Subscript[y, nn[0]]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+(((2 (T^4) (ℏ^2)-12 (T^5) (ℏ^2)+32 (T^6) (ℏ^2)-56 (T^7) (ℏ^2)+60 (T^8) (ℏ^2)-40 (T^9) (ℏ^2)+20 (T^10) (ℏ^2)-10 (T^11) (ℏ^2)+6 (T^12) (ℏ^2)-2 (T^13) (ℏ^2)) (Subscript[a, nn[4]]) (Subscript[x, nn[0]]) (Subscript[y, nn[0]]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+((18 (T^7) γ (ℏ^2)-90 (T^8) γ (ℏ^2)+236 (T^9) γ (ℏ^2)-424 (T^10) γ (ℏ^2)+576 (T^11) γ (ℏ^2)-618 (T^12) γ (ℏ^2)+534 (T^13) γ (ℏ^2)-374 (T^14) γ (ℏ^2)+210 (T^15) γ (ℏ^2)-88 (T^16) γ (ℏ^2)+22 (T^17) γ (ℏ^2)-2 (T^18) γ (ℏ^2)) (Subscript[x, nn[4]]) (Subscript[y, nn[0]]))/(1-12 T+74 (T^2)-312 (T^3)+1015 (T^4)-2716 (T^5)+6198 (T^6)-12324 (T^7)+21655 (T^8)-33948 (T^9)+47762 (T^10)-60488 (T^11)+69024 (T^12)-70896 (T^13)+65318 (T^14)-53656 (T^15)+38959 (T^16)-24684 (T^17)+13388 (T^18)-6052 (T^19)+2202 (T^20)-616 (T^21)+124 (T^22)-16 (T^23)+(T^24))+((((T^3) (ℏ^2)-5 (T^4) (ℏ^2)+14 (T^5) (ℏ^2)-28 (T^6) (ℏ^2)+51 (T^7) (ℏ^2)-70 (T^8) (ℏ^2)+77 (T^9) (ℏ^2)-62 (T^10) (ℏ^2)+39 (T^11) (ℏ^2)-18 (T^12) (ℏ^2)+6 (T^13) (ℏ^2)-(T^14) (ℏ^2)) (Subscript[a, 14]) (Subscript[x, nn[4]]) (Subscript[y, nn[0]]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+((((T^3) (ℏ^2)-5 (T^4) (ℏ^2)+14 (T^5) (ℏ^2)-28 (T^6) (ℏ^2)+45 (T^7) (ℏ^2)-54 (T^8) (ℏ^2)+51 (T^9) (ℏ^2)-40 (T^10) (ℏ^2)+23 (T^11) (ℏ^2)-10 (T^12) (ℏ^2)+4 (T^13) (ℏ^2)-(T^14) (ℏ^2)) (Subscript[a, nn[0]]) (Subscript[x, nn[4]]) (Subscript[y, nn[0]]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+(((-(T^3) (ℏ^2)+3 (T^4) (ℏ^2)-6 (T^5) (ℏ^2)+8 (T^6) (ℏ^2)+(T^7) (ℏ^2)-18 (T^8) (ℏ^2)+29 (T^9) (ℏ^2)-30 (T^10) (ℏ^2)+21 (T^11) (ℏ^2)-10 (T^12) (ℏ^2)+4 (T^13) (ℏ^2)-(T^14) (ℏ^2)) (Subscript[a, nn[4]]) (Subscript[x, nn[4]]) (Subscript[y, nn[0]]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+((T γ (ℏ^3)-15 (T^2) γ (ℏ^3)+111 (T^3) γ (ℏ^3)-539 (T^4) γ (ℏ^3)+1941 (T^5) γ (ℏ^3)-5557 (T^6) γ (ℏ^3)+13219 (T^7) γ (ℏ^3)-26889 (T^8) γ (ℏ^3)+47664 (T^9) γ (ℏ^3)-74590 (T^10) γ (ℏ^3)+103955 (T^11) γ (ℏ^3)-129606 (T^12) γ (ℏ^3)+144590 (T^13) γ (ℏ^3)-143974 (T^14) γ (ℏ^3)+127487 (T^15) γ (ℏ^3)-99874 (T^16) γ (ℏ^3)+68669 (T^17) γ (ℏ^3)-40975 (T^18) γ (ℏ^3)+20912 (T^19) γ (ℏ^3)-8946 (T^20) γ (ℏ^3)+3109 (T^21) γ (ℏ^3)-835 (T^22) γ (ℏ^3)+160 (T^23) γ (ℏ^3)-19 (T^24) γ (ℏ^3)+(T^25) γ (ℏ^3)) (Subscript[x, 14]^2) (Subscript[y, 14]) (Subscript[y, nn[0]]))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+(((T^2) γ (ℏ^3)-9 (T^3) γ (ℏ^3)+37 (T^4) γ (ℏ^3)-89 (T^5) γ (ℏ^3)+119 (T^6) γ (ℏ^3)+20 (T^7) γ (ℏ^3)-621 (T^8) γ (ℏ^3)+2092 (T^9) γ (ℏ^3)-4795 (T^10) γ (ℏ^3)+8915 (T^11) γ (ℏ^3)-14413 (T^12) γ (ℏ^3)+20741 (T^13) γ (ℏ^3)-26409 (T^14) γ (ℏ^3)+29428 (T^15) γ (ℏ^3)-28552 (T^16) γ (ℏ^3)+24027 (T^17) γ (ℏ^3)-17431 (T^18) γ (ℏ^3)+10781 (T^19) γ (ℏ^3)-5572 (T^20) γ (ℏ^3)+2333 (T^21) γ (ℏ^3)-757 (T^22) γ (ℏ^3)+178 (T^23) γ (ℏ^3)-27 (T^24) γ (ℏ^3)+2 (T^25) γ (ℏ^3)) (Subscript[x, 14]) (Subscript[x, nn[0]]) (Subscript[y, 14]) (Subscript[y, nn[0]]))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+((-2 (T^4) γ (ℏ^3)+16 (T^5) γ (ℏ^3)-66 (T^6) γ (ℏ^3)+187 (T^7) γ (ℏ^3)-413 (T^8) γ (ℏ^3)+748 (T^9) γ (ℏ^3)-1113 (T^10) γ (ℏ^3)+1338 (T^11) γ (ℏ^3)-1243 (T^12) γ (ℏ^3)+813 (T^13) γ (ℏ^3)-269 (T^14) γ (ℏ^3)-140 (T^15) γ (ℏ^3)+346 (T^16) γ (ℏ^3)-410 (T^17) γ (ℏ^3)+376 (T^18) γ (ℏ^3)-266 (T^19) γ (ℏ^3)+136 (T^20) γ (ℏ^3)-47 (T^21) γ (ℏ^3)+10 (T^22) γ (ℏ^3)-(T^23) γ (ℏ^3)) (Subscript[x, nn[0]]^2) (Subscript[y, 14]) (Subscript[y, nn[0]]))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+((-(T^2) γ (ℏ^3)+14 (T^3) γ (ℏ^3)-94 (T^4) γ (ℏ^3)+411 (T^5) γ (ℏ^3)-1337 (T^6) γ (ℏ^3)+3484 (T^7) γ (ℏ^3)-7588 (T^8) γ (ℏ^3)+14179 (T^9) γ (ℏ^3)-23157 (T^10) γ (ℏ^3)+33494 (T^11) γ (ℏ^3)-43232 (T^12) γ (ℏ^3)+49859 (T^13) γ (ℏ^3)-51279 (T^14) γ (ℏ^3)+46848 (T^15) γ (ℏ^3)-37843 (T^16) γ (ℏ^3)+26861 (T^17) γ (ℏ^3)-16608 (T^18) γ (ℏ^3)+8831 (T^19) γ (ℏ^3)-3968 (T^20) γ (ℏ^3)+1472 (T^21) γ (ℏ^3)-435 (T^22) γ (ℏ^3)+96 (T^23) γ (ℏ^3)-14 (T^24) γ (ℏ^3)+(T^25) γ (ℏ^3)) (Subscript[x, 14]) (Subscript[x, nn[4]]) (Subscript[y, 14]) (Subscript[y, nn[0]]))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+((-(T^3) γ (ℏ^3)+8 (T^4) γ (ℏ^3)-34 (T^5) γ (ℏ^3)+101 (T^6) γ (ℏ^3)-238 (T^7) γ (ℏ^3)+472 (T^8) γ (ℏ^3)-821 (T^9) γ (ℏ^3)+1281 (T^10) γ (ℏ^3)-1829 (T^11) γ (ℏ^3)+2316 (T^12) γ (ℏ^3)-2517 (T^13) γ (ℏ^3)+2308 (T^14) γ (ℏ^3)-1797 (T^15) γ (ℏ^3)+1203 (T^16) γ (ℏ^3)-711 (T^17) γ (ℏ^3)+372 (T^18) γ (ℏ^3)-162 (T^19) γ (ℏ^3)+51 (T^20) γ (ℏ^3)-10 (T^21) γ (ℏ^3)+(T^22) γ (ℏ^3)) (Subscript[x, nn[0]]) (Subscript[x, nn[4]]) (Subscript[y, 14]) (Subscript[y, nn[0]]))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+((-(T^4) γ (ℏ^3)+8 (T^5) γ (ℏ^3)-36 (T^6) γ (ℏ^3)+114 (T^7) γ (ℏ^3)-284 (T^8) γ (ℏ^3)+583 (T^9) γ (ℏ^3)-1018 (T^10) γ (ℏ^3)+1559 (T^11) γ (ℏ^3)-2121 (T^12) γ (ℏ^3)+2573 (T^13) γ (ℏ^3)-2768 (T^14) γ (ℏ^3)+2619 (T^15) γ (ℏ^3)-2163 (T^16) γ (ℏ^3)+1543 (T^17) γ (ℏ^3)-940 (T^18) γ (ℏ^3)+479 (T^19) γ (ℏ^3)-195 (T^20) γ (ℏ^3)+58 (T^21) γ (ℏ^3)-11 (T^22) γ (ℏ^3)+(T^23) γ (ℏ^3)) (Subscript[x, nn[4]]^2) (Subscript[y, 14]) (Subscript[y, nn[0]]))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+((-3 T γ (ℏ^3)+44 (T^2) γ (ℏ^3)-323 (T^3) γ (ℏ^3)+1572 (T^4) γ (ℏ^3)-5707 (T^5) γ (ℏ^3)+16512 (T^6) γ (ℏ^3)-39699 (T^7) γ (ℏ^3)+81520 (T^8) γ (ℏ^3)-145618 (T^9) γ (ℏ^3)+229116 (T^10) γ (ℏ^3)-320198 (T^11) γ (ℏ^3)+399364 (T^12) γ (ℏ^3)-445177 (T^13) γ (ℏ^3)+442980 (T^14) γ (ℏ^3)-392275 (T^15) γ (ℏ^3)+307640 (T^16) γ (ℏ^3)-212105 (T^17) γ (ℏ^3)+127172 (T^18) γ (ℏ^3)-65254 (T^19) γ (ℏ^3)+27984 (T^20) γ (ℏ^3)-9681 (T^21) γ (ℏ^3)+2564 (T^22) γ (ℏ^3)-481 (T^23) γ (ℏ^3)+56 (T^24) γ (ℏ^3)-3 (T^25) γ (ℏ^3)) (Subscript[x, 14]^2) (Subscript[y, nn[0]]^2))/(4-60 T+460 (T^2)-2400 (T^3)+9600 (T^4)-31412 (T^5)+87440 (T^6)-212320 (T^7)+457360 (T^8)-884420 (T^9)+1548360 (T^10)-2468880 (T^11)+3600260 (T^12)-4814240 (T^13)+5911340 (T^14)-6666584 (T^15)+6899100 (T^16)-6538420 (T^17)+5656020 (T^18)-4444600 (T^19)+3152228 (T^20)-2000360 (T^21)+1122820 (T^22)-549120 (T^23)+229500 (T^24)-79996 (T^25)+22540 (T^26)-4920 (T^27)+780 (T^28)-80 (T^29)+4 (T^30))+((-(T^2) γ (ℏ^3)+11 (T^3) γ (ℏ^3)-60 (T^4) γ (ℏ^3)+219 (T^5) γ (ℏ^3)-608 (T^6) γ (ℏ^3)+1376 (T^7) γ (ℏ^3)-2640 (T^8) γ (ℏ^3)+4403 (T^9) γ (ℏ^3)-6497 (T^10) γ (ℏ^3)+8551 (T^11) γ (ℏ^3)-10015 (T^12) γ (ℏ^3)+10367 (T^13) γ (ℏ^3)-9470 (T^14) γ (ℏ^3)+7699 (T^15) γ (ℏ^3)-5652 (T^16) γ (ℏ^3)+3786 (T^17) γ (ℏ^3)-2293 (T^18) γ (ℏ^3)+1222 (T^19) γ (ℏ^3)-558 (T^20) γ (ℏ^3)+209 (T^21) γ (ℏ^3)-59 (T^22) γ (ℏ^3)+11 (T^23) γ (ℏ^3)-(T^24) γ (ℏ^3)) (Subscript[x, 14]) (Subscript[x, nn[0]]) (Subscript[y, nn[0]]^2))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+((-3 (T^3) γ (ℏ^3)+36 (T^4) γ (ℏ^3)-208 (T^5) γ (ℏ^3)+792 (T^6) γ (ℏ^3)-2288 (T^7) γ (ℏ^3)+5420 (T^8) γ (ℏ^3)-10959 (T^9) γ (ℏ^3)+19280 (T^10) γ (ℏ^3)-29906 (T^11) γ (ℏ^3)+41356 (T^12) γ (ℏ^3)-51410 (T^13) γ (ℏ^3)+57780 (T^14) γ (ℏ^3)-58866 (T^15) γ (ℏ^3)+54172 (T^16) γ (ℏ^3)-44579 (T^17) γ (ℏ^3)+32412 (T^18) γ (ℏ^3)-20585 (T^19) γ (ℏ^3)+11180 (T^20) γ (ℏ^3)-4972 (T^21) γ (ℏ^3)+1696 (T^22) γ (ℏ^3)-407 (T^23) γ (ℏ^3)+60 (T^24) γ (ℏ^3)-4 (T^25) γ (ℏ^3)) (Subscript[x, nn[0]]^2) (Subscript[y, nn[0]]^2))/(4-60 T+460 (T^2)-2400 (T^3)+9600 (T^4)-31412 (T^5)+87440 (T^6)-212320 (T^7)+457360 (T^8)-884420 (T^9)+1548360 (T^10)-2468880 (T^11)+3600260 (T^12)-4814240 (T^13)+5911340 (T^14)-6666584 (T^15)+6899100 (T^16)-6538420 (T^17)+5656020 (T^18)-4444600 (T^19)+3152228 (T^20)-2000360 (T^21)+1122820 (T^22)-549120 (T^23)+229500 (T^24)-79996 (T^25)+22540 (T^26)-4920 (T^27)+780 (T^28)-80 (T^29)+4 (T^30))+(((T^2) γ (ℏ^3)-13 (T^3) γ (ℏ^3)+85 (T^4) γ (ℏ^3)-371 (T^5) γ (ℏ^3)+1220 (T^6) γ (ℏ^3)-3230 (T^7) γ (ℏ^3)+7165 (T^8) γ (ℏ^3)-13653 (T^9) γ (ℏ^3)+22728 (T^10) γ (ℏ^3)-33435 (T^11) γ (ℏ^3)+43778 (T^12) γ (ℏ^3)-51166 (T^13) γ (ℏ^3)+53377 (T^14) γ (ℏ^3)-49592 (T^15) γ (ℏ^3)+40875 (T^16) γ (ℏ^3)-29709 (T^17) γ (ℏ^3)+18877 (T^18) γ (ℏ^3)-10346 (T^19) γ (ℏ^3)+4792 (T^20) γ (ℏ^3)-1821 (T^21) γ (ℏ^3)+542 (T^22) γ (ℏ^3)-117 (T^23) γ (ℏ^3)+16 (T^24) γ (ℏ^3)-(T^25) γ (ℏ^3)) (Subscript[x, 14]) (Subscript[x, nn[4]]) (Subscript[y, nn[0]]^2))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+(((T^3) γ (ℏ^3)-9 (T^4) γ (ℏ^3)+42 (T^5) γ (ℏ^3)-135 (T^6) γ (ℏ^3)+338 (T^7) γ (ℏ^3)-699 (T^8) γ (ℏ^3)+1232 (T^9) γ (ℏ^3)-1885 (T^10) γ (ℏ^3)+2538 (T^11) γ (ℏ^3)-2998 (T^12) γ (ℏ^3)+3060 (T^13) γ (ℏ^3)-2654 (T^14) γ (ℏ^3)+1915 (T^15) γ (ℏ^3)-1099 (T^16) γ (ℏ^3)+447 (T^17) γ (ℏ^3)-66 (T^18) γ (ℏ^3)-87 (T^19) γ (ℏ^3)+98 (T^20) γ (ℏ^3)-52 (T^21) γ (ℏ^3)+15 (T^22) γ (ℏ^3)-2 (T^23) γ (ℏ^3)) (Subscript[x, nn[0]]) (Subscript[x, nn[4]]) (Subscript[y, nn[0]]^2))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+((-(T^3) γ (ℏ^3)+12 (T^4) γ (ℏ^3)-71 (T^5) γ (ℏ^3)+284 (T^6) γ (ℏ^3)-866 (T^7) γ (ℏ^3)+2148 (T^8) γ (ℏ^3)-4496 (T^9) γ (ℏ^3)+8128 (T^10) γ (ℏ^3)-12909 (T^11) γ (ℏ^3)+18200 (T^12) γ (ℏ^3)-22898 (T^13) γ (ℏ^3)+25748 (T^14) γ (ℏ^3)-25849 (T^15) γ (ℏ^3)+23116 (T^16) γ (ℏ^3)-18336 (T^17) γ (ℏ^3)+12816 (T^18) γ (ℏ^3)-7819 (T^19) γ (ℏ^3)+4096 (T^20) γ (ℏ^3)-1798 (T^21) γ (ℏ^3)+640 (T^22) γ (ℏ^3)-174 (T^23) γ (ℏ^3)+32 (T^24) γ (ℏ^3)-3 (T^25) γ (ℏ^3)) (Subscript[x, nn[4]]^2) (Subscript[y, nn[0]]^2))/(4-60 T+460 (T^2)-2400 (T^3)+9600 (T^4)-31412 (T^5)+87440 (T^6)-212320 (T^7)+457360 (T^8)-884420 (T^9)+1548360 (T^10)-2468880 (T^11)+3600260 (T^12)-4814240 (T^13)+5911340 (T^14)-6666584 (T^15)+6899100 (T^16)-6538420 (T^17)+5656020 (T^18)-4444600 (T^19)+3152228 (T^20)-2000360 (T^21)+1122820 (T^22)-549120 (T^23)+229500 (T^24)-79996 (T^25)+22540 (T^26)-4920 (T^27)+780 (T^28)-80 (T^29)+4 (T^30))+((4 (T^5) γ (ℏ^2)-30 (T^6) γ (ℏ^2)+108 (T^7) γ (ℏ^2)-256 (T^8) γ (ℏ^2)+440 (T^9) γ (ℏ^2)-588 (T^10) γ (ℏ^2)+632 (T^11) γ (ℏ^2)-564 (T^12) γ (ℏ^2)+424 (T^13) γ (ℏ^2)-266 (T^14) γ (ℏ^2)+136 (T^15) γ (ℏ^2)-56 (T^16) γ (ℏ^2)+16 (T^17) γ (ℏ^2)-2 (T^18) γ (ℏ^2)) (Subscript[x, 14]) (Subscript[y, nn[4]]))/(1-12 T+74 (T^2)-312 (T^3)+1015 (T^4)-2716 (T^5)+6198 (T^6)-12324 (T^7)+21655 (T^8)-33948 (T^9)+47762 (T^10)-60488 (T^11)+69024 (T^12)-70896 (T^13)+65318 (T^14)-53656 (T^15)+38959 (T^16)-24684 (T^17)+13388 (T^18)-6052 (T^19)+2202 (T^20)-616 (T^21)+124 (T^22)-16 (T^23)+(T^24))+(((4 (T^8) (ℏ^2)-16 (T^9) (ℏ^2)+20 (T^10) (ℏ^2)-16 (T^11) (ℏ^2)+8 (T^12) (ℏ^2)-2 (T^13) (ℏ^2)) (Subscript[a, 14]) (Subscript[x, 14]) (Subscript[y, nn[4]]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+(((2 (T^5) (ℏ^2)-4 (T^6) (ℏ^2)+4 (T^7) (ℏ^2)-2 (T^8) (ℏ^2)+2 (T^9) (ℏ^2)+2 (T^10) (ℏ^2)) (Subscript[a, nn[0]]) (Subscript[x, 14]) (Subscript[y, nn[4]]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+(((3 (T^5) (ℏ^2)-12 (T^6) (ℏ^2)+25 (T^7) (ℏ^2)-32 (T^8) (ℏ^2)+24 (T^9) (ℏ^2)-13 (T^10) (ℏ^2)+4 (T^11) (ℏ^2)+(T^12) (ℏ^2)-(T^13) (ℏ^2)) (Subscript[a, nn[4]]) (Subscript[x, 14]) (Subscript[y, nn[4]]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+(((T^4) γ (ℏ^2)-7 (T^5) γ (ℏ^2)+22 (T^6) γ (ℏ^2)-46 (T^7) γ (ℏ^2)+60 (T^8) γ (ℏ^2)-40 (T^9) γ (ℏ^2)-17 (T^10) γ (ℏ^2)+85 (T^11) γ (ℏ^2)-127 (T^12) γ (ℏ^2)+133 (T^13) γ (ℏ^2)-113 (T^14) γ (ℏ^2)+79 (T^15) γ (ℏ^2)-45 (T^16) γ (ℏ^2)+21 (T^17) γ (ℏ^2)-7 (T^18) γ (ℏ^2)+(T^19) γ (ℏ^2)) (Subscript[x, nn[0]]) (Subscript[y, nn[4]]))/(1-12 T+74 (T^2)-312 (T^3)+1015 (T^4)-2716 (T^5)+6198 (T^6)-12324 (T^7)+21655 (T^8)-33948 (T^9)+47762 (T^10)-60488 (T^11)+69024 (T^12)-70896 (T^13)+65318 (T^14)-53656 (T^15)+38959 (T^16)-24684 (T^17)+13388 (T^18)-6052 (T^19)+2202 (T^20)-616 (T^21)+124 (T^22)-16 (T^23)+(T^24))+(((-6 (T^8) (ℏ^2)+6 (T^9) (ℏ^2)-4 (T^10) (ℏ^2)) (Subscript[a, 14]) (Subscript[x, nn[0]]) (Subscript[y, nn[4]]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+((((T^4) (ℏ^2)-2 (T^5) (ℏ^2)+(T^6) (ℏ^2)+(T^7) (ℏ^2)-3 (T^8) (ℏ^2)+6 (T^9) (ℏ^2)-6 (T^10) (ℏ^2)+4 (T^11) (ℏ^2)-3 (T^12) (ℏ^2)+(T^13) (ℏ^2)) (Subscript[a, nn[0]]) (Subscript[x, nn[0]]) (Subscript[y, nn[4]]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+((((T^4) (ℏ^2)-2 (T^5) (ℏ^2)+(T^6) (ℏ^2)+3 (T^7) (ℏ^2)-17 (T^8) (ℏ^2)+28 (T^9) (ℏ^2)-26 (T^10) (ℏ^2)+20 (T^11) (ℏ^2)-11 (T^12) (ℏ^2)+3 (T^13) (ℏ^2)) (Subscript[a, nn[4]]) (Subscript[x, nn[0]]) (Subscript[y, nn[4]]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+((-4 (T^3) γ (ℏ^2)+30 (T^4) γ (ℏ^2)-118 (T^5) γ (ℏ^2)+320 (T^6) γ (ℏ^2)-668 (T^7) γ (ℏ^2)+1140 (T^8) γ (ℏ^2)-1622 (T^9) γ (ℏ^2)+1936 (T^10) γ (ℏ^2)-1930 (T^11) γ (ℏ^2)+1562 (T^12) γ (ℏ^2)-952 (T^13) γ (ℏ^2)+334 (T^14) γ (ℏ^2)+80 (T^15) γ (ℏ^2)-220 (T^16) γ (ℏ^2)+170 (T^17) γ (ℏ^2)-74 (T^18) γ (ℏ^2)+18 (T^19) γ (ℏ^2)-2 (T^20) γ (ℏ^2)) (Subscript[x, nn[4]]) (Subscript[y, nn[4]]))/(1-12 T+74 (T^2)-312 (T^3)+1015 (T^4)-2716 (T^5)+6198 (T^6)-12324 (T^7)+21655 (T^8)-33948 (T^9)+47762 (T^10)-60488 (T^11)+69024 (T^12)-70896 (T^13)+65318 (T^14)-53656 (T^15)+38959 (T^16)-24684 (T^17)+13388 (T^18)-6052 (T^19)+2202 (T^20)-616 (T^21)+124 (T^22)-16 (T^23)+(T^24))+(((-2 (T^3) (ℏ^2)+10 (T^4) (ℏ^2)-28 (T^5) (ℏ^2)+56 (T^6) (ℏ^2)-92 (T^7) (ℏ^2)+126 (T^8) (ℏ^2)-136 (T^9) (ℏ^2)+126 (T^10) (ℏ^2)-92 (T^11) (ℏ^2)+46 (T^12) (ℏ^2)-14 (T^13) (ℏ^2)+2 (T^14) (ℏ^2)) (Subscript[a, 14]) (Subscript[x, nn[4]]) (Subscript[y, nn[4]]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+(((2 (T^8) (ℏ^2)-2 (T^9) (ℏ^2)+2 (T^10) (ℏ^2)-2 (T^11) (ℏ^2)) (Subscript[a, nn[0]]) (Subscript[x, nn[4]]) (Subscript[y, nn[4]]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+(((2 (T^3) (ℏ^2)-12 (T^4) (ℏ^2)+32 (T^5) (ℏ^2)-64 (T^6) (ℏ^2)+108 (T^7) (ℏ^2)-140 (T^8) (ℏ^2)+142 (T^9) (ℏ^2)-120 (T^10) (ℏ^2)+78 (T^11) (ℏ^2)-32 (T^12) (ℏ^2)+6 (T^13) (ℏ^2)) (Subscript[a, nn[4]]) (Subscript[x, nn[4]]) (Subscript[y, nn[4]]))/(1-9 T+42 (T^2)-135 (T^3)+339 (T^4)-705 (T^5)+1247 (T^6)-1902 (T^7)+2529 (T^8)-2943 (T^9)+2988 (T^10)-2628 (T^11)+1984 (T^12)-1257 (T^13)+642 (T^14)-250 (T^15)+69 (T^16)-12 (T^17)+(T^18)))+(((T^4) γ (ℏ^3)-10 (T^5) γ (ℏ^3)+54 (T^6) γ (ℏ^3)-199 (T^7) γ (ℏ^3)+555 (T^8) γ (ℏ^3)-1245 (T^9) γ (ℏ^3)+2335 (T^10) γ (ℏ^3)-3770 (T^11) γ (ℏ^3)+5384 (T^12) γ (ℏ^3)-6935 (T^13) γ (ℏ^3)+8080 (T^14) γ (ℏ^3)-8421 (T^15) γ (ℏ^3)+7777 (T^16) γ (ℏ^3)-6295 (T^17) γ (ℏ^3)+4391 (T^18) γ (ℏ^3)-2580 (T^19) γ (ℏ^3)+1241 (T^20) γ (ℏ^3)-468 (T^21) γ (ℏ^3)+129 (T^22) γ (ℏ^3)-23 (T^23) γ (ℏ^3)+2 (T^24) γ (ℏ^3)) (Subscript[x, 14]^2) (Subscript[y, 14]) (Subscript[y, nn[4]]))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+((2 (T^6) γ (ℏ^3)-18 (T^7) γ (ℏ^3)+74 (T^8) γ (ℏ^3)-204 (T^9) γ (ℏ^3)+420 (T^10) γ (ℏ^3)-648 (T^11) γ (ℏ^3)+720 (T^12) γ (ℏ^3)-520 (T^13) γ (ℏ^3)+178 (T^14) γ (ℏ^3)+118 (T^15) γ (ℏ^3)-262 (T^16) γ (ℏ^3)+256 (T^17) γ (ℏ^3)-162 (T^18) γ (ℏ^3)+66 (T^19) γ (ℏ^3)-16 (T^20) γ (ℏ^3)+2 (T^21) γ (ℏ^3)) (Subscript[x, 14]) (Subscript[x, nn[0]]) (Subscript[y, 14]) (Subscript[y, nn[4]]))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+((-(T^5) γ (ℏ^3)+6 (T^6) γ (ℏ^3)-20 (T^7) γ (ℏ^3)+49 (T^8) γ (ℏ^3)-101 (T^9) γ (ℏ^3)+183 (T^10) γ (ℏ^3)-288 (T^11) γ (ℏ^3)+397 (T^12) γ (ℏ^3)-444 (T^13) γ (ℏ^3)+381 (T^14) γ (ℏ^3)-246 (T^15) γ (ℏ^3)+119 (T^16) γ (ℏ^3)-40 (T^17) γ (ℏ^3)+6 (T^18) γ (ℏ^3)+2 (T^19) γ (ℏ^3)-(T^20) γ (ℏ^3)) (Subscript[x, nn[0]]^2) (Subscript[y, 14]) (Subscript[y, nn[4]]))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+((-2 (T^4) γ (ℏ^3)+11 (T^5) γ (ℏ^3)-10 (T^6) γ (ℏ^3)-129 (T^7) γ (ℏ^3)+776 (T^8) γ (ℏ^3)-2588 (T^9) γ (ℏ^3)+6353 (T^10) γ (ℏ^3)-12591 (T^11) γ (ℏ^3)+20981 (T^12) γ (ℏ^3)-29994 (T^13) γ (ℏ^3)+37185 (T^14) γ (ℏ^3)-40214 (T^15) γ (ℏ^3)+37870 (T^16) γ (ℏ^3)-30894 (T^17) γ (ℏ^3)+21697 (T^18) γ (ℏ^3)-12984 (T^19) γ (ℏ^3)+6496 (T^20) γ (ℏ^3)-2637 (T^21) γ (ℏ^3)+831 (T^22) γ (ℏ^3)-190 (T^23) γ (ℏ^3)+28 (T^24) γ (ℏ^3)-2 (T^25) γ (ℏ^3)) (Subscript[x, 14]) (Subscript[x, nn[4]]) (Subscript[y, 14]) (Subscript[y, nn[4]]))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+((-2 (T^4) γ (ℏ^3)+22 (T^5) γ (ℏ^3)-118 (T^6) γ (ℏ^3)+424 (T^7) γ (ℏ^3)-1138 (T^8) γ (ℏ^3)+2430 (T^9) γ (ℏ^3)-4288 (T^10) γ (ℏ^3)+6388 (T^11) γ (ℏ^3)-8114 (T^12) γ (ℏ^3)+8750 (T^13) γ (ℏ^3)-7936 (T^14) γ (ℏ^3)+5890 (T^15) γ (ℏ^3)-3334 (T^16) γ (ℏ^3)+1182 (T^17) γ (ℏ^3)+14 (T^18) γ (ℏ^3)-338 (T^19) γ (ℏ^3)+240 (T^20) γ (ℏ^3)-92 (T^21) γ (ℏ^3)+20 (T^22) γ (ℏ^3)-2 (T^23) γ (ℏ^3)) (Subscript[x, nn[0]]) (Subscript[x, nn[4]]) (Subscript[y, 14]) (Subscript[y, nn[4]]))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+(((T^3) γ (ℏ^3)-8 (T^4) γ (ℏ^3)+35 (T^5) γ (ℏ^3)-109 (T^6) γ (ℏ^3)+256 (T^7) γ (ℏ^3)-460 (T^8) γ (ℏ^3)+618 (T^9) γ (ℏ^3)-542 (T^10) γ (ℏ^3)+10 (T^11) γ (ℏ^3)+1097 (T^12) γ (ℏ^3)-2612 (T^13) γ (ℏ^3)+4105 (T^14) γ (ℏ^3)-5050 (T^15) γ (ℏ^3)+5069 (T^16) γ (ℏ^3)-4186 (T^17) γ (ℏ^3)+2826 (T^18) γ (ℏ^3)-1524 (T^19) γ (ℏ^3)+628 (T^20) γ (ℏ^3)-184 (T^21) γ (ℏ^3)+34 (T^22) γ (ℏ^3)-3 (T^23) γ (ℏ^3)) (Subscript[x, nn[4]]^2) (Subscript[y, 14]) (Subscript[y, nn[4]]))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+((-(T^4) γ (ℏ^3)+11 (T^5) γ (ℏ^3)-63 (T^6) γ (ℏ^3)+244 (T^7) γ (ℏ^3)-711 (T^8) γ (ℏ^3)+1654 (T^9) γ (ℏ^3)-3192 (T^10) γ (ℏ^3)+5252 (T^11) γ (ℏ^3)-7524 (T^12) γ (ℏ^3)+9517 (T^13) γ (ℏ^3)-10687 (T^14) γ (ℏ^3)+10610 (T^15) γ (ℏ^3)-9240 (T^16) γ (ℏ^3)+6987 (T^17) γ (ℏ^3)-4529 (T^18) γ (ℏ^3)+2462 (T^19) γ (ℏ^3)-1088 (T^20) γ (ℏ^3)+372 (T^21) γ (ℏ^3)-91 (T^22) γ (ℏ^3)+14 (T^23) γ (ℏ^3)-(T^24) γ (ℏ^3)) (Subscript[x, 14]^2) (Subscript[y, nn[0]]) (Subscript[y, nn[4]]))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+((2 (T^5) γ (ℏ^3)-16 (T^6) γ (ℏ^3)+70 (T^7) γ (ℏ^3)-218 (T^8) γ (ℏ^3)+540 (T^9) γ (ℏ^3)-1098 (T^10) γ (ℏ^3)+1842 (T^11) γ (ℏ^3)-2572 (T^12) γ (ℏ^3)+3040 (T^13) γ (ℏ^3)-3126 (T^14) γ (ℏ^3)+2860 (T^15) γ (ℏ^3)-2340 (T^16) γ (ℏ^3)+1688 (T^17) γ (ℏ^3)-1044 (T^18) γ (ℏ^3)+552 (T^19) γ (ℏ^3)-240 (T^20) γ (ℏ^3)+80 (T^21) γ (ℏ^3)-18 (T^22) γ (ℏ^3)+2 (T^23) γ (ℏ^3)) (Subscript[x, 14]) (Subscript[x, nn[0]]) (Subscript[y, nn[0]]) (Subscript[y, nn[4]]))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+(((T^4) γ (ℏ^3)-7 (T^5) γ (ℏ^3)+26 (T^6) γ (ℏ^3)-68 (T^7) γ (ℏ^3)+142 (T^8) γ (ℏ^3)-244 (T^9) γ (ℏ^3)+342 (T^10) γ (ℏ^3)-387 (T^11) γ (ℏ^3)+339 (T^12) γ (ℏ^3)-204 (T^13) γ (ℏ^3)+35 (T^14) γ (ℏ^3)+125 (T^15) γ (ℏ^3)-259 (T^16) γ (ℏ^3)+346 (T^17) γ (ℏ^3)-353 (T^18) γ (ℏ^3)+287 (T^19) γ (ℏ^3)-192 (T^20) γ (ℏ^3)+101 (T^21) γ (ℏ^3)-38 (T^22) γ (ℏ^3)+9 (T^23) γ (ℏ^3)-(T^24) γ (ℏ^3)) (Subscript[x, nn[0]]^2) (Subscript[y, nn[0]]) (Subscript[y, nn[4]]))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+((-2 (T^3) γ (ℏ^3)+22 (T^4) γ (ℏ^3)-119 (T^5) γ (ℏ^3)+421 (T^6) γ (ℏ^3)-1101 (T^7) γ (ℏ^3)+2275 (T^8) γ (ℏ^3)-3859 (T^9) γ (ℏ^3)+5467 (T^10) γ (ℏ^3)-6469 (T^11) γ (ℏ^3)+6283 (T^12) γ (ℏ^3)-4744 (T^13) γ (ℏ^3)+2310 (T^14) γ (ℏ^3)+139 (T^15) γ (ℏ^3)-1729 (T^16) γ (ℏ^3)+2117 (T^17) γ (ℏ^3)-1635 (T^18) γ (ℏ^3)+921 (T^19) γ (ℏ^3)-399 (T^20) γ (ℏ^3)+142 (T^21) γ (ℏ^3)-42 (T^22) γ (ℏ^3)+9 (T^23) γ (ℏ^3)-(T^24) γ (ℏ^3)) (Subscript[x, 14]) (Subscript[x, nn[4]]) (Subscript[y, nn[0]]) (Subscript[y, nn[4]]))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+((2 (T^4) γ (ℏ^3)-22 (T^5) γ (ℏ^3)+120 (T^6) γ (ℏ^3)-440 (T^7) γ (ℏ^3)+1218 (T^8) γ (ℏ^3)-2708 (T^9) γ (ℏ^3)+5020 (T^10) γ (ℏ^3)-7938 (T^11) γ (ℏ^3)+10860 (T^12) γ (ℏ^3)-12918 (T^13) γ (ℏ^3)+13382 (T^14) γ (ℏ^3)-12064 (T^15) γ (ℏ^3)+9410 (T^16) γ (ℏ^3)-6318 (T^17) γ (ℏ^3)+3676 (T^18) γ (ℏ^3)-1886 (T^19) γ (ℏ^3)+856 (T^20) γ (ℏ^3)-332 (T^21) γ (ℏ^3)+100 (T^22) γ (ℏ^3)-20 (T^23) γ (ℏ^3)+2 (T^24) γ (ℏ^3)) (Subscript[x, nn[0]]) (Subscript[x, nn[4]]) (Subscript[y, nn[0]]) (Subscript[y, nn[4]]))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+((-(T^3) γ (ℏ^3)+9 (T^4) γ (ℏ^3)-43 (T^5) γ (ℏ^3)+144 (T^6) γ (ℏ^3)-370 (T^7) γ (ℏ^3)+760 (T^8) γ (ℏ^3)-1275 (T^9) γ (ℏ^3)+1760 (T^10) γ (ℏ^3)-1957 (T^11) γ (ℏ^3)+1605 (T^12) γ (ℏ^3)-632 (T^13) γ (ℏ^3)-747 (T^14) γ (ℏ^3)+2100 (T^15) γ (ℏ^3)-2953 (T^16) γ (ℏ^3)+3057 (T^17) γ (ℏ^3)-2525 (T^18) γ (ℏ^3)+1708 (T^19) γ (ℏ^3)-955 (T^20) γ (ℏ^3)+443 (T^21) γ (ℏ^3)-169 (T^22) γ (ℏ^3)+50 (T^23) γ (ℏ^3)-10 (T^24) γ (ℏ^3)+(T^25) γ (ℏ^3)) (Subscript[x, nn[4]]^2) (Subscript[y, nn[0]]) (Subscript[y, nn[4]]))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+((-3 (T^7) γ (ℏ^3)+28 (T^8) γ (ℏ^3)-124 (T^9) γ (ℏ^3)+368 (T^10) γ (ℏ^3)-815 (T^11) γ (ℏ^3)+1432 (T^12) γ (ℏ^3)-2074 (T^13) γ (ℏ^3)+2568 (T^14) γ (ℏ^3)-2774 (T^15) γ (ℏ^3)+2608 (T^16) γ (ℏ^3)-2121 (T^17) γ (ℏ^3)+1472 (T^18) γ (ℏ^3)-844 (T^19) γ (ℏ^3)+384 (T^20) γ (ℏ^3)-129 (T^21) γ (ℏ^3)+28 (T^22) γ (ℏ^3)-3 (T^23) γ (ℏ^3)) (Subscript[x, 14]^2) (Subscript[y, nn[4]]^2))/(4-60 T+460 (T^2)-2400 (T^3)+9600 (T^4)-31412 (T^5)+87440 (T^6)-212320 (T^7)+457360 (T^8)-884420 (T^9)+1548360 (T^10)-2468880 (T^11)+3600260 (T^12)-4814240 (T^13)+5911340 (T^14)-6666584 (T^15)+6899100 (T^16)-6538420 (T^17)+5656020 (T^18)-4444600 (T^19)+3152228 (T^20)-2000360 (T^21)+1122820 (T^22)-549120 (T^23)+229500 (T^24)-79996 (T^25)+22540 (T^26)-4920 (T^27)+780 (T^28)-80 (T^29)+4 (T^30))+(((T^7) γ (ℏ^3)-5 (T^8) γ (ℏ^3)+14 (T^9) γ (ℏ^3)-25 (T^10) γ (ℏ^3)+27 (T^11) γ (ℏ^3)-7 (T^12) γ (ℏ^3)-33 (T^13) γ (ℏ^3)+64 (T^14) γ (ℏ^3)-76 (T^15) γ (ℏ^3)+67 (T^16) γ (ℏ^3)-48 (T^17) γ (ℏ^3)+25 (T^18) γ (ℏ^3)-10 (T^19) γ (ℏ^3)+2 (T^20) γ (ℏ^3)) (Subscript[x, 14]) (Subscript[x, nn[0]]) (Subscript[y, nn[4]]^2))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+(((T^5) γ (ℏ^3)-4 (T^6) γ (ℏ^3)+8 (T^7) γ (ℏ^3)-8 (T^8) γ (ℏ^3)-3 (T^9) γ (ℏ^3)+40 (T^10) γ (ℏ^3)-119 (T^11) γ (ℏ^3)+240 (T^12) γ (ℏ^3)-411 (T^13) γ (ℏ^3)+588 (T^14) γ (ℏ^3)-686 (T^15) γ (ℏ^3)+668 (T^16) γ (ℏ^3)-550 (T^17) γ (ℏ^3)+380 (T^18) γ (ℏ^3)-216 (T^19) γ (ℏ^3)+100 (T^20) γ (ℏ^3)-35 (T^21) γ (ℏ^3)+8 (T^22) γ (ℏ^3)-(T^23) γ (ℏ^3)) (Subscript[x, nn[0]]^2) (Subscript[y, nn[4]]^2))/(4-60 T+460 (T^2)-2400 (T^3)+9600 (T^4)-31412 (T^5)+87440 (T^6)-212320 (T^7)+457360 (T^8)-884420 (T^9)+1548360 (T^10)-2468880 (T^11)+3600260 (T^12)-4814240 (T^13)+5911340 (T^14)-6666584 (T^15)+6899100 (T^16)-6538420 (T^17)+5656020 (T^18)-4444600 (T^19)+3152228 (T^20)-2000360 (T^21)+1122820 (T^22)-549120 (T^23)+229500 (T^24)-79996 (T^25)+22540 (T^26)-4920 (T^27)+780 (T^28)-80 (T^29)+4 (T^30))+((3 (T^5) γ (ℏ^3)-28 (T^6) γ (ℏ^3)+134 (T^7) γ (ℏ^3)-437 (T^8) γ (ℏ^3)+1089 (T^9) γ (ℏ^3)-2207 (T^10) γ (ℏ^3)+3761 (T^11) γ (ℏ^3)-5483 (T^12) γ (ℏ^3)+6893 (T^13) γ (ℏ^3)-7493 (T^14) γ (ℏ^3)+7030 (T^15) γ (ℏ^3)-5626 (T^16) γ (ℏ^3)+3770 (T^17) γ (ℏ^3)-2060 (T^18) γ (ℏ^3)+870 (T^19) γ (ℏ^3)-246 (T^20) γ (ℏ^3)+21 (T^21) γ (ℏ^3)+16 (T^22) γ (ℏ^3)-7 (T^23) γ (ℏ^3)+(T^24) γ (ℏ^3)) (Subscript[x, 14]) (Subscript[x, nn[4]]) (Subscript[y, nn[4]]^2))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+(((T^4) γ (ℏ^3)-8 (T^5) γ (ℏ^3)+32 (T^6) γ (ℏ^3)-86 (T^7) γ (ℏ^3)+166 (T^8) γ (ℏ^3)-220 (T^9) γ (ℏ^3)+129 (T^10) γ (ℏ^3)+260 (T^11) γ (ℏ^3)-1059 (T^12) γ (ℏ^3)+2239 (T^13) γ (ℏ^3)-3535 (T^14) γ (ℏ^3)+4543 (T^15) γ (ℏ^3)-4914 (T^16) γ (ℏ^3)+4497 (T^17) γ (ℏ^3)-3469 (T^18) γ (ℏ^3)+2244 (T^19) γ (ℏ^3)-1197 (T^20) γ (ℏ^3)+505 (T^21) γ (ℏ^3)-156 (T^22) γ (ℏ^3)+31 (T^23) γ (ℏ^3)-3 (T^24) γ (ℏ^3)) (Subscript[x, nn[0]]) (Subscript[x, nn[4]]) (Subscript[y, nn[4]]^2))/(1-15 T+115 (T^2)-600 (T^3)+2400 (T^4)-7853 (T^5)+21860 (T^6)-53080 (T^7)+114340 (T^8)-221105 (T^9)+387090 (T^10)-617220 (T^11)+900065 (T^12)-1203560 (T^13)+1477835 (T^14)-1666646 (T^15)+1724775 (T^16)-1634605 (T^17)+1414005 (T^18)-1111150 (T^19)+788057 (T^20)-500090 (T^21)+280705 (T^22)-137280 (T^23)+57375 (T^24)-19999 (T^25)+5635 (T^26)-1230 (T^27)+195 (T^28)-20 (T^29)+(T^30))+((4 (T^3) γ (ℏ^3)-48 (T^4) γ (ℏ^3)+275 (T^5) γ (ℏ^3)-1060 (T^6) γ (ℏ^3)+3168 (T^7) γ (ℏ^3)-7832 (T^8) γ (ℏ^3)+16502 (T^9) γ (ℏ^3)-30176 (T^10) γ (ℏ^3)+48555 (T^11) γ (ℏ^3)-69280 (T^12) γ (ℏ^3)+87902 (T^13) γ (ℏ^3)-99304 (T^14) γ (ℏ^3)+99764 (T^15) γ (ℏ^3)-88620 (T^16) γ (ℏ^3)+68976 (T^17) γ (ℏ^3)-46460 (T^18) γ (ℏ^3)+26517 (T^19) γ (ℏ^3)-12364 (T^20) γ (ℏ^3)+4447 (T^21) γ (ℏ^3)-1128 (T^22) γ (ℏ^3)+170 (T^23) γ (ℏ^3)-8 (T^24) γ (ℏ^3)-(T^25) γ (ℏ^3)) (Subscript[x, nn[4]]^2) (Subscript[y, nn[4]]^2))/(4-60 T+460 (T^2)-2400 (T^3)+9600 (T^4)-31412 (T^5)+87440 (T^6)-212320 (T^7)+457360 (T^8)-884420 (T^9)+1548360 (T^10)-2468880 (T^11)+3600260 (T^12)-4814240 (T^13)+5911340 (T^14)-6666584 (T^15)+6899100 (T^16)-6538420 (T^17)+5656020 (T^18)-4444600 (T^19)+3152228 (T^20)-2000360 (T^21)+1122820 (T^22)-549120 (T^23)+229500 (T^24)-79996 (T^25)+22540 (T^26)-4920 (T^27)+780 (T^28)-80 (T^29)+4 (T^30))+(((T^3) (2 T (Subscript[a, 0]) (Subscript[η, nn[4]]) (Subscript[ξ, nn[0]])+((γ ℏ (Subscript[x, 0]) (Subscript[y, 0]) (Subscript[η, nn[4]]) (Subscript[ξ, nn[0]]))/((Subscript[𝒜, nn[0]]) (Subscript[𝒜, nn[4]])))+(((γ-3 T γ) (Subscript[y, 0]) (Subscript[η, nn[4]]^2) (Subscript[ξ, nn[0]]))/(2 (Subscript[𝒜, nn[0]])))+(((γ-3 T γ) (Subscript[x, 0]) (Subscript[η, nn[4]]) (Subscript[ξ, nn[0]]^2))/(2 (Subscript[𝒜, nn[4]])))+(((γ-4 T γ+3 (T^2) γ) (Subscript[η, nn[4]]^2) (Subscript[ξ, nn[0]]^2))/(4 ℏ))))/(1-3 T+5 (T^2)-6 (T^3)+7 (T^4)-4 (T^5)+(T^6)))))+((O[ϵ])^2)};

ζs

L

Q

{LeafCount[P], LeafCount[CF[P]]}

P

zs=Table[(SuperStar[ζ]),{ζ,ζs}]

c=L/.Alternatives@@(ζs⋃zs)->0

ys=Table[(∂_ζ)(L/.Alternatives@@zs->0),{ζ,ζs}]

ηs=Table[(∂_z)(L/.Alternatives@@ζs->0),{z,zs}]

lt=Inverse@Table[(Subscript[Kδ, z,(SuperStar[ζ])])-(∂_(z,ζ))L,{ζ,ζs},{z,zs}]

Det[lt]

zrule=Thread[zs->lt.(zs+ys)]

L2=(L1=c+ηs.zs/.zrule)/.Alternatives@@zs->0

L1

Q2=(Q1=Q/.U2l/.zrule)/.Alternatives@@zs->0

(Q2//.l2U)-(Q/. {(Subscript[a, nn[0|4]])->(Subscript[a, 0]), (Subscript[𝒜, nn[0|4]])->1})

Q

Q1

P/.U2l/.zrule

Timing[out=CF /@ (CF/@𝔼[L2,Q2,Det[lt](E^(-L2-Q2))(Subscript[Zip, ζs])[(E^(L1+Q1))(P/.U2l/.zrule)]]//.l2U)]

Timing[tt1=Det[lt](E^(-L2-Q2))(Subscript[Zip, ζs])[(E^(L1+Q1))(P/.U2l/.zrule)]]

Timing[tt2=CF[tt1]]

Timing[tt3=tt2//.l2U]

Timing[CF[tt3]]

CF[(P /. {(Subscript[a, nn[0]])-> (Subscript[a, 0])-γ (Subscript[y, 0]) (Subscript[η, nn[4]]), (Subscript[a, nn[4]])-> (Subscript[a, 0])-γ (Subscript[x, 0]) (Subscript[ξ, nn[0]]),(Subscript[𝒜, nn[0|4]])->1})-out[[3]]]

L

ζs

Q

Q1

L1

P/. ϵ->0

ttt1=Simplify@Coefficient[Normal[(P /. {(Subscript[a, nn[0]])-> (Subscript[a, 0])-γ (Subscript[y, 0]) (Subscript[η, nn[4]]), (Subscript[a, nn[4]])-> (Subscript[a, 0])-γ (Subscript[x, 0]) (Subscript[ξ, nn[0]]),(Subscript[𝒜, nn[0|4]])->1})], ϵ (Subscript[y, 0]) (Subscript[η, nn[4]])]/.{(Subscript[(η|ξ|a|x|y), _])->0}

ttt2=Simplify@Coefficient[Normal[out[[3]]], ϵ (Subscript[y, 0]) (Subscript[η, nn[4]])]/.{(Subscript[(η|ξ|a|x|y), _])->0}

Simplify[ttt1-ttt2]