|
Author |
hbghlyj
Post time 2024-4-13 21:46
四元:- In[]:= Collect[PolynomialRemainder[Times@@((p^2-4 q)^2+4 (p^3-4 p q+16 r) x^2+2 (3 p^2-4 q) x^4+4 p x^6+x^8/.r->r+q c/.q->q+p c/.p->p+c/.{{x->x-Sqrt[c]},{x->x+Sqrt[c]}})//Expand,c^4+p c^3+q c^2+r c+s,c],x]
- Out[]= p^8-16 p^6 q+96 p^4 q^2-256 p^2 q^3+256 q^4-128 p^4 s+1024 p^2 q s-2048 q^2 s+4096 s^2+(8 p^7-96 p^5 q+384 p^3 q^2-512 p q^3+128 p^4 r-1024 p^2 q r+2048 q^2 r+1536 p^3 s-6144 p q s+8192 r s) x^2+(28 p^6-240 p^4 q+576 p^2 q^2-256 q^3+512 p^3 r-2048 p q r+4096 r^2+1280 p^2 s-7168 q s) x^4+(56 p^5-320 p^3 q+384 p q^2+768 p^2 r-1024 q r-2560 p s) x^6+(70 p^4-240 p^2 q+96 q^2+512 p r-2176 s) x^8+(56 p^3-96 p q+128 r) x^10+(28 p^2-16 q) x^12+8 p x^14+x^16
Copy the Code
$x^4+px^3+qx^2+rx+s=0$的根$x_1,x_2,x_3,x_4$的平方根之和的极小多项式为$$\prod_{\mu_1,\dots,\mu_4\in\{\pm1\}}(x-(\mu_1\sqrt{x_1}+\dots+\mu_4\sqrt{x_4}))=(((x^2 + p)^2 - 4 q)^2 + 64r x^2 + 64 s)^2 -
256 s (-3 x^4-2 p x^2+p^2-4 q)^2$$
$\sqrt{x_1}+\dots+\sqrt{x_3}$的有理化就是常数项的平方根:$$\prod_{\mu_2,\dots,\mu_4\in\{\pm1\}}(\sqrt{x_1}+\mu_2\sqrt{x_2}+\dots+\mu_4\sqrt{x_4})=(p^2-4 q)^2-64 s$$
验证:- In[]:= Sum[(-1)^i x^(2^4-i)Factor[SymmetricReduction[Expand[SymmetricPolynomial[i,Total/@Tuples[{{Sqrt[a],-Sqrt[a]},{Sqrt[b],-Sqrt[b]},{Sqrt[c],-Sqrt[c]},{Sqrt[d],-Sqrt[d]}}]]],{a,b,c,d},{-p,q,-r,s}][[1]]],{i,0,2^4,2}]
- Out[]= (p^4-8 p^2 q+16 q^2-64 s)^2+8 (p^7-12 p^5 q+48 p^3 q^2-64 p q^3+16 p^4 r-128 p^2 q r+256 q^2 r+192 p^3 s-768 p q s+1024 r s) x^2+4 (7 p^6-60 p^4 q+144 p^2 q^2-64 q^3+128 p^3 r-512 p q r+1024 r^2+320 p^2 s-1792 q s) x^4+8 (7 p^5-40 p^3 q+48 p q^2+96 p^2 r-128 q r-320 p s) x^6+2 (35 p^4-120 p^2 q+48 q^2+256 p r-1088 s) x^8+8 (7 p^3-12 p q+16 r) x^10+4 (7 p^2-4 q) x^12+8 p x^14+x^16
Copy the Code |
|