Rechnungen in der Vorlesung MAT3 vom 21.12.2006

<<  poliesModP4.m

(* 
      Konstruktion eines Körpers mit 2^16 Elementen *) 
f  =  x^2;

    While [
      Not [IsIrreduciblePoly 
[f, x, 
          2]], 
f  =  
        x^16  +  RandomPoly [x,  15,  2]]

f

f1  =  f

Map [Function [x, x^2],  {2, 3, 4}]

Map[Function[x, x[[1]]], FactorInteger[456]]

FactorInteger [456]

f1

alpha  =  x;
While [
      Not[IsPrimitiveElement [alpha, f1, x, 
          2]], 
alpha  =  
        RandomPoly [x, 3, 2]]

alpha

n  =  2^16  -  1

FactorInteger [n]

PolyPowerModP [alpha,  n/3,  f1,  x,  2]