|
本帖最后由 青青子衿 于 2024-6-24 20:27 编辑 如下表达式中,嵌套根式里还能分离出来一个二次代数数吗?
\begin{align*}
x_6=\frac{55}{3}+7 \sqrt{5}+\frac{1}{3}(5\sqrt{2}+2\sqrt{10}) \sqrt{159+11 \sqrt{5}}\cos \left(\frac{1}{3} \arctan\left(\frac{6 (1873-828\sqrt{5}) \sqrt{363-42 \sqrt{5}}}{80209}\right)\right)
\end{align*}
- 2000 - 21000*x + 21625*x^2 - 8650*x^3 + 1555*x^4 - 110*x^5 + x^6
- MinimalPolynomial[
- 55/3 + 7 Sqrt[5] +
- 1/3 (5 (74720 + 33417 Sqrt[5] -
- 6 I (20 + 9 Sqrt[5]) Sqrt[363 - 42 Sqrt[5]]))^(1/3) +
- 1/3 (5 (74720 + 33417 Sqrt[5] +
- 6 I (20 + 9 Sqrt[5]) Sqrt[363 - 42 Sqrt[5]]))^(1/3), x]
- NSolve[2000 - 21000 x + 21625 x^2 - 8650 x^3 + 1555 x^4 - 110 x^5 +
- x^6 == 0, x]
- 55/3 + 7 Sqrt[5] +
- 1/3 (5 (74720 + 33417 Sqrt[5] -
- 6 I (20 + 9 Sqrt[5]) Sqrt[363 - 42 Sqrt[5]]))^(1/3) +
- 1/3 (5 (74720 + 33417 Sqrt[5] +
- 6 I (20 + 9 Sqrt[5]) Sqrt[363 - 42 Sqrt[5]]))^(
- 1/3) // ComplexExpand
- MinimalPolynomial[
- 55/3 + 7 Sqrt[5] + (Sqrt[2] (5 + 2 Sqrt[5]) Sqrt[159 + 11 Sqrt[5]])/
- 3 Cos[1/3 ArcTan[(6 (1873 - 828 Sqrt[5]) Sqrt[363 - 42 Sqrt[5]])/
- 80209]], x]
- 55/3 + 7 Sqrt[5] + (Sqrt[2] (5 + 2 Sqrt[5]) Sqrt[159 + 11 Sqrt[5]])/
- 3 Cos[1/3 ArcTan[(6 (1873 - 828 Sqrt[5]) Sqrt[363 - 42 Sqrt[5]])/
- 80209]] // N
- 55/3 + 7 Sqrt[5] - (Sqrt[2] (5 + 2 Sqrt[5]) Sqrt[159 + 11 Sqrt[5]])/
- 3 Cos[1/3 ArcTan[(6 (1873 - 828 Sqrt[5]) Sqrt[363 - 42 Sqrt[5]])/
- 80209] + \[Pi]/3] // N
- 55/3 + 7 Sqrt[5] - (Sqrt[2] (5 + 2 Sqrt[5]) Sqrt[159 + 11 Sqrt[5]])/
- 3 Cos[1/3 ArcTan[(6 (1873 - 828 Sqrt[5]) Sqrt[363 - 42 Sqrt[5]])/
- 80209] - \[Pi]/3] // N
- 55/3 - 7 Sqrt[5] - (Sqrt[2] (5 - 2 Sqrt[5]) Sqrt[159 - 11 Sqrt[5]])/
- 3 Cos[1/3 ArcTan[(6 (1873 + 828 Sqrt[5]) Sqrt[363 + 42 Sqrt[5]])/
- 80209]] // N
- 55/3 - 7 Sqrt[5] + (Sqrt[2] (5 - 2 Sqrt[5]) Sqrt[159 - 11 Sqrt[5]])/
- 3 Cos[1/3 ArcTan[(6 (1873 + 828 Sqrt[5]) Sqrt[363 + 42 Sqrt[5]])/
- 80209] + \[Pi]/3] // N
- 55/3 - 7 Sqrt[5] + (Sqrt[2] (5 - 2 Sqrt[5]) Sqrt[159 - 11 Sqrt[5]])/
- 3 Cos[1/3 ArcTan[(6 (1873 + 828 Sqrt[5]) Sqrt[363 + 42 Sqrt[5]])/
- 80209] - \[Pi]/3] // N
复制代码 |
|