(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      3401,        114]
NotebookOptionsPosition[      2971,         96]
NotebookOutlinePosition[      3308,        111]
CellTagsIndexPosition[      3265,        108]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"a", "=", 
  RowBox[{
   RowBox[{"x", "^", "2"}], "+", "x", "+", "2"}]}]], "Input",
 CellChangeTimes->{{3.438331449947403*^9, 3.4383314560038633`*^9}, {
  3.438331873097884*^9, 3.438331878027858*^9}}],

Cell[BoxData[
 RowBox[{"Factor", "[", 
  RowBox[{"a", ",", 
   RowBox[{"Modulus", "\[Rule]", "3"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4383314612157393`*^9, 3.438331474188191*^9}}],

Cell[TextData[{
 "Sei also ",
 StyleBox["a(x)",
  FontSlant->"Italic"],
 " das Minimalpolynom von \[Alpha]."
}], "Text",
 CellChangeTimes->{{3.438331496737364*^9, 3.438331525868072*^9}}],

Cell[BoxData[
 RowBox[{"Fq", "=", 
  RowBox[{"Flatten", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"a", " ", "x"}], "+", "b"}], ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"b", ",", "0", ",", "2"}], "}"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.438331549857622*^9, 3.4383315668203497`*^9}, {
  3.4383316412681503`*^9, 3.438331730108191*^9}, {3.438331762286962*^9, 
  3.438331763468203*^9}, {3.4383318921606092`*^9, 3.4383319016779537`*^9}, {
  3.4383319501515503`*^9, 3.4383319528763113`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"PolynomialMod", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Fq", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "+", 
       RowBox[{"Fq", "[", 
        RowBox[{"[", "j", "]"}], "]"}]}], ",", "a", ",", 
      RowBox[{"Modulus", "\[Rule]", " ", "3"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "9"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "9"}], "}"}]}], "]"}], "/.", 
  RowBox[{"x", "\[Rule]", "\[Alpha]"}]}]], "Input",
 CellChangeTimes->{{3.438332021239134*^9, 3.4383320343516083`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"PolynomialMod", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Fq", "[", 
        RowBox[{"[", "i", "]"}], "]"}], 
       RowBox[{"Fq", "[", 
        RowBox[{"[", "j", "]"}], "]"}]}], ",", "a", ",", 
      RowBox[{"Modulus", "\[Rule]", " ", "3"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "9"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "9"}], "}"}]}], "]"}], "/.", 
  RowBox[{"x", "\[Rule]", "\[Alpha]"}]}]], "Input",
 CellChangeTimes->{{3.438331904171077*^9, 3.438332042065349*^9}}]
},
WindowSize->{862, 789},
WindowMargins->{{167, Automatic}, {Automatic, 24}},
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 223, 5, 33, "Input"],
Cell[794, 28, 186, 4, 33, "Input"],
Cell[983, 34, 186, 6, 32, "Text"],
Cell[1172, 42, 602, 14, 33, "Input"],
Cell[1777, 58, 597, 17, 53, "Input"],
Cell[2377, 77, 590, 17, 53, "Input"]
}
]
*)

(* End of internal cache information *)