Skip to content

Instantly share code, notes, and snippets.

@VladimirReshetnikov

VladimirReshetnikov/Root.m

Created September 11, 2019 00:33
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save VladimirReshetnikov/e7f41791d7d755b6b558289be8e2f44f to your computer and use it in GitHub Desktop.
Save VladimirReshetnikov/e7f41791d7d755b6b558289be8e2f44f to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Root.m
(3 + 3*(13*(16 - 9*Sqrt[3]))^(1/3) + 3*(13*(16 + 9*Sqrt[3]))^(1/3) + Sqrt[2 + Sqrt[13]]*(13^(3/4) + (2*((143 - 78*Sqrt[3])^(1/3) + (143 + 78*Sqrt[3])^(1/3)))/13^(1/4) - 13^(1/4)*(2 + (143 - 78*Sqrt[3])^(1/3) + (143 + 78*Sqrt[3])^(1/3))))/54 - ((29246464*(-1541592 + 37908*Sqrt[13] - 972*(13*(16 - 9*Sqrt[3]))^(1/3)*(104 + 3*Sqrt[13]) - 972*(13*(16 + 9*Sqrt[3]))^(1/3)*(104 + 3*Sqrt[13]) + 27*13^(1/6)*(11 - 6*Sqrt[3])^(2/3)*(2106 + Sqrt[26*(541385 - 96457*Sqrt[13])]) + 27*13^(1/6)*(11 + 6*Sqrt[3])^(2/3)*(2106 + Sqrt[26*(541385 - 96457*Sqrt[13])]) + 2*13^(1/4)*Sqrt[2 + Sqrt[13]]*(-31161 - 40053*Sqrt[13] + 1885*13^(5/6)*(16 - 9*Sqrt[3])^(1/3) - 19493*(13*(16 - 9*Sqrt[3]))^(1/3) + 16*13^(1/6)*(16 - 9*Sqrt[3])^(2/3)*(-52 + 17*Sqrt[13]) + 16*13^(1/6)*(16 + 9*Sqrt[3])^(2/3)*(-52 + 17*Sqrt[13]) + (13*(16 + 9*Sqrt[3]))^(1/3)*(-19493 + 1885*Sqrt[13])) + 3*(143 + 78*Sqrt[3])^(1/3)*(-12636 + 17010*Sqrt[13] + Sqrt[13 + 2*Sqrt[13]]*(16385 - 1411*Sqrt[13] + 16*(13*(16 - 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]) + 16*(13*(16 + 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]))) + 3*(143 - 78*Sqrt[3])^(1/3)*(-12636 + 17010*Sqrt[13] + 18*(143 + 78*Sqrt[3])^(1/3)*(162*Sqrt[13] + Sqrt[2*(541385 - 96457*Sqrt[13])]) + Sqrt[13 + 2*Sqrt[13]]*(16385 - 1411*Sqrt[13] + 16*(13*(16 - 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]) + 16*(13*(16 + 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]))))^2 + (-26240827392*(-1794 + 546*Sqrt[13] - 286*(143 - 78*Sqrt[3])^(1/3) - 13*(143 - 78*Sqrt[3])^(2/3) + 26*13^(1/6)*(11 - 6*Sqrt[3])^(2/3) + 17*13^(5/6)*(11 + 6*Sqrt[3])^(1/3) + 26*13^(1/6)*(11 + 6*Sqrt[3])^(2/3) + 54*13^(5/6)*(16 + 9*Sqrt[3])^(1/3) - 286*(143 + 78*Sqrt[3])^(1/3) - 13*(143 + 78*Sqrt[3])^(2/3) + 26*13^(7/12)*(11 + 6*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]] + 65*13^(7/12)*(16 + 9*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]] + 624*Sqrt[13 + 2*Sqrt[13]] - 156*Sqrt[169 + 26*Sqrt[13]] - 286*(11 + 6*Sqrt[3])^(1/3)*(325 + 86*Sqrt[13])^(1/6) - 91*(16 + 9*Sqrt[3])^(1/3)*(325 + 86*Sqrt[13])^(1/6) + 13^(1/12)*(11 - 6*Sqrt[3])^(1/3)*(17*13^(3/4) - 78*Sqrt[-2 + 10*Sqrt[13]]) + 13^(1/12)*(16 - 9*Sqrt[3])^(1/3)*(54*13^(3/4) + 39*Sqrt[-18 + 26*Sqrt[13]]))^3 - 116985856*(1541592 - 151632*Sqrt[13] + 37908*(143 - 78*Sqrt[3])^(1/3) + 101088*(13*(16 - 9*Sqrt[3]))^(1/3) - 51030*13^(5/6)*(11 - 6*Sqrt[3])^(1/3) - 56862*13^(1/6)*(11 - 6*Sqrt[3])^(2/3) - 51030*13^(5/6)*(11 + 6*Sqrt[3])^(1/3) - 56862*13^(1/6)*(11 + 6*Sqrt[3])^(2/3) + 2916*13^(5/6)*(16 + 9*Sqrt[3])^(1/3) + 101088*(13*(16 + 9*Sqrt[3]))^(1/3) + 37908*(143 + 78*Sqrt[3])^(1/3) + (16 - 9*Sqrt[3])^(1/3)*(2916*13^(5/6) + 38986*13^(7/12)*Sqrt[2 + Sqrt[13]]) + 13^(1/12)*Sqrt[2 + Sqrt[13]]*(-180804*13^(1/6) + 120588*13^(2/3) - 49010*(16 - 9*Sqrt[3])^(1/3) + 3*(11 - 6*Sqrt[3])^(1/3)*(18343 - 16385*Sqrt[13]) + 3*(11 + 6*Sqrt[3])^(1/3)*(18343 - 16385*Sqrt[13]) + 9*13^(1/3)*(11 + 6*Sqrt[3])^(2/3)*(2249 - 1039*Sqrt[13]) + (117*(2249 - 1039*Sqrt[13]))/(229 + 132*Sqrt[3])^(1/3) + 48*(182 - 39*Sqrt[3])^(1/3)*(52 - 17*Sqrt[13]) + 32*13^(1/3)*(16 + 9*Sqrt[3])^(2/3)*(52 - 17*Sqrt[13]) + 48*(182 + 39*Sqrt[3])^(1/3)*(52 - 17*Sqrt[13]) + (416*(52 - 17*Sqrt[13]))/(499 + 288*Sqrt[3])^(1/3) - 624*13^(1/6)*(-2 + Sqrt[3])*(-17 + 4*Sqrt[13]) + 624*13^(1/6)*(2 + Sqrt[3])*(-17 + 4*Sqrt[13]) + 2*(16 + 9*Sqrt[3])^(1/3)*(-24505 + 19493*Sqrt[13])))^2)/4)^(1/6)*(Cos[ArcTan[Sqrt[-26240827392*(-1794 + 546*Sqrt[13] - 286*(143 - 78*Sqrt[3])^(1/3) - 13*(143 - 78*Sqrt[3])^(2/3) + 26*13^(1/6)*(11 - 6*Sqrt[3])^(2/3) + 17*13^(5/6)*(11 + 6*Sqrt[3])^(1/3) + 26*13^(1/6)*(11 + 6*Sqrt[3])^(2/3) + 54*13^(5/6)*(16 + 9*Sqrt[3])^(1/3) - 286*(143 + 78*Sqrt[3])^(1/3) - 13*(143 + 78*Sqrt[3])^(2/3) + 26*13^(7/12)*(11 + 6*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]] + 65*13^(7/12)*(16 + 9*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]] + 624*Sqrt[13 + 2*Sqrt[13]] - 156*Sqrt[169 + 26*Sqrt[13]] - 286*(11 + 6*Sqrt[3])^(1/3)*(325 + 86*Sqrt[13])^(1/6) - 91*(16 + 9*Sqrt[3])^(1/3)*(325 + 86*Sqrt[13])^(1/6) + 13^(1/12)*(11 - 6*Sqrt[3])^(1/3)*(17*13^(3/4) - 78*Sqrt[-2 + 10*Sqrt[13]]) + 13^(1/12)*(16 - 9*Sqrt[3])^(1/3)*(54*13^(3/4) + 39*Sqrt[-18 + 26*Sqrt[13]]))^3 - 116985856*(1541592 - 151632*Sqrt[13] + 37908*(143 - 78*Sqrt[3])^(1/3) + 101088*(13*(16 - 9*Sqrt[3]))^(1/3) - 51030*13^(5/6)*(11 - 6*Sqrt[3])^(1/3) - 56862*13^(1/6)*(11 - 6*Sqrt[3])^(2/3) - 51030*13^(5/6)*(11 + 6*Sqrt[3])^(1/3) - 56862*13^(1/6)*(11 + 6*Sqrt[3])^(2/3) + 2916*13^(5/6)*(16 + 9*Sqrt[3])^(1/3) + 101088*(13*(16 + 9*Sqrt[3]))^(1/3) + 37908*(143 + 78*Sqrt[3])^(1/3) + (16 - 9*Sqrt[3])^(1/3)*(2916*13^(5/6) + 38986*13^(7/12)*Sqrt[2 + Sqrt[13]]) + 13^(1/12)*Sqrt[2 + Sqrt[13]]*(-180804*13^(1/6) + 120588*13^(2/3) - 49010*(16 - 9*Sqrt[3])^(1/3) + 3*(11 - 6*Sqrt[3])^(1/3)*(18343 - 16385*Sqrt[13]) + 3*(11 + 6*Sqrt[3])^(1/3)*(18343 - 16385*Sqrt[13]) + 9*13^(1/3)*(11 + 6*Sqrt[3])^(2/3)*(2249 - 1039*Sqrt[13]) + (117*(2249 - 1039*Sqrt[13]))/(229 + 132*Sqrt[3])^(1/3) + 48*(182 - 39*Sqrt[3])^(1/3)*(52 - 17*Sqrt[13]) + 32*13^(1/3)*(16 + 9*Sqrt[3])^(2/3)*(52 - 17*Sqrt[13]) + 48*(182 + 39*Sqrt[3])^(1/3)*(52 - 17*Sqrt[13]) + (416*(52 - 17*Sqrt[13]))/(499 + 288*Sqrt[3])^(1/3) - 624*13^(1/6)*(-2 + Sqrt[3])*(-17 + 4*Sqrt[13]) + 624*13^(1/6)*(2 + Sqrt[3])*(-17 + 4*Sqrt[13]) + 2*(16 + 9*Sqrt[3])^(1/3)*(-24505 + 19493*Sqrt[13])))^2]/(10816*(-1541592 + 37908*Sqrt[13] - 972*(13*(16 - 9*Sqrt[3]))^(1/3)*(104 + 3*Sqrt[13]) - 972*(13*(16 + 9*Sqrt[3]))^(1/3)*(104 + 3*Sqrt[13]) + 27*13^(1/6)*(11 - 6*Sqrt[3])^(2/3)*(2106 + Sqrt[26*(541385 - 96457*Sqrt[13])]) + 27*13^(1/6)*(11 + 6*Sqrt[3])^(2/3)*(2106 + Sqrt[26*(541385 - 96457*Sqrt[13])]) + 2*13^(1/4)*Sqrt[2 + Sqrt[13]]*(-31161 - 40053*Sqrt[13] + 1885*13^(5/6)*(16 - 9*Sqrt[3])^(1/3) - 19493*(13*(16 - 9*Sqrt[3]))^(1/3) + 16*13^(1/6)*(16 - 9*Sqrt[3])^(2/3)*(-52 + 17*Sqrt[13]) + 16*13^(1/6)*(16 + 9*Sqrt[3])^(2/3)*(-52 + 17*Sqrt[13]) + (13*(16 + 9*Sqrt[3]))^(1/3)*(-19493 + 1885*Sqrt[13])) + 3*(143 + 78*Sqrt[3])^(1/3)*(-12636 + 17010*Sqrt[13] + Sqrt[13 + 2*Sqrt[13]]*(16385 - 1411*Sqrt[13] + 16*(13*(16 - 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]) + 16*(13*(16 + 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]))) + 3*(143 - 78*Sqrt[3])^(1/3)*(-12636 + 17010*Sqrt[13] + 18*(143 + 78*Sqrt[3])^(1/3)*(162*Sqrt[13] + Sqrt[2*(541385 - 96457*Sqrt[13])]) + Sqrt[13 + 2*Sqrt[13]]*(16385 - 1411*Sqrt[13] + 16*(13*(16 - 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]) + 16*(13*(16 + 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13])))))]/3] - Sqrt[3]*Sin[ArcTan[Sqrt[-26240827392*(-1794 + 546*Sqrt[13] - 286*(143 - 78*Sqrt[3])^(1/3) - 13*(143 - 78*Sqrt[3])^(2/3) + 26*13^(1/6)*(11 - 6*Sqrt[3])^(2/3) + 17*13^(5/6)*(11 + 6*Sqrt[3])^(1/3) + 26*13^(1/6)*(11 + 6*Sqrt[3])^(2/3) + 54*13^(5/6)*(16 + 9*Sqrt[3])^(1/3) - 286*(143 + 78*Sqrt[3])^(1/3) - 13*(143 + 78*Sqrt[3])^(2/3) + 26*13^(7/12)*(11 + 6*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]] + 65*13^(7/12)*(16 + 9*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]] + 624*Sqrt[13 + 2*Sqrt[13]] - 156*Sqrt[169 + 26*Sqrt[13]] - 286*(11 + 6*Sqrt[3])^(1/3)*(325 + 86*Sqrt[13])^(1/6) - 91*(16 + 9*Sqrt[3])^(1/3)*(325 + 86*Sqrt[13])^(1/6) + 13^(1/12)*(11 - 6*Sqrt[3])^(1/3)*(17*13^(3/4) - 78*Sqrt[-2 + 10*Sqrt[13]]) + 13^(1/12)*(16 - 9*Sqrt[3])^(1/3)*(54*13^(3/4) + 39*Sqrt[-18 + 26*Sqrt[13]]))^3 - 116985856*(1541592 - 151632*Sqrt[13] + 37908*(143 - 78*Sqrt[3])^(1/3) + 101088*(13*(16 - 9*Sqrt[3]))^(1/3) - 51030*13^(5/6)*(11 - 6*Sqrt[3])^(1/3) - 56862*13^(1/6)*(11 - 6*Sqrt[3])^(2/3) - 51030*13^(5/6)*(11 + 6*Sqrt[3])^(1/3) - 56862*13^(1/6)*(11 + 6*Sqrt[3])^(2/3) + 2916*13^(5/6)*(16 + 9*Sqrt[3])^(1/3) + 101088*(13*(16 + 9*Sqrt[3]))^(1/3) + 37908*(143 + 78*Sqrt[3])^(1/3) + (16 - 9*Sqrt[3])^(1/3)*(2916*13^(5/6) + 38986*13^(7/12)*Sqrt[2 + Sqrt[13]]) + 13^(1/12)*Sqrt[2 + Sqrt[13]]*(-180804*13^(1/6) + 120588*13^(2/3) - 49010*(16 - 9*Sqrt[3])^(1/3) + 3*(11 - 6*Sqrt[3])^(1/3)*(18343 - 16385*Sqrt[13]) + 3*(11 + 6*Sqrt[3])^(1/3)*(18343 - 16385*Sqrt[13]) + 9*13^(1/3)*(11 + 6*Sqrt[3])^(2/3)*(2249 - 1039*Sqrt[13]) + (117*(2249 - 1039*Sqrt[13]))/(229 + 132*Sqrt[3])^(1/3) + 48*(182 - 39*Sqrt[3])^(1/3)*(52 - 17*Sqrt[13]) + 32*13^(1/3)*(16 + 9*Sqrt[3])^(2/3)*(52 - 17*Sqrt[13]) + 48*(182 + 39*Sqrt[3])^(1/3)*(52 - 17*Sqrt[13]) + (416*(52 - 17*Sqrt[13]))/(499 + 288*Sqrt[3])^(1/3) - 624*13^(1/6)*(-2 + Sqrt[3])*(-17 + 4*Sqrt[13]) + 624*13^(1/6)*(2 + Sqrt[3])*(-17 + 4*Sqrt[13]) + 2*(16 + 9*Sqrt[3])^(1/3)*(-24505 + 19493*Sqrt[13])))^2]/(10816*(-1541592 + 37908*Sqrt[13] - 972*(13*(16 - 9*Sqrt[3]))^(1/3)*(104 + 3*Sqrt[13]) - 972*(13*(16 + 9*Sqrt[3]))^(1/3)*(104 + 3*Sqrt[13]) + 27*13^(1/6)*(11 - 6*Sqrt[3])^(2/3)*(2106 + Sqrt[26*(541385 - 96457*Sqrt[13])]) + 27*13^(1/6)*(11 + 6*Sqrt[3])^(2/3)*(2106 + Sqrt[26*(541385 - 96457*Sqrt[13])]) + 2*13^(1/4)*Sqrt[2 + Sqrt[13]]*(-31161 - 40053*Sqrt[13] + 1885*13^(5/6)*(16 - 9*Sqrt[3])^(1/3) - 19493*(13*(16 - 9*Sqrt[3]))^(1/3) + 16*13^(1/6)*(16 - 9*Sqrt[3])^(2/3)*(-52 + 17*Sqrt[13]) + 16*13^(1/6)*(16 + 9*Sqrt[3])^(2/3)*(-52 + 17*Sqrt[13]) + (13*(16 + 9*Sqrt[3]))^(1/3)*(-19493 + 1885*Sqrt[13])) + 3*(143 + 78*Sqrt[3])^(1/3)*(-12636 + 17010*Sqrt[13] + Sqrt[13 + 2*Sqrt[13]]*(16385 - 1411*Sqrt[13] + 16*(13*(16 - 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]) + 16*(13*(16 + 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]))) + 3*(143 - 78*Sqrt[3])^(1/3)*(-12636 + 17010*Sqrt[13] + 18*(143 + 78*Sqrt[3])^(1/3)*(162*Sqrt[13] + Sqrt[2*(541385 - 96457*Sqrt[13])]) + Sqrt[13 + 2*Sqrt[13]]*(16385 - 1411*Sqrt[13] + 16*(13*(16 - 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]) + 16*(13*(16 + 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13])))))]/3]))/5616 + ((26*((11 - 6*Sqrt[3])^(2/3) + (11 + 6*Sqrt[3])^(2/3))*(13/(29246464*(-1541592 + 37908*Sqrt[13] - 972*(13*(16 - 9*Sqrt[3]))^(1/3)*(104 + 3*Sqrt[13]) - 972*(13*(16 + 9*Sqrt[3]))^(1/3)*(104 + 3*Sqrt[13]) + 27*13^(1/6)*(11 - 6*Sqrt[3])^(2/3)*(2106 + Sqrt[26*(541385 - 96457*Sqrt[13])]) + 27*13^(1/6)*(11 + 6*Sqrt[3])^(2/3)*(2106 + Sqrt[26*(541385 - 96457*Sqrt[13])]) + 2*13^(1/4)*Sqrt[2 + Sqrt[13]]*(-31161 - 40053*Sqrt[13] + 1885*13^(5/6)*(16 - 9*Sqrt[3])^(1/3) - 19493*(13*(16 - 9*Sqrt[3]))^(1/3) + 16*13^(1/6)*(16 - 9*Sqrt[3])^(2/3)*(-52 + 17*Sqrt[13]) + 16*13^(1/6)*(16 + 9*Sqrt[3])^(2/3)*(-52 + 17*Sqrt[13]) + (13*(16 + 9*Sqrt[3]))^(1/3)*(-19493 + 1885*Sqrt[13])) + 3*(143 + 78*Sqrt[3])^(1/3)*(-12636 + 17010*Sqrt[13] + Sqrt[13 + 2*Sqrt[13]]*(16385 - 1411*Sqrt[13] + 16*(13*(16 - 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]) + 16*(13*(16 + 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]))) + 3*(143 - 78*Sqrt[3])^(1/3)*(-12636 + 17010*Sqrt[13] + 18*(143 + 78*Sqrt[3])^(1/3)*(162*Sqrt[13] + Sqrt[2*(541385 - 96457*Sqrt[13])]) + Sqrt[13 + 2*Sqrt[13]]*(16385 - 1411*Sqrt[13] + 16*(13*(16 - 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]) + 16*(13*(16 + 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]))))^2 + (-26240827392*(-1794 + 546*Sqrt[13] - 286*(143 - 78*Sqrt[3])^(1/3) - 13*(143 - 78*Sqrt[3])^(2/3) + 26*13^(1/6)*(11 - 6*Sqrt[3])^(2/3) + 17*13^(5/6)*(11 + 6*Sqrt[3])^(1/3) + 26*13^(1/6)*(11 + 6*Sqrt[3])^(2/3) + 54*13^(5/6)*(16 + 9*Sqrt[3])^(1/3) - 286*(143 + 78*Sqrt[3])^(1/3) - 13*(143 + 78*Sqrt[3])^(2/3) + 26*13^(7/12)*(11 + 6*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]] + 65*13^(7/12)*(16 + 9*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]] + 624*Sqrt[13 + 2*Sqrt[13]] - 156*Sqrt[169 + 26*Sqrt[13]] - 286*(11 + 6*Sqrt[3])^(1/3)*(325 + 86*Sqrt[13])^(1/6) - 91*(16 + 9*Sqrt[3])^(1/3)*(325 + 86*Sqrt[13])^(1/6) + 13^(1/12)*(11 - 6*Sqrt[3])^(1/3)*(17*13^(3/4) - 78*Sqrt[-2 + 10*Sqrt[13]]) + 13^(1/12)*(16 - 9*Sqrt[3])^(1/3)*(54*13^(3/4) + 39*Sqrt[-18 + 26*Sqrt[13]]))^3 - 116985856*(1541592 - 151632*Sqrt[13] + 37908*(143 - 78*Sqrt[3])^(1/3) + 101088*(13*(16 - 9*Sqrt[3]))^(1/3) - 51030*13^(5/6)*(11 - 6*Sqrt[3])^(1/3) - 56862*13^(1/6)*(11 - 6*Sqrt[3])^(2/3) - 51030*13^(5/6)*(11 + 6*Sqrt[3])^(1/3) - 56862*13^(1/6)*(11 + 6*Sqrt[3])^(2/3) + 2916*13^(5/6)*(16 + 9*Sqrt[3])^(1/3) + 101088*(13*(16 + 9*Sqrt[3]))^(1/3) + 37908*(143 + 78*Sqrt[3])^(1/3) + (16 - 9*Sqrt[3])^(1/3)*(2916*13^(5/6) + 38986*13^(7/12)*Sqrt[2 + Sqrt[13]]) + 13^(1/12)*Sqrt[2 + Sqrt[13]]*(-180804*13^(1/6) + 120588*13^(2/3) - 49010*(16 - 9*Sqrt[3])^(1/3) + 3*(11 - 6*Sqrt[3])^(1/3)*(18343 - 16385*Sqrt[13]) + 3*(11 + 6*Sqrt[3])^(1/3)*(18343 - 16385*Sqrt[13]) + 9*13^(1/3)*(11 + 6*Sqrt[3])^(2/3)*(2249 - 1039*Sqrt[13]) + (117*(2249 - 1039*Sqrt[13]))/(229 + 132*Sqrt[3])^(1/3) + 48*(182 - 39*Sqrt[3])^(1/3)*(52 - 17*Sqrt[13]) + 32*13^(1/3)*(16 + 9*Sqrt[3])^(2/3)*(52 - 17*Sqrt[13]) + 48*(182 + 39*Sqrt[3])^(1/3)*(52 - 17*Sqrt[13]) + (416*(52 - 17*Sqrt[13]))/(499 + 288*Sqrt[3])^(1/3) - 624*13^(1/6)*(-2 + Sqrt[3])*(-17 + 4*Sqrt[13]) + 624*13^(1/6)*(2 + Sqrt[3])*(-17 + 4*Sqrt[13]) + 2*(16 + 9*Sqrt[3])^(1/3)*(-24505 + 19493*Sqrt[13])))^2)/4))^(1/6) + (546*Sqrt[13] - 13*(143 - 78*Sqrt[3])^(2/3) + 54*13^(5/6)*(16 - 9*Sqrt[3])^(1/3) + 17*13^(5/6)*(11 - 6*Sqrt[3])^(1/3) + 17*13^(5/6)*(11 + 6*Sqrt[3])^(1/3) + 54*13^(5/6)*(16 + 9*Sqrt[3])^(1/3) - 13*(143 + 78*Sqrt[3])^(2/3) + 624*13^(1/4)*Sqrt[2 + Sqrt[13]] - 156*13^(3/4)*Sqrt[2 + Sqrt[13]] - 91*13^(1/12)*(16 - 9*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]] + 65*13^(7/12)*(16 - 9*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]] - 286*13^(1/12)*(11 + 6*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]] + 26*13^(7/12)*(11 + 6*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]] - 91*13^(1/12)*(16 + 9*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]] + 65*13^(7/12)*(16 + 9*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]] + 26*(11 - 6*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]]*(-11*13^(1/12) + 13^(7/12)) - 26*(69 + 11*(143 - 78*Sqrt[3])^(1/3) + 11*(143 + 78*Sqrt[3])^(1/3)))/(29246464*(-1541592 + 37908*Sqrt[13] - 972*(13*(16 - 9*Sqrt[3]))^(1/3)*(104 + 3*Sqrt[13]) - 972*(13*(16 + 9*Sqrt[3]))^(1/3)*(104 + 3*Sqrt[13]) + 27*13^(1/6)*(11 - 6*Sqrt[3])^(2/3)*(2106 + Sqrt[26*(541385 - 96457*Sqrt[13])]) + 27*13^(1/6)*(11 + 6*Sqrt[3])^(2/3)*(2106 + Sqrt[26*(541385 - 96457*Sqrt[13])]) + 2*13^(1/4)*Sqrt[2 + Sqrt[13]]*(-31161 - 40053*Sqrt[13] + 1885*13^(5/6)*(16 - 9*Sqrt[3])^(1/3) - 19493*(13*(16 - 9*Sqrt[3]))^(1/3) + 16*13^(1/6)*(16 - 9*Sqrt[3])^(2/3)*(-52 + 17*Sqrt[13]) + 16*13^(1/6)*(16 + 9*Sqrt[3])^(2/3)*(-52 + 17*Sqrt[13]) + (13*(16 + 9*Sqrt[3]))^(1/3)*(-19493 + 1885*Sqrt[13])) + 3*(143 + 78*Sqrt[3])^(1/3)*(-12636 + 17010*Sqrt[13] + Sqrt[13 + 2*Sqrt[13]]*(16385 - 1411*Sqrt[13] + 16*(13*(16 - 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]) + 16*(13*(16 + 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]))) + 3*(143 - 78*Sqrt[3])^(1/3)*(-12636 + 17010*Sqrt[13] + 18*(143 + 78*Sqrt[3])^(1/3)*(162*Sqrt[13] + Sqrt[2*(541385 - 96457*Sqrt[13])]) + Sqrt[13 + 2*Sqrt[13]]*(16385 - 1411*Sqrt[13] + 16*(13*(16 - 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]) + 16*(13*(16 + 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]))))^2 + (-26240827392*(-1794 + 546*Sqrt[13] - 286*(143 - 78*Sqrt[3])^(1/3) - 13*(143 - 78*Sqrt[3])^(2/3) + 26*13^(1/6)*(11 - 6*Sqrt[3])^(2/3) + 17*13^(5/6)*(11 + 6*Sqrt[3])^(1/3) + 26*13^(1/6)*(11 + 6*Sqrt[3])^(2/3) + 54*13^(5/6)*(16 + 9*Sqrt[3])^(1/3) - 286*(143 + 78*Sqrt[3])^(1/3) - 13*(143 + 78*Sqrt[3])^(2/3) + 26*13^(7/12)*(11 + 6*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]] + 65*13^(7/12)*(16 + 9*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]] + 624*Sqrt[13 + 2*Sqrt[13]] - 156*Sqrt[169 + 26*Sqrt[13]] - 286*(11 + 6*Sqrt[3])^(1/3)*(325 + 86*Sqrt[13])^(1/6) - 91*(16 + 9*Sqrt[3])^(1/3)*(325 + 86*Sqrt[13])^(1/6) + 13^(1/12)*(11 - 6*Sqrt[3])^(1/3)*(17*13^(3/4) - 78*Sqrt[-2 + 10*Sqrt[13]]) + 13^(1/12)*(16 - 9*Sqrt[3])^(1/3)*(54*13^(3/4) + 39*Sqrt[-18 + 26*Sqrt[13]]))^3 - 116985856*(1541592 - 151632*Sqrt[13] + 37908*(143 - 78*Sqrt[3])^(1/3) + 101088*(13*(16 - 9*Sqrt[3]))^(1/3) - 51030*13^(5/6)*(11 - 6*Sqrt[3])^(1/3) - 56862*13^(1/6)*(11 - 6*Sqrt[3])^(2/3) - 51030*13^(5/6)*(11 + 6*Sqrt[3])^(1/3) - 56862*13^(1/6)*(11 + 6*Sqrt[3])^(2/3) + 2916*13^(5/6)*(16 + 9*Sqrt[3])^(1/3) + 101088*(13*(16 + 9*Sqrt[3]))^(1/3) + 37908*(143 + 78*Sqrt[3])^(1/3) + (16 - 9*Sqrt[3])^(1/3)*(2916*13^(5/6) + 38986*13^(7/12)*Sqrt[2 + Sqrt[13]]) + 13^(1/12)*Sqrt[2 + Sqrt[13]]*(-180804*13^(1/6) + 120588*13^(2/3) - 49010*(16 - 9*Sqrt[3])^(1/3) + 3*(11 - 6*Sqrt[3])^(1/3)*(18343 - 16385*Sqrt[13]) + 3*(11 + 6*Sqrt[3])^(1/3)*(18343 - 16385*Sqrt[13]) + 9*13^(1/3)*(11 + 6*Sqrt[3])^(2/3)*(2249 - 1039*Sqrt[13]) + (117*(2249 - 1039*Sqrt[13]))/(229 + 132*Sqrt[3])^(1/3) + 48*(182 - 39*Sqrt[3])^(1/3)*(52 - 17*Sqrt[13]) + 32*13^(1/3)*(16 + 9*Sqrt[3])^(2/3)*(52 - 17*Sqrt[13]) + 48*(182 + 39*Sqrt[3])^(1/3)*(52 - 17*Sqrt[13]) + (416*(52 - 17*Sqrt[13]))/(499 + 288*Sqrt[3])^(1/3) - 624*13^(1/6)*(-2 + Sqrt[3])*(-17 + 4*Sqrt[13]) + 624*13^(1/6)*(2 + Sqrt[3])*(-17 + 4*Sqrt[13]) + 2*(16 + 9*Sqrt[3])^(1/3)*(-24505 + 19493*Sqrt[13])))^2)/4)^(1/6))*(Cos[ArcTan[Sqrt[-26240827392*(-1794 + 546*Sqrt[13] - 286*(143 - 78*Sqrt[3])^(1/3) - 13*(143 - 78*Sqrt[3])^(2/3) + 26*13^(1/6)*(11 - 6*Sqrt[3])^(2/3) + 17*13^(5/6)*(11 + 6*Sqrt[3])^(1/3) + 26*13^(1/6)*(11 + 6*Sqrt[3])^(2/3) + 54*13^(5/6)*(16 + 9*Sqrt[3])^(1/3) - 286*(143 + 78*Sqrt[3])^(1/3) - 13*(143 + 78*Sqrt[3])^(2/3) + 26*13^(7/12)*(11 + 6*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]] + 65*13^(7/12)*(16 + 9*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]] + 624*Sqrt[13 + 2*Sqrt[13]] - 156*Sqrt[169 + 26*Sqrt[13]] - 286*(11 + 6*Sqrt[3])^(1/3)*(325 + 86*Sqrt[13])^(1/6) - 91*(16 + 9*Sqrt[3])^(1/3)*(325 + 86*Sqrt[13])^(1/6) + 13^(1/12)*(11 - 6*Sqrt[3])^(1/3)*(17*13^(3/4) - 78*Sqrt[-2 + 10*Sqrt[13]]) + 13^(1/12)*(16 - 9*Sqrt[3])^(1/3)*(54*13^(3/4) + 39*Sqrt[-18 + 26*Sqrt[13]]))^3 - 116985856*(1541592 - 151632*Sqrt[13] + 37908*(143 - 78*Sqrt[3])^(1/3) + 101088*(13*(16 - 9*Sqrt[3]))^(1/3) - 51030*13^(5/6)*(11 - 6*Sqrt[3])^(1/3) - 56862*13^(1/6)*(11 - 6*Sqrt[3])^(2/3) - 51030*13^(5/6)*(11 + 6*Sqrt[3])^(1/3) - 56862*13^(1/6)*(11 + 6*Sqrt[3])^(2/3) + 2916*13^(5/6)*(16 + 9*Sqrt[3])^(1/3) + 101088*(13*(16 + 9*Sqrt[3]))^(1/3) + 37908*(143 + 78*Sqrt[3])^(1/3) + (16 - 9*Sqrt[3])^(1/3)*(2916*13^(5/6) + 38986*13^(7/12)*Sqrt[2 + Sqrt[13]]) + 13^(1/12)*Sqrt[2 + Sqrt[13]]*(-180804*13^(1/6) + 120588*13^(2/3) - 49010*(16 - 9*Sqrt[3])^(1/3) + 3*(11 - 6*Sqrt[3])^(1/3)*(18343 - 16385*Sqrt[13]) + 3*(11 + 6*Sqrt[3])^(1/3)*(18343 - 16385*Sqrt[13]) + 9*13^(1/3)*(11 + 6*Sqrt[3])^(2/3)*(2249 - 1039*Sqrt[13]) + (117*(2249 - 1039*Sqrt[13]))/(229 + 132*Sqrt[3])^(1/3) + 48*(182 - 39*Sqrt[3])^(1/3)*(52 - 17*Sqrt[13]) + 32*13^(1/3)*(16 + 9*Sqrt[3])^(2/3)*(52 - 17*Sqrt[13]) + 48*(182 + 39*Sqrt[3])^(1/3)*(52 - 17*Sqrt[13]) + (416*(52 - 17*Sqrt[13]))/(499 + 288*Sqrt[3])^(1/3) - 624*13^(1/6)*(-2 + Sqrt[3])*(-17 + 4*Sqrt[13]) + 624*13^(1/6)*(2 + Sqrt[3])*(-17 + 4*Sqrt[13]) + 2*(16 + 9*Sqrt[3])^(1/3)*(-24505 + 19493*Sqrt[13])))^2]/(10816*(-1541592 + 37908*Sqrt[13] - 972*(13*(16 - 9*Sqrt[3]))^(1/3)*(104 + 3*Sqrt[13]) - 972*(13*(16 + 9*Sqrt[3]))^(1/3)*(104 + 3*Sqrt[13]) + 27*13^(1/6)*(11 - 6*Sqrt[3])^(2/3)*(2106 + Sqrt[26*(541385 - 96457*Sqrt[13])]) + 27*13^(1/6)*(11 + 6*Sqrt[3])^(2/3)*(2106 + Sqrt[26*(541385 - 96457*Sqrt[13])]) + 2*13^(1/4)*Sqrt[2 + Sqrt[13]]*(-31161 - 40053*Sqrt[13] + 1885*13^(5/6)*(16 - 9*Sqrt[3])^(1/3) - 19493*(13*(16 - 9*Sqrt[3]))^(1/3) + 16*13^(1/6)*(16 - 9*Sqrt[3])^(2/3)*(-52 + 17*Sqrt[13]) + 16*13^(1/6)*(16 + 9*Sqrt[3])^(2/3)*(-52 + 17*Sqrt[13]) + (13*(16 + 9*Sqrt[3]))^(1/3)*(-19493 + 1885*Sqrt[13])) + 3*(143 + 78*Sqrt[3])^(1/3)*(-12636 + 17010*Sqrt[13] + Sqrt[13 + 2*Sqrt[13]]*(16385 - 1411*Sqrt[13] + 16*(13*(16 - 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]) + 16*(13*(16 + 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]))) + 3*(143 - 78*Sqrt[3])^(1/3)*(-12636 + 17010*Sqrt[13] + 18*(143 + 78*Sqrt[3])^(1/3)*(162*Sqrt[13] + Sqrt[2*(541385 - 96457*Sqrt[13])]) + Sqrt[13 + 2*Sqrt[13]]*(16385 - 1411*Sqrt[13] + 16*(13*(16 - 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]) + 16*(13*(16 + 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13])))))]/3] - Sqrt[3]*Sin[ArcTan[Sqrt[-26240827392*(-1794 + 546*Sqrt[13] - 286*(143 - 78*Sqrt[3])^(1/3) - 13*(143 - 78*Sqrt[3])^(2/3) + 26*13^(1/6)*(11 - 6*Sqrt[3])^(2/3) + 17*13^(5/6)*(11 + 6*Sqrt[3])^(1/3) + 26*13^(1/6)*(11 + 6*Sqrt[3])^(2/3) + 54*13^(5/6)*(16 + 9*Sqrt[3])^(1/3) - 286*(143 + 78*Sqrt[3])^(1/3) - 13*(143 + 78*Sqrt[3])^(2/3) + 26*13^(7/12)*(11 + 6*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]] + 65*13^(7/12)*(16 + 9*Sqrt[3])^(1/3)*Sqrt[2 + Sqrt[13]] + 624*Sqrt[13 + 2*Sqrt[13]] - 156*Sqrt[169 + 26*Sqrt[13]] - 286*(11 + 6*Sqrt[3])^(1/3)*(325 + 86*Sqrt[13])^(1/6) - 91*(16 + 9*Sqrt[3])^(1/3)*(325 + 86*Sqrt[13])^(1/6) + 13^(1/12)*(11 - 6*Sqrt[3])^(1/3)*(17*13^(3/4) - 78*Sqrt[-2 + 10*Sqrt[13]]) + 13^(1/12)*(16 - 9*Sqrt[3])^(1/3)*(54*13^(3/4) + 39*Sqrt[-18 + 26*Sqrt[13]]))^3 - 116985856*(1541592 - 151632*Sqrt[13] + 37908*(143 - 78*Sqrt[3])^(1/3) + 101088*(13*(16 - 9*Sqrt[3]))^(1/3) - 51030*13^(5/6)*(11 - 6*Sqrt[3])^(1/3) - 56862*13^(1/6)*(11 - 6*Sqrt[3])^(2/3) - 51030*13^(5/6)*(11 + 6*Sqrt[3])^(1/3) - 56862*13^(1/6)*(11 + 6*Sqrt[3])^(2/3) + 2916*13^(5/6)*(16 + 9*Sqrt[3])^(1/3) + 101088*(13*(16 + 9*Sqrt[3]))^(1/3) + 37908*(143 + 78*Sqrt[3])^(1/3) + (16 - 9*Sqrt[3])^(1/3)*(2916*13^(5/6) + 38986*13^(7/12)*Sqrt[2 + Sqrt[13]]) + 13^(1/12)*Sqrt[2 + Sqrt[13]]*(-180804*13^(1/6) + 120588*13^(2/3) - 49010*(16 - 9*Sqrt[3])^(1/3) + 3*(11 - 6*Sqrt[3])^(1/3)*(18343 - 16385*Sqrt[13]) + 3*(11 + 6*Sqrt[3])^(1/3)*(18343 - 16385*Sqrt[13]) + 9*13^(1/3)*(11 + 6*Sqrt[3])^(2/3)*(2249 - 1039*Sqrt[13]) + (117*(2249 - 1039*Sqrt[13]))/(229 + 132*Sqrt[3])^(1/3) + 48*(182 - 39*Sqrt[3])^(1/3)*(52 - 17*Sqrt[13]) + 32*13^(1/3)*(16 + 9*Sqrt[3])^(2/3)*(52 - 17*Sqrt[13]) + 48*(182 + 39*Sqrt[3])^(1/3)*(52 - 17*Sqrt[13]) + (416*(52 - 17*Sqrt[13]))/(499 + 288*Sqrt[3])^(1/3) - 624*13^(1/6)*(-2 + Sqrt[3])*(-17 + 4*Sqrt[13]) + 624*13^(1/6)*(2 + Sqrt[3])*(-17 + 4*Sqrt[13]) + 2*(16 + 9*Sqrt[3])^(1/3)*(-24505 + 19493*Sqrt[13])))^2]/(10816*(-1541592 + 37908*Sqrt[13] - 972*(13*(16 - 9*Sqrt[3]))^(1/3)*(104 + 3*Sqrt[13]) - 972*(13*(16 + 9*Sqrt[3]))^(1/3)*(104 + 3*Sqrt[13]) + 27*13^(1/6)*(11 - 6*Sqrt[3])^(2/3)*(2106 + Sqrt[26*(541385 - 96457*Sqrt[13])]) + 27*13^(1/6)*(11 + 6*Sqrt[3])^(2/3)*(2106 + Sqrt[26*(541385 - 96457*Sqrt[13])]) + 2*13^(1/4)*Sqrt[2 + Sqrt[13]]*(-31161 - 40053*Sqrt[13] + 1885*13^(5/6)*(16 - 9*Sqrt[3])^(1/3) - 19493*(13*(16 - 9*Sqrt[3]))^(1/3) + 16*13^(1/6)*(16 - 9*Sqrt[3])^(2/3)*(-52 + 17*Sqrt[13]) + 16*13^(1/6)*(16 + 9*Sqrt[3])^(2/3)*(-52 + 17*Sqrt[13]) + (13*(16 + 9*Sqrt[3]))^(1/3)*(-19493 + 1885*Sqrt[13])) + 3*(143 + 78*Sqrt[3])^(1/3)*(-12636 + 17010*Sqrt[13] + Sqrt[13 + 2*Sqrt[13]]*(16385 - 1411*Sqrt[13] + 16*(13*(16 - 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]) + 16*(13*(16 + 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]))) + 3*(143 - 78*Sqrt[3])^(1/3)*(-12636 + 17010*Sqrt[13] + 18*(143 + 78*Sqrt[3])^(1/3)*(162*Sqrt[13] + Sqrt[2*(541385 - 96457*Sqrt[13])]) + Sqrt[13 + 2*Sqrt[13]]*(16385 - 1411*Sqrt[13] + 16*(13*(16 - 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13]) + 16*(13*(16 + 9*Sqrt[3]))^(1/3)*(17 - 4*Sqrt[13])))))]/3]))/3
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment