Skip to content

Instantly share code, notes, and snippets.

@VladimirReshetnikov

VladimirReshetnikov/Root.m

Created September 10, 2019 01:49
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/ddc81559880a7ff8175d4207c7e4d82e to your computer and use it in GitHub Desktop.
Save VladimirReshetnikov/ddc81559880a7ff8175d4207c7e4d82e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Root.m
(-2 + Sqrt[3] + ((5/3)^(1/4)*(3 + Sqrt[15]))/Sqrt[2] - 2^(1/4)/Sqrt[3/(37*Sqrt[2]
- 10*3^(3/4)*5^(1/4) - 10*3^(1/4)*5^(3/4) - 18*Sqrt[6] - 16*Sqrt[10] + 21*15^(1/4)
+ 7*15^(3/4) + 6*Sqrt[30] + 8*2^(1/4)*Sqrt[108*Sqrt[2] - 39*3^(3/4)*5^(1/4)
- 35*3^(1/4)*5^(3/4) - 57*Sqrt[6] - 44*Sqrt[10] + 67*15^(1/4) + 19*15^(3/4)
+ 25*Sqrt[30]]*Cos[ArcTan[(6*Sqrt[102*(201 - 116*Sqrt[3] - 90*Sqrt[5] + 52*Sqrt[15])
+ 3*Sqrt[2]*15^(1/4)*(2442 - 1409*Sqrt[3] - 1107*Sqrt[5] + 638*Sqrt[15])])
/(Sqrt[2]*15^(1/4)*(996 - 577*Sqrt[3] - 459*Sqrt[5] + 264*Sqrt[15])
+ 2*(1403 - 804*Sqrt[3] - 634*Sqrt[5] + 366*Sqrt[15]))]/3])] - Sqrt[(2*(74 - 36*Sqrt[3]
- 32*Sqrt[5] + 12*Sqrt[15] + Sqrt[2]*15^(1/4)*(21 - 10*Sqrt[3] - 10*Sqrt[5] + 7*Sqrt[15])
+ (4*2^(1/4)*(-216 + 114*Sqrt[3] + 88*Sqrt[5] - 50*Sqrt[15] + Sqrt[2]*15^(1/4)
*(-67 + 39*Sqrt[3] + 35*Sqrt[5] - 19*Sqrt[15]))*Cos[ArcTan[(6*Sqrt[102*(201
- 116*Sqrt[3] - 90*Sqrt[5] + 52*Sqrt[15]) + 3*Sqrt[2]*15^(1/4)*(2442 - 1409*Sqrt[3]
- 1107*Sqrt[5] + 638*Sqrt[15])])/(2806 - 1608*Sqrt[3] - 1268*Sqrt[5] + 732*Sqrt[15]
+ Sqrt[2]*15^(1/4)*(996 - 577*Sqrt[3] - 459*Sqrt[5] + 264*Sqrt[15]))]/3]^3)
/Sqrt[108*Sqrt[2] - 39*3^(3/4)*5^(1/4) - 35*3^(1/4)*5^(3/4) - 57*Sqrt[6]
- 44*Sqrt[10] + 67*15^(1/4) + 19*15^(3/4) + 25*Sqrt[30]] + 6*2^(3/4)*(51 - 29*Sqrt[3]
- 21*Sqrt[5] + 14*Sqrt[15] + (15^(1/4)*(35 - 20*Sqrt[3] - 18*Sqrt[5] + 9*Sqrt[15]))
/Sqrt[2])*Sqrt[3/(37*Sqrt[2] - 10*3^(3/4)*5^(1/4) - 10*3^(1/4)*5^(3/4) - 18*Sqrt[6]
- 16*Sqrt[10] + 21*15^(1/4) + 7*15^(3/4) + 6*Sqrt[30] + 8*2^(1/4)*Sqrt[108*Sqrt[2]
- 39*3^(3/4)*5^(1/4) - 35*3^(1/4)*5^(3/4) - 57*Sqrt[6] - 44*Sqrt[10] + 67*15^(1/4)
+ 19*15^(3/4) + 25*Sqrt[30]]*Cos[ArcTan[(6*Sqrt[102*(201 - 116*Sqrt[3] - 90*Sqrt[5]
+ 52*Sqrt[15]) + 3*Sqrt[2]*15^(1/4)*(2442 - 1409*Sqrt[3] - 1107*Sqrt[5]
+ 638*Sqrt[15])])/(Sqrt[2]*15^(1/4)*(996 - 577*Sqrt[3] - 459*Sqrt[5] + 264*Sqrt[15])
+ 2*(1403 - 804*Sqrt[3] - 634*Sqrt[5] + 366*Sqrt[15]))]/3])] - 2*2^(3/4)*Sqrt[108*Sqrt[2]
- 39*3^(3/4)*5^(1/4) - 35*3^(1/4)*5^(3/4) - 57*Sqrt[6] - 44*Sqrt[10] + 67*15^(1/4)
+ 19*15^(3/4) + 25*Sqrt[30]]*Sin[ArcTan[(6*Sqrt[102*(201 - 116*Sqrt[3] - 90*Sqrt[5]
+ 52*Sqrt[15]) + 3*Sqrt[2]*15^(1/4)*(2442 - 1409*Sqrt[3] - 1107*Sqrt[5]
+ 638*Sqrt[15])])/(2806 - 1608*Sqrt[3] - 1268*Sqrt[5] + 732*Sqrt[15] + Sqrt[2]*15^(1/4)
*(996 - 577*Sqrt[3] - 459*Sqrt[5] + 264*Sqrt[15]))]/3]*Sin[(2*ArcTan[(6*Sqrt[102*(201
- 116*Sqrt[3] - 90*Sqrt[5] + 52*Sqrt[15]) + 3*Sqrt[2]*15^(1/4)*(2442 - 1409*Sqrt[3]
- 1107*Sqrt[5] + 638*Sqrt[15])])/(2806 - 1608*Sqrt[3] - 1268*Sqrt[5] + 732*Sqrt[15]
+ Sqrt[2]*15^(1/4)*(996 - 577*Sqrt[3] - 459*Sqrt[5] + 264*Sqrt[15]))])/3]))/3])/8
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment