|
本帖最后由 hbghlyj 于 2022-12-20 15:34 编辑
最后一个是减号是因为在 mma 里, 负数 的分数次幂是复数
它写成正数的开方, 就不会歧义了.
$1,7,-8$满足$x^3\equiv1\pmod{19}$
$2,3,-5$满足$x^3\equiv8\pmod{19}$
$4,6,-10$满足$x^3\equiv7\pmod{19}$
Function[x,MinimalPolynomial[Cos[x[[1]]Pi/19]Cos[x[[2]]Pi/19]Cos[x[[3]]Pi/19],t]]/@{{1,7,8},{2,3,5},{4,6,10}}
可见,这三个cos×cos×cos的极小多项式都是$512 t^3-320 t^2+16 t+1$
可以推广到mod 27. 对于{{5,14,23},{7,16,25},{1,10,19}} 它们是公差为9的等差数列
Function[x,MinimalPolynomial[Cos[x[[1]]Pi/27]Cos[x[[2]]Pi/27]Cos[x[[3]]Pi/27],t]]/@{{5,14,23},{7,16,25},{1,10,19}}
可见,这三个cos×cos×cos的极小多项式都是$512 t^3-24 t+1$,而且
\begin{equation}\sqrt[3]{\cos\left(\frac{5 \pi }{27}\right) \cos\left(\frac{14 \pi }{27}\right) \cos\left(\frac{23 \pi }{27}\right)}+\sqrt[3]{\cos\left(\frac{7 \pi }{27}\right) \cos\left(\frac{16 \pi }{27}\right) \cos\left(\frac{25 \pi }{27}\right)}+\sqrt[3]{\cos\left(\frac{ \pi }{27}\right) \cos\left(\frac{10 \pi }{27}\right) \cos\left(\frac{19 \pi }{27}\right)}=\frac{1}{2} \sqrt[3]{3 \left(3^{2/3}-2\right)}
\label x\end{equation}
Mathematica代码
(Cos[5π/27] Cos[14π/27] Cos[23π/27])^(1/3)+(Cos[7π/27] Cos[16π/27] Cos[25π/27])^(1/3)-(-Cos[π/27] Cos[10π/27] Cos[19π/27])^(1/3)//RootReduce//ToRadicals
使用三倍角公式
\begin{align*}
\frac{1}{4} \cos \left(\frac{10 \pi }{9}\right)&=\cos \left(\frac{\pi }{27}\right) \cos \left(\frac{10 \pi }{27}\right)
\cos \left(\frac{19 \pi }{27}\right)\\
\frac{1}{4} \cos \left(\frac{4 \pi }{9}\right)&=\cos \left(\frac{5 \pi }{27}\right) \cos \left(\frac{14 \pi }{27}\right) \cos \left(\frac{23 \pi }{27}\right)\\
\frac{1}{4} \cos \left(\frac{2 \pi }{9}\right)&=\cos \left(\frac{7 \pi }{27}\right) \cos \left(\frac{16 \pi }{27}\right) \cos \left(\frac{25 \pi }{27}\right)
\end{align*}
将\eqref{x}化为\eqref{y}. |
|