(* Content-type: application/mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 7.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[
NotebookDataLength[
NotebookOptionsPosition[
NotebookOutlinePosition[
CellTagsIndexPosition[
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["Mathematica",
FontSlant->"Italic"],
" to study complex numbers (week 3)"
}], "Subsubtitle",
CellChangeTimes->{{3.4294`*^9, 3.702*^9}, {
3.387*^9, 3.217*^9}}],
Cell[CellGroupData[{
Cell["Basics", "Subsection",
CellChangeTimes->{{3.4498`*^9, 3.451*^9}}],
Cell[TextData[{
StyleBox["Mathematica",
FontSlant->"Italic"],
" is set up to deal with complex numbers, although there are some tricks one \
has to learn. The simplest way to enter ",
StyleBox["i",
FontSlant->"Italic"],
" (square root of -1) is as I (upper case I)."
}], "Text",
CellChangeTimes->{{3.2303`*^9, 3.886*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"z", "=",
RowBox[{"2", "+",
RowBox[{"3", "I"}]}]}]], "Input",
CellChangeTimes->{{3.8103`*^9, 3.674*^9}}],
Cell[BoxData[
RowBox[{"2", "+",
RowBox[{"3", " ", "\[ImaginaryI]"}]}]], "Output",
CellChangeTimes->{3.24*^9}]
Cell[TextData[{
"Note that ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" writes I in lowercase in the output. Here's another example:"
}], "Text",
CellChangeTimes->{{3.018*^9, 3.8983`*^9}, {
3.648*^9, 3.593*^9}, 3.262*^9}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Sqrt", "[",
RowBox[{"-", "4"}], "]"}]], "Input",
CellChangeTimes->{{3.479*^9, 3.9*^9}}],
Cell[BoxData[
RowBox[{"2", " ", "\[ImaginaryI]"}]], "Output",
CellChangeTimes->{3.049*^9}]
Cell["\", "Text",
CellChangeTimes->{{3.031*^9, 3.83*^9}, {
3.2214`*^9, 3.287*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Re", "[", "z", "]"}]], "Input",
CellChangeTimes->{{3.136*^9, 3.844*^9}, {
3.872*^9, 3.996*^9}}],
Cell[BoxData["2"], "Output",
CellChangeTimes->{3.748*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Im", "[", "z", "]"}]], "Input",
CellChangeTimes->{{3.224*^9, 3.945*^9}}],
Cell[BoxData["3"], "Output",
CellChangeTimes->{3.183*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Abs", "[", "z", "]"}]], "Input",
CellChangeTimes->{{3.333*^9, 3.858*^9}}],
Cell[BoxData[
SqrtBox["13"]], "Output",
CellChangeTimes->{3.3967`*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Arg", "[", "z", "]"}]], "Input",
CellChangeTimes->{{3.299*^9, 3.6027`*^9}}],
Cell[BoxData[
RowBox[{"ArcTan", "[",
FractionBox["3", "2"], "]"}]], "Output",
CellChangeTimes->{3.9143`*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"N", "[",
RowBox[{"Arg", "[", "z", "]"}], "]"}]], "Input",
CellChangeTimes->{{3.2543`*^9, 3.998*^9}}],
Cell[BoxData["0.329`"], "Output",
CellChangeTimes->{3.718*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"zbar", "=",
RowBox[{"Conjugate", "[", "z", "]"}]}]], "Input",
CellChangeTimes->{{3.052*^9, 3.439*^9}, {
3.617*^9, 3.0213`*^9}}],
Cell[BoxData[
RowBox[{"2", "-",
RowBox[{"3", " ", "\[ImaginaryI]"}]}]], "Output",
CellChangeTimes->{3.722*^9, 3.656*^9}]
Cell["\", "Text",
CellChangeTimes->{{3.055*^9, 3.291*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"z", "+", "zbar"}]], "Input",
CellChangeTimes->{{3.9563`*^9, 3.7417`*^9}}],
Cell[BoxData["4"], "Output",
CellChangeTimes->{3.8187`*^9}]
Cell["\", "Text",
CellChangeTimes->{{3.587*^9, 3.484*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"z", "-", "zbar"}]], "Input",
CellChangeTimes->{{3.0587`*^9, 3.588*^9}}],
Cell[BoxData[
RowBox[{"6", " ", "\[ImaginaryI]"}]], "Output",
CellChangeTimes->{3.163*^9}]
Cell["\", "Text",
CellChangeTimes->{{3.6313`*^9, 3.989*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"z", " ", "zbar"}]], "Input",
CellChangeTimes->{{3.219*^9, 3.8247`*^9}}],
Cell[BoxData["13"], "Output",
CellChangeTimes->{3.14*^9}]
Cell["\", "Text",
CellChangeTimes->{{3.393*^9, 3.884*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"z", "/", "zbar"}]], "Input",
CellChangeTimes->{{3.388*^9, 3.71*^9}}],
Cell[BoxData[
RowBox[{"-",
FractionBox["5", "13"]}], "+",
FractionBox[
RowBox[{"12", " ", "\[ImaginaryI]"}], "13"]}]], "Output",
CellChangeTimes->{3.291*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"{",
RowBox[{"Abs", "[",
RowBox[{"z", "/", "zbar"}], "]"}], ",",
RowBox[{"N", "[",
RowBox[{"Arg", "[",
RowBox[{"z", "/", "zbar"}], "]"}], "]"}]}], "}"}]], "Input",
CellChangeTimes->{{3.488*^9, 3.8833`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"1", ",", "1.658`"}], "}"}]], "Output",
CellChangeTimes->{3.3343`*^9}]
Cell["\", "Text",
CellChangeTimes->{{3.711*^9, 3.481*^9}}],
Cell[TextData[{
"Note that ",
StyleBox["Mathematica\[CloseCurlyQuote]",
FontSlant->"Italic"],
convention for the argument is -\[Pi] {{3.375*^9, 3.253*^9}, {
3.465*^9, 3.916*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"{",
RowBox[{"Arg", "[", "1", "]"}], ",",
RowBox[{"Arg", "[", "I", "]"}], ",",
RowBox[{"Arg", "[",
RowBox[{"-", "1"}], "]"}], ",",
RowBox[{"Arg", "[",
RowBox[{"-", "I"}], "]"}]}], "}"}]], "Input",
CellChangeTimes->{{3.195*^9, 3.772*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0", ",",
FractionBox["\[Pi]", "2"], ",", "\[Pi]", ",",
RowBox[{"-",
FractionBox["\[Pi]", "2"]}]}], "}"}]], "Output",
CellChangeTimes->{{3.233*^9, 3.78*^9}}]
Cell["Also, by convention, Arg[0]=0", "Text",
CellChangeTimes->{{3.386*^9, 3.496*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Arg", "[", "0", "]"}]], "Input",
CellChangeTimes->{{3.128*^9, 3.52*^9}}],
Cell[BoxData["0"], "Output",
CellChangeTimes->{3.9554`*^9}]
Cell[CellGroupData[{
Cell["Simple examples of manipulating complex numbers", "Subsection",
CellChangeTimes->{{3.933*^9, 3.3203`*^9}}],
Cell["\", "Text",
CellChangeTimes->{{3.6468`*^9, 3.1983`*^9}, {
3.748*^9, 3.537*^9}, {3.331*^9,
3.345*^9}, {3.93*^9, 3.168*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"z2", "=",
RowBox[{"(",
RowBox[{"3", "+", "I"}], ")"}], "/",
RowBox[{"(",
RowBox[{"2", "+", "I"}], ")"}]}]}]], "Input",
CellChangeTimes->{{3.9003`*^9, 3.287*^9}, {
3.254*^9, 3.866*^9}}],
Cell[BoxData[
FractionBox["7", "5"], "-",
FractionBox["\[ImaginaryI]", "5"]}]], "Output",
CellChangeTimes->{3.059*^9, 3.067*^9}]
Cell["To get result in polar form:", "Text",
CellChangeTimes->{{3.553*^9, 3.869*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"{",
RowBox[{"r", "=",
RowBox[{"Abs", "[", "z2", "]"}]}], ",",
RowBox[{"theta", "=",
RowBox[{"Arg", "[", "z2", "]"}]}]}], "}"}]], "Input",
CellChangeTimes->{{3.423*^9, 3.333*^9}, {
3.8036`*^9, 3.573*^9}}],
Cell[BoxData[
RowBox[{"{",
SqrtBox["2"], ",",
RowBox[{"-",
RowBox[{"ArcTan", "[",
FractionBox["1", "7"], "]"}]}]}], "}"}]], "Output",
CellChangeTimes->{3.311*^9, 3.064*^9}]
Cell[TextData[{
"One can also enter the complex number in polar form---all ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" functions take complex arguments."
}], "Text",
CellChangeTimes->{{3.703*^9, 3.5352`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"z2polar", "=",
RowBox[{"r", " ",
RowBox[{"Exp", "[",
RowBox[{"I", " ", "theta"}], "]"}]}]}]], "Input",
CellChangeTimes->{{3.3417`*^9, 3.9067`*^9}}],
Cell[BoxData[
SqrtBox["2"], " ",
SuperscriptBox["\[ExponentialE]",
RowBox[{"-", "\[ImaginaryI]"}], " ",
RowBox[{"ArcTan", "[",
FractionBox["1", "7"], "]"}]}]]}]], "Output",
CellChangeTimes->{{3.739*^9, 3.2433`*^9}}]
Cell["\", "Text",
CellChangeTimes->{{3.8743`*^9, 3.943*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"ComplexExpand", "[", "z2polar", "]"}]], "Input",
CellChangeTimes->{{3.99*^9, 3.847*^9}}],
Cell[BoxData[
FractionBox["7", "5"], "-",
FractionBox["\[ImaginaryI]", "5"]}]], "Output",
CellChangeTimes->{{3.511*^9, 3.122*^9}}]
Cell["Another example from previous lectures:", "Text",
CellChangeTimes->{{3.5773`*^9, 3.936*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"z3", "=",
RowBox[{"(",
RowBox[{"5", "-",
RowBox[{"2", "I"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"5", "+",
RowBox[{"2", "I"}]}], ")"}]}]}]], "Input",
CellChangeTimes->{{3.783*^9, 3.941*^9}, {
3.923*^9, 3.3493`*^9}}],
Cell[BoxData[
FractionBox["21", "29"], "-",
FractionBox[
RowBox[{"20", " ", "\[ImaginaryI]"}], "29"]}]], "Output",
CellChangeTimes->{{3.357*^9, 3.729*^9},
3.3683`*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"{",
RowBox[{"Abs", "[", "z3", "]"}], ",",
RowBox[{"Arg", "[", "z3", "]"}]}], "}"}]], "Input",
CellChangeTimes->{{3.532*^9, 3.4177`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"1", ",",
RowBox[{"-",
RowBox[{"ArcTan", "[",
FractionBox["20", "21"], "]"}]}]}], "}"}]], "Output",
CellChangeTimes->{3.845*^9}]
Cell["A final example", "Text",
CellChangeTimes->{{3.205*^9, 3.68*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Abs", "[",
RowBox[{"(",
RowBox[{"2", "+",
RowBox[{"3", "I"}]}], ")"}], "/",
RowBox[{"(",
RowBox[{"1", "-", "I"}], ")"}]}], "]"}]], "Input",
CellChangeTimes->{{3.999*^9, 3.531*^9}}],
Cell[BoxData[
FractionBox["13", "2"]]], "Output",
CellChangeTimes->{{3.993*^9, 3.197*^9}}]
Cell[CellGroupData[{
Cell["Features of ComplexExpand", "Subsection",
CellChangeTimes->{{3.578*^9, 3.977*^9}}],
Cell[TextData[{
StyleBox["Mathematica",
FontSlant->"Italic"],
" usually assumes that numbers are complex. Thus in"
}], "Text",
CellChangeTimes->{{3.7453`*^9, 3.8673`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"z4", "=",
RowBox[{"(",
RowBox[{"x", "+",
RowBox[{"I", " ", "y"}]}], ")"}], "^", "2"}]}]], "Input",
CellChangeTimes->{{3.3543`*^9, 3.317*^9}, {
3.0253`*^9, 3.469*^9}}],
Cell[BoxData[
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "+",
RowBox[{"\[ImaginaryI]", " ", "y"}]}], ")"}], "2"]], "Output",
CellChangeTimes->{{3.7948`*^9, 3.0187`*^9},
3.748*^9}]
Cell["it assumes that x and y are complex:", "Text",
CellChangeTimes->{{3.045*^9, 3.232*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"{",
RowBox[{"Re", "[", "z4", "]"}], ",",
RowBox[{"Im", "[", "z4", "]"}]}], "}"}]], "Input",
CellChangeTimes->{{3.4463`*^9, 3.011*^9}, {
3.849*^9, 3.852*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"Re", "[",
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "+",
RowBox[{"\[ImaginaryI]", " ", "y"}]}], ")"}], "2"], "]"}], ",",
RowBox[{"Im", "[",
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "+",
RowBox[{"\[ImaginaryI]", " ", "y"}]}], ")"}], "2"], "]"}]}],
"}"}]], "Output",
CellChangeTimes->{3.47*^9, 3.4907`*^9}]
Cell["\", "Text",
CellChangeTimes->{{3.818*^9, 3.635*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"ComplexExpand", "[",
RowBox[{"(",
RowBox[{"x", "+",
RowBox[{"I", " ", "y"}]}], ")"}], "^", "2"}], "]"}]], "Input",
CellChangeTimes->{{3.747*^9, 3.678*^9}}],
Cell[BoxData[
SuperscriptBox["x", "2"], "+",
RowBox[{"2", " ", "\[ImaginaryI]", " ", "x", " ", "y"}], "-",
SuperscriptBox["y", "2"]}]], "Output",
CellChangeTimes->{{3.53*^9, 3.394*^9}}]
Cell[CellGroupData[{
Cell["Roots", "Subsection",
CellChangeTimes->{{3.189*^9, 3.546*^9}}],
Cell[TextData[{
StyleBox["Mathematica",
FontSlant->"Italic"],
" does not automatically give all complex roots, e.g."
}], "Text",
CellChangeTimes->{{3.9477`*^9, 3.56*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"(", "1", ")"}], "^",
RowBox[{"{",
RowBox[{"1", "/", "3"}], "}"}]}]], "Input",
CellChangeTimes->{{3.1377`*^9, 3.209*^9}, {
3.363*^9, 3.035*^9}}],
Cell[BoxData[
RowBox[{"{", "1", "}"}]], "Output",
CellChangeTimes->{{3.715*^9, 3.4597`*^9},
3.794*^9}]
Cell["\", "Text",
CellChangeTimes->{{3.89*^9, 3.517*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Clear", "[", "z", "]"}], ";",
RowBox[{"Solve", "[",
RowBox[{"z", "^", "3"}], "\[Equal]", "1"}], ",", "z"}], "]"}]}]], "Input",\
CellChangeTimes->{{3.593*^9, 3.0773`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"z", "\[Rule]", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"z", "\[Rule]",
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}],
RowBox[{"1", "/", "3"}]]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"z", "\[Rule]",
SuperscriptBox[
RowBox[{"(",
RowBox[{"-", "1"}], ")"}],
RowBox[{"2", "/", "3"}]]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{{3.616*^9, 3.643*^9}}]
Cell["\", "Text",
CellChangeTimes->{{3.967*^9, 3.109*^9}, {
3.742*^9, 3.965*^9}, {3.446*^9,
3.975*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"root", "=",
RowBox[{"ComplexExpand", "[",
RowBox[{"Solve", "[",
RowBox[{"z", "^", "3"}], "\[Equal]", "1"}], ",", "z"}], "]"}],
"]"}]}]], "Input",
CellChangeTimes->{{3.4883`*^9, 3.798*^9}, {
3.41*^9, 3.338*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"z", "\[Rule]", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"z", "\[Rule]",
RowBox[{"-",
FractionBox["1", "2"]}], "-",
FractionBox[
RowBox[{"\[ImaginaryI]", " ",
SqrtBox["3"]}], "2"]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"z", "\[Rule]",
RowBox[{"-",
FractionBox["1", "2"]}], "+",
FractionBox[
RowBox[{"\[ImaginaryI]", " ",
SqrtBox["3"]}], "2"]}]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.901*^9, 3.2343`*^9}]
Cell[TextData[{
"Note that ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" gives the results as a list of assignments (which I have labeled \
\"root\"). We can use this list with the following construction involving \
\"/.\"\n(Read this as \"Evaluate z with the assignment rules in root, one at \
a time\".)"
}], "Text",
CellChangeTimes->{{3.799*^9, 3.829*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"z", "/.", "root"}]], "Input",
CellChangeTimes->{{3.9273`*^9, 3.2993`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"1", ",",
RowBox[{"-",
FractionBox["1", "2"]}], "-",
FractionBox[
RowBox[{"\[ImaginaryI]", " ",
SqrtBox["3"]}], "2"]}], ",",
RowBox[{"-",
FractionBox["1", "2"]}], "+",
FractionBox[
RowBox[{"\[ImaginaryI]", " ",
SqrtBox["3"]}], "2"]}]}], "}"}]], "Output",
CellChangeTimes->{3.123*^9}]
Cell["In this way we can check that all 3 roots are really roots:", "Text",
CellChangeTimes->{{3.2783`*^9, 3.705*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"ComplexExpand", "[",
RowBox[{"z", "^", "3"}], "/.", "root"}], "]"}]], "Input",
CellChangeTimes->{{3.42*^9, 3.9846`*^9}, {
3.387*^9, 3.209*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"1", ",", "1", ",", "1"}], "}"}]], "Output",
CellChangeTimes->{{3.428*^9, 3.4217`*^9},
3.574*^9}]
Cell["Here is one way to plot the roots", "Text",
CellChangeTimes->{{3.7893`*^9, 3.1332`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"rootplot", "=",
RowBox[{"ListPlot", "[",
RowBox[{"{",
RowBox[{"Re", "[", "z", "]"}], ",",
RowBox[{"Im", "[", "z", "]"}]}], "}"}], "/.", "root"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}]}], "}"}]}], ",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]", "1"}], ",",
RowBox[{"PlotStyle", "->",
RowBox[{"PointSize", "[", "0.03", "]"}]}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.433*^9, 3.678*^9}, {
3.196*^9, 3.077*^9}, {3.4763`*^9,
3.133*^9}}],
Cell[BoxData[
GraphicsBox[
{Hue[0.67, 0.6, 0.6], PointSize[0.03],
PointBox[{{1., 0.}, {-0.5, -0.4386}, {-0.5,
0.4386}}]},
AspectRatio->1,
Axes->True,
AxesLabel->{
FormBox["\"Re(z)\"", TraditionalForm],
FormBox["\"Im(z)\"", TraditionalForm]},
PlotRange->{{-1.1, 1.1}, {-1.1, 1.1}},
PlotRangeClipping->True]], "Output",
CellChangeTimes->{
3.5807`*^9, {3.639*^9, 3.908*^9},
3.965*^9, {3.625*^9, 3.091*^9},
3.324*^9}]
Cell["Showing that the roots lie on the \"unit circle\"", "Text",
CellChangeTimes->{{3.609*^9, 3.835*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Show", "[",
RowBox[{"rootplot", ",",
RowBox[{"Graphics", "[",
RowBox[{"{",
RowBox[{"Red", ",",
RowBox[{"Circle", "[",
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}], "]"}]}],
"]"}]], "Input",
CellChangeTimes->{{3.058*^9, 3.131*^9}, {
3.3412`*^9, 3.6127`*^9}, {3.6713`*^9,
3.846*^9}}],
Cell[BoxData[
GraphicsBox[{
{Hue[0.67, 0.6, 0.6], PointSize[0.03],
PointBox[{{1., 0.}, {-0.5, -0.4386}, {-0.5,
0.4386}}]},
{RGBColor[1, 0, 0], CircleBox[{0, 0}]}},
AspectRatio->1,
Axes->True,
AxesLabel->{
FormBox["\"Re(z)\"", TraditionalForm],
FormBox["\"Im(z)\"", TraditionalForm]},
PlotRange->{{-1.1, 1.1}, {-1.1, 1.1}},
PlotRangeClipping->True]], "Output",
CellChangeTimes->{3.9427`*^9, 3.599*^9,
3.487*^9}]
Cell["\", "Text",
CellChangeTimes->{{3.378*^9, 3.6917`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Module", "[",
RowBox[{"{",
RowBox[{"root", ",", "rootplot"}], "}"}], ",",
RowBox[{"root", "=",
RowBox[{"Solve", "[",
RowBox[{"z", "^", "5"}], "\[Equal]",
RowBox[{"-", "32"}]}], ",", "z"}], "]"}]}], ";",
RowBox[{"rootplot", "=",
RowBox[{"ListPlot", "[",
RowBox[{"{",
RowBox[{"Re", "[", "z", "]"}], ",",
RowBox[{"Im", "[", "z", "]"}]}], "}"}], "/.", "root"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"-", "2.1"}], ",", "2.1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"-", "2.1"}], ",", "2.1"}], "}"}]}], "}"}]}], ",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]", "1"}], ",",
RowBox[{"PlotStyle", "->",
RowBox[{"PointSize", "[", "0.03", "]"}]}]}], "]"}]}], ";",
RowBox[{"Show", "[",
RowBox[{"rootplot", ",",
RowBox[{"Graphics", "[",
RowBox[{"{",
RowBox[{"Red", ",",
RowBox[{"Circle", "[",
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",", "2"}], "]"}]}], "}"}],
"]"}]}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.37*^9, 3.31*^9}}],
Cell[BoxData[
GraphicsBox[{
{Hue[0.67, 0.6, 0.6], PointSize[0.03],
PointBox[{{-2., 0.}, {1.895,
1.9463`}, {-0.8949, -1.307}, \
1.895, -1.9463`}}]},
{RGBColor[1, 0, 0], CircleBox[{0, 0}, 2]}},
AspectRatio->1,
Axes->True,
AxesLabel->{
FormBox["\"Re(z)\"", TraditionalForm],
FormBox["\"Im(z)\"", TraditionalForm]},
PlotRange->{{-2.1, 2.1}, {-2.1, 2.1}},
PlotRangeClipping->True]], "Output",
CellChangeTimes->{3.939*^9}]
Cell[CellGroupData[{
Cell["Complex Series", "Subsection",
CellChangeTimes->{{3.6193`*^9, 3.89*^9}}],
Cell[TextData[{
"Everything that works for real series in ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" (and which we discussed before) was actually working all along for complex \
}], "Text",
CellChangeTimes->{{3.327*^9, 3.6663`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Sum1", "[", "z_", "]"}], "=",
RowBox[{"Sum", "[",
RowBox[{"z", "^", "n"}], "/",
RowBox[{"Sqrt", "[", "n", "]"}]}], ",",
RowBox[{"{",
RowBox[{"n", ",", "1", ",", "Infinity"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.497*^9, 3.4*^9}}],
Cell[BoxData[
RowBox[{"PolyLog", "[",
FractionBox["1", "2"], ",", "z"}], "]"}]], "Output",
CellChangeTimes->{3.529*^9}]
Cell["\", "Text",
CellChangeTimes->{{3.153*^9, 3.063*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Sum1", "[", "1", "]"}]], "Input",
CellChangeTimes->{{3.539*^9, 3.099*^9}}],
Cell[BoxData["ComplexInfinity"], "Output",
CellChangeTimes->{3.952*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"N", "[",
RowBox[{"Sum1", "[", "I", "]"}], "]"}]], "Input",
CellChangeTimes->{{3.004*^9, 3.948*^9}}],
Cell[BoxData[
RowBox[{"-", "0.9783`"}], "+",
RowBox[{"0.6101`", " ", "\[ImaginaryI]"}]}]], "Output",
CellChangeTimes->{{3.4393`*^9, 3.524*^9}}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"N", "[",
RowBox[{"Sum1", "[",
RowBox[{"-", "1"}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.9667`*^9, 3.979*^9}, {
3.682*^9, 3.6423`*^9}}],
Cell[BoxData[
RowBox[{"-", "0.6301`"}]], "Output",
CellChangeTimes->{{3.266*^9, 3.091*^9},
3.032*^9}]
Cell[TextData[{
StyleBox["Mathematica",
FontSlant->"Italic"],
" infact knows how to \"analytically continue\" the function outside of its \
disk of convergence (something we may discuss later), e.g."
}], "Text",
CellChangeTimes->{{3.081*^9, 3.273*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"N", "[",
RowBox[{"Sum1", "[",
RowBox[{"1", "+", "I"}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.337*^9, 3.9434`*^9}}],
Cell[BoxData[
RowBox[{"-", "0.2273`"}], "+",
RowBox[{"1.0504`", " ", "\[ImaginaryI]"}]}]], "Output",
CellChangeTimes->{3.5663`*^9}]
Cell[CellGroupData[{
Cell["Complex Functions", "Subsection",
CellChangeTimes->{{3.367*^9, 3.86*^9}}],
Cell["\", "Text",
CellChangeTimes->{{3.356*^9, 3.716*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"N", "[",
RowBox[{"Sin", "[",
RowBox[{"1", "+",
RowBox[{"2", " ", "I"}]}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.278*^9, 3.9843`*^9}}],
Cell[BoxData[
RowBox[{"3.168`", "\[InvisibleSpace]", "+",
RowBox[{"1.6063`", " ", "\[ImaginaryI]"}]}]], "Output",
CellChangeTimes->{{3.878*^9, 3.7737`*^9}}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"ComplexExpand", "[",
RowBox[{"Sin", "[",
RowBox[{"x", "+",
RowBox[{"I", " ", "y"}]}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.444*^9, 3.2317`*^9}}],
Cell[BoxData[
RowBox[{"Cosh", "[", "y", "]"}], " ",
RowBox[{"Sin", "[", "x", "]"}]}], "+",
RowBox[{"\[ImaginaryI]", " ",
RowBox[{"Cos", "[", "x", "]"}], " ",
RowBox[{"Sinh", "[", "y", "]"}]}]}]], "Output",
CellChangeTimes->{3.806*^9}]
Cell[TextData[{
"For Logs and powers ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" makes standard choices to resolve the ambiguity in the argument of the \
logarithm. Note that the N[] (for numerically evaluate) is need to get an \
actual numerical result. Note that //N after a command has the same effect."
}], "Text",
CellChangeTimes->{{3.177*^9, 3.319*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Log", "[",
RowBox[{"3", "+", "I"}], "]"}]], "Input",
CellChangeTimes->{{3.524*^9, 3.107*^9}}],
Cell[BoxData[
RowBox[{"Log", "[",
RowBox[{"3", "+", "\[ImaginaryI]"}], "]"}]], "Output",
CellChangeTimes->{{3.793*^9, 3.974*^9}}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"N", "[",
RowBox[{"Log", "[",
RowBox[{"3", "+", "I"}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.1*^9, 3.076*^9}}],
Cell[BoxData[
RowBox[{"1.023`", "\[InvisibleSpace]", "+",
RowBox[{"0.6422`", " ", "\[ImaginaryI]"}]}]], "Output",
CellChangeTimes->{{3.016*^9, 3.717*^9}}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Log", "[",
RowBox[{"3", "+", "I"}], "]"}], "//", "N"}]], "Input",
CellChangeTimes->{{3.525*^9, 3.62*^9}}],
Cell[BoxData[
RowBox[{"1.023`", "\[VeryThinSpace]", "+",
RowBox[{"0.6422`", " ", "\[ImaginaryI]"}]}]], "Output",
CellChangeTimes->{3.959*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", "I"}]}], ")"}], "^",
RowBox[{"(",
RowBox[{"3", "+", "I"}], ")"}]}]], "Input",
CellChangeTimes->{{3.533*^9, 3.273*^9}}],
Cell[BoxData[
SuperscriptBox[
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "\[ImaginaryI]"}]}], ")"}],
RowBox[{"3", "+", "\[ImaginaryI]"}]]], "Output",
CellChangeTimes->{3.972*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"N", "[",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"2", " ", "I"}]}], ")"}], "^",
RowBox[{"(",
RowBox[{"3", "+", "I"}], ")"}]}], "]"}]], "Input",
CellChangeTimes->{{3.468*^9, 3.779*^9}}],
Cell[BoxData[
RowBox[{"-", "2.4208`"}], "-",
RowBox[{"3.2993`", " ", "\[ImaginaryI]"}]}]], "Output",
CellChangeTimes->{3.965*^9}]
Cell[CellGroupData[{
Cell["Plotting Complex Functions", "Subsection",
CellChangeTimes->{{3.367*^9, 3.86*^9}, {
3.9697`*^9, 3.3487`*^9}}],
Cell[TextData[{
"Complex valued function can be difficult to visualize due to depending on \
multiple variables and functions behaving differently along the imaginary \
axis. Using ",
StyleBox["Mathematica",
FontSlant->"Italic"],
"\[CloseCurlyQuote]s 2D plots separately for the real and imaginary parts, \
contour plots and 3D plots can greatly help. The following are a few examples."
}], "Text",
CellChangeTimes->{{3.6353`*^9, 3.9408`*^9}, {
3.344*^9, 3.958*^9}, {3.267*^9,
3.235*^9}, {3.559*^9, 3.974*^9}, {
3.506*^9, 3.3717`*^9}, {3.782*^9,
3.864*^9}}],
Cell[TextData[{
"Looking at the exponential function ",
Cell[BoxData[
SuperscriptBox["e", "z"], TraditionalForm]],
FormatType->"TraditionalForm"],
" for a purely imaginary argument"
}], "Text",
CellChangeTimes->{{3.1883`*^9, 3.149*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plot", "[",
RowBox[{"{",
RowBox[{"Re", "[",
RowBox[{"Exp", "[",
RowBox[{"I", "*", "x"}], "]"}], "]"}], ",",
RowBox[{"Im", "[",
RowBox[{"Exp", "[",
RowBox[{"I", "*", "x"}], "]"}], "]"}], ",",
RowBox[{"Abs", "[",
RowBox[{"Exp", "[",
RowBox[{"I", "*", "x"}], "]"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "10"}], ",", "10"}], "}"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Thick", ",", "Blue"}], "}"}], ",",
RowBox[{"{",
RowBox[{"Thick", ",", "Red"}], "}"}], ",",
RowBox[{"{",
RowBox[{"Thick", ",", "Green"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.376*^9, 3.88*^9}, {
3.054*^9, 3.7546`*^9}}],
Cell[BoxData[
GraphicsBox[{{}, {},
{RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJw1e3k01c//v+xb9uVeS3Fvi4RkbdNMUdKqFClRthbeiOxrkiQlJW0KKaKU
yJLKjGxRIVv2fb/Ly74v39fnnN/vL+dx7sxznvN4Pmbu8zHHVbZ1PeHAycHB
Uc3FwfG/v4GDR8ZXVuj4VspejozmETTgLzPVukjH991yBHsmR9BRsc6ZvDk6
BqHD8fWiDKS03W3JdYKOY5pdj40ZMdCPyAf8XQN07HFb9O+q9wzEr/FvDf5D
xymiXXcO/MdEV38kKMdX0jH0F7LcFsZELeaX1vmU0/GBReOG7mdM9C54bpNm
ETn/t8Li+XImOvpXXjfxM4k7/cQFFVko9tr5QyHP6biogVu0pYCFlvg3HbV6
QseOY1j+8B8WcnwxZrrtER07mSi+v9bJQvploeaj98j8fU68GeJkoxbZNxfO
h9Jx0oUSaLGfjQzf/2e/K5iO18CU9z7mbPQe6l2kBNCx9Mdhk2OObBR4udy5
xpOOp4NkAuVvspHS12FveJmOU6clP2xGbHT7WJafgiMd743giRj/zUbjvX6B
s7Z0TKfouv7XwkbFwsI3Mq3ouBVJdQdNspGjtcY9JVM6fpRs3SG8nkBV49P3
Fw/TMU/yu7dumgTSv4UeNpnQMZ9eT+StnQTizzR9et+QjldcLqtWmRLo3SqP
1xz6dCy3npfvmzeBtpml8z7VpuOBzNveHtcJVPa6+9JWTTpeVVD5tDqSQF3G
puq2m+h4c+jqCM94Ark8vRU9v56OJWaGldBrAi2MFI49oNGx4fB2noz3BJK5
p55bLE/H3Lpmpzy/Euh1pz3FikLH+0/vizv2g0Bbt8b7TUrR8Vn+pd9/fhKo
MLSuLUqc5EskbYCoItDhekGwXoSOW9bf+JtTT6CW9XuTvgvSsap2TcDaFgJd
9PblMucjx1/talLrJFCo3FB5OAepH43Sy1pDBBJzXqu6domGle2vhakyCfTi
u3lU3hwNi4TGy5cRBFIVvcc+Nk3DsQM/1/FMECj/fKnp0DgN16rGxA1OEWhf
1mJWCEHDgrufXvpvlkC1XDrSVCYNtwbGPIybJ9D5U07en4Zo+NovPXG7RQKx
Ul41m/TTcN6LE221SwTym23e2dNNwyfFvo72L5P8HxR/6ddBwx3EiUPxKwR6
9PwAh2QrDVf9EBiZIjGNFWz77h8NB1e3/honcebuvBLDehpeu7Z29AGJDe6z
N7TV0HBcIOeZRjJeZff629f+0PB5r2iB7+R6p7XPMYQradjq6FtOYzKfgbDY
I2/KaPjhfITJNTJfj8ZfHw2KaXhM0q/XiNwPhwqXRCOi4ZnymsZ8cr/3fHdc
c/lGwxfK2Ko14wSS/3W1kfcLDX/dvHcokuTrrULatoQcGl6+tI8yzCCQnkvX
M/0sGhZTCS4dGSRQMZJdqv5Aw3vVQxeiewlkKn7M5tI7Gq7UZZU1dRCowza8
iOMtDW+tu6Jb2kygWZ6pm1uTaPiRcaj+bbLe4RZqQxUvaPjpRDrjPKkHyTS7
g7bPaHhDCFdYWxGBNA7Xijx8SMOdj1ozUDaBvr0QuLr5Pg2PX9hzaSOpNxMC
1hVH0fBfxeTT2qQe7R98fDx5k4Y/4rht2x4S5HkamIsKpWHKqLXlVlLPwbpr
rNYH03CIeLREdQiBnjVFKZn70HBB8szXWWcCqaiWhLKv0XCGT0Z/mC2BcvwX
+sKv0vC+C6VyuRYEqllzJS3vCg2XKjmv599DIB4HYy3qORr+xjh4xUWU1Iv1
VguGJQ1fWf8nXZCLQC9Pywd8N6dh7Xvfok9Ps5HeYaL0gikNX/0xWy7QRp5n
7ceW6YY0vOZD+uvSZDbSUr8eFABp2HeIlTMey0bLG5ySjxrQ8NHcyuu15P3x
WA6wxvVIvQRN9KST98vPVYMhO1VJ/v2XVIrXsVHsQs2b1Rtp+N3FjxcjJdno
/FRBZSedhn00JlN5yPtrbuieVJgieR7MuDspHSykWqP39rcYDe9yyFTPe8BC
US/Dq8/NKGM7b35iicVEp5+4TW6ZVMZ53PYp8k1MtO7BGSrnmDLWNjMLGC1i
ou83NexSRpRx0e0sexzLRGznxml2uzLu9ei5tqLHRKY7N6wJKVHGkXdXTLe4
MJBkU6nzqxhlfLjH01gpbRjhzUkRYfeUcYGEf7nunWHkHBzw2vGOMs6Z+7Z7
9X/DqGyDdpvqTWWccPPGNi7NYeTnmXgo20cZ10k8C5HMHkI9Ev6qJTbK+Iqe
4nX+D4Mo64jmUL+6Mh5fzHb08+1HNklC3D9VlbFU7qO3F0/2I+GpgbXpG5Ux
3+EkReUt/cgx/oWFi7Iy7pn8LTTf24fkGILl01LKeCa7YOnIoT4UGtH/hm9R
CUu0c4xWi/WiE8XP7DZVKmF76/GIbt8utK6+r6O8TAlvzvG5euVQF5ru0zjj
WKyExXSCKkoUutBT3mLT5G9KePR80NfOwE7UZcIwUPyohF9maT224uxA/9Xs
pIjHKmHuBcuZ8IUWFNHe9nv2nBL+sAEV7cmtR/6EgfP93rW4+/Wj+2HahSjf
+9mVj8fW4Og33cHnPf4Cmv3VN00H1uCbQ5Ef77b9BXdND3St2rsGl4LSt+H7
aoHtpulTJ3XW4GqTNer/ZOqAUOvxPXOUNfjEs9dSf3PrgfVuAYphjyIO1Dhv
spbxD3Dx+JQ2XlPEtgKdy1yKHcBl7CgHh4si5g0n7jkEdoCm9vU7N11UxPk5
Z5f/a+8A73PrMv0tFfGFbU5U1/hOYH5pS7zSbkV8IqZ3QOBOF3j7a8D9Cp8i
fsb146H/Qjc4+uCU0vJTBYyv5IuOZfcBPy1RE+OHCvh4TA1XRVsfSKn9efV+
lAJ+ryao6cjTD5YldhXTghWwd0/VRfapfpDxkOZobE9+rtk9t2myHwg/It7d
11DAi0atvKx1g2Cbblp980YF3KRBOdZnMgjsG2yXaMoKWCneZ+6pyyD4Jt14
NEdSAR/ufP1vd94gcIr7NtY8K48lJZIe2+0bApWPb+vTi+XxA8moWz9ODoNp
fcPzzt/k8UVrRemrnsOA1rQYkZMjj/Ve3R7892gY+FHcWozfymPm3gfs3w3D
YNNT80Dnu/I4sNnu68ETIyDiGb04x0Iep/NMpJoYMMDnHe2MZVN5PP/AxN/M
kgG6WuKkDhyUx0h9DRTzZIBt8oKOLbvk8Soc4pj0jgGGno/yryjL49KA4mqq
NBMYv/h+9ABTDh8Fafr0ZiYYvdu2yD0gh9k8s18+sJngWdBCelGnHLZICDo6
wcUCTJvtfDvr5HCOgVlHijoLPKDlIPUCOTzwdYdYViAL7JKs/28kWw5PZKXH
ccSwQD/XhHxqBjn/hl0S72sW2Nav6aOUJId3Xm64va2CBTpS32tKRsjhYyW1
+RpibBDx5FdH9XU5HD//00VHmQ223h6JivKXw8lnbhiPbmWDsCsqwzyu5Pi5
7u+3T7CBqvrrpNlTctjHzMoF3GeDesXiYznH5PA5myf9Yy/ZIFCkZ+mqiRzu
qDI/ZJnBBjXE2jOMXXL4PEf9qf0VbOCV9Vyigy6HlwbD8x4tsYFScgF+piiH
f9JvsRkCBKh42OxiISuHN1aWr56WJoCCp+yvGkE5nHA+J3q9OgHKHPR873LL
4Xfqd74c3EYAV/NTGw8uU3FU+oQl3ZAAP/Qf3igeo2KjyLZYtgUBnFWytoYw
qHik2nax6wIBpKl/O3f1U/EsX8S1cCcCXJoX2ZXbRMX6yvXbRgIJIPI9cvIt
omLZ+Oo0iQQC5GekvXL4QsUua25sep5CgAsvf5rSsqn4wvfT4o0ZBPgczJvx
PIWM99/eOtuvBLB2W3/2dCIVz2etifpcRAC+C0YC0s+ouPJ3xpX8cgKc2Rvq
cO8uFUebpFo31hKAWztJ8tAtKvb4XHN69B8BMsjWlu86Fdfu37z3WxsBzKU6
XUv8qNi0YFJkRzcBOHiWFa9fo+Lp/aqfL/cTIH1K4beBCxVrFkZsPDRMALOB
nX7zF6l4LjnKpoNJgMXGMyp5F6h43X53M/ooAVLKfRs9zlJx31/dBeoEAZ5q
eRmmnaTigBNxa2anCBD1wj2z4wgVn1SJU/KbJUAwv6uilDEVM97NzyXME8Dd
wynSBJLz2x+8vrxIAIeOizNB26m4y0df/t8SAU6b2Nt/1qLiMxy/LIeWCXDw
8/m/w5upOPT39nMvVghgsPbc7rXrqZgq6UefJrFmpOW7k2uo2JJ15x3ZPwHa
1ClKpCwV/znjO0X2T0D6/ImbSIyKDfaYc/4j4/H/Ojo+KUDW+zKsLyTXW9A9
ZKPKRcVJvjYuB8l82InGv20WKfgYo6/el8y3W8ho+6MpCgYcwquPkPup94Ip
lWwKbsmiKpaQ+y3v3iXJMUTB+q+thDvHCVBweHuIbjcFC/Op974gyHrk6bKu
tFDwy1vMdA6Sz0Sa1pnEOgrO1+R14RsiwMO7GuUNvyn41RG2flYvAcJnVXWE
yihY3oQmvaqTAE5VdBGvfAqWNLkP79ST+tiu5P/uEwX7/Tf2vqyKAKavFYa6
0inYzJJ5KeUnAfT8pH8cekHB2XZnZM1IPW3qF99yPY6CLZb0NJU+k+fBVCQ+
N5qCWf3B/THvCcC5gc9LOZSCeXgDA+3iCTB1n6vX3J+Mp9J4r/ghAYYWVo5F
XaPgz0N9T39GEqDq7+ymGUcKVjqYw/PDmwBFu6bi1M5TsEfH0Re5/5F6Th3j
srWk4JOWR+JN7Uh9BI60/z5EwTWNdiaeR0h9DA0c5NxHwe0TAXocewkQZNab
p7+b5MNrkX+rHgHsN7XFvNKkYI5bVoNhimR9G/7s85Gm4N0z4aFzg2xAh5VZ
GSIU/F0+PiqvmQ1k3pWt7eWj4A3R2W8VfrHBYgiaOzIvi3O3meK292xQrvYp
g94pi53HWPu3O7OBdVisdPVbWXzpfh6628ICVWCaz+eVLO4X2UNd/5MFwILF
vFK8LN6nN5d4NYcFlNzlO92jZTHN7eWMajQL9Ni8eivjJUveR/sk1wEWcNyZ
udPaUBbXbm4btYphgsZpcQ0+A1msn9dSYe1H3tdZHkqZerK4XipalmrHBCqb
9Hk4VWVxeFjaQp42E4zIFFa9EZPFdZap3m/+MoDL+K8LrHYZ/HnzTUEvDgbo
yFA/GfdPBqce9JJT6B8Bxy5H7wd/ZXBx6s6nQRUjQLPrxOaYEhnc1fzfnG/M
CBj/0zyp804Gx+9z4z6xZgR4pQ3eCvCRwTfecDmWbx4GQee5PghJyuC9h/Wu
D8sOgsxq43v1wjI4GezfYjs1AHp2R7m84JXBCeWirsm1A2C/ovSWLfPSWEum
ZyIkagCItGzIPNEtjdd/Hbf5tNQPXpodzHr6URqfpqY1ajf2AbQ/JnfjYWm8
5suA83bbHsChvhYZ3pTChqs73snNNIMAmT3WN4OksORUz1GL2GYws2K7VOYt
hccYtwwObW0G7NqUnQevSOH6dbH25640gVYfjXzTY1K4WKqgwaS5EeSWGHw6
R5XCDpUFsQbv6sB/VlbJ3hmSmLNv1aLQsUrQcufprXcNEliRe141/5YLqitV
en++WgKbf45PuK8fhn6vpNZIV0jgimqHuBDH+6jQI5ca8k0CB9U+r7m4EI9e
na17dzJZAu+by4n5IPYOXdm8umbJTQIbmx5YFJcqQAuVIRRTYXL8B/sDOb4V
SEHwUtrkXnHcqs2onClsQtaFv6Nou8SxibrELR96M0py3+pmqiuOD5bIb868
1Yw2tM7rvd8ojnVbZF+CYy1oy/u7JXbC4lip6Eo4amlFe49md9Y2iGGHHQl8
Jj0d6PKDZelPl8Rwzb4XT8dO9aD3++3mOi6I4ZA4zh3RoT2IPV/eJnxWDIeO
Heef+dCD3O1iki8dEcOl2o2qdL5eFKCzbquSlhhupVyK7vzci9ZkPHyyZkYU
64YGafrz9CMnXVWeVgVRHL5vRWjSexC583xJ9RIVxUpftsQaxA8ivwbjgxKc
onjJNmPcCA+iSE+HaJNBEaxc6JZwh28IpeckUvM/ieDM3UatrAdDaFhXVuPR
fhG8MGZ36VP8MBrlSanR3C6C7YtDktK/DaPZBh2P35tFsLWX8dezbcOI3+tE
Ppe4CO5JPK/RJzeCVHLv7nVvXY1DpI3vhcWOoIt63BbH3FZjeWfn/C++DOTC
+3BuxHY13ug9rijwiIG8GpXjw0+txqWvnLYJZTJQuBfo/r5jNQ6NMbPe0M9A
Kbl+Tmo8q7EYCrDKPMRE/XpjwQLPhLFd4bcrDQIsxOQNob2JEsZtTffDNZRY
aLJRpBQGC+ODU3zcenosxO2tJuhjL4zP5jaqH7vAQuvyLsYOaAjjTh6RnORs
FrLT73hbXCyEg5T1D78+QPq5t/rm+/OEcNhRrDVZEuhDMmKfmn
L7GR24KhdVWMEL7YvPpTXzgbBaA0yWYbIfz++JEPQZiNgjW5is6aCeE9Ato0
1So2Ck2ycunYL4Tjv/Bej2xlo4gbohW96uT43WWBl6dIv2fsGcReEMQ/4yZE
X6wn0OP8qs1XCUFslvPYnalJ+ttNKs0TPYLYre5aNbGTQIlCrdpzFYK4tl9n
tcRxAiUH6HT7fxfEBnaPCjTPEiiFdffecqYglnZTXeB0IFBGNRzmeiKII18w
G4u8CZQJn8WF3xHExpcvG30g/fPnTxOGAsGCmDeyYPjIbQIVPEx5KeIoiKP0
QyNSnhLoOzfH4RhLQSx0S/mMTRKBsKflnOQRQawgMSj56y2ByiyET1J1BPHp
VQdmC3IJVPHTYVX8RkHsfpzBAb4T6Pd29GGNvCAu4yvN8Cwm/bW8u8A6TkEc
6GqUP19FoIaoX7kpUwI4xbZx7kA9gZqW1tlvGhbA3GHeqSbNBOrs/FeoUSOA
9Zs7ZGx7CNRjutX5U7EAjmT4/vAdINBAUSRVJ08AS62tyjAcIdCwVl9ZbroA
Fr6WUI1YBGImG1zb/lIAa4S6rmWPEoiQeqz8LUYAX7kb+KhqgkDjN0erdt8U
wJVPylQvTBNoatokoMhHAN/15ml+M0ug2YvJm4ycBfDltqxn8fMEWmhabCyz
EcCCF3mc9i0SaNnEPMzETAB//Ti2L3GJQKu+ftz6e78ABsdVVTKWCcStJtB5
dIcA7h5dK+q8QiC+F7ZRf9UF8CejVXNtJBYU+bb9pLIAZst+7VshsUiw9GCj
lABOPzL7t57E4qMusZb8AvhJt3LRWRJLXfi5p22BH/MPWmfHkvEptcqENcGP
14bHpgeT68sb+sd39/BjrRmHNAUyvzWf603sG/mxVYBOthOZv/J6jZmBCn4M
Ldf+dib3ty7u1uvL3/nxwk+uubXk/jfydR9nZvJj0/EAcJPkR9Vnx4rLa348
0dz7Jp7kD7cfVe2N48c9HWwhRZJfc0O7Uxa3+XGyqN7QnmGS77feIb/8+bFg
Qfk+oX4ChYpEvQMu/Hg+JF/Tt4vM91piY/Z5fly8nZ57p5VAH5o/r1Ix48d3
y1T69jYSqPl1u4XYNn7Ms+WNd0IlgVwEx0PDVPkxZ6zfslEJyacb74dZBTKf
4FS3aFJfmju3cHev4se8C8v2kh9JPSYabjk1yYdbNn0SO5JKICve02cqBvjw
WGrF/OYEAkX8Dcn89IsPH+p1Hmq+S/Kj/6h1fSEfvt+fqJgWRp6H+DTeZ5l8
uEDr7qSiP4G6LtZahT7iw9XWPNOzjgTSX6YLmNnw4RJDg5veO0h9223TKT/O
h5Pv9i17aRDItuKwzU4jPvwi/qK4Io1A92I9c+ib+PBRnbfR5/hJvaqWX5gc
58UJlZGin2vI++N+a9Slfl7cvzH0IrOIjSSmiby2f7z4vE1k9O8sNtpdRBEp
/caLxcp2L4c9ZKNHFlcKHoXz4uXQyydaTdlI9XtQv4AvL7aZ2qxkAdgI0x6K
BTnxYsx01AlQZyMm66ujoykvdhXlWf7Bz0ZGYasl9eV48S29XcwDX1moZVh5
9zthXizccOi7VCoLuR3Tu7x2hQej4Qu37zxgoedyNoivjwfL9FNX/C6x0Hhm
plNTBg++eFx49SUxFkpqNyvx3cODhSK/bMo2ZSKtPq35eh0e/MOmVJZjOxOV
jIhraqrwYK3OX+G8ykw0MFP9fECEB4c6czXBUQZSlTjsYdbGjVUK5pav3mGg
rP1GNHVvblxS6nFq+fMIKvmoE9L1ngtfe7szOKlxCJ3KlczdmciF77VohyXk
DqGBb+OMuIdc+ITD5iqbuCHEX5lpccSPC6ccGPJQOTWEjvSpbSkw5sJBs2kL
PdWDqJGyvuNhDye27ZWP2V8wgAavS+8ypnDilug9GloOfUgw8CPxUJAT34v+
2ty8ow9p+Jgkdy2uwh6pCZr7xfqQl0ugoF/3Kly440+9S0Ev4j3b3/Q+fRU+
LgkqVgv3onU6OZ4SBqvw7sDvlInX3ch24OTH9gsc2GolMITTth0VPFLZN2S+
hATznIx3v6pBmsPNk1teTCM1efBaUrwEXBtV3yQbNo2sDP547vtXAvJnrp9b
vjKNqEo5HEYvSsEeXtWy39umUVL/7ZQElXJwgu73+HL9FALns4Tid1UCz3Ny
O5KFplCzmu88h1oNKPh7JljGbwKt1im2y93YCJabPmQvnZ9A28KUtCpuNoK9
XZxDfcYTSLUxIe51byP4xU43zZaeQKLxneGfXv4DbUILyqafxhHVS61fUKIZ
rOx7XnJ7aAxNqYOwSWYrMCpoFVgyH0XZJgptpbld4EP6m+3lO0eRlctQu3R/
F6A8d70cozSK9jV3cOpKdoPGGd4Hh8h7/mbZgaQOl26w3t9c7MU8GzVNxX2r
ofeAH9enhKExCwnSXQsKb/SCxXvavOFdw+jUDCvlJGUA1LiWO8ilD6Mgr1/b
HoABkGx6tvSDxzCSub/JPdpxAByUuBH2j3cYuf2SppZnD4Cnj2o5N6kPobjL
OWJrDw0CvfirK798B9Cx84cGJf4bAm5pH2fFJXtR+P4r2w38yX5cxOXG3q4e
1LL3kNarxyNgzF1NxCOjB8mMDK8tyR4B7rvS6PXGPWhXzMlCA8YI8Kx+dTQu
oBvlcje4clgwwMTIZhPd350o/YOH/G1lJrj2+a11nGMneg65n77YzgTTgeuv
zXB0ovm/N1hXjjPBrNjahC+6Hcjcc37zlhAmWNSTmDJIaEMnS4lnFi1MwHtj
NnG/ezMSSyzymQlhgVuHPXNThZvRSzfW36BYFuCXGf/Fn9qEFMMDHn9NZQHB
NMZ0Zes/9EM6JOXkHxYQre44fGxfI6oiHn5ekWKD+0/O2mZ2NqCjk1sOq29g
AwnbJm9xvwakq9vfJaLPBlJTf1/VfahHdQ8UT7Ms2IAiXzprQalDCS0uPJJx
bPC0b4/Il6xalMxnyN/2mg3kPhTS5Y7UovTS3z8tstlAcU/+0bbrf9Gs3+cx
x2o2MKwyNylqrEY6SyFSXVwE2H/B9NoNoWq0Ld5q604xAhyYNEnYB6tQxY/t
S8YKBDgsZzBVkfYbuShs3+SlTQBzR3pSbUAF6tt/IVPZmgCRVz0iHuT8REfl
Z5UaLxLge0Cx6wl2OUr8Pue9+yoB1j2eVBqjcIcPpl9voHT0pR
VOh6rg93CHAnjWv1ib8l6MUxKdl+0h+Po+TWv3uLkafvt5f/JRNgw6+JHzH+
P9AZjVpmYToBLBsN049/LkL5VluDiz8RADN7ff6ux+gSM0R9oJD018RFTPte
iPKkX2ziLiXAMV7+6Fca39HTR2dUGyoJsEb7gNor8QLkIi7Feb+BADdNhuaV
b+QjbVkx5NtCAKZNREXSZC7aUpZxWKaTAGZeKk+UHXPQY3+c4NBLgIKon45J
/7LRvrzGjIuDBFBOvqSrbJKFlnR2/KfAIEDEF37upIJMtIp7tP4GmwAdCcff
7Dn9AVXE57e9GCNAxu+YvXt2vkO8U6KBVyYJ4D/3txOueYuaYtQ/Dk8TwGSD
RCBc9QZte8L9n/wcAWTNTsjBviSU1mr4aWWeAL9W1rkG33uBpBinvOMWCXDJ
8k1a0MnHaEj+wtfOJQJwZ6/vC5SLQU4Pjf1alwkAqYcN5vFNdOBo6qfbKwQY
ffLUfuypO7LY0GIzQuIAztjS/dsswbPGqRtLJNZ4ZlcupRcMvJZ+KRaTuIP6
iS0kGgVoiiPqO0lspt30LXxPLDB99jTHgYyf22wResv/GZD40pm7l1x/NWbQ
S84kgtHHgTq1CwQAD9+Fl3gng92bRrdKkflfdXQaLolNAemqbtn8swR4tX3z
4dJPaWBJbvz7xykC1AszPpRWvQfyGhssBCYIwNuVLl7G+AgMgM9N6VECxFvq
7rAL+wSsi0RN65kE0DV85NQrkQ0GM6oL9w0ToEptKt4u6TN4cNW85X/vcRwc
OSt2hXmgcLzFoLKNAE+Hpbb2Hf4CvHgKn/E2EUCr7pqtfWsBULqoVTVVSwD7
FJ1S+9nvQEY3eYRZToCl6NjpvnAETuVYsSeLSP53zT/MisQg2Ul5+eNXcvyG
M6Va1B+gPudgMPhAAE15wQ73rh+gUhSKS6WS80ULprNSi4FQ+4XR5wkEiJuj
qmjrlQK/FpPO0mgClP9ujtQ2+wlGgilvw5zJevq0lJ/dXAHWve9PodkSgH9d
K3cYVyVgneHecNGCAAf924Lqs3+BIJtXSn2QAL83dbp7SlUD8e9cCZ9ECeDc
0PnxBbMa4F2cW29xEiAcuk3b2tYAiuqcGfcUG2xkumnf2fEX0AcZg1NNbHDJ
0D2jdaQWFHEmfiuIZ4NtT8d/EeZ1IFRHx+hvFBvwE+4jXMV1wCzU7f39ADZI
e+axUe15PXg8bdAseJYNRsauJQUcagStibXjY5Js4Jzo/UjxfTP44LO6KN+T
BXZNz2RvpbQAvuNWGz3Ps4DwYZ/afWEtYDamt6z9IAtkzPiIuli1AvXdDW8/
r2EB9lG/24XC7SDKqIYd/IMJ8oMKCz/qdYGdTvt2ls8zQGLa8p8vzl2gBsxJ
O3YxQET97vbiV13gN8fGqzmlDHBaFS38E+kGP/cYtzhGM8BcA9rGMdgNMt5p
cyquZYAd6kVZpo97wfmIm42KmiNAt74xrrCiFwQWJGznlCS/b/yZfmqLvcDe
5Ezrm6lhsKFC1pD/Qh+4oLK4vLlgGEg6uNQh1X4wXdwzuBMOA2a8/KRG4QAo
lZM5lAGHQIKwl+7q/mGg3MvHXC09AJ5l36H6y46A5eeP1nqM9oO4M0lLQyYj
QO3dp8akX/0g6u3v0pIPIyBgvNng3PV+4GNENw/wYYA/Cjzi5iN94ERAjRdD
iAU0k3eFvMrqBZxe0m321FFwjKZRcWptNzhzPr02X2cU3OnNvSY21gWyDoIK
YdNRYHV3Ivvpjy5gu/Zy7ufwUZAiYSws59AFfvz8dp97chQMWP3V+XGsE9yQ
t9/3umoM/OzW1ec+2Aa4i7I+9N6YAJobG8RHOBsBn7DpdVv2NHjumlAffa8I
3OhqNHRPXgLtT0Zpayr+oo4vh/7z+bYEFCSe39yyqRbteIjjghqWQOODXn+p
27VodF/6cCTfMkgO8fE9daAOWb8LjE52WgZapXFqz0rq0Q6vda312ivAe8Ex
3i77H5rj2f5F3pYDnvjt4PjVrh2luE/8eenCAVf9rLQO/daOTnZm9Cj7c8AV
Xb1nHNIdKDOfJqwSywH518/7rC3tQI5OwjY6ZRyw/t1y+qBYF6qv6eQ+oroK
njcLWFjj2I0yn4ebBo2vguek9N41E73ol2T4oCgHJ/xBPy2+Va4PDdy5GZS0
mhMuF9onHzXqQwoBYe9LVDjhYorxxZbHfSjCKpRfyIYTrrfzsti4qx+dVwzC
j39xwlTqIStNso/xfxRosamZE/ZxLmlkJwyguNWB7IIBTnjPKo05WTqAfi/5
K3Ss4oIlU15Xs8UH0bYOX59127ign5hQmVjKIBJL8NT89JoLCjFNwWjRENos
61m+N4sLbr0gWbOlbwjtj75mXY+44LAls3Qj2VcFBHtEzbRwwf+4as8Ak2E0
ZHN1yECcG66Mhr/n/D2MsNJ/iZWB3PCU39vCiOIR1PrEWd/qDjcMUTdJoHWP
oGkx5yrWE25ImxxUc10eQWqrnBbFPnPDVfdal9dsY6An3ZdOW4xww5NR1QE1
qQzk+sperM+cB9q92Fyi68NE93yfxt+z44EjMru36EQz0QfTKpXtbjwwK5vg
ZLxhIvay/p57t3mgKj991fVaJnI+K+S+7RsPfJPBPHhAhYWitOByz08eGK2t
N8RlwELvBTwj7zbwQA+q0w6v4yzEyOt41cPmgSJpB7cG+bLQFamsuihlXhiY
p7UgXcZCkYwBG30NXvhl54Y/15tYKP2HPLN7By/89tSg6tUICw273eTWP8kL
1f1/v+USYaNLf07rdofzwj1fT0ztPM5GjuErcbpMXtjxaFjAroKNws/p0Ltm
eeExi8k1Iv/YKEXn8sdIHj6YpyTc79THRv09teWda/hgQNGald3LbGQPUmZv
H+eD5oEBo4D0m2EyrWE61nywYstxkcDtBHrNEhXvvMIH+Zw9BpyMCNT73HeT
ThgfVBgvOW1tSfrT2cNnOnL54OXLr70eBpP+vPr6QEQxH1TLj3lwNoJAr1Jy
3bVr+KDkqGxy/X0CdZ9UuhMxzAetd+AjzYkE4lA7Jas9zQejxwqQ/VsCKXFF
Jrdz8sMNkKMxkfTf5z9NfNVS4IdOLSmpqqQ/D4lQOdCuwg/rtSh7fIoJlGhz
rv6WLj/UjJnc4VVBIKz34LzWXn6omqYXvq6aQJ2ry5ltR/nhW2ai1A3SJyz3
LfjcOssPIz5+b4ppJv36N00erUv88BT5dWbaQSDrK88Ub13nh9xb7JgdAwRa
aBaoGrvLD1ecspKejxDoiYlvkNUzfrioTL0mxCaQzpchjfIUfvih4dhZjTEC
/VU53bk1m1zP4ucx7kkCuTwpj45H/DCyMePg3WkCCfLrQ77f/NCf6NtXMUug
VO+U0atN/LD9m9Cu/HkCGQ1KJ7X18cP9vb4qZxYJ1GV+87jxGD/MiYd8H5cI
FFg2uSpriR+K/lBtyF0mkJyefZaCoAD8V/st+uoKgXLf1NnekhGAqgs6up0k
NpM2lBynCcA52Tsl/3sPGg3LKrbaIgAjvrgZ1JE4alL5WvlOAaiy7niiJYk3
2ces0zogAPWPHWc/IOOX1XE0xJ8UgOd6jm3633uQraHbTb4LAlBoa7/ZGjK/
laxOXff/BOAOHburbmT+8bRjA22+AtA1tOGmJ7m/bQ8K44zDBeDUvlVx6uT+
G1ZpGGc9EICXtzqkPpkgkPvVFzMKCQLQw307zh0lkEi38Ntb7wRg/SvXwVss
Ar0zDTg9nicAk/Oy1gmT/B/ADP5zJQKwje0YYkjWp2/L2S/lNQJw/dc0Lo0e
Al1PqLys1S4AGzOO5/9qJ+srukPuxbAAPGzDfqtA1rsgKK2Sb1oAep762aVE
6mHyXMTmdhFBGLth3NyQ1M/9PzOtxvKCcDDb5eMFUl/qBhejsjYKwsfvrt/Q
JvXnqLCfdQsKwqjyzJYxUp9cUTkvxg8LQg69b4EdpH4TF9YdPWcpCKH5rrag
JAI1t3B91HIXhHbnbCRbYwjkddDD5kWQIHS3+Cj++DaBJAp6RPnvCML+qj8y
fNcJdPhpkVt7siD81/YhgsuVQIUWwVoRDYKwsSLE182YQGfL2T3j3YLwtUGR
bPUuAs3qWT88xxaEY9vKPXu2EmirjMGkFp8QpAoqtm6UJ89v/XxO+zYhmLHn
8GnNETaCRlccD+wTgqIb1izpt7NRe3azTPZxIfhEe9F4qpqNZB7me0dcEYJL
reamMZ/Z6PZxr+3a8UJQcGio4YQfGz34rer8Po3E7y1Fvl5mo3jjzpfr84Sg
YeMs55/TbJRpcICbUisEUz/86mbrkj58k1z1Ip8wVHl8dHwLk4VUOAvtyzyE
YXaKr1XjARbSCnR/DK4Lw8Oup5njWiy0a3ZDZf49Ybjr53DaNwUWMmVHb3mX
JgxfhIi/O00wkXfLhfnoTmHY8Ye398t9JirL4rlveWg1VLkRI3yuhIFq1At+
1J5eDW1vKS44pTFQy1uXqUOOq6GAbqyH2j0GYr/8d2b39dVwzfr924rNGUjm
Ttp6et5qyPte9atp3whysDvylUkTgedjk0q1x4YRt9SjgeB5ESi3qdsuvH4Q
SbCDRCT4RGFk0cz35qxBpPzzkt5rSVG4P3vw4fj9QbQ7YFf4TzVR2Mf9ndPr
8CDy7etdL24jCh9fs9H/gwcQ+7OWw6tiUSjYm64skNCPmKpDV233i8E04meV
tk4v+vfr5miYqDjkzTrM9yqjFcXufrHvlIw4nP7A8Vn9UCs68enzs/WK4nCv
yh/1K0MtqCqu16hMVRxumhzmmlduQWUX9jzl2y8OtR69roiNaUK5M4t7IgPE
4dovfaM5dg0ojn7tYfSwOMzg9bgVnfcHnfK31XtWLAH/dGS/ae1+hJyFGLSq
M1Lw0eSlruSwf4DhW8AtdEEKnlsMfGXZ/Q9cGbo9YHxRCv5sjD7eYNAELpaq
pBd5SMEx37gJuekmYBvsuDUnSgpyePn9LbNrAZYT3SC+UAp+9Y7b0anVDva3
NlldoUnDoptWlyWPdINSk7e7U1WkYcYNwe1zXt3AKN9bqU9DGt6proz+nNgN
9jyS6Tu3kxyfOLMrnYy169hJp+MnpeEh2s648Mc9QKu42ndbuDQM4LZLe9/Y
C9a+K4vjHZGGelOSrWKaA+BkQv6XylFpuL+ec/e4+QCIfJjedm9GGqrJWeY8
DBwAk/73aLI8MvD9rr8bpSsHQOVh8w8blWRg+pkYLd7zg8CL3V96wFwGTjzR
W2UUPATe9/wbEj4nA8/dG/KcTBoC3Y0VQn/tZGDeuKOrdckQOIwyjltelYHn
+T9fPMc/DGj3PdsvR8lAyvHYlsWoYfBnK89U5A8ZeDryU7NrxAjg3DAje6xC
Bj44Lq8XlTICtskN75CskYGxL7YetyoZAa84/4Q8b5eB46L8rjIrI8CnLlb4
/awMTF5aVh12Y4B1nuvW/dGQhY87x6J+7GOCM5dljGN0ZaHZp6Tvk9ZMEH2O
/8qpXbJQ9WkLbvBmgvl9zI/tJrLw03YJevJbJqiR+byTbS8LlTRHyux4WcA/
39BM9LksdLolKmOYxQJaVjWjNkmy0ONC197REhYYWbG6l5kqC7NvhBqY/WOB
M8ZeFcc/y8Lbg2/6ty+wwI7GtyD2jyz001/afBOwwbivbntfnSzcXNDFbD3G
BumKP/x0W2QhX4WF8qANG1AdWnMaB2Rh6v3KfXLBbDA7sVqNykGBdi6vDxFf
2CDz8bOKy7wU6Hiqx72/nPR7OzdeLBCmwODr4T33GtigKRS+OkulQOL5XckF
gg3yxD0oL7UocE2SrZauMgFcclZy2NsocIrPcfUPNQJssIwyA4AC7ff+p7tq
G+lnE9/c6zpEganXNi09OkIAry1N3HQHCsTAMFLGkwAadfavPJwo0DKfZ1Ar
iAADXmOg5CqJuf6WctwiwKlCQX+HIDIfrpCszMcEELZ9TMkNI/GN33EPSL9c
wrMul/cOBR6sm0hbT/ppnSMGY6mPKZBnSlLCJocAzNGKe7MvyM9XPzXk+UaA
17HmaiavKfBCi/g5qx8EkGpzvTiSSYE7rrgIKFaRfjl4kXtnHgUGXOMLDq8j
QBj99qs73ykwRmglKbGJABNXXrWrVVJggu7494FuAqSLbPEPrKHAo0k1CRID
BLDN+kqpaqTA+rA6DmKYAHLmB3LXtFNguc/Zf/4sAtTO1Zu59lJgxMlouS+j
BIh8cWEMDZPzjax+pEwQYO8e9j2xUQo83O5ZbjRNgPk+P7UL0xTYssWc/nCW
AFkRfJWfFinw2z+Dmph5AlxRi73IyUWFHoI6FXCRALQaJR4zASpMSuYVTFwi
QItHxqtkUSq8seVg9MdlAsTI7oCT0lToOmFp7rpCgANfy9qNFKjw6qTFObKf
ARw2Zv6PaFRILKglk/0MyOfsogyoUKH9s4iNNSR2S3HO1dtChXSV7hHT/73/
VMs/EtGjwvw7X1acyfhH5io9BnZRIevgSbfN5PrfaH4nCg2pUD/aGkYtEED1
8KatcQepMCfy8bXoOQI88WwSdTlOhUeu1EjozhCAL+EWe99pKkw2YioHTpJ6
+an3R9GGCsd4utIujhGgb6z/3ZQDFeLTWdmTJJ8n5B9F/nGmQt87/ibrRghQ
ZGR0+Y0HFba6O3hN9xNA02XCONCPCo+avNvvRNbr5eNXG05dp0K5O0/LQ9tI
PRUd51GPIPmrvstn8I8AfiMcfdzRVOj5clr62V8CWBjYJH2Op0LtBO3uXaUE
KHMUCYlKJvkk9H+EFpJ6u//d2j6dCr++ECtwyiOAWK+8glQ+FU5uMt278S0B
goR/zTMKqVDkoePKHKlXlq5fc3EpFXqxPqq5kXqujGiK86ijwpWgrl3GNwmw
LeuW56EWKtx1nX3yrT8BUlv1TtK7qdDFNcA44yqpR41H4nVsKiy6v7w12YoA
u+uPR2kJysFJvR/392oQ4P0Sh5OguBz8pPpwuJQ8n/IbM016ZOWgnOUsnS1F
gFlfEb4H6+UgXaK/Xn2eDbLW/ro+Bsn5h3RvumA2UDLxO19hLAdbxI33KH5i
g2j3TSDpqBy8l5Gm4p7EBs6ltxZNreTgz4B/W0Wvs8F6JyPvTG856MR/2l1+
FxvExk6cigiSgx+dd5dxqLIBZ+ErnfM35WCV+XDNXVk26BBbNS76UA7SDkf1
JoyxwJPc786uH+Rg7Cqj9elJLCDMqW+r0S8HS5IMnt4ZY4Iv3lxmAww52CvB
e9yrhQkcWdWGL8flYOjB8FeixUyAmy6tF+GQhw6H3sgfe8gEHh+fDbHk5OGj
PwL/+DWZoMVq2SXDVB4mXvZte3OGAW7VVto4WMjDqqs7xJ/vZgCdA49NFa3l
4Q2H55cNaQxwT1tT666TPHQWGCn9MDQC9gjaTjmHy8MFpxCluasj4G1eqb/a
N3kIT/3NTvEaBqfUHzj3/ZCHF0Ouuk6dGgacydbn4ivk4XjPrk+LOsPA6t7M
buF/8tBns+YuvfEhIOqwiZM5Jg8lrNX/2FweAl4SdyPebVSARutdD/ccHAT7
/jv5SPWhAoza+kHRu70PXHvwlcP1qQL0athAWOb1gdd5NOfsBAV4+Kdjv0BM
H+DkHNu7670CLP5O5Nca9gEcd3f0SKkCPDo8ZSeR2gt24LJDV2cUYGuc/YOX
9j1AQ3I7Z/5ZRSga581nGtgJKF8UXfetWwO9Lgft9xaqBw/cI2I0/62FZpNJ
kpFKX9H87/f5Ee1rYd8ZdtPGz9+Q7ca/nV29a+EPh8JLgcaFSLuNqhEzuhYS
irx8ibkYjbw61T/LrQT3ftQ1O9NSjKKEB69brlGCVoX6PROylaiqU+Cr3HEl
KNf0Y4pnSx3iXB1ftf+kEpytdtpdGl2H9HZo9LhbKMEpN/3jZqN16GXsCYFf
55Rgm6e8YFNmPXI1eW7hf0UJPovytri8pRGJZatNtt5QgqMN4EGzcjM6EX5M
/UWuEgyuXLUQ0tCBUixHTb58UYLN+YefRat1ojm1GMeGb0qw0auy5cSNTpRY
V5uwulgJVvZfX5yT7UIsJXOJoGolqF5tPlHyowtFfLWasR5Sguty1rm9FetB
haOXi5TklOHcgXMrjMg+JFEi2LFLURlOMabfzWX2IYfH7+ZPKynDemfieENj
HxLezdKO2aAMU3ssFKaU+5HlHbeUVdrKkH/T6bLfOf1ocr33nZ5DypDrt3D/
vboBpHo27NTrQGWIWXZIuH8IWV7NleC+rgxzX368Ws87jCJuDVXbhSlDQaWX
IydVhlF/9uGD9DvK8Pax6uygK8MoUVgavHqiDA8+3XPJiTGMpAvfqCRmK8O/
tWqqZzpHkFH9v/6VXDL/3a5nbiyOIPcRgWSbAmWYHv/wuw2V7O9lXBTXFinD
yKu19ZonGCjSVU/iZZUybPwTfX0zZiAO5fKF58PKsLYy/ga4y0Rb9OfyF5jK
sFlZ9ID3GyayPrLZ6+yoMjThXhV+7jsTffWNHpWbUYaSxE4bHSYTedVa9D/l
pkGhVBFT7v0s9Hro9qs5PhoMdlRNfnuWheqWv9pYCtFg4z/Dy3NuLKS5WamF
IkGDqTN5VgnPWIhxY6jq8VoalLzP9JkeZiG5Z3JRMzQajJIpmppZZKEDmYdN
LDbQ4OvOYLnXomyU0pZZLKNOg4+n1kYsaLPReV3f/Ec7aNBHiO98kg8bRR96
5zllQIOPuNOvj0ewUeGFdq1Te2hw/c+mb8wnbCR/b0+G1AEatA0jKlvz2Khx
QODVw1M0+KSWcTthjI3KTt6O/3KaBmcCddlHl9ko9wf/486zNDiaKX3zkyCB
4l7yRW22pcGj1Ec10TQChQvfCj/uQIMhTSIHhTRIv+rHe937Eg16l9YHb99O
oFPmPF7FLjSYdUErK+MogYxKwtyGr9KgtVGi78RpAulocTuJetKgPeB7yLAl
kJQI1/mz/jT4736m5bgngepLOQ5O3KLBs916WRZPCFSiHWJEvUODh7LGgtUT
CfQ5aWU3uEeDobvXE59TCRQbuKx9J5YGB5dlLzXlECiMEajx6TENZotUHb32
jUDXLJdU/j2jwZrBkftFPwhkpruoSE+iwWP6b4Zdqwi0N9mfYvKa5CPctLem
jkBa4gsSrqk0WPgkaLmniUC0YL/Vj9JpMDzzpUZKO+nHWXN8XzNo8EJi70W5
HgJxnvXl7M6kwfRBwwQwQKDxn7OLvJ9pcFWVb6X0CIF69Hxm1PJo8FsAV1c8
i0C1r2fGThSQ9ZOh/6sfJdAPCW+mz3caLPndkfp9gkBZIdMDLzENdk9wHLKY
JtArtmd3STENvpKiFCTNEuiB1VTrSBkNOix6Ef/7/6DQymuNYpU0qPxLZ+DA
IoHct03W6P2hwfsras/e/O89JsXjl1UNud71Fb7sZQIdl5ooDa2jQc50MfX/
vQfBUHf8tpEGdQ/e5usiseboWEFVMw3e+Gge97/3ICXrqzmTbTTomaLaXE1i
sd+jH+W6aPCiv38N2T8hjh1u6bCXBi/N3QgMJeOPphKvHQdoUP2iYY89uX6X
tGtC1DANKoYGrppdIFDNDfbTLCYNenkXdOwk88dj/8U2EWS+rfuDNMn9Zdqw
7i2P06BWgnZ/wxSBEv843143TYP8XOZUNZKf+zuZNw7O0aDqbWNlbZK/kDSn
ILdFkr8+B24Gk0BusgyfuBUabB6srTQbJtCxieH/enjoEB2aXL+tm0C7L1y+
xC9Ah42bcVV2G4E0qodsNYTpcGOIwI2ufwQSeTdo4SdBhzEu73cf+UOgZcrF
E4nSdGids+P83XICscMHDpdR6LA14mNRUBGBqmz790ispcPtBdTrnp8J1M2d
OvuIRodKv3WVU94TaDLl0kfqBjpkX7Ifv/aaQFQGQ0FZnQ45K8zvsR4QSO1u
Rt1rTXL9gzuj//fes3uLa6SKDh3WqXqodwUTyN5jfGbLTjJ+vfDXI04E8pb+
/CF7Nx2q8U4Nu58nUGSep4P+XjocebNLV/8UgT4uzNbuNqHDhab69y8MCDR/
YyXjiAW5/tpGnQEBAq3eUGT/9wwdSq3omPEvspHSz1D5U9Z0aHyRr6SSxUb7
hHlvWznQ4cxriaNba9jofqywvZMHHRZx+clH3mejZL0qOcKLDotZku3ZweR9
0RT9192PDp/Yrb4a7MJGrQqSwO86HRoeKO5fPMhGG95Q5W5H06HrahHq4xUW
2m7cWiP8kA5PpAUFNDBY6PBw/K37cXQY5zzil/ePha6qK009fkGHa2wO7b34
gYW+5WyoSXlHhwc6XYQDLVjoRJl2eEk5HeKZoazvT5jI4dLUrgO/6DD07ckj
p4KZyEcwb+JXFR3ubT4wFOvARC+O7rhQ10CH6Z1M69VbmWioEe7q6aVDj2kZ
I2YxA837cE44DJL6QEY1v1MZaLV8SdrwCB2ulY6YtrjDQFo2xrJjY3R4yLn2
qutxBtq3SqDq2hQdHvVP913UZqDTyZVhs7NkPvzbruvKMNCVfVE7Axbp8LmR
S5/c7Aj6f79vhv//983/BylXeNw=
{RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwte3k41N/7PrKVfQbZZ1CUrZJKJee0IiqpkLeUNVSSIiVSlkpUJFqQpSSU
NVJyjp0UssuSfRszL/u+/F6f3/X9a677uuY853nu+3nOnPt1zUve5qqJPQcb
G9vlNWxs//v0Hjw2sbqqiLd5iOnGOHaDAS/x6bYlRew/9lDtvG43OC78bzZ3
XhF7Wq2+mKZ2A/pu1+Wrk4q4sSLtzruCLlAUFMbbNaCI/w7mKohTugCvRrMc
/q2Ic59nVBrZdoDwGxcMfd8oYqpr0fBUajNIYb/+jm2XImavLrlbC8oBl72e
puQ5BfzY2+lTwc9qVGe1zYxxVgGzqSbEij6rQTHm0nd+mCrgtCczTiEqtWin
EVFqbayAE7G0lARRixy2R55NPqiALRYOHt/gUYcq2Ad996ooYDP2QW/o1YiC
YwJrzs3K49TA/SIDFm3I/KXr1JYpebwhmRj9ntOGNoRZSHKMy+OSEosiQ0o7
+hGgYZs4Io8fOH358aKiHbEuN82wOuRxpu/xxrxtnch4r5Kcb4k8Dq0bmfpx
uwtRW0ovx4fK4wDpAlkXuV6EVeMe+j+Rxz7j+utOH+lFl+/eeefwWB7nXohU
5nPpRWVK29tVAuTxw1sbrjPye9Ft91jDLE95jAorO5zM+1APxUul5Lw8pmux
c/IH9qPMY1uH+tXlsdkVDsGreYPofBwfZ4WKPN4Uftqy8u8g4p8eoCUry+NW
U/784cVB5BAVbeYiLbQlKMdeUzovJ4JcVmuvXHELr/sP89zxId
m8hmScKsYWRS/Np28086DtbI/ZrlwkAbGvo6y8vomO3y6geHIAaa6dOwcCim
47/jr3t/vmegV9zFxgn5dHxB6zlPYhsDdRkw9smm0XFX8dPkmIOjKNNiR973
FDp2azCPqbccRX6X7mpZJNHxsd/yAbnuo0gphKoaGUfHxv8khB8njqIrtXsl
RMLp+N2wbchZTibS7Q54nvaMjqnX3/mvSDGR8ESN4PEQOr4R5H7CeBsTZVPt
uB4H0vEh+0jreUsmWjANnuC8RcdfRyq+WqQz0cOO9l9z5+h438zESWU9FrJg
KelHWtCxaWR+src5C6mtuhbvMKNj/eM/Db2dWKiGzvXNzZiOf5y3fH8ziIXE
7dQ/jB6g4xnmjYRTFSw0dOOmwmNA5lv2ZQPRxEJ5AYXRm3XoeCm231+zn4Us
P5wJd9hBx4CfC6azEShhxPtelzIdd1RoOPttJ9CNxfIlnw3kfs8n350FBDrC
T/GUladj4ZeHwpuOEmhEPdHFQoqOy/j2CJZcIFC+7tjwnDhZn8AOC61LBAo5
scc+kkrH5vLOHUfdCbT1WvV/DfxkPpHb1zs/JBDHfYlmt7V0/FJYMdItlEAN
YTYmItx0bH1xTTf9NYFYjszQqBUabn5o5eqSTKDQoHsPW2dpWCTzwAOBTAJp
pYrdFR+nYZ7FkXUmeQTyIvZdftZLw/brPbmryggUZb1rCHbQMLftotrLX2R+
9VvtxptoGL7+ri5eR6COwypdcbU0bL5HYPFQM4FWchUtTX7ScGb32ocb2glE
U5Ft4Sih4cGrzyqyuwgEo8RPZ/2g4XnFwxnTfQSyFhSutc2l4YivobsGhwh0
33etkWgGDV/3eX/y0SjJ5wRHRUkyDeffcJ9pIwhUYrd00P0dDYedz5f9N0Gg
/qZptDGGhuPbF1DYNIG4DYi9TZE0XOd+s2lmlkDK34dyA0NpeC5D9z++BQLp
q/ds3/WYhj8rKhrULhLI6W1b2qA/DWt6/HhzeJlAQSKNqi99aPiC5+UTl1YI
lOJX/UHfk4ZzNp6x3r9KoF/T5Yrz12jY7ZNNTTmJmRcL3368RMOFN4+8XCGx
4N9v0hb2NLyyyfN7P4m3GGVHrjtP8pewY7c3iY0LPlG/m9NwNKcfpZSMf23r
h6eXTGh4OFHF4Ae5f1h8LJ+MEQ0vSvz4Z79EoCzR1w9+Habhq5KhrQVk/g2B
z9d4AxqWfFK8p2KOQNNzwXfVd9Pwr1u7eO/PEEj8UuBihyYNa4y90BudJNCu
jrs3n6jRcALP8VXucQKZn7g1qatEw3qV4TvrmAS6Veh2laDRMDvNfvrYCIFe
b7/MeCtJfh/dPXR7gEDf39tfNKbS8AbJS+pmPQRqX3++l02A1FP7+re+DgLJ
LZ1ss2aj4d33+5kiDQQCLoZmlAU5fGOyKDWjmkAXug7VF03KYRfvBMhRSaD4
kl1VioNy2Kz+Fz0nn0DFO7fpNXTJYXWdjMeSOQTqS1Ip9v8rh21Sang10gjy
vJD93v9bDn8Zsr3rHEugj2fWpHzIlsOsLlfX7XcJ9LN8Scn8sxw+12J4W96D
nKfdM/G8SXJY2+/ljsLLBFKTG37t9EYOW3vHy4mfJVD6QHWQ6n05nGxTdFNC
g0B/zCu4273k8FcpudIIBQJN/Cy8H+wuhyvD/j4vFyfnIy37NtNRDr9erVDd
v8JCX2++dk47IYcjQX1KZCULKdhde9+iL4cPpLz9fPcbC4UY63exH5DDGQyV
ToEUFrLZPHPmtJYc9pqQuiX7mIX42k7un5eQw6ebuqsFyfPJo3zTHQWKHD4S
MHlBfQcLdWWt5hjyyeHmU97vJxVYKDv4k1rMsiw+ISou47nMRFa6ayUO9sji
KzfM6hw+M1GFSpfJ5TZZfLFehLPyFRNprs8NedEgiy//uve5wZ+JeMbs1gyV
yeLdMfdth88yUXocZgWnyOLCRwJAiI2J1nB5ljbdkMXyk6vuD3RGkcv4cTY2
F1n8q1KQP1ZhFLV0bNy7+aIsDuX1tnXgHUWpOfXpXmdlcdgV/qDlOgYyddwS
RdeVxa85dE5Z2TFQUtWAmzOPLE7l8C3d5jmCjoedoa+8ksH7nB4WPXEYQrc1
hQz0nstgPW+8PfXgEEqsq7j2LFgGi6eZ6QXQh9AKRadY4a4MTt/1pOdS6yD6
9FzBQc9OBrsFb2GK6ZO/dy+IlGcaMjhLea5ll+QA+hn5aJdisTQ+u+wrlBrS
i/SifxzXH5XCZ922ArfMNjQW0r7EOSCFSwL42RbM2tBrn8Xkwn9SWOOnxlfd
5b9o9Pxunr31UlgxPP4hh95fFKbwBal/k8Ie3+o3Bje3oM4PqVupD6VwjZf1
hivMRuSR+YbSqSiF91Ka2m36a1Bi+a2m6/9J4mLRYzF2X1ORlX+4WE3SeryD
ahK5l68ZVIMZHs/49fjVH+kXhU7NACyaLdCj1uNQ9bWF/BXNgO4m/c/t6Xps
GnxmjOXXAnrOxyeJe6zHGcF7hyvmWoHD3vS9VgfX4/YfeVo8Te3AZaLKmtkh
jq/+y9fQVusGnZ/UT0c0i2Nd75hulmk3OOH09Aj4I47T/Ao5b9/rBlu7TFRD
S8QxZSB7jK+pG0z8bp3SShHHSjbiPynePcDj4+CDO57iODA8/+TJol7gc2HN
Zz6qOH4VH8X+R2kApNfoPWngF8fr3D+cenl0APToBrtEc4tjNpPS+s0uA+CI
rNiWLQtiOFhBhyc5ewAI/lVKN+kWwz8nRmbEwCCIOXU081WaGJaWJp6eMhgC
tUVPwmw+iuFtEvnvI5yGAIdmvZtqghjeoxT9M+bREHAQttz+I0IMb9nzh3+5
Ygho/L6S3eUthq8JjdKHDw0DdCQ0R9lIDHMdvtSku20ETHxpjBg7LIZb1sz8
TTs2AjZslLqZB8Qwb0P5uW6nEfBwTcIuw+1iuGPL82r/uBFgjLO/ukiJ4fIr
7cJlAgzQtbvl25chUVzg8eHbfCsDUD7KvPHpEcWJO+8Jn55ggEMS1l567aL4
c/46pvO6UZA0M7y3tUYU19WqmvzePQpcsxbzl3JE8c2WOy+tXowCNnUaOhgg
ilsLs577ASa4I77fKsBHFO8rerZ93xkmmF21WS67KYqtq3uvJzgzAasuce9R
Z1EcduhJ741wJmjz1PhqfEIUS3kEUDb2MYGpjbFZmL4oVqCpH9w3ywR1hm4z
9fvJ9XFNemzrWKBCLkfLTEsUXzGpnwvQYIGckn0Z5yRF8eQ1pQtB11lA8/N5
47cUURzPP/1s0o8FPkXeI7r4RHGsaj0XdzgLvHMuVbdboWLLvwtcSlksECZ8
LNm5l4rzfMujjzFZQHDBxSC1nYoztyorLS2wwKPeZ0PMRio2ETwQa8JLAN+c
BqVrFVRcLMlWPyNPgCuWlgk3P1GxVMfIUYmTBBg67HMgL5GKIeONG4clAey2
xHYvvKVi480HPJ87EMCCo4/mE0bFk4MGiR9vE6CJwYXQYyq2Kn3+QsOfACcb
la3YA6j4s8a7sbMhBNBPuhTlf5OK8yeb7yfEEKAkNGRvmSsVK/u0PCxMJADw
SvvL40zFd70tXgZ8JsDO45MSjy2pmEf25Z3VfAJk7hL7+usMFW/21Nj0pZgA
6vK7zARPULHA9qUg4Z8E2DB1+0XofioWvzun8bWRALEdUVr1e6jYL5H7BGcb
AaTLC+pFtaj44le+vul/BIhI73IzVafiwEcL/4L7CEB5zUF5qUTFN1zLd1QO
ESDEb0NGK42KE5wdW5NHCcB75YixtCQVx+o2om1jBPA3dSQsKVR86Q3Pv3OT
BFgFQU9i+Kh4TmtRfcsMAW5vTlXv4qTi3x2f3r2fI8AMpfqX/AoFl0fTdAoX
CHBtibhkO0vB7GUmrHtLBBjtF+F7P0bBjexGOYPLBHCs2Z48MEzBgvaUZxMr
BOj9esZgUy8Fb76Z5hm/SgCr+JtDTu0UXLl3i8ssif8+fvUgpZGCgXbs1XES
15fSUy/UULA9yqx9ReJfqx9qxSopOIJxk2OSjFe6e8v0zyIKTg4I5l4m9yu4
niPpm0/BJUdO/ssl88n9tE93Rw4FO9WNPFVcJED6YInNSBoFF33eLwPnCfBR
3ujB248U3LeH45HALAHi/6tPOZ1AwUYJUW2Ppwjw5oVF7dpoCrZuOCT1fZwA
4TXdUwURFCx7acLwDYvkd62T5I1nFFybcMFTjUGAwINj+zYHUfDKEcEkl0EC
3PW+adPpR8Hm4fv6rHsJ4Jm7Evjcm+RHdWonN6mfs6pA7bIrBWeu6TS0IfW2
tQ+fynSm4E93RjdK1RLA8q20pKMdBc+7ax/xI/vjOFXFps6Mgtt2vg11KiCA
3rGMwAcnKZiRk/J3IJcA8IF2io4hBW/qbHkvlkEAzcUjU4m6FJx7uI77YTwB
VHdUS1hqU3C9TDyuek3229Uz+0Q0KTjk6qtDhWEEEO+1DfTaSMabNFssvEeA
xZ++Esb8FGyYXOYrQ87PFCfvPi5uCg6Q0e4dI+eLpfvU+tuqCNY7Ll1yU48A
XZnRyRsmRbByRZxT9DZyPl5/05lvFcEH5K7rG3IQ4EfDfuvP9SL4JHM6Omea
PC8EKwNsf4vgnf4bTRuHWCDpfnP1byyCOXPLXNSrWSDYeepC/AcRLC+6dtTw
BQsEvPMKMIsTwZ6OX5fOBLKATydHMv8bEcymlOUnepMFXE1EJj2eiOB3gvrB
aWYscHqPRoChuwh+GtTUZC3GAjLrHD9OHRDBGb5hyu33mcCq4Bf50yGCvy1L
Kr68wgRxbttcjXeIYN9/ISErZkyg1LawM1VZBEeYX0qpUmWCLakhJbb8Ilgg
97KSS80oOHA8619dozD2LSuQEOYZBf4cEsVsNcL4h9uakLBRBijPuZOoUSGM
czhza4r/MIAR7ciVoG/CWHaQNr/9DQOYjrUs7H8rjEdj1KJOqTCAU9iKWIaj
MB4fHJJu3T0CUo/YzndaC+Pl+pwlF6kRwFoob+f/Txj/d9Fk9uvCMHCzDU1w
PCaMjbLfpjh/GwZ3tDZso2sKY1oKzfLEzmEg9+n5S7lZIXz48+SCG30IXNqh
wtUmI4S1hlKrZ3A/cOPK++AhJIT1XFb4nr7qB7cb9Y5SOIRw0eWBwpFr/SDI
3f6pwaAgzh/xOs2S7wfJX2Ilv2YI4iWPc3aad/vA8I71Gi+OCOLKVd9iypZe
cHEnp9kJVwEca3Jj0fNiF7Dd1ZlUXMyHtfR45x5/agAqnntWXd7xYsnfygoC
VmkIdxxX6Y3gxeeEnrq+Op+BTA/anjF7xItFpxbvLghlofuCwSnAhRef5Lle
S3XNQa3vOsyEtcnvX3tbKa3+Az3845ueUcWDq27s3LnBsBQNqJRbT01wY4Hd
Noq98A+686wt2LGfG/vPXP++8eMfRJkhctubufEzm8j0HSJ1SLdQQrA0nxtv
7t62Nq+rDr0wc/72IpAbz2cVz6h5N6BD/gLUXVLcuFRnaKw8uRnFdZwqubWf
C3sdnzLoru1Amn2aCw1aXDixs8JfR6UTlYyIbN26iQs/Kw51MPLrRAOzNW8G
BLnwy3u97wO1/iEVitH1U+2c2Kd51CPRoAtlHjmkoH6TE58cnmHPiO1GJWla
vl2pa3DdTQHXCbU+dCaHmrM3dg3u9q0ukjrdhwbyJxgRz9dgber148JefYj3
Z7rZsdtr8Jb4d4+tK/rQsT61Ld/01uCflfclwi70oyaJjZ3Peziw7xB9TWvg
ABq8J6ajJ8GBoeiDO4FJQ2iddxrxfB0HvjN4ouZE1RDS8DRI6Fpix8/2JTjX
MoeQh4v3utvd7Pj0tZWB6W3DiPu//pbUZHacXbhfqjxnGG3Q+uJO2ceODTZM
mWlkjiD9LSc2n9/CjnV2V8bp1o6gyyrD7Sny7DiZWK/PxhpB2XTZQ4e52XGA
0/SxiE0MdFAggOJZw4YVtM6OrnnNQDYDp9M6rNlwXMzFgegroyiwm2WjcpoN
98cuC0cHjqLk9ofiN4+w4VJNhzD9t6Nooi7fW1iVDUf46txKqBlFHHcNXgYO
rSJ1/b7N1mpMdNTde5X2exXNSx42+36AiUIvZTjkZayicOfCLGTORHRzyR2j
t1fRHzc0V+rHRGDb8J+TAqsoLU6su7CRiQKVZXczxldQfWveZ4dhJqqWPRnr
37SCiiyTi7KWSD+0Ls8l9+0KktjN1X6Y9Et3eh/yyWquIMVbh3oPOrFQSWu+
W474Cgo3GBrZcJuF+GvHWk8sLqP758yepQax0Jt886T7Jcvo3JOsyc/JLPTt
xabDQ6bLiJBHQl4DLMT736Atu84yKvn0bJvhFAuZ0hPvS8kvIwOXgD/F7KRf
TFbERowlhO95TX2SJhB07em0r11CBrv3aNA2EejJjrhlny9LqPpH5CltLQJt
xnJ7M+4uIc6dFq3WhgTyCOg4+9NuCZl4H5q7ZkqgkqNRnr0GS4gYb7m72Zr0
z42SOWKiS6jSp8r4iTuBXo6IbrudtIj6XU0GVV8TaCCt/sTzkEX0bqum5o14
0q+6h7mkui2itJU2QdtkAtWsCqV26iwim7nGDVp5BJIprf45K7+IfDYc1BLH
BHIOChkW5llEe5uy78WUEYhbjE/54J8F9NG1NCSujkCn/1YetsxZQP/pXFWR
aSH9+9uHdu5vFlB61vZCHdL/j9np+T3xXUDbVcMPrukhkK4Kd/wH+wXUFCP8
7uoAgYKJEoyPLiCxFuWmeyME+pvt9691ywI6HWpWvZtFoE23D6xMiC4gxwiZ
+5HjBHIH7LL8C/PIqGdi8PUUgYo48d6N/+YR/7czswdnCST808dCt2QeNZWg
pLB5Alk93XfL7OM8AvIp04GLBEo9vRTp+mQeZd0MbaEvE2hB8nvOo+vziLpu
1OjCCoH0/91qjDefR/fx9hOHVwkU8U576vu+eXRue3d7DYn7nGYpjQrzyCbz
8tQqiTW35Gxj8cwjDoPjLxpJ7Dt1w5iHOYd60DIyJnF13var9Lo5FPRmwv0a
GV/67kTI7tw5tFfiXd4ucn/HQxmpJlFzaFnh0ZMEMr+cta5Vl+7NoeoTEvPZ
ZP6cNRoj/g5ziPt3+colsj6TcCZvjOEcGjwlkFhB1h97NlU5d+scshC3mvlJ
8sOSu3SkVmwONX3UmHMj+dPp22w/vDCL7hET2ZjkN+jjkB9H1yy6PC+7K5vk
v8XlQ7x06SwSZcoHHSP1UdJyKNRKnkUrPVe/BZP6FRb0rjjcmEW88knDS6Te
gv7xsr5nZ1GVoAu3xm8CWRpY67zSnUWfp7V0uMoJNFffeauKdxbt7HPanUj2
05FX0S/7mDNILu+dkmsmgcKtLHOX62bQr5xbnl1k/20dbp3aEj2DKmqvxmaT
/XpjTH3zev8Z9D78u3FaGIG+zt47t+I8g1q7S00sgwi0n1ul7Jf2DFpcwjG/
PUk+FG9HOjVMI/TuS5GQCamXSnWV8fdp1PpKzvGtHoHatimwacdPIzmOqfU9
OgSygz8duV2nUZONCfs9JbKfzkntSeCbRqf1twhsmiHn287FJWhiConslqOe
GmahlUtF8ddap5CFuRefZjsLBd525oMfplD6Ltcz/IUs9DLyW3v7gSk0sz+W
c+cDcv0fi7vityfRFR/zXm8ucn3L56zlC5OoRyn159wkEx3o4hjq05tEd66J
san0MFEVK9k4S2wSPS2S40r/wUTtfIvyxhkTyEYGXD1xjYlWD78peTQ0jrJj
iyu4qkbRoWPEnGvNOMq3ep2wmD2KHp4+qG6eM47sl852JMeMImFbxgsl/3Ek
19JpsPPaKFLw3XuxmDaO/hXUa/JQyfXf2tYum44hhupcfYkBA31Ofr+7fO8Y
OqPSWbZVnYEk3lx1CqWPoT1LHvTjwgzUNMsdZthAnjs+v01jGkfQRi9T4egF
FtqkkK0SYzmCiu5N80M9JtquNy3rZDmMlp5s5w7sGkYvF6NHSzcOotqr5fZS
ycNIQjJGSYRtECUY/1f6+fowkjxp1yb5dwAdpfj5N3MPo/gtu6/YhwygVy/q
ODarD6Gdzwxsx8f60c6oa6tVtwbQM78Rf5jah1w/ps2JUHuRquWzK6sz3Wir
oIvfga4eVHOhqYmeP1TDxpgfzwcHN+N3HQ+Kjbo9aA1hRxPHI91
I/ea+OMRd7qRREtF4fq4LjQ5omqw49c/FPfheo3zvU7E7TcXe8StFSVeT2Us
l7cgUwfFuLo7leibRN35nycrUfmv1qDtpyrAuhfLFpXqFcDR82/5f6qVYJxD
4u4IeyXg3dDG6b/mJ3AbOmhS0lgJjnq1+zRkVYHz/WsiXt6pAr82/3NzF60B
/JeWs+6VVQPHg26f2kbqgGakxpb37+rA5dibL2RTW4HxsfOf9ZZbgM7MbNY2
ib9grdSVzIQLrYDfyLPusP9fcDrT2Sy3uBV8mvUUcrFsA16ezVLsj/4C1vHb
jwr4O8D13ZcbVoXawVefgoK0nV3AtCHldK7gP7BHvTDTOLIXvKy8SG207QE7
GpoiCip7wUpsiMGakB6w1Wv0ttpSL8hZeXhlTU4PUKpcf5DXug8kyygP3eTp
BVR7l3qk0g8Obw2MU0rqBaNR0lMaBQOAyku5dairD7zl99gh0D8MPiYpUgc2
DYLXWY8lvdaPAMkqu+UXhoMgwiJuechgBJQFrRfgdxkEwUm/Sks+j4BN6/n1
DDIHgechRdM7ngyg5/p8dGXXEDC5U+vB4GOCnBeP5YS0hwGHh1i7neQYqHhx
yT2BlwEsLiTXfdUaA/cEKrK+bWSAzKOgkt94DDxj8eP7BxjAhuaUkx04BtZt
tZpU9GKAoor8Z5xTY2BLlkdN3BAD+EnbHX5XPQ6IlO05R7JHQTvX/N654XGw
5+rrW4d/jQKtsRBNI64JkHgf7hnrHQV9Jbm0qb0TIHxQNFafwgSHXPgWDn6c
AKleFp+WnZmAszDzc6/fJNi14YzXfn4WsEzRe7/r7STg+w81dMuxQPaL9jeP
v00Ccc5XJ1S2sYCdM/ej7eOT4L7swcbM0yxQSrWw9bOaApu8bYOiIllAboV1
tvnWFIBor4nnBxbwGPIzVn0xBR7dEfi0kMMCSj8+7auvmgK/CpIuTjSwQKAD
u4Ti7mmwNdFM9yM/ATqNIwRvnp4G9avufdmSBNi5V5Wr6uo0EJM3qrVXIsCA
0JkJt8RpEK4mMpCjSwDdheGhssJpsGZWqNL0KAEi+nz+SXVMA3uJQds3Zwhw
JC/pVxF1BjS/TNWlXCJATMK+YvEtM+CH9DI45E6AmZC6POejM4AxOeIldZcA
iTZLiZR7M2DyUve2rFACrBiFRjtEzYCajo/u7qS/Nd2lFP4tdwZoDz590Eb6
Xx5+43s2rBkg3YCzwzIJYK5sgXeunQXnf/53uCiPAMkH7FbXbZgFd+wn4l5i
Aiydc9H9pzsLfioa5oqVk/77lqd31tlZMPBI+fru3wSIDb+f/+DGLFg5c6hk
TT0BJtKCF/97OgvOpZ99faOFrG8g9hZn6Sx4VK/9yqCHAEPsKV9b/s2CuJBz
iZ8GCLBH9sts6sIsMObexv51hADB2mjnPbE5UEKYxjiySH5PVbqf2ToHPE5c
vY7GCbD1an32ZsM5cOKN+M38KQLcD+qYXLafA2IN/bHnZwnQ8H5Qs853DvBE
uw0nzRNAqXD8WuKbOZBjfOLoy0UCeLYvpt/OmQNyVL4C9WUC/JzlGjv+Zw4M
dW2DTisEkKEKb1EcnQOLb4x+H10lgIuGlMss9zzYJtZtU0di8qL/qUp+Hpyi
uq2S9xNAsdcYfaszD/TN7sbXk9jOV1v1htk88I4OMDpG4pw3B5z13eZBYNTK
ymUyPm+u0UeZkHkwz2adr0nub1FnOjT2YR7cd6A/jCHzS2VeUC4tmgebj39y
SCfzX+G95PCqYx50irifcyTrM97g/v7K3DzQbOx2KyPrjwd3+/ZTF4DRdYvP
5P0ETFk8UhTXWAB05wMS7iR/hz2e24zoL4C6ovm8UpLfiNDouALbBXButj06
n+R/KPVDV5jPAnBtPFRzltRnT0UG7eKrBRBkFWgR3UHq0fvdam/2AtB7P2H0
gNSzc6U0WqhmAUx+aMpeT+q9Vaq2vXd4AZhu8oo7TvZDg3GfRTBtEUh6UAzT
yf5Rusx6dWHPIqjh8VVtI/vL88Fci9aZRbBRJ6E5lew/mQJ+s46gRSB8v6Lv
UALJn+qOUxozi+COpv/ho74kf0dAGIfIEliozSE+eZD82Rj8aVJdAv2pvgp5
l0m+Xp47cdd6CTz1+RVWZkbWzxVoWPtrCdg7qzLwZnKe5J8FvRtcAh/WbaHb
yRLgpc7rSk+OZeB6sbklTZgAOtc/68lrLwPtEqbd/hkW8OtqOuiWsAxkzHP5
T/5ggc48wyue+cvAieHHPJDGAnue4wifxmVwgeMxGo5lgbHDycNBPCvgVI9t
iakfC1ileD9NuLQC3LrZz2QeYoFv/hNfP/qvgN87LAtOaLGAmNXFnrToFWAb
mn44QZEFfgmf3JFfswJiVekmV9jJ+B4b2hq2r4KThB1nWB4TRJx4xdlmtAqs
nfsX+hKZYHyToEa3/SrwCTd0Ip4zQVLbrC8zchXY6ixeVL3CBOL7q5S4l1ZB
inS/ymEZJpjn2p0nbcMGc0Rlp1WvjIJEt8nfMS5s0HT/ZKKA6Sg4/e9Tj7wX
G/xcEMebrDsK0r8q8G8KZ4OX59cWUoVGgcMl/vNaZSS+6notI5UBGmr/cR5T
YYcWeyOPG7aNgPQ3gcY+E+zQN6X9ZBnPMKiiBg4KsXHAnH76rz/9Q2DgcYBP
nAAH1NauTHxRPARk7vinlmzigCiCg1ffZwg8tLzPy3eeA/bUN1yzGRsEF2R9
cGQVB4QeSdsqygeA8Fv3rRnv1kC1eV+bk0f6wNV4O+E+Uy5YJl+y9p92B3hy
61XUE1suuN9nihLe2Q4+G1dv2u3KBTmEqn6w+bcD1squ/U8eccHw1ycDOKvb
wOX/+Ny087ngEfPK9mqrv8BZNLM+WJ4bui2E9mjfaAYOgasRO0a54fsf3e31
N/4AK+fXsg/u8cKtFsSDI2uzwaOTHru3R/HBnFUd6XX36lHYL5XLqR/54Ozz
44cjB+tRlN6/mI25fPDj7dV5xrEGlL5Pn1Oijg+2gvbbg5KNqGWzVM0SDz+0
3q5ziCetCW3iKLAru84PLxpefUD8akVlmVzPzhoKQB/Drpjcmn+oVv1bUZ25
AORyyWU8FO9Cf5Ncpg0dBCD1/JI97+EuxIppttC9JwCrCq/b3yHvW+KPP25U
zBWA3SXfD6qYdyN722PfRxUEYR33lna1/B7EKfpi4O6CIFT05z7p8F8/orB8
BCk8QrD0T+q6At9+JF/huPMdVQgWtsqldr3vR7p3dAIr1IRg9FdF7QCiH93q
690ocl4I5h0bC9nvO4BY2Zr28cVCMIwZlbs7chAtP5EJ0aoVgsa1cZLieYOI
34n7S1m7EOS0kBrK/TuINsv+5WRMC0HGhiqfo7JDKLMI1kmKCkOO4uG4+LdD
aFRl6JrNEWF45qmQbOvLYTS1viMgxUiY7JeyqIGcYbTIWfdqykQY2ujJxWQ3
DKN1/74XBp4Xhi2fmKvPhEaQ8vOnIimewnDK/KzFwfsjyGZxZ8ZksjAkrogY
nvyPgZyGVEt1MoShkhJf8WF3BnJtpLcG5ApDR4dbLjNPGOhu2jp2iRJhyAp9
a/O4kIGibDuNdTrIfMac5u8ojqLmqoAxfyEROMmv0nb07ygK140+fEZcBN65
EDudNT6KTDKyX2+UFYG1hDy1kpeJqiN6D5WpiED718ZGMzuYqMx6/yueIyKQ
f+5Q7JlgJvJvMGc1G4nAN33mX9bHkf5Fz/Vg0ikRSJd5VOv3hYkK1N4y9a1F
YM05DfWzHUyUM7u0P+iOCCxnze2f2MRCN5xFIy38RKB4c8jBlT0spNmhOqoS
JAKTqCnBmUYs9LnIIqIqUgSmVa5uol5locSQryP8WSLQ0/eRSloaC9mx1YKO
PBH4ZNsA+1wBCylcHwz/hEXgf7JNcYO/WSjGXBwcrxaByX7iT7+NsFCE4o3n
T4dFoKP4vTgVOoFORzweOj8mAjXGfmu/VyMQZW3Cvq2zInDtgysWpdoEesL6
M1jLSYG+jqz06RMEMrIe1onjo0BugcB4rv8ItK6BLewahUKeFx2R3+wJFJi3
RYdCp0CbO88o1NsEOqSmF9qjRIHNsd2WOX4E4nhrNZCpToF517q0VoIJ5OMf
8uzUXgo0f6Ct6BVD+vHZd/2KByhwbLKOOz2RQAtO+Xum9CmQQURTHn0mkMcJ
Rl+4KQXS/PL0lX8QSKuIY4/9OQp02/VWf7SYQBNaUk932FHgta1d0md+Eij9
w7Y+rksU2KbZm2ZdSyAXKYPdTdco0DtdalKkiUBqIReeJHqS8RY5G+3bCDSy
erPX4y4FutxQO3Kui0BJbk+19QIpsP6bsvZcH4Ec+hND1odQoH79q+idwwTa
YF7QM/icAqWNNZ0lmATq+dm46+trCky78SkseoxAsfuYwQ/jKHCzaQN/2SSB
rNI5e8yTKFB4/k5N6AyBZBRldm1Oo8DRS0F1bPME+vtie/D8Fwqs6hwVpC4S
6CWvYXdlPgUW5sb5VCwR6IyXzc7XxRRo+i5LRn6F9PPRotyzlRToGW+/XmiV
QE2orPFULQVueV8qm0pi8R7P9+lNFDhnfURjjsSmnKruAh1kPvbK+pP/e36j
1HHIuZesj+p+KZrEzfpPRcuHKfBDCu+rGTK+xKX9fYpjFPgbPqxbWSaQechk
lu8MBX7Lc5DKIfN5mfber2OJApcreq/LkPm2/DE7tWcNFfL28/VuI+uRmFqr
GLmWCsf2fb08Q9Z7Vjx/YlKICjdnPBF3niLQa22XImNxKtT5zj4YPE7Wb0EP
+yRDhbcvGvdbsQgk5V1nvU6RCmP3BUp2jRDI4q3/toubqfC+ulew8CC5vnAn
e8kWKvzoWa831kOgtt6hWvpOKmS8Wj1zt5NAlpuOuf49QIW7K0JfppA+Pero
KthlQIW54w39+jUEar+cIRR+ggpPMt7nvqgk0LkMsbRjllQ4aXVZUZfsr5j6
cp9kGyrkn3jT/iqHQJ3Tt47zOFHhOe3f5u/TSD33dDKxOxWqmdp2V8US6EJx
oprWUyrUezd78uxdUv9+86VnL6jwwzLQ2eFBoG4evl/MN1Q4utYj+H//r7Ex
unrpQxIVdubLIIY5gWwbdyVLFZF8edroPFIn0LvZ4Vs3K6hQ5nE8jSFPoD7J
KIOGaio0cqbqrogRyM6KbTikjQpHZFffay+zkMNghTL7NBU6JOe9Za8gz4u1
XrPnFqmQvlzaMJbHQoOq6uXf2EWh43Vxo7AUFnJ0DXW4ISgKQ8Kzn4+GsJDT
/Nn3g8qicFJFMoPjBAtd5mMoVFuIQv+9ItMtRUzEuPWNk89aFHLy/TW1Smci
56FHA3oXRWFMnkXAm2gmuli6KbnwuiiMispc3XeTiWzuOmz7EiwKB5x1wjYp
M9HZyW4QVSAKn6erpaBbo6jFOkO+tUQU3j9/KrfFZhSZ1vquEa8ShUU9+t9T
DUfR6U+08qfNotDrcVpwoMwoMr547rjfmCj8qmCSxPOdgY60tVg6K4hBo6Mv
bt5gjKBSgyTdD5vE4FVuosG8dgQd+nqT3qchBqsfM5cWs0fQ/hfifef2isFl
joTcu94jSOfE6UsnT5Pr9f4d9ucbQZrFNbe0A8Xgw5CLmkh6GNFSyiK4R8Tg
lfijSdxCg+jNir9M/nhgdQ0PPk9iezYrCvOEjpevEAmvJ6orCe
SxyqixrKtnkMoJ9Gpp+V6eLQfL+eZsrffuTB6i/VNxWHewqWEz9H9KHf27im
g4rEof/K6Q9evd3I6+vBU0Jv1kO3CvuW0eZm5Jp4OWfnFklY/k1bINwjCHTW
SL8Q3CkJGdSNoaOUcHBs/uf1AR1JOJ1WZHF65DVQMdq8LeKoJHyVUV8pYvQO
9I33p0zbS8I/Lc8E7BbTgdm+83HZUZJQfef40UdvCoBuw8lgzXVSkPPIMeUL
5b9A6jLbpXUiUnDkzUmViKjfQFo53aBnvRQ8d4fjvvu1ajB3S5AnbKMU9MyS
20MVqAWZtKp741AK6t/ehwOz/oCNlw7dTL8pBQ1PHHZ2nmkA/By7bDT6pWDM
F52BFsM2kHdzzakBhhQ8zB/3azS1DTgwaw7GTEjBMr1LbzMF2gFucdwoyCYN
67y5y09Ut4Praa+HmFLSUN4y+VamYSf4a7ni8slYGppZXUtc/6YLJOWWeqnl
S0M5bbPOG9a94Ix62OW+Imm44j9vJRfcCzgSrM5FVUpDEY+D357l9ALLJ7O6
/M3SMLznskL1uj4gZL+ZY3RcGiZG8ZTHpPcBD0rIwxRlGeg8F9W/bbwfHL5y
+oXKcxmY7OXsI35wCNwI+8529ZUM/O+FQOFH2yHwLlfhctZbGaj/e/0Gdv8h
wMExfkAnVQauZ1wQXCTvyzgiZOxYqQzM5N03TNk/DPbgMsNrszKwpemfybMt
I8CpXz33y7IMPOrJ+2m/0Qh4ue6FwsIaWdgwvsEz03EEzJ62nb8vLAsV50KP
/okdAdnDq4nhm2Wh269ouyUBBtCg7ub4+p8sdJf9llDdxgDntGOvLFnLwnjZ
mCyzKQYIPsfTCh1lYVOelWIU/yhgfGhMq7whC3cK1WuZ6oyCJB23c20hslCm
X6P04ctRoOiQ8nUFycLJBNXFnINMYPKYsuFgmSx8mPQhtM2MCe6n33r64Jcs
rGjUpX29xARdC3oOwq2yMObVxXMvw5gg5mkfVWGCjC+2QWesnQkk8mSvHt4g
B98VHvRrsmWBFdsP0iKqcrD8s29wxg0W6BPcVtG+TQ7emfb/rBXAAul2h+Rv
ADlo9ADc1XzPAnrCl+rjLeTgtZDv//F0s4Da96m7LtZy8L5jgJocwQIUBx+1
PY5yUPnTj+y2JdLvfQ8N+OMuBzWTWo8dXU8Aj4tfd7GFkvt3jD0e1yOAJeVA
X1WkHIzRM13YfYoAB35UPYuMkYOKNbtXla0IIEj9N6yRKge7rE6emHIj/egP
x4iFTDl4SMLHqu4OAf46Thwoy5OD1StSwWcCCZBYwBV1rlwO2v9sbTz6kvTb
Tk/1N1fLQb5CpYL8WAK4iUpOTzXIwYToPefqkwig66x2PLhHDr5xOWfLyiXA
BrGcBbNhOeihUR8zUUCAdRh8UByTg5Thjt1vSgnQKHaK7fuyHPxr2Hag9Q8B
vuH21EBOGvxo6hni0kyA2EsOZ034aPDOg9WxD+0ECBQf45Kj0GB7vaVVQDcB
LhfeyhyWoMHx6IBy7gECmFxec/4LjQY5OzxpaiME0F4fwndPiQaFDgKLaSYB
5IrEvxqp06DuecZlm3ECcF6JtZPQokHfH6+OXZ8iwMh6FZG+PTTIv+bapPIs
AWqLsn6k7afBMZ54UefspU+DkcyLrncWCRAlUS6ud4IGzTR598os
E+B+sXExxZQGpwvrMs6vEMDR5e/VTksa3LJG4c+RVQIcl7STSbalwUM9FhF/
SKxVwqxwd6bBmy2j//95jdTVm+77r9Fg2NhJgf89z2GTYlcQ8KTBqxWCSI/E
AyVB1S0+JH6aKW5Nxv91VdTrXQANcnE0i8uR+2dKxSi7BtOgmg292IfM72Wp
csPe5zQ4dHkf3Y/M38c1w5fnNQ0WGg1uVyXrs5Xeq14fS4PwUTfnTbJ+/bKS
1pgPNHhxcv61A8mPxrXjgc6fyXhPeVfnSf5EZVo0d36hwclbxJ5tJL8LZdb/
2PNpkLv69Vl+kv+ua4zHv4tIvv3YLj4m9SmTcdd+VUmD4YZ018+kfmFuD0O3
NpN8JeR/7iL1XviV+vVhBw1WeBg2mf0igI3yn39dvTRY6+K96lNGgO3tkhqh
YzT4WNg5rCOP5Hun7pnhGRq0GhuRFssi9Qu1ubN/mQZlRN4MLKWQ+sWf6Z/j
pMNFuy8POqJIvWsH5zbw0mFjkop/UzjZH8u3+E/y0aEp0SfgG0yA72Yx2z+K
0OGfwCbZ/ttkf/MP3jsrR4cm74VT58n5wbtvvQiQp0PfichHtwzIeXHg+5ix
gQ65BxYyknXJeSvcUrtWlQ7tDrQZy28igLqHp9y3XXS4b4QxZjPLAjYJ6zQH
9tDhA+OfBq4jLBBRG3WYokuHN569bN/SQZ4XKoWXnQ/RoR6m7ywrZIHqf2u/
S52kQ29+oyenHrAAh0BU9ZHTdPgX5AXO3GSBnXs0etzM6FDtu0irkSMLxISb
rK06R4fD812bRfVZ4KrBGzMvZzpM/X5vQYSTBYSz1Kba/OjQQ7Ptx9gVJjjU
VcDD+4AOZ/yOXu04ywSeAieltYLIeHznj/oeJs+7i+4Hgp/R4dJaacNhaSbI
kCl4phNNh+tmC3SPl44Ck8AT6tE5dHjewDgwfN0oSDw7ZpCXR4cHdso23Zpg
gHm1UIfGfDrM5bYMl/7LALH1dW8FiulQN81L/0USAzDpphSfGjqMozdvcjzA
AA+/W85aDdGhpsjAuyKnEVAw5lRIl5KHam8z78o/GgKUknWdOrLy8G9tZBHF
aQjYR6YsmNPlYUjcBFul/hDg12VuD1WSh0sXWpICeIbA2ceuiezb5WHJp4mT
+vcHwdTGm497DMl4cbt37LkyAFT+8z/zzlsePrqvLL5Rug+cvZZD4bwnD++5
DOqtHe8FDx8M1dj6y0MpKcm87LJe0J9ldFTxsTxs4zHRsb3WC2L5xUD8S3nY
W2ghpVbSA8QK3m+KzZKHEsej/rSe7wZs8uWLb4blobfljokTA+2gaWBt/PMz
CnB63ZGWZ8drQbVN/34KTRGq5LOpFpgVom7OD3MvFBTh29tmH7x3FqGpRMc0
SSVF6C6pO8ApVowkGQwZeXVFqFbbSJz/U4Lsrk/MbtmrCM27HmgvH6lAC36r
n46ZKcIK4uWru4o1SOm9pNSjp4pw1ugA/ZVeE9qt11bL/1wRJom1e/elNyGj
4agHzyIU4VlJzp/Dks3omjp9OjJaEe5+lSIry2hG+V+UahNTFOGfBOlra4Ja
kUnZ9sCSckXY+aW+LPdrO7J3nNbRr1KEVac28fDLdiDPdbmTVdWKUFNjjTX3
vQ4UfXyPdX2jIlRo8Hk6pNeJhpqgTk+vIuR0PH52/59/aMGTY9J+kIzXzOdq
ItmFBKRLPg6PKEKBx+u96wy6kOZ5vfXj44pwnJkmuze5Cx1mX1t9Y1oRzr1+
+EDhbxcyT/jpPzenCMWGEwYb13Yj58PBe+8sKcJfy1+ST+/uRv/3vhr8v/fV
0P8DAC5/Fg==
{RGBColor[0, 1, 0], Thickness[Large], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQXfvc99P//8oHGMDgg/2UkgTvhtkI/mrG4iUM5gg+
a6q7kWSsEpwvfONozqKJinB+0OFZyZqnFOD86ve2ORMey8P5O8pnZa33l4Pz
/SaFKvybKQPnu8/d6+fxRgrOX3a88lpxtCScH9cyRfT8CnE4vy6BeR23sBic
z6Arv9+5VQTOv9U9s331VSE4X4YrY+UXJ0E4P9tUi/W2DD+cn2x+b8Xhw9xw
vlaF1f+8JRxw/sK7wUcqHVnh/OeNojbuEkxw/q6pGq4vwv7uh/ENXt78oj/3
G5zvsus259+wD3B+wcr1PwSFH+//Dwbv7cPSlBdeqjkJlz9+5maXcfAJexjf
SvfgpoDpj+F8pjLROymSH+B8dp6AxqR33+D85gfXnIsW/4XzN8xuC6j7xOgA
4+cvShF4EsYK58dlzZJtb+SA8zsDyyyN53DD+SwiU5/V/+KD86+fbv3Qwi8I
54dWJ5nNOiwE5+dwv1Y6FyUC58uvPjaN7ZUonF+9wzmYf7Y4nF+wLGebmb4k
nM/DZJ6k91QKznfNDZmqNVkGzpfYKZvvqiIH508q6phocF0ezg9q89edu00B
zteKbgldUqsI5197xrlocqgSnH8u6amjkLwynK+2VFKqsx/Bh+YXOB8ATNoA
AspectRatio->NCache[GoldenRatio^(-1), 0.8948],
Axes->True,
AxesOrigin->{0, 0},
PlotRange->{{-10, 10}, {-0.1316, 1.}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02],
Scaled[0.02]}]], "Output",
CellChangeTimes->{{3.1802`*^9, 3.545*^9}, {
3.978*^9, 3.7987`*^9}}]
Cell["\", "Text",
CellChangeTimes->{{3.7967`*^9, 3.018*^9}, {
3.547*^9, 3.846*^9}, {3.167*^9,
3.004*^9}}],
Cell["\", "Text",
CellChangeTimes->{{3.744*^9, 3.776*^9}, {
3.363*^9, 3.0277`*^9}, {3.475*^9,
3.4088`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"ContourPlot", "[",
RowBox[{"Re", "[",
RowBox[{"Exp", "[",
RowBox[{"x", "+",
RowBox[{"I", "*", "y"}]}], "]"}], "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "10"}], ",", "10"}], "}"}], ",",
RowBox[{"{",
RowBox[{"y", ",",
RowBox[{"-", "10"}], ",", "10"}], "}"}], ",",
RowBox[{"Contours", "\[Rule]", "20"}], ",",
RowBox[{"ContourShading", "\[Rule]", "Automatic"}], ",",
RowBox[{"ColorFunction", "\[Rule]", "\"\\""}]}], "]"}]], "Input",\
CellChangeTimes->{{3.438*^9, 3.208*^9}, {
3.326*^9, 3.279*^9}, {3.9337`*^9,
3.515*^9}, {3.017*^9, 3.228*^9}, {
3.0243`*^9, 3.623*^9}, {3.1743`*^9,
3.024*^9}}],
Cell[BoxData[
GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJyMvQeUlMXy/72BXdICu7M5zmwwoCJGTOi0XlEwg1lMIAqiiAKi4FXxitnr
RQyoGFBRDICKihjnMV8wo+AqoqiYxUDcBYT/3HnmU71VI+/v9XjO8N3qUJ2q
q6ur66kfPHLAmTlZWVm/HpuV9b/f8L+mgN9+k5uS/9cLbkr9oUbw3BFLkv+X
Ce6bSl8k+JkUPV/wUym8NqHrae4Nfjmkx8EvhPndlviyv/AHhj8w/IHhDwx/
ut3NvcHwB4Y/8KFh+W5L/Wb5tL/wC4ZfMPyC4VePS3NvMPyC4XdL42j7zfJl
f+EPDH9g+NPzpLk3GP7A8LeleWXH0faT5cv+wh8Y/vS8be4Nhj8w/IEZ7y3N
ezvP7DjafrN82l/41euquTcYfsHwu6V1aOe9nVd2HG2/Wb7sL/yB4Q8Mf2D6
c0tywq5LO+/tPLPjavvN8ml/tTxq7q3lUabcsnLCrkM77+08s+No+83yZX/h
D0x/bkmuWjlm5