(* 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[      2480,         89]
NotebookOptionsPosition[      1945,         69]
NotebookOutlinePosition[      2388,         86]
CellTagsIndexPosition[      2345,         83]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"z1", "=", 
  RowBox[{"3", "+", 
   RowBox[{"2", "I"}]}]}]], "Input",
 CellChangeTimes->{{3.5360033069593472`*^9, 3.5360033276449833`*^9}}],

Cell[BoxData[
 RowBox[{"z2", "=", 
  RowBox[{"2", "+", "I"}]}]], "Input",
 CellChangeTimes->{{3.536003505890897*^9, 3.5360035386665545`*^9}}],

Cell[BoxData[
 RowBox[{"z", "=", 
  RowBox[{"x", "+", 
   RowBox[{"y", " ", "I"}]}]}]], "Input",
 CellChangeTimes->{{3.5360035545473824`*^9, 3.5360035622537956`*^9}}],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"z", "\[Times]", 
   RowBox[{"Conjugate", "[", "z1", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.536003576481021*^9, 3.536003613109885*^9}}],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"z", "/", "z2"}], "]"}]], "Input",
 CellChangeTimes->{{3.5360036464471436`*^9, 3.53600366156357*^9}}],

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"3", "x"}], "+", 
       RowBox[{"2", "y"}]}], "\[Equal]", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        FractionBox["x", "5"]}], "+", 
       FractionBox[
        RowBox[{"2", "y"}], "5"]}], "==", 
      FractionBox["3", "5"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.536003954017284*^9, 3.5360041368496046`*^9}}]
},
WindowSize->{951, 606},
WindowMargins->{{0, Automatic}, {Automatic, -2}},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 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, 162, 4, 43, "Input"],
Cell[710, 26, 141, 3, 43, "Input"],
Cell[854, 31, 166, 4, 43, "Input"],
Cell[1023, 37, 200, 4, 43, "Input"],
Cell[1226, 43, 157, 3, 43, "Input"],
Cell[1386, 48, 555, 19, 70, "Input"]
}
]
*)

(* End of internal cache information *)
