(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    162338,       5290]
NotebookOptionsPosition[    136444,       4647]
NotebookOutlinePosition[    150818,       4976]
CellTagsIndexPosition[    150440,       4963]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "Math 421  ",
 StyleBox["\[FilledSmallCircle]",
  FontSlant->"Plain"],
 "  Fall 2010"
}], "Subsubtitle",
 CellChangeTimes->{{3.491932055484375*^9, 3.4919320560625*^9}},
 TextAlignment->Center,
 TextJustification->0],

Cell[CellGroupData[{

Cell["Cartesian and polar forms of complex numbers", "Subtitle",
 TextAlignment->Center,
 TextJustification->0],

Cell["14 September 2010", "Subsubtitle",
 CellChangeTimes->{{3.490874635953125*^9, 3.49087464390625*^9}, 
   3.490907179140625*^9, 3.491167197609375*^9, {3.49193205175*^9, 
   3.49193205225*^9}, {3.492518926453125*^9, 3.492518929578125*^9}, {
   3.493461250984375*^9, 3.4934612513125*^9}},
 TextAlignment->Center],

Cell["\<\
Based upon a notebook authored by David Park.
New material and arrangement Copyright \[Copyright] 2004\[Dash]2010 by Murray \
Eisenberg. All rights reserved.\
\>", "SmallText",
 CellChangeTimes->{{3.49087462759375*^9, 3.490874627890625*^9}, 
   3.49087470490625*^9, {3.491932085203125*^9, 3.49193210259375*^9}, {
   3.4919322084375*^9, 3.491932244375*^9}},
 TextAlignment->Center,
 TextJustification->0],

Cell[TextData[{
 "When you open this notebook, you should see a pop-up window asking whether \
you want to evaluate the Initialization Cells. You should select ",
 StyleBox["Yes",
  FontFamily->"Helvetica",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 "."
}], "EmphasisText",
 CellChangeTimes->{
  3.490633836984375*^9, {3.49089844703125*^9, 3.490898447765625*^9}}],

Cell[TextData[{
 StyleBox["Explanation",
  FontSlant->"Italic"],
 ":  In the ",
 ButtonBox["Initialization section",
  BaseStyle->"Hyperlink",
  ButtonData->"initialization"],
 " below, there's an Input cell consisting of the expression\n\t",
 StyleBox["<<Presentations`",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "\nand  that cell has the property of being an \"initialization cell\".  \
When you answered yes, that cell was evaluated automatically, and this in \
effect loaded the ",
 StyleBox["Presentations",
  FontFamily->"Times",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 " application packages."
}], "SmallText",
 CellChangeTimes->{{3.490633867953125*^9, 3.490633922609375*^9}, {
  3.490650173484375*^9, 3.49065017828125*^9}, {3.490907105859375*^9, 
  3.490907106171875*^9}, {3.491166822984375*^9, 3.491166838875*^9}, {
  3.491166882828125*^9, 3.491166882828125*^9}, {3.491919896484375*^9, 
  3.49191991115625*^9}, {3.491934281078125*^9, 3.49193430771875*^9}},
 ParagraphSpacing->{0.7, 0}],

Cell[CellGroupData[{

Cell["Prerequisites", "Section",
 CellChangeTimes->{{3.491159034765625*^9, 3.491159037671875*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Mathematica",
 FontSlant->"Italic"]], "Subsection",
 CellChangeTimes->{{3.491159059828125*^9, 3.491159062328125*^9}}],

Cell[TextData[{
 "Some of the functions used in this notebook are built-in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " functions; others are provided by David Park's ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " add-on. See the notebook ",
 StyleBox["AboutPresentations.nb",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "."
}], "Text",
 CellChangeTimes->{{3.49087489640625*^9, 3.490874908515625*^9}, {
   3.49087660253125*^9, 3.49087661759375*^9}, {3.49087666071875*^9, 
   3.490876760109375*^9}, {3.490907300109375*^9, 3.490907301203125*^9}, {
   3.491402168046875*^9, 3.491402170171875*^9}, {3.491402209734375*^9, 
   3.49140226371875*^9}, 3.4914022980625*^9, {3.49140250896875*^9, 
   3.491402516921875*^9}}],

Cell[TextData[{
 "You should already have ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " available on the computer where you are using ",
 StyleBox["Mathematica.",
  FontSlant->"Italic"]
}], "Text",
 CellChangeTimes->{{3.49087489640625*^9, 3.490874908515625*^9}, {
  3.49087660253125*^9, 3.49087661759375*^9}, {3.49087666071875*^9, 
  3.490876760109375*^9}, {3.490907300109375*^9, 3.490907301203125*^9}, {
  3.491402168046875*^9, 3.491402170171875*^9}, {3.491402209734375*^9, 
  3.4914022918125*^9}}],

Cell[TextData[{
 "You should already know some of the basics about ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ": basic syntax; how to navigate around a ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " notebook; how to create an Input cell and type input into it; and how to \
evaluate an Input cell; how to use the Documentation Center for help; and how \
to open a palette."
}], "Text",
 CellChangeTimes->{{3.4911590738125*^9, 3.491159285734375*^9}, {
  3.491166982578125*^9, 3.491166982953125*^9}, {3.491402193890625*^9, 
  3.491402200390625*^9}, {3.4914037865*^9, 3.491403798703125*^9}}],

Cell[TextData[{
 "When you opened this notebook, you should have been prompted to let ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " evaluate Initialization cells. That automatically loads ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 ". If you didn't allow that, you should load ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " now: evaluate the initialization cell in the ",
 ButtonBox["Initialization section",
  BaseStyle->"Hyperlink",
  ButtonData->"initialization"],
 " below."
}], "Text",
 CellChangeTimes->{{3.4911590738125*^9, 3.491159135453125*^9}, {
  3.49115930428125*^9, 3.491159382515625*^9}, {3.4914019053125*^9, 
  3.491401908109375*^9}, {3.49140233146875*^9, 3.491402390734375*^9}, {
  3.49140245890625*^9, 3.491402491609375*^9}, {3.49140259534375*^9, 
  3.49140264625*^9}}],

Cell[TextData[{
 "For information on how to get help about ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 ", see notebook ",
 StyleBox["AboutPresentations.nb",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "."
}], "Text",
 CellChangeTimes->{{3.49087489640625*^9, 3.490874908515625*^9}, {
   3.49087660253125*^9, 3.49087661759375*^9}, {3.49087666071875*^9, 
   3.490876760109375*^9}, {3.490907300109375*^9, 3.490907301203125*^9}, {
   3.4911589928125*^9, 3.49115901*^9}, {3.49140257375*^9, 3.4914025745625*^9},
    3.4914030055625*^9, {3.491934357390625*^9, 3.491934426421875*^9}}],

Cell[TextData[{
 "To read in the Documentation Center about the particular ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " functions used in this notebook, open the \[OpenCurlyDoubleQuote]Complex \
Routines\[CloseCurlyDoubleQuote] group on the \
\[OpenCurlyDoubleQuote]ComplexGraphics\[CloseCurlyDoubleQuote] guide page. \
(Search for \[OpenCurlyDoubleQuote]ComplexGraphics\[CloseCurlyDoubleQuote].) "
}], "Text",
 CellChangeTimes->{{3.4914028946875*^9, 3.491402922421875*^9}, {
  3.491402970765625*^9, 3.49140302678125*^9}, {3.491403063953125*^9, 
  3.491403088296875*^9}, {3.491403616578125*^9, 3.491403653890625*^9}}],

Cell[TextData[{
 "The ",
 StyleBox["PresentationsPalette",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " is useful for accessing the documentation and for forming templates of ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " functions. (For graphics here, you may also find useful the separate ",
 StyleBox["ComplexGraphics",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " palette. ) On ",
 StyleBox["PresentationsPalette",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ":\n\t\[FilledSmallCircle] templates of functions to convert complex numbers \
between different forms are in ",
 StyleBox["Drawing \[RightPointer] Complex Graphics \[RightPointer] \
Coordinates",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ";\n\t\[FilledSmallCircle] templates of functions to create complex graphics \
objects are in ",
 StyleBox["Drawing \[RightPointer] Complex Graphics \[RightPointer] \
Primitives",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "; and\n\t\[FilledSmallCircle] templates of functions to create a drawing of \
complex graphics objects are in ",
 StyleBox["Drawing \[RightPointer] DrawingPaper \[RightPointer] Graphics",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " (the one you\[CloseCurlyQuote]ll want is ",
 StyleBox["Draw2D",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ")."
}], "Text",
 CellChangeTimes->{{3.491402670890625*^9, 3.49140273925*^9}, {
  3.49140277784375*^9, 3.49140288615625*^9}, {3.491403685546875*^9, 
  3.491403769828125*^9}},
 ParagraphSpacing->{0.5, 0}]
}, Closed]],

Cell[CellGroupData[{

Cell["Mathematics", "Subsection",
 CellChangeTimes->{{3.491159067078125*^9, 3.491159068140625*^9}}],

Cell["\<\
You should already know the basics of the algebra of complex numbers and the \
representation of complex numbers by points in the plane.\
\>", "Text",
 CellChangeTimes->{{3.491166994109375*^9, 3.49116708359375*^9}, 
   3.491954728671875*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Introduction", "Section",
 ShowGroupOpener->True],

Cell[TextData[{
 "This notebook concerns the ",
 "Cartesian",
 " (",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "+", 
    RowBox[{"\[ImaginaryI]", " ", "y"}]}], TraditionalForm]]],
 ") and polar (",
 Cell[BoxData[
  FormBox[
   RowBox[{"r", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"\[ImaginaryI]", " ", "\[Theta]"}]]}], TraditionalForm]]],
 ") forms of complex numbers. It discusses some functions that allow you to \
convert between the two forms. In particular, it discusses how to perform \
such conversions when the input is a symbolic expression that represents \
complex numbers\[LongDash]a situation that you may find especially \
frustrating."
}], "Text",
 CellChangeTimes->{{3.49087484890625*^9, 3.490874867625*^9}, {
   3.490907219828125*^9, 3.490907220703125*^9}, {3.49193494396875*^9, 
   3.491934997359375*^9}, 3.492518903890625*^9}],

Cell[TextData[{
 "All the input shown uses the display form ",
 StyleBox["\[ImaginaryI]",
  FontFamily->"Courier"],
 " obtained by typing ",
 StyleBox["\[EscapeKey]",
  FontSize->16],
 StyleBox["ii",
  FontFamily->"Courier"],
 StyleBox["\[EscapeKey]",
  FontSize->16],
 ", but everything would work identically if you typed ",
 StyleBox["I",
  FontFamily->"Courier"],
 " instead."
}], "Text",
 CellChangeTimes->{{3.491157816*^9, 3.4911578203125*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Initialization", "Section",
 ShowGroupOpener->True,
 CellChangeTimes->{3.4908745975625*^9},
 CellTags->"initialization"],

Cell[TextData[{
 "Load David Park's ",
 StyleBox["Presentations",
  FontFamily->"Times",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 " packages."
}], "Text",
 CellChangeTimes->{{3.490874601625*^9, 3.490874618765625*^9}}],

Cell[BoxData[
 RowBox[{"<<", "Presentations`"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.490874971453125*^9, 3.49087497475*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Cartesian form", "Section",
 ShowGroupOpener->True],

Cell[CellGroupData[{

Cell[TextData[{
 "Real and imaginary parts: ",
 StyleBox["Re",
  FontFamily->"Courier"],
 " and ",
 StyleBox["Im",
  FontFamily->"Courier"]
}], "Subsection",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.490907887546875*^9, 3.490907896953125*^9}}],

Cell[TextData[{
 "When a complex number ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 " is expressed as ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "+", 
    RowBox[{"y", " ", "\[ImaginaryI]"}]}], TraditionalForm]]],
 " with ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox["y", TraditionalForm]]],
 " real, that expression is called the ",
 "Cartesian",
 StyleBox[" form",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " of ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 "."
}], "Text",
 CellChangeTimes->{{3.49193407896875*^9, 3.49193416575*^9}, 3.492518904*^9}],

Cell[TextData[{
 "For a complex number ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"x", "+", 
     RowBox[{"y", " ", "\[ImaginaryI]"}]}]}], TraditionalForm]]],
 " given in ",
 "Cartesian",
 " form, its",
 StyleBox[" real part",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{"Re", "(", "x", ")"}], TraditionalForm]]],
 " is ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " and its ",
 StyleBox["imaginary part",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{"Im", "(", "z", ")"}], TraditionalForm]]],
 " is ",
 Cell[BoxData[
  FormBox["y", TraditionalForm]]],
 ". Note that the imaginary part is always a ",
 StyleBox["real",
  FontSlant->"Italic"],
 " number!"
}], "Text",
 CellChangeTimes->{{3.491408193453125*^9, 3.491408222734375*^9}, {
   3.491408263796875*^9, 3.491408322890625*^9}, {3.49193408759375*^9, 
   3.491934089515625*^9}, {3.491934189421875*^9, 3.4919342*^9}, 
   3.49251890409375*^9}],

Cell[TextData[{
 "To go from ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"x", "+", 
     RowBox[{"y", " ", "\[ImaginaryI]"}]}]}], TraditionalForm]]],
 " to ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"x", ",", "y"}], ")"}], TraditionalForm]]],
 " with ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " and ",
 Cell[BoxData[
  FormBox["y", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " real, the basic functions are the built-in ",
 StyleBox["Re",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain",
  FontColor->RGBColor[0, 0, 0]],
 " and ",
 StyleBox["Im",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 ":"
}], "Text",
 CellChangeTimes->{{3.490875022296875*^9, 3.4908750315625*^9}, {
  3.491403916671875*^9, 3.4914039568125*^9}}],

Cell[BoxData[
 RowBox[{"?", "Re"}]], "Input",
 CellChangeTimes->{{3.4914039455625*^9, 3.491403960171875*^9}}],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"?", "Im"}]}]], "Input",
 CellChangeTimes->{{3.491403946125*^9, 3.49140396259375*^9}}],

Cell[TextData[{
 "For a specific complex number ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"x", "+", 
     RowBox[{"y", " ", "\[ImaginaryI]"}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", there is no difficulty in extracting the real and imaginary parts:"
}], "Text",
 CellChangeTimes->{{3.49140389821875*^9, 3.491403931296875*^9}, {
  3.491403971015625*^9, 3.491403976203125*^9}, {3.49140835990625*^9, 
  3.491408368875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{"2", "+", 
    RowBox[{"3", " ", "\[ImaginaryI]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Re", "[", "z", "]"}], ",", 
   RowBox[{"Im", "[", "z", "]"}]}], "}"}]}], "Input",
 CellChangeTimes->{{3.490875042890625*^9, 3.490875056125*^9}}],

Cell["\<\
The next Input cell creates a drawing of that complex number along with its \
real and imaginary parts.\
\>", "Text",
 CellChangeTimes->{{3.491404124109375*^9, 3.491404145359375*^9}, {
  3.491404850703125*^9, 3.491404858609375*^9}, {3.491919928328125*^9, 
  3.4919199794375*^9}}],

Cell[TextData[{
 "[Don\[CloseCurlyQuote]t dwell for now on how the drawing is created. Just \
note that the whole thing was done with a ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " ",
 StyleBox["Draw2D",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " expression. In the list ",
 StyleBox["{",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 StyleBox["\[Ellipsis]",
  FontFamily->"Times",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 StyleBox["}",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " argument to ",
 StyleBox["Draw2D",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", there are a series of ",
 StyleBox["graphics directives",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " (for color and size, etc.) intermixed with ",
 StyleBox["graphics primitives",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " (",
 StyleBox["ComplexPoint",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", ",
 StyleBox["ComplexArrow",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", and, for annotation, ",
 StyleBox["ComplexText",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "). After that list there are ",
 StyleBox["graphics options",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " (",
 StyleBox["PlotRange",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", etc.) that affect the appearance of the overall drawing. All this is \
discussed in the notebook ",
 StyleBox["DrawingComplexObjects.nb",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ".]"
}], "Text",
 CellChangeTimes->{{3.491405132671875*^9, 3.491405309515625*^9}, {
  3.491405389234375*^9, 3.4914054353125*^9}, {3.491405762046875*^9, 
  3.491405776546875*^9}, {3.49140633290625*^9, 3.4914063350625*^9}, {
  3.491408394578125*^9, 3.49140839825*^9}, {3.491919987125*^9, 
  3.491919991984375*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{"2", "+", 
    RowBox[{"3", "\[ImaginaryI]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"CartesianDrawing", "=", 
  RowBox[{"Draw2D", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "Arrows", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Arrowheads", "[", "0.075", "]"}], ",", "Blue", ",", "Thick", 
      ",", "\[IndentingNewLine]", 
      RowBox[{"ComplexArrow", "[", 
       RowBox[{"{", 
        RowBox[{"0", ",", "z"}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"ComplexArrow", "[", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"Re", "[", "z", "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"ComplexArrow", "[", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{
          RowBox[{"Im", "[", "z", "]"}], "\[ImaginaryI]"}]}], "}"}], "]"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "Lines", " ", "*)"}], "\[IndentingNewLine]", "Black",
       ",", "Thin", ",", "Dashed", ",", "\[IndentingNewLine]", 
      RowBox[{"ComplexLine", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Re", "[", "z", "]"}], ",", "z"}], "}"}], "]"}], ",", 
      RowBox[{"ComplexLine", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Im", "[", "z", "]"}], "\[ImaginaryI]"}], ",", "z"}], "}"}],
        "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "Point", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Legacy", "@", "IndianRed"}], ",", 
      RowBox[{"PointSize", "[", "0.05", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"ComplexPoint", "[", "z", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "Labels", " ", "*)"}], "\[IndentingNewLine]", 
      "Black", ",", "\[IndentingNewLine]", 
      RowBox[{"ComplexText", "[", 
       RowBox[{
        RowBox[{"TraditionalForm", "@", 
         RowBox[{"HoldForm", "[", 
          RowBox[{"z", "\[Equal]", 
           RowBox[{"2", "+", 
            RowBox[{"3", "\[ImaginaryI]"}]}]}], "]"}]}], ",", 
        RowBox[{"2.9", "+", 
         RowBox[{"3.3", "\[ImaginaryI]"}]}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ComplexText", "[", 
       RowBox[{
        RowBox[{"TraditionalForm", "@", 
         RowBox[{"HoldForm", "[", 
          RowBox[{"Im", "[", "z", "]"}], "]"}]}], ",", 
        RowBox[{"2.65", "+", 
         RowBox[{"1.5", "\[ImaginaryI]"}]}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ComplexText", "[", 
       RowBox[{
        RowBox[{"TraditionalForm", "@", 
         RowBox[{"HoldForm", "[", 
          RowBox[{"Re", "[", "z", "]"}], "]"}]}], ",", 
        RowBox[{"1", "+", 
         RowBox[{"3.25", "\[ImaginaryI]"}]}]}], "]"}]}], 
     "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", "Options", " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.5"}], ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.5"}], ",", "4"}], "}"}]}], "}"}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Axes", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"PlotLabel", "\[Rule]", "\"\<Real and imaginary parts\>\""}], ",",
     "\[IndentingNewLine]", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", "12", "}"}]}], ",", 
    RowBox[{"Background", "\[Rule]", 
     RowBox[{"Legacy", "@", "Ivory"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"ImageSize", "\[Rule]", 
     RowBox[{"3", " ", "72"}]}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.491404147171875*^9, 3.49140481940625*^9}, {
   3.491404874984375*^9, 3.491405108828125*^9}, {3.491405459703125*^9, 
   3.491405522078125*^9}, {3.49140557584375*^9, 3.49140558934375*^9}, 
   3.491405666546875*^9, {3.491405706875*^9, 3.491405723875*^9}, {
   3.491405786109375*^9, 3.49140586040625*^9}, {3.491405918375*^9, 
   3.49140611884375*^9}, {3.491406193109375*^9, 3.4914062719375*^9}, {
   3.491406371*^9, 3.491406386625*^9}, {3.491406417984375*^9, 
   3.49140644046875*^9}, {3.49140647065625*^9, 3.491406515875*^9}, {
   3.491406561171875*^9, 3.4914066016875*^9}, {3.491406632484375*^9, 
   3.491407235359375*^9}, {3.4914073105625*^9, 3.491407507453125*^9}, {
   3.491407561921875*^9, 3.49140757578125*^9}, {3.49140761034375*^9, 
   3.49140770521875*^9}, {3.49140792171875*^9, 3.491407989234375*^9}, {
   3.49177078959375*^9, 3.491770845890625*^9}, {3.491861725625*^9, 
   3.491861727140625*^9}, {3.491911040828125*^9, 3.49191104225*^9}, 
   3.492518904125*^9}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " In the preceding drawing, what complex numbers are at the heads of the \
horizontal and vertical arrows?"
}], "Exercise",
 CellChangeTimes->{{3.491407791140625*^9, 3.4914078755*^9}, {
  3.491408043984375*^9, 3.491408049046875*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Copy and modify the input for the preceding drawing in order to produce a \
similar drawing for the complex number ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{
     RowBox[{"-", "3"}], "-", 
     RowBox[{"2", "\[ImaginaryI]"}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "."
}], "Exercise",
 CellChangeTimes->{{3.491407791140625*^9, 3.4914078755*^9}, {
  3.491408043984375*^9, 3.491408162109375*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " (a) Use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to express the real and imaginary parts of the sum ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "+", "w"}], TraditionalForm]]],
 " of two complex numbers in terms of the real and imaginary parts of ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox["w", TraditionalForm]]],
 ".\n(b) Use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to express the real and imaginary parts of the multiple ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Alpha]", " ", "z"}], TraditionalForm]]],
 " of a complex number ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 " by a real number ",
 Cell[BoxData[
  FormBox["\[Alpha]", TraditionalForm]]],
 " in terms of the real and imaginary parts of ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 ".\n(c) Use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to express the real and imaginary parts of the multiple ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[ImaginaryI]", " ", "z"}], TraditionalForm]]],
 " of a complex number ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 " in terms of the real and imaginary parts of ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 ".\n(d) Use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to express the real and imaginary parts of the product ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", " ", "w"}], TraditionalForm]]],
 " of two complex numbers in terms of the real and imaginary parts of the \
numbers ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox["w", TraditionalForm]]],
 "."
}], "Exercise",
 CellChangeTimes->{{3.491407791140625*^9, 3.4914078755*^9}, {
  3.491408043984375*^9, 3.491408162109375*^9}, {3.491415853890625*^9, 
  3.491416164515625*^9}},
 ParagraphSpacing->{0.5, 0.},
 CellTags->"exercReImProperties"],

Cell[TextData[{
 "An object such as ",
 StyleBox["2+3\[ImaginaryI]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " is regarded by ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " as being numeric:"
}], "Text",
 CellChangeTimes->{{3.49087506209375*^9, 3.4908750638125*^9}}],

Cell[BoxData[
 RowBox[{"NumericQ", "[", "z", "]"}]], "Input"],

Cell[TextData[{
 "And such an object is actually stored ",
 StyleBox["not",
  FontSlant->"Italic"],
 " as a sum of its real part and \[ImaginaryI] times its imaginary part, but \
rather as an object of type ",
 StyleBox["Complex",
  FontFamily->"Courier"],
 ":"
}], "Text"],

Cell[BoxData[{
 RowBox[{"Head", "[", "z", "]"}], "\n", 
 RowBox[{"FullForm", "[", "z", "]"}]}], "Input"],

Cell[TextData[{
 "Difficulty does arise when you have only a ",
 StyleBox["symbolic",
  FontSlant->"Italic"],
 " expression representing complex numbers. For example:"
}], "Text",
 CellChangeTimes->{3.490907401921875*^9}],

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"x", ",", "y"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", "+", "1"}], ")"}], "2"], "+", 
    RowBox[{"\[ImaginaryI]", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "-", 
        RowBox[{"x", " ", "y"}]}], ")"}], "2"]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Re", "[", "z", "]"}], ",", 
   RowBox[{"Im", "[", "z", "]"}]}], "}"}]}], "Input",
 CellChangeTimes->{{3.49087508346875*^9, 3.4908751128125*^9}}],

Cell[BoxData[
 RowBox[{"NumericQ", "[", "z", "]"}]], "Input",
 CellChangeTimes->{{3.490876090953125*^9, 3.49087609165625*^9}}],

Cell[TextData[{
 "The reason is that, ",
 StyleBox["by default, ",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["Mathematica",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" regards all symbolic variables representing numbers to be complex",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 "!"
}], "Text",
 CellChangeTimes->{
  3.48940428696875*^9, {3.489419769390625*^9, 3.489419937828125*^9}, {
   3.489420016078125*^9, 3.489420017734375*^9}, {3.48942006003125*^9, 
   3.489420061125*^9}, {3.490280766890625*^9, 3.49028080634375*^9}}],

Cell[TextData[{
 "You have to explicitly tell ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " when you want all such variables in an expression to be regarded, instead, \
as real. Do so by using the built-in function ",
 StyleBox["ComplexExpand",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 ". See the ",
 ButtonBox["next section",
  BaseStyle->"Hyperlink",
  ButtonData->"FunctionComplexExpand"],
 "."
}], "Text",
 CellChangeTimes->{
  3.48940428696875*^9, {3.489419769390625*^9, 3.489419937828125*^9}, {
   3.489420016078125*^9, 3.489420091171875*^9}, {3.490283492734375*^9, 
   3.49028349321875*^9}, {3.490875457546875*^9, 3.4908754719375*^9}, {
   3.49192004084375*^9, 3.491920065359375*^9}, {3.49192010628125*^9, 
   3.491920106296875*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Designating variables as real: ",
 StyleBox["ComplexExpand",
  FontFamily->"Courier"]
}], "Subsection",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.490876871984375*^9, 3.490876888796875*^9}, 
   3.49090790428125*^9},
 CellTags->"FunctionComplexExpand"],

Cell[TextData[{
 "To treat all symbolic variables in an expression for a complex number to be \
real, use ",
 StyleBox["ComplexExpand",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 "."
}], "EmphasisText",
 CellChangeTimes->{{3.491920395546875*^9, 3.49192043146875*^9}}],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"?", "ComplexExpand"}]}]], "Input"],

Cell["Look again at the symbolic example:", "Text"],

Cell[BoxData[
 RowBox[{"z", "=", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"x", "+", "1"}], ")"}], "2"], "+", 
   RowBox[{"\[ImaginaryI]", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", "-", 
       RowBox[{"x", " ", "y"}]}], ")"}], "2"]}]}]}]], "Input",
 CellChangeTimes->{{3.490875144125*^9, 3.49087514528125*^9}}],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", "z", "]"}]], "Input"],

Cell["\<\
You can take its real and imaginary parts like this\[Ellipsis]\
\>", "Text",
 CellChangeTimes->{{3.490875159109375*^9, 3.490875163875*^9}, {
  3.491404074046875*^9, 3.491404079109375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"ComplexExpand", "[", 
    RowBox[{"Re", "[", "z", "]"}], "]"}], ",", 
   RowBox[{"ComplexExpand", "[", 
    RowBox[{"Im", "[", "z", "]"}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{3.4908751925625*^9}],

Cell["\[Ellipsis]or, more simply, like this:", "Text",
 CellChangeTimes->{{3.490875168953125*^9, 3.490875174125*^9}}],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Re", "[", "z", "]"}], ",", 
    RowBox[{"Im", "[", "z", "]"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.490875175875*^9, 3.490875189*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " You saw that\n\t",
 StyleBox["{ComplexExpand[Re[z]],ComplexExpand[Im[z]]}\n",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "gives the real and imaginary parts of a symbolic expression. What happens \
if you use, instead, the following?\n\t",
 StyleBox["{Re[ComplexExpand[z]],Im[ComplexExpand[z]]}\n",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 StyleBox["Why?",
  FontFamily->"Times",
  FontWeight->"Plain",
  FontSlant->"Plain"]
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.4908803198125*^9, 
   3.49088045078125*^9}, {3.490880480921875*^9, 3.49088057415625*^9}, {
   3.4909074508125*^9, 3.49090745478125*^9}},
 ParagraphSpacing->{0.5, 0.}],

Cell[CellGroupData[{

Cell[TextData[{
 "Assumed complex real variables and target functions in ",
 StyleBox["ComplexExpand",
  FontFamily->"Courier"],
 " (",
 StyleBox["advanced",
  FontSlant->"Italic"],
 ")"
}], "Subsubsection",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.490875494578125*^9, 3.490875515625*^9}},
 CellTags->"AdvancedComplexExpand"],

Cell[TextData[{
 "When used with one argument, ",
 StyleBox["ComplexExpand",
  FontFamily->"Courier"],
 " assumes that all variables are real. You may explicitly specify that some \
are to be regarded as complex by including them in a list that forms a second \
argument. For example:"
}], "Text",
 CellChangeTimes->{3.490875227765625*^9, 3.49087612759375*^9}],

Cell[BoxData[
 RowBox[{"w", "=", 
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Zeta]"}], ")"}], "2"], " ", 
    SuperscriptBox["t", "2"]}], "+", 
   RowBox[{"\[ImaginaryI]", 
    RowBox[{"(", 
     RowBox[{"2", "-", "s"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"\[Xi]", "+", "1"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.490875534015625*^9, 3.49087555453125*^9}}],

Cell[TextData[{
 "(The symbols \[Zeta] and \[Xi], Greek letters \[OpenCurlyDoubleQuote]zeta\
\[CloseCurlyDoubleQuote] and \
\[OpenCurlyDoubleQuote]xi\[CloseCurlyDoubleQuote], may be typed as ",
 StyleBox["\[EscapeKey]z\[EscapeKey]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " and ",
 StyleBox["\[EscapeKey]x\[EscapeKey]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", respectively.)"
}], "Text",
 CellChangeTimes->{{3.490876138046875*^9, 3.49087620871875*^9}, 
   3.490876239171875*^9}],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"w", ",", 
   RowBox[{"{", 
    RowBox[{"\[Zeta]", ",", "\[Xi]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.490875561375*^9, 3.490875564671875*^9}}],

Cell[TextData[{
 "Usually, ",
 StyleBox["ComplexExpand",
  FontFamily->"Courier"],
 " will try to express its result so as to involve \"target functions\" ",
 StyleBox["Re",
  FontFamily->"Courier"],
 " and ",
 StyleBox["Im",
  FontFamily->"Courier"],
 ". But you can force it to use other functions by means of the option ",
 StyleBox["TargetFunctions",
  FontFamily->"Courier"],
 ". For example:"
}], "Text",
 CellChangeTimes->{{3.490875582125*^9, 3.4908755900625*^9}}],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{
   RowBox[{"1", "/", "\[Zeta]"}], ",", 
   RowBox[{"{", "\[Zeta]", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.490875594703125*^9}],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{
   RowBox[{"1", "/", "\[Zeta]"}], ",", 
   RowBox[{"{", "\[Zeta]", "}"}], ",", 
   RowBox[{"TargetFunctions", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Abs", ",", "Conjugate"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.490875603625*^9, 3.4908756169375*^9}}],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{
   RowBox[{"\[Zeta]", " ", 
    RowBox[{"Conjugate", "[", "\[Zeta]", "]"}]}], ",", 
   RowBox[{"{", "\[Zeta]", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.4908756259375*^9}],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{
   RowBox[{"\[Zeta]", " ", 
    RowBox[{"Conjugate", "[", "\[Zeta]", "]"}]}], ",", 
   RowBox[{"{", "\[Zeta]", "}"}], ",", 
   RowBox[{"TargetFunctions", "\[Rule]", "Abs"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.49087563671875*^9, 3.490875646828125*^9}}],

Cell[TextData[{
 "For more about such advanced uses of ",
 StyleBox["ComplexExpand",
  FontFamily->"Courier"],
 ", see",
 ButtonBox[" below",
  BaseStyle->"Hyperlink",
  ButtonData:>"MoreAdvancedComplexExpand"],
 "."
}], "Text"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Converting from ",
 StyleBox["x+\[ImaginaryI]",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 "\[ThinSpace]",
 StyleBox["y",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 " to ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}],
    FontFamily->"Courier"], TraditionalForm]]],
 ": ",
 StyleBox["ToCoordinates",
  FontFamily->"Courier"]
}], "Subsection",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.4908756745625*^9, 3.49087568228125*^9}, {
   3.49087682678125*^9, 3.4908768526875*^9}, {3.490876901828125*^9, 
   3.490876903796875*^9}, {3.49088076953125*^9, 3.490880917625*^9}, {
   3.49192025421875*^9, 3.49192025609375*^9}, 3.491920345140625*^9, {
   3.493461336578125*^9, 3.49346134615625*^9}}],

Cell[TextData[{
 "The ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " function ",
 StyleBox["ToCoordinates",
  FontFamily->"Courier"],
 " provides a shortcut for ",
 StyleBox["{Re[z],Im[z]}",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "."
}], "Text",
 CellChangeTimes->{{3.490876913*^9, 3.490876922203125*^9}, {
  3.49087704728125*^9, 3.490877101796875*^9}}],

Cell[BoxData[
 RowBox[{"?", "ToCoordinates"}]], "Input"],

Cell["For example:", "Text"],

Cell[BoxData[
 RowBox[{"ToCoordinates", "[", 
  RowBox[{"2", "+", 
   RowBox[{"3", "\[ImaginaryI]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4908769355625*^9, 3.490876936578125*^9}}],

Cell["Recall again the symbolic example:", "Text"],

Cell[BoxData[
 RowBox[{"z", "=", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"x", "+", "1"}], ")"}], "2"], "+", 
   RowBox[{"\[ImaginaryI]", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", "-", 
       RowBox[{"x", " ", "y"}]}], ")"}], "2"]}]}]}]], "Input",
 CellChangeTimes->{{3.49087695534375*^9, 3.490876975125*^9}}],

Cell["Try this:", "Text"],

Cell[BoxData[
 RowBox[{"ToCoordinates", "[", "z", "]"}]], "Input"],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " still does not know that you intend ",
 StyleBox["x",
  FontFamily->"Courier"],
 " and ",
 StyleBox["y",
  FontFamily->"Courier"],
 " to be real. And again ",
 StyleBox["ComplexExpand",
  FontFamily->"Courier"],
 " comes to the rescue:"
}], "Text",
 CellChangeTimes->{{3.4908769836875*^9, 3.49087700678125*^9}}],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"ToCoordinates", "[", "z", "]"}], "]"}]], "Input"],

Cell[TextData[{
 "To convert a symbolic complex quantity ",
 StyleBox["z",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " to the ordered pair consisting of its real and imaginary parts, use:\n\t",
 StyleBox["ComplexExpand[ToCoordinates[z]]",
  FontFamily->"Courier"]
}], "EmphasisText",
 CellChangeTimes->{{3.49087714284375*^9, 3.490877188046875*^9}},
 ParagraphSpacing->{0.5, 0.}],

Cell[TextData[{
 "Here's the same thing using function composition ",
 StyleBox["@",
  FontFamily->"Courier"],
 " notation (also called \[OpenCurlyDoubleQuote]prefix notation\
\[CloseCurlyDoubleQuote]) to eliminate nested brackets:"
}], "Text",
 CellChangeTimes->{{3.49140880509375*^9, 3.4914088159375*^9}}],

Cell[BoxData[
 RowBox[{"ComplexExpand", "@", 
  RowBox[{"ToCoordinates", "[", "z", "]"}]}]], "Input",
 CellChangeTimes->{{3.49087724978125*^9, 3.490877263828125*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " What happens if you use the opposite order: ",
 StyleBox["ToCoordinates[ComplexExpand[z]]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "? Why doesn\[CloseCurlyQuote]t that yield the same result as ",
 StyleBox["ComplexExpand[ToCoordinates[z]]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "?"
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.490877288703125*^9, 
   3.49087748725*^9}, {3.490877875234375*^9, 3.49087791125*^9}, 
   3.490880664921875*^9}],

Cell[TextData[{
 "Sometimes you want to bring in ",
 StyleBox["ComplexExpand",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " as an \[OpenCurlyDoubleQuote]afterthought\[CloseCurlyDoubleQuote] to the \
main expression. Then you may use the \[OpenCurlyDoubleQuote]postfix\
\[CloseCurlyDoubleQuote] form of input, with ",
 StyleBox["//",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ":"
}], "Text",
 CellChangeTimes->{
  3.48969559478125*^9, {3.490283603515625*^9, 3.490283658703125*^9}, {
   3.49028376921875*^9, 3.49028377653125*^9}, {3.490283913453125*^9, 
   3.490283925515625*^9}, {3.49087793615625*^9, 3.490877941859375*^9}, {
   3.490877988375*^9, 3.49087798934375*^9}, {3.49192277825*^9, 
   3.491922780734375*^9}},
 CellID->321563456],

Cell[BoxData[{
 RowBox[{"z", "//", "ComplexExpand"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ToCoordinates", "[", "z", "]"}], "//", "ComplexExpand"}]}], "Input",
 CellChangeTimes->{
  3.48969559478125*^9, {3.490283660921875*^9, 3.49028366771875*^9}, {
   3.49028393571875*^9, 3.490283936046875*^9}, {3.49087794740625*^9, 
   3.490877976625*^9}},
 CellID->107301876],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Repeat Exercise ",
 
 CounterBox["Exercise", "exercReImProperties"],
 " but now using ",
 StyleBox["ToCoordinates",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " to simplify the work."
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.49140891653125*^9, 
   3.49140896528125*^9}, {3.491409017828125*^9, 3.4914090435625*^9}, {
   3.4914161915*^9, 3.491416193078125*^9}, {3.49151302490625*^9, 
   3.491513029828125*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Converting from From",
 StyleBox[" ",
  FontFamily->"Times"],
 StyleBox["{x,y}",
  FontFamily->"Courier"],
 " to ",
 StyleBox["x+\[ImaginaryI]\[ThinSpace]y",
  FontFamily->"Courier"],
 ": ",
 StyleBox["ToComplex",
  FontFamily->"Courier"]
}], "Subsection",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.490880887921875*^9, 3.4908808918125*^9}, {
  3.49088094990625*^9, 3.490880967390625*^9}, {3.4934613605*^9, 
  3.49346136509375*^9}}],

Cell["\<\
To go backwards from the list of its real and imaginary parts to a complex \
number presents no difficulty, even for symbolic expressions.\
\>", "Text",
 CellChangeTimes->{{3.49088099159375*^9, 3.49088101753125*^9}}],

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"xy", ",", "s", ",", "t"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xy", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "s"}], "+", 
      SuperscriptBox["s", "2"]}], ",", 
     RowBox[{"4", "-", 
      RowBox[{"4", " ", "s", " ", "t"}], "+", 
      RowBox[{
       SuperscriptBox["s", "2"], " ", 
       SuperscriptBox["t", "2"]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"First", "[", "xy", "]"}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"Last", "[", "xy", "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.490881021453125*^9, 3.490881036984375*^9}}],

Cell[TextData[{
 "  The ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " function ",
 StyleBox["ToComplex",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 " makes that easier to do."
}], "Text",
 CellChangeTimes->{{3.490881045125*^9, 3.490881051078125*^9}}],

Cell[BoxData[
 RowBox[{"?", "ToComplex"}]], "Input"],

Cell[BoxData[
 RowBox[{"ToComplex", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "s"}], "+", 
     SuperscriptBox["s", "2"]}], ",", 
    RowBox[{"4", "-", 
     RowBox[{"4", " ", "s", " ", "t"}], "+", 
     RowBox[{
      SuperscriptBox["s", "2"], " ", 
      SuperscriptBox["t", "2"]}]}]}], "}"}], "]"}]], "Input"],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Are the functions ",
 StyleBox["ToComplex",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " and ",
 StyleBox["ToCoordinates",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " inverses of one another\[LongDash]that is, does each undo the effect of \
other? In arriving at an answer, consider first specific numerical complex \
numbers such as ",
 StyleBox["z=2+3\[ImaginaryI]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " and then symbolic complex values, such as ",
 Cell[BoxData[
  RowBox[{"z", "=", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "x"}], ")"}], "2"], "+", 
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "-", 
        RowBox[{"x", " ", "y"}]}], ")"}], "2"]}]}]}]],
  CellChangeTimes->{3.4908812085*^9}],
 "?"
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.490881094203125*^9, 
   3.490881238078125*^9}, {3.49088136890625*^9, 3.490881514234375*^9}, {
   3.490881614390625*^9, 3.4908816650625*^9}, {3.49088172240625*^9, 
   3.490881731140625*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Conjugate", "Section",
 ShowGroupOpener->True],

Cell[TextData[{
 "The ",
 StyleBox["conjugate",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " of a complex number ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"x", "+", 
     RowBox[{"y", " ", "\[ImaginaryI]"}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " with ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " and ",
 Cell[BoxData[
  FormBox["y", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " real is the complex number ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"z", "\[Conjugate]"}], "=", 
    RowBox[{"x", "-", 
     RowBox[{"y", " ", "\[ImaginaryI]"}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "."
}], "Text",
 CellChangeTimes->{{3.49140919375*^9, 3.49140923478125*^9}}],

Cell[TextData[{
 "The built-in function ",
 StyleBox["Conjugate",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 " finds\[LongDash]you guessed it!\[LongDash]the conjugate of a complex \
number."
}], "Text"],

Cell[BoxData[
 RowBox[{"?", "Conjugate"}]], "Input"],

Cell[BoxData[
 RowBox[{"Conjugate", "[", 
  RowBox[{"2", "+", 
   RowBox[{"3", " ", "I"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.490881792421875*^9, 3.49088179375*^9}}],

Cell["\<\
As usual, there's difficulty when you don't have a specific complex number, \
but rather a symbolic expression representing complex numbers:\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", "+", "1"}], ")"}], "2"], "+", 
    RowBox[{"\[ImaginaryI]", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "-", 
        RowBox[{"x", " ", "y"}]}], ")"}], "2"]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.490881811359375*^9, 3.490881826640625*^9}}],

Cell[BoxData[
 RowBox[{"Conjugate", "[", "z", "]"}]], "Input"],

Cell[TextData[{
 "The simplest way to handle this is again with ",
 StyleBox["ComplexExpand",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ":"
}], "Text",
 CellChangeTimes->{3.490881841*^9, {3.490907994046875*^9, 3.490907994625*^9}}],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"Conjugate", "[", "z", "]"}], "]"}]], "Input"],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Find the conjugate of ",
 Cell[BoxData[
  FormBox["\[ImaginaryI]", TraditionalForm]],
  FormatType->"TraditionalForm"],
 "."
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.491409118625*^9, 
   3.49140915021875*^9}, 3.491416245046875*^9, {3.491416782515625*^9, 
   3.491416788515625*^9}, {3.491417131359375*^9, 3.4914171406875*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " For an arbitrary complex number ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"x", "+", 
     RowBox[{"y", " ", "\[ImaginaryI]"}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " with ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " and ",
 Cell[BoxData[
  FormBox["y", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " real, find the real and imaginary parts of the conjugate of ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],
  FormatType->"TraditionalForm"],
 "."
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.491409118625*^9, 
   3.49140915021875*^9}, 3.491416245046875*^9, {3.491416782515625*^9, 
   3.491416788515625*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Let ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", "\[ImaginaryI]"}]}]}], TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{"w", "=", 
    RowBox[{"c", "+", 
     RowBox[{"d", " ", "\[ImaginaryI]"}]}]}], TraditionalForm]]],
 ".\n(a) Use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to express the conjugate of the sum ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "+", "w"}], TraditionalForm]]],
 " in terms of the conjugates of ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox["y", TraditionalForm]]],
 ".\n(b) Repeat (a) but for the product ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", " ", "w"}], TraditionalForm]]],
 ".\n(c) Use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to express the conjugate of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"-", "z"}], TraditionalForm]]],
 " in terms of the conjugate of ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 ".\n(c) Use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to express the conjugate of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[ImaginaryI]", " ", "z"}], TraditionalForm]]],
 " in terms of the conjugate of ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 "."
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.491409118625*^9, 
   3.49140915021875*^9}, 3.491416245046875*^9, {3.491416803125*^9, 
   3.491416882875*^9}, {3.491416925578125*^9, 3.491416951671875*^9}, {
   3.49141718971875*^9, 3.491417195640625*^9}, {3.4914172519175777`*^9, 
   3.4914172729175777`*^9}},
 ParagraphSpacing->{0.5, 0.},
 CellTags->"exercConjProperties"],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " (a) What is the geometric relationship between a complex number and its \
conjugate?\n(b) Use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to make a drawing that illustrates this relationship."
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.491409118625*^9, 
   3.49140915021875*^9}, 3.491416245046875*^9, {3.4914162964375*^9, 
   3.491416364703125*^9}},
 ParagraphSpacing->{0.5, 0.}],

Cell[CellGroupData[{

Cell["\<\
Traditional notation for conjugate\
\>", "Subsection",
 CellChangeTimes->{{3.490908232859375*^9, 3.49090823884375*^9}}],

Cell[TextData[{
 "Two standard mathematical notations are in use for the conjugate of a \
complex number ",
 Cell[BoxData[
  FormBox[Cell["z"], TraditionalForm]]],
 ", namely, with an overbar ( ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["z", "_"], TraditionalForm]]],
 " ) and with a superscript star ( ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "\[Conjugate]"}], TraditionalForm]]],
 " ). Note that the superscript star in the latter is not the same as an \
asterisk (",
 StyleBox["*)",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ": the former has 6 points whereas the latter has only 5. (To see the \
difference, you may need to magnify this notebook.)"
}], "Text",
 CellChangeTimes->{{3.490882860484375*^9, 3.490882892265625*^9}, {
  3.490883038421875*^9, 3.49088306203125*^9}, {3.490883094140625*^9, 
  3.490883349984375*^9}, {3.490907935875*^9, 3.490907958796875*^9}}],

Cell[TextData[{
 "To type the superscript star notation conjugate, type \[EscapeKey]",
 StyleBox["conj",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "\[EscapeKey] after the expression whose conjugate you want. But do ",
 StyleBox["not",
  FontSlant->"Italic"],
 " use \[ControlKey]",
 StyleBox["^",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " to get a superscript: ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " will position the star automatically. ",
 StyleBox["Try it",
  Background->RGBColor[0.941, 0.973, 1.]],
 ": position the cursor at the end of the ",
 StyleBox["second line",
  FontSlant->"Italic"],
 " of following cell, immediately after the z; then type \[EscapeKey]conj\
\[EscapeKey] and evaluate the cell."
}], "Text",
 CellChangeTimes->{{3.490908290953125*^9, 3.490908329421875*^9}, {
  3.490908375625*^9, 3.490908469578125*^9}, {3.490908558140625*^9, 
  3.490908675625*^9}, {3.491416508625*^9, 3.4914165216875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{"2", "+", 
    RowBox[{"3", "I"}]}]}], ";"}], "\[IndentingNewLine]", "z"}], "Input",
 CellChangeTimes->{{3.49090868071875*^9, 3.49090869203125*^9}, {
  3.491416490640625*^9, 3.491416533109375*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " (a) In a new input cell, type ",
 StyleBox["2+3\[ImaginaryI]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "\[EscapeKey]",
 StyleBox["conj",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "\[EscapeKey] and evaluate the cell.\n(b) Repeat (a) but with ",
 StyleBox["3\[ImaginaryI]+2",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " instead of ",
 StyleBox["2+3\[ImaginaryI]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ". Explain why the result is different.\n(c) Without changing ",
 StyleBox["3\[ImaginaryI]+2",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", what else should you type so as to force the star to take the conjugate \
of the entire complex number?"
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.490908725109375*^9, 
   3.49090886284375*^9}, {3.490908912421875*^9, 3.4909089276875*^9}},
 ParagraphSpacing->{0.5, 0.}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " When you use the superscript star (\[EscapeKey]",
 StyleBox["conj",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "\[EscapeKey]) form for ",
 StyleBox["Conjugate",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", how do you get ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to find symbolically the conjugate of a complex number ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"x", "+", 
     RowBox[{"y", " ", "\[ImaginaryI]"}]}]}], TraditionalForm]]],
 " where ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox["y", TraditionalForm]]],
 " are real?"
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.490908725109375*^9, 
   3.49090886284375*^9}, {3.490908912421875*^9, 3.4909089276875*^9}, {
   3.4909090236875*^9, 3.49090909240625*^9}, {3.491416570609375*^9, 
   3.4914167439375*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Repeat Exercise ",
 
 CounterBox["Exercise", "exercConjProperties"],
 ", but now using the superscript star notation."
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.490908725109375*^9, 
   3.49090886284375*^9}, {3.490908912421875*^9, 3.4909089276875*^9}, {
   3.4909090236875*^9, 3.49090909240625*^9}, {3.491416570609375*^9, 
   3.4914167439375*^9}, {3.491513578328125*^9, 3.4915136174375*^9}}],

Cell[TextData[{
 "If you want to type an overbar to indicate conjugate, after the quantity \
whose conjugate you want type: \[ControlKey]",
 StyleBox["&_",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "  The last symbol is the underscore character, typed as usual as \
\[ShiftKey]",
 StyleBox["-",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " .\nFor example, ",
 Cell[BoxData[
  FormBox[
   OverscriptBox[
    RowBox[{"(", 
     RowBox[{"2", "+", 
      RowBox[{"3", "\[ImaginaryI]"}]}], ")"}], "_"], TraditionalForm]]],
 " is typed as\n\t",
 StyleBox["(2+3",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "\[EscapeKey]",
 StyleBox["ii",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "\[EscapeKey]",
 StyleBox[")",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "\[ControlKey]",
 StyleBox["&_",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"]
}], "Text",
 CellChangeTimes->{{3.490909216328125*^9, 3.4909093965625*^9}, {
  3.490909455875*^9, 3.490909609734375*^9}, {3.4909096759375*^9, 
  3.49090971440625*^9}},
 ParagraphSpacing->{0.5, 0.}],

Cell[TextData[{
 "and ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["z", "_"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " is typed as: ",
 StyleBox["z",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "\[ControlKey]",
 StyleBox["&_",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 StyleBox[" .",
  FontFamily->"Times",
  FontWeight->"Plain",
  FontSlant->"Plain"]
}], "Text",
 CellChangeTimes->{{3.490909216328125*^9, 3.4909093965625*^9}, {
  3.490909455875*^9, 3.490909605*^9}, {3.4909096385625*^9, 
  3.490909673046875*^9}, {3.490909717609375*^9, 3.490909737828125*^9}}],

Cell[TextData[{
 "However, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " will ",
 StyleBox["not",
  FontSlant->"Italic"],
 " interpret overbar notation to mean complex conjugate. For example, \
evaluate the following:"
}], "Text",
 CellChangeTimes->{{3.490909216328125*^9, 3.4909093965625*^9}, {
  3.490909455875*^9, 3.490909605*^9}, {3.4909096385625*^9, 
  3.490909673046875*^9}, {3.490909717609375*^9, 3.490909767265625*^9}}],

Cell[BoxData[
 OverscriptBox[
  RowBox[{"(", 
   RowBox[{"2", "+", 
    RowBox[{"3", "\[ImaginaryI]"}]}], ")"}], "_"]], "Input",
 CellChangeTimes->{{3.49090977278125*^9, 3.490909779109375*^9}}],

Cell[TextData[{
 "It is possible to force ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to interpret the overbar notation, too, as meaning conjugate. But trying \
to do that may be more trouble than it\[CloseCurlyQuote]s worth, as the \
overbar tends to typeset too low."
}], "SmallText",
 CellChangeTimes->{{3.490909783578125*^9, 3.490909913578125*^9}, {
   3.4914173271363277`*^9, 3.4914173986832027`*^9}, {3.4914175595425777`*^9, 
   3.4914175681207027`*^9}, 3.491922901671875*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Conjugate by using a replacement rule (",
 StyleBox["advanced",
  FontSlant->"Italic"],
 ")"
}], "Subsection",
 CellChangeTimes->{{3.490908039640625*^9, 3.49090804903125*^9}, {
  3.4909091575625*^9, 3.490909159515625*^9}}],

Cell[TextData[{
 "Another way to obtain the conjugate in the form you probably want is to use \
a ",
 StyleBox["rule",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 ":"
}], "Text",
 CellChangeTimes->{{3.490881966109375*^9, 3.490881968625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", "+", "1"}], ")"}], "2"], "+", 
    RowBox[{"\[ImaginaryI]", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "-", 
        RowBox[{"x", " ", "y"}]}], ")"}], "2"]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"z", "/.", 
  RowBox[{
   RowBox[{"u_", "+", 
    RowBox[{"\[ImaginaryI]", " ", "v_"}]}], "\[Rule]", 
   RowBox[{"u", "-", 
    RowBox[{"\[ImaginaryI]", " ", "v"}]}]}]}]}], "Input",
 CellChangeTimes->{{3.49088198565625*^9, 3.490882007296875*^9}, {
  3.491922971*^9, 3.491922971640625*^9}}],

Cell[TextData[{
 "A tempting way to use a rule to form the conjugate is to replace ",
 StyleBox["\[ImaginaryI]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " in the complex expression with ",
 StyleBox["-\[ImaginaryI]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ". Try it:"
}], "Text",
 CellChangeTimes->{{3.49088202971875*^9, 3.49088212375*^9}, {
  3.4908825488125*^9, 3.490882575984375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", "+", 
   RowBox[{"3", "\[ImaginaryI]"}]}], "/.", 
  RowBox[{"\[ImaginaryI]", "\[Rule]", 
   RowBox[{"-", "\[ImaginaryI]", "     ", 
    RowBox[{"(*", " ", 
     RowBox[{"does", " ", "not", " ", 
      RowBox[{"work", "!"}]}], " ", "*)"}]}]}]}]], "Input",
 CellChangeTimes->{{3.490882126765625*^9, 3.4908821370625*^9}, {
  3.490882698984375*^9, 3.49088271321875*^9}}],

Cell[TextData[{
 StyleBox["\[WarningSign]",
  FontSize->18,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0],
  Background->RGBColor[1, 1, 0]],
 " ",
 StyleBox["Caution:",
  FontSlant->"Italic"],
 " What\[LongDash]no change? Not even with a specific, numeric complex \
number! Why not? While ",
 StyleBox["Mathematica ",
  FontSlant->"Italic"],
 "displays a complex number as a sum ",
 StyleBox["a+b\[ThinSpace]\[ImaginaryI]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", that is ",
 StyleBox["not",
  FontSlant->"Italic"],
 " the way it actually represents the complex number internally. Here\
\[CloseCurlyQuote]s the way ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " represents the complex number:"
}], "Text",
 CellChangeTimes->{{3.49088214521875*^9, 3.49088246878125*^9}, 
   3.490882592484375*^9, {3.49192298896875*^9, 3.49192306640625*^9}}],

Cell[BoxData[
 RowBox[{"FullForm", "[", 
  RowBox[{"2", "+", 
   RowBox[{"3", "\[ImaginaryI]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.490882207296875*^9, 3.490882214765625*^9}, {
  3.490882603640625*^9, 3.490882604390625*^9}}],

Cell[TextData[{
 "As you can plainly see, there is no ",
 StyleBox["\[ImaginaryI]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " (or ",
 StyleBox["I",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ") in that representation. And so there is no ",
 StyleBox["\[ImaginaryI]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " to replace when you try the rule ",
 StyleBox["\[ImaginaryI]\[Rule]-\[ImaginaryI]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ". This is a \[OpenCurlyDoubleQuote]gotcha\[CloseCurlyDoubleQuote] that \
sometimes confounds ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " novices."
}], "Text",
 CellChangeTimes->{{3.4908824730625*^9, 3.490882538203125*^9}, {
  3.49088261471875*^9, 3.49088261871875*^9}, {3.490882650640625*^9, 
  3.49088266440625*^9}, {3.49088272846875*^9, 3.4908827383125*^9}, {
  3.49090917528125*^9, 3.490909189078125*^9}, {3.4914249640113277`*^9, 
  3.4914249669332027`*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Polar form", "Section",
 ShowGroupOpener->True],

Cell[CellGroupData[{

Cell[TextData[{
 "Modulus and principal argument: ",
 StyleBox["Abs",
  FontFamily->"Courier"],
 " and ",
 StyleBox["Arg",
  FontFamily->"Courier"]
}], "Subsection",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.49091001309375*^9, 3.490910037921875*^9}, {
  3.49193450225*^9, 3.491934503328125*^9}}],

Cell[TextData[{
 "The ",
 StyleBox["modulus",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{"|", "z", "|"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " of a complex number ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"x", "+", 
     RowBox[{"\[ImaginaryI]", " ", "y"}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", where ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " and ",
 Cell[BoxData[
  FormBox["y", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " are real, is ",
 Cell[BoxData[
  FormBox[
   SqrtBox[
    RowBox[{
     SuperscriptBox["x", "2"], "+", 
     SuperscriptBox["y", "2"]}]], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". Geometrically, ",
 Cell[BoxData[
  FormBox[
   RowBox[{"|", "z", "|"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " is the  distance between the point ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", " "}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " and the origin of the complex plane. "
}], "Text",
 CellChangeTimes->{{3.4914250157457027`*^9, 3.4914251360425777`*^9}, {
  3.4914251840113277`*^9, 3.4914251865269527`*^9}, {3.4914259261050777`*^9, 
  3.4914259304332027`*^9}}],

Cell[TextData[{
 "An ",
 StyleBox["argument",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " of a complex number is the radian measure ",
 Cell[BoxData[
  FormBox["\[Theta]", TraditionalForm]]],
 " of an angle between the positive real axis and the line segment connecting \
the origin to the point ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 "."
}], "Text",
 CellChangeTimes->{{3.4914251411207027`*^9, 3.4914253063082027`*^9}, {
   3.4914259380425777`*^9, 3.4914259438394527`*^9}, {3.491923177203125*^9, 
   3.49192319128125*^9}, 3.491934517109375*^9}],

Cell[TextData[{
 "Note that the terminology \[OpenCurlyDoubleQuote]",
 StyleBox["an",
  FontSlant->"Italic"],
 " argument\[CloseCurlyDoubleQuote] above. That\[CloseCurlyQuote]s because if \
",
 Cell[BoxData[
  FormBox["\[Theta]", TraditionalForm]]],
 " is an argument of ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 ", then so are all the numbers ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Theta]", "+", 
    RowBox[{"2", "k", " ", "\[Pi]"}]}], TraditionalForm]]],
 ", for ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"k", "=", 
     RowBox[{"\[PlusMinus]", "1"}]}], ",", 
    RowBox[{"\[PlusMinus]", "2"}], ",", " ", 
    RowBox[{"\[PlusMinus]", "3"}], ",", " ", "\[Ellipsis]"}], 
   TraditionalForm]]],
 ". The infinite set of all  arguments of ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 " is denoted by ",
 Cell[BoxData[
  FormBox[
   RowBox[{"arg", "(", "z"}], TraditionalForm]]],
 "). "
}], "Text",
 CellChangeTimes->{{3.4914254653863277`*^9, 3.4914256032457027`*^9}, {
  3.4914256580582027`*^9, 3.4914256676988277`*^9}, {3.4914259723707027`*^9, 
  3.4914260353550777`*^9}, {3.4914260982769527`*^9, 3.4914261006207027`*^9}, {
  3.491923204453125*^9, 3.491923227421875*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Let ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"x", "+", 
     RowBox[{"\[ImaginaryI]", " ", "y"}]}]}], TraditionalForm]]],
 " with ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox["y", TraditionalForm]]],
 " real. If ",
 Cell[BoxData[
  FormBox[
   RowBox[{"r", "=", 
    RowBox[{"|", "z", "|"}]}], TraditionalForm]]],
 ", the modulus of ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 ", and if \[Theta] is an argument of ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 ", then of course the pair ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"r", ",", "\[Theta]"}], ")"}], TraditionalForm]]],
 " constitute polar coordinates of the point ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"x", ",", "y"}], ")"}], TraditionalForm]]],
 ". Find polar coordinates ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["r", "1"], ",", 
     SubscriptBox["\[Theta]", "1"]}], ")"}], TraditionalForm]]],
 " of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"x", ",", "y"}], ")"}], TraditionalForm]]],
 " where ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["r", "1"], TraditionalForm]]],
 " is ",
 StyleBox["not",
  FontSlant->"Italic"],
 " the modulus of ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Theta]", "1"], TraditionalForm]]],
 " is ",
 StyleBox["not",
  FontSlant->"Italic"],
 " an argument of ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 "."
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.4914256822613277`*^9, 
   3.4914259098707027`*^9}, {3.4914357272300777`*^9, 3.4914357591675777`*^9}}],

Cell[TextData[{
 "The ",
 StyleBox["principal argument",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{"Arg", "(", "z", ")"}], TraditionalForm]]],
 " of a complex number ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 " is the particular argument ",
 Cell[BoxData[
  FormBox["\[Theta]", TraditionalForm]]],
 " of ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 " for which ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"-", "\[Pi]"}], "<", 
    RowBox[{"Arg", "(", "z", ")"}], "\[LessEqual]", "  ", "\[Pi]"}], 
   TraditionalForm]]],
 ". Thus ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"Arg", "(", "z", ")"}], "\[Element]", 
    RowBox[{"arg", "(", "z", ")"}]}], TraditionalForm]]],
 "."
}], "Text",
 CellChangeTimes->{{3.4914259600425777`*^9, 3.4914259643238277`*^9}, {
  3.4914260409800777`*^9, 3.4914260939175777`*^9}, {3.4914357688082027`*^9, 
  3.4914357806832027`*^9}}],

Cell[TextData[{
 StyleBox["\[WarningSign]",
  FontSize->24,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0],
  Background->RGBColor[1, 1, 0]],
 " ",
 StyleBox["Caution:",
  FontSlant->"Italic"],
 " You may be accustomed to selecting polar coordinates \[Theta] with ",
 Cell[BoxData[
  FormBox[
   RowBox[{"0", "\[LessEqual]", "\[Theta]", " ", "<", 
    RowBox[{"2", "\[Pi]"}]}], TraditionalForm]]],
 ".  However, in complex analysis ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"-", "\[Pi]"}], "<", "\[Theta]", "\[LessEqual]", "\[Pi]"}], 
   TraditionalForm]]],
 " is the convention usually adopted for the principal argument; that is the \
convention used by ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.466614612296875*^9, 3.466614642078125*^9}, {
  3.492013237765625*^9, 3.492013260765625*^9}, {3.492015870234375*^9, 
  3.49201587628125*^9}}],

Cell[TextData[{
 "The modulus and principal argument of a complex number are returned by the \
built-in functions ",
 StyleBox["Abs",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 " and ",
 StyleBox["Arg",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 "."
}], "Text"],

Cell[BoxData[
 RowBox[{"?", "Abs"}]], "Input"],

Cell[BoxData[
 RowBox[{"?", "Arg"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"2", "+", 
     RowBox[{"3", "\[ImaginaryI]"}]}], "]"}], ",", 
   RowBox[{"Arg", "[", 
    RowBox[{"2", "+", 
     RowBox[{"3", "\[ImaginaryI]"}]}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.490910051234375*^9, 3.490910058078125*^9}}],

Cell[TextData[{
 StyleBox["\[WarningSign]",
  FontSize->18,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0],
  Background->RGBColor[1, 1, 0]],
 StyleBox[" Caution:",
  FontSlant->"Italic"],
 " Don't confuse ",
 StyleBox["Abs",
  FontFamily->"Courier"],
 " with either of the built-in objects ",
 StyleBox["Mod",
  FontFamily->"Courier"],
 " and ",
 StyleBox["Modulus",
  FontFamily->"Courier"],
 ". The latter refer to doing arithmetic modulo an integer."
}], "Text",
 CellChangeTimes->{{3.4909101250625*^9, 3.49091012590625*^9}, 
   3.49168735115625*^9}],

Cell[TextData[{
 "The next cell produces a drawing showing the complex number ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"2", "+", 
     RowBox[{"3", "\[ImaginaryI]"}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " along with its modulus and argument. (Once again, you need not understand \
all the code there; it uses the built-in complex exponential function ",
 StyleBox["Exp",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " along with the ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " ",
 StyleBox["ComplexCurve",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " graphics primitive.)"
}], "Text",
 CellChangeTimes->{{3.49168716821875*^9, 3.491687176953125*^9}, {
  3.491687213734375*^9, 3.491687260671875*^9}, {3.49168731278125*^9, 
  3.491687326671875*^9}, {3.491687372203125*^9, 3.491687433796875*^9}, {
  3.491923121390625*^9, 3.49192312421875*^9}, {3.491923255765625*^9, 
  3.4919232955*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{"2", "+", 
    RowBox[{"3", "\[ImaginaryI]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"polarDrawing", "=", 
  RowBox[{"Draw2D", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "Arrow", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Arrowheads", "[", "0.075", "]"}], ",", "Blue", ",", "Thick", 
      ",", "\[IndentingNewLine]", 
      RowBox[{"ComplexArrow", "[", 
       RowBox[{"{", 
        RowBox[{"0", ",", "z"}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "Point", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Legacy", "@", "IndianRed"}], ",", 
      RowBox[{"PointSize", "[", "0.05", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"ComplexPoint", "[", "z", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "Arc", " ", "*)"}], "\[IndentingNewLine]", "Blue", 
      ",", "Dashed", ",", "\[IndentingNewLine]", 
      RowBox[{"ComplexCurve", "[", 
       RowBox[{
        RowBox[{"0.25", 
         RowBox[{"Abs", "[", "z", "]"}], 
         RowBox[{"Exp", "[", 
          RowBox[{"\[ImaginaryI]", " ", "\[Theta]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"\[Theta]", ",", "0", ",", 
          RowBox[{"Arg", "[", "z", "]"}]}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "Labels", " ", "*)"}], "\[IndentingNewLine]", 
      "Black", ",", "\[IndentingNewLine]", 
      RowBox[{"ComplexText", "[", 
       RowBox[{
        RowBox[{"TraditionalForm", "@", 
         RowBox[{"HoldForm", "[", 
          RowBox[{"z", "\[Equal]", 
           RowBox[{"2", "+", 
            RowBox[{"3", "\[ImaginaryI]"}]}]}], "]"}]}], ",", 
        RowBox[{"2.9", "+", 
         RowBox[{"3.3", "\[ImaginaryI]"}]}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ComplexText", "[", 
       RowBox[{
        RowBox[{"TraditionalForm", "@", 
         RowBox[{"HoldForm", "[", 
          RowBox[{"\[Theta]", "\[Equal]", 
           RowBox[{"Arg", "[", "z", "]"}]}], "]"}]}], ",", 
        RowBox[{"1.45", "+", 
         RowBox[{"0.5", "\[ImaginaryI]"}]}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"RotationTransformOp", "[", 
        RowBox[{
         RowBox[{"Arg", "[", "z", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"1.5", ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
       "[", 
       RowBox[{"ComplexText", "[", 
        RowBox[{
         RowBox[{"TraditionalForm", "@", 
          RowBox[{"HoldForm", "[", 
           RowBox[{"r", "\[Equal]", 
            RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ",", 
         RowBox[{"2", "+", 
          RowBox[{"2", "\[ImaginaryI]"}]}]}], "]"}], "]"}]}], 
     "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", "Options", " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.5"}], ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.5"}], ",", "4"}], "}"}]}], "}"}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Axes", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"PlotLabel", "\[Rule]", "\"\<Modulus and Argument\>\""}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", "12", "}"}]}], ",", 
    RowBox[{"Background", "\[Rule]", 
     RowBox[{"Legacy", "@", "Ivory"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"ImageSize", "\[Rule]", 
     RowBox[{"3", " ", "72"}]}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.491404147171875*^9, 3.49140481940625*^9}, {
   3.491404874984375*^9, 3.491405108828125*^9}, {3.491405459703125*^9, 
   3.491405522078125*^9}, {3.49140557584375*^9, 3.49140558934375*^9}, 
   3.491405666546875*^9, {3.491405706875*^9, 3.491405723875*^9}, {
   3.491405786109375*^9, 3.49140586040625*^9}, {3.491405918375*^9, 
   3.49140611884375*^9}, {3.491406193109375*^9, 3.4914062719375*^9}, {
   3.491406371*^9, 3.491406386625*^9}, {3.491406417984375*^9, 
   3.49140644046875*^9}, {3.49140647065625*^9, 3.491406515875*^9}, {
   3.491406561171875*^9, 3.4914066016875*^9}, {3.491406632484375*^9, 
   3.491407235359375*^9}, {3.4914073105625*^9, 3.491407507453125*^9}, {
   3.491407561921875*^9, 3.49140757578125*^9}, {3.49140761034375*^9, 
   3.49140770521875*^9}, {3.49140792171875*^9, 3.491407989234375*^9}, 
   3.491685496296875*^9, {3.491685646265625*^9, 3.49168565746875*^9}, {
   3.491685693703125*^9, 3.491685748171875*^9}, {3.49168630765625*^9, 
   3.491686340671875*^9}, 3.491686377703125*^9, {3.491686408765625*^9, 
   3.491686433203125*^9}, {3.491686467484375*^9, 3.491686503515625*^9}, {
   3.491686547859375*^9, 3.49168660975*^9}, {3.491686654046875*^9, 
   3.49168665453125*^9}, {3.491686692421875*^9, 3.49168669778125*^9}, {
   3.49168679909375*^9, 3.491687015953125*^9}, {3.491687050578125*^9, 
   3.491687117703125*^9}, {3.491687269015625*^9, 3.491687281296875*^9}, {
   3.491770767171875*^9, 3.49177077525*^9}, {3.49177085753125*^9, 
   3.49177085846875*^9}, {3.49177101596875*^9, 3.491771046*^9}, {
   3.49186179065625*^9, 3.4918618221875*^9}, {3.4919110275*^9, 
   3.491911028234375*^9}}],

Cell[TextData[{
 "Observe that ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " follows the mathematical convention for principal argument that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"-", "\[Pi]"}], "<", 
    RowBox[{"Arg", "(", "z", ")"}], "\[LessEqual]", "  ", "\[Pi]"}], 
   TraditionalForm]]],
 ":"
}], "Text",
 CellChangeTimes->{{3.490910064703125*^9, 3.490910094796875*^9}, {
  3.49192330875*^9, 3.491923315828125*^9}}],

Cell[BoxData[
 RowBox[{"Arg", "[", 
  RowBox[{"-", "1"}], "]"}]], "Input"],

Cell[TextData[{
 "For ",
 StyleBox["Abs",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " and ",
 StyleBox["Arg",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", the usual difficulty arises in identifying what is real and what is not \
when you have only a symbolic expression representing complex numbers. For \
example:"
}], "Text",
 CellChangeTimes->{
  3.490910152078125*^9, {3.491782577734375*^9, 3.491782614484375*^9}, 
   3.49193452128125*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", " ", "+", " ", "1"}], ")"}], "2"], "+", 
    RowBox[{"\[ImaginaryI]", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "-", 
        RowBox[{"x", " ", "y"}]}], ")"}], "2"]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Abs", "[", "z", "]"}], ",", 
   RowBox[{"Arg", "[", "z", "]"}]}], "}"}]}], "Input",
 CellChangeTimes->{{3.49091015515625*^9, 3.490910171609375*^9}}],

Cell[TextData[{
 "As usual, using ",
 StyleBox["ComplexExpand",
  FontFamily->"Courier"],
 " (see ",
 ButtonBox["above",
  BaseStyle->"Hyperlink",
  ButtonData:>"FunctionComplexExpand"],
 ") comes to the rescue for modulus:"
}], "Text",
 CellChangeTimes->{{3.490910179359375*^9, 3.490910189140625*^9}, {
  3.490910233265625*^9, 3.490910238890625*^9}}],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"Abs", "[", "z", "]"}], "]"}]], "Input"],

Cell[TextData[{
 "Unfortunately, the corresponding method does ",
 StyleBox["not",
  FontSlant->"Italic"],
 " serve to find the principal argument:"
}], "Text"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"ComplexExpand", "[", 
   RowBox[{"Arg", "[", "z", "]"}], "]"}]}]], "Input"],

Cell[TextData[{
 "The reason is that even though ",
 StyleBox["x",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " and ",
 StyleBox["y",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " designate real numbers when ",
 StyleBox["ComplexExpand",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " is used, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " does not know any numeric values for them and so cannot evaluate the \
expression any further."
}], "Text",
 CellChangeTimes->{{3.490910268671875*^9, 3.49091033596875*^9}, {
  3.490910447515625*^9, 3.490910489046875*^9}}],

Cell[TextData[{
 "However, there is a way to express the principal argument in terms of the \
arctangent function. See the ",
 ButtonBox["following subsubsection",
  BaseStyle->"Hyperlink",
  ButtonData->"ArgArcTan"],
 "."
}], "Text",
 CellChangeTimes->{{3.49186269971875*^9, 3.491862725109375*^9}, {
  3.49192339796875*^9, 3.491923434265625*^9}, {3.4919234665625*^9, 
  3.4919234665625*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " (a) Use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to check that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"|", 
     RowBox[{"-", "z"}], "|"}], "=", 
    RowBox[{"|", "z"}]}], TraditionalForm]]],
 "|, first for some specific complex number ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 " and then in general.\n(b) Use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to check that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"|", 
     RowBox[{"\[ImaginaryI]", " ", "z"}], "|"}], "=", 
    RowBox[{"|", "z", "|"}]}], TraditionalForm]]],
 ", first for some specific complex number ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 " and then in general.\n(c) Use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to check that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"|", 
     RowBox[{"z", " ", "w"}], "|"}], "=", 
    RowBox[{"|", "z", "|", " ", "|", "w", "|"}]}], TraditionalForm]]],
 ", first for some specific complex numbers ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox["w", TraditionalForm]]],
 " and then in general.\n(d) For which complex numbers ",
 Cell[BoxData[
  FormBox["c", TraditionalForm]]],
 " is it true that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"|", 
     RowBox[{"c", " ", "z"}], "|"}], "=", 
    RowBox[{"|", "z", "|"}]}], TraditionalForm]]],
 " for all complex numbers ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 "?"
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.4914262018238277`*^9, 
   3.4914264207144527`*^9}},
 ParagraphSpacing->{0.5, 0.}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " (a) If ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " is complex and ",
 Cell[BoxData[
  FormBox["c", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " is real, express ",
 Cell[BoxData[
  FormBox[
   RowBox[{"Arg", "(", 
    RowBox[{"c", " ", "z"}], ")"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " in terms of ",
 Cell[BoxData[
  FormBox["c", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{"Arg", "(", "z", ")"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". Check your answer with ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", both for a specifc numeric ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " and for an arbitrary symbolic ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"x", "+", "y\[ImaginaryI]"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ".\n(b) If ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " is complex, express ",
 Cell[BoxData[
  FormBox[
   RowBox[{"Arg", "(", 
    RowBox[{"\[ImaginaryI]", " ", "z"}], ")"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " in terms of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"Arg", "(", "z", ")"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". Check your answer with ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", both for a specifc numeric ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " and for an arbitrary symbolic ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"x", "+", "y\[ImaginaryI]"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "."
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.491924085078125*^9, 
   3.491924230328125*^9}},
 ParagraphSpacing->{0.5, 0}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 "  (a) Use the meaning of modulus to express ",
 Cell[BoxData[
  FormBox[
   RowBox[{"|", 
    RowBox[{"z", "\[Conjugate]"}], "|"}], TraditionalForm]]],
 " in terms of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"|", "z", "|"}], TraditionalForm]]],
 ". Check your answer with ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", both for a specifc numeric ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 " and for an arbitrary symbolic ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"x", "+", "y\[ImaginaryI]"}]}], TraditionalForm]]],
 ".\n(b) Use the meaning of the principal argument to express ",
 Cell[BoxData[
  FormBox[
   RowBox[{"Arg", "(", 
    RowBox[{"z", "\[Conjugate]"}], ")"}], TraditionalForm]]],
 " in terms of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"Arg", "(", "z", ")"}], TraditionalForm]]],
 ". Check your answer with ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", both for a specifc numeric ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 " and for an arbitrary symbolic ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"x", "+", "y\[ImaginaryI]"}]}], TraditionalForm]]],
 ".\n(c) Express the polar form of the conjugate ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "\[Conjugate]"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " in terms of the polar form of a complex number ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". Check your answer with ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", both for a specifc numeric ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 " in polar form and for an arbitrary symbolic ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"r", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", "\[Theta]"}]]}]}], TraditionalForm]]],
 "."
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.4919237905*^9, 
   3.491923801390625*^9}, {3.49192383684375*^9, 3.491924045484375*^9}, {
   3.49193228553125*^9, 3.491932374828125*^9}},
 ParagraphSpacing->{0.5, 0}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " (a) By means of a specific counterexample, show that the equality ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"|", 
     RowBox[{"z", "+", "w"}], "|"}], "=", 
    RowBox[{"|", "z", "|", 
     RowBox[{"+", 
      RowBox[{"|", "w", "|"}]}]}]}], TraditionalForm]]],
 " need hold.\n(b) Find conditions when that equality does hold. (Try to find \
conditions more general than that ",
 Cell[BoxData[
  FormBox[
   RowBox[{"w", "=", "0"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " or ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", "0"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ".)\n(c) Demonstrate with ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " that the Triangle Inequality ",
 Cell[BoxData[
  FormBox[
   RowBox[{"|", 
    RowBox[{"z", "+", "w"}], "|", 
    RowBox[{"<=", 
     RowBox[{"|", "z", "|", 
      RowBox[{"+", 
       RowBox[{"|", "w", "|"}]}]}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " holds for all ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " and ",
 Cell[BoxData[
  FormBox["w", TraditionalForm]],
  FormatType->"TraditionalForm"],
 "."
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.4914264684644527`*^9, 
   3.4914265230113277`*^9}, {3.4914358199644527`*^9, 3.4914360193394527`*^9}},
 ParagraphSpacing->{0.5, 0.}],

Cell[CellGroupData[{

Cell["Argument and the arctangent function", "Subsubsection",
 ShowGroupOpener->True,
 CellTags->"ArgArcTan"],

Cell[TextData[{
 "If you have a complex number in the form ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"x", "+", 
     RowBox[{"\[ImaginaryI]", " ", "y"}]}]}], TraditionalForm]]],
 " with ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "\[NotEqual]", "0"}], TraditionalForm]]],
 ", you might think that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"Arg", "(", "z", ")"}], "=", 
    RowBox[{"arctan", "(", 
     RowBox[{"y", "/", "x"}], ")"}]}], TraditionalForm]]],
 ", but that is ",
 StyleBox["not",
  FontSlant->"Italic"],
 " always true! The trouble is that the ratio ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "/", "x"}], TraditionalForm]]],
 " obscures which quadrant the point ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"x", ",", "y"}], ")"}], TraditionalForm]]],
 " lies in. For example:"
}], "Text",
 CellChangeTimes->{{3.490910377359375*^9, 3.490910410390625*^9}, {
  3.490910840734375*^9, 3.49091091884375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Arg", "[", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "\[ImaginaryI]"}], "]"}], ",", 
   RowBox[{"ArcTan", "[", 
    FractionBox["1", 
     RowBox[{"-", "1"}]], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.49091059453125*^9, 3.490910598234375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Arg", "[", 
    RowBox[{
     RowBox[{"-", "1"}], "-", "\[ImaginaryI]"}], "]"}], ",", 
   RowBox[{"ArcTan", "[", 
    FractionBox[
     RowBox[{"-", "1"}], 
     RowBox[{"-", "1"}]], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.490910620359375*^9, 3.49091062434375*^9}}],

Cell[TextData[{
 StyleBox["\[WarningSign]",
  FontSize->18,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0],
  Background->RGBColor[1, 1, 0]],
 StyleBox[" Caution:",
  FontSlant->"Italic"],
 "  It is very dangerous to use the ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " expression ",
 StyleBox["ArcTan[y/x]",
  FontFamily->"Courier"],
 " to find ",
 StyleBox["Arg[x+\[ImaginaryI]\[ThinSpace]y]",
  FontFamily->"Courier"],
 StyleBox[", even when ",
  FontFamily->"Times",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 StyleBox["x",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 StyleBox[" and ",
  FontFamily->"Times",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 StyleBox["y",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 StyleBox[" have specific numerical values.",
  FontFamily->"Times",
  FontWeight->"Plain",
  FontSlant->"Plain"]
}], "Text",
 CellChangeTimes->{{3.49091064303125*^9, 3.49091069409375*^9}, {
  3.49192352190625*^9, 3.4919235276875*^9}}],

Cell[TextData[{
 "What you can more safely use, however, is the two-argument form ",
 StyleBox["ArcTan[x,y]",
  FontFamily->"Courier"],
 " to find ",
 StyleBox["Arg[x+\[ImaginaryI]",
  FontFamily->"Courier"],
 StyleBox["\[ThinSpace]",
  FontFamily->"Courier"],
 StyleBox["y]",
  FontFamily->"Courier"],
 ". The two-argument forms takes account of the quadrant in which the point ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"x", ",", "y"}], ")"}], TraditionalForm]]],
 " lies. For example:"
}], "Text",
 CellChangeTimes->{{3.4909107160625*^9, 3.4909107974375*^9}, 
   3.491923537375*^9}],

Cell[BoxData[{
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Arg", "[", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "\[ImaginaryI]"}], "]"}], ",", 
   RowBox[{"ArcTan", "[", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1"}], "]"}]}], "}"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Arg", "[", 
    RowBox[{
     RowBox[{"-", "1"}], "-", "\[ImaginaryI]"}], "]"}], ",", " ", 
   RowBox[{"ArcTan", "[", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}]}], "]"}]}], "}"}]}], "Input",
 CellChangeTimes->{{3.49091072728125*^9, 3.490910741421875*^9}}],

Cell[TextData[{
 "And whereas ",
 StyleBox["ArcTan[1/0]",
  FontFamily->"Courier"],
 " is indeterminate, the two-argument form ",
 StyleBox["ArcTan[0,1]",
  FontFamily->"Courier"],
 " works:"
}], "Text",
 CellChangeTimes->{3.49192354546875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Arg", "[", "\[ImaginaryI]", "]"}], ",", 
   RowBox[{"ArcTan", "[", 
    RowBox[{"0", ",", "1"}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.490910818359375*^9, 3.49091082515625*^9}, 
   3.491923577140625*^9, 3.49192361746875*^9}],

Cell[TextData[{
 "But it is still a bit dangerous even to use ",
 StyleBox["ArcTan[x,y]",
  FontFamily->"Courier"],
 " to find ",
 StyleBox["Arg[x+\[ImaginaryI]y]",
  FontFamily->"Courier"],
 ": both ",
 StyleBox["x",
  FontFamily->"Courier"],
 " and ",
 StyleBox["y",
  FontFamily->"Courier"],
 " might be 0. And recall that ",
 Cell[BoxData[
  FormBox[
   RowBox[{"Arg", "(", "0", ")"}], TraditionalForm]]],
 " is not defined mathematically."
}], "Text",
 CellChangeTimes->{{3.49091096384375*^9, 3.4909110041875*^9}, 
   3.49091105553125*^9}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " What, if anything, does ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " give as the value of ",
 StyleBox["Arg[0]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "?"
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.490911022609375*^9, 
   3.490911065609375*^9}}],

Cell[TextData[{
 "For a way to convert an expression with symbolic variables involving ",
 StyleBox["Arg",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " to one involving ",
 StyleBox["ArcTan",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", ",
 ButtonBox["see below",
  BaseStyle->"Hyperlink",
  ButtonData->"ArgToArcTan"],
 "."
}], "Text",
 CellChangeTimes->{{3.491923629671875*^9, 3.4919236435*^9}, {
  3.491924331890625*^9, 3.49192433290625*^9}, {3.49192438340625*^9, 
  3.49192438846875*^9}, {3.491924483515625*^9, 3.491924547875*^9}, {
  3.491924650515625*^9, 3.491924650515625*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Traditional notation for modulus (",
 StyleBox["very",
  FontSlant->"Italic"],
 " ",
 StyleBox["advanced",
  FontSlant->"Italic"],
 ")"
}], "Subsubsection",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.490911310984375*^9, 3.49091131340625*^9}, {
  3.491925103765625*^9, 3.4919251044375*^9}}],

Cell[TextData[{
 "When you are typing text in a text cell, to get the traditional notation ",
 Cell[BoxData[
  FormBox[
   RowBox[{"|", "z", "|"}], TraditionalForm]]],
 " to denote the modulus of a complex number, just use the | key on the \
keykboard."
}], "Text"],

Cell[TextData[{
 "To cause ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to evaluate the notation ",
 StyleBox["|z|",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " as if it meant ",
 StyleBox["Abs[z]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " takes more work. It probably is more trouble than the result is worth, as \
it requires that you use the ",
 StyleBox["Notation",
  FontFamily->"Times",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 " add-on package that is supplied with ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.49091124628125*^9, 3.490911326828125*^9}, {
  3.49091165875*^9, 3.49091169690625*^9}}],

Cell[TextData[{
 "If you really must use the traditional notation for complex modulus, begin \
by evaluating the following two input cells. The first loads the ",
 StyleBox["Notation",
  FontSlant->"Italic"],
 " package; the second sets up the notational equialence."
}], "Text",
 CellChangeTimes->{{3.49091124628125*^9, 3.490911326828125*^9}, {
   3.49091165875*^9, 3.4909117208125*^9}, 3.49192480665625*^9, {
   3.491925025640625*^9, 3.491925039859375*^9}}],

Cell[BoxData[
 RowBox[{"<<", "Notation`"}]], "Input",
 CellChangeTimes->{{3.4909112101875*^9, 3.490911214828125*^9}, {
  3.49192501975*^9, 3.491925022015625*^9}}],

Cell[BoxData[
 RowBox[{"Notation", "[", 
  RowBox[{
   TemplateBox[{RowBox[{"|", "z_", "|"}]},
    "NotationTemplateTag"], " ", "\[DoubleLongLeftRightArrow]", " ", 
   TemplateBox[{RowBox[{"Abs", "[", "z_", "]"}]},
    "NotationTemplateTag"]}], "]"}]], "Input",
 CellChangeTimes->{{3.4909114903125*^9, 3.49091150825*^9}, {
  3.49091155803125*^9, 3.4909115611875*^9}}],

Cell[TextData[{
 StyleBox["\[WarningSign]",
  FontSize->18,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0],
  Background->RGBColor[1, 1, 0]],
 StyleBox[" Caution:",
  FontSlant->"Italic"],
 " Do ",
 StyleBox["not",
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0, 0]],
 " type the second of those input cells yourself! Intead, either copy and \
paste the entire cell into your notebook or else reproduce it using the \
Notation palette that pops-up when you load the Notation package."
}], "Text",
 CellChangeTimes->{{3.490911636921875*^9, 3.490911638921875*^9}, {
  3.490911729390625*^9, 3.490911736875*^9}}],

Cell[TextData[{
 "You may now use the traditional notation as input (although ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " will still complain about the syntax by coloring the ",
 StyleBox["|",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " symbols):"
}], "Text",
 CellChangeTimes->{{3.491924727484375*^9, 3.4919247586875*^9}}],

Cell[BoxData[
 RowBox[{"|", 
  RowBox[{"2", "+", 
   RowBox[{"3", "I"}]}], "|"}]], "Input"],

Cell[TextData[{
 "You'll still need to use ",
 StyleBox["ComplexExpand",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", too, when the expression inside the ",
 StyleBox["| |",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " involves symbols:"
}], "Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", "+", "1"}], ")"}], "2"], "+", 
    RowBox[{"\[ImaginaryI]", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "-", 
        RowBox[{"x", " ", "y"}]}], ")"}], "2"]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"|", "z", "|"}], "]"}]}], "Input",
 CellChangeTimes->{{3.490911759015625*^9, 3.49091177040625*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Converting from Cartesian to polar form", "Subsection",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.49091182428125*^9, 3.490911824984375*^9}, 
   3.4925189045625*^9}],

Cell["\<\
Compare the drawings made earlier of the real and imaginary parts of a \
complex number, on the one hand, and of its modulus and principal argument. \
Here they are, side-by-side:\
\>", "Text",
 CellChangeTimes->{{3.491770865265625*^9, 3.491770916359375*^9}, {
  3.491771110203125*^9, 3.4917711188125*^9}}],

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", 
   RowBox[{"CartesianDrawing", ",", "polarDrawing"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.49177092040625*^9, 3.491770991296875*^9}, {
   3.491911067265625*^9, 3.49191107425*^9}, 3.492518904578125*^9}],

Cell["\<\
And here they are again, superimposed:\
\>", "Text",
 CellChangeTimes->{{3.491771123015625*^9, 3.491771129078125*^9}, 
   3.49178265821875*^9}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"CartesianDrawing", ",", "polarDrawing"}], "}"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "None"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.49177106146875*^9, 3.49177110428125*^9}, 
   3.491911087828125*^9, 3.492518904578125*^9}],

Cell[TextData[{
 "These drawings are for one particular complex number ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 ". But they suggest, and trigonometry proves, the following general \
relationship:\nIf \n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"x", "+", 
     RowBox[{"y", " ", "\[ImaginaryI]"}]}]}], TraditionalForm]]],
 " with ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox["y", TraditionalForm]]],
 " real, \nand if\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{"r", "=", 
    RowBox[{"|", "z", "|"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Theta]", "=", 
    RowBox[{"Arg", "(", "z", ")"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ",\nthen\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "=", 
    RowBox[{"r", " ", "cos", " ", "\[Theta]"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    RowBox[{"r", " ", "sin", " ", "\[Theta]"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ",\nand so\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{
     RowBox[{"r", " ", "cos", " ", "\[Theta]"}], " ", "+", " ", 
     RowBox[{"\[ImaginaryI]", " ", "r", " ", "sin", " ", "\[Theta]"}]}]}], 
   TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". \nIn other words, for a complex number ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],
  FormatType->"TraditionalForm"],
 ",\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"|", "z", "|", 
     RowBox[{
      RowBox[{"cos", "(", 
       RowBox[{"Arg", "(", "z", ")"}], ")"}], "+", "\[ImaginaryI]"}], "|", 
     "z", "|", 
     RowBox[{
      RowBox[{"sin", "(", 
       RowBox[{"Arg", "(", "z", ")"}], ")"}], "."}]}]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.4914360487925777`*^9, 3.4914361150894527`*^9}, {
   3.4914361521832027`*^9, 3.4914361527769527`*^9}, {3.491771137921875*^9, 
   3.49177140803125*^9}, {3.491771632296875*^9, 3.49177172115625*^9}, 
   3.49178267465625*^9, {3.49186184475*^9, 3.49186184475*^9}, {
   3.49186198853125*^9, 3.49186198853125*^9}, {3.491925508859375*^9, 
   3.49192568865625*^9}},
 ParagraphSpacing->{0.5, 0.}],

Cell[TextData[{
 "We call the preceding representation the ",
 StyleBox["polar form",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " of a complex number ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 ". Of course it\[CloseCurlyQuote]s just another expression for the ",
 "Cartesian",
 " form of ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 " and so more properly is called the ",
 StyleBox["trigonometric form",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " of ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 "."
}], "Text",
 CellChangeTimes->{{3.4914360487925777`*^9, 3.4914361150894527`*^9}, {
   3.4914361521832027`*^9, 3.4914361527769527`*^9}, {3.491771137921875*^9, 
   3.49177140803125*^9}, {3.491771632296875*^9, 3.49177172115625*^9}, {
   3.49178267465625*^9, 3.491782676609375*^9}, {3.49192570521875*^9, 
   3.491925750515625*^9}, 3.4925189046875*^9},
 ParagraphSpacing->{0.5, 0.}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " (a) Form a specific, numeric complex number ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", "\[ImaginaryI]"}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". In ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", define ",
 Cell[BoxData[
  FormBox[
   RowBox[{"r", "=", 
    RowBox[{"|", "z", "|"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Theta]", "=", 
    RowBox[{"Arg", "(", "z", ")"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", then demonstrate that ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{
     RowBox[{"r", " ", "cos", " ", "\[Theta]"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "r", " ", "sin", " ", "\[Theta]"}]}]}], 
   TraditionalForm]],
  FormatType->"TraditionalForm"],
 ".\n(b) Repeat (a) but now for an arbitrary, symbolic complex number ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"x", "+", 
     RowBox[{"y", " ", "\[ImaginaryI]"}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". What goes wrong, and why?"
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.49186211228125*^9, 
   3.49186227384375*^9}},
 ParagraphSpacing->{0.5, 0}],

Cell[TextData[{
 "Either of two notations is at times used to denote the polar form:\n\t\
\[FilledSmallCircle] ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"r", " ", "cis", " ", "\[Theta]"}]}], TraditionalForm]]],
 ", where ",
 Cell[BoxData[
  FormBox[
   RowBox[{"cis", " ", "\[Theta]"}], TraditionalForm]]],
 " is just an abbreviation for ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"cos", " ", "\[Theta]"}], "+", 
    RowBox[{"\[ImaginaryI]", " ", "sin", " ", "\[Theta]"}]}], 
   TraditionalForm]]],
 ".\n\t\[FilledSmallCircle] ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    StyleBox[
     TemplateBox[{
      "r",StyleBox["\"\[Angle]\"", StripOnInput -> False, FontSize -> Large],
       "\[Theta]"},
      "Row",
      DisplayFunction->(
       RowBox[{#, "\[InvisibleSpace]", #2, "\[InvisibleSpace]", #3}]& ),
      InterpretationFunction->(RowBox[{"Row", "[", 
         RowBox[{"{", 
           RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )],
     StripOnInput->False,
     ShowStringCharacters->False]}], TraditionalForm]]],
 " (see the",
 ButtonBox[" subsection below",
  BaseStyle->"Hyperlink",
  ButtonData->"rTheta"],
 " about using this notation in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ")"
}], "Text",
 CellChangeTimes->{{3.49177142359375*^9, 3.491771591359375*^9}, {
   3.491771743796875*^9, 3.491771854171875*^9}, {3.491771976140625*^9, 
   3.491772050265625*^9}, {3.491772290359375*^9, 3.491772298140625*^9}, 
   3.49177233421875*^9, {3.49177238178125*^9, 3.49177242146875*^9}, {
   3.49177246715625*^9, 3.4917724868125*^9}, {3.491782692140625*^9, 
   3.491782715046875*^9}, {3.49178274778125*^9, 3.49178276828125*^9}, {
   3.491862290765625*^9, 3.491862291578125*^9}, {3.49192579453125*^9, 
   3.491925833171875*^9}, {3.491925864640625*^9, 3.491925865578125*^9}},
 ParagraphSpacing->{0.5, 0.}],

Cell[TextData[{
 "There is yet another way to express the polar form, by using the complex \
exponential function ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"\[ImaginaryI]", " ", "z"}]], TraditionalForm]]],
 ". In the case of ",
 StyleBox["real",
  FontSlant->"Italic"],
 " ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", that function satisfies ",
 StyleBox["Euler\[CloseCurlyQuote]s formula",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 ":"
}], "Text",
 CellChangeTimes->{{3.491926167703125*^9, 3.491926299625*^9}, {
  3.491926709734375*^9, 3.491926716453125*^9}, {3.49192675659375*^9, 
  3.491926766875*^9}, {3.4919272994375*^9, 3.491927337484375*^9}, {
  3.491927441765625*^9, 3.49192744228125*^9}},
 ParagraphSpacing->{0.5, 0}],

Cell[TextData[{
 "\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"\[ImaginaryI]", " ", "\[Theta]"}]], "=", 
    RowBox[{
     RowBox[{"cos", " ", "\[Theta]"}], " ", "+", " ", 
     RowBox[{"\[ImaginaryI]", " ", "sin", " ", "\[Theta]"}]}]}], 
   TraditionalForm]],
  FormatType->"TraditionalForm"],
 "\t(",
 Cell[BoxData[
  FormBox["\[Theta]", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " real)"
}], "EmphasisText",
 CellChangeTimes->{{3.49192739240625*^9, 3.491927435890625*^9}}],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " already knows that formula:"
}], "Text",
 CellChangeTimes->{{3.491926312453125*^9, 3.4919263195*^9}, {
  3.4919267226875*^9, 3.491926724109375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Exp", "[", 
   RowBox[{"\[ImaginaryI]", " ", "\[Theta]"}], "]"}], "//", 
  "ComplexExpand"}]], "Input",
 CellChangeTimes->{{3.491926081796875*^9, 3.49192609078125*^9}, {
  3.491926324734375*^9, 3.491926331265625*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Use Euler\[CloseCurlyQuote]s formula to find the values of ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"\[Pi]", " ", "\[ImaginaryI]"}]], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Pi]", "/", "2"}], ")"}], "\[ImaginaryI]"}]], 
   TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[DoubledPi]", "/", "4"}], ")"}], "\[ImaginaryI]"}]], 
   TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", and ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", "\[Pi]", " ", "\[ImaginaryI]"}]], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". Check your answers with ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "."
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.491926399203125*^9, 
   3.491926578046875*^9}, {3.491926731765625*^9, 3.49192674271875*^9}}],

Cell[TextData[{
 "In view of Euler\[CloseCurlyQuote]s formula, the polar form ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{
     RowBox[{"r", " ", "cos", " ", "\[Theta]"}], " ", "+", " ", 
     RowBox[{"\[ImaginaryI]", " ", "r", " ", "sin", " ", "\[Theta]"}]}]}], 
   TraditionalForm]]],
 " of a complex number ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 " is equivalent to the ",
 StyleBox["exponential form",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"r", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", "\[Theta]"}]]}]}], TraditionalForm]]],
 ". This exponential form is itself often referred to as the polar form!"
}], "Text",
 CellChangeTimes->{{3.491926356578125*^9, 3.491926373421875*^9}, {
  3.49192674521875*^9, 3.491926748078125*^9}, {3.491926791921875*^9, 
  3.49192689871875*^9}}],

Cell[TextData[{
 "To convert a specific, numeric complex number ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", "\[ImaginaryI]"}]}]}], TraditionalForm]]],
 " in ",
 "Cartesian",
 " form to exponential form ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"r", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", "\[Theta]"}]]}]}], TraditionalForm]]],
 ", do the obvious thing:"
}], "Text",
 CellChangeTimes->{{3.490911882265625*^9, 3.490911891734375*^9}, {
   3.49177183734375*^9, 3.491771838921875*^9}, {3.491926926828125*^9, 
   3.491926929046875*^9}, 3.49251890484375*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["z", "0"], "=", 
   RowBox[{"2", "+", 
    RowBox[{"3", "\[ImaginaryI]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Abs", "[", 
   SubscriptBox["z", "0"], "]"}], " ", 
  RowBox[{"Exp", "[", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"Arg", "[", 
     SubscriptBox["z", "0"], "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.490911897875*^9, 3.490911954578125*^9}, {
  3.4917721086875*^9, 3.491772166390625*^9}, {3.491772228796875*^9, 
  3.491772229921875*^9}, {3.491927465890625*^9, 3.49192746678125*^9}}],

Cell[TextData[{
 "When the argument is one of the standard values that ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " \"knows\", it will be found explicitly:"
}], "Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["z", "1"], "=", 
   RowBox[{"1", "+", "\[ImaginaryI]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Abs", "[", 
   SubscriptBox["z", "1"], "]"}], 
  RowBox[{"Exp", "[", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"Arg", "[", 
     SubscriptBox["z", "1"], "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.490911967765625*^9, 3.490911978359375*^9}, {
  3.491927475*^9, 3.4919274755625*^9}}],

Cell["\<\
You will ordinarily have considerable difficulty in obtaining the polar form \
of a Cartesian form symbolic expression representing complex numbers. The \
best you will be able to do usually is to obtain an explicit form for the \
modulus. For example:\
\>", "Text",
 CellChangeTimes->{{3.49091198915625*^9, 3.490912039484375*^9}, 
   3.49251890496875*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", "+", "1"}], ")"}], "2"], "+", 
    RowBox[{"\[ImaginaryI]", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "-", 
        RowBox[{"x", " ", "y"}]}], ")"}], "2"]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ComplexExpand", "[", 
   RowBox[{"Abs", "[", "z", "]"}], "]"}], 
  RowBox[{"Exp", "[", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"Arg", "[", "z", "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.49091204246875*^9, 3.490912058703125*^9}}],

Cell[TextData[{
 "For a more explicit representation of ",
 StyleBox["Arg[z]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " there in terms of ",
 StyleBox["ArcTan",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", ",
 Cell[BoxData[
  FormBox[
   ButtonBox[
    RowBox[{"see", " ", "below"}],
    BaseStyle->"Hyperlink",
    ButtonData->"ArgToArcTan"], TraditionalForm]]],
 "."
}], "Text",
 CellChangeTimes->{{3.490912396328125*^9, 3.490912397*^9}, 
   3.491782843609375*^9, {3.491782875703125*^9, 3.49178287653125*^9}, {
   3.49186363265625*^9, 3.491863642359375*^9}, {3.4919246225625*^9, 
   3.4919246225625*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "Expressing ",
 StyleBox["Arg",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 " in terms of ",
 StyleBox["ArcTan",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 " (",
 StyleBox["advanced",
  FontSlant->"Italic"],
 ")"
}], "Subsubsection",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.490912081203125*^9, 3.490912094*^9}, {
  3.491862832859375*^9, 3.49186284671875*^9}, {3.491924344109375*^9, 
  3.49192434628125*^9}},
 CellTags->"ArgToArcTan"],

Cell[TextData[{
 "In the preceding example, the expression ",
 StyleBox["Arg[z]",
  FontFamily->"Courier"],
 " was left in the form ",
 Cell[BoxData[
  RowBox[{"Arg", "[", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "x"}], ")"}], "2"], "+", 
    RowBox[{"\[ImaginaryI]", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "-", 
        RowBox[{"x", " ", "y"}]}], ")"}], "2"]}]}], "]"}]]],
 ". To obtain a more explicit representation of that, in terms of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "'s ",
 StyleBox["ArcTan",
  FontFamily->"Courier"],
 " function, invoke  ",
 StyleBox["ComplexExpand",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " with the option ",
 StyleBox["TargetFunctions\[Rule]{Re,Im}",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ":"
}], "Text",
 CellChangeTimes->{{3.490912111484375*^9, 3.490912119*^9}, 3.4918633015*^9, {
   3.49192429475*^9, 3.491924296609375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", "+", "1"}], ")"}], "2"], "+", 
    RowBox[{"\[ImaginaryI]", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "-", 
        RowBox[{"x", " ", "y"}]}], ")"}], "2"]}]}]}], ";", 
  RowBox[{"ComplexExpand", "[", 
   RowBox[{
    RowBox[{"Arg", "[", "z", "]"}], ",", 
    RowBox[{"TargetFunctions", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Re", ",", "Im"}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{3.491863123125*^9, 3.491863349125*^9}],

Cell[TextData[{
 "To obtain that representation in the entire example, you may use the ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " \"rule\" ",
 StyleBox["z:Arg[_]\[RuleDelayed]ComplexExpand[z,TargetFunctions\[Rule]{Re,Im}\
]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " as follows: "
}], "Text",
 CellChangeTimes->{{3.491863530328125*^9, 3.491863553078125*^9}, {
  3.4918635904375*^9, 3.491863594875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"z", " ", "=", " ", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", " ", "+", " ", "1"}], ")"}], "2"], "  ", "+", " ", 
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", " ", "-", 
        RowBox[{"x", " ", "y"}]}], ")"}], "2"]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ComplexExpand", "[", 
    RowBox[{"Abs", "[", "z", "]"}], "]"}], " ", 
   RowBox[{"Exp", "[", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"Arg", "[", "z", "]"}]}], "]"}]}], " ", "/.", " ", 
  RowBox[{
   RowBox[{"z", ":", 
    RowBox[{"Arg", "[", "_", "]"}]}], " ", "\[RuleDelayed]", " ", 
   RowBox[{"ComplexExpand", "[", 
    RowBox[{"z", ",", 
     RowBox[{"TargetFunctions", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Re", ",", "Im"}], "}"}]}]}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.4918631461875*^9, 3.491863157609375*^9}}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Obtain the polar representation of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"x", "+", "1"}], ")"}], "2"], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "-", 
         RowBox[{"x", " ", "y"}]}], ")"}], "2"]}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " in a form ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"r", " ", "cos", " ", "\[Theta]"}], " ", "+", " ", 
    RowBox[{"r", " ", "sin", " ", "\[Theta]"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " where ",
 Cell[BoxData[
  FormBox["\[Theta]", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " in turn is expressed in terms of arctan and where ",
 Cell[BoxData[
  FormBox["r", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " is, of course, expressed directly in terms of ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " and ",
 Cell[BoxData[
  FormBox["y", TraditionalForm]],
  FormatType->"TraditionalForm"],
 "."
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.49186367390625*^9, 
   3.491863813125*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "r\[Angle]\[Theta] notation:",
 StyleBox[" ComplexPolar",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"]
}], "Subsubsection",
 CellChangeTimes->{{3.49091243415625*^9, 3.490912490703125*^9}, {
  3.4909125576875*^9, 3.49091259228125*^9}, {3.490912730921875*^9, 
  3.4909127383125*^9}},
 CellTags->"rTheta"],

Cell[TextData[{
 "The ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " function ",
 StyleBox["ComplexPolar",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 " realizes the ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"r", "\[Angle]\[Theta]"}]], TraditionalForm]]],
 " notation for the polar form, and in a way that you can use in computation."
}], "Text",
 CellChangeTimes->{{3.490912534*^9, 3.49091254925*^9}, {3.49091259853125*^9, 
   3.4909126861875*^9}, {3.490912834125*^9, 3.4909128436875*^9}, 
   3.49177253340625*^9, {3.491772662109375*^9, 3.4917726676875*^9}, {
   3.491782888453125*^9, 3.491782888984375*^9}}],

Cell[BoxData[
 RowBox[{"ComplexPolar", "[", 
  RowBox[{
   SqrtBox["2"], ",", 
   RowBox[{"\[Pi]", "/", "4"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.49091293275*^9, 3.490912964921875*^9}, 
   3.49177267921875*^9}],

Cell[TextData[{
 "The ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " function ",
 StyleBox["PolarToComplex",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 " converts such a ",
 StyleBox["ComplexPolar",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " form to ",
 "Cartesian",
 " form:"
}], "Text",
 CellChangeTimes->{{3.49178305115625*^9, 3.4917830648125*^9}, {
   3.49178309640625*^9, 3.491783115921875*^9}, 3.492518905109375*^9}],

Cell[BoxData[
 RowBox[{"PolarToComplex", "[", 
  RowBox[{"ComplexPolar", "[", 
   RowBox[{
    SqrtBox["2"], ",", 
    RowBox[{"\[Pi]", "/", "4"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.491783120046875*^9, 3.491783130796875*^9}}],

Cell[TextData[{
 "And the ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " function ",
 StyleBox["ComplexToPolar",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 " does the opposite conversion:"
}], "Text",
 CellChangeTimes->{{3.491783136140625*^9, 3.4917831549375*^9}}],

Cell[BoxData[
 RowBox[{"ComplexToPolar", "[", 
  RowBox[{"1", "+", "\[ImaginaryI]"}], "]"}]], "Input",
 CellChangeTimes->{{3.49178315671875*^9, 3.49178316378125*^9}}],

Cell[TextData[{
 "The ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " function ",
 StyleBox["PolarToExp",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 " converts from such a ",
 StyleBox["ComplexPolar",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " form to exponential form:"
}], "Text",
 CellChangeTimes->{{3.491933053921875*^9, 3.491933092703125*^9}}],

Cell[BoxData[
 RowBox[{"PolarToExp", "[", 
  RowBox[{"ComplexToPolar", "[", 
   RowBox[{"1", "+", "\[ImaginaryI]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.491933099328125*^9, 3.4919331133125*^9}}],

Cell[TextData[{
 "Except when the argument is one of the special angles that ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " \[OpenCurlyDoubleQuote]knows\[CloseCurlyDoubleQuote], the best ",
 StyleBox["ComplexToPolar",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " can do is to give an argument in terms of ",
 StyleBox["ArcTan",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ":"
}], "Text",
 CellChangeTimes->{{3.491783260765625*^9, 3.491783341890625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["z", "0"], "=", 
   RowBox[{"2", "+", 
    RowBox[{"3", "I"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ComplexToPolar", "[", 
  SubscriptBox["z", "0"], "]"}]}], "Input",
 CellChangeTimes->{{3.490911897875*^9, 3.490911954578125*^9}, {
  3.490912718140625*^9, 3.4909127730625*^9}, {3.490912853765625*^9, 
  3.49091285896875*^9}, {3.490912940984375*^9, 3.490912941578125*^9}}],

Cell[TextData[{
 "Although ",
 StyleBox["ComplexToPolar",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " always expresses the angle in terms of radians, you may enter the second \
argument of ",
 StyleBox["ComplexPolar",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " in degrees instead of radians:"
}], "Text",
 CellChangeTimes->{{3.4919332383125*^9, 3.49193327115625*^9}, {
  3.491933381859375*^9, 3.491933399703125*^9}, {3.491933747921875*^9, 
  3.491933785796875*^9}, {3.49193388015625*^9, 3.491933911125*^9}}],

Cell[BoxData[
 RowBox[{"ComplexPolar", "[", 
  RowBox[{
   SqrtBox["2"], ",", 
   RowBox[{"45", "Degree"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.491933272578125*^9, 3.491933286296875*^9}, 
   3.491934031078125*^9}],

Cell["\<\
And you may even use a degree symbol, typed as \[EscapeKey]deg\[EscapeKey]\
\[ThinSpace]:\
\>", "Text",
 CellChangeTimes->{{3.49193340690625*^9, 3.49193344965625*^9}, {
  3.491933495765625*^9, 3.491933511796875*^9}}],

Cell[BoxData[
 RowBox[{"ComplexPolar", "[", 
  RowBox[{
   SqrtBox["2"], ",", 
   RowBox[{"45", "\[Degree]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4919334545625*^9, 3.491933483421875*^9}, 
   3.49193379984375*^9}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Check that the conversion from ",
 StyleBox["ComplexPolar",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " form to ",
 "Cartesian",
 " form also works when you specify the angle in degrees."
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.491933810625*^9, 
   3.491933831921875*^9}, {3.49193386309375*^9, 3.49193386684375*^9}, {
   3.491933931921875*^9, 3.491933978875*^9}, 3.49251890521875*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Converting from polar to Cartesian form", "Subsection",
 CellChangeTimes->{{3.49091185084375*^9, 3.490911858078125*^9}, {
   3.49191110065625*^9, 3.491911101078125*^9}, 3.492518905328125*^9}],

Cell[TextData[{
 "To convert a polar form ",
 Cell[BoxData[
  FormBox[
   RowBox[{"r", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"\[ImaginaryI]", " ", "\[Theta]"}]]}], TraditionalForm]]],
 " to ",
 "Cartesian",
 " form\[LongDash]even if that polar form is symbolic\[LongDash]just use ",
 StyleBox["ComplexExpand",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ":"
}], "Text",
 CellChangeTimes->{{3.491911247953125*^9, 3.491911319375*^9}, {
   3.49191153221875*^9, 3.491911538359375*^9}, {3.491911582578125*^9, 
   3.491911605296875*^9}, 3.4925189054375*^9}],

Cell[BoxData[{
 RowBox[{
  SubscriptBox["z", "2"], "=", 
  RowBox[{"3", 
   RowBox[{"Exp", "[", 
    RowBox[{
     FractionBox["\[Pi]", "11"], "\[ImaginaryI]"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"ComplexExpand", "[", 
  SubscriptBox["z", "2"], "]"}]}], "Input",
 CellChangeTimes->{{3.491911175078125*^9, 3.491911222375*^9}, {
  3.491911327234375*^9, 3.491911463171875*^9}, {3.491911493296875*^9, 
  3.491911549703125*^9}, {3.491927071515625*^9, 3.49192707190625*^9}}],

Cell[BoxData[{
 RowBox[{"Clear", "[", "z", "]"}], "\[IndentingNewLine]", 
 RowBox[{"z", "=", 
  RowBox[{"r", " ", 
   RowBox[{"Exp", "[", 
    RowBox[{"\[ImaginaryI]", " ", "\[Theta]"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"ComplexExpand", "[", "z", "]"}]}], "Input",
 CellChangeTimes->{{3.491911175078125*^9, 3.491911222375*^9}, {
  3.491911327234375*^9, 3.491911463171875*^9}, {3.491911493296875*^9, 
  3.4919115548125*^9}}],

Cell[TextData[{
 "The same method works to convert to ",
 "Cartesian",
 " form functions of a complex variable ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 " when that variable is already specified in polar form. Here are two \
examples of such conversions."
}], "Text",
 CellChangeTimes->{
  3.491864313375*^9, {3.491911697265625*^9, 3.49191175959375*^9}, 
   3.492518905546875*^9}],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  SuperscriptBox["z", "2"], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{
   SuperscriptBox["z", "2"], "+", 
   RowBox[{"3", "z"}], "+", "\[ImaginaryI]", "+", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.49186439778125*^9, 3.491864401703125*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "More about assumed complex real variables and target functions in ",
 StyleBox["ComplexExpand",
  FontFamily->"Courier"],
 " (",
 StyleBox["advanced",
  FontSlant->"Italic"],
 ")"
}], "Subsubsection",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.490907555859375*^9, 3.490907577453125*^9}},
 CellTags->"MoreAdvancedComplexExpand"],

Cell[TextData[{
 "This continues the discussion begun ",
 ButtonBox["above",
  BaseStyle->"Hyperlink",
  ButtonData:>"AdvancedComplexExpand"],
 " about ",
 StyleBox["ComplexExpand",
  FontFamily->"Courier"],
 " with a second argument or a ",
 StyleBox["TargetFunctions",
  FontFamily->"Courier"],
 " option."
}], "Text"],

Cell[TextData[{
 "To express a function of a complex variable in terms of that variable's \
modulus and argument, you may use the form of ",
 StyleBox["ComplexExpand",
  FontFamily->"Courier"],
 " in which you declare that variable as complex and specify ",
 StyleBox["Abs",
  FontFamily->"Courier"],
 " and ",
 StyleBox["Arg",
  FontFamily->"Courier"],
 " as the target functions.  For example:"
}], "Text"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "z", "]"}], "\[IndentingNewLine]", 
 RowBox[{"ComplexExpand", "[", 
  RowBox[{
   SuperscriptBox["z", "2"], ",", "z", ",", 
   RowBox[{"TargetFunctions", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Abs", ",", "Arg"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.491911817796875*^9, 3.49191182990625*^9}}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Trig form", "Section",
 ShowGroupOpener->True],

Cell[TextData[{
 "Recall that the trigonometric (or \"trig\[CloseCurlyDoubleQuote]) form of a \
complex number ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]]],
 " is\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{
     RowBox[{"r", " ", "cos", " ", "\[Theta]"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "sin", " ", "\[Theta]"}]}]}], 
   TraditionalForm]]],
 " where ",
 Cell[BoxData[
  FormBox[
   RowBox[{"r", "=", 
    RowBox[{"|", "z", "|"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Theta]", "=", 
    RowBox[{"Arg", "(", "z", ")"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "\nrather than the equivalent exponential form ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"r", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", "\[Theta]"}]]}]}], TraditionalForm]]],
 ". The built-in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " functions ",
 StyleBox["ExpToTrig",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 " and ",
 StyleBox["TrigToExp",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 " convert back and forth between the two forms."
}], "Text",
 CellChangeTimes->{{3.491927521109375*^9, 3.491927606578125*^9}},
 ParagraphSpacing->{0.5, 0}],

Cell["\<\
Here are some examples with symbolic expressions for complex numbers.\
\>", "Text"],

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"z", ",", "r", ",", "\[Theta]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"z", "=", 
  RowBox[{"r", " ", 
   RowBox[{"Exp", "[", 
    RowBox[{"\[ImaginaryI]", " ", "\[Theta]"}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.49192761628125*^9, 3.491927623859375*^9}}],

Cell[BoxData[
 RowBox[{"ExpToTrig", "[", "z", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"zCubed", "=", 
  RowBox[{"ExpToTrig", "[", 
   SuperscriptBox["z", "3"], "]"}]}]], "Input",
 CellChangeTimes->{{3.491927650578125*^9, 3.4919276535625*^9}}],

Cell[BoxData[
 RowBox[{"TrigToExp", "[", "zCubed", "]"}]], "Input",
 CellChangeTimes->{{3.491927658734375*^9, 3.491927660125*^9}}],

Cell[TextData[{
 "Thus ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " knows ",
 StyleBox["DeMoivre's formula:",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]]
}], "Text",
 CellChangeTimes->{
  3.49192771446875*^9, {3.49192778625*^9, 3.491927823890625*^9}, {
   3.49192785803125*^9, 3.4919278604375*^9}}],

Cell[TextData[{
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"cos", " ", "\[Theta]"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", "sin", " ", "\[Theta]"}]}], ")"}], "n"], 
    "=", 
    RowBox[{
     RowBox[{"cos", " ", "n", " ", "\[Theta]"}], " ", "+", " ", 
     RowBox[{"\[ImaginaryI]", " ", "sin", " ", "n", " ", "\[Theta]"}]}]}], 
   TraditionalForm]],
  FormatType->"TraditionalForm"],
 "\t\t(\[Theta] real, ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " integer)"
}], "EmphasisText",
 CellChangeTimes->{
  3.49192771446875*^9, {3.49192778625*^9, 3.491927823890625*^9}, {
   3.49192785803125*^9, 3.491927911671875*^9}}],

Cell[BoxData[
 RowBox[{"TrigToExp", "[", 
  RowBox[{
   RowBox[{"Cos", "[", 
    RowBox[{"3", "\[Theta]"}], "]"}], "+", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"Sin", "[", 
     RowBox[{"2", "\[Theta]"}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.491927698640625*^9, 3.4919277001875*^9}}],

Cell["\<\
These functions may also be used with specific complex numbers.  For example:\
\>", "Text"],

Cell[BoxData[
 RowBox[{"w", "=", 
  RowBox[{"ExpToTrig", "[", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"-", "1"}], ")"}], 
    RowBox[{"1", "/", "3"}]], "]"}]}]], "Input",
 CellChangeTimes->{{3.491928082078125*^9, 3.4919280839375*^9}, 
   3.491928594203125*^9}],

Cell[TextData[{
 "That number is a cube root of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"-", "1"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ":"
}], "Text",
 CellChangeTimes->{{3.491928123046875*^9, 3.49192813690625*^9}}],

Cell[BoxData[
 RowBox[{"Expand", "[", 
  SuperscriptBox["w", "3"], "]"}]], "Input",
 CellChangeTimes->{{3.491928094671875*^9, 3.4919281063125*^9}, 
   3.491928602234375*^9}],

Cell[TextData[{
 "We said \[OpenCurlyDoubleQuote]",
 StyleBox["a",
  FontSlant->"Italic"],
 " cube root\[CloseCurlyDoubleQuote] because ",
 Cell[BoxData[
  FormBox[
   RowBox[{"-", "1"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", like any nonzero complex number, has three different cube roots. In fact, \
the number ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{Cell[""], "w"}], "=", 
    RowBox[{
     RowBox[{"1", "/", "2"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       SqrtBox["3"], "/", "2"}]}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " is the so-called \[OpenCurlyDoubleQuote]principal cube-root\
\[CloseCurlyDoubleQuote] of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"-", "1"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". Later you will learn that the principal cube-root of a nonzero complex \
number ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " is defined to be ",
 Cell[BoxData[
  FormBox[
   RowBox[{"|", "z", "|", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"Arg", "(", "z", ")"}], "/", "3"}]}]]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". And indeed, since\[Ellipsis]"
}], "Text",
 CellChangeTimes->{{3.491928151953125*^9, 3.491928223828125*^9}, {
  3.4919283335625*^9, 3.49192846684375*^9}, {3.49192852684375*^9, 
  3.4919285346875*^9}, {3.49192861590625*^9, 3.49192865440625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"-", "1"}], "]"}], ",", 
   RowBox[{"Arg", "[", 
    RowBox[{"-", "1"}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{3.491928033875*^9}],

Cell["\[Ellipsis]then:", "Text",
 CellChangeTimes->{{3.4919284891875*^9, 3.4919284916875*^9}}],

Cell[BoxData[
 RowBox[{"cubeRoot", "=", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"-", "1"}], "]"}], 
   RowBox[{"Exp", "[", 
    RowBox[{
     FractionBox[
      RowBox[{"Arg", "[", 
       RowBox[{"-", "1"}], "]"}], "3"], "\[ImaginaryI]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.49192869684375*^9, 3.491928699203125*^9}}],

Cell[BoxData[
 RowBox[{"ExpToTrig", "[", "cubeRoot", "]"}]], "Input",
 CellChangeTimes->{{3.491928703671875*^9, 3.491928705296875*^9}}],

Cell[TextData[{
 "The preceding result could also have been obtained from ",
 StyleBox["ComplexExpand[cubeRoot]",
  FontFamily->"Courier"],
 "."
}], "Text",
 CellChangeTimes->{{3.491928709171875*^9, 3.491928710984375*^9}}]
}, Closed]]
}, Open  ]]
},
AutoGeneratedPackage->None,
InitializationCellEvaluation->True,
InitializationCellWarning->False,
WindowSize->{634, 630},
WindowMargins->{{141, Automatic}, {Automatic, 16}},
Visible->True,
ShowSelection->True,
InputAliases->{"intt" -> RowBox[{"\[Integral]", 
     RowBox[{"\[SelectionPlaceholder]", 
       RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], "dintt" -> RowBox[{
     SubsuperscriptBox[
     "\[Integral]", "\[SelectionPlaceholder]", "\[Placeholder]"], 
     RowBox[{"\[Placeholder]", 
       RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], "sumt" -> RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"\[SelectionPlaceholder]", "=", "\[Placeholder]"}], 
      "\[Placeholder]"], "\[Placeholder]"}], "prodt" -> RowBox[{
     UnderoverscriptBox["\[Product]", 
      RowBox[{"\[SelectionPlaceholder]", "=", "\[Placeholder]"}], 
      "\[Placeholder]"], "\[Placeholder]"}], "dt" -> RowBox[{
     SubscriptBox["\[PartialD]", "\[Placeholder]"], " ", 
     "\[SelectionPlaceholder]"}], "notation" -> RowBox[{"Notation", "[", 
     RowBox[{
       TagBox[
       "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"],
        " ", "\[DoubleLongLeftRightArrow]", " ", 
       TagBox[
       "\[Placeholder]", NotationBoxTag, TagStyle -> 
        "NotationTemplateStyle"]}], "]"}], "notation>" -> 
  RowBox[{"Notation", "[", 
     RowBox[{
       TagBox[
       "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"],
        " ", "\[DoubleLongRightArrow]", " ", 
       TagBox[
       "\[Placeholder]", NotationBoxTag, TagStyle -> 
        "NotationTemplateStyle"]}], "]"}], "notation<" -> 
  RowBox[{"Notation", "[", 
     RowBox[{
       TagBox[
       "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"],
        " ", "\[DoubleLongLeftArrow]", " ", 
       TagBox[
       "\[Placeholder]", NotationBoxTag, TagStyle -> 
        "NotationTemplateStyle"]}], "]"}], "symb" -> RowBox[{"Symbolize", "[", 
     TagBox[
     "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"], 
     "]"}], "infixnotation" -> RowBox[{"InfixNotation", "[", 
     RowBox[{
       TagBox[
       "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"],
        ",", "\[Placeholder]"}], "]"}], "addia" -> 
  RowBox[{"AddInputAlias", "[", 
     RowBox[{"\"\[Placeholder]\"", "\[Rule]", 
       TagBox[
       "\[Placeholder]", NotationBoxTag, TagStyle -> 
        "NotationTemplateStyle"]}], "]"}], "pattwraper" -> 
  TagBox["\[Placeholder]", NotationPatternTag, TagStyle -> 
    "NotationPatternWrapperStyle"], "madeboxeswraper" -> 
  TagBox["\[Placeholder]", NotationMadeBoxesTag, TagStyle -> 
    "NotationMadeBoxesWrapperStyle"]},
SpellingDictionaries->{"CorrectWords"->{"Eisenberg", "cartesian"}},
PrivateNotebookOptions -> {"NotebookAuthor" -> ""},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    CellGroupData[{
      Cell["Style Environment Names", "Section"], 
      Cell[
       StyleData[All, "Working"], Background -> 
       RGBColor[0.9921568627450981, 0.9607843137254902, 0.9019607843137255]], 
      Cell[
       StyleData[All, "Presentation"], Background -> 
       RGBColor[0.9921568627450981, 0.9607843137254902, 0.9019607843137255]], 
      Cell[
       StyleData[All, "SlideShow"], Background -> 
       RGBColor[0.9921568627450981, 0.9607843137254902, 0.9019607843137255]], 
      Cell[
       StyleData[All, "Condensed"], Background -> 
       RGBColor[0.9921568627450981, 0.9607843137254902, 0.9019607843137255]], 
      Cell[
       StyleData[All, "Printout"], Background -> None]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell["Notebook Options Settings", "Section"], 
      Cell[
       StyleData["Notebook"], ShowCellBracket -> Automatic, 
       InputAliases -> {"intt" -> RowBox[{"\[Integral]", 
            RowBox[{"\[SelectionPlaceholder]", 
              RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], "dintt" -> 
         RowBox[{
            SubsuperscriptBox[
            "\[Integral]", "\[SelectionPlaceholder]", "\[Placeholder]"], 
            RowBox[{"\[Placeholder]", 
              RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], "sumt" -> 
         RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"\[SelectionPlaceholder]", "=", "\[Placeholder]"}], 
             "\[Placeholder]"], "\[Placeholder]"}], "prodt" -> RowBox[{
            UnderoverscriptBox["\[Product]", 
             RowBox[{"\[SelectionPlaceholder]", "=", "\[Placeholder]"}], 
             "\[Placeholder]"], "\[Placeholder]"}], "dt" -> RowBox[{
            SubscriptBox["\[PartialD]", "\[Placeholder]"], " ", 
            "\[SelectionPlaceholder]"}], "prime" -> "\:02b9", "dprime" -> 
         "\:02ba"}, Magnification -> 1.04]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell["Styles for Title and Section Cells", "Section"], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Title"], ShowCellBracket -> False, 
          CellMargins -> {{12, Inherited}, {0, 5}}, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          FontFamily -> "Helvetica", FontSize -> 36, FontWeight -> "Bold", 
          FontColor -> GrayLevel[0], Background -> 
          RGBColor[0.737255, 0.894118, 0.807843]], 
         Cell[
          StyleData["Title", "Printout"], ShowCellBracket -> False, 
          CellMargins -> {{12, Inherited}, {0, 5}}, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          FontFamily -> "Helvetica", FontSize -> 26, FontWeight -> "Bold", 
          FontColor -> GrayLevel[0], Background -> None]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subtitle"], ShowCellBracket -> False, 
          CellMargins -> {{12, Inherited}, {0, 0}}, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          FontFamily -> "Helvetica", FontSize -> 24, Background -> 
          RGBColor[0.815686, 0.901961, 0.92549]], 
         Cell[
          StyleData["Subtitle", "Printout"], ShowCellBracket -> False, 
          CellMargins -> {{12, Inherited}, {0, 0}}, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          FontFamily -> "Helvetica", FontSize -> 18, Background -> None]}, 
        Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Chaptertitle"], ShowCellBracket -> False, 
          CellMargins -> {{12, Inherited}, {0, 0}}, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1170, FontFamily -> "Helvetica", FontSize -> 24, 
          Background -> RGBColor[0.941176, 0.87451, 0.784314]], 
         Cell[
          StyleData["Chaptertitle", "Printout"], ShowCellBracket -> False, 
          CellMargins -> {{12, Inherited}, {0, 0}}, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1170, FontFamily -> "Helvetica", FontSize -> 18, 
          Background -> None]}, Open]], 
      Cell[
       StyleData["Subsubtitle"], ShowCellBracket -> False, 
       CellMargins -> {{12, Inherited}, {20, 5}}, FontFamily -> "Helvetica", 
       FontSize -> 14, FontWeight -> "Bold", FontSlant -> "Plain"], 
      Cell[
       StyleData["Section"], CellFrame -> False, ShowGroupOpener -> True, 
       AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}], 
      Cell[
       StyleData["Subsection"], CellDingbat -> "", ShowGroupOpener -> True, 
       AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}], 
      Cell[
       StyleData["Subsubsection"], CellDingbat -> "", ShowGroupOpener -> True,
        AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}], 
      Cell[
       StyleData["Subsubsubsection"], CellDingbat -> "", ShowGroupOpener -> 
       True, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"},
        MenuPosition -> 1360], 
      Cell[
       StyleData["Subsubsubsubsection"], ShowGroupOpener -> True, 
       AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
       MenuPosition -> 1370]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell["Styles for Body Text", "Section"], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Text"], 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          FontSize -> 14], 
         Cell[
          StyleData["Text", "Printout"], 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          FontSize -> 10]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["EvaluatableText", StyleDefinitions -> StyleData["Text"]],
           Evaluator -> None, Evaluatable -> True, MenuPosition -> 1405], 
         Cell[
          StyleData["EvaluatableText", "Printout"], Evaluator -> None, 
          Evaluatable -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1405, FontSize -> 10]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["EmphasisText", StyleDefinitions -> StyleData["Text"]], 
          CellFrame -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1410, FontFamily -> "Helvetica", FontSize -> 14], 
         Cell[
          StyleData["EmphasisText", "Printout"], CellFrame -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1410, FontFamily -> "Helvetica", FontSize -> 10]}, 
        Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["BlueComments", StyleDefinitions -> StyleData["Text"]], 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1420, FontSize -> 14, Background -> 
          RGBColor[0.941207, 0.972503, 1]], 
         Cell[
          StyleData[
          "BlueComments", "Printout", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, 
          Hyphenation -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1420, FontSize -> 10]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "Exercise", StyleDefinitions -> StyleData["BlueComments"]], 
          CellFrame -> True, TextJustification -> 0.5, Hyphenation -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          CounterIncrements -> "Exercise", MenuPosition -> 1425, FontSize -> 
          14, Background -> RGBColor[0.941207, 0.972503, 1]], 
         Cell[
          StyleData[
          "Exercise", "Printout", StyleDefinitions -> StyleData["Text"]], 
          CellFrame -> True, TextJustification -> 0.5, Hyphenation -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          CounterIncrements -> "Exercise", MenuPosition -> 1425, FontSize -> 
          10]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["PinkComments", StyleDefinitions -> StyleData["Text"]], 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1430, FontSize -> 14, Background -> 
          RGBColor[1, 0.894102, 0.882399]], 
         Cell[
          StyleData[
          "PinkComments", "Printout", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, 
          Hyphenation -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1430, FontSize -> 10]}, Open]]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell["Styles for Input and Output Cells", "Section"], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Input"], FontSize -> 13, FontWeight -> "Bold", 
          Background -> RGBColor[0.976471, 0.909804, 0.815686]], 
         Cell[
          StyleData["Input", "Printout"], FontSize -> 10, FontWeight -> 
          "Bold", Background -> None]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Output"], FontSize -> 14, FontWeight -> "Bold"], 
         Cell[
          StyleData["Output", "Printout"], FontSize -> 10, FontWeight -> 
          "Bold"]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["MSG"], FontSize -> 14], 
         Cell[
          StyleData["MSG", "Printout"], FontSize -> 10]}, Open]]}, Closed]]}, 
  WindowMargins -> {{142, Automatic}, {Automatic, 65}}, Visible -> False, 
  FrontEndVersion -> "7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
   StyleDefinitions -> "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "initialization"->{
  Cell[10851, 323, 126, 3, 36, "Section",
   CellTags->"initialization"]},
 "exercReImProperties"->{
  Cell[23357, 727, 2029, 70, 219, "Exercise",
   CellTags->"exercReImProperties"]},
 "FunctionComplexExpand"->{
  Cell[28523, 908, 272, 8, 39, "Subsection",
   CellTags->"FunctionComplexExpand"]},
 "AdvancedComplexExpand"->{
  Cell[31383, 1009, 330, 11, 28, "Subsubsection",
   CellTags->"AdvancedComplexExpand"]},
 "exercConjProperties"->{
  Cell[48188, 1614, 1830, 66, 187, "Exercise",
   CellTags->"exercConjProperties"]},
 "ArgArcTan"->{
  Cell[88947, 3003, 109, 2, 27, "Subsubsection",
   CellTags->"ArgArcTan"]},
 "ArgToArcTan"->{
  Cell[114736, 3885, 511, 20, 28, "Subsubsection",
   CellTags->"ArgToArcTan"]},
 "rTheta"->{
  Cell[119659, 4063, 343, 10, 28, "Subsubsection",
   CellTags->"rTheta"]},
 "MoreAdvancedComplexExpand"->{
  Cell[128058, 4348, 348, 11, 28, "Subsubsection",
   CellTags->"MoreAdvancedComplexExpand"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"initialization", 149482, 4933},
 {"exercReImProperties", 149583, 4936},
 {"FunctionComplexExpand", 149695, 4939},
 {"AdvancedComplexExpand", 149808, 4942},
 {"exercConjProperties", 149924, 4945},
 {"ArgArcTan", 150025, 4948},
 {"ArgToArcTan", 150120, 4951},
 {"rTheta", 150214, 4954},
 {"MoreAdvancedComplexExpand", 150322, 4957}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 232, 8, 44, "Subsubtitle"],
Cell[CellGroupData[{
Cell[814, 32, 111, 2, 44, "Subtitle"],
Cell[928, 36, 313, 5, 44, "Subsubtitle"],
Cell[1244, 43, 413, 9, 40, "SmallText"],
Cell[1660, 54, 366, 10, 70, "EmphasisText"],
Cell[2029, 66, 1033, 26, 87, "SmallText"],
Cell[CellGroupData[{
Cell[3087, 96, 98, 1, 67, "Section"],
Cell[CellGroupData[{
Cell[3210, 101, 141, 2, 38, "Subsection"],
Cell[3354, 105, 760, 19, 72, "Text"],
Cell[4117, 126, 510, 12, 52, "Text"],
Cell[4630, 140, 606, 13, 92, "Text"],
Cell[5239, 155, 816, 20, 92, "Text"],
Cell[6058, 177, 614, 15, 52, "Text"],
Cell[6675, 194, 629, 11, 72, "Text"],
Cell[7307, 207, 1694, 49, 223, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[9038, 261, 99, 1, 38, "Subsection"],
Cell[9140, 264, 251, 5, 52, "Text"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[9440, 275, 55, 1, 36, "Section"],
Cell[9498, 278, 863, 22, 112, "Text"],
Cell[10364, 302, 450, 16, 54, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[10851, 323, 126, 3, 36, "Section",
 CellTags->"initialization"],
Cell[10980, 328, 224, 8, 31, "Text"],
Cell[11207, 338, 147, 3, 48, "Input",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[11391, 346, 57, 1, 36, "Section"],
Cell[CellGroupData[{
Cell[11473, 351, 247, 9, 39, "Subsection"],
Cell[11723, 362, 629, 25, 53, "Text"],
Cell[12355, 389, 1030, 39, 54, "Text"],
Cell[13388, 430, 854, 34, 54, "Text"],
Cell[14245, 466, 109, 2, 48, "Input"],
Cell[14357, 470, 125, 3, 48, "Input"],
Cell[14485, 475, 463, 12, 52, "Text"],
Cell[14951, 489, 326, 9, 69, "Input"],
Cell[15280, 500, 289, 6, 52, "Text"],
Cell[15572, 508, 2025, 72, 155, "Text"],
Cell[17600, 582, 4759, 107, 549, "Input"],
Cell[22362, 691, 393, 12, 73, "Exercise"],
Cell[22758, 705, 596, 20, 73, "Exercise"],
Cell[23357, 727, 2029, 70, 219, "Exercise",
 CellTags->"exercReImProperties"],
Cell[25389, 799, 306, 11, 31, "Text"],
Cell[25698, 812, 61, 1, 48, "Input"],
Cell[25762, 815, 273, 9, 52, "Text"],
Cell[26038, 826, 104, 2, 69, "Input"],
Cell[26145, 830, 221, 6, 52, "Text"],
Cell[26369, 838, 596, 19, 89, "Input"],
Cell[26968, 859, 126, 2, 48, "Input"],
Cell[27097, 863, 607, 17, 54, "Text"],
Cell[27707, 882, 779, 21, 73, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[28523, 908, 272, 8, 39, "Subsection",
 CellTags->"FunctionComplexExpand"],
Cell[28798, 918, 295, 9, 71, "EmphasisText"],
Cell[29096, 929, 74, 2, 48, "Input"],
Cell[29173, 933, 51, 0, 31, "Text"],
Cell[29227, 935, 348, 11, 48, "Input"],
Cell[29578, 948, 66, 1, 48, "Input"],
Cell[29647, 951, 198, 4, 31, "Text"],
Cell[29848, 957, 256, 7, 48, "Input"],
Cell[30107, 966, 117, 1, 31, "Text"],
Cell[30227, 969, 232, 6, 48, "Input"],
Cell[30462, 977, 896, 28, 187, "Exercise"],
Cell[CellGroupData[{
Cell[31383, 1009, 330, 11, 28, "Subsubsection",
 CellTags->"AdvancedComplexExpand"],
Cell[31716, 1022, 360, 8, 72, "Text"],
Cell[32079, 1032, 414, 13, 48, "Input"],
Cell[32496, 1047, 546, 16, 52, "Text"],
Cell[33045, 1065, 211, 5, 48, "Input"],
Cell[33259, 1072, 471, 15, 72, "Text"],
Cell[33733, 1089, 191, 5, 48, "Input"],
Cell[33927, 1096, 325, 8, 48, "Input"],
Cell[34255, 1106, 233, 6, 48, "Input"],
Cell[34491, 1114, 314, 7, 48, "Input"],
Cell[34808, 1123, 228, 9, 31, "Text"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[35085, 1138, 810, 27, 39, "Subsection"],
Cell[35898, 1167, 396, 15, 52, "Text"],
Cell[36297, 1184, 56, 1, 48, "Input"],
Cell[36356, 1187, 28, 0, 31, "Text"],
Cell[36387, 1189, 184, 4, 48, "Input"],
Cell[36574, 1195, 50, 0, 31, "Text"],
Cell[36627, 1197, 348, 11, 48, "Input"],
Cell[36978, 1210, 25, 0, 31, "Text"],
Cell[37006, 1212, 66, 1, 48, "Input"],
Cell[37075, 1215, 379, 14, 52, "Text"],
Cell[37457, 1231, 106, 2, 48, "Input"],
Cell[37566, 1235, 408, 11, 99, "EmphasisText"],
Cell[37977, 1248, 307, 7, 52, "Text"],
Cell[38287, 1257, 166, 3, 48, "Input"],
Cell[38456, 1262, 706, 23, 93, "Exercise"],
Cell[39165, 1287, 794, 21, 52, "Text",
 CellID->321563456],
Cell[39962, 1310, 371, 8, 69, "Input",
 CellID->107301876],
Cell[40336, 1320, 641, 22, 53, "Exercise"]
}, Closed]],
Cell[CellGroupData[{
Cell[41014, 1347, 453, 16, 39, "Subsection"],
Cell[41470, 1365, 226, 4, 52, "Text"],
Cell[41699, 1371, 678, 19, 93, "Input"],
Cell[42380, 1392, 289, 11, 32, "Text"],
Cell[42672, 1405, 52, 1, 48, "Input"],
Cell[42727, 1408, 350, 11, 51, "Input"],
Cell[43080, 1421, 1319, 44, 113, "Exercise"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[44448, 1471, 52, 1, 36, "Section"],
Cell[44503, 1474, 797, 30, 53, "Text"],
Cell[45303, 1506, 230, 8, 53, "Text"],
Cell[45536, 1516, 52, 1, 48, "Input"],
Cell[45591, 1519, 171, 4, 48, "Input"],
Cell[45765, 1525, 164, 3, 52, "Text"],
Cell[45932, 1530, 379, 12, 48, "Input"],
Cell[46314, 1544, 62, 1, 48, "Input"],
Cell[46379, 1547, 260, 8, 31, "Text"],
Cell[46642, 1557, 102, 2, 48, "Input"],
Cell[46747, 1561, 529, 17, 52, "Exercise"],
Cell[47279, 1580, 906, 32, 73, "Exercise"],
Cell[48188, 1614, 1830, 66, 187, "Exercise",
 CellTags->"exercConjProperties"],
Cell[50021, 1682, 592, 18, 101, "Exercise"],
Cell[CellGroupData[{
Cell[50638, 1704, 129, 3, 38, "Subsection"],
Cell[50770, 1709, 907, 24, 92, "Text"],
Cell[51680, 1735, 998, 28, 92, "Text"],
Cell[52681, 1765, 254, 6, 69, "Input"],
Cell[52938, 1773, 1166, 39, 130, "Exercise"],
Cell[54107, 1814, 1096, 39, 93, "Exercise"],
Cell[55206, 1855, 593, 17, 53, "Exercise"],
Cell[55802, 1874, 1195, 44, 129, "Text"],
Cell[57000, 1920, 634, 23, 31, "Text"],
Cell[57637, 1945, 436, 12, 52, "Text"],
Cell[58076, 1959, 193, 5, 50, "Input"],
Cell[58272, 1966, 493, 10, 40, "SmallText"]
}, Closed]],
Cell[CellGroupData[{
Cell[58802, 1981, 240, 7, 38, "Subsection"],
Cell[59045, 1990, 253, 8, 32, "Text"],
Cell[59301, 2000, 630, 20, 69, "Input"],
Cell[59934, 2022, 452, 14, 52, "Text"],
Cell[60389, 2038, 405, 10, 48, "Input"],
Cell[60797, 2050, 889, 28, 97, "Text"],
Cell[61689, 2080, 230, 5, 48, "Input"],
Cell[61922, 2087, 1031, 31, 72, "Text"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[63002, 2124, 53, 1, 36, "Section"],
Cell[CellGroupData[{
Cell[63080, 2129, 299, 10, 39, "Subsection"],
Cell[63382, 2141, 1294, 47, 92, "Text"],
Cell[64679, 2190, 574, 16, 53, "Text"],
Cell[65256, 2208, 1206, 37, 72, "Text"],
Cell[66465, 2247, 1888, 77, 113, "Exercise"],
Cell[68356, 2326, 956, 35, 53, "Text"],
Cell[69315, 2363, 904, 28, 84, "Text"],
Cell[70222, 2393, 317, 13, 53, "Text"],
Cell[70542, 2408, 46, 1, 48, "Input"],
Cell[70591, 2411, 46, 1, 48, "Input"],
Cell[70640, 2414, 316, 9, 48, "Input"],
Cell[70959, 2425, 560, 20, 57, "Text"],
Cell[71522, 2447, 997, 28, 92, "Text"],
Cell[72522, 2477, 5368, 115, 569, "Input"],
Cell[77893, 2594, 445, 14, 52, "Text"],
Cell[78341, 2610, 74, 2, 48, "Input"],
Cell[78418, 2614, 503, 17, 52, "Text"],
Cell[78924, 2633, 528, 17, 69, "Input"],
Cell[79455, 2652, 351, 11, 31, "Text"],
Cell[79809, 2665, 96, 2, 48, "Input"],
Cell[79908, 2669, 160, 5, 31, "Text"],
Cell[80071, 2676, 115, 3, 48, "Input"],
Cell[80189, 2681, 654, 23, 72, "Text"],
Cell[80846, 2706, 392, 10, 52, "Text"],
Cell[81241, 2718, 1803, 68, 199, "Exercise"],
Cell[83047, 2788, 2071, 77, 141, "Exercise"],
Cell[85121, 2867, 2256, 76, 230, "Exercise"],
Cell[87380, 2945, 1542, 54, 170, "Exercise"],
Cell[CellGroupData[{
Cell[88947, 3003, 109, 2, 27, "Subsubsection",
 CellTags->"ArgArcTan"],
Cell[89059, 3007, 962, 33, 72, "Text"],
Cell[90024, 3042, 304, 9, 64, "Input"],
Cell[90331, 3053, 325, 10, 64, "Input"],
Cell[90659, 3065, 1028, 39, 57, "Text"],
Cell[91690, 3106, 600, 19, 72, "Text"],
Cell[92293, 3127, 576, 18, 69, "Input"],
Cell[92872, 3147, 244, 9, 52, "Text"],
Cell[93119, 3158, 286, 7, 48, "Input"],
Cell[93408, 3167, 544, 20, 52, "Text"],
Cell[93955, 3189, 491, 20, 52, "Exercise"],
Cell[94449, 3211, 643, 20, 52, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[95129, 3236, 310, 11, 27, "Subsubsection"],
Cell[95442, 3249, 265, 7, 52, "Text"],
Cell[95710, 3258, 730, 26, 72, "Text"],
Cell[96443, 3286, 459, 9, 72, "Text"],
Cell[96905, 3297, 162, 3, 48, "Input"],
Cell[97070, 3302, 367, 8, 60, "Input"],
Cell[97440, 3312, 617, 17, 77, "Text"],
Cell[98060, 3331, 364, 11, 52, "Text"],
Cell[98427, 3344, 91, 3, 48, "Input"],
Cell[98521, 3349, 308, 12, 52, "Text"],
Cell[98832, 3363, 473, 15, 69, "Input"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[99354, 3384, 174, 3, 38, "Subsection"],
Cell[99531, 3389, 316, 6, 52, "Text"],
Cell[99850, 3397, 270, 5, 48, "Input"],
Cell[100123, 3404, 153, 4, 31, "Text"],
Cell[100279, 3410, 308, 7, 48, "Input"],
Cell[100590, 3419, 2278, 73, 338, "Text"],
Cell[102871, 3494, 935, 27, 74, "Text"],
Cell[103809, 3523, 1448, 51, 121, "Exercise"],
Cell[105260, 3576, 1862, 51, 89, "Text"],
Cell[107125, 3629, 822, 24, 53, "Text"],
Cell[107950, 3655, 538, 18, 48, "EmphasisText"],
Cell[108491, 3675, 216, 6, 31, "Text"],
Cell[108710, 3683, 252, 6, 48, "Input"],
Cell[108965, 3691, 1277, 45, 73, "Exercise"],
Cell[110245, 3738, 933, 27, 73, "Text"],
Cell[111181, 3767, 668, 20, 52, "Text"],
Cell[111852, 3789, 578, 15, 69, "Input"],
Cell[112433, 3806, 178, 5, 52, "Text"],
Cell[112614, 3813, 456, 13, 69, "Input"],
Cell[113073, 3828, 366, 7, 72, "Text"],
Cell[113442, 3837, 597, 19, 69, "Input"],
Cell[114042, 3858, 669, 23, 31, "Text"],
Cell[CellGroupData[{
Cell[114736, 3885, 511, 20, 28, "Subsubsection",
 CellTags->"ArgToArcTan"],
Cell[115250, 3907, 1001, 35, 92, "Text"],
Cell[116254, 3944, 572, 18, 69, "Input"],
Cell[116829, 3964, 447, 13, 52, "Text"],
Cell[117279, 3979, 952, 28, 89, "Input"],
Cell[118234, 4009, 1388, 49, 93, "Exercise"]
}, Closed]],
Cell[CellGroupData[{
Cell[119659, 4063, 343, 10, 28, "Subsubsection",
 CellTags->"rTheta"],
Cell[120005, 4075, 658, 19, 53, "Text"],
Cell[120666, 4096, 216, 6, 55, "Input"],
Cell[120885, 4104, 491, 19, 53, "Text"],
Cell[121379, 4125, 239, 6, 55, "Input"],
Cell[121621, 4133, 302, 11, 32, "Text"],
Cell[121926, 4146, 166, 3, 48, "Input"],
Cell[122095, 4151, 416, 16, 53, "Text"],
Cell[122514, 4169, 204, 4, 48, "Input"],
Cell[122721, 4175, 518, 16, 52, "Text"],
Cell[123242, 4193, 430, 10, 69, "Input"],
Cell[123675, 4205, 568, 16, 52, "Text"],
Cell[124246, 4223, 218, 6, 55, "Input"],
Cell[124467, 4231, 226, 5, 31, "Text"],
Cell[124696, 4238, 218, 6, 55, "Input"],
Cell[124917, 4246, 619, 20, 73, "Exercise"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[125585, 4272, 197, 2, 38, "Subsection"],
Cell[125785, 4276, 599, 18, 52, "Text"],
Cell[126387, 4296, 483, 12, 84, "Input"],
Cell[126873, 4310, 439, 10, 89, "Input"],
Cell[127315, 4322, 392, 11, 72, "Text"],
Cell[127710, 4335, 90, 2, 51, "Input"],
Cell[127803, 4339, 230, 5, 51, "Input"],
Cell[CellGroupData[{
Cell[128058, 4348, 348, 11, 28, "Subsubsection",
 CellTags->"MoreAdvancedComplexExpand"],
Cell[128409, 4361, 320, 12, 52, "Text"],
Cell[128732, 4375, 408, 12, 72, "Text"],
Cell[129143, 4389, 349, 8, 72, "Input"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[129553, 4404, 52, 1, 36, "Section"],
Cell[129608, 4407, 1355, 48, 110, "Text"],
Cell[130966, 4457, 93, 2, 31, "Text"],
Cell[131062, 4461, 313, 7, 69, "Input"],
Cell[131378, 4470, 62, 1, 48, "Input"],
Cell[131443, 4473, 179, 4, 51, "Input"],
Cell[131625, 4479, 130, 2, 48, "Input"],
Cell[131758, 4483, 318, 11, 32, "Text"],
Cell[132079, 4496, 735, 24, 48, "EmphasisText"],
Cell[132817, 4522, 303, 8, 48, "Input"],
Cell[133123, 4532, 101, 2, 31, "Text"],
Cell[133227, 4536, 271, 8, 51, "Input"],
Cell[133501, 4546, 234, 8, 31, "Text"],
Cell[133738, 4556, 173, 4, 51, "Input"],
Cell[133914, 4562, 1489, 45, 103, "Text"],
Cell[135406, 4609, 213, 7, 48, "Input"],
Cell[135622, 4618, 94, 1, 31, "Text"],
Cell[135719, 4621, 334, 10, 64, "Input"],
Cell[136056, 4633, 135, 2, 48, "Input"],
Cell[136194, 4637, 222, 6, 52, "Text"]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)