(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     25849,        827]
NotebookOptionsPosition[     16670,        588]
NotebookOutlinePosition[     21970,        724]
CellTagsIndexPosition[     20776,        696]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["Complex Numbers/Complex Plane", "Title"],

Cell[CellGroupData[{

Cell["Background", "Subtitle"],

Cell["The positive square root of -1", "Text",
 FontWeight->"Plain",
 CellTags->"mmtag:08:imaginary_numbers__representations_of"],

Cell[BoxData[
 RowBox[{"imaginary", " ", "=", 
  RowBox[{"Sqrt", "[", 
   RowBox[{"-", "1"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"-", "imaginary"}], ")"}], "^", "2"}]], "Input"],

Cell["\<\
Complex numbers are composed of a real part + an imaginary part\
\>", "Text",
 FontWeight->"Plain",
 CellTags->"mmtag:08:complex_numbers__representations_of"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"z1", " ", "=", " ", 
   RowBox[{"a", " ", "+", " ", 
    RowBox[{"\[ImaginaryI]", " ", "b"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"z2", "=", " ", 
   RowBox[{"c", " ", "+", " ", 
    RowBox[{"\[ImaginaryI]", " ", "d"}]}]}], ";"}]}], "Input"],

Cell["Simple operations on complex numbers", "Text",
 FontWeight->"Plain"],

Cell[BoxData[
 RowBox[{
  RowBox[{"compadd", " ", "=", " ", 
   RowBox[{"z1", " ", "+", " ", "z2"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"compmult", " ", "=", " ", 
   RowBox[{"z1", "*", "z2"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"compmult", ",", 
   RowBox[{
    RowBox[{"a", "\[Element]", " ", "Reals"}], " ", "&&", " ", 
    RowBox[{"b", "\[Element]", " ", "Reals"}], " ", "&&", 
    RowBox[{"c", " ", "\[Element]", " ", "Reals"}], " ", "&&", " ", 
    RowBox[{"d", " ", "\[Element]", " ", "Reals"}]}]}], " ", "]"}]], "Input",
 CellTags->{
  "mmtag:08:complex_numbers__simplfying", 
   "mmtag:08:Simplify[]__complex_numbers"}],

Cell["\<\
Mathematica does not assume that symbols are necessarily real...\
\>", "Text",
 FontWeight->"Plain"],

Cell[BoxData[{
 RowBox[{"Re", "[", "compadd", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Im", "[", "compadd", "]"}]}], "Input",
 CellTags->{"mmtag:08:Im[]", "mmtag:08:Re[]"}],

Cell[TextData[{
 "However, the ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " function ",
 StyleBox["ComplexExpand",
  FontWeight->"Bold"],
 " does assume that the variables are real...."
}], "Text",
 FontWeight->"Plain"],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"Re", "[", "compadd", "]"}], "]"}]], "Input",
 CellTags->"mmtag:08:ComplexExpand[]"],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"Im", "[", "compadd", "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"Re", "[", 
   RowBox[{"z1", "/", "z2"}], "]"}], "]"}]], "Input",
 CellTags->"mmtag:08:complex_numbers__division"],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", "compmult", "]"}]], "Input",
 CellTags->"mmtag:08:complex_numbers__multiplication"],

Cell[BoxData[{
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"Re", "[", 
   RowBox[{"z1", "^", "3"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"Im", "[", 
   RowBox[{"z1", "^", "3"}], "]"}], "]"}]}], "Input"],

Cell["Function to convert to Polar Form", "Section"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Pform", "[", "z_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"Abs", "[", "z", "]"}], " ", 
   RowBox[{"Exp", "[", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"Arg", "[", "z", "]"}]}], "]"}]}]}]], "Input",
 CellTags->{
  "mmtag:08:complex_numbers__polar_form", 
   "mmtag:08:functions__example_of_conversion_of_complex_number_to_polar_\
form"}],

Cell[TextData[{
 "Note: the function ",
 StyleBox["Arg[z]",
  FontWeight->"Bold"],
 " returns an angle in the range -\[Pi] to \[Pi] which measures the \
inclination of ",
 StyleBox["z",
  FontSlant->"Italic"],
 " with respect to the +Re axis in the complex plane."
}], "Subsubsection"],

Cell[BoxData[
 RowBox[{"Pform", "[", "z1", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Pform", "[", 
  RowBox[{"z1", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"a", "\[Rule]", "2"}], ",", 
     RowBox[{"b", "\[Rule]", 
      RowBox[{"-", "\[Pi]"}]}]}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"Pform", "[", "z1", "]"}], "]"}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["Numerical Precision and  Rounding Complex Numbers", "Subtitle"],

Cell[BoxData[
 RowBox[{"ExactlyOne", " ", "=", " ", 
  RowBox[{"Exp", "[", 
   RowBox[{"2", " ", "\[Pi]", " ", "\[ImaginaryI]"}], "]"}]}]], "Input",
 CellTags->"mmtag:08:complex_numbers__numerical_precision"],

Cell[BoxData[
 RowBox[{"NumericallyOne", " ", "=", 
  RowBox[{"Exp", "[", 
   RowBox[{"N", "[", 
    RowBox[{"2", " ", "\[Pi]", " ", "\[ImaginaryI]"}], "]"}], 
   "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Chop", "[", "NumericallyOne", "]"}]], "Input",
 CellTags->"mmtag:08:Chop[]"],

Cell[BoxData[
 RowBox[{"Round", "[", "NumericallyOne", "]"}]], "Input",
 CellTags->"mmtag:08:Round[]"],

Cell[BoxData[
 RowBox[{"ExactlyI", " ", "=", " ", 
  RowBox[{"Exp", "[", 
   RowBox[{"\[Pi]", " ", 
    RowBox[{"\[ImaginaryI]", "/", "2"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"NumericallyI", " ", "=", " ", 
  RowBox[{"Exp", "[", 
   RowBox[{"N", "[", 
    RowBox[{"\[Pi]", " ", 
     RowBox[{"\[ImaginaryI]", "/", "2"}]}], "]"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Round", "[", "NumericallyI", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Chop", "[", "NumericallyI", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"ExactlyOnePlusI", " ", "=", " ", 
  RowBox[{"ComplexExpand", "[", 
   RowBox[{
    SqrtBox["2"], 
    RowBox[{"Exp", "[", 
     RowBox[{"\[Pi]", "  ", 
      RowBox[{"\[ImaginaryI]", "/", "4"}]}], "]"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"NumericallyOnePlusI", " ", "=", " ", 
  RowBox[{"ComplexExpand", "[", 
   RowBox[{
    SqrtBox["2"], 
    RowBox[{"Exp", "[", 
     RowBox[{"N", "[", 
      RowBox[{"\[Pi]", "  ", 
       RowBox[{"\[ImaginaryI]", "/", "4"}]}], "]"}], "]"}]}], 
   "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Chop", "[", "NumericallyOnePlusI", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Round", "[", "NumericallyOnePlusI", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Round", "[", 
  RowBox[{"1.5", "  ", "-", " ", 
   RowBox[{"3.5", " ", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"-", "1"}], "]"}]}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Re", "[", "NumericallyOnePlusI", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Im", "[", "NumericallyOnePlusI", "]"}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["Complex Valued Roots to Polynomial Equations", "Subtitle"],

Cell["\<\
Complex numbers frequently appear in the solution of roots to polynomial \
equations:\
\>", "Text"],

Cell[BoxData[
 RowBox[{"sols", " ", "=", " ", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"x", "^", "4"}], " ", "-", 
       RowBox[{"x", "^", "3"}], " ", "+", "x", " ", "+", "1"}], ")"}], " ", 
     "\[Equal]", " ", "0"}], ",", "x"}], "]"}]}]], "Input",
 CellTags->{
  "mmtag:08:Solve[]", 
   "mmtag:08:roots_of_polynomial_equations__example_with_complex_roots"}],

Cell["\<\
The next statement produces a list of the complex solutions of the \
polynomial:\
\>", "Text"],

Cell[BoxData[
 RowBox[{"x", "/.", "sols"}]], "Input"],

Cell[BoxData[
 RowBox[{"Im", "[", 
  RowBox[{"x", "/.", "sols"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"ComplexExpand", "[", 
  RowBox[{"Im", "[", 
   RowBox[{"x", "/.", "sols"}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ComplexExpand", "[", 
   RowBox[{"Im", "[", 
    RowBox[{"x", "/.", "sols"}], "]"}], "]"}], "//", "N"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ComplexExpand", "[", 
   RowBox[{"Re", "[", 
    RowBox[{"x", "/.", "sols"}], "]"}], "]"}], "//", "N"}]], "Input"],

Cell[TextData[{
 "Generalize the above to a family of solutions: find ",
 StyleBox["b",
  FontSlant->"Italic"],
 " such that imaginary part of the solution vanishes"
}], "Text"],

Cell[BoxData[
 RowBox[{"bsols", " ", "=", " ", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"x", "^", "4"}], " ", "-", 
       RowBox[{"x", "^", "3"}], " ", "+", 
       RowBox[{"b", "*", "x"}], " ", "+", "1"}], ")"}], " ", "\[Equal]", " ", 
     "0"}], ",", "x"}], "]"}]}]], "Input",
 CellTags->
  "mmtag:08:roots_of_polynomial_equations__example_of_plotting_roots"],

Cell[TextData[{
 "This will give a list of rules that can be used to find solutions;as \"b\" \
is unspecified the rules depend on the symbol \"b\"",
 "\n",
 "Because it is a long set of rules and hard to follow, let's look at the \
form of bsols:",
 "\n",
 StyleBox["Short",
  FontWeight->"Bold"],
 " produces a ",
 StyleBox["very",
  FontSlant->"Italic"],
 " abbreviated form of the solution\[Ellipsis] in this case limited to 3 \
lines by the optional parameter."
}], "Text",
 CellChangeTimes->{3.398178369615646*^9}],

Cell[BoxData[{
 RowBox[{"Dimensions", "[", "bsols", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Short", "[", 
  RowBox[{"bsols", ",", "4"}], "]"}]}], "Input",
 CellChangeTimes->{{3.398178350027873*^9, 3.398178351680067*^9}},
 CellTags->"mmtag:08:Short[]"],

Cell[TextData[{
 "So we see that ",
 StyleBox["bsols",
  FontSlant->"Italic"],
 " is a list of length 4 of list containing one rule. (Solutions to equations \
are always this way, it is a list of the number of solutions, each member \
being a rule for each variable that is solved for...)"
}], "Text"],

Cell[TextData[{
 "In our case of one variable, the extra layer of lists is not terribly \
useful, one way to get rid of the extra layers is to use ",
 StyleBox["Flatten",
  FontWeight->"Bold"],
 ":"
}], "Text"],

Cell[BoxData[{
 RowBox[{"Dimensions", "[", 
  RowBox[{"Flatten", "[", "bsols", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Short", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", "bsols", "]"}], ",", "4"}], "]"}]}], "Input",
 CellTags->"mmtag:08:Flatten[]"],

Cell[TextData[{
 "In the next command, we produce a list of values (not of rules, because we \
have taken ",
 StyleBox["x",
  FontSlant->"Italic"],
 " and applied every rule in ",
 StyleBox["bsols",
  FontSlant->"Italic"],
 " to it... These values are the imaginary parts of the solutions ",
 StyleBox["x",
  FontSlant->"Italic"],
 " that make the polynomial vanish (and a function of ",
 StyleBox["b",
  FontSlant->"Italic"],
 ", because it hasn't been specified yet) "
}], "Text"],

Cell["\<\
**Note,on some machines this next command will take a while to finish**\
\>", "Subsubtitle"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SolsbImag", "=", 
   RowBox[{"ComplexExpand", "[", 
    RowBox[{"Im", "[", 
     RowBox[{"x", "/.", "bsols"}], "]"}], "]"}]}], ";"}]], "Input"],

Cell[BoxData[{
 RowBox[{"Dimensions", "[", "SolsbImag", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Short", "[", 
  RowBox[{"SolsbImag", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "Input"],

Cell[TextData[{
 "And likewise for the real parts of ",
 StyleBox["x",
  FontSlant->"Italic"],
 " that solve the polynomial equation"
}], "Text"],

Cell["\<\
**Note,on some machines this next command will take a while to finish**\
\>", "Subsubtitle"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SolsbReal", "=", 
   RowBox[{"ComplexExpand", "[", 
    RowBox[{"Re", "[", 
     RowBox[{"x", "/.", "bsols"}], "]"}], "]"}]}], ";"}]], "Input"],

Cell[TextData[{
 "This plot works as follows, for each member in the list, plot the result of \
replacing ",
 StyleBox["b",
  FontSlant->"Italic"],
 " with values  between -10, 10. So the following should be  a plot of the \
imaginary values of ",
 StyleBox["x",
  FontSlant->"Italic"],
 " as a function of ",
 StyleBox["b",
  FontSlant->"Italic"],
 "."
}], "Text"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", "SolsbImag", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input"],

Cell[TextData[{
 "There are a few problems that make it difficult to interpret the \
graph---one is the numerical noise that makes the solutions jump back and \
forth; second, because all the colors are the same,  it is not clear which \
values of ",
 StyleBox["x",
  FontSlant->"Italic"],
 " belong to the same solution.  \n\nLet's first try to make each member of \
the list (remember, there are 4 because it is a fourth-order polynomial and \
because ",
 StyleBox["Dimensions[imb]",
  FontWeight->"Bold"],
 " told us so..."
}], "Text",
 CellChangeTimes->{{3.394611730110013*^9, 3.394611731211618*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", "SolsbImag", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Hue", "[", 
        RowBox[{"1", "-", 
         RowBox[{"a", "/", "6"}]}], "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "]"}]], "Input",\

 CellTags->"mmtag:08:plots__examples_of_adding_color"],

Cell[TextData[{
 "The plot above is a little better, it looks like the blue curve comes in \
from the northeast and then then its imaginary part vanishes at a critical \
values of ",
 StyleBox["b ",
  FontSlant->"Italic"],
 "(around -0.5), the cyan curve is probably the minus values of the blue \
curve... and the same thing for yellow and green.  It is much easier to see \
the branches of solutions for the real parts below."
}], "Text"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", "SolsbReal", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Hue", "[", 
        RowBox[{"1", "-", 
         RowBox[{"a", "/", "6"}]}], "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "]"}]], "Input"],

Cell["\<\
But here, because the lines are the same thickness, we don't know if the cyan \
and blue curves just \"stop.\" Let's find out by also adjusting their \
thickness.\
\>", "Text"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", "SolsbReal", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Hue", "[", 
         RowBox[{"1", "-", 
          RowBox[{"a", "/", "6"}]}], "]"}], ",", 
        RowBox[{"Thickness", "[", 
         RowBox[{"0.05", "-", 
          RowBox[{".01", "*", "a"}]}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", "1", ",", "4"}], "}"}]}], "]"}]}]}], "]"}]], "Input",\

 CellTags->"mmtag:08:plots__examples_of_changing_line_thicknesses"],

Cell[TextData[{
 "It is pretty clear that the parameter ",
 StyleBox["b",
  FontSlant->"Italic"],
 " is behaving like a \"pitchfork\" bifurcation---there is one value of ",
 StyleBox["x",
  FontSlant->"Italic"],
 " upto a critical value of ",
 StyleBox["b",
  FontSlant->"Italic"],
 ", where ",
 StyleBox["x",
  FontSlant->"Italic"],
 " splits into two solutions.  This is a picture of two isolated \
pictchforks."
}], "Text"],

Cell[TextData[{
 "As of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " 6, the argument to Plot doesn't have to evaluate to a real number. As of \
",
 StyleBox["Mathematica 6, Plot will skip values at which the functions don't \
evaluate to a real number.  Below, we can see that there are two real \
solutions for b < -1 and again for a little more than b > 2.",
  FontSlant->"Italic"]
}], "Text",
 CellChangeTimes->{{3.398177631513033*^9, 3.3981777951268377`*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"x", "/.", "bsols"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.398177463927499*^9, 3.398177520200004*^9}}]
}, Closed]]
},
ScreenStyleEnvironment->"Presentation",
PrintingStyleEnvironment->"ColorPrintout",
ShowPageBreaks->True,
CellGrouping->Manual,
WindowSize->{1233, 872},
WindowMargins->{{179, Automatic}, {Automatic, 116}},
WindowTitle->"Lecture 08 MIT 3.016 (Fall 2007)   \[Copyright] W. Craig Carter \
2003-2007",
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
PrintingOptions->{"PaperOrientation"->"Portrait",
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{54, 36}, {18, 36}}},
ShowCellLabel->False,
CellLabelAutoDelete->True,
Magnification->1.,
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)",
StyleDefinitions->"3016-Carter.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "mmtag:08:imaginary_numbers__representations_of"->{
  Cell[672, 27, 129, 2, 16, "Text",
   CellTags->"mmtag:08:imaginary_numbers__representations_of"]},
 "mmtag:08:complex_numbers__representations_of"->{
  Cell[1021, 41, 168, 4, 16, "Text",
   CellTags->"mmtag:08:complex_numbers__representations_of"]},
 "mmtag:08:complex_numbers__simplfying"->{
  Cell[1803, 70, 450, 10, 22, "Input",
   CellTags->{
    "mmtag:08:complex_numbers__simplfying", 
     "mmtag:08:Simplify[]__complex_numbers"}]},
 "mmtag:08:Simplify[]__complex_numbers"->{
  Cell[1803, 70, 450, 10, 22, "Input",
   CellTags->{
    "mmtag:08:complex_numbers__simplfying", 
     "mmtag:08:Simplify[]__complex_numbers"}]},
 "mmtag:08:Im[]"->{
  Cell[2369, 87, 172, 3, 35, "Input",
   CellTags->{"mmtag:08:Im[]", "mmtag:08:Re[]"}]},
 "mmtag:08:Re[]"->{
  Cell[2369, 87, 172, 3, 35, "Input",
   CellTags->{"mmtag:08:Im[]", "mmtag:08:Re[]"}]},
 "mmtag:08:ComplexExpand[]"->{
  Cell[2776, 103, 140, 3, 22, "Input",
   CellTags->"mmtag:08:ComplexExpand[]"]},
 "mmtag:08:complex_numbers__division"->{
  Cell[3023, 112, 170, 4, 22, "Input",
   CellTags->"mmtag:08:complex_numbers__division"]},
 "mmtag:08:complex_numbers__multiplication"->{
  Cell[3196, 118, 128, 2, 22, "Input",
   CellTags->"mmtag:08:complex_numbers__multiplication"]},
 "mmtag:08:complex_numbers__polar_form"->{
  Cell[3628, 132, 387, 11, 23, "Input",
   CellTags->{
    "mmtag:08:complex_numbers__polar_form", 
     "mmtag:08:functions__example_of_conversion_of_complex_number_to_polar_\
form"}]},
 "mmtag:08:functions__example_of_conversion_of_complex_number_to_polar_form"->{\

  Cell[3628, 132, 387, 11, 23, "Input",
   CellTags->{
    "mmtag:08:complex_numbers__polar_form", 
     "mmtag:08:functions__example_of_conversion_of_complex_number_to_polar_\
form"}]},
 "mmtag:08:complex_numbers__numerical_precision"->{
  Cell[4801, 177, 208, 4, 22, "Input",
   CellTags->"mmtag:08:complex_numbers__numerical_precision"]},
 "mmtag:08:Chop[]"->{
  Cell[5196, 190, 100, 2, 22, "Input",
   CellTags->"mmtag:08:Chop[]"]},
 "mmtag:08:Round[]"->{
  Cell[5299, 194, 102, 2, 22, "Input",
   CellTags->"mmtag:08:Round[]"]},
 "mmtag:08:Solve[]"->{
  Cell[7152, 266, 420, 12, 22, "Input",
   CellTags->{
    "mmtag:08:Solve[]", 
     "mmtag:08:roots_of_polynomial_equations__example_with_complex_roots"}]},
 "mmtag:08:roots_of_polynomial_equations__example_with_complex_roots"->{
  Cell[7152, 266, 420, 12, 22, "Input",
   CellTags->{
    "mmtag:08:Solve[]", 
     "mmtag:08:roots_of_polynomial_equations__example_with_complex_roots"}]},
 "mmtag:08:roots_of_polynomial_equations__example_of_plotting_roots"->{
  Cell[8433, 316, 422, 12, 22, "Input",
   CellTags->
    "mmtag:08:roots_of_polynomial_equations__example_of_plotting_roots"]},
 "mmtag:08:Short[]"->{
  Cell[9380, 347, 252, 5, 35, "Input",
   CellTags->"mmtag:08:Short[]"]},
 "mmtag:08:Flatten[]"->{
  Cell[10152, 371, 257, 6, 35, "Input",
   CellTags->"mmtag:08:Flatten[]"]},
 "mmtag:08:plots__examples_of_adding_color"->{
  Cell[12996, 470, 557, 17, 35, "Input",
   CellTags->"mmtag:08:plots__examples_of_adding_color"]},
 "mmtag:08:plots__examples_of_changing_line_thicknesses"->{
  Cell[14691, 523, 709, 21, 35, "Input",
   CellTags->"mmtag:08:plots__examples_of_changing_line_thicknesses"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"mmtag:08:imaginary_numbers__representations_of", 17534, 614},
 {"mmtag:08:complex_numbers__representations_of", 17686, 617},
 {"mmtag:08:complex_numbers__simplfying", 17829, 620},
 {"mmtag:08:Simplify[]__complex_numbers", 18019, 625},
 {"mmtag:08:Im[]", 18186, 630},
 {"mmtag:08:Re[]", 18295, 633},
 {"mmtag:08:ComplexExpand[]", 18415, 636},
 {"mmtag:08:complex_numbers__division", 18538, 639},
 {"mmtag:08:complex_numbers__multiplication", 18677, 642},
 {"mmtag:08:complex_numbers__polar_form", 18818, 645},
 {"mmtag:08:functions__example_of_conversion_of_complex_number_to_polar_form",\
 19085, 651},
 {"mmtag:08:complex_numbers__numerical_precision", 19326, 658},
 {"mmtag:08:Chop[]", 19451, 661},
 {"mmtag:08:Round[]", 19547, 664},
 {"mmtag:08:Solve[]", 19644, 667},
 {"mmtag:08:roots_of_polynomial_equations__example_with_complex_roots", \
19875, 672},
 {"mmtag:08:roots_of_polynomial_equations__example_of_plotting_roots", 20105, \
677},
 {"mmtag:08:Short[]", 20257, 681},
 {"mmtag:08:Flatten[]", 20356, 684},
 {"mmtag:08:plots__examples_of_adding_color", 20480, 687},
 {"mmtag:08:plots__examples_of_changing_line_thicknesses", 20640, 690}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 46, 0, 32, "Title"],
Cell[CellGroupData[{
Cell[639, 25, 30, 0, 32, "Subtitle"],
Cell[672, 27, 129, 2, 16, "Text",
 CellTags->"mmtag:08:imaginary_numbers__representations_of"],
Cell[804, 31, 112, 3, 22, "Input"],
Cell[919, 36, 99, 3, 22, "Input"],
Cell[1021, 41, 168, 4, 16, "Text",
 CellTags->"mmtag:08:complex_numbers__representations_of"],
Cell[1192, 47, 296, 8, 35, "Input"],
Cell[1491, 57, 74, 1, 16, "Text"],
Cell[1568, 60, 119, 3, 22, "Input"],
Cell[1690, 65, 110, 3, 22, "Input"],
Cell[1803, 70, 450, 10, 22, "Input",
 CellTags->{
  "mmtag:08:complex_numbers__simplfying", 
   "mmtag:08:Simplify[]__complex_numbers"}],
Cell[2256, 82, 110, 3, 16, "Text"],
Cell[2369, 87, 172, 3, 35, "Input",
 CellTags->{"mmtag:08:Im[]", "mmtag:08:Re[]"}],
Cell[2544, 92, 229, 9, 16, "Text"],
Cell[2776, 103, 140, 3, 22, "Input",
 CellTags->"mmtag:08:ComplexExpand[]"],
Cell[2919, 108, 101, 2, 22, "Input"],
Cell[3023, 112, 170, 4, 22, "Input",
 CellTags->"mmtag:08:complex_numbers__division"],
Cell[3196, 118, 128, 2, 22, "Input",
 CellTags->"mmtag:08:complex_numbers__multiplication"],
Cell[3327, 122, 243, 6, 35, "Input"],
Cell[3573, 130, 52, 0, 24, "Section"],
Cell[3628, 132, 387, 11, 23, "Input",
 CellTags->{
  "mmtag:08:complex_numbers__polar_form", 
   "mmtag:08:functions__example_of_conversion_of_complex_number_to_polar_\
form"}],
Cell[4018, 145, 285, 9, 39, "Subsubsection"],
Cell[4306, 156, 59, 1, 22, "Input"],
Cell[4368, 159, 222, 7, 22, "Input"],
Cell[4593, 168, 99, 2, 22, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[4729, 175, 69, 0, 32, "Subtitle"],
Cell[4801, 177, 208, 4, 22, "Input",
 CellTags->"mmtag:08:complex_numbers__numerical_precision"],
Cell[5012, 183, 181, 5, 22, "Input"],
Cell[5196, 190, 100, 2, 22, "Input",
 CellTags->"mmtag:08:Chop[]"],
Cell[5299, 194, 102, 2, 22, "Input",
 CellTags->"mmtag:08:Round[]"],
Cell[5404, 198, 161, 4, 22, "Input"],
Cell[5568, 204, 196, 5, 22, "Input"],
Cell[5767, 211, 69, 1, 22, "Input"],
Cell[5839, 214, 68, 1, 22, "Input"],
Cell[5910, 217, 248, 7, 29, "Input"],
Cell[6161, 226, 289, 9, 29, "Input"],
Cell[6453, 237, 75, 1, 22, "Input"],
Cell[6531, 240, 76, 1, 22, "Input"],
Cell[6610, 243, 174, 5, 22, "Input"],
Cell[6787, 250, 73, 1, 22, "Input"],
Cell[6863, 253, 73, 1, 22, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[6973, 259, 64, 0, 32, "Subtitle"],
Cell[7040, 261, 109, 3, 16, "Text"],
Cell[7152, 266, 420, 12, 22, "Input",
 CellTags->{
  "mmtag:08:Solve[]", 
   "mmtag:08:roots_of_polynomial_equations__example_with_complex_roots"}],
Cell[7575, 280, 104, 3, 16, "Text"],
Cell[7682, 285, 53, 1, 22, "Input"],
Cell[7738, 288, 82, 2, 22, "Input"],
Cell[7823, 292, 123, 3, 22, "Input"],
Cell[7949, 297, 149, 4, 22, "Input"],
Cell[8101, 303, 149, 4, 22, "Input"],
Cell[8253, 309, 177, 5, 16, "Text"],
Cell[8433, 316, 422, 12, 22, "Input",
 CellTags->
  "mmtag:08:roots_of_polynomial_equations__example_of_plotting_roots"],
Cell[8858, 330, 519, 15, 35, "Text"],
Cell[9380, 347, 252, 5, 35, "Input",
 CellTags->"mmtag:08:Short[]"],
Cell[9635, 354, 301, 7, 24, "Text"],
Cell[9939, 363, 210, 6, 16, "Text"],
Cell[10152, 371, 257, 6, 35, "Input",
 CellTags->"mmtag:08:Flatten[]"],
Cell[10412, 379, 482, 15, 35, "Text"],
Cell[10897, 396, 102, 2, 37, "Subsubtitle"],
Cell[11002, 400, 178, 5, 22, "Input"],
Cell[11183, 407, 192, 4, 35, "Input"],
Cell[11378, 413, 145, 5, 16, "Text"],
Cell[11526, 420, 102, 2, 37, "Subsubtitle"],
Cell[11631, 424, 178, 5, 22, "Input"],
Cell[11812, 431, 365, 13, 24, "Text"],
Cell[12180, 446, 206, 6, 22, "Input"],
Cell[12389, 454, 604, 14, 56, "Text"],
Cell[12996, 470, 557, 17, 35, "Input",
 CellTags->"mmtag:08:plots__examples_of_adding_color"],
Cell[13556, 489, 440, 9, 35, "Text"],
Cell[13999, 500, 500, 15, 35, "Input"],
Cell[14502, 517, 186, 4, 24, "Text"],
Cell[14691, 523, 709, 21, 35, "Input",
 CellTags->"mmtag:08:plots__examples_of_changing_line_thicknesses"],
Cell[15403, 546, 426, 15, 24, "Text"],
Cell[15832, 563, 473, 11, 35, "Text"],
Cell[16308, 576, 346, 9, 22, "Input"]
}, Closed]]
}
]
*)

(* End of internal cache information *)