Nebenrechnungen in der Vorlesung MAT3 am 16.11.2006

f [x_]  :=  Mod [x^25  -  x,  5]

f[0]

f[1]

f[2]

f[3]

f[4]

f[0]

g [x_]  :=  Mod [x^5 + 4  x,  5]

MatrixForm [Table [{x, g[x]},  {x, 0, 4}]]

h [x_]  :=  
      Mod [(x - 3) (x - 5) (x - 96),  101]

MatrixForm [Table [{x, h[x]},  {x, 0, 100}]]

f  = Expand [(x - 3) (x - 5) (x - 96)]

<<   Math/poliesModP4.m

PolynomialQuotientP [f,  x - 6,  x,  101]

PolynomialRemainderP [f,  x - 6,  x,  101]

f  =  (x - 2) (x - 4)

f  =  Expand [f]

f  =   .

f[x_]  := Mod [ x^2  + x + 1, 7]

(* 
      Suchen der Nullstellen von f *) 
Table [{x, f[x]},  {x, 0, 6}]

Table [{alpha,  
        PolynomialRemainderP [x^2  + x +  1,  x - alpha, x, 
          7]}, 
{alpha, 0, 6}]