(* 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[      1703,         64]
NotebookOptionsPosition[      1279,         47]
NotebookOutlinePosition[      1720,         64]
CellTagsIndexPosition[      1677,         61]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"(", 
    FractionBox[
     RowBox[{"1", "+", "I"}], 
     SqrtBox["2"]], ")"}], "1000"], "+", 
  SuperscriptBox[
   RowBox[{"(", 
    FractionBox[
     RowBox[{"1", "-", "I"}], 
     SqrtBox["2"]], ")"}], "1000"]}]], "Input",
 CellChangeTimes->{{3.5360890176848526`*^9, 3.53608911314142*^9}}],

Cell[BoxData[
 RowBox[{"z", "=", 
  RowBox[{"1", "-", "I"}]}]], "Input",
 CellChangeTimes->{{3.53609118552706*^9, 3.536091194481476*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Conjugate", "[", "z", "]"}], "-", "z", "-", 
  RowBox[{"2", 
   FractionBox[
    RowBox[{"Conjugate", "[", "z", "]"}], "z"]}]}]], "Input",
 CellChangeTimes->{{3.536091206649497*^9, 3.5360912439647627`*^9}}]
},
WindowSize->{939, 606},
WindowMargins->{{-5, Automatic}, {Automatic, 1}},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 2., 2. Inherited],
FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 346, 12, 106, "Input"],
Cell[894, 34, 137, 3, 57, "Input"],
Cell[1034, 39, 241, 6, 87, "Input"]
}
]
*)

(* End of internal cache information *)
