免費論壇 繁體 | 簡體
Sclub交友聊天~加入聊天室當版主
分享
返回列表 发帖

筛选某类有理数域上的可约多项式

Table[With[{expr = (x^2 + p*x + q)^2 + (x^2 + u*x + v)^2},
     If[p*q*u*v != 0 && SquareFreeQ[expr] && ! IrreduciblePolynomialQ[expr],
      expr == Factor[expr], Nothing]],
     {p, 1, 5}, {q, p, 5}, {u, q, 5}, {v, u, 5}] // Flatten // Column // TraditionalForm

\begin{alignat*}{3}
(x^2+x+1)^2+{}&&(x^2+2x+3)^2={}&&(x^2+2x+2) &&(2x^2+2x+5)\\
(x^2+x+2)^2+{}&&(x^2+3x+4)^2={}&&2 (x^2+2x+2) &&(x^2+2x+5)\\
(x^2+x+3)^2+{}&&(x^2+4x+5)^2={}&&(x^2+2x+2) &&(2x^2+6x+17)\\
(x^2+2x+3)^2+{}&&(x^2+3x+3)^2={}&&(x^2+2x+2)&&(2x^2+6x+9)\\
(x^2+2x+4)^2+{}&&(x^2+4x+4)^2={}&&2(x^2+2x+2)&&(x^2+4x+8)\\
(x^2+2x+5)^2+{}&&(x^2+5x+5)^2={}&&(x^2+2x+2){}&&(2x^2+10x+25)\\
(x^2+3x+3)^2 +{}&&(x^2+4x+4)^2={}&&(x^2+4x+5)&&(2x^2+6x+5)\\
(x^2+4x+5)^2+{}&&(x^2+5x+5)^2={}&&(x^2+6x+10)&&(2x^2+6x+5)
\end{alignat*}
分享到: QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友

内容看不懂,只说说后面那代码,最后一列的 && 应该去掉一个,即
\begin{alignat*}{3}
(x^2+x+1)^2+{}&&(x^2+2x+3)^2={}&&(x^2+2x+2)&(2x^2+2x+5)\\
.......

TOP

返回列表 回复 发帖