Go to the first, previous, next, last section, table of contents.


sp, sp_noalg

sp(poly)
sp_noalg(poly)
:: 最小分解体を求める.
return
リスト
poly
多項式
[101] L=sp(x^9-54);
[[x+(-#2),-54*x+(#1^6*#2^4),54*x+(#1^6*#2^4+54*#2),54*x+(-#1^8*#2^2),
-54*x+(#1^5*#2^5),54*x+(#1^5*#2^5+#1^8*#2^2),-54*x+(-#1^7*#2^3-54*#1),
54*x+(-#1^7*#2^3),x+(-#1)],[[(#2),t#2^6+t#1^3*t#2^3+t#1^6],[(#1),t#1^9-54]]]
[102] for(I=0,M=1;I<9;I++)M*=L[0][I];
[111] M=simpalg(M);
-1338925209984*x^9+72301961339136
[112] ptozp(M);
-x^9+54
参照
section asq, af, af_noalg, section defpoly, section algptorat, section sp_norm.


Go to the first, previous, next, last section, table of contents.