(* 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[      1330,         54]
NotebookOptionsPosition[      1002,         37]
NotebookOutlinePosition[      1351,         53]
CellTagsIndexPosition[      1308,         50]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{"Sphere", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", "1"}], "]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.592173288210931*^9, 3.592173296204467*^9}}],

Cell[BoxData[
 Graphics3DBox[SphereBox[{0, 0, 1}, 1]]], "Output",
 CellChangeTimes->{{3.592173273362707*^9, 3.592173296939927*^9}}]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) \
(2008\:5e7412\:670810\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 285, 8, 27, "Input"],
Cell[855, 32, 131, 2, 406, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

