Skip to content

Instantly share code, notes, and snippets.

@VladimirReshetnikov
Created September 15, 2019 21:53
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/c8562d4a75c8b6accbe33d31ca5a4552 to your computer and use it in GitHub Desktop.
Save VladimirReshetnikov/c8562d4a75c8b6accbe33d31ca5a4552 to your computer and use it in GitHub Desktop.
(7 Cos[ArcTan[15 √3]/3] (-676 + 390 √13 + 15 13^(5/6) (11 - 6 √3)^(1/3) + 15 13^(5/6) (11 + 6 √3)^(1/3) - 5 (13 (16 + 9 √3))^(1/3) (-38 + (13 (9301831256 + 5187457323 √3))^(1/3)) + 8320 (13 (16 + 9 √3))^(2/3) Cos[2 ArcTan[15 √3]/3]) - Cos[ArcTan[15 √3]/3]^2 (-5642 + 13^(5/6) (16 + 9 √3)^(1/3) (255 Cos[ArcTan[15 √3]/6] + 1456 Sin[ArcTan[15 √3]/6])) - Sin[ArcTan[15 √3]/3] (910 √39 + 245 √3 13^(5/6) (11 - 6 √3)^(1/3) - 294 (39 (27 + 16 √3))^(1/3) - 7 13^(1/6) (16 + 9 √3)^(2/3) (210 - 175 √3 - 276 √13 + 75 √39) + 2184 (13 (16 + 9 √3))^(2/3) Cos[2 ArcTan[15 √3]/3] + (3822 - 5 13^(5/6) (16 + 9 √3)^(1/3) (79 Cos[ArcTan[15 √3]/6] + 78 √3 Sin[ArcTan[15 √3]/6])) Sin[ArcTan[15 √3]/3]) - Sqrt[-38220 (3692 Cos[ArcTan[15 √3]/3]^2 + Cos[ArcTan[15 √3]/3] (-4732 + 765 √13 - 345 13^(2/3) (6 (81 + 43 √3))^(1/3) + 26 (13 (16 + 9 √3))^(1/3) (5 (1 + 9 √3) Cos[ArcTan[15 √3]/6] + 3 (-51 + 5 √3) Sin[ArcTan[15 √3]/6]) + 6 13^(1/6) (16 + 9 √3)^(2/3) (5 (-98 - 83 √3 + 40 √13 + 21 √39) Cos[ArcTan[15 √3]/6] + 3 (429 - 137 √13) Sin[ArcTan[15 √3]/6])) + Sin[ArcTan[15 √3]/3] (-225 √39 + 13^(2/3) (224014666 + 166343058 √3)^(1/3) + 6 13^(1/6) (52 13^(1/6) (16 + 9 √3)^(1/3) (-4 + 3 √13) + (16 + 9 √3)^(2/3) (552 + 385 √3 + 14 √13 - 235 √39)) Cos[ArcTan[15 √3]/6] + 10 (663 13^(1/6) (16 + 9 √3)^(2/3) - 219 (13 (16 + 9 √3))^(2/3) + 26 (13 (16 + 9 √3))^(1/3) (-5 + 2 √13)) Sin[ArcTan[15 √3]/6] + 988 Sin[ArcTan[15 √3]/3] - 780 √13 Sin[ArcTan[15 √3]/3])) + (-7 Cos[ArcTan[15 √3]/3] (-676 + 390 √13 + 15 13^(5/6) (11 - 6 √3)^(1/3) + 15 13^(5/6) (11 + 6 √3)^(1/3) - 5 (13 (16 + 9 √3))^(1/3) (-38 + (13 (9301831256 + 5187457323 √3))^(1/3)) + 8320 (13 (16 + 9 √3))^(2/3) Cos[2 ArcTan[15 √3]/3]) + Cos[ArcTan[15 √3]/3]^2 (-5642 + 13^(5/6) (16 + 9 √3)^(1/3) (255 Cos[ArcTan[15 √3]/6] + 1456 Sin[ArcTan[15 √3]/6])) + Sin[ArcTan[15 √3]/3] (910 √39 + 245 √3 13^(5/6) (11 - 6 √3)^(1/3) - 294 (39 (27 + 16 √3))^(1/3) - 7 13^(1/6) (16 + 9 √3)^(2/3) (210 - 175 √3 - 276 √13 + 75 √39) + 2184 (13 (16 + 9 √3))^(2/3) Cos[2 ArcTan[15 √3]/3] + (3822 - 5 13^(5/6) (16 + 9 √3)^(1/3) (79 Cos[ArcTan[15 √3]/6] + 78 √3 Sin[ArcTan[15 √3]/6])) Sin[ArcTan[15 √3]/3]))^2])/16380
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment