(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     25851,        825]
NotebookOptionsPosition[     16728,        588]
NotebookOutlinePosition[     21972,        722]
CellTagsIndexPosition[     20778,        694]
WindowTitle->Lecture 08 MIT 3.016 (Fall 2009)   \251 W. Craig Carter  \
2003--2009
WindowFrame->Normal*)

(* 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"]
}, Open  ]],

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"]
}, Open  ]],

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}}]
}, Open  ]]
},
PrintingStyleEnvironment->"ColorPrintout",
CellGrouping->Manual,
WindowSize->{1233, 872},
WindowMargins->{{136, Automatic}, {Automatic, 109}},
WindowTitle->"Lecture 08 MIT 3.016 (Fall 2009)   \[Copyright] W. Craig Carter \
 2003--2009",
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->"7.0 for Mac OS X x86 (32-bit) (November 11, 2008)",
StyleDefinitions->"3016-Carter.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "mmtag:08:imaginary_numbers__representations_of"->{
  Cell[732, 28, 129, 2, 26, "Text",
   CellTags->"mmtag:08:imaginary_numbers__representations_of"]},
 "mmtag:08:complex_numbers__representations_of"->{
  Cell[1081, 42, 168, 4, 26, "Text",
   CellTags->"mmtag:08:complex_numbers__representations_of"]},
 "mmtag:08:complex_numbers__simplfying"->{
  Cell[1863, 71, 450, 10, 37, "Input",
   CellTags->{
    "mmtag:08:complex_numbers__simplfying", 
     "mmtag:08:Simplify[]__complex_numbers"}]},
 "mmtag:08:Simplify[]__complex_numbers"->{
  Cell[1863, 71, 450, 10, 37, "Input",
   CellTags->{
    "mmtag:08:complex_numbers__simplfying", 
     "mmtag:08:Simplify[]__complex_numbers"}]},
 "mmtag:08:Im[]"->{
  Cell[2429, 88, 172, 3, 53, "Input",
   CellTags->{"mmtag:08:Im[]", "mmtag:08:Re[]"}]},
 "mmtag:08:Re[]"->{
  Cell[2429, 88, 172, 3, 53, "Input",
   CellTags->{"mmtag:08:Im[]", "mmtag:08:Re[]"}]},
 "mmtag:08:ComplexExpand[]"->{
  Cell[2836, 104, 140, 3, 37, "Input",
   CellTags->"mmtag:08:ComplexExpand[]"]},
 "mmtag:08:complex_numbers__division"->{
  Cell[3083, 113, 170, 4, 37, "Input",
   CellTags->"mmtag:08:complex_numbers__division"]},
 "mmtag:08:complex_numbers__multiplication"->{
  Cell[3256, 119, 128, 2, 37, "Input",
   CellTags->"mmtag:08:complex_numbers__multiplication"]},
 "mmtag:08:complex_numbers__polar_form"->{
  Cell[3688, 133, 387, 11, 34, "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[3688, 133, 387, 11, 34, "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[4861, 178, 208, 4, 37, "Input",
   CellTags->"mmtag:08:complex_numbers__numerical_precision"]},
 "mmtag:08:Chop[]"->{
  Cell[5256, 191, 100, 2, 37, "Input",
   CellTags->"mmtag:08:Chop[]"]},
 "mmtag:08:Round[]"->{
  Cell[5359, 195, 102, 2, 37, "Input",
   CellTags->"mmtag:08:Round[]"]},
 "mmtag:08:Solve[]"->{
  Cell[7212, 267, 420, 12, 37, "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[7212, 267, 420, 12, 37, "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[8491, 316, 422, 12, 37, "Input",
   CellTags->
    "mmtag:08:roots_of_polynomial_equations__example_of_plotting_roots"]},
 "mmtag:08:Short[]"->{
  Cell[9438, 347, 252, 5, 53, "Input",
   CellTags->"mmtag:08:Short[]"]},
 "mmtag:08:Flatten[]"->{
  Cell[10210, 371, 257, 6, 53, "Input",
   CellTags->"mmtag:08:Flatten[]"]},
 "mmtag:08:plots__examples_of_adding_color"->{
  Cell[13054, 470, 557, 17, 37, "Input",
   CellTags->"mmtag:08:plots__examples_of_adding_color"]},
 "mmtag:08:plots__examples_of_changing_line_thicknesses"->{
  Cell[14749, 523, 709, 21, 37, "Input",
   CellTags->"mmtag:08:plots__examples_of_changing_line_thicknesses"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"mmtag:08:imaginary_numbers__representations_of", 17536, 612},
 {"mmtag:08:complex_numbers__representations_of", 17688, 615},
 {"mmtag:08:complex_numbers__simplfying", 17831, 618},
 {"mmtag:08:Simplify[]__complex_numbers", 18021, 623},
 {"mmtag:08:Im[]", 18188, 628},
 {"mmtag:08:Re[]", 18297, 631},
 {"mmtag:08:ComplexExpand[]", 18417, 634},
 {"mmtag:08:complex_numbers__division", 18540, 637},
 {"mmtag:08:complex_numbers__multiplication", 18679, 640},
 {"mmtag:08:complex_numbers__polar_form", 18820, 643},
 {"mmtag:08:functions__example_of_conversion_of_complex_number_to_polar_form",\
 19087, 649},
 {"mmtag:08:complex_numbers__numerical_precision", 19328, 656},
 {"mmtag:08:Chop[]", 19453, 659},
 {"mmtag:08:Round[]", 19549, 662},
 {"mmtag:08:Solve[]", 19646, 665},
 {"mmtag:08:roots_of_polynomial_equations__example_with_complex_roots", \
19877, 670},
 {"mmtag:08:roots_of_polynomial_equations__example_of_plotting_roots", 20107, \
675},
 {"mmtag:08:Short[]", 20259, 679},
 {"mmtag:08:Flatten[]", 20358, 682},
 {"mmtag:08:plots__examples_of_adding_color", 20482, 685},
 {"mmtag:08:plots__examples_of_changing_line_thicknesses", 20642, 688}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[628, 22, 46, 0, 64, "Title"],
Cell[CellGroupData[{
Cell[699, 26, 30, 0, 70, "Subtitle"],
Cell[732, 28, 129, 2, 26, "Text",
 CellTags->"mmtag:08:imaginary_numbers__representations_of"],
Cell[864, 32, 112, 3, 37, "Input"],
Cell[979, 37, 99, 3, 37, "Input"],
Cell[1081, 42, 168, 4, 26, "Text",
 CellTags->"mmtag:08:complex_numbers__representations_of"],
Cell[1252, 48, 296, 8, 53, "Input"],
Cell[1551, 58, 74, 1, 26, "Text"],
Cell[1628, 61, 119, 3, 37, "Input"],
Cell[1750, 66, 110, 3, 37, "Input"],
Cell[1863, 71, 450, 10, 37, "Input",
 CellTags->{
  "mmtag:08:complex_numbers__simplfying", 
   "mmtag:08:Simplify[]__complex_numbers"}],
Cell[2316, 83, 110, 3, 26, "Text"],
Cell[2429, 88, 172, 3, 53, "Input",
 CellTags->{"mmtag:08:Im[]", "mmtag:08:Re[]"}],
Cell[2604, 93, 229, 9, 26, "Text"],
Cell[2836, 104, 140, 3, 37, "Input",
 CellTags->"mmtag:08:ComplexExpand[]"],
Cell[2979, 109, 101, 2, 37, "Input"],
Cell[3083, 113, 170, 4, 37, "Input",
 CellTags->"mmtag:08:complex_numbers__division"],
Cell[3256, 119, 128, 2, 37, "Input",
 CellTags->"mmtag:08:complex_numbers__multiplication"],
Cell[3387, 123, 243, 6, 53, "Input"],
Cell[3633, 131, 52, 0, 34, "Section"],
Cell[3688, 133, 387, 11, 34, "Input",
 CellTags->{
  "mmtag:08:complex_numbers__polar_form", 
   "mmtag:08:functions__example_of_conversion_of_complex_number_to_polar_\
form"}],
Cell[4078, 146, 285, 9, 40, "Subsubsection"],
Cell[4366, 157, 59, 1, 34, "Input"],
Cell[4428, 160, 222, 7, 37, "Input"],
Cell[4653, 169, 99, 2, 37, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4789, 176, 69, 0, 70, "Subtitle"],
Cell[4861, 178, 208, 4, 37, "Input",
 CellTags->"mmtag:08:complex_numbers__numerical_precision"],
Cell[5072, 184, 181, 5, 37, "Input"],
Cell[5256, 191, 100, 2, 37, "Input",
 CellTags->"mmtag:08:Chop[]"],
Cell[5359, 195, 102, 2, 37, "Input",
 CellTags->"mmtag:08:Round[]"],
Cell[5464, 199, 161, 4, 37, "Input"],
Cell[5628, 205, 196, 5, 37, "Input"],
Cell[5827, 212, 69, 1, 37, "Input"],
Cell[5899, 215, 68, 1, 37, "Input"],
Cell[5970, 218, 248, 7, 49, "Input"],
Cell[6221, 227, 289, 9, 49, "Input"],
Cell[6513, 238, 75, 1, 37, "Input"],
Cell[6591, 241, 76, 1, 37, "Input"],
Cell[6670, 244, 174, 5, 37, "Input"],
Cell[6847, 251, 73, 1, 37, "Input"],
Cell[6923, 254, 73, 1, 37, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7033, 260, 64, 0, 70, "Subtitle"],
Cell[7100, 262, 109, 3, 26, "Text"],
Cell[7212, 267, 420, 12, 37, "Input",
 CellTags->{
  "mmtag:08:Solve[]", 
   "mmtag:08:roots_of_polynomial_equations__example_with_complex_roots"}],
Cell[7635, 281, 102, 2, 26, "Text"],
Cell[7740, 285, 53, 1, 37, "Input"],
Cell[7796, 288, 82, 2, 37, "Input"],
Cell[7881, 292, 123, 3, 37, "Input"],
Cell[8007, 297, 149, 4, 37, "Input"],
Cell[8159, 303, 149, 4, 37, "Input"],
Cell[8311, 309, 177, 5, 26, "Text"],
Cell[8491, 316, 422, 12, 37, "Input",
 CellTags->
  "mmtag:08:roots_of_polynomial_equations__example_of_plotting_roots"],
Cell[8916, 330, 519, 15, 56, "Text"],
Cell[9438, 347, 252, 5, 53, "Input",
 CellTags->"mmtag:08:Short[]"],
Cell[9693, 354, 301, 7, 26, "Text"],
Cell[9997, 363, 210, 6, 26, "Text"],
Cell[10210, 371, 257, 6, 53, "Input",
 CellTags->"mmtag:08:Flatten[]"],
Cell[10470, 379, 482, 15, 41, "Text"],
Cell[10955, 396, 102, 2, 44, "Subsubtitle"],
Cell[11060, 400, 178, 5, 37, "Input"],
Cell[11241, 407, 192, 4, 53, "Input"],
Cell[11436, 413, 145, 5, 26, "Text"],
Cell[11584, 420, 102, 2, 44, "Subsubtitle"],
Cell[11689, 424, 178, 5, 37, "Input"],
Cell[11870, 431, 365, 13, 26, "Text"],
Cell[12238, 446, 206, 6, 37, "Input"],
Cell[12447, 454, 604, 14, 71, "Text"],
Cell[13054, 470, 557, 17, 37, "Input",
 CellTags->"mmtag:08:plots__examples_of_adding_color"],
Cell[13614, 489, 440, 9, 41, "Text"],
Cell[14057, 500, 500, 15, 37, "Input"],
Cell[14560, 517, 186, 4, 26, "Text"],
Cell[14749, 523, 709, 21, 37, "Input",
 CellTags->"mmtag:08:plots__examples_of_changing_line_thicknesses"],
Cell[15461, 546, 426, 15, 26, "Text"],
Cell[15890, 563, 473, 11, 41, "Text"],
Cell[16366, 576, 346, 9, 37, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)