AA_SchwRcEJ20.m

\[CurlyEpsilon][1] = Sqrt[-6 + r\[UnderBracket]Subscript\[UnderBracket]c]/
     r\[UnderBracket]Subscript\[UnderBracket]c^2
 
\[CurlyEpsilon][2] = 
    (-3*Sqrt[(-3 + r\[UnderBracket]Subscript\[UnderBracket]c)*
        r\[UnderBracket]Subscript\[UnderBracket]c]*
      (-298 + 185*r\[UnderBracket]Subscript\[UnderBracket]c - 
       34*r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
       2*r\[UnderBracket]Subscript\[UnderBracket]c^3))/
     (4*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^2*
      r\[UnderBracket]Subscript\[UnderBracket]c^4)
 
\[CurlyEpsilon][3] = 
    (-2863476 + 4257312*r\[UnderBracket]Subscript\[UnderBracket]c - 
      2639481*r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
      884115*r\[UnderBracket]Subscript\[UnderBracket]c^3 - 
      172800*r\[UnderBracket]Subscript\[UnderBracket]c^4 + 
      19732*r\[UnderBracket]Subscript\[UnderBracket]c^5 - 
      1224*r\[UnderBracket]Subscript\[UnderBracket]c^6 + 
      32*r\[UnderBracket]Subscript\[UnderBracket]c^7)/
     (16*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(9/2)*
      r\[UnderBracket]Subscript\[UnderBracket]c^5)
 
\[CurlyEpsilon][4] = (-5*(-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^
       (3/2)*(-444327000 + 741495204*
        r\[UnderBracket]Subscript\[UnderBracket]c - 
       540189522*r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
       225670731*r\[UnderBracket]Subscript\[UnderBracket]c^3 - 
       59608212*r\[UnderBracket]Subscript\[UnderBracket]c^4 + 
       10325802*r\[UnderBracket]Subscript\[UnderBracket]c^5 - 
       1173504*r\[UnderBracket]Subscript\[UnderBracket]c^6 + 
       84480*r\[UnderBracket]Subscript\[UnderBracket]c^7 - 
       3504*r\[UnderBracket]Subscript\[UnderBracket]c^8 + 
       64*r\[UnderBracket]Subscript\[UnderBracket]c^9))/
     (128*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^7*
      r\[UnderBracket]Subscript\[UnderBracket]c^(13/2))
 
\[CurlyEpsilon][5] = (3*(-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^2*
      (1816493921616 - 3955861916448*
        r\[UnderBracket]Subscript\[UnderBracket]c + 
       3898445788920*r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
       2299718882088*r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
       904602894261*r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
       249962629656*r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
       49744592184*r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
       7181900016*r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
       746429872*r\[UnderBracket]Subscript\[UnderBracket]c^8 - 
       54468480*r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
       2650496*r\[UnderBracket]Subscript\[UnderBracket]c^10 - 
       77312*r\[UnderBracket]Subscript\[UnderBracket]c^11 + 
       1024*r\[UnderBracket]Subscript\[UnderBracket]c^12))/
     (1024*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(19/2)*
      r\[UnderBracket]Subscript\[UnderBracket]c^8)
 
\[CurlyEpsilon][6] = (-7*(-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^
       (5/2)*(-494808967821024 + 1327858638025968*
        r\[UnderBracket]Subscript\[UnderBracket]c - 1646439642699408*
        r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
       1251440200589400*r\[UnderBracket]Subscript\[UnderBracket]c^3 - 
       652152667495830*r\[UnderBracket]Subscript\[UnderBracket]c^4 + 
       246801316020723*r\[UnderBracket]Subscript\[UnderBracket]c^5 - 
       70058631689358*r\[UnderBracket]Subscript\[UnderBracket]c^6 + 
       15186040860198*r\[UnderBracket]Subscript\[UnderBracket]c^7 - 
       2533345445040*r\[UnderBracket]Subscript\[UnderBracket]c^8 + 
       325100207520*r\[UnderBracket]Subscript\[UnderBracket]c^9 - 
       31816477968*r\[UnderBracket]Subscript\[UnderBracket]c^10 + 
       2331099072*r\[UnderBracket]Subscript\[UnderBracket]c^11 - 
       123745152*r\[UnderBracket]Subscript\[UnderBracket]c^12 + 
       4493440*r\[UnderBracket]Subscript\[UnderBracket]c^13 - 
       99840*r\[UnderBracket]Subscript\[UnderBracket]c^14 + 
       1024*r\[UnderBracket]Subscript\[UnderBracket]c^15))/
     (2048*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^12*
      r\[UnderBracket]Subscript\[UnderBracket]c^(19/2))
 
\[CurlyEpsilon][7] = ((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^3*
      (9040056157212600384 - 28816758918121581504*
        r\[UnderBracket]Subscript\[UnderBracket]c + 43023291869597097456*
        r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
       39977598116085537888*r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
       25908729389989318908*r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
       12435551958765856284*r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
       4580653136451471729*r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
       1323738353715061428*r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
       304153817969286684*r\[UnderBracket]Subscript\[UnderBracket]c^8 - 
       55959551207773848*r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
       8259936082338024*r\[UnderBracket]Subscript\[UnderBracket]c^10 - 
       975302105075136*r\[UnderBracket]Subscript\[UnderBracket]c^11 + 
       91384248930240*r\[UnderBracket]Subscript\[UnderBracket]c^12 - 
       6698556608640*r\[UnderBracket]Subscript\[UnderBracket]c^13 + 
       375456241152*r\[UnderBracket]Subscript\[UnderBracket]c^14 - 
       15519495168*r\[UnderBracket]Subscript\[UnderBracket]c^15 + 
       445317120*r\[UnderBracket]Subscript\[UnderBracket]c^16 - 
       7913472*r\[UnderBracket]Subscript\[UnderBracket]c^17 + 
       65536*r\[UnderBracket]Subscript\[UnderBracket]c^18))/
     (16384*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(29/2)*
      r\[UnderBracket]Subscript\[UnderBracket]c^11)
 
\[CurlyEpsilon][8] = (-9*(-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^
       (7/2)*(-5349871847936709489792 + 19744797330039776994240*
        r\[UnderBracket]Subscript\[UnderBracket]c - 34459672448054128831392*
        r\[UnderBracket]Subscript\[UnderBracket]c^2 + 37825881277779651230256*
        r\[UnderBracket]Subscript\[UnderBracket]c^3 - 29297759929169300852568*
        r\[UnderBracket]Subscript\[UnderBracket]c^4 + 17026037661141808551252*
        r\[UnderBracket]Subscript\[UnderBracket]c^5 - 7705634305524886701822*
        r\[UnderBracket]Subscript\[UnderBracket]c^6 + 2782200300715204345569*
        r\[UnderBracket]Subscript\[UnderBracket]c^7 - 814297966811950443912*
        r\[UnderBracket]Subscript\[UnderBracket]c^8 + 195205968131987962966*
        r\[UnderBracket]Subscript\[UnderBracket]c^9 - 
       38564473859389210160*r\[UnderBracket]Subscript\[UnderBracket]c^10 + 
       6295427971344981064*r\[UnderBracket]Subscript\[UnderBracket]c^11 - 
       848778456260641184*r\[UnderBracket]Subscript\[UnderBracket]c^12 + 
       94169664159871952*r\[UnderBracket]Subscript\[UnderBracket]c^13 - 
       8536524382084096*r\[UnderBracket]Subscript\[UnderBracket]c^14 + 
       625147823062528*r\[UnderBracket]Subscript\[UnderBracket]c^15 - 
       36363900237824*r\[UnderBracket]Subscript\[UnderBracket]c^16 + 
       1638587686912*r\[UnderBracket]Subscript\[UnderBracket]c^17 - 
       55056275456*r\[UnderBracket]Subscript\[UnderBracket]c^18 + 
       1296089088*r\[UnderBracket]Subscript\[UnderBracket]c^19 - 
       19038208*r\[UnderBracket]Subscript\[UnderBracket]c^20 + 
       131072*r\[UnderBracket]Subscript\[UnderBracket]c^21))/
     (262144*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^17*
      r\[UnderBracket]Subscript\[UnderBracket]c^(25/2))
 
\[CurlyEpsilon][9] = -1/262144*
     ((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^4*
       (12240949268306781100672000 - 64340560820389389859896320*
         r\[UnderBracket]Subscript\[UnderBracket]c + 
        156957367081943358891459840*r\[UnderBracket]Subscript\[UnderBracket]c^
          2 - 238244692824566657728900096*
         r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
        253841729036347294060053632*r\[UnderBracket]Subscript\[UnderBracket]c^
          4 - 202721861982517743752472960*
         r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
        126395857078774048842570400*r\[UnderBracket]Subscript\[UnderBracket]c^
          6 - 63223702662709119920550400*
         r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
        25856036749494219602809428*r\[UnderBracket]Subscript\[UnderBracket]c^
          8 - 8761730079064097613425996*
         r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
        2483354169599759455080369*r\[UnderBracket]Subscript\[UnderBracket]c^
          10 - 592439182575739281191340*
         r\[UnderBracket]Subscript\[UnderBracket]c^11 + 
        119408011055913746795046*r\[UnderBracket]Subscript\[UnderBracket]c^
          12 - 20363510266714699748672*
         r\[UnderBracket]Subscript\[UnderBracket]c^13 + 
        2936326570135158399736*r\[UnderBracket]Subscript\[UnderBracket]c^14 - 
        356958050454566273568*r\[UnderBracket]Subscript\[UnderBracket]c^15 + 
        36385838905296867760*r\[UnderBracket]Subscript\[UnderBracket]c^16 - 
        3083810005862253312*r\[UnderBracket]Subscript\[UnderBracket]c^17 + 
        214657433726960640*r\[UnderBracket]Subscript\[UnderBracket]c^18 - 
        12057677832973824*r\[UnderBracket]Subscript\[UnderBracket]c^19 + 
        532799702075392*r\[UnderBracket]Subscript\[UnderBracket]c^20 - 
        17822140364800*r\[UnderBracket]Subscript\[UnderBracket]c^21 + 
        424019017728*r\[UnderBracket]Subscript\[UnderBracket]c^22 - 
        6391529472*r\[UnderBracket]Subscript\[UnderBracket]c^23 + 
        45875200*r\[UnderBracket]Subscript\[UnderBracket]c^24))/
      ((-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(39/2)*
       (-2 + r\[UnderBracket]Subscript\[UnderBracket]c)*
       r\[UnderBracket]Subscript\[UnderBracket]c^14)
 
\[CurlyEpsilon][10] = ((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^(9/2)*
      (61131187939699974270930817024 - 366015183753996746097454956544*
        r\[UnderBracket]Subscript\[UnderBracket]c + 
       1048689390572231857894380079104*
        r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
       1911651084770562764038097571840*
        r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
       2488698197827079860652954273536*
        r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
       2463506655779917764000580588544*
        r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
       1928128501578314827100717209344*
        r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
       1225220031000954861458321708544*
        r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
       644120253901040792053341805680*
        r\[UnderBracket]Subscript\[UnderBracket]c^8 - 
       284045833901777290925532147392*
        r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
       106152696863320146055725765128*
        r\[UnderBracket]Subscript\[UnderBracket]c^10 - 
       33876224434885697843716464400*
        r\[UnderBracket]Subscript\[UnderBracket]c^11 + 
       9282650472141684251610354345*r\[UnderBracket]Subscript\[UnderBracket]c^
         12 - 2192296736851959201226576620*
        r\[UnderBracket]Subscript\[UnderBracket]c^13 + 
       447254128075597742977602720*r\[UnderBracket]Subscript\[UnderBracket]c^
         14 - 78886909810382052266410920*
        r\[UnderBracket]Subscript\[UnderBracket]c^15 + 
       12023311744591211668454408*r\[UnderBracket]Subscript\[UnderBracket]c^
         16 - 1580414344811086666451232*
        r\[UnderBracket]Subscript\[UnderBracket]c^17 + 
       178540055715527604116288*r\[UnderBracket]Subscript\[UnderBracket]c^
         18 - 17244096248637807486784*
        r\[UnderBracket]Subscript\[UnderBracket]c^19 + 
       1413451192594688432448*r\[UnderBracket]Subscript\[UnderBracket]c^20 - 
       97336894059637276672*r\[UnderBracket]Subscript\[UnderBracket]c^21 + 
       5554981346557958144*r\[UnderBracket]Subscript\[UnderBracket]c^22 - 
       257827775047987200*r\[UnderBracket]Subscript\[UnderBracket]c^23 + 
       9477441278369792*r\[UnderBracket]Subscript\[UnderBracket]c^24 - 
       265268127375360*r\[UnderBracket]Subscript\[UnderBracket]c^25 + 
       5307511537664*r\[UnderBracket]Subscript\[UnderBracket]c^26 - 
       67568402432*r\[UnderBracket]Subscript\[UnderBracket]c^27 + 
       411041792*r\[UnderBracket]Subscript\[UnderBracket]c^28))/
     (2097152*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^22*
      (-2 + r\[UnderBracket]Subscript\[UnderBracket]c)^2*
      r\[UnderBracket]Subscript\[UnderBracket]c^(31/2))
 
\[GothicCapitalE][1] = 
    (2*Sqrt[-3 + r\[UnderBracket]Subscript\[UnderBracket]c]*
      (-2 + r\[UnderBracket]Subscript\[UnderBracket]c))/
     (Sqrt[-6 + r\[UnderBracket]Subscript\[UnderBracket]c]*
      r\[UnderBracket]Subscript\[UnderBracket]c^(3/2))
 
\[GothicCapitalE][2] = -1/2*((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)*
       (1676 - 1612*r\[UnderBracket]Subscript\[UnderBracket]c + 
        595*r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
        100*r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
        6*r\[UnderBracket]Subscript\[UnderBracket]c^4))/
      ((-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^3*
       r\[UnderBracket]Subscript\[UnderBracket]c^3)
 
\[GothicCapitalE][3] = (Sqrt[-3 + r\[UnderBracket]Subscript\[UnderBracket]c]*
      (4924968 - 8698100*r\[UnderBracket]Subscript\[UnderBracket]c + 
       6685810*r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
       2941503*r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
       817127*r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
       147772*r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
       16980*r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
       1120*r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
       32*r\[UnderBracket]Subscript\[UnderBracket]c^8))/
     (8*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(11/2)*
      r\[UnderBracket]Subscript\[UnderBracket]c^(9/2))
 
\[GothicCapitalE][4] = 
    -1/64*((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^2*
       (3532654320 - 6749253600*r\[UnderBracket]Subscript\[UnderBracket]c + 
        5772844200*r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
        2924355368*r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
        977180151*r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
        226649668*r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
        37228450*r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
        4294272*r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
        331808*r\[UnderBracket]Subscript\[UnderBracket]c^8 - 
        15360*r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
        320*r\[UnderBracket]Subscript\[UnderBracket]c^10))/
      ((-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^8*
       r\[UnderBracket]Subscript\[UnderBracket]c^6)
 
\[GothicCapitalE][5] = ((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^
       (5/2)*(-8105535791584 + 19399236283568*
        r\[UnderBracket]Subscript\[UnderBracket]c - 
       21293827677872*r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
       14221423794904*r\[UnderBracket]Subscript\[UnderBracket]c^3 - 
       6462737204118*r\[UnderBracket]Subscript\[UnderBracket]c^4 + 
       2116474582479*r\[UnderBracket]Subscript\[UnderBracket]c^5 - 
       515820348192*r\[UnderBracket]Subscript\[UnderBracket]c^6 + 
       95169857128*r\[UnderBracket]Subscript\[UnderBracket]c^7 - 
       13361966944*r\[UnderBracket]Subscript\[UnderBracket]c^8 + 
       1416069008*r\[UnderBracket]Subscript\[UnderBracket]c^9 - 
       110243840*r\[UnderBracket]Subscript\[UnderBracket]c^10 + 
       5953280*r\[UnderBracket]Subscript\[UnderBracket]c^11 - 
       198656*r\[UnderBracket]Subscript\[UnderBracket]c^12 + 
       3072*r\[UnderBracket]Subscript\[UnderBracket]c^13))/
     (512*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(21/2)*
      r\[UnderBracket]Subscript\[UnderBracket]c^(15/2))
 
\[GothicCapitalE][6] = -1/1024*
     ((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^3*
       (4871794064075584 - 14030321634325952*
         r\[UnderBracket]Subscript\[UnderBracket]c + 18821352134591280*
         r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
        15625864141668064*r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
        8995746198969516*r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
        3812687501765180*r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
        1232580604275021*r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
        310672940273852*r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
        61862754548978*r\[UnderBracket]Subscript\[UnderBracket]c^8 - 
        9796652706560*r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
        1234469431696*r\[UnderBracket]Subscript\[UnderBracket]c^10 - 
        122942475392*r\[UnderBracket]Subscript\[UnderBracket]c^11 + 
        9512116096*r\[UnderBracket]Subscript\[UnderBracket]c^12 - 
        552972288*r\[UnderBracket]Subscript\[UnderBracket]c^13 + 
        22729728*r\[UnderBracket]Subscript\[UnderBracket]c^14 - 
        587776*r\[UnderBracket]Subscript\[UnderBracket]c^15 + 
        7168*r\[UnderBracket]Subscript\[UnderBracket]c^16))/
      ((-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^13*
       r\[UnderBracket]Subscript\[UnderBracket]c^9)
 
\[GothicCapitalE][7] = ((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^
       (7/2)*(-12134663084495414400 + 40885496226815782848*
        r\[UnderBracket]Subscript\[UnderBracket]c - 64866606259143398304*
        r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
       64444940222434132144*r\[UnderBracket]Subscript\[UnderBracket]c^3 - 
       44972426527950660568*r\[UnderBracket]Subscript\[UnderBracket]c^4 + 
       23435806376748968884*r\[UnderBracket]Subscript\[UnderBracket]c^5 - 
       9464318449512309054*r\[UnderBracket]Subscript\[UnderBracket]c^6 + 
       3033653428945332665*r\[UnderBracket]Subscript\[UnderBracket]c^7 - 
       784099263484559072*r\[UnderBracket]Subscript\[UnderBracket]c^8 + 
       165100330921308820*r\[UnderBracket]Subscript\[UnderBracket]c^9 - 
       28491104680244112*r\[UnderBracket]Subscript\[UnderBracket]c^10 + 
       4039260792672296*r\[UnderBracket]Subscript\[UnderBracket]c^11 - 
       469890441888512*r\[UnderBracket]Subscript\[UnderBracket]c^12 + 
       44602000386880*r\[UnderBracket]Subscript\[UnderBracket]c^13 - 
       3413929999360*r\[UnderBracket]Subscript\[UnderBracket]c^14 + 
       206304789504*r\[UnderBracket]Subscript\[UnderBracket]c^15 - 
       9493938176*r\[UnderBracket]Subscript\[UnderBracket]c^16 + 
       312664064*r\[UnderBracket]Subscript\[UnderBracket]c^17 - 
       6553600*r\[UnderBracket]Subscript\[UnderBracket]c^18 + 
       65536*r\[UnderBracket]Subscript\[UnderBracket]c^19))/
     (8192*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(31/2)*
      r\[UnderBracket]Subscript\[UnderBracket]c^(21/2))
 
\[GothicCapitalE][8] = -1/131072*
     ((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^4*
       (62141908647333827821824 - 239920537479374202651648*
         r\[UnderBracket]Subscript\[UnderBracket]c + 439676291766077668553472*
         r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
        508921634948453073874944*r\[UnderBracket]Subscript\[UnderBracket]c^
          3 + 417644574194988595114464*
         r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
        258555621293693182179072*r\[UnderBracket]Subscript\[UnderBracket]c^
          5 + 125436361142403980975568*
         r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
        48900635969882994175168*r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
        15584429012654206148425*r\[UnderBracket]Subscript\[UnderBracket]c^8 - 
        4108870169062640270236*r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
        903497597600108320294*r\[UnderBracket]Subscript\[UnderBracket]c^10 - 
        166550099552014784800*r\[UnderBracket]Subscript\[UnderBracket]c^11 + 
        25807623022825890056*r\[UnderBracket]Subscript\[UnderBracket]c^12 - 
        3362976794220453216*r\[UnderBracket]Subscript\[UnderBracket]c^13 + 
        367817178214766928*r\[UnderBracket]Subscript\[UnderBracket]c^14 - 
        33604235832754176*r\[UnderBracket]Subscript\[UnderBracket]c^15 + 
        2542404770263040*r\[UnderBracket]Subscript\[UnderBracket]c^16 - 
        157012472692736*r\[UnderBracket]Subscript\[UnderBracket]c^17 + 
        7733723734016*r\[UnderBracket]Subscript\[UnderBracket]c^18 - 
        292654940160*r\[UnderBracket]Subscript\[UnderBracket]c^19 + 
        7990542336*r\[UnderBracket]Subscript\[UnderBracket]c^20 - 
        139984896*r\[UnderBracket]Subscript\[UnderBracket]c^21 + 
        1179648*r\[UnderBracket]Subscript\[UnderBracket]c^22))/
      ((-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^18*
       r\[UnderBracket]Subscript\[UnderBracket]c^12)
 
\[GothicCapitalE][9] = ((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^
       (9/2)*(-325316655617099224750568960 + 1416428159137152819310785280*
        r\[UnderBracket]Subscript\[UnderBracket]c - 
       2945313955958856383833843200*r\[UnderBracket]Subscript\[UnderBracket]c^
         2 + 3893767391913738720455608064*
        r\[UnderBracket]Subscript\[UnderBracket]c^3 - 
       3675427333491969278050838848*r\[UnderBracket]Subscript\[UnderBracket]c^
         4 + 2637204152092324116074562720*
        r\[UnderBracket]Subscript\[UnderBracket]c^5 - 
       1495176450941844221863773920*r\[UnderBracket]Subscript\[UnderBracket]c^
         6 + 687354453546248684996786480*
        r\[UnderBracket]Subscript\[UnderBracket]c^7 - 
       260886215807201782468114662*r\[UnderBracket]Subscript\[UnderBracket]c^
         8 + 82815739380385872051786139*
        r\[UnderBracket]Subscript\[UnderBracket]c^9 - 
       22192062258573017612446656*r\[UnderBracket]Subscript\[UnderBracket]c^
         10 + 5053065238008314594840400*
        r\[UnderBracket]Subscript\[UnderBracket]c^11 - 
       981968988686443027482624*r\[UnderBracket]Subscript\[UnderBracket]c^
         12 + 163288209783257362758528*
        r\[UnderBracket]Subscript\[UnderBracket]c^13 - 
       23257019261756107352064*r\[UnderBracket]Subscript\[UnderBracket]c^14 + 
       2835616447540008666752*r\[UnderBracket]Subscript\[UnderBracket]c^15 - 
       295303779187720686080*r\[UnderBracket]Subscript\[UnderBracket]c^16 + 
       26157770320676263168*r\[UnderBracket]Subscript\[UnderBracket]c^17 - 
       1957509751719526400*r\[UnderBracket]Subscript\[UnderBracket]c^18 + 
       122474863283060736*r\[UnderBracket]Subscript\[UnderBracket]c^19 - 
       6305558207397888*r\[UnderBracket]Subscript\[UnderBracket]c^20 + 
       260709273436160*r\[UnderBracket]Subscript\[UnderBracket]c^21 - 
       8332605652992*r\[UnderBracket]Subscript\[UnderBracket]c^22 + 
       193292402688*r\[UnderBracket]Subscript\[UnderBracket]c^23 - 
       2894069760*r\[UnderBracket]Subscript\[UnderBracket]c^24 + 
       20971520*r\[UnderBracket]Subscript\[UnderBracket]c^25))/
     (2097152*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(41/2)*
      r\[UnderBracket]Subscript\[UnderBracket]c^(27/2))
 
\[GothicCapitalE][10] = -1/4194304*
     ((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^5*
       (216728283143345325964405128192 - 1050781874056829372409635466240*
         r\[UnderBracket]Subscript\[UnderBracket]c + 
        2444939162738945652847845839616*
         r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
        3635518948114642367394550372352*
         r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
        3881112635735218806704184967552*
         r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
        3168166202084791647028211405952*
         r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
        2056515840644606846540160974048*
         r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
        1089879691681719503880479969728*
         r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
        480445869136659807193402413516*
         r\[UnderBracket]Subscript\[UnderBracket]c^8 - 
        178578716030889168289643209004*
         r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
        56532548422564705023920888287*
         r\[UnderBracket]Subscript\[UnderBracket]c^10 - 
        15356164678946270066196702004*
         r\[UnderBracket]Subscript\[UnderBracket]c^11 + 
        3598634681482780340208693198*
         r\[UnderBracket]Subscript\[UnderBracket]c^12 - 
        730314671613135357284790912*r\[UnderBracket]Subscript\[UnderBracket]c^
          13 + 128660763587801783687384112*
         r\[UnderBracket]Subscript\[UnderBracket]c^14 - 
        19699748659561198244062784*r\[UnderBracket]Subscript\[UnderBracket]c^
          15 + 2621629122352162636568992*
         r\[UnderBracket]Subscript\[UnderBracket]c^16 - 
        302901358607176055790592*r\[UnderBracket]Subscript\[UnderBracket]c^
          17 + 30314109997208825900288*
         r\[UnderBracket]Subscript\[UnderBracket]c^18 - 
        2618058431216608714752*r\[UnderBracket]Subscript\[UnderBracket]c^19 + 
        194043136591216968704*r\[UnderBracket]Subscript\[UnderBracket]c^20 - 
        12244033133565968384*r\[UnderBracket]Subscript\[UnderBracket]c^21 + 
        650189357012549632*r\[UnderBracket]Subscript\[UnderBracket]c^22 - 
        28571010569076736*r\[UnderBracket]Subscript\[UnderBracket]c^23 + 
        1013207153508352*r\[UnderBracket]Subscript\[UnderBracket]c^24 - 
        27900820586496*r\[UnderBracket]Subscript\[UnderBracket]c^25 + 
        560084287488*r\[UnderBracket]Subscript\[UnderBracket]c^26 - 
        7289700352*r\[UnderBracket]Subscript\[UnderBracket]c^27 + 
        46137344*r\[UnderBracket]Subscript\[UnderBracket]c^28))/
      ((-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^23*
       r\[UnderBracket]Subscript\[UnderBracket]c^15)
 
\[ScriptCapitalE]\[ScriptL]Toep = {\[ScriptCapitalE]^2 -> 
      (-4*e^2 + (-2 + p)^2)/(p*(-3 - e^2 + p)), \[ScriptL]^2 -> 
      p^2/(-3 - e^2 + p)}
 
\[ScriptCapitalE]ToJr = {\[ScriptCapitalE] -> 
      (J\[UnderBracket]Subscript\[UnderBracket]r*
         Sqrt[-6 + r\[UnderBracket]Subscript\[UnderBracket]c])/
        r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
       (-2 + r\[UnderBracket]Subscript\[UnderBracket]c)/
        Sqrt[(-3 + r\[UnderBracket]Subscript\[UnderBracket]c)*
          r\[UnderBracket]Subscript\[UnderBracket]c] - 
       (3*J\[UnderBracket]Subscript\[UnderBracket]r^2*
         Sqrt[(-3 + r\[UnderBracket]Subscript\[UnderBracket]c)*
           r\[UnderBracket]Subscript\[UnderBracket]c]*
         (-298 + 185*r\[UnderBracket]Subscript\[UnderBracket]c - 
          34*r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
          2*r\[UnderBracket]Subscript\[UnderBracket]c^3))/
        (4*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^2*
         r\[UnderBracket]Subscript\[UnderBracket]c^4) + 
       (J\[UnderBracket]Subscript\[UnderBracket]r^3*(-2863476 + 
          4257312*r\[UnderBracket]Subscript\[UnderBracket]c - 
          2639481*r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
          884115*r\[UnderBracket]Subscript\[UnderBracket]c^3 - 
          172800*r\[UnderBracket]Subscript\[UnderBracket]c^4 + 
          19732*r\[UnderBracket]Subscript\[UnderBracket]c^5 - 
          1224*r\[UnderBracket]Subscript\[UnderBracket]c^6 + 
          32*r\[UnderBracket]Subscript\[UnderBracket]c^7))/
        (16*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(9/2)*
         r\[UnderBracket]Subscript\[UnderBracket]c^5) - 
       (5*J\[UnderBracket]Subscript\[UnderBracket]r^4*
         (-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^(3/2)*
         (-444327000 + 741495204*r\[UnderBracket]Subscript\[UnderBracket]c - 
          540189522*r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
          225670731*r\[UnderBracket]Subscript\[UnderBracket]c^3 - 
          59608212*r\[UnderBracket]Subscript\[UnderBracket]c^4 + 
          10325802*r\[UnderBracket]Subscript\[UnderBracket]c^5 - 
          1173504*r\[UnderBracket]Subscript\[UnderBracket]c^6 + 
          84480*r\[UnderBracket]Subscript\[UnderBracket]c^7 - 
          3504*r\[UnderBracket]Subscript\[UnderBracket]c^8 + 
          64*r\[UnderBracket]Subscript\[UnderBracket]c^9))/
        (128*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^7*
         r\[UnderBracket]Subscript\[UnderBracket]c^(13/2)) + 
       (3*J\[UnderBracket]Subscript\[UnderBracket]r^5*
         (-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^2*
         (1816493921616 - 3955861916448*
           r\[UnderBracket]Subscript\[UnderBracket]c + 3898445788920*
           r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
          2299718882088*r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
          904602894261*r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
          249962629656*r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
          49744592184*r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
          7181900016*r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
          746429872*r\[UnderBracket]Subscript\[UnderBracket]c^8 - 
          54468480*r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
          2650496*r\[UnderBracket]Subscript\[UnderBracket]c^10 - 
          77312*r\[UnderBracket]Subscript\[UnderBracket]c^11 + 
          1024*r\[UnderBracket]Subscript\[UnderBracket]c^12))/
        (1024*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(19/2)*
         r\[UnderBracket]Subscript\[UnderBracket]c^8) - 
       (7*J\[UnderBracket]Subscript\[UnderBracket]r^6*
         (-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^(5/2)*
         (-494808967821024 + 1327858638025968*
           r\[UnderBracket]Subscript\[UnderBracket]c - 1646439642699408*
           r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
          1251440200589400*r\[UnderBracket]Subscript\[UnderBracket]c^3 - 
          652152667495830*r\[UnderBracket]Subscript\[UnderBracket]c^4 + 
          246801316020723*r\[UnderBracket]Subscript\[UnderBracket]c^5 - 
          70058631689358*r\[UnderBracket]Subscript\[UnderBracket]c^6 + 
          15186040860198*r\[UnderBracket]Subscript\[UnderBracket]c^7 - 
          2533345445040*r\[UnderBracket]Subscript\[UnderBracket]c^8 + 
          325100207520*r\[UnderBracket]Subscript\[UnderBracket]c^9 - 
          31816477968*r\[UnderBracket]Subscript\[UnderBracket]c^10 + 
          2331099072*r\[UnderBracket]Subscript\[UnderBracket]c^11 - 
          123745152*r\[UnderBracket]Subscript\[UnderBracket]c^12 + 
          4493440*r\[UnderBracket]Subscript\[UnderBracket]c^13 - 
          99840*r\[UnderBracket]Subscript\[UnderBracket]c^14 + 
          1024*r\[UnderBracket]Subscript\[UnderBracket]c^15))/
        (2048*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^12*
         r\[UnderBracket]Subscript\[UnderBracket]c^(19/2)) + 
       (J\[UnderBracket]Subscript\[UnderBracket]r^7*
         (-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^3*
         (9040056157212600384 - 28816758918121581504*
           r\[UnderBracket]Subscript\[UnderBracket]c + 43023291869597097456*
           r\[UnderBracket]Subscript\[UnderBracket]c^2 - 39977598116085537888*
           r\[UnderBracket]Subscript\[UnderBracket]c^3 + 25908729389989318908*
           r\[UnderBracket]Subscript\[UnderBracket]c^4 - 12435551958765856284*
           r\[UnderBracket]Subscript\[UnderBracket]c^5 + 4580653136451471729*
           r\[UnderBracket]Subscript\[UnderBracket]c^6 - 1323738353715061428*
           r\[UnderBracket]Subscript\[UnderBracket]c^7 + 304153817969286684*
           r\[UnderBracket]Subscript\[UnderBracket]c^8 - 55959551207773848*
           r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
          8259936082338024*r\[UnderBracket]Subscript\[UnderBracket]c^10 - 
          975302105075136*r\[UnderBracket]Subscript\[UnderBracket]c^11 + 
          91384248930240*r\[UnderBracket]Subscript\[UnderBracket]c^12 - 
          6698556608640*r\[UnderBracket]Subscript\[UnderBracket]c^13 + 
          375456241152*r\[UnderBracket]Subscript\[UnderBracket]c^14 - 
          15519495168*r\[UnderBracket]Subscript\[UnderBracket]c^15 + 
          445317120*r\[UnderBracket]Subscript\[UnderBracket]c^16 - 
          7913472*r\[UnderBracket]Subscript\[UnderBracket]c^17 + 
          65536*r\[UnderBracket]Subscript\[UnderBracket]c^18))/
        (16384*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(29/2)*
         r\[UnderBracket]Subscript\[UnderBracket]c^11) - 
       (9*J\[UnderBracket]Subscript\[UnderBracket]r^8*
         (-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^(7/2)*
         (-5349871847936709489792 + 19744797330039776994240*
           r\[UnderBracket]Subscript\[UnderBracket]c - 
          34459672448054128831392*r\[UnderBracket]Subscript\[UnderBracket]c^
            2 + 37825881277779651230256*
           r\[UnderBracket]Subscript\[UnderBracket]c^3 - 
          29297759929169300852568*r\[UnderBracket]Subscript\[UnderBracket]c^
            4 + 17026037661141808551252*
           r\[UnderBracket]Subscript\[UnderBracket]c^5 - 
          7705634305524886701822*r\[UnderBracket]Subscript\[UnderBracket]c^
            6 + 2782200300715204345569*
           r\[UnderBracket]Subscript\[UnderBracket]c^7 - 
          814297966811950443912*r\[UnderBracket]Subscript\[UnderBracket]c^8 + 
          195205968131987962966*r\[UnderBracket]Subscript\[UnderBracket]c^9 - 
          38564473859389210160*r\[UnderBracket]Subscript\[UnderBracket]c^10 + 
          6295427971344981064*r\[UnderBracket]Subscript\[UnderBracket]c^11 - 
          848778456260641184*r\[UnderBracket]Subscript\[UnderBracket]c^12 + 
          94169664159871952*r\[UnderBracket]Subscript\[UnderBracket]c^13 - 
          8536524382084096*r\[UnderBracket]Subscript\[UnderBracket]c^14 + 
          625147823062528*r\[UnderBracket]Subscript\[UnderBracket]c^15 - 
          36363900237824*r\[UnderBracket]Subscript\[UnderBracket]c^16 + 
          1638587686912*r\[UnderBracket]Subscript\[UnderBracket]c^17 - 
          55056275456*r\[UnderBracket]Subscript\[UnderBracket]c^18 + 
          1296089088*r\[UnderBracket]Subscript\[UnderBracket]c^19 - 
          19038208*r\[UnderBracket]Subscript\[UnderBracket]c^20 + 
          131072*r\[UnderBracket]Subscript\[UnderBracket]c^21))/
        (262144*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^17*
         r\[UnderBracket]Subscript\[UnderBracket]c^(25/2)) - 
       (J\[UnderBracket]Subscript\[UnderBracket]r^9*
         (-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^4*
         (12240949268306781100672000 - 64340560820389389859896320*
           r\[UnderBracket]Subscript\[UnderBracket]c + 
          156957367081943358891459840*
           r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
          238244692824566657728900096*
           r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
          253841729036347294060053632*
           r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
          202721861982517743752472960*
           r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
          126395857078774048842570400*
           r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
          63223702662709119920550400*
           r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
          25856036749494219602809428*
           r\[UnderBracket]Subscript\[UnderBracket]c^8 - 
          8761730079064097613425996*r\[UnderBracket]Subscript\[UnderBracket]c^
            9 + 2483354169599759455080369*
           r\[UnderBracket]Subscript\[UnderBracket]c^10 - 
          592439182575739281191340*r\[UnderBracket]Subscript\[UnderBracket]c^
            11 + 119408011055913746795046*
           r\[UnderBracket]Subscript\[UnderBracket]c^12 - 
          20363510266714699748672*r\[UnderBracket]Subscript\[UnderBracket]c^
            13 + 2936326570135158399736*
           r\[UnderBracket]Subscript\[UnderBracket]c^14 - 
          356958050454566273568*r\[UnderBracket]Subscript\[UnderBracket]c^
            15 + 36385838905296867760*
           r\[UnderBracket]Subscript\[UnderBracket]c^16 - 
          3083810005862253312*r\[UnderBracket]Subscript\[UnderBracket]c^17 + 
          214657433726960640*r\[UnderBracket]Subscript\[UnderBracket]c^18 - 
          12057677832973824*r\[UnderBracket]Subscript\[UnderBracket]c^19 + 
          532799702075392*r\[UnderBracket]Subscript\[UnderBracket]c^20 - 
          17822140364800*r\[UnderBracket]Subscript\[UnderBracket]c^21 + 
          424019017728*r\[UnderBracket]Subscript\[UnderBracket]c^22 - 
          6391529472*r\[UnderBracket]Subscript\[UnderBracket]c^23 + 
          45875200*r\[UnderBracket]Subscript\[UnderBracket]c^24))/
        (262144*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(39/2)*
         (-2 + r\[UnderBracket]Subscript\[UnderBracket]c)*
         r\[UnderBracket]Subscript\[UnderBracket]c^14) + 
       (J\[UnderBracket]Subscript\[UnderBracket]r^10*
         (-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^(9/2)*
         (61131187939699974270930817024 - 366015183753996746097454956544*
           r\[UnderBracket]Subscript\[UnderBracket]c + 
          1048689390572231857894380079104*
           r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
          1911651084770562764038097571840*
           r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
          2488698197827079860652954273536*
           r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
          2463506655779917764000580588544*
           r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
          1928128501578314827100717209344*
           r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
          1225220031000954861458321708544*
           r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
          644120253901040792053341805680*
           r\[UnderBracket]Subscript\[UnderBracket]c^8 - 
          284045833901777290925532147392*
           r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
          106152696863320146055725765128*
           r\[UnderBracket]Subscript\[UnderBracket]c^10 - 
          33876224434885697843716464400*
           r\[UnderBracket]Subscript\[UnderBracket]c^11 + 
          9282650472141684251610354345*
           r\[UnderBracket]Subscript\[UnderBracket]c^12 - 
          2192296736851959201226576620*
           r\[UnderBracket]Subscript\[UnderBracket]c^13 + 
          447254128075597742977602720*
           r\[UnderBracket]Subscript\[UnderBracket]c^14 - 
          78886909810382052266410920*
           r\[UnderBracket]Subscript\[UnderBracket]c^15 + 
          12023311744591211668454408*
           r\[UnderBracket]Subscript\[UnderBracket]c^16 - 
          1580414344811086666451232*r\[UnderBracket]Subscript\[UnderBracket]c^
            17 + 178540055715527604116288*
           r\[UnderBracket]Subscript\[UnderBracket]c^18 - 
          17244096248637807486784*r\[UnderBracket]Subscript\[UnderBracket]c^
            19 + 1413451192594688432448*
           r\[UnderBracket]Subscript\[UnderBracket]c^20 - 
          97336894059637276672*r\[UnderBracket]Subscript\[UnderBracket]c^21 + 
          5554981346557958144*r\[UnderBracket]Subscript\[UnderBracket]c^22 - 
          257827775047987200*r\[UnderBracket]Subscript\[UnderBracket]c^23 + 
          9477441278369792*r\[UnderBracket]Subscript\[UnderBracket]c^24 - 
          265268127375360*r\[UnderBracket]Subscript\[UnderBracket]c^25 + 
          5307511537664*r\[UnderBracket]Subscript\[UnderBracket]c^26 - 
          67568402432*r\[UnderBracket]Subscript\[UnderBracket]c^27 + 
          411041792*r\[UnderBracket]Subscript\[UnderBracket]c^28))/
        (2097152*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^22*
         (-2 + r\[UnderBracket]Subscript\[UnderBracket]c)^2*
         r\[UnderBracket]Subscript\[UnderBracket]c^(31/2))}
\[CurlyEpsilon][1] = Sqrt[-6 + r\[UnderBracket]Subscript\[UnderBracket]c]/
     r\[UnderBracket]Subscript\[UnderBracket]c^2
 
\[CurlyEpsilon][2] = 
    (-3*Sqrt[(-3 + r\[UnderBracket]Subscript\[UnderBracket]c)*
        r\[UnderBracket]Subscript\[UnderBracket]c]*
      (-298 + 185*r\[UnderBracket]Subscript\[UnderBracket]c - 
       34*r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
       2*r\[UnderBracket]Subscript\[UnderBracket]c^3))/
     (4*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^2*
      r\[UnderBracket]Subscript\[UnderBracket]c^4)
 
\[CurlyEpsilon][3] = 
    (-2863476 + 4257312*r\[UnderBracket]Subscript\[UnderBracket]c - 
      2639481*r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
      884115*r\[UnderBracket]Subscript\[UnderBracket]c^3 - 
      172800*r\[UnderBracket]Subscript\[UnderBracket]c^4 + 
      19732*r\[UnderBracket]Subscript\[UnderBracket]c^5 - 
      1224*r\[UnderBracket]Subscript\[UnderBracket]c^6 + 
      32*r\[UnderBracket]Subscript\[UnderBracket]c^7)/
     (16*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(9/2)*
      r\[UnderBracket]Subscript\[UnderBracket]c^5)
 
\[CurlyEpsilon][4] = (-5*(-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^
       (3/2)*(-444327000 + 741495204*
        r\[UnderBracket]Subscript\[UnderBracket]c - 
       540189522*r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
       225670731*r\[UnderBracket]Subscript\[UnderBracket]c^3 - 
       59608212*r\[UnderBracket]Subscript\[UnderBracket]c^4 + 
       10325802*r\[UnderBracket]Subscript\[UnderBracket]c^5 - 
       1173504*r\[UnderBracket]Subscript\[UnderBracket]c^6 + 
       84480*r\[UnderBracket]Subscript\[UnderBracket]c^7 - 
       3504*r\[UnderBracket]Subscript\[UnderBracket]c^8 + 
       64*r\[UnderBracket]Subscript\[UnderBracket]c^9))/
     (128*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^7*
      r\[UnderBracket]Subscript\[UnderBracket]c^(13/2))
 
\[CurlyEpsilon][5] = (3*(-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^2*
      (1816493921616 - 3955861916448*
        r\[UnderBracket]Subscript\[UnderBracket]c + 
       3898445788920*r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
       2299718882088*r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
       904602894261*r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
       249962629656*r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
       49744592184*r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
       7181900016*r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
       746429872*r\[UnderBracket]Subscript\[UnderBracket]c^8 - 
       54468480*r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
       2650496*r\[UnderBracket]Subscript\[UnderBracket]c^10 - 
       77312*r\[UnderBracket]Subscript\[UnderBracket]c^11 + 
       1024*r\[UnderBracket]Subscript\[UnderBracket]c^12))/
     (1024*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(19/2)*
      r\[UnderBracket]Subscript\[UnderBracket]c^8)
 
\[CurlyEpsilon][6] = (-7*(-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^
       (5/2)*(-494808967821024 + 1327858638025968*
        r\[UnderBracket]Subscript\[UnderBracket]c - 1646439642699408*
        r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
       1251440200589400*r\[UnderBracket]Subscript\[UnderBracket]c^3 - 
       652152667495830*r\[UnderBracket]Subscript\[UnderBracket]c^4 + 
       246801316020723*r\[UnderBracket]Subscript\[UnderBracket]c^5 - 
       70058631689358*r\[UnderBracket]Subscript\[UnderBracket]c^6 + 
       15186040860198*r\[UnderBracket]Subscript\[UnderBracket]c^7 - 
       2533345445040*r\[UnderBracket]Subscript\[UnderBracket]c^8 + 
       325100207520*r\[UnderBracket]Subscript\[UnderBracket]c^9 - 
       31816477968*r\[UnderBracket]Subscript\[UnderBracket]c^10 + 
       2331099072*r\[UnderBracket]Subscript\[UnderBracket]c^11 - 
       123745152*r\[UnderBracket]Subscript\[UnderBracket]c^12 + 
       4493440*r\[UnderBracket]Subscript\[UnderBracket]c^13 - 
       99840*r\[UnderBracket]Subscript\[UnderBracket]c^14 + 
       1024*r\[UnderBracket]Subscript\[UnderBracket]c^15))/
     (2048*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^12*
      r\[UnderBracket]Subscript\[UnderBracket]c^(19/2))
 
\[CurlyEpsilon][7] = ((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^3*
      (9040056157212600384 - 28816758918121581504*
        r\[UnderBracket]Subscript\[UnderBracket]c + 43023291869597097456*
        r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
       39977598116085537888*r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
       25908729389989318908*r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
       12435551958765856284*r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
       4580653136451471729*r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
       1323738353715061428*r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
       304153817969286684*r\[UnderBracket]Subscript\[UnderBracket]c^8 - 
       55959551207773848*r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
       8259936082338024*r\[UnderBracket]Subscript\[UnderBracket]c^10 - 
       975302105075136*r\[UnderBracket]Subscript\[UnderBracket]c^11 + 
       91384248930240*r\[UnderBracket]Subscript\[UnderBracket]c^12 - 
       6698556608640*r\[UnderBracket]Subscript\[UnderBracket]c^13 + 
       375456241152*r\[UnderBracket]Subscript\[UnderBracket]c^14 - 
       15519495168*r\[UnderBracket]Subscript\[UnderBracket]c^15 + 
       445317120*r\[UnderBracket]Subscript\[UnderBracket]c^16 - 
       7913472*r\[UnderBracket]Subscript\[UnderBracket]c^17 + 
       65536*r\[UnderBracket]Subscript\[UnderBracket]c^18))/
     (16384*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(29/2)*
      r\[UnderBracket]Subscript\[UnderBracket]c^11)
 
\[CurlyEpsilon][8] = (-9*(-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^
       (7/2)*(-5349871847936709489792 + 19744797330039776994240*
        r\[UnderBracket]Subscript\[UnderBracket]c - 34459672448054128831392*
        r\[UnderBracket]Subscript\[UnderBracket]c^2 + 37825881277779651230256*
        r\[UnderBracket]Subscript\[UnderBracket]c^3 - 29297759929169300852568*
        r\[UnderBracket]Subscript\[UnderBracket]c^4 + 17026037661141808551252*
        r\[UnderBracket]Subscript\[UnderBracket]c^5 - 7705634305524886701822*
        r\[UnderBracket]Subscript\[UnderBracket]c^6 + 2782200300715204345569*
        r\[UnderBracket]Subscript\[UnderBracket]c^7 - 814297966811950443912*
        r\[UnderBracket]Subscript\[UnderBracket]c^8 + 195205968131987962966*
        r\[UnderBracket]Subscript\[UnderBracket]c^9 - 
       38564473859389210160*r\[UnderBracket]Subscript\[UnderBracket]c^10 + 
       6295427971344981064*r\[UnderBracket]Subscript\[UnderBracket]c^11 - 
       848778456260641184*r\[UnderBracket]Subscript\[UnderBracket]c^12 + 
       94169664159871952*r\[UnderBracket]Subscript\[UnderBracket]c^13 - 
       8536524382084096*r\[UnderBracket]Subscript\[UnderBracket]c^14 + 
       625147823062528*r\[UnderBracket]Subscript\[UnderBracket]c^15 - 
       36363900237824*r\[UnderBracket]Subscript\[UnderBracket]c^16 + 
       1638587686912*r\[UnderBracket]Subscript\[UnderBracket]c^17 - 
       55056275456*r\[UnderBracket]Subscript\[UnderBracket]c^18 + 
       1296089088*r\[UnderBracket]Subscript\[UnderBracket]c^19 - 
       19038208*r\[UnderBracket]Subscript\[UnderBracket]c^20 + 
       131072*r\[UnderBracket]Subscript\[UnderBracket]c^21))/
     (262144*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^17*
      r\[UnderBracket]Subscript\[UnderBracket]c^(25/2))
 
\[CurlyEpsilon][9] = -1/262144*
     ((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^4*
       (12240949268306781100672000 - 64340560820389389859896320*
         r\[UnderBracket]Subscript\[UnderBracket]c + 
        156957367081943358891459840*r\[UnderBracket]Subscript\[UnderBracket]c^
          2 - 238244692824566657728900096*
         r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
        253841729036347294060053632*r\[UnderBracket]Subscript\[UnderBracket]c^
          4 - 202721861982517743752472960*
         r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
        126395857078774048842570400*r\[UnderBracket]Subscript\[UnderBracket]c^
          6 - 63223702662709119920550400*
         r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
        25856036749494219602809428*r\[UnderBracket]Subscript\[UnderBracket]c^
          8 - 8761730079064097613425996*
         r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
        2483354169599759455080369*r\[UnderBracket]Subscript\[UnderBracket]c^
          10 - 592439182575739281191340*
         r\[UnderBracket]Subscript\[UnderBracket]c^11 + 
        119408011055913746795046*r\[UnderBracket]Subscript\[UnderBracket]c^
          12 - 20363510266714699748672*
         r\[UnderBracket]Subscript\[UnderBracket]c^13 + 
        2936326570135158399736*r\[UnderBracket]Subscript\[UnderBracket]c^14 - 
        356958050454566273568*r\[UnderBracket]Subscript\[UnderBracket]c^15 + 
        36385838905296867760*r\[UnderBracket]Subscript\[UnderBracket]c^16 - 
        3083810005862253312*r\[UnderBracket]Subscript\[UnderBracket]c^17 + 
        214657433726960640*r\[UnderBracket]Subscript\[UnderBracket]c^18 - 
        12057677832973824*r\[UnderBracket]Subscript\[UnderBracket]c^19 + 
        532799702075392*r\[UnderBracket]Subscript\[UnderBracket]c^20 - 
        17822140364800*r\[UnderBracket]Subscript\[UnderBracket]c^21 + 
        424019017728*r\[UnderBracket]Subscript\[UnderBracket]c^22 - 
        6391529472*r\[UnderBracket]Subscript\[UnderBracket]c^23 + 
        45875200*r\[UnderBracket]Subscript\[UnderBracket]c^24))/
      ((-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(39/2)*
       (-2 + r\[UnderBracket]Subscript\[UnderBracket]c)*
       r\[UnderBracket]Subscript\[UnderBracket]c^14)
 
\[CurlyEpsilon][10] = ((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^(9/2)*
      (61131187939699974270930817024 - 366015183753996746097454956544*
        r\[UnderBracket]Subscript\[UnderBracket]c + 
       1048689390572231857894380079104*
        r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
       1911651084770562764038097571840*
        r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
       2488698197827079860652954273536*
        r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
       2463506655779917764000580588544*
        r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
       1928128501578314827100717209344*
        r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
       1225220031000954861458321708544*
        r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
       644120253901040792053341805680*
        r\[UnderBracket]Subscript\[UnderBracket]c^8 - 
       284045833901777290925532147392*
        r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
       106152696863320146055725765128*
        r\[UnderBracket]Subscript\[UnderBracket]c^10 - 
       33876224434885697843716464400*
        r\[UnderBracket]Subscript\[UnderBracket]c^11 + 
       9282650472141684251610354345*r\[UnderBracket]Subscript\[UnderBracket]c^
         12 - 2192296736851959201226576620*
        r\[UnderBracket]Subscript\[UnderBracket]c^13 + 
       447254128075597742977602720*r\[UnderBracket]Subscript\[UnderBracket]c^
         14 - 78886909810382052266410920*
        r\[UnderBracket]Subscript\[UnderBracket]c^15 + 
       12023311744591211668454408*r\[UnderBracket]Subscript\[UnderBracket]c^
         16 - 1580414344811086666451232*
        r\[UnderBracket]Subscript\[UnderBracket]c^17 + 
       178540055715527604116288*r\[UnderBracket]Subscript\[UnderBracket]c^
         18 - 17244096248637807486784*
        r\[UnderBracket]Subscript\[UnderBracket]c^19 + 
       1413451192594688432448*r\[UnderBracket]Subscript\[UnderBracket]c^20 - 
       97336894059637276672*r\[UnderBracket]Subscript\[UnderBracket]c^21 + 
       5554981346557958144*r\[UnderBracket]Subscript\[UnderBracket]c^22 - 
       257827775047987200*r\[UnderBracket]Subscript\[UnderBracket]c^23 + 
       9477441278369792*r\[UnderBracket]Subscript\[UnderBracket]c^24 - 
       265268127375360*r\[UnderBracket]Subscript\[UnderBracket]c^25 + 
       5307511537664*r\[UnderBracket]Subscript\[UnderBracket]c^26 - 
       67568402432*r\[UnderBracket]Subscript\[UnderBracket]c^27 + 
       411041792*r\[UnderBracket]Subscript\[UnderBracket]c^28))/
     (2097152*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^22*
      (-2 + r\[UnderBracket]Subscript\[UnderBracket]c)^2*
      r\[UnderBracket]Subscript\[UnderBracket]c^(31/2))
 
\[GothicCapitalE][1] = 
    (2*Sqrt[-3 + r\[UnderBracket]Subscript\[UnderBracket]c]*
      (-2 + r\[UnderBracket]Subscript\[UnderBracket]c))/
     (Sqrt[-6 + r\[UnderBracket]Subscript\[UnderBracket]c]*
      r\[UnderBracket]Subscript\[UnderBracket]c^(3/2))
 
\[GothicCapitalE][2] = -1/2*((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)*
       (1676 - 1612*r\[UnderBracket]Subscript\[UnderBracket]c + 
        595*r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
        100*r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
        6*r\[UnderBracket]Subscript\[UnderBracket]c^4))/
      ((-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^3*
       r\[UnderBracket]Subscript\[UnderBracket]c^3)
 
\[GothicCapitalE][3] = (Sqrt[-3 + r\[UnderBracket]Subscript\[UnderBracket]c]*
      (4924968 - 8698100*r\[UnderBracket]Subscript\[UnderBracket]c + 
       6685810*r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
       2941503*r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
       817127*r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
       147772*r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
       16980*r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
       1120*r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
       32*r\[UnderBracket]Subscript\[UnderBracket]c^8))/
     (8*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(11/2)*
      r\[UnderBracket]Subscript\[UnderBracket]c^(9/2))
 
\[GothicCapitalE][4] = 
    -1/64*((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^2*
       (3532654320 - 6749253600*r\[UnderBracket]Subscript\[UnderBracket]c + 
        5772844200*r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
        2924355368*r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
        977180151*r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
        226649668*r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
        37228450*r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
        4294272*r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
        331808*r\[UnderBracket]Subscript\[UnderBracket]c^8 - 
        15360*r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
        320*r\[UnderBracket]Subscript\[UnderBracket]c^10))/
      ((-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^8*
       r\[UnderBracket]Subscript\[UnderBracket]c^6)
 
\[GothicCapitalE][5] = ((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^
       (5/2)*(-8105535791584 + 19399236283568*
        r\[UnderBracket]Subscript\[UnderBracket]c - 
       21293827677872*r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
       14221423794904*r\[UnderBracket]Subscript\[UnderBracket]c^3 - 
       6462737204118*r\[UnderBracket]Subscript\[UnderBracket]c^4 + 
       2116474582479*r\[UnderBracket]Subscript\[UnderBracket]c^5 - 
       515820348192*r\[UnderBracket]Subscript\[UnderBracket]c^6 + 
       95169857128*r\[UnderBracket]Subscript\[UnderBracket]c^7 - 
       13361966944*r\[UnderBracket]Subscript\[UnderBracket]c^8 + 
       1416069008*r\[UnderBracket]Subscript\[UnderBracket]c^9 - 
       110243840*r\[UnderBracket]Subscript\[UnderBracket]c^10 + 
       5953280*r\[UnderBracket]Subscript\[UnderBracket]c^11 - 
       198656*r\[UnderBracket]Subscript\[UnderBracket]c^12 + 
       3072*r\[UnderBracket]Subscript\[UnderBracket]c^13))/
     (512*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(21/2)*
      r\[UnderBracket]Subscript\[UnderBracket]c^(15/2))
 
\[GothicCapitalE][6] = -1/1024*
     ((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^3*
       (4871794064075584 - 14030321634325952*
         r\[UnderBracket]Subscript\[UnderBracket]c + 18821352134591280*
         r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
        15625864141668064*r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
        8995746198969516*r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
        3812687501765180*r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
        1232580604275021*r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
        310672940273852*r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
        61862754548978*r\[UnderBracket]Subscript\[UnderBracket]c^8 - 
        9796652706560*r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
        1234469431696*r\[UnderBracket]Subscript\[UnderBracket]c^10 - 
        122942475392*r\[UnderBracket]Subscript\[UnderBracket]c^11 + 
        9512116096*r\[UnderBracket]Subscript\[UnderBracket]c^12 - 
        552972288*r\[UnderBracket]Subscript\[UnderBracket]c^13 + 
        22729728*r\[UnderBracket]Subscript\[UnderBracket]c^14 - 
        587776*r\[UnderBracket]Subscript\[UnderBracket]c^15 + 
        7168*r\[UnderBracket]Subscript\[UnderBracket]c^16))/
      ((-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^13*
       r\[UnderBracket]Subscript\[UnderBracket]c^9)
 
\[GothicCapitalE][7] = ((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^
       (7/2)*(-12134663084495414400 + 40885496226815782848*
        r\[UnderBracket]Subscript\[UnderBracket]c - 64866606259143398304*
        r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
       64444940222434132144*r\[UnderBracket]Subscript\[UnderBracket]c^3 - 
       44972426527950660568*r\[UnderBracket]Subscript\[UnderBracket]c^4 + 
       23435806376748968884*r\[UnderBracket]Subscript\[UnderBracket]c^5 - 
       9464318449512309054*r\[UnderBracket]Subscript\[UnderBracket]c^6 + 
       3033653428945332665*r\[UnderBracket]Subscript\[UnderBracket]c^7 - 
       784099263484559072*r\[UnderBracket]Subscript\[UnderBracket]c^8 + 
       165100330921308820*r\[UnderBracket]Subscript\[UnderBracket]c^9 - 
       28491104680244112*r\[UnderBracket]Subscript\[UnderBracket]c^10 + 
       4039260792672296*r\[UnderBracket]Subscript\[UnderBracket]c^11 - 
       469890441888512*r\[UnderBracket]Subscript\[UnderBracket]c^12 + 
       44602000386880*r\[UnderBracket]Subscript\[UnderBracket]c^13 - 
       3413929999360*r\[UnderBracket]Subscript\[UnderBracket]c^14 + 
       206304789504*r\[UnderBracket]Subscript\[UnderBracket]c^15 - 
       9493938176*r\[UnderBracket]Subscript\[UnderBracket]c^16 + 
       312664064*r\[UnderBracket]Subscript\[UnderBracket]c^17 - 
       6553600*r\[UnderBracket]Subscript\[UnderBracket]c^18 + 
       65536*r\[UnderBracket]Subscript\[UnderBracket]c^19))/
     (8192*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(31/2)*
      r\[UnderBracket]Subscript\[UnderBracket]c^(21/2))
 
\[GothicCapitalE][8] = -1/131072*
     ((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^4*
       (62141908647333827821824 - 239920537479374202651648*
         r\[UnderBracket]Subscript\[UnderBracket]c + 439676291766077668553472*
         r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
        508921634948453073874944*r\[UnderBracket]Subscript\[UnderBracket]c^
          3 + 417644574194988595114464*
         r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
        258555621293693182179072*r\[UnderBracket]Subscript\[UnderBracket]c^
          5 + 125436361142403980975568*
         r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
        48900635969882994175168*r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
        15584429012654206148425*r\[UnderBracket]Subscript\[UnderBracket]c^8 - 
        4108870169062640270236*r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
        903497597600108320294*r\[UnderBracket]Subscript\[UnderBracket]c^10 - 
        166550099552014784800*r\[UnderBracket]Subscript\[UnderBracket]c^11 + 
        25807623022825890056*r\[UnderBracket]Subscript\[UnderBracket]c^12 - 
        3362976794220453216*r\[UnderBracket]Subscript\[UnderBracket]c^13 + 
        367817178214766928*r\[UnderBracket]Subscript\[UnderBracket]c^14 - 
        33604235832754176*r\[UnderBracket]Subscript\[UnderBracket]c^15 + 
        2542404770263040*r\[UnderBracket]Subscript\[UnderBracket]c^16 - 
        157012472692736*r\[UnderBracket]Subscript\[UnderBracket]c^17 + 
        7733723734016*r\[UnderBracket]Subscript\[UnderBracket]c^18 - 
        292654940160*r\[UnderBracket]Subscript\[UnderBracket]c^19 + 
        7990542336*r\[UnderBracket]Subscript\[UnderBracket]c^20 - 
        139984896*r\[UnderBracket]Subscript\[UnderBracket]c^21 + 
        1179648*r\[UnderBracket]Subscript\[UnderBracket]c^22))/
      ((-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^18*
       r\[UnderBracket]Subscript\[UnderBracket]c^12)
 
\[GothicCapitalE][9] = ((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^
       (9/2)*(-325316655617099224750568960 + 1416428159137152819310785280*
        r\[UnderBracket]Subscript\[UnderBracket]c - 
       2945313955958856383833843200*r\[UnderBracket]Subscript\[UnderBracket]c^
         2 + 3893767391913738720455608064*
        r\[UnderBracket]Subscript\[UnderBracket]c^3 - 
       3675427333491969278050838848*r\[UnderBracket]Subscript\[UnderBracket]c^
         4 + 2637204152092324116074562720*
        r\[UnderBracket]Subscript\[UnderBracket]c^5 - 
       1495176450941844221863773920*r\[UnderBracket]Subscript\[UnderBracket]c^
         6 + 687354453546248684996786480*
        r\[UnderBracket]Subscript\[UnderBracket]c^7 - 
       260886215807201782468114662*r\[UnderBracket]Subscript\[UnderBracket]c^
         8 + 82815739380385872051786139*
        r\[UnderBracket]Subscript\[UnderBracket]c^9 - 
       22192062258573017612446656*r\[UnderBracket]Subscript\[UnderBracket]c^
         10 + 5053065238008314594840400*
        r\[UnderBracket]Subscript\[UnderBracket]c^11 - 
       981968988686443027482624*r\[UnderBracket]Subscript\[UnderBracket]c^
         12 + 163288209783257362758528*
        r\[UnderBracket]Subscript\[UnderBracket]c^13 - 
       23257019261756107352064*r\[UnderBracket]Subscript\[UnderBracket]c^14 + 
       2835616447540008666752*r\[UnderBracket]Subscript\[UnderBracket]c^15 - 
       295303779187720686080*r\[UnderBracket]Subscript\[UnderBracket]c^16 + 
       26157770320676263168*r\[UnderBracket]Subscript\[UnderBracket]c^17 - 
       1957509751719526400*r\[UnderBracket]Subscript\[UnderBracket]c^18 + 
       122474863283060736*r\[UnderBracket]Subscript\[UnderBracket]c^19 - 
       6305558207397888*r\[UnderBracket]Subscript\[UnderBracket]c^20 + 
       260709273436160*r\[UnderBracket]Subscript\[UnderBracket]c^21 - 
       8332605652992*r\[UnderBracket]Subscript\[UnderBracket]c^22 + 
       193292402688*r\[UnderBracket]Subscript\[UnderBracket]c^23 - 
       2894069760*r\[UnderBracket]Subscript\[UnderBracket]c^24 + 
       20971520*r\[UnderBracket]Subscript\[UnderBracket]c^25))/
     (2097152*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(41/2)*
      r\[UnderBracket]Subscript\[UnderBracket]c^(27/2))
 
\[GothicCapitalE][10] = -1/4194304*
     ((-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^5*
       (216728283143345325964405128192 - 1050781874056829372409635466240*
         r\[UnderBracket]Subscript\[UnderBracket]c + 
        2444939162738945652847845839616*
         r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
        3635518948114642367394550372352*
         r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
        3881112635735218806704184967552*
         r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
        3168166202084791647028211405952*
         r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
        2056515840644606846540160974048*
         r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
        1089879691681719503880479969728*
         r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
        480445869136659807193402413516*
         r\[UnderBracket]Subscript\[UnderBracket]c^8 - 
        178578716030889168289643209004*
         r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
        56532548422564705023920888287*
         r\[UnderBracket]Subscript\[UnderBracket]c^10 - 
        15356164678946270066196702004*
         r\[UnderBracket]Subscript\[UnderBracket]c^11 + 
        3598634681482780340208693198*
         r\[UnderBracket]Subscript\[UnderBracket]c^12 - 
        730314671613135357284790912*r\[UnderBracket]Subscript\[UnderBracket]c^
          13 + 128660763587801783687384112*
         r\[UnderBracket]Subscript\[UnderBracket]c^14 - 
        19699748659561198244062784*r\[UnderBracket]Subscript\[UnderBracket]c^
          15 + 2621629122352162636568992*
         r\[UnderBracket]Subscript\[UnderBracket]c^16 - 
        302901358607176055790592*r\[UnderBracket]Subscript\[UnderBracket]c^
          17 + 30314109997208825900288*
         r\[UnderBracket]Subscript\[UnderBracket]c^18 - 
        2618058431216608714752*r\[UnderBracket]Subscript\[UnderBracket]c^19 + 
        194043136591216968704*r\[UnderBracket]Subscript\[UnderBracket]c^20 - 
        12244033133565968384*r\[UnderBracket]Subscript\[UnderBracket]c^21 + 
        650189357012549632*r\[UnderBracket]Subscript\[UnderBracket]c^22 - 
        28571010569076736*r\[UnderBracket]Subscript\[UnderBracket]c^23 + 
        1013207153508352*r\[UnderBracket]Subscript\[UnderBracket]c^24 - 
        27900820586496*r\[UnderBracket]Subscript\[UnderBracket]c^25 + 
        560084287488*r\[UnderBracket]Subscript\[UnderBracket]c^26 - 
        7289700352*r\[UnderBracket]Subscript\[UnderBracket]c^27 + 
        46137344*r\[UnderBracket]Subscript\[UnderBracket]c^28))/
      ((-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^23*
       r\[UnderBracket]Subscript\[UnderBracket]c^15)
 
j\[UnderBracket]Overscript\[UnderBracket]Tilde\[UnderBracket]Subscript\
\[UnderBracket]r[1] = (p*Sqrt[((-6 + p)*p)/(-3 + p)])/(2*(-2 + p))
 
j\[UnderBracket]Overscript\[UnderBracket]Tilde\[UnderBracket]Subscript\
\[UnderBracket]r[2] = 
    (-4164 + p*(5552 + p*(-3037 + p*(839 + 6*(-19 + p)*p))))/
     (16*(-2 + p)^3*(-9 + 18/p + p)^(3/2))
 
j\[UnderBracket]Overscript\[UnderBracket]Tilde\[UnderBracket]Subscript\
\[UnderBracket]r[3] = 
    (p^(3/2)*(17538480 + p*(-46769280 + 
         p*(57541816 + p*(-42614856 + p*(20852803 + p*(-6993058 + 
                 p*(1618275 + 4*p*(-63509 + p*(6451 + 2*p*(-191 + 
                         5*p)))))))))))/(128*(-6 + p)^(7/2)*(-3 + p)^(5/2)*
      (-2 + p)^5)
 
j\[UnderBracket]Overscript\[UnderBracket]Tilde\[UnderBracket]Subscript\
\[UnderBracket]r[4] = (p^(3/2)*(-137490343488 + 
       p*(549961373952 + p*(-1054764454896 + p*(1276443606864 + 
             p*(-1082257380652 + p*(676967519864 + p*(-321215821721 + 
                   p*(117299810181 + p*(-33143109969 + p*(7229753317 + 
                         2*p*(-602770099 + p*(75352025 + 4*p*(-1707297 + 
                          p*(105829 + 10*p*(-401 + 7*p))))))))))))))))/
     (2048*(-6 + p)^(11/2)*(-3 + p)^(7/2)*(-2 + p)^7)
 
j\[UnderBracket]Overscript\[UnderBracket]Tilde\[UnderBracket]Subscript\
\[UnderBracket]r[5] = (p^(3/2)*(1055060557989120 + 
       p*(-5626989642608640 + p*(14657977293560064 + 
           p*(-24617333070339840 + p*(29703498691298016 + p*
                (-27228217404462144 + p*(19593070117406448 + 
                   p*(-11296643752288208 + p*(5286788879099941 + 
                       p*(-2024058086191628 + p*(636381831963886 + 
                          p*(-164391324378980 + p*(34793152058029 + 8*p*
                          (-749441894985 + p*(104048333709 + 2*p*
                          (-5726623407 + p*(487874645 + 4*p*(-7748389 + 7*p*
                          (49319 + 6*p*(-229 + 3*p)))))))))))))))))))))/
     (32768*(-6 + p)^(15/2)*(-3 + p)^(9/2)*(-2 + p)^9)
 
j\[UnderBracket]Overscript\[UnderBracket]Tilde\[UnderBracket]Subscript\
\[UnderBracket]r[6] = (p^(3/2)*(-3970572408043564032 + 
       p*(26470482720290426880 + p*(-87149596914958793472 + 
           p*(187302745692699644160 + p*(-293306193453587617152 + p*
                (354485360558990296320 + p*(-342322111939789921248 + 
                   p*(270186330986631768672 + p*(-177012962335229745212 + 
                       p*(97307316241524619648 + p*(-45219559359807558839 + 
                          p*(17852063036150347585 + p*(-6004437411823734168 + 
                          p*(1722378002679743812 + p*(-421077334595651671 + 
                          p*(87522821862305393 + 2*p*(-7700197178887983 + 
                          p*(1139535974013589 + 8*p*(-17565085504169 + 
                          p*(1781716125549 + 2*p*(-73001811235 + p*(
                          4709566285 + 4*p*(-57530705 + 7*p*(285727 - 6294*
                          p + 66*p^2)))))))))))))))))))))))))/
     (262144*(-6 + p)^(19/2)*(-3 + p)^(11/2)*(-2 + p)^11)
 
j\[UnderBracket]Overscript\[UnderBracket]Tilde\[UnderBracket]Subscript\
\[UnderBracket]r[7] = (p^(3/2)*(14762732378484027617280 + 
       p*(-118101859027872220938240 + p*(470010628592039468500992 + 
           p*(-1230958054199036223682560 + p*(2370082182370452743420160 + p*
                (-3556853988540440194119168 + p*(4311501914423376465156096 + 
                   p*(-4322480749455154941030144 + p*
                      (3644153512337864605349904 + p*
                        (-2614942114661183687827776 + p*
                          (1611416719912967678288488 + p*
                          (-858446154586224793835672 + p*
                          (397269466082936155324327 + p*
                          (-160253099202271435293790 + p*(
                          56471228929333160675105 + p*(
                          -17402967945953333191384 + p*(
                          4690563936966508923549 + p*(
                          -1104646692017016846798 + p*(
                          226857575114476106295 + 4*p*(
                          -10124947138325855191 + p*(1564343777886443861 + 
                          2*p*(-103961785276757861 + p*(11792961628336727 + 
                          8*p*(-141221610503843 + p*(11267349057655 + 2*p*
                          (-367305071521 + p*(19055077631 + 4*p*(-189051499 + 
                          3*p*(1795945 + 22*p*(-1487 + 13*
                          p)))))))))))))))))))))))))))))))/
     (2097152*(-6 + p)^(23/2)*(-3 + p)^(13/2)*(-2 + p)^13)
 
j\[UnderBracket]Overscript\[UnderBracket]Tilde\[UnderBracket]Subscript\
\[UnderBracket]r[8] = (p^(3/2)*(-217489493712316885630599168 + 
       p*(2029901941314957599218925568 + p*(-9473822987080297197258289152 + 
           p*(29263509712141289218573406208 + 
             p*(-66866396802103839667465073664 + p*
                (119895453752239296642674608128 + 
                 p*(-174915746918574051369073847040 + 
                   p*(212725595215788085667406745344 + 
                     p*(-219412092844059690870194564544 + 
                       p*(194395326771479174330209413888 + 
                         p*(-149381317522411088228220781584 + 
                          p*(100306939483990930590565004016 + p*
                          (-59197526300261834699980081884 + p*
                          (30843134178752165562187458440 + p*
                          (-14235642727036877915811529441 + p*
                          (5835124487354346931998446657 + p*(
                          -2127784818204296770519143647 + p*(
                          690958126664141871963011851 + p*(
                          -199882673231139007197322349 + p*(
                          51495557564560531579752417 + p*(
                          -11803843503503419754779233 + p*(
                          2403402773477745642805689 + 2*p*(
                          -216828521179231367192527 + p*(
                          34558673642233442371325 + 4*p*(
                          -1211268677772641866111 + p*(
                          148580503019361783403 + 2*p*(-7919139060812862607 + 
                          p*(727261372368191129 + 8*p*(-7112977439739329 + 
                          p*(467340228596665 + 2*p*(-12643332193603 + 3*p*
                          (182773608987 + 44*p*(-138761017 + p*(3350453 + 78*
                          p*(-667 + 5*p))))))))))))))))))))))))))))))))))))/
     (67108864*(-6 + p)^(27/2)*(-3 + p)^(15/2)*(-2 + p)^15)
 
j\[UnderBracket]Overscript\[UnderBracket]Tilde\[UnderBracket]Subscript\
\[UnderBracket]r[9] = (p^(3/2)*(3181229963111196386329861619712 + 
       p*(-33933119606519428120851857276928 + 
         p*(181697377956021250321191696728064 + 
           p*(-646623292840021356796866208333824 + 
             p*(1710068089176486760176114684641280 + p*
                (-3566321016222972300686881334525952 + 
                 p*(6083358059916213400456809782648832 + 
                   p*(-8699038456606053661471993407332352 + 
                     p*(10613331145815847876748824564778496 + 
                       p*(-11194166331363134312531508138362880 + 
                         p*(10310463332731987724113995547421184 + 
                          p*(-8358972429206520116893202773486080 + 
                          p*(6002783082277504607499941972378048 + 
                          p*(-3837682426132644789295378937081216 + 
                          p*(2193101615620265040913663055430112 + p*
                          (-1123884316984035658271098338679200 + p*
                          (517793302507481860183030746664993 + p*
                          (-214882688758239195010541068550136 + p*
                          (80438342022184173908899666317660 + p*(
                          -27185434719895247358172328961240 + p*(
                          8298831693829452034630942627158 + p*(
                          -2288279714169101778135223203064 + p*(
                          569673275881448622308745521580 + p*(
                          -127933731460995632315718880552 + p*(
                          25882090860368831144311187505 + 16*p*(
                          -294265513987512086173357537 + p*(
                          48016369933479973352948049 + 2*p*(
                          -3503183738659846676924631 + p*(
                          455361355132878292453989 + 4*p*(
                          -13119671629750233565191 + p*(
                          1332741033226243578299 + 2*p*(
                          -59236640017417356311 + p*(4566526248448400385 + 
                          8*p*(-37724866254856537 + p*(2105936348935737 + 2*p*
                          (-48678075693259 + p*(1813300451465 + 44*p*(
                          -1188444307 + 13*p*(1914763 + 10*p*(-2591 + 17*
                          p)))))))))))))))))))))))))))))))))))))))))/
     (2147483648*(-6 + p)^(31/2)*(-3 + p)^(17/2)*(-2 + p)^17)
 
j\[UnderBracket]Overscript\[UnderBracket]Tilde\[UnderBracket]Subscript\
\[UnderBracket]r[10] = (p^(3/2)*(-11566318483962347722696820840988672 + 
       p*(138795821807548172672361850091864064 + 
         p*(-838608331745758491737880015840804864 + 
           p*(3378529729647956623450774684967829504 + 
             p*(-10150105014290904826098742984204812288 + p*
                (24136743177850917908383201894855606272 + 
                 p*(-47133188876081614074926222642215403520 + 
                   p*(77483237230365420614814695534528249856 + 
                     p*(-109162955230028404577160369745600714752 + 
                       p*(133581767662172895839985262772799209472 + 
                         p*(-143458966599505264399274752737285803520 + 
                          p*(136327838887307263681261685008050504192 + 
                          p*(-115395914921512731924442718532262547712 + 
                          p*(87475150224154678314346886053234933248 + 
                          p*(-59646577764283614791497838609201720640 + 
                          p*(36717242672421787054722608249285911872 + 
                          p*(-20465989352104892205313893782996774452 + 
                          p*(10354488482892548947883113277518080656 + p*
                          (-4764373464004920528546902511495849057 + p*
                          (1996776156669778375726402954779836347 + p*
                          (-763132150897685435473411624415326166 + p*
                          (266173865889296800178647388895938170 + p*(
                          -84768002064807426326091934038463062 + p*(
                          24652863566893891647666661306767954 + p*(
                          -6546426360453944049843365780967828 + p*(
                          1586495827347413921090003318189696 + p*(
                          -350612285349302589520087809346753 + p*(
                          70579216223719934148085881833467 + 2*p*(
                          -6461106838621313280677981017349 + p*(
                          1073869465545910799561325746887 + 16*p*(
                          -10102728611426937660014820155 + p*(
                          1373290512377153487179178663 + 2*p*(
                          -83997268728868593881577021 + p*(
                          9208485344230262913290547 + 4*p*(
                          -225032342064752892608069 + p*(
                          19493499458500853940541 + 2*p*(
                          -742628234477744304701 + p*(49307303575447033015 + 
                          8*p*(-352456239215043499 + p*(17099796823198319 + 
                          2*p*(-344967319354281 + 11*p*(1023697234605 + 52*p*
                          (-499409133 + p*(9235693 + 34*p*(-3257 + 19*
                          p))))))))))))))))))))))))))))))))))))))))))))))/
     (17179869184*(-6 + p)^(35/2)*(-3 + p)^(19/2)*(-2 + p)^19)
 
\[ScriptCapitalE]\[ScriptL]Toep = {\[ScriptCapitalE]^2 -> 
      (-4*e^2 + (-2 + p)^2)/(p*(-3 - e^2 + p)), \[ScriptL]^2 -> 
      p^2/(-3 - e^2 + p)}
 
\[ScriptCapitalE]ToJr = {\[ScriptCapitalE] -> 
      (J\[UnderBracket]Subscript\[UnderBracket]r*
         Sqrt[-6 + r\[UnderBracket]Subscript\[UnderBracket]c])/
        r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
       (-2 + r\[UnderBracket]Subscript\[UnderBracket]c)/
        Sqrt[(-3 + r\[UnderBracket]Subscript\[UnderBracket]c)*
          r\[UnderBracket]Subscript\[UnderBracket]c] - 
       (3*J\[UnderBracket]Subscript\[UnderBracket]r^2*
         Sqrt[(-3 + r\[UnderBracket]Subscript\[UnderBracket]c)*
           r\[UnderBracket]Subscript\[UnderBracket]c]*
         (-298 + 185*r\[UnderBracket]Subscript\[UnderBracket]c - 
          34*r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
          2*r\[UnderBracket]Subscript\[UnderBracket]c^3))/
        (4*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^2*
         r\[UnderBracket]Subscript\[UnderBracket]c^4) + 
       (J\[UnderBracket]Subscript\[UnderBracket]r^3*(-2863476 + 
          4257312*r\[UnderBracket]Subscript\[UnderBracket]c - 
          2639481*r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
          884115*r\[UnderBracket]Subscript\[UnderBracket]c^3 - 
          172800*r\[UnderBracket]Subscript\[UnderBracket]c^4 + 
          19732*r\[UnderBracket]Subscript\[UnderBracket]c^5 - 
          1224*r\[UnderBracket]Subscript\[UnderBracket]c^6 + 
          32*r\[UnderBracket]Subscript\[UnderBracket]c^7))/
        (16*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(9/2)*
         r\[UnderBracket]Subscript\[UnderBracket]c^5) - 
       (5*J\[UnderBracket]Subscript\[UnderBracket]r^4*
         (-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^(3/2)*
         (-444327000 + 741495204*r\[UnderBracket]Subscript\[UnderBracket]c - 
          540189522*r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
          225670731*r\[UnderBracket]Subscript\[UnderBracket]c^3 - 
          59608212*r\[UnderBracket]Subscript\[UnderBracket]c^4 + 
          10325802*r\[UnderBracket]Subscript\[UnderBracket]c^5 - 
          1173504*r\[UnderBracket]Subscript\[UnderBracket]c^6 + 
          84480*r\[UnderBracket]Subscript\[UnderBracket]c^7 - 
          3504*r\[UnderBracket]Subscript\[UnderBracket]c^8 + 
          64*r\[UnderBracket]Subscript\[UnderBracket]c^9))/
        (128*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^7*
         r\[UnderBracket]Subscript\[UnderBracket]c^(13/2)) + 
       (3*J\[UnderBracket]Subscript\[UnderBracket]r^5*
         (-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^2*
         (1816493921616 - 3955861916448*
           r\[UnderBracket]Subscript\[UnderBracket]c + 3898445788920*
           r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
          2299718882088*r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
          904602894261*r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
          249962629656*r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
          49744592184*r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
          7181900016*r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
          746429872*r\[UnderBracket]Subscript\[UnderBracket]c^8 - 
          54468480*r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
          2650496*r\[UnderBracket]Subscript\[UnderBracket]c^10 - 
          77312*r\[UnderBracket]Subscript\[UnderBracket]c^11 + 
          1024*r\[UnderBracket]Subscript\[UnderBracket]c^12))/
        (1024*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(19/2)*
         r\[UnderBracket]Subscript\[UnderBracket]c^8) - 
       (7*J\[UnderBracket]Subscript\[UnderBracket]r^6*
         (-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^(5/2)*
         (-494808967821024 + 1327858638025968*
           r\[UnderBracket]Subscript\[UnderBracket]c - 1646439642699408*
           r\[UnderBracket]Subscript\[UnderBracket]c^2 + 
          1251440200589400*r\[UnderBracket]Subscript\[UnderBracket]c^3 - 
          652152667495830*r\[UnderBracket]Subscript\[UnderBracket]c^4 + 
          246801316020723*r\[UnderBracket]Subscript\[UnderBracket]c^5 - 
          70058631689358*r\[UnderBracket]Subscript\[UnderBracket]c^6 + 
          15186040860198*r\[UnderBracket]Subscript\[UnderBracket]c^7 - 
          2533345445040*r\[UnderBracket]Subscript\[UnderBracket]c^8 + 
          325100207520*r\[UnderBracket]Subscript\[UnderBracket]c^9 - 
          31816477968*r\[UnderBracket]Subscript\[UnderBracket]c^10 + 
          2331099072*r\[UnderBracket]Subscript\[UnderBracket]c^11 - 
          123745152*r\[UnderBracket]Subscript\[UnderBracket]c^12 + 
          4493440*r\[UnderBracket]Subscript\[UnderBracket]c^13 - 
          99840*r\[UnderBracket]Subscript\[UnderBracket]c^14 + 
          1024*r\[UnderBracket]Subscript\[UnderBracket]c^15))/
        (2048*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^12*
         r\[UnderBracket]Subscript\[UnderBracket]c^(19/2)) + 
       (J\[UnderBracket]Subscript\[UnderBracket]r^7*
         (-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^3*
         (9040056157212600384 - 28816758918121581504*
           r\[UnderBracket]Subscript\[UnderBracket]c + 43023291869597097456*
           r\[UnderBracket]Subscript\[UnderBracket]c^2 - 39977598116085537888*
           r\[UnderBracket]Subscript\[UnderBracket]c^3 + 25908729389989318908*
           r\[UnderBracket]Subscript\[UnderBracket]c^4 - 12435551958765856284*
           r\[UnderBracket]Subscript\[UnderBracket]c^5 + 4580653136451471729*
           r\[UnderBracket]Subscript\[UnderBracket]c^6 - 1323738353715061428*
           r\[UnderBracket]Subscript\[UnderBracket]c^7 + 304153817969286684*
           r\[UnderBracket]Subscript\[UnderBracket]c^8 - 55959551207773848*
           r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
          8259936082338024*r\[UnderBracket]Subscript\[UnderBracket]c^10 - 
          975302105075136*r\[UnderBracket]Subscript\[UnderBracket]c^11 + 
          91384248930240*r\[UnderBracket]Subscript\[UnderBracket]c^12 - 
          6698556608640*r\[UnderBracket]Subscript\[UnderBracket]c^13 + 
          375456241152*r\[UnderBracket]Subscript\[UnderBracket]c^14 - 
          15519495168*r\[UnderBracket]Subscript\[UnderBracket]c^15 + 
          445317120*r\[UnderBracket]Subscript\[UnderBracket]c^16 - 
          7913472*r\[UnderBracket]Subscript\[UnderBracket]c^17 + 
          65536*r\[UnderBracket]Subscript\[UnderBracket]c^18))/
        (16384*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(29/2)*
         r\[UnderBracket]Subscript\[UnderBracket]c^11) - 
       (9*J\[UnderBracket]Subscript\[UnderBracket]r^8*
         (-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^(7/2)*
         (-5349871847936709489792 + 19744797330039776994240*
           r\[UnderBracket]Subscript\[UnderBracket]c - 
          34459672448054128831392*r\[UnderBracket]Subscript\[UnderBracket]c^
            2 + 37825881277779651230256*
           r\[UnderBracket]Subscript\[UnderBracket]c^3 - 
          29297759929169300852568*r\[UnderBracket]Subscript\[UnderBracket]c^
            4 + 17026037661141808551252*
           r\[UnderBracket]Subscript\[UnderBracket]c^5 - 
          7705634305524886701822*r\[UnderBracket]Subscript\[UnderBracket]c^
            6 + 2782200300715204345569*
           r\[UnderBracket]Subscript\[UnderBracket]c^7 - 
          814297966811950443912*r\[UnderBracket]Subscript\[UnderBracket]c^8 + 
          195205968131987962966*r\[UnderBracket]Subscript\[UnderBracket]c^9 - 
          38564473859389210160*r\[UnderBracket]Subscript\[UnderBracket]c^10 + 
          6295427971344981064*r\[UnderBracket]Subscript\[UnderBracket]c^11 - 
          848778456260641184*r\[UnderBracket]Subscript\[UnderBracket]c^12 + 
          94169664159871952*r\[UnderBracket]Subscript\[UnderBracket]c^13 - 
          8536524382084096*r\[UnderBracket]Subscript\[UnderBracket]c^14 + 
          625147823062528*r\[UnderBracket]Subscript\[UnderBracket]c^15 - 
          36363900237824*r\[UnderBracket]Subscript\[UnderBracket]c^16 + 
          1638587686912*r\[UnderBracket]Subscript\[UnderBracket]c^17 - 
          55056275456*r\[UnderBracket]Subscript\[UnderBracket]c^18 + 
          1296089088*r\[UnderBracket]Subscript\[UnderBracket]c^19 - 
          19038208*r\[UnderBracket]Subscript\[UnderBracket]c^20 + 
          131072*r\[UnderBracket]Subscript\[UnderBracket]c^21))/
        (262144*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^17*
         r\[UnderBracket]Subscript\[UnderBracket]c^(25/2)) - 
       (J\[UnderBracket]Subscript\[UnderBracket]r^9*
         (-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^4*
         (12240949268306781100672000 - 64340560820389389859896320*
           r\[UnderBracket]Subscript\[UnderBracket]c + 
          156957367081943358891459840*
           r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
          238244692824566657728900096*
           r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
          253841729036347294060053632*
           r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
          202721861982517743752472960*
           r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
          126395857078774048842570400*
           r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
          63223702662709119920550400*
           r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
          25856036749494219602809428*
           r\[UnderBracket]Subscript\[UnderBracket]c^8 - 
          8761730079064097613425996*r\[UnderBracket]Subscript\[UnderBracket]c^
            9 + 2483354169599759455080369*
           r\[UnderBracket]Subscript\[UnderBracket]c^10 - 
          592439182575739281191340*r\[UnderBracket]Subscript\[UnderBracket]c^
            11 + 119408011055913746795046*
           r\[UnderBracket]Subscript\[UnderBracket]c^12 - 
          20363510266714699748672*r\[UnderBracket]Subscript\[UnderBracket]c^
            13 + 2936326570135158399736*
           r\[UnderBracket]Subscript\[UnderBracket]c^14 - 
          356958050454566273568*r\[UnderBracket]Subscript\[UnderBracket]c^
            15 + 36385838905296867760*
           r\[UnderBracket]Subscript\[UnderBracket]c^16 - 
          3083810005862253312*r\[UnderBracket]Subscript\[UnderBracket]c^17 + 
          214657433726960640*r\[UnderBracket]Subscript\[UnderBracket]c^18 - 
          12057677832973824*r\[UnderBracket]Subscript\[UnderBracket]c^19 + 
          532799702075392*r\[UnderBracket]Subscript\[UnderBracket]c^20 - 
          17822140364800*r\[UnderBracket]Subscript\[UnderBracket]c^21 + 
          424019017728*r\[UnderBracket]Subscript\[UnderBracket]c^22 - 
          6391529472*r\[UnderBracket]Subscript\[UnderBracket]c^23 + 
          45875200*r\[UnderBracket]Subscript\[UnderBracket]c^24))/
        (262144*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^(39/2)*
         (-2 + r\[UnderBracket]Subscript\[UnderBracket]c)*
         r\[UnderBracket]Subscript\[UnderBracket]c^14) + 
       (J\[UnderBracket]Subscript\[UnderBracket]r^10*
         (-3 + r\[UnderBracket]Subscript\[UnderBracket]c)^(9/2)*
         (61131187939699974270930817024 - 366015183753996746097454956544*
           r\[UnderBracket]Subscript\[UnderBracket]c + 
          1048689390572231857894380079104*
           r\[UnderBracket]Subscript\[UnderBracket]c^2 - 
          1911651084770562764038097571840*
           r\[UnderBracket]Subscript\[UnderBracket]c^3 + 
          2488698197827079860652954273536*
           r\[UnderBracket]Subscript\[UnderBracket]c^4 - 
          2463506655779917764000580588544*
           r\[UnderBracket]Subscript\[UnderBracket]c^5 + 
          1928128501578314827100717209344*
           r\[UnderBracket]Subscript\[UnderBracket]c^6 - 
          1225220031000954861458321708544*
           r\[UnderBracket]Subscript\[UnderBracket]c^7 + 
          644120253901040792053341805680*
           r\[UnderBracket]Subscript\[UnderBracket]c^8 - 
          284045833901777290925532147392*
           r\[UnderBracket]Subscript\[UnderBracket]c^9 + 
          106152696863320146055725765128*
           r\[UnderBracket]Subscript\[UnderBracket]c^10 - 
          33876224434885697843716464400*
           r\[UnderBracket]Subscript\[UnderBracket]c^11 + 
          9282650472141684251610354345*
           r\[UnderBracket]Subscript\[UnderBracket]c^12 - 
          2192296736851959201226576620*
           r\[UnderBracket]Subscript\[UnderBracket]c^13 + 
          447254128075597742977602720*
           r\[UnderBracket]Subscript\[UnderBracket]c^14 - 
          78886909810382052266410920*
           r\[UnderBracket]Subscript\[UnderBracket]c^15 + 
          12023311744591211668454408*
           r\[UnderBracket]Subscript\[UnderBracket]c^16 - 
          1580414344811086666451232*r\[UnderBracket]Subscript\[UnderBracket]c^
            17 + 178540055715527604116288*
           r\[UnderBracket]Subscript\[UnderBracket]c^18 - 
          17244096248637807486784*r\[UnderBracket]Subscript\[UnderBracket]c^
            19 + 1413451192594688432448*
           r\[UnderBracket]Subscript\[UnderBracket]c^20 - 
          97336894059637276672*r\[UnderBracket]Subscript\[UnderBracket]c^21 + 
          5554981346557958144*r\[UnderBracket]Subscript\[UnderBracket]c^22 - 
          257827775047987200*r\[UnderBracket]Subscript\[UnderBracket]c^23 + 
          9477441278369792*r\[UnderBracket]Subscript\[UnderBracket]c^24 - 
          265268127375360*r\[UnderBracket]Subscript\[UnderBracket]c^25 + 
          5307511537664*r\[UnderBracket]Subscript\[UnderBracket]c^26 - 
          67568402432*r\[UnderBracket]Subscript\[UnderBracket]c^27 + 
          411041792*r\[UnderBracket]Subscript\[UnderBracket]c^28))/
        (2097152*(-6 + r\[UnderBracket]Subscript\[UnderBracket]c)^22*
         (-2 + r\[UnderBracket]Subscript\[UnderBracket]c)^2*
         r\[UnderBracket]Subscript\[UnderBracket]c^(31/2))}
 
EOrd = 20
 
HalfEOrd = 10