(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      1763,         64]
NotebookOptionsPosition[      1420,         47]
NotebookOutlinePosition[      1765,         62]
CellTagsIndexPosition[      1722,         59]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Knotentheorie", "Title"],

Cell[BoxData[
 RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Orange", ",", " ", 
     RowBox[{"Specularity", "[", 
      RowBox[{"White", ",", "70"}], "]"}], ",", 
     RowBox[{"KnotData", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"8", ",", "3"}], "}"}], ",", "\"\<ImageData\>\""}], "]"}]}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Boxed", "\[Rule]", " ", "False"}], ",", 
   RowBox[{"ViewPoint", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0.1", ",", "5"}], "}"}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.445326787671875*^9, 3.445326796484375*^9}, {
   3.4453269145*^9, 3.44532697215625*^9}, {3.445327304578125*^9, 
   3.44532731021875*^9}, 3.445327992453125*^9},
 CellID->1246035072]
}, Open  ]]
},
WindowSize->{1016, 1180},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 30, 0, 83, "Title"],
Cell[600, 24, 804, 20, 92, "Input",
 CellID->1246035072]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
