[back] [prev] [next] [index] [root]
OrderIsSubfield(o1, o2);
order | o1 |
|
order | o2 |
kash> o1 := Order (Z,2,3); Generating polynomial: x^2 - 3 kash> o2 := Order (o1, 2, 2); F[1] / / E1[1] / / Q F [ 1] x^2 - 2 E 1[ 1] x^2 - 3 kash> M := EltRepMat (Elt (o2,[[0,1], 1]),Z)[2]; [0 3 2 0] [1 0 0 2] [1 0 0 3] [0 1 1 0] kash> o3 := Order (MatMinPoly (M)); Generating polynomial: x^4 - 10*x^2 + 1 kash> EltMove (Elt (o1,[0,1]), o3); [0, -11, 0, 1] / 2 kash> OrderIsSubfield (o1, o3); > true
<- back[back] [prev] [next] [index] [root]