(* 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[    324964,       6432]
NotebookOptionsPosition[    318120,       6232]
NotebookOutlinePosition[    318539,       6250]
CellTagsIndexPosition[    318496,       6247]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Lesson 9    Two-Dimensional Plots (Part I)", "Section",
 CellChangeTimes->{3.4612562964071407`*^9, 3.46212726479916*^9}],

Cell[TextData[{
 "In this lesson you will learn about how to plot functions of one variable \
and how to modify the basic ",
 StyleBox["Plot", "Input",
  FontWeight->"Bold"],
 " command to change the look of the graph."
}], "Text"],

Cell[CellGroupData[{

Cell["The Basic Plot", "Subsection"],

Cell[TextData[{
 "Functions that are given explicitly can be graphed with the ",
 StyleBox["Plot", "Input",
  FontWeight->"Bold"],
 " command. In its most basic form, ",
 StyleBox["Plot", "Input",
  FontWeight->"Bold"],
 " only needs 1) the function and 2) the range for the values of the \
independent variable as a list of the form ",
 StyleBox["{variable name, min value, max value}", "Input"],
 ". "
}], "Text",
 CellChangeTimes->{{3.46125635097432*^9, 3.461256383296342*^9}}],

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

Cell["Here are some examples:", "Text",
 CellChangeTimes->{{3.461256647057796*^9, 3.46125665330503*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"x", "^", "2"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.461256657250029*^9, 3.461256707874947*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", 
    RowBox[{"x", "^", "2"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"6", "Pi"}], "]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.461256590575966*^9, 3.4612566372267933`*^9}}],

Cell[TextData[{
 "Also, ",
 StyleBox["Plot", "Input"],
 " allows simultaneous graphing of several functions which are provided in a \
list."
}], "Text",
 CellChangeTimes->{{3.461256809076017*^9, 3.461256816026173*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "t", "]"}], ",", 
     RowBox[{"Cos", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{
      RowBox[{"-", "2"}], "Pi"}], ",", 
     RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4612567605484056`*^9, 3.4612567992290993`*^9}}],

Cell[TextData[{
 "Notice that ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " chooses a different color for the second (and subsequent) functions."
}], "Text",
 CellChangeTimes->{{3.461256852043785*^9, 3.46125690411972*^9}}],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " allows you to change the appearance of a graph by using options. A list of \
all options for this ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " function can be obtained using ",
 StyleBox["Options[Plot]", "Input"],
 " or ",
 StyleBox["??Plot", "Input"],
 ". The default value for each option is also given as a replacement rule. "
}], "Text",
 CellChangeTimes->{{3.4612570423686934`*^9, 3.461257072715005*^9}, {
   3.4612572134389153`*^9, 3.461257375853612*^9}, {3.461257408471551*^9, 
   3.4612574140223217`*^9}, 3.4612574915758867`*^9}],

Cell[BoxData[
 RowBox[{"Options", "[", "Plot", "]"}]], "Input",
 CellChangeTimes->{3.461257380939271*^9, 3.461257454816124*^9}],

Cell[BoxData[
 RowBox[{"??", "Plot"}]], "Input",
 CellChangeTimes->{{3.461257385493384*^9, 3.461257386473034*^9}}],

Cell[TextData[{
 "You can learn about the different options by using the ",
 StyleBox["?",
  FontWeight->"Bold"],
 " or the Documentation Center. Some of the options have self-explanatory \
names, such as ",
 StyleBox["FrameLabel",
  FontWeight->"Bold"],
 ".  Options are always given in the form of replacement rules, ",
 StyleBox["OptionName \[Rule] OptionValue. ",
  FontSlant->"Italic"],
 "The options can be listed in any order, but they always have be listed \
after the required inputs of the ",
 StyleBox["Plot", "Input"],
 " function. The individual options are separated by commas."
}], "Text",
 CellChangeTimes->{{3.461257519181518*^9, 3.4612575197971907`*^9}, {
  3.461259044366391*^9, 3.4612590897850933`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["PlotRange", "Subsection",
 CellChangeTimes->{3.461258198306883*^9, 3.4614314061034946`*^9}],

Cell[TextData[{
 "The graph of the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["e", "x"], "-", 
    SuperscriptBox["x", "3"]}], TraditionalForm]]],
 "on the interval [-5,5] is created by"
}], "Text",
 CellChangeTimes->{3.4612569671291533`*^9}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"E", "^", "x"}], " ", "-", 
    RowBox[{"x", "^", "3"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "Input"],

Cell[TextData[{
 "Notice that ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " does not automatically display the complete range of the function values - \
it only displays the portion of the graph that is considered \"interesting\" \
and drops outlying values.  In the above plot you may not be too unhappy \
about this, but in the example below, you may want to see the entire graph."
}], "Text",
 CellChangeTimes->{{3.417311438941825*^9, 3.4173115231539583`*^9}, {
  3.417312293667354*^9, 3.417312305380219*^9}, {3.417724706512204*^9, 
  3.417724764430603*^9}, {3.417724931907456*^9, 3.417725007547505*^9}, {
  3.417725055350153*^9, 3.4177250630848503`*^9}, {3.4177255765199633`*^9, 
  3.417725577180681*^9}, {3.448148736614787*^9, 3.4481487614831257`*^9}, {
  3.461256976270154*^9, 3.461256983155871*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "/", "x"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "20"}], ",", "20"}], "}"}]}], "]"}]], "Input"],

Cell[TextData[{
 "This \"clipping off\" does not always happen - it depends very much on the \
values chosen for ",
 StyleBox["x", "Input"],
 ". The command below creates plots with various domains for ",
 StyleBox["x", "Input"],
 " to show this dependence.  \nThe ",
 StyleBox["Table", "Input"],
 " command creates a list consisting of the plots themselves."
}], "Text",
 CellChangeTimes->{{3.417725109830628*^9, 3.4177251680842447`*^9}, {
  3.4481488261494207`*^9, 3.448148850274417*^9}}],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Sin", "[", "x", "]"}], "/", "x"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "i"}], ",", "i"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "5", ",", "20", ",", "2.5"}], "}"}]}], "]"}]], "Input"],

Cell[TextData[{
 "For precise control over the y-coordinates displayed we use the ",
 StyleBox["PlotRange", "Input"],
 " option."
}], "Text",
 CellChangeTimes->{{3.46125753498698*^9, 3.461257583097731*^9}}],

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

Cell[TextData[{
 StyleBox["PlotRange", "Input",
  FontWeight->"Bold"],
 " takes (usually) the form of a list, with either ",
 StyleBox["All", "Input",
  FontWeight->"Bold"],
 StyleBox[" ",
  FontWeight->"Bold"],
 "or a list with min and max value specified for (each) variable. The default \
setting is ",
 StyleBox["Automatic", "Input",
  FontWeight->"Bold"],
 ". "
}], "Text",
 CellChangeTimes->{{3.417312379076581*^9, 3.41731238993323*^9}, {
   3.417725473696826*^9, 3.417725538534978*^9}, 3.461257728866192*^9, 
   3.4612579422849007`*^9}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "/", "x"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", " ", 
   RowBox[{"PlotRange", " ", "->", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}]}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.461258061958209*^9, 3.461258063165388*^9}}],

Cell["Now the \"clipping off\" has been controlled by the user.", "Text"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "/", "x"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", " ", 
   RowBox[{"PlotRange", " ", "->", "All"}]}], " ", "]"}]], "Input"],

Cell[TextData[{
 "Taking control sometimes leads to unwanted results. Let's consider a graph \
without any options. Note that the function ",
 StyleBox["Tan[x]", "Input"],
 " is not continuous; ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " connects the various points at which it samples the function, and thus it \
looks like there are vertical asymptotes."
}], "Text",
 CellChangeTimes->{{3.461257824693673*^9, 3.461257834362691*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Tan", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input"],

Cell[TextData[{
 "Now see what happens if you try to see ",
 StyleBox["all",
  FontWeight->"Bold"],
 " of the range."
}], "Text"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Tan", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", " ", 
   RowBox[{"PlotRange", " ", "->", " ", "All"}]}], "]"}]], "Input"],

Cell["\<\
Not at all a correct picture of the graph. So be careful what you ask for!!! \
This may be a better graph:\
\>", "Text",
 CellChangeTimes->{{3.461257996685789*^9, 3.461258012843916*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Tan", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", " ", 
   RowBox[{"PlotRange", " ", "->", " ", "5"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4612578977002287`*^9, 3.4612579064485273`*^9}, 
   3.461257991590887*^9}],

Cell[TextData[{
 "Here ",
 StyleBox["PlotRange->5", "Input"],
 " is a convenient abbreviation for  ",
 StyleBox["PlotRange->{-5,5}", "Input"],
 "."
}], "Text",
 CellChangeTimes->{{3.4612580302302713`*^9, 3.461258132826255*^9}, 
   3.461416171427305*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Practice", "Subsection",
 CellChangeTimes->{{3.461258357425076*^9, 3.461258359328801*^9}}],

Cell[TextData[{
 "1) Make a simple understandable graph of the equation",
 StyleBox[" ", "Input"],
 StyleBox[Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    RowBox[{
     SuperscriptBox["x", "2"], " ", 
     RowBox[{"Tan", "[", 
      SuperscriptBox["x", "2"], "]"}]}]}], TraditionalForm]], "Input"], 
  "Input"],
 ". Choose a range of x-coordinates and y-coordinates that shows the main \
features of the graph (as if you were wanting to use the graph in a math \
class.)"
}], "Text",
 CellChangeTimes->{{3.4612583634668913`*^9, 3.461258395817668*^9}, {
  3.461258775188377*^9, 3.461258981684576*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["PlotStyle", "Subsection",
 CellChangeTimes->{
  3.4612582054230022`*^9, {3.461431412654558*^9, 3.4614314137985*^9}}],

Cell["\<\
You can change the way the graph of a function is drawn by choosing different \
styles and colors. This is very useful when graphing several functions at \
once.\
\>", "Text",
 CellChangeTimes->{
  3.41731278850667*^9, {3.461267149802825*^9, 3.461267159172048*^9}}],

Cell[BoxData[
 RowBox[{"?", "PlotStyle"}]], "Input",
 CellChangeTimes->{{3.417312598891109*^9, 3.417312608519637*^9}}],

Cell[TextData[{
 " PlotStyle has several sub-options\n\n\[Bullet] ",
 StyleBox["Thickness[]", "Input",
  FontWeight->"Bold"],
 StyleBox[":", "Input"],
 " gives the thickness of the line as a percentage of the width of the graph; \
commonly used values are between 0.005 and 0.02\n\[Bullet] ",
 StyleBox["AbsoluteThickness[]", "Input",
  FontWeight->"Bold"],
 ": gives the absolute thickness of the line (independent of the width of the \
graph), where the width of the line is measured in points (1 inch = 72 \
points)\n\[Bullet] ",
 StyleBox["Thick", "Input",
  FontWeight->"Bold"],
 ": If you want ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to choose a default thick line, this is simpler."
}], "Text",
 CellDingbat->"\[FilledSmallCircle]",
 CellChangeTimes->{{3.41731278850667*^9, 3.4173128019986067`*^9}, {
   3.417312837827629*^9, 3.417312875293639*^9}, {3.4173132792801743`*^9, 
   3.4173133007129602`*^9}, {3.417313387626996*^9, 3.417313467977326*^9}, {
   3.417313916292872*^9, 3.417313993750798*^9}, {3.4177258113170967`*^9, 
   3.417725820167238*^9}, 3.417725857071322*^9, {3.448798035799172*^9, 
   3.448798159299341*^9}, {3.461267169479005*^9, 3.461267169925259*^9}}],

Cell[TextData[{
 "\[Bullet]  ",
 StyleBox["GrayLevel[]", "Input",
  FontWeight->"Bold"],
 StyleBox[":", "Input"],
 " values range from 0 (black) to 1 (white)"
}], "Text",
 CellChangeTimes->{{3.41731278850667*^9, 3.4173128019986067`*^9}, {
  3.417312837827629*^9, 3.417312875293639*^9}, {3.4173132792801743`*^9, 
  3.4173133007129602`*^9}, {3.417313387626996*^9, 3.417313467977326*^9}, {
  3.417313916292872*^9, 3.417313993750798*^9}, {3.4177258113170967`*^9, 
  3.417725824524356*^9}, {3.44879820077931*^9, 3.448798200979137*^9}}],

Cell[TextData[{
 "\[Bullet]  ",
 StyleBox["RGBColor[]:", "Input"],
 " ",
 StyleBox["RGBColor", "Input"],
 " has three entries each between 0 and 1; the first is the red component, \
followed by the  green and blue components of the overall color; e.g. ",
 StyleBox["RGBColor[1,0,0]", "Input"],
 " produces the color red. "
}], "Text",
 CellChangeTimes->{{3.41731278850667*^9, 3.4173128019986067`*^9}, {
  3.417312837827629*^9, 3.417312875293639*^9}, {3.4173132792801743`*^9, 
  3.4173133007129602`*^9}, {3.417313387626996*^9, 3.417313467977326*^9}, {
  3.417313916292872*^9, 3.417313993750798*^9}, {3.4177258113170967`*^9, 
  3.417725830791584*^9}, {3.44862832440777*^9, 3.44862833453503*^9}, {
  3.448798220915715*^9, 3.448798231739349*^9}}],

Cell[TextData[{
 "\[Bullet]  ",
 StyleBox["Hue[]", "Input",
  FontWeight->"Bold"],
 ":  used to specify a range of colors by using just one parameter. As ",
 StyleBox["h", "Input"],
 " varies from 0 to 1, ",
 StyleBox["Hue[h]", "Input"],
 " runs through red, yellow, green, cyan, blue, magenta, and back to red \
again. ",
 StyleBox["Hue[h, s, b]", "Input"],
 " allows you to specify not only the \"hue\", but also the \"saturation\" \
and \"brightness\" of a color. Taking the saturation to be equal to one gives \
the deepest colors; decreasing the saturation toward zero leads to \
progressively more \"washed out\" colors. "
}], "Text",
 CellChangeTimes->{{3.41731278850667*^9, 3.4173128019986067`*^9}, {
  3.417312837827629*^9, 3.417312875293639*^9}, {3.4173132792801743`*^9, 
  3.4173133007129602`*^9}, {3.417313387626996*^9, 3.417313467977326*^9}, {
  3.417313916292872*^9, 3.417313993750798*^9}, {3.4177258113170967`*^9, 
  3.417725848927822*^9}, {3.4486283542377033`*^9, 3.4486283549583063`*^9}, {
  3.448798245571838*^9, 3.448798245772359*^9}}],

Cell[TextData[{
 "\[Bullet]  ",
 StyleBox["Named Colors", "Input",
  FontWeight->"Bold"],
 ":  If the above commands are too complicated, certain colors can be used by \
name:",
 StyleBox[" ", "Input"],
 StyleBox[Cell[TextData[ButtonBox["Red",
  BaseStyle->"Link",
  ButtonData->"paclet:ref/Red"]], "Input",
  FontColor->GrayLevel[0]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input",
  FontColor->GrayLevel[0]],
 StyleBox[Cell[TextData[ButtonBox["Green",
  BaseStyle->"Link",
  ButtonData->"paclet:ref/Green"]], "Input",
  FontColor->GrayLevel[0]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input",
  FontColor->GrayLevel[0]],
 StyleBox[Cell[TextData[ButtonBox["Blue",
  BaseStyle->"Link",
  ButtonData->"paclet:ref/Blue"]], "Input",
  FontColor->GrayLevel[0]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input",
  FontColor->GrayLevel[0]],
 StyleBox[Cell[TextData[ButtonBox["Black",
  BaseStyle->"Link",
  ButtonData->"paclet:ref/Black"]], "Input",
  FontColor->GrayLevel[0]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input",
  FontColor->GrayLevel[0]],
 StyleBox[Cell[TextData[ButtonBox["White",
  BaseStyle->"Link",
  ButtonData->"paclet:ref/White"]], "Input",
  FontColor->GrayLevel[0]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input",
  FontColor->GrayLevel[0]],
 StyleBox[Cell[TextData[ButtonBox["Gray",
  BaseStyle->"Link",
  ButtonData->"paclet:ref/Gray"]], "Input",
  FontColor->GrayLevel[0]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input",
  FontColor->GrayLevel[0]],
 StyleBox[Cell[TextData[ButtonBox["Cyan",
  BaseStyle->"Link",
  ButtonData->"paclet:ref/Cyan"]], "Input",
  FontColor->GrayLevel[0]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input",
  FontColor->GrayLevel[0]],
 StyleBox[Cell[TextData[ButtonBox["Magenta",
  BaseStyle->"Link",
  ButtonData->"paclet:ref/Magenta"]], "Input",
  FontColor->GrayLevel[0]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input",
  FontColor->GrayLevel[0]],
 StyleBox[Cell[TextData[ButtonBox["Yellow",
  BaseStyle->"Link",
  ButtonData->"paclet:ref/Yellow"]], "Input",
  FontColor->GrayLevel[0]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input",
  FontColor->GrayLevel[0]],
 StyleBox[Cell[TextData[ButtonBox["Brown",
  BaseStyle->"Link",
  ButtonData->"paclet:ref/Brown"]], "Input",
  FontColor->GrayLevel[0]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input",
  FontColor->GrayLevel[0]],
 StyleBox[Cell[TextData[ButtonBox["Orange",
  BaseStyle->"Link",
  ButtonData->"paclet:ref/Orange"]], "Input",
  FontColor->GrayLevel[0]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input",
  FontColor->GrayLevel[0]],
 StyleBox[Cell[TextData[ButtonBox["Pink",
  BaseStyle->"Link",
  ButtonData->"paclet:ref/Pink"]], "Input",
  FontColor->GrayLevel[0]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input",
  FontColor->GrayLevel[0]],
 StyleBox[Cell[TextData[ButtonBox["Purple",
  BaseStyle->"Link",
  ButtonData->"paclet:ref/Purple"]], "Input",
  FontColor->GrayLevel[0]], "Input"],
 StyleBox[" ", "Input",
  FontColor->GrayLevel[0]],
 StyleBox[" ", "Input"],
 StyleBox[Cell[TextData[ButtonBox["LightRed",
  BaseStyle->"NewInVersionLink",
  ButtonData->"paclet:ref/LightRed"]], "Input",
  Background->Dynamic[
    If[CurrentValue[{TaggingRules, "ModificationHighlight"}] === True, 
     RGBColor[0.92, 1, 0.59], None]]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input"],
 StyleBox[Cell[TextData[ButtonBox["LightGreen",
  BaseStyle->"NewInVersionLink",
  ButtonData->"paclet:ref/LightGreen"]], "Input",
  Background->Dynamic[
    If[CurrentValue[{TaggingRules, "ModificationHighlight"}] === True, 
     RGBColor[0.92, 1, 0.59], None]]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input"],
 StyleBox[Cell[TextData[ButtonBox["LightBlue",
  BaseStyle->"NewInVersionLink",
  ButtonData->"paclet:ref/LightBlue"]], "Input",
  Background->Dynamic[
    If[CurrentValue[{TaggingRules, "ModificationHighlight"}] === True, 
     RGBColor[0.92, 1, 0.59], None]]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input"],
 StyleBox[Cell[TextData[ButtonBox["LightGray",
  BaseStyle->"NewInVersionLink",
  ButtonData->"paclet:ref/LightGray"]], "Input",
  Background->Dynamic[
    If[CurrentValue[{TaggingRules, "ModificationHighlight"}] === True, 
     RGBColor[0.92, 1, 0.59], None]]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input"],
 StyleBox[Cell[TextData[ButtonBox["LightCyan",
  BaseStyle->"NewInVersionLink",
  ButtonData->"paclet:ref/LightCyan"]], "Input",
  Background->Dynamic[
    If[CurrentValue[{TaggingRules, "ModificationHighlight"}] === True, 
     RGBColor[0.92, 1, 0.59], None]]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input"],
 StyleBox[Cell[TextData[ButtonBox["LightMagenta",
  BaseStyle->"NewInVersionLink",
  ButtonData->"paclet:ref/LightMagenta"]], "Input",
  Background->Dynamic[
    If[CurrentValue[{TaggingRules, "ModificationHighlight"}] === True, 
     RGBColor[0.92, 1, 0.59], None]]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input"],
 StyleBox[Cell[TextData[ButtonBox["LightYellow",
  BaseStyle->"NewInVersionLink",
  ButtonData->"paclet:ref/LightYellow"]], "Input",
  Background->Dynamic[
    If[CurrentValue[{TaggingRules, "ModificationHighlight"}] === True, 
     RGBColor[0.92, 1, 0.59], None]]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input"],
 StyleBox[Cell[TextData[ButtonBox["LightBrown",
  BaseStyle->"NewInVersionLink",
  ButtonData->"paclet:ref/LightBrown"]], "Input",
  Background->Dynamic[
    If[CurrentValue[{TaggingRules, "ModificationHighlight"}] === True, 
     RGBColor[0.92, 1, 0.59], None]]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input"],
 StyleBox[Cell[TextData[ButtonBox["LightOrange",
  BaseStyle->"NewInVersionLink",
  ButtonData->"paclet:ref/LightOrange"]], "Input",
  Background->Dynamic[
    If[CurrentValue[{TaggingRules, "ModificationHighlight"}] === True, 
     RGBColor[0.92, 1, 0.59], None]]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input"],
 StyleBox[Cell[TextData[ButtonBox["LightPink",
  BaseStyle->"NewInVersionLink",
  ButtonData->"paclet:ref/LightPink"]], "Input",
  Background->Dynamic[
    If[CurrentValue[{TaggingRules, "ModificationHighlight"}] === True, 
     RGBColor[0.92, 1, 0.59], None]]], "Input"],
 StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare] ", "Input"],
 StyleBox[Cell[TextData[ButtonBox["LightPurple",
  BaseStyle->"NewInVersionLink",
  ButtonData->"paclet:ref/LightPurple"]], "Input",
  Background->Dynamic[
    If[CurrentValue[{TaggingRules, "ModificationHighlight"}] === True, 
     RGBColor[0.92, 1, 0.59], None]]], "Input"]
}], "Text",
 CellChangeTimes->{{3.41731278850667*^9, 3.4173128019986067`*^9}, {
   3.417312837827629*^9, 3.417312875293639*^9}, {3.4173132792801743`*^9, 
   3.4173133007129602`*^9}, {3.417313387626996*^9, 3.417313467977326*^9}, {
   3.417313916292872*^9, 3.417313993750798*^9}, {3.4177258113170967`*^9, 
   3.417725848927822*^9}, {3.4486283542377033`*^9, 3.4486283549583063`*^9}, {
   3.44879446858493*^9, 3.448794555757678*^9}, 3.44879459892017*^9, 
   3.461416175243924*^9}],

Cell[TextData[{
 "\[Bullet] ",
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Dashing[]", "Input",
  FontWeight->"Bold"],
 ": makes a dashed line according to the list ",
 StyleBox["{d1,d2,d3,...}", "Input"],
 ", where ",
 StyleBox["d1, d2, d3,...", "Input"],
 " specify the lengths for consecutive \"on/off\" segments (again as \
percentage of the width of the graph). (It seems though that \"off\" segments \
are shortened by a factor of 50%)\n\[Bullet]  ",
 StyleBox["AbsoluteDashing[]", "Input",
  FontWeight->"Bold"],
 ": like dashing, where lengths are now measured in points (see ",
 StyleBox["AbsoluteThickness", "Input"],
 ").\n\[Bullet]  ",
 StyleBox["Dashed", "Input",
  FontWeight->"Bold"],
 ": A default dashed line."
}], "Text",
 CellChangeTimes->{{3.41731278850667*^9, 3.4173128019986067`*^9}, {
   3.417312837827629*^9, 3.417312875293639*^9}, {3.4173132792801743`*^9, 
   3.4173133007129602`*^9}, {3.417313387626996*^9, 3.417313467977326*^9}, {
   3.417313916292872*^9, 3.417313993750798*^9}, {3.4177258113170967`*^9, 
   3.4177258697713013`*^9}, 3.4486283770475283`*^9, {3.44879829301186*^9, 
   3.448798309059534*^9}, {3.4487983430879097`*^9, 3.448798388963566*^9}}],

Cell[TextData[{
 "Several ",
 StyleBox["PlotStyles", "Input"],
 " can be combined. In this case, they have to be written as a list. "
}], "Text",
 CellChangeTimes->{{3.41731278850667*^9, 3.4173128019986067`*^9}, {
  3.417312837827629*^9, 3.417312875293639*^9}, {3.4173132792801743`*^9, 
  3.4173133007129602`*^9}, {3.417313387626996*^9, 3.417313467977326*^9}, {
  3.417313916292872*^9, 3.417313993750798*^9}, {3.4177258113170967`*^9, 
  3.4177258697713013`*^9}, {3.417725953244945*^9, 3.4177259539132957`*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "3"}], "Pi"}], ",", 
     RowBox[{"3", "Pi"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", " ", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Blue"}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.41772592466366*^9, 3.417725927750216*^9}, 
   3.417726483907187*^9, {3.448798419725717*^9, 3.448798420789029*^9}, {
   3.448798576864194*^9, 3.448798577558051*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Cos", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "3"}], "Pi"}], ",", 
     RowBox[{"3", "Pi"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", " ", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"GrayLevel", "[", "0.35", "]"}], ",", 
      RowBox[{"Dashing", "[", 
       RowBox[{"{", 
        RowBox[{".05", ",", ".05"}], "}"}], "]"}]}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.417314183182675*^9, 3.417314183444048*^9}, {
  3.41772596141735*^9, 3.4177259636342487`*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "3"}], "Pi"}], ",", 
     RowBox[{"3", "Pi"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", " ", "->", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "1", ",", "1"}], "]"}]}], "}"}]}]}], "]"}]], "Input",\

 CellChangeTimes->{
  3.417314216494928*^9, {3.41772598780011*^9, 3.4177259898554792`*^9}, 
   3.448798438110929*^9}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Cos", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "3"}], "Pi"}], ",", 
     RowBox[{"3", "Pi"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", " ", "->", 
    RowBox[{"{", 
     RowBox[{"Dashed", ",", " ", 
      RowBox[{"GrayLevel", "[", "0.35", "]"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4173141202938347`*^9, 3.417314190216404*^9}, {
  3.448798559606883*^9, 3.44879858343009*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Practice", "Subsection"],

Cell[TextData[{
 "Find a ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " command to make the following graph of the natural logarithm function."
}], "Text",
 CellChangeTimes->{{3.4177293096764917`*^9, 3.4177293426409883`*^9}, {
  3.448794124327317*^9, 3.448794180362526*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {GrayLevel[0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[CompressedData["
1:eJwly39cy3kcB/D1cz3mkqsZdTmlHw4JWUSPvL/Jle5ESEvj9PuXdNU5/fTj
OpVLP7ThqMTQL3ROurpj+pjVSsvKrYSUflJT2qZWNtvu43Gvx+P1eD2ef7ys
Q37cFa5LIpHCcD9v0mJ5ooUfD0j/5yF1iU1j4yUeVNpTxOvua5G9e57+/Cw+
CBYxwixpGrRgiG1UdJ0PHeNVKge1GhllFn2xmM+HsceUtWHDaiRpqaAuIzXC
FHdX5Za7anTb95GtW2ojPFcsd+TtUiOXoJkt4XFNQD0dYPT9hU/I+3hw5l/+
zTDELQwwdlUhpwKeJ+dwMxw25Lr/bq9ClpetjfJYzXCxfBPd1VSFpA0DOWGi
Zoi//ptjx5gSndcEnzHzbIEE7Z5jS4uUaPhoSHGC82NIsi6t9td+RCfSQ++s
pArB28qHufHlLIrJ5SeaOwnBLLJpzfmWWeRXYkM38BVCds7OCIP6WbSUO1T3
6rQQ3P5oJxadnUUiVSj3tF4bdBh6uzrumEWWaWHNY/I2qChdP17TMoPqU8J7
y56KoEYz4LetRYHKNx3stpCLoM/PLi2tXoHO6yU8LTBth2fbt7hyyxXoSF56
U8rudrj5BVIkZCrQOg672qerHa52vEm84aFAzOH+htTYDlAsLrmyhj+NXs4x
KVgS/xTWzLQ2PHgyhV4EHlyVmCSGrEPbVGrKB5Qz6BX7e5YY5n5sI5/RyNHG
GNsq7jkx0A7U1q6Qy1FJSu8Scq0YooUhtcdfyFHQhR20EqkYGn9k3L1QKUdv
u9aqm6I7gehkMzO2ytG076dW831dMHGcKe3Ol6EvvfIieEQ3mKvTXmqdpGhe
Z3jNemYPmHjkz7nl9A7ZWMVWZYa8BvE89qtvn7xBLr2HhO6sAbjWk13d7TiE
eMoT2zqLh2Cx9ebtHgGvURRqaWnIGIH0f90FSQdfoIuhFRbzg95CG6mMmWre
iVYGDCg04WOwR88pVJf9BPV92CEivN+BaXqCvii8Eclfm6+m7ZmActPN/Oyt
dejMzdRIBmMSBlmG9Cifc8jexMgnuVgKU45zjshMr0Fd/Imb+ZdlkOxhVdnN
/Rs67djknSw5WDbyo9rN+GD7q/ib/Rc/gP7O90diZx/DBt/X9MvFU0DcWL81
36kDeuMzN+XlToPZjavP6XPFULNhr3FToQJWvB8NdNZ/BjT/5heVmTNQOOKd
Wlz1HGCQVPjo8CzYHehbeXZpD1ykRRnbJ38EC2VyVM3DXsgojc52jlHC3OpH
v81Q+uGS6IIgP14F1mcnKwSbB+BoHFu6KPETCDnfIn70ILwL/mbh3hA13C/2
iCn/aQhOqyX6fREauJp6wrQgZxjujXtNzg3Uwu5B76ZLWSPwzM5lcKMtiZjU
ltIjj7yBqGWhq9hlJEKxIL9hOPEt8PyZae5f6xASm1u7KxijsDZAUkXl6BDO
bjQlZ+sYxP7q2e32lS7x3CFy3yEbCZyKMFLqsHWJ/Zz6+sgpCTxYFKyVUPUI
e4p13bqn7+AfTZbe8nw9QmUzWmRSNA6iux6SvC/1iXrHVaPfxU1Ak1WEIJel
T9Qdd+XFb3gPJ+v3cAYoBgR39Fr7L/L3sG/Jqx+YeQaE2PzJ0YK6SVDVrfpq
BdmQEPQ4rLtHl0K63ljbuWOGhHKHyL8gRwo02w3BdiQyQRJIj94ZkUJSnP8U
JYVMnMymGctcZCDLpcTM/0QmLH3s+n0KZWB50p1qh40ifXcHYHulJTfQsZ1v
HxaEYF+KfmPqh/13Y+WtJGxvz0f3WdgWc1AyB5ujTTGepyYTC42vm0xj70wc
+5OiIRP7bX1dSlgySI+2YlpgJ0uu3CjHrghiGCzHzuiTWN7BVm9v2uuNnekb
oyPArlrB0T2F7bl/Qeskts5IgJ+Blkz8ZL080IMtA4dXBRoqdkWrcZsPNkMs
qLTFZlyVuAVgV/Poag9sv94C60PYe0vnlWdg12acGj2PffKcly8Lu/WKcyAH
+3buMSUHu2yiR3gT2yBtfDsPu82Mevsh9upEm48d2MsmyqyE2MzowGv92HHT
q1ld2FlBhT7Sz3+Hv/T6se8wWma02F0sp58l2P8BbDEsYw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 3}, {-2, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{
  3.448794003931946*^9, {3.448794039102004*^9, 3.448794059535841*^9}, {
   3.4487940958006268`*^9, 3.448794104638792*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["PlotStyle With Several Graphs", "Subsection",
 CellChangeTimes->{{3.461267873394623*^9, 3.461267903849121*^9}}],

Cell[TextData[{
 "How is  ",
 StyleBox["PlotStyle", "Input"],
 " applied if there is more than one graph? Here is a single ",
 StyleBox["PlotStyle", "Input"],
 " applied to three different graphs."
}], "Text",
 CellChangeTimes->{{3.448799270900549*^9, 3.448799299970113*^9}, {
  3.461267429611527*^9, 3.4612674902156343`*^9}, {3.461415482658606*^9, 
  3.461415513088954*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"Cos", "[", "x", "]"}], ",", " ", 
     RowBox[{
      RowBox[{"Sin", "[", "x", "]"}], " ", 
      RowBox[{"Cos", "[", "x", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "3"}], "Pi"}], ",", 
     RowBox[{"3", "Pi"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4173144689620943`*^9, 3.4173144773309393`*^9}, {
  3.448799192940884*^9, 3.4487991986267643`*^9}}],

Cell[TextData[{
 "Separate styles for each function can be specified in ",
 StyleBox["PlotStyle", "Input"],
 " as a list; the first entry in the list is used for the first function, the \
second entry for the second function, and so on. "
}], "Text",
 CellChangeTimes->{{3.448799270900549*^9, 3.448799272370309*^9}, 
   3.448799305354456*^9}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"Cos", "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "3"}], "Pi"}], ",", 
     RowBox[{"3", "Pi"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", " ", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Green"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", 
        RowBox[{"GrayLevel", "[", "0.15", "]"}], ",", 
        RowBox[{"Dashing", "[", 
         RowBox[{"{", 
          RowBox[{".05", ",", ".05"}], "}"}], "]"}]}], "}"}]}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.417726473547305*^9, {3.4487986294022284`*^9, 3.448798674895524*^9}, {
   3.448799357477488*^9, 3.4487993598289824`*^9}}],

Cell["\<\
If there are fewer styles than functions, the styles are used cyclically.\
\>", "Text"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"Cos", "[", "x", "]"}], ",", " ", 
     RowBox[{
      RowBox[{"Sin", "[", "x", "]"}], " ", 
      RowBox[{"Cos", "[", "x", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "3"}], "Pi"}], ",", 
     RowBox[{"3", "Pi"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", " ", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Green"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", 
        RowBox[{"GrayLevel", "[", "0.15", "]"}], ",", 
        RowBox[{"Dashing", "[", 
         RowBox[{"{", 
          RowBox[{".05", ",", ".05"}], "}"}], "]"}]}], "}"}]}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.417726464578064*^9, {3.448798712970973*^9, 3.448798752405686*^9}, {
   3.4487993477330723`*^9, 3.4487993651247168`*^9}, {3.461267750925496*^9, 
   3.4612677526222143`*^9}}],

Cell[TextData[{
 "By default, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " cycles through 4 preset colors."
}], "Text",
 CellChangeTimes->{{3.417314675372443*^9, 3.417314738033107*^9}, {
  3.4487991524446077`*^9, 3.4487991594410257`*^9}}],

Cell[BoxData[{
 RowBox[{"functs", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"k", " ", 
     RowBox[{"Sin", "[", "x", "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "5"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{"functs", ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "2"}], "Pi"}], ",", 
     RowBox[{"2", "Pi"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.4487990699015617`*^9, 3.448799070277032*^9}}],

Cell[TextData[{
 "If you want to get specific colors, you can make a list of your favorite \
ones and then use this list within ",
 StyleBox["PlotStyle", "Input"],
 ". "
}], "Text",
 CellChangeTimes->{{3.417314383461195*^9, 3.4173143864417152`*^9}, {
   3.417314778200185*^9, 3.417314844069684*^9}, 3.448799452092705*^9}],

Cell[BoxData[{
 RowBox[{"cols", " ", "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Hue", "[", "h", "]"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"h", ",", "0", ",", "1", ",", "0.15"}], "}"}]}], "]"}]}], "\n", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"Cos", "[", "x", "]"}], ",", " ", 
     RowBox[{
      RowBox[{"Sin", "[", "x", "]"}], " ", 
      RowBox[{"Cos", "[", "x", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "3"}], "Pi"}], ",", 
     RowBox[{"3", "Pi"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", " ", "->", "cols"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.417726148853302*^9, 3.4177261654365997`*^9}, {
   3.4183388039279823`*^9, 3.418338804778597*^9}, 3.4487987829379253`*^9, {
   3.461267773658442*^9, 3.461267775673253*^9}}],

Cell[TextData[{
 "Notice that only the first three values of ",
 StyleBox["Hue", "Input"],
 " have been used. "
}], "Text",
 CellChangeTimes->{{3.417314383461195*^9, 3.4173143864417152`*^9}, 
   3.448799076744351*^9}],

Cell[BoxData[{
 RowBox[{"cols1", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
   "Magenta", ",", " ", "Purple", ",", "  ", "Orange", ",", " ", "Pink"}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"Cos", "[", "x", "]"}], ",", " ", 
     RowBox[{
      RowBox[{"Sin", "[", "x", "]"}], " ", 
      RowBox[{"Cos", "[", "x", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "3"}], "Pi"}], ",", 
     RowBox[{"3", "Pi"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", " ", "\[Rule]", "cols1"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.448799530106564*^9, 3.4487995306255283`*^9}}],

Cell[TextData[{
 "If you feel that the lines are too thin and not bright enough, you can make \
them thicker by creating a list that consists of a color and the style option \
",
 StyleBox["Thick ",
  FontWeight->"Bold"],
 "or ",
 StyleBox["Thickness[]",
  FontWeight->"Bold"],
 " as follows:"
}], "Text",
 CellChangeTimes->{{3.417726335855008*^9, 3.417726400519348*^9}}],

Cell[BoxData[
 RowBox[{"colsthick", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Thickness", "[", "0.01", "]"}], ",", 
      RowBox[{"cols1", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.417726402782824*^9, 3.417726455559114*^9}, {
  3.4177265000137787`*^9, 3.417726502774405*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"Cos", "[", "x", "]"}], ",", " ", 
     RowBox[{
      RowBox[{"Sin", "[", "x", "]"}], " ", 
      RowBox[{"Cos", "[", "x", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "3"}], "Pi"}], ",", 
     RowBox[{"3", "Pi"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", " ", "\[Rule]", "colsthick"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.417315204716498*^9, 3.417315246701096*^9}, {
  3.417726247839559*^9, 3.417726281596715*^9}, {3.41772651948205*^9, 
  3.417726520608389*^9}}],

Cell[BoxData[
 RowBox[{"colsthick", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Thick", ",", 
      RowBox[{"cols1", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.417726402782824*^9, 3.4177264470870047`*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"Cos", "[", "x", "]"}], ",", " ", 
     RowBox[{
      RowBox[{"Sin", "[", "x", "]"}], " ", 
      RowBox[{"Cos", "[", "x", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "3"}], "Pi"}], ",", 
     RowBox[{"3", "Pi"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", " ", "\[Rule]", "colsthick"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.417315204716498*^9, 3.417315246701096*^9}, {
  3.417726247839559*^9, 3.417726281596715*^9}, {3.41772651948205*^9, 
  3.417726520608389*^9}}],

Cell[TextData[{
 " As well as specifying a ",
 StyleBox["PlotStyle", "Input"],
 " for each graph, it is also possible to change the default style that \
applies to each graph. The option that does this is ",
 StyleBox["BaseStyle", "Input"],
 ". For example, ",
 StyleBox["BaseStyle \[Rule] {Thick, Dashed}", "Input"],
 " makes all graphs thick and dashed by default. "
}], "Text",
 CellChangeTimes->{{3.461416228342111*^9, 3.461416398857225*^9}, {
   3.4614164517194347`*^9, 3.4614165618192*^9}, 3.461416604718442*^9, {
   3.466345302380937*^9, 3.46634530299191*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.461416446005556*^9, 3.461416448001791*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"Cos", "[", "x", "]"}], ",", " ", 
     RowBox[{
      RowBox[{"Sin", "[", "x", "]"}], " ", 
      RowBox[{"Cos", "[", "x", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "3"}], "Pi"}], ",", 
     RowBox[{"3", "Pi"}]}], "}"}], ",", 
   RowBox[{"BaseStyle", " ", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Dashed"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.461416415708506*^9, 3.461416436592403*^9}}],

Cell[TextData[{
 "Then ",
 StyleBox["PlotStyle", "Input"],
 " can be used to change specific graphs."
}], "Text"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"Cos", "[", "x", "]"}], ",", " ", 
     RowBox[{
      RowBox[{"Sin", "[", "x", "]"}], " ", 
      RowBox[{"Cos", "[", "x", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "3"}], "Pi"}], ",", 
     RowBox[{"3", "Pi"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", "Blue", ",", "Green"}], "}"}]}], ",", 
   RowBox[{"BaseStyle", " ", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Dashed"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.461416415708506*^9, 3.461416436592403*^9}, {
  3.461416571085393*^9, 3.461416590679286*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Practice", "Subsection"],

Cell[TextData[{
 "Find a ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " command to make the following graph of the sine and cosine functions from \
0 to 2\[Pi],:"
}], "Text"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwl2Xk4VN//AHBrlsTMHUKlqLRaUkoL3qeyFSklbUKokKwlJJU2JAmpZEuF
8illTzghRUWiEopCsszMtY6ZCf3O9/n9dZ7X88y9M/e9nXOf0XD23nlYTERE
5JmoiMj/VnEsW9+1+rwxr/z/V82+8g1z4xzhVkHzyByyCp/purbEeoPvzXyT
z2T9rejGL4w9C+ceVQSnk7XV7GLlw9jroHY+7cMusn5xjF2cHJsKa0xn2O6+
kQo7PVVbb8fmwGosLAu6lgM3hu3zEmIxrFV6ZKIWimFD9VbZTf4NcKm0zFTW
tAF8gq0P5fl8g6JTVfqlLc1wvPhwtNiCn7Aoe+5HC3Y7fO7dIpPp3A3dPS37
qqW7IFKXJ1K4rxc0pB6LbmX2gO/ympuvHrJB4P92dTa/F7oPd59LK2SDb0Dx
gtXifWCXJuJ57i0bnp2boVY8ow/WK63bhPrY0Oikv+jR/D4Q+/eIi7U4sKlv
5kYDqz6IbbxqjvM44Hw0XVE0pQ9yg7YLyiq4YN3SfNLAsB+ELsee/vAahOyZ
vfW3nAfAiTkSWBowCKX/Dsx74TEA1eXBm++GDkKsa1xdk98AxKhGftsbPQjF
lgEbxsIGYPHHLLHPTwZhjXXkot70AbBd32P3jj0Iz100r0b9GoCnjEP/Cj2G
QDXB9njlPjYolvfW3vQbgowKsdrph9gQdMwn/kTwEFh+bzWzdmODyZuzS1dG
DoF/k3h6eQAb2k6n7HryaAiu5/o9tIpjg/Sftsz7vUPw3kTeac57NjiX2e2I
OTIMl3djXuhqDqwsVKFUvYfBj7cg0t+QA2I5rU33Tg1D0PwVHxw3cyA9zWFP
Xvgw6Nxzsp1nw4HOC0ccvj4eBoP0G8brPUmctgZ4zqGH4dXakLofacTNN8Oz
To0A49h6Tr04F1Y27Nmqd24EDnY35xbIcEGsVlWuJHwEwl2L2HEKXEgvSb7+
/s4I9B24UbhmNhc6kx8mcF+OwN78qyeUVnLB2bXggb7IKPys8lmxxoELLkOf
X70KHwX3MPcOQQ4XnIJj9hTHjEJ77hyX4Hwu2ItbcXNuj0KAQd2WkWIu2ClV
zU7NGoXopOIN9SSPFuueB5ypGYUO8wVxS5q4oHP+mtZ66TGQmfyk4TXKhWWy
W6r0GGOgluhpe4LPhcVxEvuXqozB6+KlLX4TXFB/ePqKypIxuAbKX/ZK0MCq
de/kmY+BcUzI6RoWDXyG2e28K2OwJjvp6Wo9GkbviOpmXx+Djvd5Ma/0aRia
X1adfmsMwkSFBZvX0tCvrz9yI3MMihvuvFkJNPzYO9/a5+0YiEYa9eZZ0VCZ
NiWuLcUDLlvlxMYjNJQvLUlcqMCD2pOfF+5wp+Fl7km9Oco84FQUTt/jSUP+
a7bD9MU8oCWHArf50ZDZ2/qiz4wHtxfkln4/Q0PUiiLvjMs8OKDrbXkxjoZ3
K5t7TkbzYGhL+nKZBBqkV48fNE3ggQVb5NLl2zRcXGdg1f2Q3J/VleaRTMPp
TUVL5lfzYOycwvFvGTQUmzSnDn3gwc72I9M0HtHAMxufWfGZBzOkDyo6Z9Pg
Z2kg6dTNg9ZLolF1OTR42Bb9ShYfhzdbY9u2FNOQZde89/j0cdBOWD/droSG
nr3jHw1Z41Au4pa9v5SGQwcNytvmj0Nj7NEN217RsPdIUaLqpnFwNRiNan5L
g3lg0a6b58ZBf554/Lkv5PcGN79zDR+H5W7rE1jNJH4h4xv1Y8ahKE5NLPUb
DcbnDVY0pY7Ds2AfpdQ2GtZEFskx8Ti8WuqpbvKLhhNRzRd+vhmHh+dVjyR2
0pAbPS7MqR+HFTfzqL4uGrTjDPqs28eBXe6T6t1Dw8KkouqoyXHIX1MTqjFA
g3NKs6G9JB8utFwZWc+mIS1tPG/5DD7MHOz9YMWhYc5Dg/R3c/iQuynqv300
Dfsz96gmLuSDuqdNru0gDbcfnYpx1+LD+u6y2RZDpL6eFoVKG/Kh5VqGisoI
DTueNY81b+bDoE5+9ihxdO64Z6YlH0Ymr96rHaVBtsjggNkBPtQLGvLteTRY
vNjTqOTCh+mz2j/NGqfh8stTW357kN+zfWzHJ2KxV0UGF4P5YPPl5onFAhoe
z6AyJsP4ECXxa8dn4p0HPBVPXeXDj6xm/UAhDcKsN2GDcXy4UWOpzvpLw32e
+pB7Eh90uUzWQ2Irk9OOXQ/4cHmJ6AydCVL/N77U2T/hQ4HsyIynxCbakY+3
l/NhMstmYdwkDezgbpXaN3yw1ghdxyeOrzG+sukjHyZeaO22naLBcOadsZfN
fNiTtPlUJvFvlxGX1T/5sCYgO3WIOPr5tsanvXz4F7S9fuU/ks9/mWjJEB+e
OKiJHyNutxLLuSfgQ5OjpHEi8eVEe7XZYgJ4aCQMfUWs01t4NV5WAOOGQ9U/
iL+uZgpnsASweXEnNUwceuGY25XZAni89e3hSeLFn6q/iiwUwGhQcvk/4oa5
6qbBWgK4KeeqJiAO9AzOG9EXQHb7nLA+YvWSzxrHjQQwseMDu4G4Rko3psdU
ADyLoIM5xD67I6YcrQWQs0L780Vilftdni12AujgjeywIX41aNS205FY/nuT
IrG78e0tH44K4L4Pz/4jeX4qarjI1EcAL27bsc8Rl7RYLcKBAjAOp8KWEjsv
zoxfe14A319vmltL4it7UlQ8N0IAlXvFKhyJcysP+C6PFUBKo5cHh+RnP6Ow
40GiAK6bZs3yIxZzYFjPvS+ABVs+feKQ/GZne5TeyhaApUA+xonYVvB6GTNf
ANt44bvfkfqYMJt3J7JUAGWu7vOXE1t1Np08UyeAE2VU0yc+qQddnW7eF/L8
lwyLlImTzoTv9GkXAAqJvm9L6pGjYqTrQgvg7IHwm3ljJL/bM3otmELQvuf1
W3KY5DdZZE+lqhCyx52ZEqQ/2vv3V2+YL4RDuafNBaSfdC8rpOusEgKtb9FU
Q/qtoTTwgOJuIdRbzvab6CX5kW2qvXZQCOrS9HjuH5KfvdprpY4IQdfoYqQT
6WefkV+KwgAhiNv6NqeRfmcus6zvuC2E7fF2swt/kPkklcqsSRPCwHE/XfSd
xPv3sO2zLCGkxIWcrmylwfVeYtu5YiHk3mgszSHzp1ilv1fjmxAOHNKltT7R
cI1npCX7UwgMu/11gR9Jfj7f8B7+I4TFCbE9pXU0TI9Zx6scFwI3ov299jsa
HKQixF2V/wLb18Art5KGVb+/m1nN+wsBjym9V2QeSletiNRf/BfqU+JWvikn
+Qz9xpA0+AttowEjJWSeSvIWz82w+wtSQ+XB5rk0/Nf9Zm3vzb9QLDysxEml
4XzlrJCG5L/wKfSpyFky3+3SvHDxw79QJ7tulcxdGkTsZ5pFFPyFyiNnfKaR
/WFX0+Fdy778hfeDcgcfXCXzoELCy1NxAtJ4ldFeJ8m8Sd10fzB2At6Ey23Y
uJmGKzUNP8LuTkDx7JOa8WR/ezPkoKL0gHzedIVK+wYaTE1OX1tXMAHzznfN
2kP2x019eafCmifgx8XneT8Wkv5fpWmlOGcSsiPGdYzJfrvirdSYwcNJOJ/Q
lWtbygXvwZu6755MAnp2qS+yiAtPVRd62BdOwus9F7cX53JB2xN1nHs7CTKy
C3L4WWR/ZwbV1vZNQuE1026Fm1xYeKA/+YDOFHhmH3K/c4wLyvQHs7NFU1Ap
2RmygOLC7Rv4UB+egujzFsoOclxQ0c8N2VUzBS8zlzrHTCMOupW7uGUKjnXV
KnwXcmCWuPPcBuEUaOtK8BW6ODBXeXxM3fgfjHWOeA8858Ai0HhY+fofZASO
M89s4UDi2xJRcXcRdEDxp6a/ExsGfz4Loj1FkPOzpCwdcv4zF2YMtfmIoCOP
E/d12bBhVCvuV36gCFqodmjb2s1ssI49VnEkXAQpeaY9idFkg9jBOeffZYqg
ksbLnRO9A3Bs+IxIbI8ICmkWEWkg51NDtY3/1F1FUcOV8H11+/vBwv6zn7Ob
KPrWUdWjYdMPtneP9tz3FEX7BZdEvc374ZhqdN2ik6Ko429i//CqfkhUarur
dVkUfSw+/O2eXD/wZ5xcuzZLFIWUm8WnlPZB/lSW73a2KLoSaxa+WLkPlv9k
dJ85IYb2G4x0qxX9gSdZlFuBnziS40l99OnohpD2g03LL0ugHzsPL73g9Qt8
DddapsRLopAG8/hVoW0gTDVxHoiZhlp7rO7V6HyGBp9Ep1PpUkhNLmiJ3+e3
sM58/tSPe9Lo01e5I1Miz6DWdF0WSpJB6xoc5uZEPcUPn99Z15ktiz6x1A0f
nqrBSgu0PBweTUe2i3MXmv1uwo2i0mGqpXJI4l3qI/3WNlwg7Z/RUDsDxQet
KKhK+IW1lBgeztXySCvm/l77l92YjuYprvqqgFZcY3Ytqv2D2YNzK7VbFZBZ
alVJbdMf3L/T3HtJuwJ6Te96cqT9D+6eebtWrYd44vq36JE/uDVlXag0TwGt
j7WauqXWi533lI9wZRlIfZnzpqs+vXjbUdGDr5cx0OZk1+YuZh9ecOWKrrcH
A0nX2oU1bezHfl/1Q509GWhNoXjiy639+JVm54fdXgy0pP2Ib/Kufuzw2tDD
0I+BbrS121kf7seJosMPZIIZ6NjApwrX8H5MhdjPehDBQIHWMWbOdf1YzFdP
siWLgdwPTTTc2DmAbV617/rwmIG0I5R+P9k/gNMUotLxfwwUkmAYWOU8gI2f
9kDGMwb6/lxSsc1vAAcP3A32L2agiD8s9svYATx8eNrgjBoGavhYcmrTpwHc
ub+tddMfBtIz3TjHbgsbyxntyXTqY6CUsraPhjZsvHpek3/oAANx5RUSZu9j
4/Cud3IlNAPNsvOzqXBjY13PEmM9PgN5FE0zf3KFjUPO3EmfJ8NEj53iLCVf
s7FS2h6PiWVMtFM6SiNzDQcbhzWtmaXNRKVHG+WjjDjYzXW7+FpdJjJbEvnB
zYSDS5eYJ/mvYiLD/rTnMjs52Pn5mvr+DUxU1aDH6fXk4KeVSitbrJhIQz39
yux7HGzxu0lQ4MVE3QusnpuIc/GZ5dGnc3yYyLw0fuSlNBfn+lpMZvkx0Zkb
6t3L5bl49lSpSFIAE73tKHw3psLF3JkZUmGhTDQVox+hp8PF8RaBStbRTNSo
Lf2f+R4u/pk9R6/nCRPVpSqwf9/nYqXhr7kdOUy08plZuE8WF29de0O/5TkT
ZZ74kj3yHxfnvZZc+6GAiZ7+vnmxq4CLL//gGueWMdFyhqWD+1vyKqtQYRVa
x0SCvNpquT4uDvQ77DaTw0S70p0dsxfRONySe3Q9zUQba1dMi11G41sLTx11
GGKio2yxV946NC78Gn4kY4yJIgfM3RhraDyy/j/XNVNM1OU/5tljQmMv8REn
OwUKRblb2Xc70fjM99NOwUwKLRqfmb/BlcZRBRJOKSwKmf05JB95lMbZR2c6
9ihTiOI9fzPdi8a979cdDFCnEMdyv9b9YBq7xJ/bl6BHIYYcSGrE0tjvuMy+
klUU6rulpNobT+Mws9i97asptHvytEbGLRqn8e/vWbSeQnF5X+Wkkmncbv92
d+EmCi2Icl9rn0ljzuodu1tNKJQatrOt9RGNJ+RbbKfMKLTh9HvPHf/ReHZF
/y4zSwp5f03Zq/6cxns15Xd+3UUhHf9CtKuExm5TCTbC3RSKjOKbRJTS+FTz
PJu5eym0VNJ3ZWE5jRMi9HYcsafQ8mcRb0YradzEsbXmuVLIXSaqUuI9ja0L
726dGUCh9bNHrnq3kPuNOP9TCqTQJrm7O/itNL6wYlm+UjCFDMfa1IO+07j4
cbGaUiiF/Kwedzp30Hh+6pdB1mUKaT70//W1m8aG35MessJJvMQb+PN6aLxH
1XU/K5JCTpsmVA79IfGOG66ioin08s4lv/d9NOZdUbjFTKAQC7PCEJfGjOqv
lszb5PoNd5q30DReLpYiwkwk+ah7sMpykMZOIVoejBQKPVDdPrV6mMbBL0bm
MtIodNLM33PeCI1v8kqaFNKJPZb8FBml8TufLUYKGRRKcT3SnD1G4+4njGH5
LArZJl3cf5JH43/9zRnyj0l8ox0614zTWP/wEYb8UwrNsbn87x6fxCddu3rG
M/L9J4PiLQU0du8YDZqRSyFzoZ82hzhl34UuuUIKHS1r8VD5S+KTsPW2XDGF
RjZOyKcTNzUxt8mVUEix4HrhggkacxktonKlFPIq9D+UTCxtnVY4vZxCq7sj
FBQmSTyvHj02/RWFjNsKXgUSG9XoqE+vpJC4wY8TrcR7JXmfZV9TKPPGn+X6
U6T+NpVFyL6h0OSF8t+XiKPOXjSWraFQ7MNt6eS8jTNLLUdk3lHov6iwQ8x/
NK4UUFkyHyi0s95qgSXx9zWt9jL1FNoxlfwnhJjnf48p00ChdTnuTzOImc/d
3kg3Uui4H9mNiLW4uqelP1NI+ZvF5k5is+XjutJfKbTKextzlNjJrbxb6huF
Yqqf/iLvH/j0w0t3pFopVH/UI5+8f+CETitrqe+kHn6djSDvH/jZPEVxqXbS
n6WDTgPE7+zbiqb9JN8X9mr9F+Lfd9I9p3WSeigZnVlELNLsrjGtm0K17Pix
GOJZinpfJXvI9cmPvzoT69vwIyV7KXTNZmOJFvH2aAyS/eT6q0fSuCQeHu8v
j0qwSXzql0ZkEV+Utn4kwaXQ4sSkE/uJU0yVHCQGKcT0anSWIH4R9p2SGKaQ
b83PXRkk/twJjxBxHoWixf4YN5L87dtruVQwTqFjziLJDsSv85Z/5Qoo1Fxd
uq2L5P+OB1u3dZJCIo0JmV+ENJZ48+H7x3+kflaN7dhM7KXxJKJalIU0ZAK3
PSL1ZPLteNczSRYKfnsOOZD6y1llHZMhxUK2mnYGT0h9zrquY5Qkw0JOndzz
o6R+B03phCszWGh6phrLk9T33TyfrQ5KxLlly/4N0Xiags34LmUW2hfCfc0g
9vHQe7BFlYXGfwTmzyL9ZKYxPKmvxkJPTofHK5P+G472fz5dk4UCCkMcC0h/
Huzf5SC6mIXecu2yI3ppXGOqP318CQullCRY25F+Tp4Yde3UItcLvZO+kf63
8AhQeaHPQjmX5B3Ok/mQV21X/XQNC3G6rx1XaafxXA0DvwdrWSg6cPRrJpkn
I83j768bspDRcGtxTsv/4h909ogJCxX1aVe5NNFY5t4+LXszFup9L8wu+0Tj
ExPrWmwsWOicaMaQQgONt+QJVxpZsZBl/eqbyR9oPKoe0sOyZaFZDjyLg9U0
dgyxj5OxY6H8k64Lg6tIfTUbon97SDx3qDldr6BxavTknf4DLLRtu4UwvYzG
WydCt1W4sNCS39/eeBXQ+F7z+XwvfxZKmHVd7859GvdUr+iIPslCQlRYJH2P
9EN+h0zOKRaaASbbvVPIfhRj5EifZqFL7MsFGndo/GGLQMbnIgutc2jynx1N
Y/5LH0ffm+T+NjruLgE0Nn48L/LGLRbSrdvvYuJP5u3t+vznd0h+G1pPz/Gh
sfxJLdnhZBYKjHCbnutO4wU6vfl+GSx0ZsCq3M+ezKc0R9kTRSykKC5qYYlo
HB8tvzr+BQu1WjfeSjGkcUtImWP+Sxaqaz6s1LeWxq77ZheMYhb693Raiose
jYOoZseTNSx0eaW6OK1B4wcXrQsCWlioh+2o6CRKY6GbkVPQXxZqrIuMzXtB
9veXy9DJSRaqev74PCL7+d0ZKuq+/1jI87hkV/UzLjbMHe5wE1dETaFfREoy
uTj0b6bj3umKiH1Gp8b8JheLR1OOBrMV0ZMcy8tCLy6Wy/tzcGy9Iqr4b7dm
9Rwutpf8YjRkqIg2f5ib7qzMxU/2VKpxjBVRHcUv4jO52Hoi6Uf3JkWUGLsi
X16Ki2NMdx78vFURZaacVOwc5GDFb6X2efsVUW+NZtbiKg5Wm7xxwDeY+E+i
6lpncj7q3PbiVogi6qzP03U9wMEn3sool4cqosLBxndXbDn43Y3zjbIXFJF8
E+t2gRkHByzy3fLgqiL6caH4TfYyDm7YvsOgOUkRnZewMZIYYuOwdHmWEVZE
rcVKu0+cYuMe86vvpCWUkL0jZ9XHYwPY2dJJXXOaEjq3JVhP2WUA/7BeHbBR
WglNCH5F7yHn1c+7OzSC5ZRQj66Yf4XFAK50WRU0oKiEfisjzfWaAzj5bNvi
ek0lZDPq5VDxvR/bFi2/FGeuhO41HBhfa9aPqxZ9gLlXlVCzy2sNZ/E+7CGd
IaEhMxMFmMpurXPswUVpC42qbsxEUmXaHqUaXbh+g2H1TqYyuuxXUl11qwPz
Pe7ucopWRrpFtiVv477hmh2pu2fMVEGT7d/eqkc3YOd1hpmZ8SooKcA+Sy2p
Aqd/O+P5S00VvXe7tC7pqA/WuixsGiJ221HlNqXpgwtXndogNlcV6UGXdkWN
N34f7SO7gJjpcOjnlkovPGrikuVKzChw1j5Q4InNnlt0/yG+wJXwPnPXDfdH
sOy581QRXaNR9+qoEz5hEFM1RdxR3TwoU+uIp7rlliuoqyIPl92msZUOpJKn
CXWJY17b9KYX2GNDHv+WL/HOjStVXt/di6Od25tGiZMDsnSmue3AKowDGyQ1
VJHSVEPznCprnF7WnK5EXPrEcod2oRUuUvnku4bYpbRkg3WSBf5ZX6UQSPy2
zVQkxg1hjxB0Kpz4mELFd1RkiEeXlrXfJi72YRUdSl6LpS8VPnlBfHX1gqP3
3Vfg2JWrlN4RK6p8CQ5PXYLn/MwJaSV+f79a890xdZxxTau7n9hLzCRV2YeB
9TY8svxLrKl37X//d5X/H+pL0WU=
     "]]}, 
   {RGBColor[0, 0, 1], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[CompressedData["
1:eJwl2Xk41N/3AHC7GVvZhyIpJUl9srSge1IplGihbJUiSYWKPtKiiDbZkz6h
RZYsyZ50kQpJypIlhZBlZq5dSH7X9zf/zPN6Zua5955z7n3Pee5Cx1O7nPh4
eHiyeHl4Zt/5sUj1T12/Dbkzsy+C1Hpf6yuHH0ACeiLz/lBPPl95pCnsFMrL
O+E2QJ05huol073RA7sVI9+ou2RcfueGXUL57TtelFDfUigXTy+8irR765/G
Uj9Vt4vjSQ9ErpMfP5+mLl4zsGp3/E3U5gfaG6mbjf1LE8LuoI2f130Qmh1P
Q0zDtzQUHVhQfq/sL0GBqxs8EwrD0fKgqVgfapn18YXV2ZEoR6y7WZ364UZX
gd9pd9GS8Ps7Pk0TpGWis2Nh4j30svuf8RPUhRZ/I03j7yOcV/xVgLr+QNjS
B2Fx6KTYqg3z/tD1aGut/fk2HpUdMymLmSLIe034N+/Sh6h+vMpPiloA2as9
LHyMulbee9w3QVClUWmFbv4TNNG8jGFGHWq89GRldgJqy89+8vg3Qcrmg7nD
aYloc6f9NcNxgjotrWyDUpLQ0v21Hy6OEfRsb+HM/MRkFLFz0CR/lKC19gHb
jOOfId6fvQPSIwTtclNojg7LQLl3bpMTAwSJrUU4autz9KRwYsadEDRQ4CHZ
/vY5smh/a+rGJSi3qCHnbGkm0i2/EGLGJmjT2/i/sYVZaGVa7c/UXwQt2Vpr
0bsuG8lIxVR7dBMkUiH4WDs/G0WNDoxqdRFUU+W6tTw7B906fGsqtIMg+zqd
kMG0PGRTHdQ/+Y0gsDraoa+Zj7rb6t74tRC0uPGezrWUfOTTbtPC00xQX8vf
RsXEAuS68XbFrwYav5/lCzfHF6KbmhvT9tXQ+AzZZUWFYbThWinnXQlBt2Vj
DIrFi5HN+QnXREzQl8yABbq7ipGplUftxSKCbPvsupRbitHa0FgXqQKCTtqK
egyxS5DFlm85VRkERRi6BN2bW4a+p9acDr5PUFPT7uMSe8tQyeumkdZoGn8v
ZH71XhnSqtN3WxxFUGK6nMwJ1bcoNH35xqgQgl4ueBsHOu9Q946VMeIBBP3g
Vc37ZV2OFij9KjNzo+uLFY+x+68c/ff8mYToMYJc1k/4fm4rR+bzvO1KnAga
8qwxKjxWge4K9whLH6D10XmxOvh8JbL6q15gakmQxruWLt24KhRit9VJTIcg
/bemIkana5BSq/bxtiEumlv39NOa8BpUaPfmXhWXizo7+CJXZNUg41chkpl9
XBTMU7hAYbgGxZKZNscOLurQX6474PkZnQ23nu/6mYuCXogejPX8gq7Ge44I
p3NRQ1xVzqRHHbJ9zha5foiLnqWrnx8IrUMG5w9fuWzHRZeL/KE7sw5xq8KP
ultz0bIWgw+fB+vQsXcrL6/bwUW+cmltSR71aGxUTcJjLRctun1b1NqjATlP
vS7xEucidx/zQ1nujUgxMHZOdyYHmZ40SGKENKJI7vF20VQOWuSoQewzGpHD
8htRGk85qMFE6AKD24h2iDs83xXDQYYKr6PtjzchPuUtlTuucJBI/ooaYedm
NNmV0TJgwUEJo2LIzvYbWnvn0dBIDxudyHcK5lvUhpQ7NtiYC7DpfrZU4dVp
Q7ciX+6R+dOPBpoMXsxsbkNRdQmuX4b70Zkp6YY/zm3IXkh5SO9nP/LZUKo0
ntKGQMI682FJP7pWppzWv7oduf42EOK50I/ia75+qDPqQM5WGUsHOX2orseE
mejYiToq51joFvSiGyvHeHL396BMftM7vpq/kMfy8sjiBDY6MJUrXsrXiSYP
H09vPTmAtF9sUp283YYci6wsQpyH0Onw7n/nLG5GhwfriouDRpBu7xUXm8Vf
0K1VeaeeXhtDO8b1Bue+KUN8xXlr/H1+o4sRk05OnCdIUsOs+kf0JGqx1Ynp
ccrD2+KMHg+E/UFSHSfTz1h+wPKkyvhS3l/Uuz6uO6OjHse8f8nLf4wHKqr7
6nBEKzZQ2jijcoQXDln/HDq9pAMvb5vbeeEMH5wzuHWC6duF05KkXHI8+aGu
85XX4Y092L8eb+T35gf5VJ/KmO092I7vxDzL8/zQYR0r+8G6B4vYva9mX+UH
OaZagNzJHuw8x1d3cSQ/RA7xntoX04NVvLr4wvP4IWBi2+OAwR4csSn/gfsf
fuBdEJJwKqYX+363r11+TQAG3i8ubarvwyNbDR843RCAfhWtVaI/+rBb5vyj
ccECIHHmh7JuTx+29W+ZlLorAG2DvGc8J/vweo39qpOJAgAq2rlhyv144uwe
j/IKAbBYEeVy1Kkfe4mbzXESF4TXpbuPWnD6MddLoylWUhBstNQW3B7tx85t
zMeNsoLA49/LLJ3ux1ZZ5XrblQXB+sDiUzISbKy739hBe6UgLFP+tNZWi41H
nmxM47UUhOx5N2pPnmBjD4O1ZrERgsA/0cKN7WJjnpMRl+5EC0JdyNitQ2w2
Do4byLr8nyD0dkqrKQ2zcQpf8vzDTwThimW1wSUeDu4oV+AuzRaEsK/d37iK
HLxn71RIZq0gKL129fEx52C9k68byqSEwMDHwnbtcw4ui1MUzZUTghvRC1fJ
53Lwrs9eKFFRCN46TX7kFnLwSZ2VSddVhcCOxToQ9J6DEyfj/jVfLQS5pwoy
jnznYFag3/xGSyH42CHYUCzCxZNxmx37Q4Qg6rs8mbbn4g3jhmH/RApB6v3k
OvvDXOxnvqbU+54QeFgniOe4cDFjepmqwCMh2KBddtrkNBfL2szpmJ8lBGkr
bnUzg7h4lUzzIfN6Iehr/6zUk8HFp4/XhkY0CcHaUb+gV9lcnFtaVdLcKgS9
fw+tDCrgYkMPvPBotxBsKl6vKfiGi02rn7RfGhcCyY/RryLrudgp6NShTAVh
ePQ2VGruBBcn/XAJHVcShpvXfR5aT3MxW8+xxFBVGHqSmqyjeAn27NqzsFJD
GPJzF+tNMAm+bLS+vUNfGEhZ3N09igTH/BE4JONAv79EiH1wHcE17jEHvR8J
w67iKvNyd4I1QuZOnXkqDOc1kzWKThN8NeNapGeKMJx9P7M6xYtgPa5n5YkX
wlA/ov3OzZfgB8fNdI6UCoOdQU1HeCDBrs5/hC07hGHy44ztsf8ILgvwfGTe
LQx1p5xS22IJVkroMdjeJwxftl1XtnhIx/9Z57F1SBhyxB86yT8leM2htBZD
PgaMRkac3JpBsICdQ4aGKgPwdhZXs5hgh/N1JupLGMDUHZZdUkpwXoxpp5oG
A5SD3lrJl9Hxm/QUFq5mQOi5wws73hP82WrOVXkjBmwb9v7I+kTX5xWgJGvM
gHs/hjO+1BDsHzmVJ2XKAIczxYn+XwheW/eLLb6LAVZxD+pr6gmOtSy2EnBk
wPAdmQUi3wj+7a43yOvMgGM3s+P9WwneFZJ6c+YYA9Iu+eqMfydY8FN08aQH
A2JOy4aWtRPstt1DY9CPARljn2V4fhH87vivMm4AA1ZYiyjr9xC84Kb9AfZ1
BtRuKdY72UvwlwqTiF+hDNipfDbyVT/B67aq/m19yACD+4t4JgnBOo8rg94n
MKB7OjF+YIBgrRlP6cxkBggXxT34MUiwat4bdf9MBqQECKU+HSZ4vrRb1okc
BogXMooujhAsd0pmg3UBA0qePFm2c5Rg0aVOuzVKGLBWuFOmaYxgoavi36Xf
MqDLdFl42DjBPD9yXKbLGfCp0cxt82+CR6KELtbUMOBqwGWt0AmCuUPpjJd1
DHg2Z5O85iTBPebW4Y8bGfDt5SYbTN0qlJTk1cYAhWNnuNVTBDc6Wmgf7GSA
2r+Hkdkfut7Xv4tMehhgUibRh6mrFB9u02YzoOKwDVdzmsbLy6R2/gADjLZo
bg+jLv4yaC80woAXGm78A9QvtWJ6yDgDLqTwyxj/JTj7htHppikGnFn5/UIE
dUZ333TpDAO+/u6BFuoUo/CgVH4mOChK2yvOEPwkVl86SpgJer47vlhSx07+
fHBJlAkSLTfi/aijrW6pH5vDBMly/D6ZOuyFTtYuaSaQpI6tldS3JFoNDeSZ
8C2vX+Un9TXXgHK1eUwI56/fNULt927F7jkLmLD/VEzrNLWvakPrb1UmTLxY
V0L7B+x18aJLxxImVNm8mJ6gdm9eMvxBgwkv3guGs6ld9T5dyNFigtzKNX5f
qY+EeTPiVjOhP8as/CW1A3dBeJAeE9J6TVyiqPeZlit5rmeCffX6Q67Uu5+6
J9luYMLlGvUsPWpzPgXtLUZMUN6u4jBF47HNoaRIy5gJhR4rHfOpjV4e28Yy
ZcI+Y2d8gtpATqqW15wJbo8bzs6j1vN8ad9vyYROvYiAEhr/VdWOPXV7mSB/
NZt7gFrtWtZ0oj0T5p31/RhA86nSYRsUeogJUVv2bRKnVtwgIH3eiQlSi2ek
btN6kBjbo25+ggkClzWKz9J6YeyafrHGgwnxlYMPvtP64ktPMFx4lgmXipgN
iHrcaWzXiC8THu15u7ef1udQSWxr62UmBB99+UCXmq201eW9PxN+zzyCc7Se
2+rvXoi5xYTNhYLR3bT+K7asS4L/mFAXfC7sKN0v595f1LoUz4Q3aqKlB+h+
Ujcpyy56woRc5W0j5nS/Xdu+s2R9GhO+t40dkuIQvHm3U7POaybsGtU8voLu
35G6lIOnS5lwT0eooLWb4MdWA92Z72g9sfXEArro/G3OD2t9YsKhfWpl+R20
fg+Gii1rYwI7xSMgm54n7h0NYUc7mRDht4qp1ELPgyPzFZ72MIHzJDLSt4ng
i0cT1RYNMuGrtkalSgPNx8miDUp8IiDqzMmYrqbn3/led8nFImBqlNzOxAQ7
T2uN71QXgcFUI82fr+h+v3TmQrCmCNjuEAjKeknwmSsz10V1RWCo7NzZdbkE
r74u+1jQWAQiHGbWNacSnB61sX7iqAgwEq7xuEfT+mIF2q51E4ELzeOpLyMJ
Fo+pavdyF4FN5VFn/4TR8+2BNXf4nAic+enl4HSbnq9PTghzr4uAxOupJ1V+
BCdk3lvX8UwEtqxaigddaD1P2Wo0ZohAaMXqR91OtH62KM+rzhKBXyclamsd
CX7V+OhPQaEIXF6hv/CuHcG1M89w6AcRsF8z4V+yk2Be89dbNvaLwL6ilPlP
dQi27+uwjNcQhWsJof7Zv7lYVSfBKEpLFFK6swuzR7i458JR7VurRaGFedQu
bYCLz0iyZc6tF4Xjwie+B/Zw8c21o193mopC9KF5vB1fubjgmrDDzDFR8Mkc
TlyeQ5/vizRdHZJFwShglcx8Vy4OCbtplZwmCs55L9aUHOFiEb5+o5FMUTAb
HYmxP8DFPO3J8268FIWPkwNLfPfQ53Ps0o85H0Qht+3rZYsNXFymuGiVOFcU
Ak8tSrCeS+cjpThWuFoMtswfO9efxsHE798OoTViMHgg9t35RA52HWysttQX
g2UXA27wP+TggzV3E39tEgNFvWu+E+EcvD1Ydr/0XjGYc1Zmw6V/OXiRiOQr
V28xSGdf6Ro24uAvvIwrCq/EQM7OMffOJzbmpt1zsCgWAx+1d8m65WzMtFmu
H1gmBouWe8bXFrMxvDAfGakSA1D6GjeeycbpjpHONa1icLm5SKUtnI1vvlE1
C5wRA98X/ry6Vmy8OcBQZtRIHBYbqTtP1/XjHMbppzUV4vBO1ELsemEf7vb1
47z+KA6p0blH21/0YdbgHZ20z+Jw1VDYUjulD/s2pZZebxKHw9qV9W+i+/Dm
lO7vRr3ioOrT1XH3bB/+YmYjn8OQgD16Ez3iWn14IHhj0L2tEuDz0LId6P9n
Tdm5ro5vJUBi+SebjQd7MAkek9FumAM6Kf+umuvShRcFBq485ToXJoKl+K+a
duAOm5Zmo19zYe9NL5MKdive1lU7kXNSEqJLY75i7QZ8ztPJRY4jCUkfH1e/
NvmIzXPvm8p5SQFMvGoI+ZSPuX9cffnHpKBydYaT6LX/0MOvftknT0uDuPRe
76Llb9Cki+HBf6ekIWSDng2z4zNSmg619fCRgftFOfI++5pQ99ablQwBWXg/
ExqYebENvVlShZRvykLSTpfPtqM/kSvjqcBCphzMf/6oI6+tG+XFLzZ8EyoH
am/snZOf9qLFM5vPl4TLwYgRpGk970Uh9k4FOFIOIg7ahqfRfsxF8anuq3ty
MPixWju6qhcpRizVynkoB3M/ivirDPUi30CNBYmZchBmL2czpd+HjE6u4r35
WQ5e/yJDFZV9qFrf4O0uSXkQMHjca1HXj27kn50ylqauK50U+NaPtupm/KMv
Kw+mRUznF7R/LNZSjV2kIA9CaoWbJob6UdZChveIijxYF5T16EmyUbRwnXrU
KnkYtPHc6r6djQ7XHr/VtFMexId85n0qYiMVi4TSj5byoBbSzP+sjI2+VX3/
XbJbHkRetkpc/sBGVu8snVKs5eFzt+k12SY22lawZsP5A/LwiPfKR84w7Xfj
+Afmn5KHq5l1+3apc9Bv1/u7DwbLw/zDPpFtNznojs9j4Ush8tDcLpt9IIyD
ltx4VvggTB5WhZr7N0Rz0N7kwkUtUfLw6b7V6mcJHPTiV8vw3jh5eD5+IWzg
NQe5HZkfYfZcHsK+v27sJRzUZv+gTu+LPLy0tUq4YcZF3icSgvbW0fH+uRH/
x4KLJC6kGZxpkIckvs/yzlZcZPhf0ZPMZnmY5xhwZsEhLoppbj2j+VMePiTf
ebXci4v2WCvLqo7Iw3FHhJJjuajcIm6vuBwLQsL1zbV6uci1rOu1MIs6s+mC
EYeLxNdqqvMpsqCjW0Vp5yAX7VpQMDmmxILu3blPLSe4qIXzJa5NjQXPJPMq
pxgEcW8I9WXpsqC0e8Tv5xKCQv5u352+hgVxK23XXdQgSNsz/FXSOhbk5rlb
SmoRdG6/yp0HhiwwX6YZr6JLEJ/6ep3ALSxIu/4j7qcRQbJvT1y02cuCbb7/
nJy0Iyh/bfavPdZ0Pt/yPygeJMgmddJi534WRH794qt9mKDY8MBFm+1Z0MJT
0LDjGEHqjg/LVzixwEM+ZM+SswQZzNRJ8Z5lQfaVJ41ONwn67jnPd8qLBek4
lCUaTJBf96Gu0XMs8NtfH58UQtC7j9y8Pl8WrA/6ElgVSdDO/xj2df4sUG1Y
HZsXR5DjOoPExAgWMJxWHlV8QdAPZBlcFcWC7+jRpEc2QXbGzmcHo1lwJJ/r
UZxLkNXukE36D1hw28edaVRIkOmJzh/VCSwYyV1R+fUNQe9PT7wbTmSB/UMP
1+63BG32kUhnpbAgc83N3v73BG0IXOvrmM6CCET8Wj4QtPrhLdZYLgva730T
3VFLUEbiwxnFAhZ4OSmFS9UTpJme240KWRD28etIdQNBSwrbsq9jFnzYU7RF
s5kgxXodS6VyFig8nZjzbxtBd1tM1hpVsuCP9WP70XaCZDocFhytYkFwhdQV
l58ESZAgzvMams+pmB3a3TRfzNbrm5tY4HZ5e6dNP0GX5gy5H2uh808Sb73N
JuiPrPC+4FYWlC+7npzHIWhM9Z8lje0sqI20fUUIQaeXGYtP/6TxM57D93eA
oIGVtiMLu1kg2aKnyD9EUJ9BQOnxPhY4Qn7x4DBBRzfFJIewWTCfXDVvGSGo
0yQjJIfLgpcoMa1wlObTqslhZogFWUGj3w+OE2Rrz92yeJQFHJ/E52q/CWo8
zL/CZJwFvXx4Vzv1F/cVU2FTLFhcYyJsOEnz623UkTfNgmbN/Qqt1FUXrCu+
zbBgn7nQ1Okpgkz83Z7z8imAZLNaKu8fWh83/O4uEVAAN4U7mteoN4VGXTQT
UoDmiXm+vNMEFd995uTOUICvYskxp6kNY4u3R4oowN9A2aBv1C+f1Gu/FFMA
0S2bNhv8JWjNsz7FHxIK0F0i9ymMOjtzhldAUgFSVbzV26j/yZfpVZdWgJyl
5haLZwhKf72sZoesAtzfGGR8gHr52w15nvIKABdkREOpkz7sjr2roAA1tzsf
FMzeH3xxCXg1TwEqKtl/G6kfNV5wa1dSgOmVi7UItea1ydpB6kufnmTNOlfb
W59PWQEMDEXXzN4vfAh2F1lEvfXq9TWD1CObDycdoc7NN1swTH1x6Mecs9TL
KybDZ82It/MOoI5JvCNE+xOkNLXX+Cm1abVr16yNM7d1/qJeXNp9fYy6xuGt
2W/qhxvLOLO2ETPKYixQgLbgwJ3j1KeO6l9ZRn0jDIv9po5W0lI5Tv3LcPQE
7WeQ6oeUwPPUFRq8JbNOPbeU3KQ27BqSnKQuqVV5nUr9vjQwbdZ916XtuNTN
C7w/TFGfWRPy5i916blM8dn7lb+dYsvnqCiAfNznHbOWBqHJldTDu9+8n3Us
58ohoPbsiOCl/RZSvz9TbkG9Y8P2dbM2GPt914Oa6eD2aNbvHp+d8aPuWFhf
O2sLyyHnMGqRrEX8f6mdUvt1s6jXGHraznpgv8uDN9R6ep7+s/YR7hKooz73
x/rZrIMdv9eOUBcM1A3NmjXXVl9woQJkKbtJz94XPSr6+kiW+pdC7z+z1jy+
R2QJtWWHmfms81ifPfSoB70jXGZt9G5HkzF1WXPp5VlXna4Ea+oKka9Rs7Za
uDXpKPVf4c8ps26rfjPnHPXhL89fzdrVF7yDqEePeVXNemRZ0fdo6uzqhc2z
vvh1nXEydTxPVtesGQG5aQXUuTPLyKzDVmvLVlKPf7g2Nuv5bRm+zdSOThVT
s356W7Oz73+fD/6d9T/6yWZT//v9/9+P/R+T5ecD
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{0, 2 Pi}, {-1.5, 1.5}}, {{0, 6.283185307179586}, {-1.5, 1.5}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.4492341992466593`*^9, 3.4492342249768143`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Combining Already Created Graphs into one Graph", "Subsection",
 CellChangeTimes->{{3.417729171566187*^9, 3.417729178113818*^9}}],

Cell["\<\
Sometimes you want to be able to combine graphs after they have been created. \

\
\>", "Text",
 CellChangeTimes->{{3.417315302050076*^9, 3.417315321039523*^9}}],

Cell[BoxData[{
 RowBox[{"g1", " ", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{
       RowBox[{"-", "3"}], "Pi"}], ",", 
      RowBox[{"3", "Pi"}]}], "}"}], ",", 
    RowBox[{"PlotStyle", " ", "->", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", "0.01", "]"}], ",", 
        RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}]}], "}"}], "}"}]}]}], 
   "]"}]}], "\n", 
 RowBox[{"g2", " ", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{
       RowBox[{"-", "3"}], "Pi"}], ",", 
      RowBox[{"3", "Pi"}]}], "}"}], ",", 
    RowBox[{"PlotStyle", " ", "->", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Dashed"}], "}"}], "}"}]}]}], "]"}]}]}], "Input",\

 CellChangeTimes->{{3.44880031025688*^9, 3.448800330318409*^9}, {
  3.461268033666586*^9, 3.461268048869175*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"g1", ",", "g2"}], "]"}]], "Input",
 CellChangeTimes->{3.417727394074214*^9, 3.4177275490721273`*^9, 
  3.417727706602454*^9}],

Cell[TextData[{
 "Notice that ",
 StyleBox["Show", "Input"],
 " allows options similar to ",
 StyleBox["Plot", "Input"],
 "."
}], "Text",
 CellChangeTimes->{{3.461416812167366*^9, 3.461416838869831*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"g1", ",", "g2", ",", 
   RowBox[{"PlotRange", "\[Rule]", "3"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4614168412645407`*^9, 3.461416858217836*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Displaying Several Graphs Next to Each other", "Subsection",
 CellChangeTimes->{{3.4177279445427933`*^9, 3.4177279597927*^9}, {
  3.417729156421788*^9, 3.4177291620379877`*^9}}],

Cell[TextData[{
 "Finally, we can display several graphs next to each other, using the \
function ",
 StyleBox["GraphicsArray", "Input",
  FontWeight->"Bold"],
 " in conjunction with ",
 StyleBox["Show", "Input",
  FontWeight->"Bold"],
 ". Let's create some graphs for display. Note that by equating the Table \
output to a list of variables, we have given each graph a name. The graphs do \
not have to be created first - they can be created within ",
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["GraphicsArray", "Input",
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Which method you choose depends on whether you want to create just one \
display or whether you want to display several different combinations of the \
various graphs."
}], "Text",
 CellChangeTimes->{
  3.4177280265391827`*^9, {3.41772843201161*^9, 3.417728485328622*^9}, {
   3.448800391335478*^9, 3.448800396758168*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"g1", ",", "g2", ",", "g3", ",", "g4", ",", "g5"}], "}"}], "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Sin", "[", 
       RowBox[{"m", " ", "x"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{
         RowBox[{"-", "2"}], "Pi"}], ",", 
        RowBox[{"2", "Pi"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"m", ",", "2", ",", "10", ",", "2"}], "}"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"?", "GraphicsRow"}]], "Input",
 CellChangeTimes->{{3.417727742507133*^9, 3.417727758280143*^9}}],

Cell[BoxData[
 RowBox[{"?", "GraphicsGrid"}]], "Input",
 CellChangeTimes->{{3.4177277774472427`*^9, 3.417727780143611*^9}}],

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", 
   RowBox[{"g1", ",", "g2", ",", "g3"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.417728322798374*^9, 3.417728327629951*^9}}],

Cell[BoxData[
 RowBox[{"GraphicsGrid", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"g1", ",", "g2", ",", "g3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"g4", ",", "g5"}], "}"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.417728374306559*^9, 3.417728375879202*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["ImageSize", "Subsection",
 CellChangeTimes->{{3.4612681686759863`*^9, 3.461268178411922*^9}, {
  3.461431424800775*^9, 3.461431426214672*^9}}],

Cell[TextData[{
 "You might find that the previous graphs are too small! This is because ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " by default displays any graphics in a specified \"display window\". If \
there are several graphs, then they become smaller to all fit into that \
window. As we have seen before, we can manually adjust the display window  by \
clicking on the graph and dragging one of the handles after the graph(s) \
has/have been created. However, you can also manipulate the image size by \
using the option ",
 StyleBox["ImageSize", "Input",
  FontWeight->"Bold"],
 ", which either fixes just  the width, or the width and the height of the \
display window. The default width is 288 pts= 4in (for the width), where 72 \
pts = 1 inch. "
}], "Text",
 CellChangeTimes->{{3.4177285156290417`*^9, 3.417728718351774*^9}, {
   3.448800563520974*^9, 3.44880059718515*^9}, {3.461268226162232*^9, 
   3.4612682301926193`*^9}, 3.4612682703393307`*^9, {3.4612683288125887`*^9, 
   3.4612683301207657`*^9}}],

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

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"E", "^", "x"}], " ", "-", 
    RowBox[{"x", "^", "3"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4488006396020184`*^9, 3.448800664383976*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"E", "^", "x"}], " ", "-", 
    RowBox[{"x", "^", "3"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"8", "*", "72"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4488006396020184`*^9, 3.4488006722347*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"E", "^", "x"}], " ", "-", 
    RowBox[{"x", "^", "3"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"2", "*", "72"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4488006396020184`*^9, 3.448800681018353*^9}}],

Cell[BoxData[
 RowBox[{"GraphicsGrid", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"g1", ",", "g2", ",", "g3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"g4", ",", "g5"}], "}"}]}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"6", "*", "72"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.448800705073883*^9, 3.448800718489284*^9}, {
   3.448800767340013*^9, 3.4488007837115517`*^9}, {3.449245715247487*^9, 
   3.4492457246289062`*^9}, 3.4612683422901506`*^9, 3.461268397931188*^9}],

Cell[BoxData[
 RowBox[{"GraphicsGrid", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"g1", ",", "g2", ",", "g3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"g4", ",", "g5"}], "}"}]}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"12", "*", "72"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4488007509831953`*^9, 3.448800752943372*^9}, {
  3.449245728253262*^9, 3.449245737518692*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Practice", "Subsection"],

Cell[TextData[{
 "Find a ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " command to make the following graphs of the sine, cosine, tangent, and \
cotangent functions from 0 to 2\[Pi]. Make sure that your graph displays at \
roughly this size by using ",
 StyleBox["ImageSize", "Input",
  FontWeight->"Bold"],
 ".  (Sometime we will have to discuss how to remove the spurious vertical \
lines in the second graph.)"
}], "Text",
 CellChangeTimes->{{3.4177293096764917`*^9, 3.4177293426409883`*^9}, {
  3.4492477746825113`*^9, 3.449247784170315*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{}, {}, 
       {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwl2Xk4VN//AHBrlsTMHUKlqLRaUkoL3qeyFSklbUKokKwlJJU2JAmpZEuF
8illTzghRUWiEopCsszMtY6ZCf3O9/n9dZ7X88y9M/e9nXOf0XD23nlYTERE
5JmoiMj/VnEsW9+1+rwxr/z/V82+8g1z4xzhVkHzyByyCp/purbEeoPvzXyT
z2T9rejGL4w9C+ceVQSnk7XV7GLlw9jroHY+7cMusn5xjF2cHJsKa0xn2O6+
kQo7PVVbb8fmwGosLAu6lgM3hu3zEmIxrFV6ZKIWimFD9VbZTf4NcKm0zFTW
tAF8gq0P5fl8g6JTVfqlLc1wvPhwtNiCn7Aoe+5HC3Y7fO7dIpPp3A3dPS37
qqW7IFKXJ1K4rxc0pB6LbmX2gO/ympuvHrJB4P92dTa/F7oPd59LK2SDb0Dx
gtXifWCXJuJ57i0bnp2boVY8ow/WK63bhPrY0Oikv+jR/D4Q+/eIi7U4sKlv
5kYDqz6IbbxqjvM44Hw0XVE0pQ9yg7YLyiq4YN3SfNLAsB+ELsee/vAahOyZ
vfW3nAfAiTkSWBowCKX/Dsx74TEA1eXBm++GDkKsa1xdk98AxKhGftsbPQjF
lgEbxsIGYPHHLLHPTwZhjXXkot70AbBd32P3jj0Iz100r0b9GoCnjEP/Cj2G
QDXB9njlPjYolvfW3vQbgowKsdrph9gQdMwn/kTwEFh+bzWzdmODyZuzS1dG
DoF/k3h6eQAb2k6n7HryaAiu5/o9tIpjg/Sftsz7vUPw3kTeac57NjiX2e2I
OTIMl3djXuhqDqwsVKFUvYfBj7cg0t+QA2I5rU33Tg1D0PwVHxw3cyA9zWFP
Xvgw6Nxzsp1nw4HOC0ccvj4eBoP0G8brPUmctgZ4zqGH4dXakLofacTNN8Oz
To0A49h6Tr04F1Y27Nmqd24EDnY35xbIcEGsVlWuJHwEwl2L2HEKXEgvSb7+
/s4I9B24UbhmNhc6kx8mcF+OwN78qyeUVnLB2bXggb7IKPys8lmxxoELLkOf
X70KHwX3MPcOQQ4XnIJj9hTHjEJ77hyX4Hwu2ItbcXNuj0KAQd2WkWIu2ClV
zU7NGoXopOIN9SSPFuueB5ypGYUO8wVxS5q4oHP+mtZ66TGQmfyk4TXKhWWy
W6r0GGOgluhpe4LPhcVxEvuXqozB6+KlLX4TXFB/ePqKypIxuAbKX/ZK0MCq
de/kmY+BcUzI6RoWDXyG2e28K2OwJjvp6Wo9GkbviOpmXx+Djvd5Ma/0aRia
X1adfmsMwkSFBZvX0tCvrz9yI3MMihvuvFkJNPzYO9/a5+0YiEYa9eZZ0VCZ
NiWuLcUDLlvlxMYjNJQvLUlcqMCD2pOfF+5wp+Fl7km9Oco84FQUTt/jSUP+
a7bD9MU8oCWHArf50ZDZ2/qiz4wHtxfkln4/Q0PUiiLvjMs8OKDrbXkxjoZ3
K5t7TkbzYGhL+nKZBBqkV48fNE3ggQVb5NLl2zRcXGdg1f2Q3J/VleaRTMPp
TUVL5lfzYOycwvFvGTQUmzSnDn3gwc72I9M0HtHAMxufWfGZBzOkDyo6Z9Pg
Z2kg6dTNg9ZLolF1OTR42Bb9ShYfhzdbY9u2FNOQZde89/j0cdBOWD/droSG
nr3jHw1Z41Au4pa9v5SGQwcNytvmj0Nj7NEN217RsPdIUaLqpnFwNRiNan5L
g3lg0a6b58ZBf554/Lkv5PcGN79zDR+H5W7rE1jNJH4h4xv1Y8ahKE5NLPUb
DcbnDVY0pY7Ds2AfpdQ2GtZEFskx8Ti8WuqpbvKLhhNRzRd+vhmHh+dVjyR2
0pAbPS7MqR+HFTfzqL4uGrTjDPqs28eBXe6T6t1Dw8KkouqoyXHIX1MTqjFA
g3NKs6G9JB8utFwZWc+mIS1tPG/5DD7MHOz9YMWhYc5Dg/R3c/iQuynqv300
Dfsz96gmLuSDuqdNru0gDbcfnYpx1+LD+u6y2RZDpL6eFoVKG/Kh5VqGisoI
DTueNY81b+bDoE5+9ihxdO64Z6YlH0Ymr96rHaVBtsjggNkBPtQLGvLteTRY
vNjTqOTCh+mz2j/NGqfh8stTW357kN+zfWzHJ2KxV0UGF4P5YPPl5onFAhoe
z6AyJsP4ECXxa8dn4p0HPBVPXeXDj6xm/UAhDcKsN2GDcXy4UWOpzvpLw32e
+pB7Eh90uUzWQ2Irk9OOXQ/4cHmJ6AydCVL/N77U2T/hQ4HsyIynxCbakY+3
l/NhMstmYdwkDezgbpXaN3yw1ghdxyeOrzG+sukjHyZeaO22naLBcOadsZfN
fNiTtPlUJvFvlxGX1T/5sCYgO3WIOPr5tsanvXz4F7S9fuU/ks9/mWjJEB+e
OKiJHyNutxLLuSfgQ5OjpHEi8eVEe7XZYgJ4aCQMfUWs01t4NV5WAOOGQ9U/
iL+uZgpnsASweXEnNUwceuGY25XZAni89e3hSeLFn6q/iiwUwGhQcvk/4oa5
6qbBWgK4KeeqJiAO9AzOG9EXQHb7nLA+YvWSzxrHjQQwseMDu4G4Rko3psdU
ADyLoIM5xD67I6YcrQWQs0L780Vilftdni12AujgjeywIX41aNS205FY/nuT
IrG78e0tH44K4L4Pz/4jeX4qarjI1EcAL27bsc8Rl7RYLcKBAjAOp8KWEjsv
zoxfe14A319vmltL4it7UlQ8N0IAlXvFKhyJcysP+C6PFUBKo5cHh+RnP6Ow
40GiAK6bZs3yIxZzYFjPvS+ABVs+feKQ/GZne5TeyhaApUA+xonYVvB6GTNf
ANt44bvfkfqYMJt3J7JUAGWu7vOXE1t1Np08UyeAE2VU0yc+qQddnW7eF/L8
lwyLlImTzoTv9GkXAAqJvm9L6pGjYqTrQgvg7IHwm3ljJL/bM3otmELQvuf1
W3KY5DdZZE+lqhCyx52ZEqQ/2vv3V2+YL4RDuafNBaSfdC8rpOusEgKtb9FU
Q/qtoTTwgOJuIdRbzvab6CX5kW2qvXZQCOrS9HjuH5KfvdprpY4IQdfoYqQT
6WefkV+KwgAhiNv6NqeRfmcus6zvuC2E7fF2swt/kPkklcqsSRPCwHE/XfSd
xPv3sO2zLCGkxIWcrmylwfVeYtu5YiHk3mgszSHzp1ilv1fjmxAOHNKltT7R
cI1npCX7UwgMu/11gR9Jfj7f8B7+I4TFCbE9pXU0TI9Zx6scFwI3ov299jsa
HKQixF2V/wLb18Art5KGVb+/m1nN+wsBjym9V2QeSletiNRf/BfqU+JWvikn
+Qz9xpA0+AttowEjJWSeSvIWz82w+wtSQ+XB5rk0/Nf9Zm3vzb9QLDysxEml
4XzlrJCG5L/wKfSpyFky3+3SvHDxw79QJ7tulcxdGkTsZ5pFFPyFyiNnfKaR
/WFX0+Fdy778hfeDcgcfXCXzoELCy1NxAtJ4ldFeJ8m8Sd10fzB2At6Ey23Y
uJmGKzUNP8LuTkDx7JOa8WR/ezPkoKL0gHzedIVK+wYaTE1OX1tXMAHzznfN
2kP2x019eafCmifgx8XneT8Wkv5fpWmlOGcSsiPGdYzJfrvirdSYwcNJOJ/Q
lWtbygXvwZu6755MAnp2qS+yiAtPVRd62BdOwus9F7cX53JB2xN1nHs7CTKy
C3L4WWR/ZwbV1vZNQuE1026Fm1xYeKA/+YDOFHhmH3K/c4wLyvQHs7NFU1Ap
2RmygOLC7Rv4UB+egujzFsoOclxQ0c8N2VUzBS8zlzrHTCMOupW7uGUKjnXV
KnwXcmCWuPPcBuEUaOtK8BW6ODBXeXxM3fgfjHWOeA8858Ai0HhY+fofZASO
M89s4UDi2xJRcXcRdEDxp6a/ExsGfz4Loj1FkPOzpCwdcv4zF2YMtfmIoCOP
E/d12bBhVCvuV36gCFqodmjb2s1ssI49VnEkXAQpeaY9idFkg9jBOeffZYqg
ksbLnRO9A3Bs+IxIbI8ICmkWEWkg51NDtY3/1F1FUcOV8H11+/vBwv6zn7Ob
KPrWUdWjYdMPtneP9tz3FEX7BZdEvc374ZhqdN2ik6Ko429i//CqfkhUarur
dVkUfSw+/O2eXD/wZ5xcuzZLFIWUm8WnlPZB/lSW73a2KLoSaxa+WLkPlv9k
dJ85IYb2G4x0qxX9gSdZlFuBnziS40l99OnohpD2g03LL0ugHzsPL73g9Qt8
DddapsRLopAG8/hVoW0gTDVxHoiZhlp7rO7V6HyGBp9Ep1PpUkhNLmiJ3+e3
sM58/tSPe9Lo01e5I1Miz6DWdF0WSpJB6xoc5uZEPcUPn99Z15ktiz6x1A0f
nqrBSgu0PBweTUe2i3MXmv1uwo2i0mGqpXJI4l3qI/3WNlwg7Z/RUDsDxQet
KKhK+IW1lBgeztXySCvm/l77l92YjuYprvqqgFZcY3Ytqv2D2YNzK7VbFZBZ
alVJbdMf3L/T3HtJuwJ6Te96cqT9D+6eebtWrYd44vq36JE/uDVlXag0TwGt
j7WauqXWi533lI9wZRlIfZnzpqs+vXjbUdGDr5cx0OZk1+YuZh9ecOWKrrcH
A0nX2oU1bezHfl/1Q509GWhNoXjiy639+JVm54fdXgy0pP2Ib/Kufuzw2tDD
0I+BbrS121kf7seJosMPZIIZ6NjApwrX8H5MhdjPehDBQIHWMWbOdf1YzFdP
siWLgdwPTTTc2DmAbV617/rwmIG0I5R+P9k/gNMUotLxfwwUkmAYWOU8gI2f
9kDGMwb6/lxSsc1vAAcP3A32L2agiD8s9svYATx8eNrgjBoGavhYcmrTpwHc
ub+tddMfBtIz3TjHbgsbyxntyXTqY6CUsraPhjZsvHpek3/oAANx5RUSZu9j
4/Cud3IlNAPNsvOzqXBjY13PEmM9PgN5FE0zf3KFjUPO3EmfJ8NEj53iLCVf
s7FS2h6PiWVMtFM6SiNzDQcbhzWtmaXNRKVHG+WjjDjYzXW7+FpdJjJbEvnB
zYSDS5eYJ/mvYiLD/rTnMjs52Pn5mvr+DUxU1aDH6fXk4KeVSitbrJhIQz39
yux7HGzxu0lQ4MVE3QusnpuIc/GZ5dGnc3yYyLw0fuSlNBfn+lpMZvkx0Zkb
6t3L5bl49lSpSFIAE73tKHw3psLF3JkZUmGhTDQVox+hp8PF8RaBStbRTNSo
Lf2f+R4u/pk9R6/nCRPVpSqwf9/nYqXhr7kdOUy08plZuE8WF29de0O/5TkT
ZZ74kj3yHxfnvZZc+6GAiZ7+vnmxq4CLL//gGueWMdFyhqWD+1vyKqtQYRVa
x0SCvNpquT4uDvQ77DaTw0S70p0dsxfRONySe3Q9zUQba1dMi11G41sLTx11
GGKio2yxV946NC78Gn4kY4yJIgfM3RhraDyy/j/XNVNM1OU/5tljQmMv8REn
OwUKRblb2Xc70fjM99NOwUwKLRqfmb/BlcZRBRJOKSwKmf05JB95lMbZR2c6
9ihTiOI9fzPdi8a979cdDFCnEMdyv9b9YBq7xJ/bl6BHIYYcSGrE0tjvuMy+
klUU6rulpNobT+Mws9i97asptHvytEbGLRqn8e/vWbSeQnF5X+Wkkmncbv92
d+EmCi2Icl9rn0ljzuodu1tNKJQatrOt9RGNJ+RbbKfMKLTh9HvPHf/ReHZF
/y4zSwp5f03Zq/6cxns15Xd+3UUhHf9CtKuExm5TCTbC3RSKjOKbRJTS+FTz
PJu5eym0VNJ3ZWE5jRMi9HYcsafQ8mcRb0YradzEsbXmuVLIXSaqUuI9ja0L
726dGUCh9bNHrnq3kPuNOP9TCqTQJrm7O/itNL6wYlm+UjCFDMfa1IO+07j4
cbGaUiiF/Kwedzp30Hh+6pdB1mUKaT70//W1m8aG35MessJJvMQb+PN6aLxH
1XU/K5JCTpsmVA79IfGOG66ioin08s4lv/d9NOZdUbjFTKAQC7PCEJfGjOqv
lszb5PoNd5q30DReLpYiwkwk+ah7sMpykMZOIVoejBQKPVDdPrV6mMbBL0bm
MtIodNLM33PeCI1v8kqaFNKJPZb8FBml8TufLUYKGRRKcT3SnD1G4+4njGH5
LArZJl3cf5JH43/9zRnyj0l8ox0614zTWP/wEYb8UwrNsbn87x6fxCddu3rG
M/L9J4PiLQU0du8YDZqRSyFzoZ82hzhl34UuuUIKHS1r8VD5S+KTsPW2XDGF
RjZOyKcTNzUxt8mVUEix4HrhggkacxktonKlFPIq9D+UTCxtnVY4vZxCq7sj
FBQmSTyvHj02/RWFjNsKXgUSG9XoqE+vpJC4wY8TrcR7JXmfZV9TKPPGn+X6
U6T+NpVFyL6h0OSF8t+XiKPOXjSWraFQ7MNt6eS8jTNLLUdk3lHov6iwQ8x/
NK4UUFkyHyi0s95qgSXx9zWt9jL1FNoxlfwnhJjnf48p00ChdTnuTzOImc/d
3kg3Uui4H9mNiLW4uqelP1NI+ZvF5k5is+XjutJfKbTKextzlNjJrbxb6huF
Yqqf/iLvH/j0w0t3pFopVH/UI5+8f+CETitrqe+kHn6djSDvH/jZPEVxqXbS
n6WDTgPE7+zbiqb9JN8X9mr9F+Lfd9I9p3WSeigZnVlELNLsrjGtm0K17Pix
GOJZinpfJXvI9cmPvzoT69vwIyV7KXTNZmOJFvH2aAyS/eT6q0fSuCQeHu8v
j0qwSXzql0ZkEV+Utn4kwaXQ4sSkE/uJU0yVHCQGKcT0anSWIH4R9p2SGKaQ
b83PXRkk/twJjxBxHoWixf4YN5L87dtruVQwTqFjziLJDsSv85Z/5Qoo1Fxd
uq2L5P+OB1u3dZJCIo0JmV+ENJZ48+H7x3+kflaN7dhM7KXxJKJalIU0ZAK3
PSL1ZPLteNczSRYKfnsOOZD6y1llHZMhxUK2mnYGT0h9zrquY5Qkw0JOndzz
o6R+B03phCszWGh6phrLk9T33TyfrQ5KxLlly/4N0Xiags34LmUW2hfCfc0g
9vHQe7BFlYXGfwTmzyL9ZKYxPKmvxkJPTofHK5P+G472fz5dk4UCCkMcC0h/
Huzf5SC6mIXecu2yI3ppXGOqP318CQullCRY25F+Tp4Yde3UItcLvZO+kf63
8AhQeaHPQjmX5B3Ok/mQV21X/XQNC3G6rx1XaafxXA0DvwdrWSg6cPRrJpkn
I83j768bspDRcGtxTsv/4h909ogJCxX1aVe5NNFY5t4+LXszFup9L8wu+0Tj
ExPrWmwsWOicaMaQQgONt+QJVxpZsZBl/eqbyR9oPKoe0sOyZaFZDjyLg9U0
dgyxj5OxY6H8k64Lg6tIfTUbon97SDx3qDldr6BxavTknf4DLLRtu4UwvYzG
WydCt1W4sNCS39/eeBXQ+F7z+XwvfxZKmHVd7859GvdUr+iIPslCQlRYJH2P
9EN+h0zOKRaaASbbvVPIfhRj5EifZqFL7MsFGndo/GGLQMbnIgutc2jynx1N
Y/5LH0ffm+T+NjruLgE0Nn48L/LGLRbSrdvvYuJP5u3t+vznd0h+G1pPz/Gh
sfxJLdnhZBYKjHCbnutO4wU6vfl+GSx0ZsCq3M+ezKc0R9kTRSykKC5qYYlo
HB8tvzr+BQu1WjfeSjGkcUtImWP+Sxaqaz6s1LeWxq77ZheMYhb693Raiose
jYOoZseTNSx0eaW6OK1B4wcXrQsCWlioh+2o6CRKY6GbkVPQXxZqrIuMzXtB
9veXy9DJSRaqev74PCL7+d0ZKuq+/1jI87hkV/UzLjbMHe5wE1dETaFfREoy
uTj0b6bj3umKiH1Gp8b8JheLR1OOBrMV0ZMcy8tCLy6Wy/tzcGy9Iqr4b7dm
9Rwutpf8YjRkqIg2f5ib7qzMxU/2VKpxjBVRHcUv4jO52Hoi6Uf3JkWUGLsi
X16Ki2NMdx78vFURZaacVOwc5GDFb6X2efsVUW+NZtbiKg5Wm7xxwDeY+E+i
6lpncj7q3PbiVogi6qzP03U9wMEn3sool4cqosLBxndXbDn43Y3zjbIXFJF8
E+t2gRkHByzy3fLgqiL6caH4TfYyDm7YvsOgOUkRnZewMZIYYuOwdHmWEVZE
rcVKu0+cYuMe86vvpCWUkL0jZ9XHYwPY2dJJXXOaEjq3JVhP2WUA/7BeHbBR
WglNCH5F7yHn1c+7OzSC5ZRQj66Yf4XFAK50WRU0oKiEfisjzfWaAzj5bNvi
ek0lZDPq5VDxvR/bFi2/FGeuhO41HBhfa9aPqxZ9gLlXlVCzy2sNZ/E+7CGd
IaEhMxMFmMpurXPswUVpC42qbsxEUmXaHqUaXbh+g2H1TqYyuuxXUl11qwPz
Pe7ucopWRrpFtiVv477hmh2pu2fMVEGT7d/eqkc3YOd1hpmZ8SooKcA+Sy2p
Aqd/O+P5S00VvXe7tC7pqA/WuixsGiJ221HlNqXpgwtXndogNlcV6UGXdkWN
N34f7SO7gJjpcOjnlkovPGrikuVKzChw1j5Q4InNnlt0/yG+wJXwPnPXDfdH
sOy581QRXaNR9+qoEz5hEFM1RdxR3TwoU+uIp7rlliuoqyIPl92msZUOpJKn
CXWJY17b9KYX2GNDHv+WL/HOjStVXt/di6Od25tGiZMDsnSmue3AKowDGyQ1
VJHSVEPznCprnF7WnK5EXPrEcod2oRUuUvnku4bYpbRkg3WSBf5ZX6UQSPy2
zVQkxg1hjxB0Kpz4mELFd1RkiEeXlrXfJi72YRUdSl6LpS8VPnlBfHX1gqP3
3Vfg2JWrlN4RK6p8CQ5PXYLn/MwJaSV+f79a890xdZxxTau7n9hLzCRV2YeB
9TY8svxLrKl37X//d5X/H+pL0WU=
         "]]}, 
       {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwl2Xk41N/3AHC7GVvZhyIpJUl9srSge1IplGihbJUiSYWKPtKiiDbZkz6h
RZYsyZ50kQpJypIlhZBlZq5dSH7X9zf/zPN6Zua5955z7n3Pee5Cx1O7nPh4
eHiyeHl4Zt/5sUj1T12/Dbkzsy+C1Hpf6yuHH0ACeiLz/lBPPl95pCnsFMrL
O+E2QJ05huol073RA7sVI9+ou2RcfueGXUL57TtelFDfUigXTy+8irR765/G
Uj9Vt4vjSQ9ErpMfP5+mLl4zsGp3/E3U5gfaG6mbjf1LE8LuoI2f130Qmh1P
Q0zDtzQUHVhQfq/sL0GBqxs8EwrD0fKgqVgfapn18YXV2ZEoR6y7WZ364UZX
gd9pd9GS8Ps7Pk0TpGWis2Nh4j30svuf8RPUhRZ/I03j7yOcV/xVgLr+QNjS
B2Fx6KTYqg3z/tD1aGut/fk2HpUdMymLmSLIe034N+/Sh6h+vMpPiloA2as9
LHyMulbee9w3QVClUWmFbv4TNNG8jGFGHWq89GRldgJqy89+8vg3Qcrmg7nD
aYloc6f9NcNxgjotrWyDUpLQ0v21Hy6OEfRsb+HM/MRkFLFz0CR/lKC19gHb
jOOfId6fvQPSIwTtclNojg7LQLl3bpMTAwSJrUU4autz9KRwYsadEDRQ4CHZ
/vY5smh/a+rGJSi3qCHnbGkm0i2/EGLGJmjT2/i/sYVZaGVa7c/UXwQt2Vpr
0bsuG8lIxVR7dBMkUiH4WDs/G0WNDoxqdRFUU+W6tTw7B906fGsqtIMg+zqd
kMG0PGRTHdQ/+Y0gsDraoa+Zj7rb6t74tRC0uPGezrWUfOTTbtPC00xQX8vf
RsXEAuS68XbFrwYav5/lCzfHF6KbmhvT9tXQ+AzZZUWFYbThWinnXQlBt2Vj
DIrFi5HN+QnXREzQl8yABbq7ipGplUftxSKCbPvsupRbitHa0FgXqQKCTtqK
egyxS5DFlm85VRkERRi6BN2bW4a+p9acDr5PUFPT7uMSe8tQyeumkdZoGn8v
ZH71XhnSqtN3WxxFUGK6nMwJ1bcoNH35xqgQgl4ueBsHOu9Q946VMeIBBP3g
Vc37ZV2OFij9KjNzo+uLFY+x+68c/ff8mYToMYJc1k/4fm4rR+bzvO1KnAga
8qwxKjxWge4K9whLH6D10XmxOvh8JbL6q15gakmQxruWLt24KhRit9VJTIcg
/bemIkana5BSq/bxtiEumlv39NOa8BpUaPfmXhWXizo7+CJXZNUg41chkpl9
XBTMU7hAYbgGxZKZNscOLurQX6474PkZnQ23nu/6mYuCXogejPX8gq7Ge44I
p3NRQ1xVzqRHHbJ9zha5foiLnqWrnx8IrUMG5w9fuWzHRZeL/KE7sw5xq8KP
ultz0bIWgw+fB+vQsXcrL6/bwUW+cmltSR71aGxUTcJjLRctun1b1NqjATlP
vS7xEucidx/zQ1nujUgxMHZOdyYHmZ40SGKENKJI7vF20VQOWuSoQewzGpHD
8htRGk85qMFE6AKD24h2iDs83xXDQYYKr6PtjzchPuUtlTuucJBI/ooaYedm
NNmV0TJgwUEJo2LIzvYbWnvn0dBIDxudyHcK5lvUhpQ7NtiYC7DpfrZU4dVp
Q7ciX+6R+dOPBpoMXsxsbkNRdQmuX4b70Zkp6YY/zm3IXkh5SO9nP/LZUKo0
ntKGQMI682FJP7pWppzWv7oduf42EOK50I/ia75+qDPqQM5WGUsHOX2orseE
mejYiToq51joFvSiGyvHeHL396BMftM7vpq/kMfy8sjiBDY6MJUrXsrXiSYP
H09vPTmAtF9sUp283YYci6wsQpyH0Onw7n/nLG5GhwfriouDRpBu7xUXm8Vf
0K1VeaeeXhtDO8b1Bue+KUN8xXlr/H1+o4sRk05OnCdIUsOs+kf0JGqx1Ynp
ccrD2+KMHg+E/UFSHSfTz1h+wPKkyvhS3l/Uuz6uO6OjHse8f8nLf4wHKqr7
6nBEKzZQ2jijcoQXDln/HDq9pAMvb5vbeeEMH5wzuHWC6duF05KkXHI8+aGu
85XX4Y092L8eb+T35gf5VJ/KmO092I7vxDzL8/zQYR0r+8G6B4vYva9mX+UH
OaZagNzJHuw8x1d3cSQ/RA7xntoX04NVvLr4wvP4IWBi2+OAwR4csSn/gfsf
fuBdEJJwKqYX+363r11+TQAG3i8ubarvwyNbDR843RCAfhWtVaI/+rBb5vyj
ccECIHHmh7JuTx+29W+ZlLorAG2DvGc8J/vweo39qpOJAgAq2rlhyv144uwe
j/IKAbBYEeVy1Kkfe4mbzXESF4TXpbuPWnD6MddLoylWUhBstNQW3B7tx85t
zMeNsoLA49/LLJ3ux1ZZ5XrblQXB+sDiUzISbKy739hBe6UgLFP+tNZWi41H
nmxM47UUhOx5N2pPnmBjD4O1ZrERgsA/0cKN7WJjnpMRl+5EC0JdyNitQ2w2
Do4byLr8nyD0dkqrKQ2zcQpf8vzDTwThimW1wSUeDu4oV+AuzRaEsK/d37iK
HLxn71RIZq0gKL129fEx52C9k68byqSEwMDHwnbtcw4ui1MUzZUTghvRC1fJ
53Lwrs9eKFFRCN46TX7kFnLwSZ2VSddVhcCOxToQ9J6DEyfj/jVfLQS5pwoy
jnznYFag3/xGSyH42CHYUCzCxZNxmx37Q4Qg6rs8mbbn4g3jhmH/RApB6v3k
OvvDXOxnvqbU+54QeFgniOe4cDFjepmqwCMh2KBddtrkNBfL2szpmJ8lBGkr
bnUzg7h4lUzzIfN6Iehr/6zUk8HFp4/XhkY0CcHaUb+gV9lcnFtaVdLcKgS9
fw+tDCrgYkMPvPBotxBsKl6vKfiGi02rn7RfGhcCyY/RryLrudgp6NShTAVh
ePQ2VGruBBcn/XAJHVcShpvXfR5aT3MxW8+xxFBVGHqSmqyjeAn27NqzsFJD
GPJzF+tNMAm+bLS+vUNfGEhZ3N09igTH/BE4JONAv79EiH1wHcE17jEHvR8J
w67iKvNyd4I1QuZOnXkqDOc1kzWKThN8NeNapGeKMJx9P7M6xYtgPa5n5YkX
wlA/ov3OzZfgB8fNdI6UCoOdQU1HeCDBrs5/hC07hGHy44ztsf8ILgvwfGTe
LQx1p5xS22IJVkroMdjeJwxftl1XtnhIx/9Z57F1SBhyxB86yT8leM2htBZD
PgaMRkac3JpBsICdQ4aGKgPwdhZXs5hgh/N1JupLGMDUHZZdUkpwXoxpp5oG
A5SD3lrJl9Hxm/QUFq5mQOi5wws73hP82WrOVXkjBmwb9v7I+kTX5xWgJGvM
gHs/hjO+1BDsHzmVJ2XKAIczxYn+XwheW/eLLb6LAVZxD+pr6gmOtSy2EnBk
wPAdmQUi3wj+7a43yOvMgGM3s+P9WwneFZJ6c+YYA9Iu+eqMfydY8FN08aQH
A2JOy4aWtRPstt1DY9CPARljn2V4fhH87vivMm4AA1ZYiyjr9xC84Kb9AfZ1
BtRuKdY72UvwlwqTiF+hDNipfDbyVT/B67aq/m19yACD+4t4JgnBOo8rg94n
MKB7OjF+YIBgrRlP6cxkBggXxT34MUiwat4bdf9MBqQECKU+HSZ4vrRb1okc
BogXMooujhAsd0pmg3UBA0qePFm2c5Rg0aVOuzVKGLBWuFOmaYxgoavi36Xf
MqDLdFl42DjBPD9yXKbLGfCp0cxt82+CR6KELtbUMOBqwGWt0AmCuUPpjJd1
DHg2Z5O85iTBPebW4Y8bGfDt5SYbTN0qlJTk1cYAhWNnuNVTBDc6Wmgf7GSA
2r+Hkdkfut7Xv4tMehhgUibRh6mrFB9u02YzoOKwDVdzmsbLy6R2/gADjLZo
bg+jLv4yaC80woAXGm78A9QvtWJ6yDgDLqTwyxj/JTj7htHppikGnFn5/UIE
dUZ333TpDAO+/u6BFuoUo/CgVH4mOChK2yvOEPwkVl86SpgJer47vlhSx07+
fHBJlAkSLTfi/aijrW6pH5vDBMly/D6ZOuyFTtYuaSaQpI6tldS3JFoNDeSZ
8C2vX+Un9TXXgHK1eUwI56/fNULt927F7jkLmLD/VEzrNLWvakPrb1UmTLxY
V0L7B+x18aJLxxImVNm8mJ6gdm9eMvxBgwkv3guGs6ld9T5dyNFigtzKNX5f
qY+EeTPiVjOhP8as/CW1A3dBeJAeE9J6TVyiqPeZlit5rmeCffX6Q67Uu5+6
J9luYMLlGvUsPWpzPgXtLUZMUN6u4jBF47HNoaRIy5gJhR4rHfOpjV4e28Yy
ZcI+Y2d8gtpATqqW15wJbo8bzs6j1vN8ad9vyYROvYiAEhr/VdWOPXV7mSB/
NZt7gFrtWtZ0oj0T5p31/RhA86nSYRsUeogJUVv2bRKnVtwgIH3eiQlSi2ek
btN6kBjbo25+ggkClzWKz9J6YeyafrHGgwnxlYMPvtP64ktPMFx4lgmXipgN
iHrcaWzXiC8THu15u7ef1udQSWxr62UmBB99+UCXmq201eW9PxN+zzyCc7Se
2+rvXoi5xYTNhYLR3bT+K7asS4L/mFAXfC7sKN0v595f1LoUz4Q3aqKlB+h+
Ujcpyy56woRc5W0j5nS/Xdu+s2R9GhO+t40dkuIQvHm3U7POaybsGtU8voLu
35G6lIOnS5lwT0eooLWb4MdWA92Z72g9sfXEArro/G3OD2t9YsKhfWpl+R20
fg+Gii1rYwI7xSMgm54n7h0NYUc7mRDht4qp1ELPgyPzFZ72MIHzJDLSt4ng
i0cT1RYNMuGrtkalSgPNx8miDUp8IiDqzMmYrqbn3/led8nFImBqlNzOxAQ7
T2uN71QXgcFUI82fr+h+v3TmQrCmCNjuEAjKeknwmSsz10V1RWCo7NzZdbkE
r74u+1jQWAQiHGbWNacSnB61sX7iqAgwEq7xuEfT+mIF2q51E4ELzeOpLyMJ
Fo+pavdyF4FN5VFn/4TR8+2BNXf4nAic+enl4HSbnq9PTghzr4uAxOupJ1V+
BCdk3lvX8UwEtqxaigddaD1P2Wo0ZohAaMXqR91OtH62KM+rzhKBXyclamsd
CX7V+OhPQaEIXF6hv/CuHcG1M89w6AcRsF8z4V+yk2Be89dbNvaLwL6ilPlP
dQi27+uwjNcQhWsJof7Zv7lYVSfBKEpLFFK6swuzR7i458JR7VurRaGFedQu
bYCLz0iyZc6tF4Xjwie+B/Zw8c21o193mopC9KF5vB1fubjgmrDDzDFR8Mkc
TlyeQ5/vizRdHZJFwShglcx8Vy4OCbtplZwmCs55L9aUHOFiEb5+o5FMUTAb
HYmxP8DFPO3J8268FIWPkwNLfPfQ53Ps0o85H0Qht+3rZYsNXFymuGiVOFcU
Ak8tSrCeS+cjpThWuFoMtswfO9efxsHE798OoTViMHgg9t35RA52HWysttQX
g2UXA27wP+TggzV3E39tEgNFvWu+E+EcvD1Ydr/0XjGYc1Zmw6V/OXiRiOQr
V28xSGdf6Ro24uAvvIwrCq/EQM7OMffOJzbmpt1zsCgWAx+1d8m65WzMtFmu
H1gmBouWe8bXFrMxvDAfGakSA1D6GjeeycbpjpHONa1icLm5SKUtnI1vvlE1
C5wRA98X/ry6Vmy8OcBQZtRIHBYbqTtP1/XjHMbppzUV4vBO1ELsemEf7vb1
47z+KA6p0blH21/0YdbgHZ20z+Jw1VDYUjulD/s2pZZebxKHw9qV9W+i+/Dm
lO7vRr3ioOrT1XH3bB/+YmYjn8OQgD16Ez3iWn14IHhj0L2tEuDz0LId6P9n
Tdm5ro5vJUBi+SebjQd7MAkek9FumAM6Kf+umuvShRcFBq485ToXJoKl+K+a
duAOm5Zmo19zYe9NL5MKdive1lU7kXNSEqJLY75i7QZ8ztPJRY4jCUkfH1e/
NvmIzXPvm8p5SQFMvGoI+ZSPuX9cffnHpKBydYaT6LX/0MOvftknT0uDuPRe
76Llb9Cki+HBf6ekIWSDng2z4zNSmg619fCRgftFOfI++5pQ99ablQwBWXg/
ExqYebENvVlShZRvykLSTpfPtqM/kSvjqcBCphzMf/6oI6+tG+XFLzZ8EyoH
am/snZOf9qLFM5vPl4TLwYgRpGk970Uh9k4FOFIOIg7ahqfRfsxF8anuq3ty
MPixWju6qhcpRizVynkoB3M/ivirDPUi30CNBYmZchBmL2czpd+HjE6u4r35
WQ5e/yJDFZV9qFrf4O0uSXkQMHjca1HXj27kn50ylqauK50U+NaPtupm/KMv
Kw+mRUznF7R/LNZSjV2kIA9CaoWbJob6UdZChveIijxYF5T16EmyUbRwnXrU
KnkYtPHc6r6djQ7XHr/VtFMexId85n0qYiMVi4TSj5byoBbSzP+sjI2+VX3/
XbJbHkRetkpc/sBGVu8snVKs5eFzt+k12SY22lawZsP5A/LwiPfKR84w7Xfj
+Afmn5KHq5l1+3apc9Bv1/u7DwbLw/zDPpFtNznojs9j4Ush8tDcLpt9IIyD
ltx4VvggTB5WhZr7N0Rz0N7kwkUtUfLw6b7V6mcJHPTiV8vw3jh5eD5+IWzg
NQe5HZkfYfZcHsK+v27sJRzUZv+gTu+LPLy0tUq4YcZF3icSgvbW0fH+uRH/
x4KLJC6kGZxpkIckvs/yzlZcZPhf0ZPMZnmY5xhwZsEhLoppbj2j+VMePiTf
ebXci4v2WCvLqo7Iw3FHhJJjuajcIm6vuBwLQsL1zbV6uci1rOu1MIs6s+mC
EYeLxNdqqvMpsqCjW0Vp5yAX7VpQMDmmxILu3blPLSe4qIXzJa5NjQXPJPMq
pxgEcW8I9WXpsqC0e8Tv5xKCQv5u352+hgVxK23XXdQgSNsz/FXSOhbk5rlb
SmoRdG6/yp0HhiwwX6YZr6JLEJ/6ep3ALSxIu/4j7qcRQbJvT1y02cuCbb7/
nJy0Iyh/bfavPdZ0Pt/yPygeJMgmddJi534WRH794qt9mKDY8MBFm+1Z0MJT
0LDjGEHqjg/LVzixwEM+ZM+SswQZzNRJ8Z5lQfaVJ41ONwn67jnPd8qLBek4
lCUaTJBf96Gu0XMs8NtfH58UQtC7j9y8Pl8WrA/6ElgVSdDO/xj2df4sUG1Y
HZsXR5DjOoPExAgWMJxWHlV8QdAPZBlcFcWC7+jRpEc2QXbGzmcHo1lwJJ/r
UZxLkNXukE36D1hw28edaVRIkOmJzh/VCSwYyV1R+fUNQe9PT7wbTmSB/UMP
1+63BG32kUhnpbAgc83N3v73BG0IXOvrmM6CCET8Wj4QtPrhLdZYLgva730T
3VFLUEbiwxnFAhZ4OSmFS9UTpJme240KWRD28etIdQNBSwrbsq9jFnzYU7RF
s5kgxXodS6VyFig8nZjzbxtBd1tM1hpVsuCP9WP70XaCZDocFhytYkFwhdQV
l58ESZAgzvMams+pmB3a3TRfzNbrm5tY4HZ5e6dNP0GX5gy5H2uh808Sb73N
JuiPrPC+4FYWlC+7npzHIWhM9Z8lje0sqI20fUUIQaeXGYtP/6TxM57D93eA
oIGVtiMLu1kg2aKnyD9EUJ9BQOnxPhY4Qn7x4DBBRzfFJIewWTCfXDVvGSGo
0yQjJIfLgpcoMa1wlObTqslhZogFWUGj3w+OE2Rrz92yeJQFHJ/E52q/CWo8
zL/CZJwFvXx4Vzv1F/cVU2FTLFhcYyJsOEnz623UkTfNgmbN/Qqt1FUXrCu+
zbBgn7nQ1Okpgkz83Z7z8imAZLNaKu8fWh83/O4uEVAAN4U7mteoN4VGXTQT
UoDmiXm+vNMEFd995uTOUICvYskxp6kNY4u3R4oowN9A2aBv1C+f1Gu/FFMA
0S2bNhv8JWjNsz7FHxIK0F0i9ymMOjtzhldAUgFSVbzV26j/yZfpVZdWgJyl
5haLZwhKf72sZoesAtzfGGR8gHr52w15nvIKABdkREOpkz7sjr2roAA1tzsf
FMzeH3xxCXg1TwEqKtl/G6kfNV5wa1dSgOmVi7UItea1ydpB6kufnmTNOlfb
W59PWQEMDEXXzN4vfAh2F1lEvfXq9TWD1CObDycdoc7NN1swTH1x6Mecs9TL
KybDZ82It/MOoI5JvCNE+xOkNLXX+Cm1abVr16yNM7d1/qJeXNp9fYy6xuGt
2W/qhxvLOLO2ETPKYixQgLbgwJ3j1KeO6l9ZRn0jDIv9po5W0lI5Tv3LcPQE
7WeQ6oeUwPPUFRq8JbNOPbeU3KQ27BqSnKQuqVV5nUr9vjQwbdZ916XtuNTN
C7w/TFGfWRPy5i916blM8dn7lb+dYsvnqCiAfNznHbOWBqHJldTDu9+8n3Us
58ohoPbsiOCl/RZSvz9TbkG9Y8P2dbM2GPt914Oa6eD2aNbvHp+d8aPuWFhf
O2sLyyHnMGqRrEX8f6mdUvt1s6jXGHraznpgv8uDN9R6ep7+s/YR7hKooz73
x/rZrIMdv9eOUBcM1A3NmjXXVl9woQJkKbtJz94XPSr6+kiW+pdC7z+z1jy+
R2QJtWWHmfms81ifPfSoB70jXGZt9G5HkzF1WXPp5VlXna4Ea+oKka9Rs7Za
uDXpKPVf4c8ps26rfjPnHPXhL89fzdrVF7yDqEePeVXNemRZ0fdo6uzqhc2z
vvh1nXEydTxPVtesGQG5aQXUuTPLyKzDVmvLVlKPf7g2Nuv5bRm+zdSOThVT
s356W7Oz73+fD/6d9T/6yWZT//v9/9+P/R+T5ecD
         "]]}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->True,
      AxesOrigin->{0, 0},
      BaseStyle->Thickness[Large],
      PlotRange->
       NCache[{{0, 2 Pi}, {-1.5, 1.5}}, {{0, 6.283185307179586}, {-1.5, 
         1.5}}],
      PlotRangeClipping->True,
      PlotRangePadding->{
        Scaled[0.02], Automatic}], {192., -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[
     GraphicsBox[{{}, {}, 
       {RGBColor[1, 0, 0], 
        LineBox[{{1.2822827157509358`*^-7, 1.282282715750943*^-7}, {
         0.0019271655319089223`, 0.0019271679177221882`}, {
         0.0038542028355462695`, 0.0038542219202325635`}, {
         0.007708277442820964, 0.007708430115413552}, {0.015416426657370353`, 
         0.015417648094724573`}, {0.030832725086469132`, 
         0.030842499251226025`}, {0.06166532194466669, 0.06174360411381641}, {
         0.1233305156610618, 0.1239596464952661}, {0.2570347881802097, 
         0.2628489826444617}, {0.3818787050494512, 0.4015927757311566}, {
         0.504273679847541, 0.5518646540710597}, {0.5063481932832354, 
         0.5545740758789673}, {0.50842270671893, 0.5572897391008435}, {
         0.512571733590319, 0.5627399702909531}, {0.520869787333097, 
         0.5737173331397826}, {0.5374658948186528, 0.5959901909614316}, {
         0.5706581097897647, 0.6418974317386885}, {0.6370425397319885, 
         0.7399569937865575}, {0.6389786101106533, 0.7429574352867068}, {
         0.640914680489318, 0.7459665210090821}, {0.6447868212466474, 
         0.7520108658628664}, {0.6525311027613062, 0.7642059615089648}, {
         0.6680196657906239, 0.7890358957666416}, {0.6989967918492591, 
         0.840574893880013}, {0.7009328622279238, 0.8438843159852935}, {
         0.7028689326065884, 0.8472045697974174}, {0.7067410733639179, 
         0.8538778863377559}, {0.7144853548785768, 0.867357990132874}, {
         0.7299739179078943, 0.8948705596923306}, {0.7609510439665297, 
         0.9522632760153292}, {0.7630492062996688, 0.9562720786527885}, {
         0.7651473686328077, 0.9602970002912078}, {0.7693436932990858, 
         0.9683957342056555}, {0.777736342631642, 0.984792577436914}, {
         0.7945216412967544, 1.01841547998104}, {0.8280922386269791, 
         1.0892529592297329`}, {0.8301904009601182, 1.0938510477966414`}, {
         0.8322885632932572, 1.0984702908810802`}, {0.8364848879595352, 
         1.1077729918271102`}, {0.8448775372920915, 1.1266406313919213`}, {
         0.8616628359572038, 1.1654697750987904`}, {0.8952334332874284, 
         1.247895911184252}, {0.8972933309007058, 1.2531771555270266`}, {
         0.8993532285139831, 1.258485736660076}, {0.9034730237405377, 
         1.269185945275318}, {0.9117126141936469, 1.290925979605869}, {
         0.9281917950998653, 1.3358268067292407`}, {0.961150156912302, 
         1.4318599593823964`}, {0.9632100545255793, 1.4381617021515918`}, {
         0.9652699521388566, 1.444500893308922}, {0.9693897473654112, 
         1.4572931824199176`}, {0.9776293378185203, 1.483344621476165}, {
         0.9827059507914965, 1.5}}], LineBox[CompressedData["
1:eJw1lHs0lHkch70zWzvGzjtvQrUtSyliQtbusqzflx1x3NIkOZIyW7FM7pdO
DZ1NsdoSRaG0ikou24VJNttPRZkimUQXycGMy8jMMIzmSNvuOfs55znPH8//
HzN+LG8XTUdHx/8T/7ojjfmVyoMAnf82i12M3T6a7iRAep3fnOmswV6hXQn8
SAJodQ7Oq800OPBMhKxMQMC0h5f5xEINjl6W0746mYDhdknptGQGFxu+PsPJ
JGCksKe3RzCDZ1nJjo4VBOjdOF5y4vI0rpuviN8wTgDHqndP9Hdq3PSjizRX
SYDJ7b8ZfFM1bhN2BEvUBEjkb1kpTDUe1E6jzR8IOGhzzHm6bwrra9zJrSQN
Qlru53tlT+E4RW/lbjsa7I7c/Ivu4CS27qeG0pJosPWsR7PPFRX2Hza9l7KX
Bsa156pEp1U4bsKuNFZIA+tO90b7TBWumwsIDT9EgzWhh/7a9bMKuyzL6+Lm
0yA8w3W00kSFfXmLWvTqaPC4cq1XXqESC5oXXSqaosH6tx3+onUKXFOhHylK
oMOm7JaG49lyfOg5dqOn0uFJlGXQpWg5DqXtWb5xPx3Kgt32vfCTY2bowyfj
GXQYbLqRlqMvx7vZwm/NC+gwEKQ94lwyhk1TpLST9XQI6JlaLagfxfk/3SqJ
m6PDkV77QsmHYSzs2/bMOvMz+NorIyJEPITjXRx9zuUvgKN5SbZz8X1Y+weX
L89dCDtvaY2Luc/x07jiHakXPodkV4fOeWjFTp4r5t+cZ8Cb6PNjC3SvYbGH
UwWc1YXZuspj5cV/oovXi5wGqphg1nrTMuBdKzJcyYkKu6IH6okT4eKJLiQh
GAeXNX4BFn1v9IWKPiRiJF56KmaBpN6u6iNLimTCX9/daWfBaW31qRxzKVqq
Ou5Q08kChjiRw3GWIuHL6nvZL1kQfcG28WSkFHErZX3uoyyoLp5zXtIsRRKf
kCUiBgk+XNnrhekypMxx+63Ik4TcQbNw3/lhtIIe0JHlQ8LeSoMYqdEICkwN
M0rZQEKewqQu13YE3dq+v5y3hYSE3+sEJuEj6ICdqEkvgoSjd5kWX7aMIFJi
+T4tk4SbbbFbr+WOIo4hFcVvISGzx1606Xs5Wnz1dvVFMQlx7k4F9wPlSOsV
oRhpJ+GK01lf/wQ5ahXeSYrtJuF9+ZGloho52jkkOCAcJuHXWs7KJ6vGUUmt
OP+ULhvMs/xrty9/h0heBn7kx4bax0djqo0VaFpuQyN5bJgtvDw46qpAvYdf
cTcGsaF8YxLhvUOBKhvWPeoJY0OQTfy2xDIFWm/W3zUUywbhBkZEg6ESpStd
xubz2HCSeT3Z4bwSKXJmDL7pZsOJXL9Nbg9VaFxpcm/tq0/dt0y1+KUKjfE8
Yy372PCUu5yvHVOhIaNCsbGMDdT9pXw6exK9OueUzphhwwOpST4zeBLxt9yZ
mmBSUGIwoDWYmER+EcS2ZisK0lw9S2Os1ci3sKD2LocCgxeN2UagRt7iNUxs
Q4HVmcTDLwLVyMuaV99gT8HAzOWyqnQ1cldcWHT1BwoqBJ32Bc/UyDGV+6DI
m4LM0qyHNQen0cqsLNvYKAp8LLoG+zUzKKHbIZ0voGB7v6hQwtagplUDbZtj
KPDN3cOSWWhQWLNLlEsCBarutozEYA0qJibLdfdREByi+bDutgZx26zyvQ9Q
//8Z+gcnjFYL
         "]], 
        LineBox[{{5.300785299429809, -1.5}, {
         5.319898682397099, -1.4383966692413706`}, {
         5.321959897918262, -1.4320895205597601`}, {
         5.324021113439424, -1.4258194977932388`}, {
         5.328143544481749, -1.4133893164602302`}, {
         5.3363884065664, -1.38895809433426}, {
         5.3528781307357, -1.3417336451509287`}, {
         5.3858575790743, -1.2532655757356101`}, {
         5.387780351538433, -1.2483346296378657`}, {
         5.3897031240025655`, -1.2434272980276369`}, {
         5.393548668930832, -1.2336826595409514`}, {
         5.401239758787362, -1.2144678772975237`}, {
         5.416621938500423, -1.1770932782187369`}, {
         5.447386297926547, -1.1062465890385855`}, {
         5.4493090703906795`, -1.1019798335626443`}, {
         5.4512318428548125`, -1.0977311211632248`}, {
         5.455077387783078, -1.0892872453790134`}, {
         5.462768477639609, -1.07260971052154}, {
         5.478150657352671, -1.0400648555406782`}, {
         5.508915016778795, -0.9779882889572955}, {
         5.510999881197402, -0.9739176269094263}, {
         5.513084745616009, -0.969863462234056}, {
         5.517254474453224, -0.9618040859020982}, {
         5.525593932127652, -0.9458774474520752}, {
         5.542272847476508, -0.9147641359552924}, {
         5.575630678174221, -0.8552855896640614}, {
         5.642346339569648, -0.7458486831379172}, {
         5.644292760931226, -0.7428238739386045}, {
         5.646239182292803, -0.7398077989521885}, {
         5.650132025015957, -0.7338016099752106}, {
         5.657917710462266, -0.7218914110317077}, {
         5.673489081354884, -0.6984667941577969}, {
         5.7046318231401205`, -0.6531029780803125}, {
         5.766917306710594, -0.567616923647357}, {
         5.889039331780388, -0.41590972151675953`}, {
         6.02153524193654, -0.26778915539987386`}, {
         6.145170796442786, -0.13889753969517477`}, {
         6.279180236035389, -0.004005092558909655}, {
         6.27924281326845, -0.003942514337663889}, {
         6.279305390501511, -0.003879936147295668}, {
         6.279430544967634, -0.003754779857230473}, {
         6.27968085389988, -0.0035044676260661146`}, {
         6.2801814717643705`, -0.0030038444498115004`}, {
         6.281182707493352, -0.002002602363317537}, {
         6.281245284726413, -0.001940024887056011}, {
         6.281307861959474, -0.001877447425988468}, {
         6.281433016425598, -0.0017522925474740415`}, {
         6.281683325357843, -0.0015019829512094719`}, {
         6.282183943222334, -0.0010013642919518967`}, {
         6.282246520455395, -0.0009387869999822399}, {
         6.282309097688456, -0.0008762097153650004}, {
         6.282434252154579, -0.0007510551662265049}, {
         6.282684561086825, -0.0005007461346152345}, {
         6.282747138319886, -0.0004381688877422613}, {
         6.282809715552947, -0.00037559164430094874`}, {
         6.282934870019069, -0.00025043716575292956`}, {
         6.28299744725213, -0.0001878599296660354}, {
         6.2830600244851915`, -0.00012528269505042642`}, {
         6.283122601718253, -0.00006270546141600906}, {
         6.283185178951315, -1.2822827180138209`*^-7}}], 
        LineBox[{{4.711497115015153, 1.5}, {4.711499377700722, -1.5}}], 
        LineBox[{{1.5697133011469317`, 1.5}, {1.5697156336888523`, -1.5}}]}, 
       {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwtlHs0lHkcxt95Z9rcKuyqU0qo7EYXukjifH+NmkRHKpVKaFyKmVwmUi6r
C1HkSGmjddnNikrbxdKN37RbSynKjtpCzTTjNa+MeWfMIKG1e/Y553Oe8/nv
+eux4UdvDiMJgvAd59822Tl7gunLD0D8lyG415HbU7dZDn85Pbnd4zQIEuV6
w8t8BbznuffHlehBXfDd2uOicXeQms04qQcj74lHg44pYNFpxHSI9ICqHg1N
+1kBr4YbJPd4ergaC8pMmQLmOA7+2aLWwbHhZQ2RwV1gVCRfOm+dDhabWKcv
CqRg8acDZLtBP3jVjYmNoiiw5nkx9XothEZ1jlApFBTfFHnc/aCFwheFcSVF
FPQ0E/7MAy18lW8RatpJAfKxNA4RaaFjlrGHdlc33K2P+2OJTAOnFg8QNTuU
0OoZ3e73nIHEhPUOVKQSkjIO4Q33GYjAP26dmqyEvbNfvvGvZMBzo8eVg8VK
oI9ZsqrSGZgYnbtlhVwJxfHDexAwkHbdvvyOkIbcrY7r3wnU8P3CIO/7qT3Q
357lKA5WQaxDY774l17wcCCE5WU0KMIUR0preuHDSc2MkUwatpUSwiMNvUAv
yjGI2E+Dq8VKLqJ7oTN4bl+GMw3kl8o+vEAFiejdzLYnSshrzVqHb6tgdtcL
s0xdN9w6vPFT3cM+yCizf+u6g4LhEMH1zqjxnQ6v9tr5y4Fft803N1wLamft
9uOXOiBEIxGLM3XQlFhwgfWxFbIda6PLTwyA9jw7MMzoMZDi2hVpiUMw3300
SaopAzN77+b3F4YhvXyt3CK1FnuWcC8xeSOQMPN7ij/QhKepn/FSa8eAu4rN
s/J6jQsb7rHYEQSiXbsntlVJMSO9cVgtJJBvo3FOy0MpXjdcrmmPIVDQZXKn
pE2KdQvOyqoPEYg7T2Y4OirFPnmCh+GZBKr/W/XgmY8Mk7tnHn16mUA5O9uE
8VoZFmhTiDyKQKX+k1eKuHLsNmv1F+tQFnJ5XUnXG1LYM0Ai4u9jIUvT8BdS
Wwr7XdxLXRKyUPUBW3cLNwoLpuc8t4tnISJx1bKaKAoXWrRfXHCChWJtIxI7
JBQemhTv4lLBQgcivwjflnXj6rGK2I29LGTDb6Cv+dFY7O7WlcuwUEhdqElE
DI2fJbf4t+pYaJnfnOtu2TSWD+th6ygLzY8PtHN4RGPzQe7kXZNJ1LTvMMd+
eQ+OUXdcCXck0dRUr5o3lh+xg9RUkRJHordH+3iC0V7s0239+8FDJCLciw3D
Z6hwTJ9jaXQyicyO+HKSVqhw9YhvwJ40Et3yjo7Uxaqw2/QzkjXnSHQsUphr
r1ThDZvNHhtXk6igKD2n9U0fFj4yKy/oJ1HABeuElggG5zTZpOUNkkgdaHtz
XiKDb7Q68bM+k6hRVl6RfYrBOukmqxQ2GxlqXP1PX2Vw8uiZ88Ffs1FopSRt
dx+Ds53NM75dykbygJEC/wQNrqow3/ebiI1ke9Ldn/6gxWlteDU7gY0izjTE
m1/T4gByv+WmJDYKm2DlHCfWYqOAhube4+N+oxCl01ocPiV5+dx8Nhr7Jgwp
3Pqx9cEu8mwtGzFOQSealf34nMedopgRNspfwv68ZrseC2LCEuoJDvq18acg
brQec4vMN5lM4KBbW+xE/Aw91gwIORWTOKim1sjA5I4e+1yxEby34qDpJftN
plgOYAOzLBef1Ry0pXIhb75yABfy1mbphRz0/9/hfwCKnH9o
         "]], LineBox[CompressedData["
1:eJw1lIs31GkchyekkfyG+L2iiLYk5bJdtsum90s2t6gGOdlNzpQ1WczGnGpc
0q5cykkuZafpypYora1tFmm9LUokWVvE5JLLMMwwZpoJ3bbdc/ZzznOe8/wD
H1sOjx2uw2AwPD/xr3f06XWvazMCxn+bxIkdpTXHO4xAOwu5R4+8wR7Xpd3u
MiPo2aIz3JP6Brf6hpiLmRRsdYlb/F2tFiuz3DLOelKw8ejN4hc7NXiR7van
6b4U5I/wj1FuGhx4KBQd3EbBC3ofCVuuwRV7Eq6wgyl4ubpz6y6GBie7iO8b
RlDQfiC+Pu/Ga0y12k8lpVHgJHh0dVL/NV5BG0dyHlBg2PR+/uRTFTYtqyq9
2kBBRpGusbhKhae9IsaHn1Dg3hSyMfOaCj9KrObz2ihwnu0f9GOyCu8biEpO
HKJg0OTW9jMuKnzht4bT+QYsOFUW9MD6pwlMsVNIox8LNmi1A2F8JR7P0pqt
amPBOFeXymmSY7nSusaxkwUFLc6y5jI5HmF78uy7WSBXp4Ta5cnxABI2WElZ
wLOxCbYNkePOi+uPMLUs8JnBD3SXjWJOcLV6bLYxtAd5JTDnjGK/iBm76xyM
Qd9j1WEBR4Y/S0935kV+6oeboq75SHFfiKTTfcgYTIfVC9wVvdhr8O8pcYwJ
hIeBNyptx4djw7lIYQId4pfmZqgZ+/9+zgcdnAs954zTzykq8Ni7yERd7Vxg
OvFnvco4Twraf7gTE2cKpV3R8Xf31pJprmuY4K0pJMXeC1RfaiVW73O+PhBv
BuxXBce/EEmI1DOzkalHA3tGpV4L7icc3zCbJfo0nO8Yd2zb2U+6/NccdGPS
wBRaG45G95NnQT228XNoOOwl8nM7309q9q4SjJrRMDFXoi6c6icXkiVLm5fQ
0Gz3R0JA+QAJLF+emudJw6byE0MbsJTU2jVh60waDCymDdIyZMQnq8cHnaTh
88neJ8GFMtKiUQVRp2jwHudqXe/JSHedRdSHXBrepQ4wvZQyMsmJEHaLaFiU
cMEveNcIWXFJZ+LidRqKhV+uPuY8SvLN1xcubKRhZbzg0DqFnCxI3nrTvImG
3NzEnAEDBflZuqeC1UyDcL934HU7BflVnNb88S8a5s97mJ8SpiCPA55N93TQ
cLblhSD2uYIwsnkBl2U01NSLsmPqxkgks0jP1gDB2vsLvnf5Rkke62Sc3GyI
wEHi1XgrWklWvN+PvjVCwBVWhW5JVpLxCUf7GyYIanLXdpcUKglfIvZdY4mg
N8t7KHRESZJ+eZDrvRzB2NVUp+KkCZIdOGgT64dgWYHawVCsIhP+9SWntyFI
KHIT+DeoCNu7ZGX5DgR8FcP1RpeK0JuiPd4FIThqUWp2W19NREs1EWmhCI60
k6q3u9TkyrRemYiHQGTVOq985mtSfnmxa20OgqySqJlVcRqy+KNHwp95CB4f
ET43P6Eh2bvDK8kZBE/vBNzNvawhXMuiNffOIsizrOvrf6IhlqeXOokLEGy2
qG58u0xLEtMdFl67hcDmtkT61bCWXPpQeeZkPfr/X8g/cNYkhw==
         "]], 
        LineBox[{{3.1406484977765157`, -1.5}, {3.140650567572727, 1.5}}]}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->True,
      AxesOrigin->{0, 0},
      BaseStyle->Thickness[Large],
      PlotRange->
       NCache[{{0, 2 Pi}, {-1.5, 1.5}}, {{0, 6.283185307179586}, {-1.5, 
         1.5}}],
      PlotRangeClipping->True,
      PlotRangePadding->{
        Scaled[0.02], Automatic}], {576., -116.80842387373012`}, 
     ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}},
  ContentSelectable->True,
  ImageSize->576,
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{{3.4492476232100286`*^9, 3.449247654458777*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Difference between Thickness and AbsoluteThickness", "Subsection"],

Cell[TextData[{
 "We will compare the two different options by creating two graphs and \
displaying them side by side by using ",
 StyleBox["GraphicsArray", "Input",
  FontWeight->"Bold"],
 StyleBox[" ",
  FontWeight->"Bold"],
 " and ",
 StyleBox["Show", "Input",
  FontWeight->"Bold"],
 ". The graph on the left is using ",
 StyleBox["Thickness", "Input",
  FontWeight->"Bold"],
 " for the display, while the one on the right is using ",
 StyleBox["AbsoluteThickness", "Input",
  FontWeight->"Bold"],
 ". Note the different sizes of the arguments for the two functions (one is a \
percentage of the size of the graph, the other one is in points (1 inch = 72 \
points). With the default size of the display, the two lines look equally \
thick."
}], "Text",
 CellChangeTimes->{{3.4177266396364098`*^9, 3.417726654621558*^9}, {
   3.417726958466755*^9, 3.417727104108329*^9}, {3.417727156392218*^9, 
   3.417727176223216*^9}, 3.4488001915482693`*^9}],

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"x", "^", "2"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "1"}], ",", "5"}], "}"}], ",", 
      RowBox[{"PlotStyle", " ", "->", " ", 
       RowBox[{"Thickness", "[", "0.02", "]"}]}]}], "]"}], ",", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"x", "^", "2"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "1"}], ",", "5"}], "}"}], ",", 
      RowBox[{"PlotStyle", " ", "->", " ", 
       RowBox[{"AbsoluteThickness", "[", "3", "]"}]}]}], "]"}]}], " ", "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.417726670988752*^9, 3.417726745015789*^9}, {
  3.41772677592673*^9, 3.417726803722714*^9}, {3.417726838056024*^9, 
  3.417726844609857*^9}, {3.417727144494258*^9, 3.41772715175165*^9}, {
  3.4177273556845083`*^9, 3.4177273642943287`*^9}, {3.466368470764139*^9, 
  3.466368480000465*^9}}],

Cell["\<\
Now click on the graph and drag one of the handles to shrink the graph. \
Notice that the left line becomes thinner - it is still the same percentage \
of the smaller graph, whereas the right one stays at the same thickness. \
Using the handle to make the image larger has the opposite effect - now the \
right one looks thinner! For your review, here are the two descriptions once \
more.\
\>", "Text",
 CellChangeTimes->{{3.417727203411789*^9, 3.417727274570149*^9}, {
  3.417727311238538*^9, 3.417727327713354*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Displaying Areas Between Graphs", "Subsection",
 CellChangeTimes->{{3.417729802933168*^9, 3.417729821717873*^9}}],

Cell["\<\
One can specify whether one wants to fill between a graph and the axis, or \
between two graphs, or some combination thereof. \
\>", "Text",
 CellChangeTimes->{{3.417729834858118*^9, 3.417729982347022*^9}, {
   3.448800893917461*^9, 3.448800896970758*^9}, 3.461415641836485*^9}],

Cell[BoxData[
 RowBox[{"?", "Filling"}]], "Input",
 CellChangeTimes->{{3.41773002529115*^9, 3.4177300351707287`*^9}}],

Cell[TextData[{
 "We can fill to different levels. In the example below, we see four \
possibilities - filling from the graph to the top (the line at the level of \
the functions maximal value), to the bottom (ditto with minimal value), \
between graph and horizontal axis, or between the graph and a horizontal line \
at the specified level ( ",
 StyleBox["y = 0.3", "Input"],
 " in the example). "
}], "Text",
 CellChangeTimes->{{3.4177299917173433`*^9, 3.417730003362504*^9}, {
   3.417730089344528*^9, 3.417730189011018*^9}, 3.448800955292329*^9}],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", 
       RowBox[{"2", "Pi"}]}], "}"}], ",", 
     RowBox[{"Filling", "\[Rule]", "f"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"f", ",", 
     RowBox[{"{", 
      RowBox[{"Top", ",", "Bottom", ",", "Axis", ",", "0.3"}], "}"}]}], 
    "}"}]}], "]"}]], "Input",
 CellID->526222223],

Cell["\<\
We can also display the area between two curves. Be careful to enclose the \
second curve with curly braces, otherwise it will be to a horizontal line at \
level 2. The plots are labeled in their appearance in the list, so the sine \
curve is #1, and the cosine curve is #2.\
\>", "Text",
 CellChangeTimes->{{3.417730203610857*^9, 3.4177302129632063`*^9}, {
  3.417730257440855*^9, 3.417730335305624*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"Cos", "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"Filling", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", "\[Rule]", 
      RowBox[{"{", "2", "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4177302455749197`*^9, 3.4177302546651173`*^9}}],

Cell[TextData[{
 "In the graph below, the area is filled between curve #1 and the horizontal \
line ",
 StyleBox["y=2", "Input"],
 ", but since no range was specified, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " only displays from ",
 StyleBox["y=-1", "Input"],
 " to ",
 StyleBox["y=1", "Input"],
 "."
}], "Text",
 CellChangeTimes->{{3.41773034003994*^9, 3.417730399016246*^9}, {
  3.4488009971166697`*^9, 3.448801031692319*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"Cos", "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"Filling", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", "\[Rule]", "2"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4177302455749197`*^9, 3.4177302546651173`*^9}, {
  3.417730287199914*^9, 3.41773029074745*^9}}],

Cell["\<\
We can also have several curves with the same type of filling.\
\>", "Text",
 CellChangeTimes->{{3.417730648237893*^9, 3.4177306679493113`*^9}, {
  3.417730952946517*^9, 3.4177309546687527`*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"BesselJ", "[", 
       RowBox[{"n", ",", "x"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "4"}], "}"}]}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"Filling", "\[Rule]", "Axis"}]}], "]"}]], "Input",
 CellID->476617387],

Cell["\<\
We can also do different kinds of fillings, specified for all or some of the \
curves.\
\>", "Text",
 CellChangeTimes->{{3.417730958328289*^9, 3.41773097946959*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"BesselJ", "[", 
       RowBox[{"n", ",", "x"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "4"}], "}"}]}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"Filling", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"1", "\[Rule]", 
       RowBox[{"{", "2", "}"}]}], ",", " ", 
      RowBox[{"2", "\[Rule]", 
       RowBox[{"-", "3"}]}], ",", " ", 
      RowBox[{"3", "\[Rule]", " ", "Axis"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.417730677356748*^9, 3.417730719067246*^9}, {
  3.417730751653449*^9, 3.417730765027375*^9}, {3.417730917637142*^9, 
  3.417730937870228*^9}, {3.417730986272443*^9, 3.417730986371511*^9}},
 CellID->1184176262]
}, Open  ]],

Cell[CellGroupData[{

Cell["Practice", "Subsection"],

Cell[TextData[{
 "Find a ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " command to make the following graph of the sine and negative sine \
functions from ",
 StyleBox["0", "Input"],
 " to ",
 StyleBox["4\[Pi]", "Input"],
 ": (You will need the ",
 StyleBox["FillingStyle", "Input"],
 " command. Look it up.)"
}], "Text",
 CellChangeTimes->{{3.4491811640349007`*^9, 3.449181243356285*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxl2nc81f8bP36kEg2OkaxDOYe0h8Y7up4JlZYWLSWlKaWhgWhrCWmQIm0q
IZpckkqbqIzsPc55kb1/r8/t9/3+c33/Ordzy4vn6/V8Pa/rcXW7L93lZOAs
IyMjJyPT99j/PmcGmJZ+V8Q+//9n0nf4EXglbu2/APjBit6uPRwORXstFG3e
z4DCgztinuVMhardcRsWHd4NFQY1G9zqy6F+hJyf84udUCuoavY4fhqanO4P
mFeVBdKQARMvJk2HtlUJMi3jzgLXYvrytGgKdN1Nvpw2yg24GSOaR1yRYTKu
+U92bOyAuhXXPhb9WsLkNvvb2iU6QeXfDQceLg5i8r7JyVkNG6HYOWe6tFaB
9Tt1b9fz8echy/PJCs2zxkzh8Impz5Pl4FlVrdW6zduY4rXC7/NNVPDjgt/z
N9aYsoGB9bctwuZi7tNlVuLTEjb4ubf1V24olvnXPfXZGMiUt/WRffUxBGtm
2J5zfOPMVDbp987SNUNJuddDsWIUE+zzKlMuGoVc9niHC4nVTHVP/FbBg8fI
3XGPtVq0jKmdGpXpUOCJErOAS7F33zP1oJvzp5m5YVXmsx8TZ71mGv61TpZh
HVhqZDil81IUGxpxwDFkdzr+2fZlyX8vxjLNW/k9w+dMR2xo/nbgTzsbFsoe
TLf6BElHkgc2THZlWlEl04Nj7kK2vCjFW9aMaT9ct330CHUoqaqJrt32nOm8
GXZMQfYnVKteecIpL2e6n9Lv7VWIB8lGcdJ082FM773TdmX10cBdfueQ++gf
E/6epNbixwH3M+Ga3IQ1TH/7rnGnT48AqfyKTbmdiky/0iI3b3UJ1OxN/cm8
LzMD1/j2zPK5UPYzzUFTYQAzkGhsdd5zEP4e+2VpWJHLhrtr2FxPWARpMZGr
n3+wYsNb+nhu75Lio+NTlHqqxrERe12fHf1zC382OQlP5BWxEZ2HHM23dmDx
qOgyScAqZnjYbU1Aty5WWnUoHvucykTyCp/PzanAOsv6fRF275nonB58Fb9D
btLV4jWRk5l4gIH8PYXtyHW33TnupMfEAe/MDcOfozSqp3XPhg5mpLL0vdmM
71h7KPJoRSnHjPwcl13f3oYVMWu2xdpnMmONQSvCbNOwsPOd7t2o3cw46P59
s+lOmOEG92NTHNlI3WIXr+wI9NlyKcSgsp2NNOic/3DGhKT/nY8L47sAA6/l
DnNZCnhEuGVK1Hwoc+uI/xr2G0rV1Wcedd8PdWvWwsDmu1D1qeR98sjh8M8i
68uf9HCQaPa9JuiYDS3rxp7UHzgOuJM9vkYW7tDh/Xr++jFHgCsxWrGtsx56
3ia2Lz4UC1Il7etyc8Yy2e0JvRuUn0DN/EzLN5jG+hx44Hv5jxOUpW/vSB6/
mA26O7W5/8fxWKz9buIRpVlsSGrKXQMQY2WI5cncomFMuSJQxuvfDqyzThYb
DelgKnWL3R70PENONDMo9Jg7EzQG31NJdeGfp53WzMZ5TLVr940Xs4NQ+vys
TJejPlMf5Dxk/iB3rLWsif85ZizTEKT+TnKdghXG2xqWy1ezocNiNuzydcbC
EQOmWJmFMm2T8CUlNQ5QaCyb1Pv9OtOZ+LpFS7APKibM/69Mz4LpWjSrmZ+0
hNqDlsMSQ4qZ3pxg31l+9SB9Hv+sMV6LCRd+xuNLBwPX9WmK61kdpm+S6iC7
ZSFwI/Xc+sfcYPoPcvpOcJODuj0a3b8+eTEDk67t9uHqUJkdsjlbyY0ZPK6Y
oBNVBMWPjluuvDKJGf7X7FAZNxDLHEsMIo8ImCGaqw6OOIY1sgdsbJ+vZaI5
l06Oer4cJT1dc6Ze+8VEn4UR04deQe739v2TFIOZeOEe/fLl/siF1rpEcBVM
nHFOdryrBUoWNF0ZpVXHjBbnnN+RuRGrrWIVt46fzYx+Tsm64VCEpce3DAyZ
3MBGCqVrVc/U4O4tSXf/q9GH6MAbRoHrf0H0hSMD1iQNgZI9Nx2VYn2h2M2+
TknbFmo2908f80IRKo+amNxq2AMNE2sf66WegjqR3biUB2Og2XH7x8kdx4AT
Lug11hVDu8uLeyZPTgDXE1FyUtgfuuNwzrmfgSB9NiHRNKGTydR9tqv4bznU
OjTC37vaTI7TcXG3cYKKjcOHXNyXywbpqC0QTTLDgpO7Hlsf6GFDZuo3tw7V
wwqDX2cvaixiyvc/H9VxkMPaRSZLimQrmcqDadP2D2pD6ZVHdlaOBkzwTOm9
ytIFyHWccvSNSmWqzy/JlbvrI8fUOz6UfGVqn9Lclu9vxzrbM+cbnV8w9cwY
/84Vy7HyjOe7lbcqmcavRRty1fj3d7OFg+71B0yrdpZV0iJZyLsdZjOkYBnT
lg4aP0IrFcqutUxfZ72T6fSenj/83TmoWX5G52xxNtNTiB+6ev5PkGq3fBYo
ljHhgCtBn+JuAJe35tQd13ymryhtTLJ3Au7CKe2L8zSZ/pk7Wms9BSCZN1zL
ztaBGQwQRgR7eUL1ZJvyx/OPMQO/ReoH5wZB6TylNXlzfzBD7anrBX59sOTH
mQ0D/MOYYeifqbaL07EqpvOdb+JfJhJ9N8rzvoGSiVMHrf6ux0SRNxvkwkYj
F7Rw5/RDjIlHzQt8/8QLucJgRbUl5kwcc19octoTpUobS8YU6jKj8VeMs/pf
wxqXeQc+LbViRk/nB+lscsFy8ayHA+2+spF6lWVzY6zx4HV344OFz6DCzV7p
woURUHb3y6zyA8UgtX36uG4Sg+qOnOF2Q59B49LEGv+/r0BSXX5keuACaF3z
b7aS7l/gvr2QbNp6AjoDE+svPToIXHip5M1HBej98SZKVT8TJOxGwALdu0y2
6vb9vEoFqNa3GBIb+JUNHrvmRs0aQywpHl012jufKYtiTURxV7CqLXjF67fA
VESrvAtPZ6HEcHiNvEiLCcZvjvzL7UbO/5Jg3hgJU51kdFow5TxyRaHvx3a7
MrVZi6adU1Hg73/399Q905n6EtnHs+40YY1WYbiVSS3TObD9jYriCKh8qho6
8cwopnvKKX+ldRfUeR2vfzl5NtM75dVu/JOvD6bfDCe3v2PCgJ4as3q+frZX
HJYZl8f0bYI/WB6YBtK7JZLlZsVMP21QfT/nf1DrI3MsNNaeGa6OW/smWw3L
C8at39XkzAyLI6Rfmydj7cRq4Yzr/Zho28oSD24gSiPXGjk+qWCi6vBlu/xl
kGt/UusUdJKJd4VEy3fcQW7KjKSm5pdM3OBaOmWFAta5uRp2NPdhRrt06vuE
jcWqft1Ltc1S2Ej9pswCJz903Nr3zn2uP4QF3k05YZ0LYQEOkkaDUVC8p950
1IwSKLqWHTbOcD5U73C4ljTMHCqyrMNMVFWhPrJVN2XmYagNl//YM/cNNBX7
VoFbFEiL9pdHCCOhrXTqMv9d/YHrHZD2y/wtdI9G6cNeOZB2tt8Y69DFZB5n
yT34YQS1+YZVnk1PmFzk73Wbj5dA5YiBsPZ2ARv459iBuGoL/Huz69mLvAVs
cEe6nlMfLSxfu4ItMNdlyr6b3+4IXIQ1H5s7fY7YMJVTo6/nqYeg1GKtdN3H
JUwQZJkVMMwMOYlNanbuYKZ62dDUc8hm5Nwze8Je6DC1+x3DV5n8h3WfAxLi
b0cx9WdG0mFpJVg1wTd+1ggHphGnUzJktTqWzFu8ZrvNLqb1JQCjejMh58+g
0R+0nzHtL/HfjG7WQem7tK9+Vk1MJz9982WnJ1D9/NbiDzM5plttUVARaQmS
d+Kt2ts4plfp6e1Stgm4ROUPqa2vmbBF4cj0m7nAPVNk7ZljmP7hAXf+yYaA
JNLi8O6ck0y/bcLMVy7joPrP3c97j11nBkeO9b+nIYUy5TWP4r58ZIZKK9ff
7zyCxb2Zy+Yc/cQMz92Z5yZ2x8rePeJV8mOZSK320KSNKViHQazfqk1MFFJw
bYtTG3Jbki/4bT/GxFqm8+Pz9iHXuOKV/MoPTHwrfqxRkBZK17vfDHm1khnp
Nx1QMIjDmpYJO8fDOmYUtqIxrzIWy6Wl/bLS5Pjzv+nBRssm9IxfHPZp3gso
d3tQ9FjDE0oLa4J7T3Mgsevn7hm0B6qdtw3032EL/z5/WjPZ7jFITgqNkqon
QUu+8ib1y/2Ae4xJAx4Ng84BZjfaXTqB+6BVoem6CnrnJi6dsNACJA+71r4p
yGeyDx8vu+mRB9UvjSzP753GBlV/+nRIxQRLZAct/+O2lCnLD0haMzIIqxZ8
0Tltxeflvs3JYxP1se5FeXZ1dC0TDF4z2KJVgNz6Vaov6zmmqup4JaDbE7l/
1ady1WYxNb3CHQaRi1DqXOq/zvU6Ux83aZ31KlOsibsZK8qPYzorVFep+y2A
isbuWSr2dkx3U1Tb5wp9qO35YK8VdprpbVFKjh/vDdKOI3e4i7JMuKssq8jA
mn//Sx4UnH/N9P+LVongLEBauyzlie4Lpv9i7+Hrtfz56Vq/wcZ7CjO0yXJY
auWP5cOH64TNnMoM03fLSL7kYc1NhYWyf5WZaKX7pMzM8ShdWR4jGPqZiXIK
O7KWfUGutiZ4CDYz8bpTW5qNQpBzHeQ1xuwdExd7/pu04S7WlXxcWBXuzYzW
e8yc+nIuVj2c+zd+nh1//t2utrWY4dbrKdbe779Bw6siMw+bS1AX8fzS+7Mt
0Fy44J7J8ZXA2XkPCTH8Bu0t09tSpbLANcsaWitNh57/ksJ33hsO0o1FNkmj
3jHlj2PZN6MErP32zfpytj1T+Tz715B+digtWd430fYEE2T+jA84txa53kLJ
GdODTDVXNn3R31zkZBYcSV88nukZGy3+JtkA0p3H9nqbljPhqKeR4mO/gau/
3qfhYBLT18p5sL6QX8/6SdEDWBETTXn6+/j1gygJffHPoLeViV6tn3cjbwNy
LyfF2/yMYWIzh5xfR08hl5I2qfTSXyZ+G6w85nAhSqLzbl2Q7YXG3NhDEqeP
ILU2G9f1oQpac7OGy9yLA668ZMbDtWOgSwdmj6ltAm7PBeOnb2cwwdI9c9wr
vyP3oiDi6JxaprpUeiBwVyhyH/atVNO/wNQ2JvZtOpCCkgfzq4tkw5ne3foJ
oXv5fr8tsPjRk1tM+EyzNxgTgKv5vfZb3mCmv/rE4fLesSBdma+XWOjDRIdn
BBgqVqG0cW5Xn20Hmajd8ZHiV1P+eT3TWG7OMbHPkxa1b09Q2nxKc0r6dD7/
Hxzy7nsR2m69mJ+yHOFiYELbVrVy/tNZtmfOSChqHCZ8LeMHRaMUWOvUMqiS
Knj1m/cbKjxS/63/Ewv1m7t+q3bug9rVO9/sUNoLTRFD21IfM5AmTTC9EyqB
tpvukbMXzwWu82N/rW5+Pq5mFtPV/wNO5/at0IAqJuO3MvvsMH+o05q20+P1
FSbnG2e/LjwCKn3OZ+xc58IGxk+/4GFphXkP7nZsEZeywTlGsVcPaWJZ6+pT
UfaRTPngs+JLo/n+emzX0ku7DjGV/eJvfsN2oFStO2bHwZdMcGLDWtsufh4o
fTlC6dxMpnq87vvHtYrI+X26G2UUztSuCjryTqxBiXzQy+m71Jj6nY06D+Ui
seq4w4w63XVMI0J++MhuBSx5UfbltV0803r9sisi+w1kSx362PQ/yrRfndV+
WCwDpfZKkgfcHKbztalpUSyfVzZ7XVg0/SPTzTmT8ijHEyRBSqrxAU+Z3u9d
+5I804CLPJM6I+w7E1bofrqmUQZc6ppah4Japr/HbLtZ6jqQZI/t1Q6YyvS5
VwM/l/pCjTgswFvpLDNwD5V506MNZXsmuM/p680M+2wt/BdrhsVXFijFfA9n
hscVfx4N+IyVt/1DGg0lTDTwsEHhiiysO86cFQcGMFFgj8uw1ALkFt1syJ//
kYlVoozHNHB8//98v8tzHRMHvzG9p7UVpaceL33vs48ZDRtxc/jYZKydlvgz
O7QvM7qSN+L1wxVYYVv5VT2qha/fIxR3+33BIykzIp/m5EBZQ8YXs7yRUOqh
7fiyNRrqsmNWp74fCNWamzee82qHf6d+qJ5SvQeSxSFV74YLoeVG2L6Q9BDg
Qv5c0sldCB2pHk2PFpoB92uOzMyXzdDb1/xu8sbDIMm7HLWvcxmTPTtxpPcH
S6jpY/1ouEwtG/TRp5C5jMHiiwOOHtd3YEMqdijXfjLCyqY1GXUde5hyy+wi
O/sPWOfzZPPybm+m0r0CmjtKkZu9uc50RgVT7eOlt6Soib9/HSVtXT2mNuiB
vEtLA0ovZvy19ldm6noLpqTF2WFNt2lkw/IIpjO78v7VdEeouLTPPMVmEdNd
ln7qhGks1L7xOHHa1Irp2S+947H+BUhzFY4XrFzOhOv+fJ7wMpKv3wfvmmby
+Xziy+dLR/HnQWlsQUKZBtN/eg8qnsyEumkqxWP8fjNDi7L80K5FWJYiOmli
dokZfvx9pmfqWKyxjVNaet6RiWzl/3q/t0Dp6O5srRWHmCij9/up+KfIlRi8
NN2ZzcQruix3zlRH7tT1zKdhc5k453h7TGUTSjTf6909XsuM7COdl3yw4/Ot
mU7G73t8/R7X0Y+pokt8uPzvianQ4F7e9K3/eahz7i/yDT4BzWF5CdFJEuBm
5J1H373QHnNo8YHvFsB1tM+qiA2A7taZjV1vVoP0gmbh8BAbpvzc07EpZS3W
+v2QTFfsYSovZ/ZLUTRCaeKVs3a+ekzwjjNf4pqFXM+4MxGtb5lq2udtISP5
+cFgSZCKKX8+NF0nBemEgNTqnsfmOzeYUOt22EFtvl5U6ur6ldoyfUHZoiHa
DsAdsJPbWDabicaC97gLZ1Gy9Yg81+XFRLHeurbm1sjdj+/ZtGctE0/KTFh4
TQ65n0ujpZX2TPwyfOgj2bEoKbigkp3hAI1XXkwEYTJIh+kfTsieB63XN048
WcLvT+7HTiO1y9D550hw0dcpwJ3NS4o0b2OCWS6HRtaGIXf3z86MeAOmOlux
d+kyNeSyjj840vOWqS09GQapzijJ/Vd2Y8FbpndlqrpTBN9/bG9J1X1jmPC2
UlPtSi3gGn2eTb81i+kvvah/ecYkkPos8T6pkctEbp+n/+jqQOmP8mEasyOZ
qMHHO3GsFnLdD32dFPj9PWj483zZSOQ0umyL197g6/cUtwzN57gydOFH6wP1
0Kzf/ufVFA3gZH4Zpd0shnaj1q58vw/8+9ed4lMszwR3jBdkmKYi11QW1eV6
nqneWxM6PuUdcmuvHuxS/cb02s6c1V4gw89T9mo/ci4yfbn24J2XtgJ3K+X6
f6PVmSgiKTVels8/RzrHJn7n88Jw3GWeyufBmhDbJWMsoVXn6DL/VW7AJcUX
Rmv3hc6F3XOsz7/i8+kdofbRBUwgdPx7sXEWcodUVQY/jWKqIywH/9SS569P
4mZP7WB67ql/OVk+7wzTGB6ycggT+jQU+vmW8PN//+klG0qYqDjZyKChgs+b
qV4K7/Yw8Rblc14qQuSWWRi/j3aEFr3Ey3fnpAK3y7SsVu8cdPzXESEYlAxc
3avWXJfXTFCaMCbjfhnfD6+6XV4+iAnNEp9l1ewBrjXrwrKn95koBfbXHuLz
XNr7Y3FdCUxsWdntsEMJuacdMVYsAtq0rFQ8dugBx/WXWZdVA12OvXUeSrHA
2bfX3YzZzwQbD6q/K+1C7tN9+zd/1zFVpwzu53lD5BJ2xaR8n8v04h8u/G3J
53efm143o9OZ8L1Yca7RUuAKq1QmmPHvqyzLXrndll/f9/2BKwr5/X35OOGk
ArJtt9f53DIH78CcTeOedvCfqRXWrAKK4sZclispg8JKL2y0doKqaAfOxGkE
VCyW2/1OXgnqLXtjzXLqoXZKVbL31yHQdGz90f7zFUH6aJXH/Yo10OapsSIU
t/Hz5dzR6/45QddHHxeZcDvgRo80XBJ4mckcuT77cNJ7vj4J/xs6YTCTO3Ar
MzdaDiqfPFaaufMrG3hHXXNdwwfMG/1art59HBuctswzdjLfn1OX+Ll27WTK
u/Ma7nXMwZr1gicV7yRMxeV2xZbry1HSfTTgV0whE3juCh8v5efpgkkhOjXm
TNVjifZOOT7fBVevcpizjqn5hW3RiXFBiX6Wydeq50w91CeuPswPq6Je/PP3
T2EawQdSpi46iiX145LdmpqZVtx3bT2r8ZB9yM3x5StDph3TZFErpwil+kZr
t9pvZjqpp2eMWj0Aqs0txLbfI5huxuPJFxs0QeKRket7KZvpfavitsztAC7c
dXNJ20AmLDDeNWdpDXBf0sbbL1vP9F1XfC0RJYNE6qF/gJ8n9GuP7M0UmkLN
wp3DMraImMGeB91z3WKhLOKu4Z2oWjai101fc9B1LN6gP+pZwSNmeCRp6ICP
+7ByX+fpZiGfPxVmuZsuyse6TfaR9eX7mOji4BX/mtORm2XfE2/wg4kHbdbY
xg+9XJfJWZMd45n4Mr50dvBHaXBgXTpKmJH6jAnRpnOwdtXW9cmrBjOjwBuv
o86KseLo8tFFwwv4/iw348CkBPROi/EZW8DnhpgKdiLRB0rnzvy4/UMx1IX0
+1qVvxKqGpZvPdrxEf5tyuCe/BsBkskCwy9th6DFq6Ir35V/X/0fqucXGkFH
hHZ430S+/v6ViVs0/wH0lHr9OC29ApLG65Z5h8cx2cP7gnbvOAQ1RhisedqW
DUpYu91w2BMsXuEnenwnhg35dSWv3wkxVn488WmojoApS7fXbxdpYt1GSVXG
rM9Mpennyh+eX5GbHOw87W4DE3Sec5rwk+9vnQfFUxZoMbW+A5cIbvD973ZT
yeG6JKaunn17QNFmrDVYkFT/tYHpzFjyPbthO1Q4XZpfa9DFdOc7fXPM94Da
kBtDzaoFTG+xu8a6A8tB+kkrIGr5HCa0W2KZe/IvX1+2BeuX/2H6Y1Fx5Ccb
4LQ2TXXpaWL6jzDi/JBwqFths+zpUhlmOFOim2L/GMsCHi2Mro5mhu/OfD/l
ko01I5eEy5zh6/f8r+N/Jc1HqQZTm7dUgYm+D3mxvuI2cn+P5wg0RjPxkucT
H85bilygUqD5x6FM/Ou0l9sobZRM0sgd8oifj5e9bSv4+herhUYKm4fI8P15
yKiBZT3omuL3PP2zKzQsr0pvrhgAdVau+4I2ToNmnxEz/619AdyYjHP12ALt
FzU7MmZuBK57aOWQn0HQ/ctbN3WOO0jDq93szu5lytG33RQuRmOta0zN+L1y
TOXpa+H188oojdz81yJzJBO87j46wdGff99CFHMzXjPV5LEJ8IOfV8Z3yf55
kM70lAPuHpg8BaQTFP7NP3yaCQW6WvqVLsAVn3j98cgbpj+4OrzipSNwxx65
SF7rMJFJv8yTp4JQsvD69+yk20z05GL/ka7Tkbs5s6fj0EsmHud358xthlzO
TDe70FQmjr99fYflCpQ0T+qcsXk+NO57PXhLjzlIZT887WxRhlaPyFdpPgLg
srxlM5b5Qme8ntV/ZvbAXTFOPHQpmAmmVQf22emL3HXPb5+G8flixrDZEy35
85T7Y0DL7JH8plTXlm9PQEnjgck5Lj+Znt/q01av+Po/e2/NM+cXTBhycleQ
4QLgWromnM+/yvQXBe11yeHv95Ldq0e/4phoZ4CfqKUPn2ech40KfcVEEv9t
V9YP4t/Pmmk3+ocw8d7C5DRuM3Li0r5f3Dr4+q0e8ScxAtcmjL7qtG45NMvO
Wt+VWQTS+pLl/7yCob3v1QdTeir4/vwt/IP+HSYIneIfY+SDXIPd83bVGKZ6
A6t+b+Pzxbaew+Zj+PXW95FP1ZwI3HvPoV8CTjFhd3f2WadfwEWJdIyPL2ai
m9+f+E3si9zekKzIOBkm1jvscCh9CnIc+3I/sw+0dKXl/Wzl83XCIYMtgSeg
c1Tov7CuXOASH7xXEtoygUZ+87b9Jsi5eJm+OhHIVLWXLo1VSuavV50iNlnE
9FyrFv3U5PuxYj+77Qr8+Tm4Y/XUFWr8+s1v+r+NZaL8dOXO4dnI1avvyba2
YGKnL4de6vD13JFbMfy1PTT39tWtLPcDbqOm8b+1hdChGbJwh1cRcA1GH9fu
C2eCvFS3mOBwvv91fOlOcWTCyVPHeSXcAa7Jx8F1lQwTJS1enxrpitzb/4zb
MuYxMYuoDXafi9yrkcnqMh3Q2nE+OEmhip+P4+wn3gDomhl2NcsjEzjn87Kv
4t4zwermsTecy/nrzxbLai9nqquLJsV6FSGX9DT8cjZ/f4+/4su1fP7Zv8Lt
nHMYE74JO1HfeIKf5+9HCi4/YqJu25QJ1y349fUuuBp7i9/fawWJI5tw7o0N
wf8udEJb8u+e6kJj/vzFzpwyS4kJzi/TdFPk81FVckmg3BamV9Dcof70Cp+H
1Od0ypUysXr99IaKWORachS+jvWDjoq/85bm6/D5q2ONdUY6U1VyzXXjpvH/
PuunmeVgJtyybrGv5CD/vFtWFCg4M9EvruzxiSTkKmf3/m59Cu2ZOXf01g0H
rs266+e9Lib4UtTu5qXJr9f6962HfJ4aYWL4Y7ECn4cMAy++jGaihF2TDgxc
zuebWGt+LGDiaZppKuf5fPj5V/nWfc3Q+lo7crblEeCKLiXHJIxngnmco+22
BOSiI94dLREzVZuu13s2rETu26uXNyZtZcKowMMW5/jnz+1TyWb3mKh59+XS
bmM+79dl1p5ZAO02K5ec0LvLrz9kjJGtNxM80lJosFRArrUpMP/eZSY2kj8q
+/IVcuVODhNXJzHVUaaf/xnz+1te984y7QITnjm4qfzNU+C6wGfF3hAmKn9q
Pje5kX8+rQ9XbZ0GHQ6rW17cCOPnhVefxwhtmKD2fnVDwv/+fnzhnx9WTGhl
+d9oPcbPL1dPHJvdC23Tu89M+7YcuH/54tE7G5nw26OLYWv0gcu5+sj6dxwT
9x0v9Z7uwD8/g0BZLzG/37me0UU6OH7H5xGhIhvYdUlvRlK1iP8cpjPc5gcU
XZr6416WMhQ+lT8V7+cDVf4KD8xcbaBi2lHlAc8WQv1kWf0l88ZCrWGbyYeT
6dC057iVcTAH0tts09kHj6Fte8WoeQcO83k0w3nE5R7oSgj3KXMuA27S88px
6RpMxv3NwUYVR6izrn4qW9DD5HYNE2gmTITK90Fpo9t02cDrx/LT005jrvRK
8LiUSDYYqzdgwDUsi4z0kwl5zJRduENPi+qxZuFMywu9Nkxlq9OerLVzUdLg
f7H03TkmOOieol+5CLm8WU9zzs9lqgf6zMJfJ5ALs1g+d70rUzvrfMN8Dj9P
jn1nrO8TxdSvXfQOcpXBKkwpLxq0kGlcnhBo3joTS5We5Zm6GzOt6GyTNZ3b
IXvmn32rF1Uy7ccP7c4F+kOp/KX2OK8nTCfZdl3wYylUGx/eYPTbjOl+S5Ic
9awAya6zx3Ir9jO9T3cfvY5WBe66SdbfqA9MmDsmRa++Drgfiw2CZ/syfRen
I5N/7wFJu/vxExkxTL/a8b69+UCocbz/6tstLWawO9rDb5QXlL1Kzltn0sRG
dO9nJq9tsNh6t69S2Fdm6Hn15cKSuVjp4DtPbig/X/QT6TvOd8K65XG/wwTA
RBc0bAr9bJD777RA/rEaEyvNvuAr94Wfx0akl722Y+JLbz0sew1RGpFt/Ljf
Ymakat25/8VZrN125WRl9GZm5O/d//bhi1gRvMnL9mA/NlK3IbPj1Gj0EbWM
m5E3D8oC6j2Mn0RB6di4oLGr5KHucMzJjuojUJV//9ijLUHwb1mmw7sNTiAR
6yx+tD0YWlwVk3sS+XxybuOiI6NLoMO/dn/sfld+fhBvtf11Gnp+3ijb8cwQ
JL0uepIP35jsnsufqpLUoGb6b2H2+1Y26PHncZfrd2HxtFi/vfn92ZBvo5NV
i+9h5dOGlAVvxzDlmiMH9ymlYN2KTQ9F0tNMpd6/3Mycr/+ju2/9MjnEBK2B
Jwy++PH5wL38pmsRU5NJOuC8ewdKH2dMdjmeytRVbuaYuEuxdpJJlWy7BdOZ
2q/k0FEOKuZ1DTO2CmG6c0bV/5jgCLVnvIsVTtxhevNP/7DtMxykye5dB36v
Y8Klg+XG1jbz9TMqcPI9f6Y/+m3c5Wt8PzZIf/2tU8j0I78uK0heAnUbk4xj
oJgZmjWY/+q7FssOLbGxCrVghm837v58+jHWqO891WO9lYnmRefJvEpHqeKT
Ks+prkz0dejjBd46fN44dcWkXp6JFwc9/LioAbmrF7x1sZKJM8+A7dcnfLJW
m3nEYBkzWvIt5a6tPlZPPHgxa18fNlLY885/6j7c9alfX1uPZGiYXQOKK+ZC
nemeGffXdkDz7jl9VKNuACe+eelkqzy0e1Wle7Xs4++Hyz1WXAvdqWETHwyS
B2nkzbseEYwpRyW0C9xXYu06j7mVHv+YyqNDjxQWyqM0PET6KluFCV7I3zZY
xfe7zrCOqCsbmerror+BEa3ITbuusrJiN9MbeHvd1mT+94n9dvbL8mLCQTl/
9i/k+1XBsekNA4KZ/sA6m6W+G4DzNS5wt2tlIqMar6fHNVEC7c8bb/oy0aMr
XRr9+P4TvOJU/2nLmXiMi/b9BwV8XvUqexjUysRxdx1syqtQKrM662JnHjRu
fOPpudMTJM0VPYP+mEHrju9Hqr+3ApcxKnj9wnPQeVuqVdG0lT+v1wIvD7nK
BJMf6O0ey8/TV4al744czFSn6jsPN3+CXP77G1l2j5maVahgmnkhSnpPrr/2
YiPTO+vCplrz9dksOvRq9HsmvGIxuuqsM9/PjntZ/f3G9Bdc1cl+MBWkoVHt
sX79mGjH/mm2/3xRGtfwcnakBhPVXlt3rPUUch1/VcYtX8/EbolTK5r5PDT2
ltj6mg9fv/vOWKOsieveaTdtLPKApgZnQ73hH0Ba9XpBXuMOaGva4lWa0ML3
pyOjdkiamOCaeewt/XV8/nH0WplZzlSD9wwZaWaO3G6PXRkay5leLaZoHpkP
3NuVB/Z22jBhR59RTjLZwEXfX7ssfSUThf6+ffjzEeR2vqmtDpnKxDr2WVd/
/eLzncP+J/6W0FJXF9ZkbQBc7Gg5CwsxdGq5pC14xs+bb5uMHyckMYEg9Ojv
KXrIOXdVV5SeYKpDV+2LkL/JXz9Yb3aGNdPb3tH/3R2+H8otcb+lWcyE+4yH
nns9hl9/xGKLIe5MlJfdt/I1P29IhxzhPtQwseOD+j8Gncht8V94ZNIcaOaM
SwZM3gvc2jz5cptZ0NF/+whN03rgGsXltueOMsGfL5duBfLr7+0eUSYuZMJx
jXU/dRL5fhmW9WdEfyZ6Y788xqIKuURr20NBjUw808fpuUcln6fODSnaKQOt
NU8dCu2/A1e12v3KLAPoGrNr59FJfD9z0Uv4fLeACeziXiuKc/93/YvlUT+Z
ql3ligh3Ps+kRIhMx6cxvYcFByMr+et3Hbefd+84E75Ya2G1ij9fVUsMEjX4
vNu58rnepDf8+qonaeq95/fX9wDz3I4LnrMnR31zoC36XtaVq9P4vPBj6Ktt
95nAd/V/G/r8Rq5iQaJl+VKmlxv7fLtGNL9fG06oXuT7veq3mCF1tsi1bRpi
fiIWOn490uu9PJp/v+MGNF3VYar993dtqNLg80pSzOu0aibcqD0wf1kA/7w/
PTR54sBEma05IbpTkStLWSIzNADaUx4e+qLB5/X22MCIvyFM8LFKe8P+Fj6P
fG55JJ/LhHoVJSPi+f2vjm0VaU5nomcHjDfe+Ybco9keT8rmMrFpC4wL3Ijc
93vb3nSvhtYocN10iZ/v8hNP5qenMIHV47pEk0jkIn/If7oiz1Tn9Ml3Ws3n
/YyxxVrpE5nw/uKpV/7J8vn6/KlLv+OZqPHg2fTLt/i/vzq6/88EaJ9ubDT+
dwK//gLXh6V8Xn1gYFJsVsHnKc8NBVPfMLFhcZsQV/H5VfnEwncaTNXIrK7E
QMx/dw5KSefrzUnT4f8N/8TXN9PTVhnfmKj0xUTTVS7INe+8mPT1GnQsMPnq
vIJ/P2sWzt+SZsAEldFKxdH9+P2asmv/bH4/Z8m0+pxY9b//fxqfK2cHbSYG
C1frTOfXK5v6xEaXCT9tW9D4lv/+N6Pl6H1XJu4zrXRHBr9/vadPmr2K5Pf7
s/qkiYE4Lcx379kW/vxesPau77+Sz3chg3xfSJh4iG/Y/Fa+X3UOzNjtsYAJ
ek+wWTk/+fqwKl82uYkJVwedPiV8x99/H5s1B/2gPXyeyPDUUv590R4gMkpn
AmxZP2sLXx+79/kLP2xiwptpsZA0Cbhm22sBl22ZiPPd9/BDEN8Pcxzv5vHP
U+Pjz7PWv/nf12bsO8KSCcLHub4dG4Fc45g9n+2zmNDzSWiJtBO4nmdXzbpP
M1Fhms7gs+v589y1J3O2G3SM/Hwg6X06n5/7fH1+M58JChMXvw1P4e83uzzb
/jwTTju8Z6TtOX4+Nbt+eb0qtClu/RX6qg+f5+vyxsulMFHv3G9Wcp/4n29x
SvQ7Cm0/+480N9Lk/97uQ77r+fOvKUjJLFbl92fkle18PxHuuBU4+fR6fr09
UbqGCO3lA7673ePn65aEY8MeODPBj5w/R0/8x/++2yMHvIlhotat4a2b+Prd
u77F+8xFaF/j6/FncxB//fieOdKVTPBUUCk7n58f2xean34nYsILr+8H2F0F
rlMkNo7+wkSVD+auNT7Mny+ntNV3/mMCLjxNNpHPVz3q72Yk9WHCeac9/7ww
4n8+5dSPiDtM3N+4PTC8jP/30NDZOyL4/a4pG33hHurvHnrzpWnt//W9ScT3
IvG9SHwvEt+LxPci8b1IfC8S34vE9yLxvUh8LxLfi8T3AvG9QHwvEN8LxPcC
8b1AfC8Q3wvE9wLxvUB8LxDfC8T3IvG9SHwvEt+LxPci8b1IfC8S34vE9yLx
vUh8LxLfi8T3AvG9QHwvEN8LxPcC8b1AfC8Q3wvE9wLxvUB8LxDfC8T3AvG9
M4nvReJ7kfheJL4Xie9F4nuR+F4kvheJ70Xie4H4XiC+F4jvBeJ7gfheIL4X
iO8F4nuB+F4kvheJ70Xie5H4XiS+F4nvReJ7kfheJL4XiO8F4nuB+F4gvheI
7wXie4H4XiC+F4jvReJ7kfheJL4Xie9F4nuR+F4kvheJ70Xie4H4XiC+F4jv
BeJ7gfheIL4XiO8F4nuB+F4kvheJ70Xie5H4XiS+F4nvReJ7kfheJL4XiO8F
4nuB+F4gvheI7wXie4H4XiC+F4jvReJ7kfheJL4Xie9F4nuR+F4kvheI7wXi
e4H4XiC+F4jvBeJ7gfheJL4Xie9F4nuR+F4kvheJ7wXie4H4XiC+F4jvBeJ7
gfheIL4XiO9F4nuR+F4kvheJ70Xie5H4XiS+F4nvReJ7gfheIL4XiO8F4nuB
+F4gvheI7wXie4H4XiS+F4nvReJ7kfheJL4Xie9F4nuR+F4kvheI7wXie4H4
XiC+F4jvBeJ7gfheIL4XiO9F4nuR+F4kvheJ70Xie5H4XiS+F4jvBeJ7gfhe
IL4XiO8F4nuB+F4kvheJ70Xie5H4XiS+F4nvBeJ7gfheIL4XiO8F4nuB+F4g
vheI70Xie5H4XiS+F4nvBeJ7gfheIL4XiO9F4nuR+F4kvheI7wXie4H4XiC+
F4nvReJ7kfheIL4XiO8F4nuR+F4kvheJ7wXie4H4XiC+F4jvReJ7kfheJL4X
ie9F4nuR+F4kvheJ70Xie4H4XiC+F4jvBeJ7gfheIL4XiO8F4nuB+F4kvheJ
70Xie5H4XiS+F4nvReJ7kfheJL4XiO8F4nuB+F4gvheI7wXie4H4XiC+F4jv
ReJ7kfheJL4Xie9F4nuR+F4kvheI7wXie4H4XiC+F4jvBeJ7gfheJL4Xie9F
4nuR+F4kvheJ7wXie4H4XiC+F4jvBeJ7gfheIL4XiO9F4nuR+F4kvheJ7wXi
e4H4XiC+F4jvReJ7kfheJL4XiO8F4nuB+F4gvheJ70Xie5H4XiC+F4jvBeJ7
kfheJL4Xie8F4nuB+F4gvheI70Xie5H4XiC+F4jvReJ7kfheIL4XiO9F4nuR
+F4gvheI70Xie5H4XiC+F4jvReJ7kfheIL4Xie8F4nuB+F4kvheJ7wXie4H4
XiS+F4nvBeJ7gfheJL4Xie9F4nuR+F4kvheJ70Xie5H4XiS+F4jvBeJ7gfhe
IL4XiO8F4nuB+F4gvheI70Xie5H4XiS+F4nvReJ7kfheJL4Xie9F4nuB+F4g
vheI7wXie4H4XiC+F4jvBeJ7gfheJL4Xie9F4nuR+F4kvheJ70Xie4H4XiC+
F4jvBeJ7gfheIL4XiO9F4nuR+F4kvheJ70Xie5H4XiC+F4jvBeJ7gfheIL4X
iO8F4nuB+F4kvheJ70Xie5H4XiC+F4jvBeJ7gfheJL4Xie9F4nuB+F4gvheI
7wXie5H4XiS+F4nvBeJ7gfheIL4Xie9F4nuR+F4gvheI7wXie4H4XiS+F4nv
BeJ7gfheJL4Xie8F4nuB+F4kvheJ7wXie4H4XiS+F4nvBeJ7gfheJL4Xie8F
4nuR+F4gvheI70Xie5H4XiC+F4jvReJ7kfheIL4XiO9F4nuB+F4kvheI70Xi
e4H4XiS+F4jvReJ7gfheJL4XiO8F4nuR+F4gvheI70Xie4H4XiS+F4jvBeJ7
gfheJL4XiO9F4nuB+F4kvheJ70Xie4H4XiC+F4nvReJ7kfheJL4Xie9F4nuR
+F4kvheJ7wXie4H4XiC+F4jvBeJ7gfheIL4XiO8F4nuR+F4kvheJ70Xie5H4
XiS+F4nvReJ7kfheIL4XiO8F4nuB+F4gvheI7wXie4H4XiC+F4nvReJ7kfhe
JL4Xie9F4nuR+F4gvheI7wXie4H4XiC+F4jvBeJ7kfheJL4Xie9F4nuR+F4k
vheI7wXie4H4XiC+F4jvBeJ7gfheIL4Xie9F4nuR+F4kvheI7wXie4H4XiC+
F4nvReJ7kfheIL4XiO8F4nuB+F4kvheJ70Xie4H4XiC+F4jvReJ7kfheJL4X
iO8F4nuB+F4gvheJ70Xie4H4XiC+F4nvReJ7gfheIL4Xie9F4nuB+F4gvheJ
70Xie4H4XiC+F4nvReJ7gfheJL4XiO8F4nuR+F4kvheI7wXie5H4XiS+F4jv
BeJ7kfheIL4Xie8F4nuR+F4gvheJ7wXie5H4XiC+F4nvBeJ7gfheJL4XiO8F
4nuR+F4gvheJ7wXie4H4XiC+F4nvBeJ7kfheIL4Xie9F4nuR+F4gvheI70Xi
e4H4XiC+F4nvReJ7gfheJL4XiO9F4nuB+F4kvheI70Xie4H4XiS+F4nvBeJ7
kfheIL4Xie9F4nuB+F4gvheJ7wXie5H4XiC+F4jvReJ7gfhe+D++lw0Y7jM0
c5KameYDozOxI33+n+/DDFqDU87omy07bF8ybrft//N9eM6apyUBBmb7iyJf
Fux4TL//fxxSq/E=
   "], {{{}, {}, {}, {}, {}, {}, 
     {RGBColor[1, 1, 0], EdgeForm[None], 
      GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwd1EesV0UUBvB755whQQ1iA13JA8tCV2IBC9ghQVigiR302WNEwVgREBQb
Cw0QE8UCCooSQ2JJNKKooGCCUixsbOhKkARRUSIov0vyvpzv++68/8ycMuNv
7+2Z1DRNgdbfhKap0/B+cDC7P+8efC8sgmvhLP5J/GfgaHoVPATWlkN49+L/
wUvQCyP4Q/nPwiB6NTwM1pZDeffh/8PLcB1vDO9NGEZ/ByN5J9MLoIf+FGaD
/y2H8e7ff/SmWQzX8y6i34Lh9PdwNu8U+jkYTH9G34Z/DVfQj9CX4x/BhfiT
4i7+Vnwq/jPcTNurHI53ng3LLPFX/hL8Bnyd+Jo4Xpwv/iu+67tvZSz9tmht
e7r4hPi7+I7vP4h30e5a3hDlrMhV6fZ43/dzxFP5z4ty2g4Rnbnd7tsaXP3a
b+BK/Gmxq9WjuLu1H8Mo/Cnxb/42/AH8F7iFdp9yBN55XQ+8Qt+IfwEX03gZ
hztnewb9I5zLO41+AY6h18JjPPu3n8Bo+jfwu2UArZ/aoF+Fm+A8vtq2L8Kx
9OfwOFhbBvKmQ9JLocv7+cAvR/JnQKXluenOfwHwm6P07YPge9kM3zZN2DOO
B3uGHk19m/wiV+GucRy4Xzhzngn8oidCvkL+Qo7yatALoRbhrKGWIacpF2lt
+Yp+He8D3f7OEXoo1Cf0TV4Ff+GOGOoXu+k7rTsIl7s0AzmHxkPvhh5M/ZF+
t2wSnT/NXeWFO6c6VPVIOUh3re4ecpD6pF4i2j/n4SfyzUguw+UvtojX0GqU
f/pt81bNXa4ULxPNZb1V1HfVrIZZqc6Zy0X1jH9Es5lTxANpPVjvpt8T9Xua
/SrPqa+rb9GtVe9q9sIeaRbTfcpGUd5zoW+8UOM0F9V8pJqn2le1DmdOd8u5
9Am09yJ+ovV0/uF3vC/hPQg9nZOtOQA322F24kOe/kp7lQ20fgvvU+jdNOe5
k29Gwl1DbfMO/98X97aE9y0+4Onv9L9lPa3fw6yHOc0uV93c7qHlLOQ0VvDM
Z1pbvqTNa8wEb09eCjv43oLwVsZEUKv0HqW1xZwV70advg/rnauZ
         "],
         VertexColors->None], PolygonBox[CompressedData["
1:eJwV1EUMnkUQBuD9dmY54FLgghetUKzIAdfSYjUuSGmKu2uCBC1SpMgB2iDF
XYpzgSAH3C+4Q6HIhQQozyb/m5l3/v12Z2fe2cknzlz3hFJKhcHvglLahfwN
YSPY2F/riV8BK+BPwKmwn/iOYnfDGPwduBY2ER8pNhtWxJ+E02B/8Z3E7oGx
+LtwHYwSX1/sSlgJfwpOF5uMPwvOKF/DAWI74/fCpvh7cL3YofirMAlfDKPF
NsCvgpXxhfjRfPkN0/Ez8Cn850A+ta/7U/wb/pn8z2AW7vy6C/8+GMe/nP1N
/H3+yfxP2AfYQ9hb2CWsPcsN7Az8NbbfdR9WnsPfrFzK7+z5+Hfso+xx7Dxo
8KL/1bKq/XA1ezu7Cnsx+zP7uP+fZo/B1W84kH8j+4+43OtU/vOgTtX3w1/i
3/LP4n8Oh+PuXnfl3w+b4R/gp/A/BbUsc/HD+K/DvvgfoF+VFoZrYAT+DNiz
TsNfAHUq7lOcX3fDe102xz8E+RX9qnQ0zIFVcX0tZ4Pv6+5iD8IW+EdwE/R6
09FAT8NqeK/rOdD713Pue1tfaWegoWF13L3LudBrsofYQ7Al/jHcLDYTfwPo
tuh3pfPheziePx+Wgpf855uqR+28UvIV9mCWpnIBf4dS4jH+cnAZvg7uDuGO
4Zs8Viz57hjbgTuGGqQz8wf70melofqruDrGtqCOoQep1imfughXx9CHsD71
ugWfDmIb0OegwaSr7Br6BdfToLuwd9J6M8tB+3EX7kqpdq1/vzXQf5idNC/Z
tUFXQYe5LFxq3do47eeaoG5NvYN+Q855FO6NCHOaZjxvw/ued/Jps03km4N0
79bPH8/Xuya/VJPU/0YHYb7bSbjZarQTtNxoL32ffQ5/wvUyX2YPYvW5eaPS
fdr21j/CelPSLDTvSi7D0nZewq7lf29FU9c0T41mcg1WXZK2Gm0FzSR9NDoJ
9c4j+eoU3qv01uWtuNzjDr5+t735//Ht2dw9tuLrX5qHZi5CLuF9SevSW1V/
xB/mLw1mt6llyDPoOfQrjwB1Cu9pmPH4F9fX5vygv/C+xttiE+Ar+9FO0FCo
X+hX9rvKJ5YHcxDmN94S2wu+tJ6Ogp5CfqGW6T1LZwTdhtkJ71e8KbYnfGF9
11HXgtq3i/4HbXm/pw==
         "],
         VertexColors->None]}]}, 
     {RGBColor[1, 1, 0], EdgeForm[None], 
      GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJwV1EnollUUBvBz7vt+pY2QK3NusEGzFm3MIVNTG7SBWkSppUKzWqhBUP4d
KitLAqNFmKYlUpqZoAkupLSyTHdapk3aJJTQxrIQfxe+h/M8597vDuc+571z
1rQBMyOiQPpNiOjMJ7+BbyPaAzAyotkJD8Hl0Bo7KG9Oez29Cx6GK6AjdwKm
4EdhCVizfCdX1xtFfwaPwJVwhtw/MBX/BV6Em8w/JFf3uIH+HB6FQc52rtwc
/CS8BWfS/8L9+K/wkjlX0cvhQvpmWmwXgLnN+/QwfDW4Szks1rONNvaFMfu1
6/DH8EvxpXABPZg+D5+L/4c7Y/shvhK/Fn9T9J92gHiPuEN82ng33FnbB2ho
fhNvpNeLT9Avi0Po10X1bXuJd4vbxaeM3yLKtQvFGaL1OreJW4zVNYbja0Dt
O/eKn7jT92Kt3xhzdsPjxgbSr0APWn065+Pz8P9hFXSn3audhv8O7t3cal5v
uUVgvNlg7R/wWrOx9JfAO43zN2fJWaudjv8B9mommv+jXD2POzdfwSy4Gs42
9pN8XW8cvQdmwzVwjrGf4Yj96729XXiLuAQmwZPwEa96j+SvouZxMdgv1DQ2
yfNJvmCsP30RLIN9cjyU78rzdLhf2DO8Y9ozn5fvR9f1jtNqn7xdeDlehb00
z+Y7ciNo4+Gcaa38WO4O2v3S+6W9iveMjbi75nN0X9p5Su2fFXI8nTxfnpX/
C9cH5TWRZ8taUc+VycbUsmyjT4lviHLlPVFvlnr+r8XNtDWKOycvFJ5IKPwR
dT1+Knq88Gl6o/KB6B0LD4R3yL9xXkz3yq347fLeNu8C9y4P0vU/x3B+SO+d
i/E+8mqW+jn1e3mG/hPXH/kpfR/NSynmflp9wlun3ks9WPRimBt8ks6afF34
O3g2+C35Lu1X+DBq/Zwx+Cgvg7flr6N9X0LvhX5I/ZE8U/RM1LP5HgSfJv8n
n5eh9HhQ+/AtSN+E5K/iGxF1D14Md4laX9+m7DLWk67rmdPpOg3hjJ4g
         "],
         VertexColors->None], PolygonBox[CompressedData["
1:eJwt1F0M11MYB/DnOb/fX0nlJuW9ZbogJSTvscWSdZHKW0ovWraUyMsWKtps
ujF5LUUuErOmoogpL8lrbmrzUi64SihWJHLR5yzb/7vv+T7n/H/nnOf5PmfM
7Kn97oqIAuk31fCDiHYrnBPRvAk3Qm/x/fAhfGTuUxgo/hbcBH3ED4jtgdH0
N/AgXCr+sdhnMIheDzfDieJ/iv0C19PfwkNwmfgWsc/hXHoD3AInRXQ6YjON
naN5zrq/6F9hDP0dPAyXW9dLzLda92lese4T4y9gMP02jLemH/049KRPpo8x
nmXsDs3z9Hn0Ejjd/w/i32Csue9hnvmz6CdBXpor6BOM7d/KY2cUrnlZZXyR
8UvYt9szsb1b+Ss1v1+CfTq3WfsOvpKu/5lN34rPoBfh6fh4LE/tRny/+VNw
F1rtOmrWyGVnBP0GnkM7e+d8eimegftidWo32/tvvBfGWbdTfLjx68bzjc82
Xgzq2Qyj3a9137ahX6UvNl4B/X2neuArsE/jXM0EONWarmL1DurT2L8covfB
DfQuWADuWqontsEF9LswEU4T/0fsd6i++wEegavEqye+hiH0e1DzVuvzL6hv
kc/iPJ16D2eOHtAdjgO+iMnwMvzH5w9YK6fRDRYCj6ZvpbwVNQk+jEngrnFY
XM4Lr8Sx8CioYTpr8krhq+DzcLdU71wndh3tfKH24Xx5n1g9j9zkHfATrT9C
v+Q1oOeKvgh3TX7PHTSvh35L3iuPYbnN6nt9EZccbdkivzkFr8b2L/YJNS36
LP/A/JND8Uq8Fo80L8+F37Lm7WnMV+U1LHdlmvkXsTvkz7jeVT2KvOW9uOaT
7wo/lOVivFnW4B/xXHP+k+pensBXQ/Ub34Wap/vldvpO2n2Th/NZ2rsQfJXq
k/Xs9gl9lheCb5drad5K70rWGt9O2zv4Knm91Prq39hN83JuEuOd4IOwf+rv
fEbMexXqE96K5KHUK0XPhF6LZaAv8h6x6glvTVQP+VZ6e1Keivcw5DL0cLwA
3oW8W7x6ogX9H++LedvyKfEBtDuEeoY6hbykvig8EM3/b65zRK0734UeTv1c
utS3+AgG2q1x
         "],
         VertexColors->None]}]}, {}, {}}, {{}, {}, 
     {GrayLevel[0], Thickness[Large], LineBox[CompressedData["
1:eJwt1nccf3MVBvBzDj9EKpRKUspeJdGmrYzoZyaEKJVS0UJWg6ZRqZ+RVdkK
7TIKbalEu9CkPSia70f+eF5n3O/33vs55zzPuQv332vVV1RVV80X7rZLMsn9
DT4AO8OjYWAxZinX9+ffBovgebCx/Lryx8MDxJ+HQ2Bx+XvIvZJ/O5wIu8Am
8uvJvwceKL4U3ggL5JeWexX/73ASPF9uc7kLIe/xfXiM3Pri98JK4svgULkd
xe7VTxP/GpaQW0b8av4/4GTxC8Vfg23Fu4qfxf8oOEP9QHwA/4ewh/ix4g34
74MHiS8Xv4z/HUhdDhPvxPf8fjr/3Wzq8hv+G/g3srn3i9g8W/1Kfeeecp4z
p4nvYI8Q5z8XiU9h9xZ/nT2bfS6bOt3Jfsr13dhniz/GfohNLd/G/on9uOve
fQ4U/4g9n92TXfT/9tXj2EfInQAr89/C/k7+Cv5+/Osg/Txc7HztvP0M8S3i
g/g3wYvFZmCW5XtOea/6IOwut4WcM7T+lOfX4+UeKX4/PFicGXPWMhNzL7nX
8P8Jp8IL4AnyG8qbu15F/EU4EszE3Fvutfx/QeqW/jwR9LfUs7zPgsyQ+5bf
zn38/nX8f8PpoA71JPlHyatHP0R8JbwJ/HaWk3s9/z9wBuwFm8pvJG9u+6Hi
q+DN4LezvJwe13/hTDBXs6XcxWBu6sewmZyZbXPcq4qvBjUv/50V5A66i3JV
+lh6PluJLwF9qp/Ak+XMZZudfpj4S+KX878L4dFbxfrV+tfP5B/Dhme38g/m
3wz7ij1r7stPLhxX09bT+jB/H/432HPYhWw4pSfzadddm63F5mr8ttPPt7N/
Zj/h+k9ZPWxnnQtYNRu1mjzjc64/hTWfnZlW034465379659mU9n+noIxzOT
6dVRfGdrs9J4P8ey0YLf8mlK/xxeInaeuR8/uQz3R8R41tfAduJw7jl879nm
qn4GT5Uzm21eezXxV+BoOc9vs9a0oMIH950Vxeapw9mzIHNPV0Zv27z26uKv
Au6V38795WhQ07zC20rdaULJD01sWtH0rdS58v7hVbSS/i3At4qO0ZgRt7hp
V50LLwW9rfDVbzpaQUPqPKBFlRqZl8aJXkNM20qPCt/G/Tq9xteiBYXj5Yyj
j40TvaaYztQ7AN/GMxofGj9LP8uszTbiT0K4diPQnlHPTj/XEmd27IO+Aehp
vVPMNm6135ZeT+r4C8hZ8G68W+NRh9d5nnkt+j5q3N+E7cVmY2h007wOb71j
/0WeBg0daPyY7ITwDr/GDEz2Dg0a79o4OdBrs2aq/8DiVpmPsY/6e6z6dvQ0
+oT38xnX38XKNa6Pmerc7zg2+yP3SI9/CWo/mev0mzaM+nX0NHpE80f/+1rY
Qaw+Q8cbp5qmFF4WrRjn6mj4OmLnLvtj6GjTiXa9/gh0Y9Ssw5voHN2v7FNa
Me7V4aXdW55V+F90YrxP58w0sbJTsk/xuMI/92sz39FJWlXZjXhS4YOZXhB9
zhxlNvR33K+zX2hqpX72VpmJoW2d+tjj9S3A00qtPaOjETS1so+yI/RxaFnj
Udvb9W1Q03Lu8dxOb2lqRVPoydCh1ov2jML3yg6kJZ19aB+X/Vu+NcbOaJrY
alH2X6nDOEObwaaxZW4H19r7tW+DMjdDG/qzEG3N7/4qbzbHrmh61nS4ooO0
oqOJ9uWkXumF/Thq2b5BBv86Oy+7yg4Y9yx7evYQR9tyVjWffBNlx3uXim5G
B37F6mPj49CiyXdPvoHUctS+M4PhZ3Q7PIn2pVe4MDjU6te+OybfJdmH3n1w
pmluR3P9v/P9Zk7HTmva17S8nH1oWGfu7eWyR0b/23dPZ//S/rEnmy52ZiJ8
068xC51vG5pb2QvuOea68a3VqZynPH/oXacudnjR9fJ+pV9jjjq7ia5WOJa9
6f9DAzvfKHZy0Y+yAyr1Nkcd3aerlbrak5X+5Z1zb78fs9PhJX2t7Bq7rVIT
WtnZRfZ24Xjh9thLTavb3JZ+z+F834cdfaPlk+/EfENu9D+Kekxy
       "]]}, 
     {GrayLevel[0], Thickness[Large], LineBox[CompressedData["
1:eJwl1mUYhUURBeDrzoxdmJiAnSjYhYgtYmALoiKiqIiNiqCCYHeAgd0NBmEL
BqiYmNjdgolivOfxx3lmZ+/ejZk5Z75d99tzm0duNpuzbTbrU/CJzaY/A9fY
bOpouCdczPwZ8Mn/r+nPwjXNfwDuBRc3/2dzv4a78L8JT4Ybm/+0uc/BtvwP
wr1hS/N/MfcbuCv/W3AA3MT8CeY+D9fifwjuA5fYbGbMPcLYPeoV1v2V/1vY
lf9teArc1LqLmLNXe0+9xboTjU+Ca/M/DPe1Zhv+s+D8/Evyz268r7E31OH8
7fhHwGX9/2/s7+BufvsOHOj3q/JfBOJSN+Nf1Nj5vYzvyCYubzW+gfFrWXv3
FVhnd2Kc+J4Mzpk9rD2GvTk//9mPvxt7Of6z2b3ZC7Di1Meyj/f7pdhz8OVt
9uSL5dyW/172MXx3n+35r2Qfxm7FylN/3Nl/Z38Pd7fuu+ZvafxO44OMr2b8
YpDP2oHvfe29Xfy38W9o/Dq4on1SA18A55R71e5waWvOaS5vkJ9y/voH/w9w
D/734KngrSs18UW4Dv84uB9cxvyZ5v4IqbvT4Gmwo/nUxJfguvzjIXFLfv4J
8rvEc7nPeMey78raU+B61n0E7g/isP5l7k+Quv0+PB1uYT5rvwzX538UHgBb
mz/L3OmQuv0BHAw7mc/ar4Ac18fggaCu5lzmHmWsbupV1v2br2Y7dfxDOATE
fOW/XwUxLXmp5FHO59zmHm0sT/Vq6/7DD7fUTv0InmHN1fkvATyqW/Hlq727
23gXNjx7u/GNjF8PV7JPzvoamCscHzFtOa0HGV/e+DnsQ9gLsjjVcjJP8Lvf
5jx8dTXWlnzO7fjvYx/Lfw0rh+2t83BWzEasOmc8ybn/NQ7XU9OJ6Y9Zd+53
GR9qTGf6pRCOq8lOrm5t7G2tVhrv505stOAdxjSl3wBXtnfe83UwV7Sp9vI7
nvVzYQt+OHde49xTXdWRQOo62pF6/QkcBrexzvmt1poWFD6s7PsNoEmFs/Vg
UPdFVzqakHr9KTwTcG9l7alAg4rmFd6WuBdNWJmniU0rir6VOJf7l8ss84v+
jbcuOrZoTPMb/4p21UPhKiC3C1/bmsafoiG1D9CiijaG1+HEz4C2lRwtfOvs
J9eFr0ULCscrehdehhM/BzpTt7ce3zpn4EPhZ8lnqbU5n7nHGeNa0bOK9oSn
yecvILWjH/TLgJ7WHfhs41ZbW3I94thvBG9ZeNe5Gx4VXo/zWr0WfR8x7ufB
hfhqY2h0R/Pwdtyx329Mg4YONH6M/3R4h1+tBiZ9Jxrkro2TE17+klVT/W42
3FIfox/1y1nx7egpfWq8n/39vjNrrnF91FTbb+7Mpn9kDznuN4HYj7pu+V60
oRM/3C56VDR/5L+fDxfmi8/Q8Q6naErhZUUrokfh/q/Au0v/GDradKL9Xu+x
N93oxAxvis4V3a/002hF9Cm81HvLWYX/i0507uPNRRMrepx+iscL/zr7qfmi
kxWtSm/Ek4UPS02Pdy91tNTGkt/Ofmq8aGolfvpWpSaibeJT+ni9APB0iXXn
DPVXNLXSj9IjksdoWXikb9cLQUyXd7dzW26Lpla4Sk+GDnVy4YzC90rsoiXh
lX5c+m/51hg9o2lii0XpfyvfIN7QarBobKnbwbV2v/ZtUOpmaEM/0dh9xro+
ylhtjl7R9KzpcEUHoxXhqn454tVyUfrjiGX7Bhn86/Q8var1gMme+vToSx1t
89YW83HPTo8Ph6KbdKDfzMpj4+PQoqYL47tl5ZtI7Ds1GH7S7cGTjvYlV7gw
ONTi1747xndJpx+6++BM09wSp/H/zvebOh09rWlf0/Ly9omGRVf05dJHRv7b
d0+LZdH+0SebLraaKHxb+c5SC602i+ZWatieo64b30jTprynnD/0rqNLenjR
9XK/le+n1JHaLLpayWv6pv8PDezokp5c9KP0gJXvk9SReiq6Wolr+qT8LXde
9l7p4akdNVT0tfLu9LbExIU62qVvF44Xbo++1LS61W3J99DX9n3Y0Tda3rR2
fMOt0/8HvGlj7A==
       "]]}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Method->{"AxesInFront" -> True},
  PlotRange->
   NCache[{{0, 4 Pi}, {-0.9999996658276197, 0.9999996658276197}}, {{
     0, 12.566370614359172`}, {-0.9999996658276197, 0.9999996658276197}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.44918087611829*^9, 3.449180944810255*^9}, {
  3.449180976237287*^9, 3.449181077612217*^9}, {3.4491811126365557`*^9, 
  3.449181145532242*^9}, {3.4491812869087687`*^9, 3.449181300626677*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Homework", "Subsection",
 CellChangeTimes->{{3.461417251227501*^9, 3.46141725471986*^9}}],

Cell[TextData[{
 "1)",
 StyleBox[" ",
  FontWeight->"Bold"],
 "Plot the functions\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", "x", ")"}], "=", 
    RowBox[{"4", " ", 
     RowBox[{"cos", "(", "x", ")"}], " ", 
     RowBox[{
      SuperscriptBox["sin", "2"], "(", "x", ")"}]}]}], TraditionalForm]], 
  "Input"],
 "  and   ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{
     RowBox[{"g", "(", "x", ")"}], "=", 
     RowBox[{"-", 
      RowBox[{"sec", "(", "x", ")"}]}]}], "Input"], TraditionalForm]]],
 "\nfor ",
 Cell[BoxData[
  FormBox[
   StyleBox["x", "Input"], TraditionalForm]]],
 " in the range ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", 
      RowBox[{"2", " ", "\[Pi]"}]}], "]"}], "Input"], TraditionalForm]]],
 " and for ",
 Cell[BoxData[
  FormBox[
   StyleBox["y", "Input"], TraditionalForm]]],
 " in the range ",
 Cell[BoxData[
  FormBox[
   RowBox[{"[", 
    RowBox[{
     RowBox[{"-", "4"}], ",", "4"}], "]"}], TraditionalForm]], "Input"],
 ". Draw the curves in different styles (of your choice) so that you can \
distinguish the two functions."
}], "Text",
 CellChangeTimes->{{3.461417688873279*^9, 3.461417689949705*^9}},
 FontWeight->"Plain"],

Cell["\<\
2) The partial sums of the Taylor series for the sine function,\
\>", "Text",
 CellChangeTimes->{{3.449233442634433*^9, 3.449233455528759*^9}, {
   3.44923351575399*^9, 3.449233546394059*^9}, {3.461415697725178*^9, 
   3.461415721424447*^9}, {3.461417257801189*^9, 3.46141725918946*^9}, 
   3.4614177167415113`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Sin", "[", "x", "]"}], "=", 
  InterpretationBox[
   RowBox[{"x", "-", 
    FractionBox[
     SuperscriptBox["x", "3"], "6"], "+", 
    FractionBox[
     SuperscriptBox["x", "5"], "120"], "-", 
    FractionBox[
     SuperscriptBox["x", "7"], "5040"], "+", 
    FractionBox[
     SuperscriptBox["x", "9"], "362880"], "-", 
    FractionBox[
     SuperscriptBox["x", "11"], "39916800"], "+", 
    FractionBox[
     SuperscriptBox["x", "13"], "6227020800"], "-", 
    FractionBox[
     SuperscriptBox["x", "15"], "1307674368000"], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", "x", "]"}], "16"],
     SeriesData[$CellContext`x, 0, {}, 1, 16, 1],
     Editable->False]}],
   SeriesData[$CellContext`x, 0, {1, 0, 
     Rational[-1, 6], 0, 
     Rational[1, 120], 0, 
     Rational[-1, 5040], 0, 
     Rational[1, 362880], 0, 
     Rational[-1, 39916800], 0, 
     Rational[1, 6227020800], 0, 
     Rational[-1, 1307674368000]}, 1, 16, 1],
   Editable->False]}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.44923348157277*^9, 3.449233520874427*^9}, 
   3.4492478268833323`*^9, 3.449247860761026*^9}],

Cell[TextData[{
 "are polynomials that approximate the sine function near ",
 StyleBox["x=0", "Input"],
 ". A list of these polynomials can be obtained using ",
 StyleBox["Series", "Input"],
 " and ",
 StyleBox["Normal", "Input"],
 ".",
 StyleBox[" ", "Input"],
 "Look these up. "
}], "Text",
 CellChangeTimes->{{3.4492335528349648`*^9, 3.449233676955729*^9}, {
   3.461415733861051*^9, 3.461415864267399*^9}, {3.461416059114274*^9, 
   3.4614160637359324`*^9}, {3.461417275075679*^9, 3.461417289220675*^9}, 
   3.462027582382554*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"part", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Normal", "[", 
     RowBox[{"Series", "[", 
      RowBox[{
       RowBox[{"Sin", "[", "x", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "i"}], "}"}]}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "9", ",", "2"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.461415871294052*^9, 3.4614159744080687`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", ",", 
   RowBox[{"x", "-", 
    FractionBox[
     SuperscriptBox["x", "3"], "6"]}], ",", 
   RowBox[{"x", "-", 
    FractionBox[
     SuperscriptBox["x", "3"], "6"], "+", 
    FractionBox[
     SuperscriptBox["x", "5"], "120"]}], ",", 
   RowBox[{"x", "-", 
    FractionBox[
     SuperscriptBox["x", "3"], "6"], "+", 
    FractionBox[
     SuperscriptBox["x", "5"], "120"], "-", 
    FractionBox[
     SuperscriptBox["x", "7"], "5040"]}], ",", 
   RowBox[{"x", "-", 
    FractionBox[
     SuperscriptBox["x", "3"], "6"], "+", 
    FractionBox[
     SuperscriptBox["x", "5"], "120"], "-", 
    FractionBox[
     SuperscriptBox["x", "7"], "5040"], "+", 
    FractionBox[
     SuperscriptBox["x", "9"], "362880"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.449233299914616*^9, {3.44923404423907*^9, 3.4492340583701963`*^9}, {
   3.461415906543284*^9, 3.461415975189116*^9}}]
}, Open  ]],

Cell["\<\
The graph of the sine function in black together with the first five partial \
sums of the series is below. \
\>", "Text",
 CellChangeTimes->{{3.4492335528349648`*^9, 3.449233676955729*^9}, {
   3.461415733861051*^9, 3.461415864267399*^9}, 3.4614160774997587`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.], 
     LineBox[{{-3.7696207273111764`, -3.7696207273111764`}, \
{-3.6727331433163304`, -3.6727331433163304`}, {-3.5137769314387826`, \
-3.5137769314387826`}, {-3.357938809448991, -3.357938809448991}, \
{-3.18889224673471, -3.18889224673471}, {-3.031127039214308, \
-3.031127039214308}, {-2.860153390969417, -2.860153390969417}, \
{-2.6922978326122813`, -2.6922978326122813`}, {-2.5357236294490244`, \
-2.5357236294490244`}, {-2.3659409855612785`, -2.3659409855612785`}, \
{-2.2074396968674113`, -2.2074396968674113`}, {-2.0520564980612996`, \
-2.0520564980612996`}, {-1.8834648585306994`, -1.8834648585306994`}, \
{-1.7261545741939777`, -1.7261545741939777`}, {-1.5556358491327669`, \
-1.5556358491327669`}, {-1.3882352139593122`, -1.3882352139593122`}, \
{-1.2321159339797358`, -1.2321159339797358`}, {-1.0627882132756705`, \
-1.0627882132756705`}, {-0.9047418477654836, -0.9047418477654836}, \
{-0.7334870415308078, -0.7334870415308078}, {-0.565350325183888, \
-0.565350325183888}, {-0.4084949640308465, -0.4084949640308465}, \
{-0.23843116215331608`, -0.23843116215331608`}, {-0.07964871546966408, \
-0.07964871546966408}, {0.07601564132623197, 0.07601564132623197}, {
      0.24488843884661696`, 0.24488843884661696`}, {0.40247988117312355`, 
      0.40247988117312355`}, {0.5732797642241191, 0.5732797642241191}, {
      0.7409615573873586, 0.7409615573873586}, {0.8973619953567197, 
      0.8973619953567197}, {1.06697087405057, 1.06697087405057}, {
      1.2252983975505416`, 1.2252983975505416`}, {1.3805078311627572`, 
      1.3805078311627572`}, {1.5489257054994618`, 1.5489257054994618`}, {
      1.706062224642288, 1.706062224642288}, {1.8764071845096033`, 
      1.8764071845096033`}, {2.03547078918304, 2.03547078918304}, {
      2.191416303968721, 2.191416303968721}, {2.360570259478891, 
      2.360570259478891}, {2.5184428597951825`, 2.5184428597951825`}, {
      2.689523900835963, 2.689523900835963}, {2.8574868519889876`, 
      2.8574868519889876`}, {3.014168447948134, 3.014168447948134}, {
      3.1840584846317688`, 3.1840584846317688`}, {3.3426671661215255`, 
      3.3426671661215255`}, {3.498157757723526, 3.498157757723526}, {
      3.6668567900500157`, 3.6668567900500157`}, {3.769179941727282, 
      3.769179941727282}}]}, 
    {Hue[0.2], LineBox[CompressedData["
1:eJwVlXk8VO8Xx2csUaFCUUkqohCpJNGZFiW0yVKREBIlKUuypSIphKRIlrRQ
Qhu+6gxRKlGKkGTJNjP3hjGLsf3u76/7er/uec5zzufzPOexPuW6xJ1Go4nR
aPT8/3+ZMnpdjnue3mfIae74uubxC6aMynrFU8xFDNn/uPuN6OeZM37Pkqzy
fsmQyhjKPtSryZwe2TK4+pozg17a/X2NzRamNOCV84lCGK1aN2h3oJk5rTN1
frtcDgxmnTlY99aDKRnz3W+1RTp0EkZtkYZuTMlLXz9ZzFSHzpKi2iWqDKZk
eN1S18/50HnJKlxq8CxT0r+mIdmqDDoX9s3aeNKTKeny1kCwuwU6rJ5NqARX
MSU3POK+2T8Pfh9XdChpi2BKDIT573SIh5/G+0po6s1MiZ0rglxORMKHzY7M
v+cymRJby9Kd4trh/QWVok5FJlNikyXTocgYqiv8dJ8GqjEl1vhI2/KGoWrr
bw07w0GmxKLiVItwF6jYU1BspevMFB/eWLImkQGvpxk7tEUzmOJpu4SSryfB
Q7zC0kWLxhQj/ALzxM9j1e5wcZuVCUyxfudpTrd9sKrDdFVUGpMp1r3rpoKe
K1afvoA2vRFMsRat4hAHC3yfmJHMYPgyxaraid3PlbGmfmV6Yexepli6pSvX
9QV+Wf2omJ3pzBSzVN9tUkFiQ13CA8PAdKbY9jltQ/Zd+H0W75lbeQ1TjDHl
nUs04vd9i3m7apuZYoatMbPml+P3hqqg6wNU/qUJ7zpPx+KP73s0/O0ymfTR
iQ1RS7Sw6eM5JweFWib9UZN6fYQLtl5NCrJ+8pdJz/m96V6LHba+S9tRnWzE
pGf8PeBrYIGt4yeSzDkHmPTk4Wuz/67FXye9fwnV9Jn0C3Jca3NpbLNq7zIe
ZDLpB3dUNM4qwHb6/bXu06j46aVOrRlj2JEVi4PVK5l0CWZQnmAQO8peWcZv
cmPSpj4knt/7Fzu+v4+Vf/meSeM1vlcRq8NOydRtl9YXMmmdw7qHPbKx05Me
ZPDShkkrWznWscocuzSH0j7QzJk0r/TUnjc3sTs5LF1Z2ZlJc18fdifICbuf
WLz1KKfWH2lw27NGC7vfjcpmJcYxabbSeiWPyrB7ePzQIp1eJg3OvI9Nase/
ezLe8BLKmTRFi5HVXprYI+6wI+C/SJw6P5wh0vXDXhuholKDFU6d1vI6miOB
vcdVfibruOGUh9O6L8op2BuqISYVVYZTez/WZor/h733/zxXvEnilEamyKyV
ih+eSr2R5IyT9Xtsb0SlYF/MsJRrIQcnlz6R0fpThv3Zvcvf5kfipPKdp3ST
EOwv9rnudnYbTsrF7Gq5bYr9FX9UWzKacELkEX/Vmon9HUFd8+ZI4ETDEnl2
9QccUIn/qLBKhBMXUuYX5P/AgQRr+fGQJzjeEaG5NpBEloeze0iZFI43+dTI
/ChElt9EanBBE47XHvbsWX0aWeEXeccqL+B4iXHeTdYIslKtrLibZuJ4PE9X
cHgMWTW11jMtbXEcvNaWbZNGtkZCwSKWFo5l2GxhzF6G7DrXkLdJD3AsySu4
Uz8O2S3T/Jdnx+PYlYjnkXuFyO5OqF54LhHH/J6qV92oRbbwQPLO4x44tmOa
1E6Fs8hReyUjVZyDon+va63nvUfOiaKtqZOXUPS3ToK7Xh85/hi4m52Oopa/
psn2d5AT9iJ3+nYmiqpmFzSlnkJOgo3SCv1sFKUev+GwQBk5xZ5+x9YZoGjz
Qju3RV7IGfrXd0wxBUWGq+MlTX8gZ9QvtGfTDxRp7/jwwGkTErS2wj+hMiia
e9ao/54CErM8FXtVe3B04MvCk2rlSGg7DF0/lIKj7d02cpuXI2GgcsU0WhxH
v49ee+aSgIRRtUzuHWccfasxMZTtjoRZndTGI8dxNDGsI0BdDgkn5p+66gU4
Gn1zvtK2ICTcKmnxsX44GpK/r8StCwmvfOdtM4tx1ONnpSj3NRIB6yWXL/PA
0Y36ueGazkhcW0NXk5+Bwu4urysri5F4/v6+/9QuFLZolzp/W4xEycaTbrmb
UVjnL70h8BoS5bfJGVt8UFgqlcuqouqpVjTp3zyMwjidzl1Oykj8mFo06KeC
wosB+sslLiHRXFl0i7RGYRCGTeYNIdHmu7NBDVF41FrlmeATEt0xBSeiK1Bo
FHhA/kYoEoOvbI2DW1Coy3zAXs9Cgvt5QVD1DhQum857126HBP/Tao1LHBTK
pif5a+sjMR59zmjrQRSK9XTt+paOxJTZm8bVnSgQ6q1eHjQdSToZvNtfFQVd
FXU/q7qQnDZ1YWuLEQqaZy4q9N6D5PRj7fyBJhR8sTkRM6ccyZllrSOr8lDw
um+GsdNNJGer/di41gcFT/UPKkiKISm/5u9/PWooyD73kJ3vg6Ti6tKRx1Eo
uC5jli40R1KJaB63GkRBpG2yf8ZLJOc/MRRb+AIFgRndu82WIrnQNkz3N5Xf
dXXE1I0xJFU9+e4LXqLAPri+2cgTycXfNzy8fAUFVlWqhe0/kFyiFRf6Tg4F
6+3KXbULkFyWnLT/JpVPJ3OmccNCJNXz7a4uSELBkoFDCkFXkNR4uq9y3wMU
KBk84qiOILn8Ttyt4s8okDkvqKp2QVLzzLzcl10ooFdvv+tdh6SWITe6oRb5
ArmbAfLGFPeuarngiXyO/d/dJQ+RXBHRYLghFfmdWWs0jygiuXJa34YzRshv
YkXSJC9QHBQY9kAb+bVrvjbnkxQ3Xsuy2I38itDFRdaHkNRW1Tf5eQn5r977
xAg/UGztzanOQ/6TWW9c762l2G+n1bUc5GcdlNlolklx6DfBfSvkp2Q7KHBk
KfafFXMpCvmx7MecxGCKD8y8m2uA/AtrhdVGvRQvr68P00V+QNiOu3/2U/t3
updFH0S+94eUgMtMiqObREYpyHeZ3bNHR4fiBborp1ci3+7QWs2G21R/qad7
/BD5ljkXaeemUSxW8IF9AvkMzreWxX6UHgeIE+xHyDc0VCuq/kPpl7b+FNsG
+TpG20b3h1D6NttLdnshf6nxcUanMsUS2sHpFCubXL/i84LyQ7X8trwr8uU2
FdWP76X80pLX2eyIfAlGk1IMh/JTbc2UhhvyRFtER5Qo/5ZKrWgru4S83h1b
SAOq/sVZhd39m5DXtvPYOqYjdV5s9+UE/UNeg2Vs6C4hkiqCntt5fch7u+eH
zHF9JBfMmGbb1Yy8lAPuK+9Reiocldy8VhJ51w7F+OmaIDknfv6Asy7yIh2f
lpY1Izkrz1lNVoA8H2e+edNs6vwXZLq1ZyJv+/HoYzKUv2Lkp/CeaOSZeOcX
3FFFknbTrL5QDHkGJ+v5mmVITGqvlmw7jzxVP+XLW4aRGNUI2GeZjCP84Mc5
51yRIG1SUhXu4wgn5At72iQS7EDv3eF7cKQrbNgg+Q4S/THkVl1rHKm7aFzx
rAGJrjBVBQa1/kHs5z+9W5FozJm60LgJR9KvD2qe6UCiwUzt8N8RHElMUDxF
D0Girkn3q9IRHAlLdpxUeYHEhxrd7B8ROGKXTqrsV6fmFydt3ea1OGJ1T/5o
BxOJl7IinuAbjmzJMsz3cUSiaPHl+0VhOLIqN9w4JhmJxwrGQtX1ODKtYPYB
pgQSqaZTeT7uyH2FBjd1epA487Cy5UwxcvP7ydywlUj4uDfKdKsjN0s+72W9
DxLH57R+KY1DbqzH0qbTQmo+r+l/s8ISuc6yCkqvZyCxI0u9lE/x9EPcO5up
+aWk9dXV9g0OT156lpfoj8TsT1WJzU44zC3wLuum9J3hYOkxysHhdnr3r6it
yJkwN8KHn3C4+NEPlc92yOmyfnQ7IQCHHfgv7tmeR85jg4Tl93txeJ+a77MH
TORkVdq/LiVxeLuFDgolkHNn8z6x3J84rH/3fsedOOTEytJiE8xwWHLbzSV/
MpHj3Xb8640QHCpI9L9/nHovV7opO9k8xiH6KsPHYXOQneYYvvlAFA4KZtdo
vYpCdmL0wzSFehzkcA8+JEXIjsllBJ35gIPNJSEPjnQhO/D137kmJA4WbqnM
2VyM7P0bG42KjXDwiP3uu5LWyJaq9ls3/yP+O0/7smS+JrKOKeudcV+L/zyq
BxdfnY0sxyx5v3ZP/Gcdq7BIJESW9SLPgsZk/Ldy7sEFbTXIMhmMX3NQAsmW
FT2KmZ7Ikqc/+OpHzbn11hPSmnk4UNqk4NkxDzncXJ1/hjo4QIsIjtT7Dzm/
S8PDV3lgPzeqIul4J3I+fGmYtfwe9veGh9LNopCTxg/UU5LH/lrzYGWpI8jZ
tqPCRyDA/lsbnq5DRHYyy5YsrcT+lVkCazs+sgz1wkjTA9i3o0FFvvwr9gWV
fiW2XcSew4PPqvcbYpfSwYQCm7nYqZajfP5LOraq18yq5hdji1euV68vD+su
DVzv+ZWLdcZd6Busgi+O/nqhsu8wvnCy+z7XMQme+1c2np9RCs99+ekrP7+B
+gMXVOld66Be2irmp+4DaKk0Hv1vcBm0zDY4K1N2HboO7P7SkrMTOu3nOM4T
Pw59L3ni8rvMoOfqlUWGtXLQ93F0aLpLHPTcnh5rSl8Ofb8n/9D8m6Hn4YXH
NftnQf806TIywwt6qmxblHQ0oN9Oxe/TPyp+4rrGms97oZ+/tevijWbo9dFP
PRhSDizDxIqRJi/oM1ec03b/GbAsbj1js55Dn62jq7WbLLCc0u92TY5Dn+sd
z2RDHrCiHpz7phkHfSGCQHW+CbCaylY/DaLii9ZWKA9fAXZAZ5bHgnHoV3qp
uzFrFXBe60f8PBIP/W0p14fqI4FT2wsmnCjoH4gelZmxCDhdaRPZ58Kouk4s
vTVLEQg5qeCTST4wMFsmRkrlBxBu7WfFP+yGgS1PYi/VjAMpf+2Yvp4cDOQ6
P8r2qYF/J/t3XZmMA5bz/r0fdqjDv4sZM8nYKGB5x+gWpA3Dv9v7P9kohwEr
oDBma6cx/KvCHYsNfIB17XtyeOcYDMp+Vjv0XBNYJce7z5hmwKBb9vzBPilg
y9Td53qawJD8XtlFuz8AO8/gXWlnKQyp+M3rXKUI7OLe37kvWTC0PFktV9YZ
2P9dNy23ov4bN6/V+SwCdm3hs96jj2HoqLODyU4dYJP7glIyhTD0wvexw9YE
4KzihuXlNcHQ28Tni5e2AcewRvt3cgoM1bwo7xZbAZxNcXd139fAUJvwqxez
Eji7BvOzc4dgWDJCEGzKA84J6eTtpTEwbHfD7LbRIeDkRgT+F20Bw87P9xxW
egCcJydvHe5+DcNejQfV+FzgPLccnS3nAcPh8088enkNOMw2VzVfGgw/zEoq
MUDg/LLoO1i3B4aFRZ0/ddWBkLXP8jP/Clyx7+w0GV8gFGzln/hLAleGx3Ni
vwFi/tat/bzdwF1iLN2bZweE+lB1T1ICcHdW6vE1rwCxMcXNtkgCuHcawuYu
IYBw55M2FerAvV9xOuu8ERBe3e6Xt7QCt6DQXfdHJBCnmCUaXf7ArYyz2h49
D4hzu77NY6wFLstiQSBnExCxhWMWP78Ad2SDnIQZlT9hWWBSXhZwJ7XoCRkN
QCRHJc7QkIURecn+x/s8gLirGtneGAMjGypetb6KB+JpcujbaDEY2VqYd2xW
KxBFsXNnCuNgZNe9u9zjVL8v/WS3pXnAiEvoZZmFJUC8mUNv2tAAIzEb9ptG
dADxOVFDfmMijDQX/su0XA1Ez53MR66WMNJ1r1vnfggQ/UnP3onmwggnrqlk
4j0Q7JBcs6YE4NFOvPlWeAiIIVX1X0uDgKeldU18LtXvWMa97mPjwDNQCo/3
qQVict7Mmmgr4JlMO7OwZh6QtFC1b/404O35e2htcB6Qkgs0n0b4AS8wU8v9
z3cgZeMaNErPAu9C/MLhDapAzoosZD7tBl5s2KywRE8g57iPmYi8gHfPgX9r
G3VvFEUvjZzTgffYgrUsYzuQ857M9Wh7AbznG34/EyQAqWxV2ej/FngflKpq
8tSBXOjQ++1dJPC+TSuxFfcBUuXTbrnWPOC18vI7HUuAVNXsZn3PAB75PVE0
ywpItcKQdr1K4Akro6I8U4Bc8sv3Ps8Z+GJFwfIVHUAu5Z097nIf+PPiXbTP
+gOpzr++c5gH/CV25f9mUP1qDPqldAQAX0dVufgelX950+YHL4KBb9hzNmDd
ISA1Hw4W/loF/M1Pvm74RPWj5e7Poe4F3+qs9oRzBpAr5D7c+OYCfPuN0Uw+
UJzz6+e5DcB3Feu+FEvtv1L9EU89CPgnPoH5kkiKb2gsBSvgB95Im/ma6nfl
wPaUdV3AjzzAr7eqBlJbV/zKWU/gX1ezTuzyoNjRWv+YDPBv9RXYBUlTHKhV
fW4U+NnPZiyQpfzRDg0Nn0/1+zTA/XeOJcWnticXeQO/xLQiy4hDsVWwaYEl
8N9JLnKri6N4rlxRiDbwv9Se03LTp/avEWlGGwO/OekHe/QbxZ4GPzdSenU7
6D+L96P6GS4QSt4BPrn02hkNRYo93Sr2mQFfONBvWPaK0uOjhdfVJhCIF20V
7bWneK6dtmoQCOSC7r3pEVL6WYUZBzmCYD6MXTh/h9LXp+SrRD4I1KXszeaY
UPqfH1+mlwKCVXXPpR/8pvw5u8nb3QIEG1Lkak3CgFxm798xhwuCbYe94hvU
KD81UkuymCDYo/5+/7FKyv/2uzoR7SA4yFk6b+IokIsjz51ZGAKCU8EtGVoP
qPNzNdFuTR8Igresc3lrDuQC8j+Xq3NAcHn6DY39A0DON725yOo0CO6kmj8J
1wFybtqai+8vgSD3yH1fxTogFR7/vWuXDIJCTdqavFPU+c5ZbCYeB4Lql6/L
Goup+2A7Q8VtDARfQxXCvG2AnCn7oGzoAwh+bTu1hcYDUrowt9pqHQgGvy//
qGMEpPjLnLEFT0C4cPDmz8i3QAjL4kTDkyBc/nooTdkZCF61rlTFNxCuDt/l
VEAHYrj0z0YsBuEOOYmelm1AcFwO8Ef3g9BP+8yI3icg2h/Gf9ogB8KQ4frX
1SeA+EV/o2ZrAcLoMu3zDrJA/DQrPChGA+Fd826xqL1A1F+t2PMmEYQ1Htaz
234CgdLnXRO3grDhbLN7rAUQZWNipY0vQNh20alsQzkQr1oIzStWIBzM9D6a
kglEgePn0J2nYFS59dKrvZ5ApPvXJ2XyYfT47tcO70RAnCXpAV+TYPTMYdNC
P6qeUzm0R6UbYTTUu0pSrZ2av1u7v1iKw+iNK18LQiuBOLLTUCPIB0ZLK1n0
9bFAmLvoJDlrgWjGepUH+SpAzMMTvnFvQaRolj12MA6I2auGGOVLQaRqs2Kv
NA2I6TGtf2rvgcjg9LpRt7/AGaeXV+Q6guhQ/h4r1afA+SNsu5nmDKL8xReG
EjcBJ2ciNaZ6IYxZSfWZnHMGjsoKl/ET0jBmRzbWuK0EjryehhFxC8ZcGqts
dlPvl/TCy9cmHsFYYE7WCfUoYHMfjkxkacNYDjik1T8B9se4M9fbXsOYKKB+
TGMU2L4xCt+cZsC45OG30bMrge3GHXirEAzjs7c9lR+7BuyD28o+vvoF48vl
r678pgbszakaeM8KxvcVbDsUsh3YcyTFi3+PwPijnpLShkRg5ZESqhZnYfx5
7UOzN47Auvv8y+qVCONvn9/89kgDWAlO/7wOnITxHxf8BkJLgOXvPu/bmQ8w
QVukO1+rHVib9BqnbgTDhL1NVlD4Shj49Mp4SxYNJiXfXV2v/Q766+HN3W9e
MDlrKMdGzwn68fXIYJkQJhcsLj9tIIT+QqXG/YZfYXLVeTLfWAf6E+J8d/eU
wKT92v2LzZOhf6+d1sFlyjD5KFdFyt0D+j6be51bnQ5TllFPf96Tht6CsEv9
O4UwZfvi/Uh2NvSm/eqVfTIPpo50dcx5YAK9MYv7I3MSYOosyFs+9YXeow6F
R635MJUuCMD/WqB3Xpb7+leGMEV6wsPmPOgJctLh3Fdh0Mzv95dPXw5/tY5G
Rn98xKDtyvZa9WEY/spz58qHyjFo1vfYWVFvoXvi+I7n9zIZNMc7ZLSEHXQ3
TPfR/NPOoPkmjOybugzdwUq9R2Z6MmipIVN9vL/QVe1RskliLYPWb6uk0JUN
neY3L/qsEDJohHVqVJYPdOqxZFy/9jJow3vnjzobQ6eSukn3fhMGbdxSpf13
A3T07PQPuFXIoM/evPRxCx06Iuy8T7SHMOhGuqug3hn+uPaZphcbMehXJM28
yxfBr6npV1ccCWLQr/uIRPMV4VelyfOwn/0MemJz4ZUAGfh1WS+pIorDoN99
sjBXbxx+zbBZUSlrwqA/tx5qz2mF1jkpEakHahn09syMfbEp0KxARrS3nmCI
rdsoWO8gB9/7XCRFU54MsS6/x2IiGlTHcPvsF/kyxPrCuS3dzlA1ah/mdWwv
Q4xzfVNhLROqPLcELjcdZIjxH/5wuhcB77YVyDzaTGOIz2ibKts2BUxB82YL
bwZDfM0Ou9Pxk1ASV7rB4VQmQ/ySiniHxjgkWy/8uDCcxpDQqHZ6s0+Alccu
7rrzzJchob3p97OWSHynMXXUjnRmSOiXOGa7yOG7HvnUtRc6GBIb8w9F+y7H
arcpcc/FFO+7YbcvzgZrvEccGTFUfOjhXT2fCrEu5ey4fjaV/wfPVG7rcWx8
FnDttJ6QIXlJY+GRtb+ws+jJuZmDyYxpbUvnzLb3xcHwN6HevZkM6UUSB/4m
z0dh7aEnii6tjOlB3IeZDgVM+o0r0+boJzJmvKkxDze1Z0rJFR5aYxnKmDlu
vPSkUxFTVsm+RPXkaobMqmTe5S8cppzWqoHTtJD/ASU3Q8Q=
      "]]}, 
    {Hue[0.4], LineBox[CompressedData["
1:eJwtmgk0Ve/Xx68MdzKlklBJkiKZKkk9J6mUSEKGyBSSpBIVUcicEIoUUSiR
kCk8pwg/mUNm55rHe6/53mt6z3+tdy1rWZ91nr2f/ez93c8+Z61reNt213UC
gbAB/+v4339UaH19QhQowtXe3uPy2ZWoEIcdvJt9G64Wi9VyNoyhQgtzssp5
OXA1xsfQ4o46KjQ5YqsnpwJXdav6xcyvokL/6roCNh6BK6XnJ12chFGhr/G1
M4MIXP7IV/22H0WFrqlm1gcZQnbMCxPF7guokPmBc90nX0K2e5tC27nXqJCx
7OjYcitkG5+Mn6YZoUK64jI8biaQLfq8PjUoERU6Qkg8ZmYBWQnMogAXKVRI
sD78k7w9XPr8X7rsNRlUsNzxVkCjJ1wYEdHkXMVQwaL5fx6T4XChJtc6aEET
FczzO3mDmAIXMr0F/eWfoIIZb7fogTq4cCcsROJ1KyoY3VK2JUcazq+/8txr
2oEKOp7gT4tsgPO7zxrd26SDCgpvzqwxlIWzwftzgRPuj5KypcRVE87eLq+t
e6WOCvIe9P0SegnOXnnw9Pk4ggpwzl+O/OUNZ/devfj8+QNUYMh32UylBc7U
DGzztA5HBYomz09segxnRP7Qh3fEoAI2Pyeora2Q4fdCqvE8CxW4mln+3f4p
ZFjqSTd9xO2vxL60mleEDPUzpx7SMFRA74Zm7qZgSKePy5wT1kEFjgq/MDU8
DulWU8hXZTlUQPia2ofGNDh9DlJ4taRQ/vIV3+O1D+Dkucuz+167ofzFI5dH
zffASXmJkT35Sih/fpNc5HgLnBTYdlQLzUD5P6c2D5EV4ERz3jnaoAHKH6cr
E3qWBicsrVX7+HB/t+L/a/99Ho77eNg8/aiO8kse2Xwb3Q5HR2wyj9fzoPxb
NdwPidTB0YaldFEZAsovcvwv5/ojOFr449uUvxzKT9J++YzSDkdD6o3SeFgo
dd5QJME4Eo4qidz19+lAqXW3hCsnueHIM64b4rQAlFrt5hZ6PBeOuF0vIaar
o9Rf95ouRlrDEYuF98PSOBc9etF1qBSOqL5KKN04hlI/BAsynnjA4aH+2eBl
Akr1ThUQ3zIOhy9a+8zo4Os901z6nV7D4eMu0sqEJyj17qe6Dz/OwGH55AXx
9RyU6pQTftA6BQ6TnkXbNiqgVKNyqnbmVThUeTgkRhNfr9BJvo00wqFToq/0
UBeUurfnhtpLHzikmhq7u94epUr317BHFOCQzJWb844IShUbCQ4IC4ZDfKob
txkZoFSeeWJ8uxYc/FNwaNM3fpTSK8RbefM7HLT8s+huVYRS/qUpu0qpw8GL
bzYirfYopeW45dbWEjh4MlY5lJWPUqpv5t88jsJBWfKfTI9klPKtxk5EqBYO
MBnOobdx+8Cn6LU8DA5EBEB/y3CU8lRsiuxkCwf86MyiTAOU4pWzNU9yGA54
PjXu2M1CKW59t/meTcABmx0Ur5uvUYrFse1ZVxbgwGEVnbz/2R+cf8RZoUDa
aFKpsZUOStkflvYh5zmk9T2IMn5fiVL2SLfoXxeGtDaPvvY7QyhF/NK+9w1b
IK1i8MiTXfMohSerQydZCtJSPJR1Nkyh5PXT3LNGKZCW4CERlEJCyeyeg4nk
PZAWnSBXJxqOkhmUQMbd/ZDmr899ynkMJXc6HorTPgRpDtaSte8SUfLfNRvA
KoK0a97+ng9RlNwQGz6epQFppj/KJGvUUXJFxdBxUQTSdFM2DH80QMnZUtGD
Y+chTZVsoKGE+88oLH+eWA9pB4787t0riZJT9SeOXDKAtL1BFS0PhFHy68cn
Q0uMIU0yLJ8dYISS/TqZyuHWkEbasdhg1YGSH9cHRuc/gjTuNB7lLjeU/OCn
5FxPLMTWzx1w+n0BJbtmnCtQqIXY4qCBlaQTSr7xBttqNASx2S7Sn4BglGz/
wuOB9xrE6FPmznoBKNncI1WjXhVio3Znda8roGRj56NvFvQhNlj9viw9AyUb
WDaubneCGHZ2008FBCWf0V6BtxIh1hlXFv6zCSWrbDLRFuSDWP39j4oSOij5
AN/Ux8NSEKv9qv6tHT/PXo4/n9UxiNVsGAxRYqLk7bSvNdluEPvFIpyadEfJ
Ym1n9rWHQgyNV/kHK1Hyppqe0LUPECu/vCYlWoeSyTlkPf1OiJVswfpu4fvx
pCZle8xDrEiyOAAxQEnrrw4LJQlCrEAz64SaHErihNa5VctBLP9+4p8RU5S0
4GPbzNCCWG6100rja5TEvMNW3XoVYt+UZ3NOSqKkyesvYoAnxL5+F2+zeYKS
aBdKTV58gVgWT+0T62CU1IMYFhZWQSyzebNqggxK+qc6LtZPg9jn70/yVIRR
Uste30fEFYh9+jZz/JwTSqqX2NKtJAqxjKqzOytwfzWCXzRNlSCWPmtXpIVz
xQatt0/O43xYzl1GGyWVLXSsZdhDLC3Ko8l3M0oqGr99rckXZx4l8x2lKCmv
lxdlJUDsY8ThrCcYSspuSpSWysf54E2PFtz+U6WKv04DxD6M5tyZVEBJHwpr
htzGcC4Ydb7ghpKSMq+djt+Ac+LsMUk8/oR3C2k/t+Mcn9soHY6SYqPDiePq
OGdRpaqKUFJkoPSNjYY4t/dqUK+ipLCHRbVHXfD9tlLVwlCUFHjrorxNEM63
PI8+sEZJT62Hw0NScO7ifvqyEiV5G3lNfyvF478abXwQz4enjoh+ZzvOC3z8
cri/u8cycriY+PlTTwoMKaGkWwfBxv0UPF+Oe5r18lGSk3TbXcM9eD6RuJ7m
DpRkJ3rz7yMEz/dBj6qrmijJirJBLcUcr4dqhqqREUoyXX0dW+sOsS96Ah3x
eH4uzyguzkbg9fMKfeSH10d/6LepeAbEsiFh6u8QSjrXYVGsVQGxnK1GIr/x
eAAM9opmQSyPT/KyBwElaZyZ+Ck5iusHnk3xakJJag16fGl4/AWRTvc3k1DS
vt6NUSV5uB4fsjbX2aMkGft7/7Tx85dGb2+owP3vmGyXbIjE9fszbXi2ByVt
4iSkD7hCrMLhEn0vbi/4dGXaBdff7275+9x4PcjkayqLunh/OPwL+CGJEtfE
dpdTcP3W/9pqKF6EEscOfWlVHsT7LeB8ZQsdJQ6UCW370QKxnsz6nRdKUGKv
9p1rp1GI9Y/z6O7E7VsuH5owewexkQ/cNZORKLHUDRKemkJsQcy17nw5SozM
bFZoaoC0LT3u2RtMUWKYqupd81JIE9fHRJtHUOKzktjCoUxI29Ha+gwpRYmP
/jPXYgVDmpx4k9HJAJRoPzJoJnUK0o6FXbPTUUGJR3ctPLuN34fXaV5NjzVR
ouqnK7XsdEi76Z3tLmKFEhWVSoT94yDtzj7DyfvCKHE38Hnz6h6keRe4Go4n
okQBS+I3qAhpMYlW1hfoKB/t9bY+wVRIq36EvRuaQPl6jhKBRTSk1a/1N4V8
QfnaO+eTM/wgrTUK5gvKoXx1Eo12WraQRhv8bDq0H+UrSAoY85CGtFW1qffV
aShfWBpjtjcFnyf3XKX4dFC+Q9+riF+S4UBu3J3vs+oon5JJnhM7Eg6UlMu4
roajfPuXkmvPPIEDv2Z2yYsOoXxSR73CMWs48PdBaEJJB8pHKVMW2bwTDixQ
dvyZcEZ5+ysTJb3ewUENqegVnlCUN+TvXeXzifh8tQ4K2pOG8gY01Z6nysDB
VsndoiNPUF7fBmnbP5lwsKcvd1/dAMp7v6Yl5gI+X+kPTHMmm1Bem3KVJfy+
G9q4HCY0nIjyHs2YK7ssCofMDzZ8OfIA5Rn3uX/O4gUcolc26F7nR3nO7Xtg
4+IHR2TuiSvxrKEbpu96fub2gmMdQbG/Ka9Qrox2mcYnNnAS2BsMcreiXKm9
J5I6TeCkzukVc38SyvVuyNRN5TycvCTt7bL4COWKmQ0XHlKDk7Z/GoLum6Bc
TwXnDHVIcPJZXwh2cQLlMjv7s00oG07WctijecYoF7nYquvdMpwyqKq2Uj6I
cvGgDz4vMeGUKf25UKEkSlivjvYyGIJTNkI9xnaPUMJCW5XkhgY4decEc6rX
DSXQZg9YOqTAqSi94W/ZWSihZP8ypqgDp5pki7EjEyjBOfH1cFksnNbxX31/
zgolXD/ik/DACk4bOLF766pQwrUW+4uqcnDa9DQ3aimIEoxJB4sySuC048CW
O2aBKAHcqwp72QenA7/yXdA3Rgmbz88rO++F079CWY6RpnDda/Yd58BdSFfl
+TpwG4Hrd+Sc7VJ5IP1oYdBpLSu47mB1qF4sDtIR6wOvCg7CdYP/6pK5f0C6
XvSvdPpvuL4nmXO6C1/v6C3ykrcKrjVeNI4KxNfHX4npP3UYrkl/4ZfrL4H0
+aUdvCHhcE0sIYtL0xvS2Us5TgX1cE0wRK8zHn9/XqN7eda/hKschxehhihk
kMpTD+5hw9WWXSKTv6shQ2Iscm9sM1x9GrctOxN/X0csi+Sa1uGqZ0BJECkO
MrQh/9HuALh6657FtetXIOOc6LHQv1Vw1czgrfCOLsi4lLbl34ZhuKpMlboT
RYMMW12pZzHX4Qr2ZK+aJx0ynn4cRS+LwZV21xr+1hzIeGbrovdrF1yps3Qa
Vr4DGSGbPaeuJsKVIo3PsRPzkBFpJvyCwYQrLxYOLFkuQ8Y7u/L60G9wBTir
lWiTIKPo0ahvPhGuHDJti06uhYwfz9/mdNjAFfmzHs6r4ZBRHvuicbsXXNkq
UyRRKAQZlc9ET37hh8v0/mOP94tCRuOAypzqCFx+Z6SFCO+GjKHIdY5uHVx+
6fyIphQBGaNy9vl0d7gc/CTPz4AFGeO5ra3v8fV3s2Qqo+ogg55c8e2fA1w+
y0c8t8kdMpYw4wDZfLisKQkmVPsggyMUkX9uGC4rqzwIM9KBjBXlLIsICbgs
YTVeH7sdMgl7tb2TByCHUVhnKFoFmdwLO/KWxiBnqIFn7ogSZPJ0iHAC/0BO
59DxmCsJkMmb7+TD4IOcSuHs9te3IZNopjjjNAc5xbKjnkVdkEna9aZK8Drk
ZB+XEuvUxnnQ5uPXWch5fSPKQlwMMimGzOhyFHKe+/63ouEHmVTC9++8WyHH
L27DW/MpnNPrqPMrkOPy617/m5+QyU8bQv9EQ45Nx5cnpQqQKeA+aPNMHHJM
6MO7euIgU5BLvjREFnJOSpjYb3eGTCHe6OuLTyHnsPIL3uOtOD/OksGaIUf+
bHWa1QmcGRRfETxeKSvCWZ8MyBQ2y/hBmIGcLe7qY0mbcC4LlKmphRxK6J0Q
6AOZG8XfC+LvOez15M/7+8dwdltqeJ8N2fMFA3UEQ5zR4Ar5s5A9Xi9xS6oU
MkXIhvpeEpDdN2gkeFIWZ13Djt5QyP7LDv9qE4lzYHCTBoTs/4R+Gzzl4Fwy
m7EZ/24v37M6k3Id57GITr8JyM7TPBz9qwkyNwlZDOL6YGcY3lYd1MD5oOk5
BzZkv3VKb+P+gLOOX+xkM2RH+2AeMoI4m3ea7iyD7KDYbVu1H+DsYCEzeQ6y
vTMvFdkP4HyTLw6OQ/adn6Fmzy7g7NSlF/sKsh3+/eJ8LMT5Wit97BFkW0wv
v6mSxvniwp6CIMi+xKOmORKO89GjKY/3QPYZcZc+vkWcJd5LHG6A7GNKH333
WuPxL+3XNS2BbKUzfVJna3H+83eu6SFk77EU/emkhnN8YjdXAmSL37toG/wO
Z2v/uopLkC0UEsz9iYyzVFCCFZ5vniT0w3/ueH4708VDdCGL/Z19erwP5zDa
PicMsgYHnIP35+L16k72GXaHrE75YuvmnTh7EZ6JbIKshvuko554vMKbCkZP
NEJWMfHjRCWeXyFl6c4YV8jKNpivcG7B9fO93V8pH7JSE04lbsT1Iaja8+Nr
BGRFKND0rHC9Ckj0avVxIMvfQ0mWJwDX47O2lvyHkPUA+qx9nsH1Or79Xq44
ZNkZSn5dws9LeRP3Pl8QstQ9TUWiHuP9kSNeV0aHrANo2uSRCcjkG7o/oBwJ
WbvJCxV9JjiLbGObG0GWQOLL+/L/6zczjaeVmXBp4GfDv0q8XoS4P5bC6XCp
g7o95+ZFyFjfX/zkSidcqjdyCdlYChmr4vbxQBouFY5SNKxiIYPVfPF9wiG4
9Jz/dCIL73fGWyv1Nim45Gccc//dd8iYVsx4/DkALnm+G9Q/LQ0ZE7n3avlE
4ZKt8pP1KPx+G44KDd6A+z9iUmornw0ZXVlpQk5dcEkhmarRIgEZ/1qGKx+f
hku7xs03PQiGjNaJ99F9LXCJ32up8rcNZDTMhBXIXoGLtPeqe69thoxfljuL
2AhcbJ/wI/A+hQwoeij+UhxcrFNt6sjE7+MfPyvZG1fgYkGVawgLv//zmRfj
uc/AxbDJT1PRjyAjLVOEEoHBxcOHpb797oeMoFdXqOUv4aKCujb7sjdk+MPI
WIFFuCitcQOhiUGGbw9x1SkQLgqe+Na4YgAZnjPfShnf4MLIWS26Cj5vHF8s
Z7pWwoU40+v7k5LxefK6tTW4Ci6Em4fcPaCJzxveXT/eR8AFv6tZxSUdkHHs
en5DPRMuuFov6rQLQ4YKd447WR8unLkR5MiPn2dH3uYNlyXg/OKjT6kPbSF9
Abtctr4I56e86yf51iCdGeV8rAiF8wM+syoxCZA+ebgNtdWH8w3+Gj+/tkA6
ZpVzf60PzqeF/ekfOQXptdL44GuD8yaJdMnLMpD+xvuUvOs2OFcAVWIVhiH9
0NO7kHoTzmWO0T/67Id0RYXVUT4VOPde5PP3RldIl/1DSp/H4FyYg3T7HRak
b+1Lq2j7COesBTZtLaTAaba9brfDDJwjm88lnFSC08WTwXuEGuCsxWJ+krEX
nFZaHeG2uAhnL0m5fU1D4fTetXLVC2/g7JnzCpDFA6d3zN7rGeuBs0pvP2AJ
EXCaP/fZjdFdcJZXO3ZXfzKcGo1NzZUogDPZ0fc/3KiCUwkTLJVcPzjDpXj4
k89GOLk0NVSV5gaZS8I1cgWBcJLOx3cvHp8DU3Nm6XQOnBzavFsqF58DHUXe
adcG4GSTkEX+Vxpk5mj9Sj2ZCyfT/RT9dfC5cO2K/lteQzhpdDX67BKADC9C
/a5te+HEx/XdTWa6cGruowLjsAIc3zfwezWOH071Fvv6KjrAcUk9/fj6EjhV
Xd8iJJsExwW/7Op+9QhOvVn0PLhVBI7NnUFrA0vhlPbZn65LS3DsB/O5iPJt
OBkzYUwv/gXHdCU6832ZcOLwQR/6cVM4ar1mJihSAEcfFDdNa/vDYZfbhDTB
13Bgq1lkttEWSJOJua0g+xh2ydQI/V7MhZ0uKiuPVRJgQ8D48+Huj7DhmNjb
m13jMN+uO1/ykiXMt7pyupGxAvLu/2rzohSDPLfFpQ3fw0Gj6dMdXAOHQCMp
VGKj1Sjo/KXB/sHcDTo3psYXu1iDAVP9+s7Uc4BmoevzV2IKjH5f4BbROw2G
46utfj+qA6P/sWfINhFgOCPkVZq8MxjtXesn3O8Aw4WnrsYBNzDGRyqhv3MG
w61v3bns74ExE8m7tYwIMCI4ecy87jAYWzw14B/VAUaejp1fie0DE4ejf863
435stORD4qhgqlDpyb9rL8A4z8VfkYHpYKpuBGhOBYLxjR0a2YeegKmBN6sp
D33A+E7jYzaVp8G0IPHRrZeuYFxDobw1/weYtu9z567WB+O3L+3TYe8AdJFw
R6WDgmD8n7NXoc8uwLg1phe8FgEm3hX2yPBKAob/Oyo9LBBMfK6yEeTOA4z4
y7VGYj5goqCmdKB3BTAq4dmdKq5goiFjqLZzEDAF/kiZ5+0FE6vtjl741zDT
PmUbc5QIJs1ove03x8GMiIHAdv1qMEWK321h/xnMSN4VpSluBlMiDnmer9LB
jGyM1EcBazAluW9vuFUfmNHoUFP4wwFTB8OzKhNawYydtYXmOQUwZVzfkiFq
C2by3T5ZnIoEU8mHok+HXAOzJlGn49XNwbRCwLeWdTEwa5130XJrGphWG3Of
3lYDZp3bzKQW58D0caRw8pgRmPXd5pKB131aryE3xvsYmE1//7JIBYJpV2vF
6f4ZMMv6Rvt3QAZMZ5mwZ1orwFxCi8+WXdOALu1Xs/DXEcx9+HnnvZc6oO/T
b0y13ALmsnOuH2j1A3QlId+3ZSfA3K+IC2eCRAH9uOvftb40MDdxXtxz6gSg
X/koYdfZBOaP/izoKngB6CH0pDf3hcH8qZzPjkJdgB7J47A4kA3m9ZLezt2Q
AfQ4wVK7+9Zg3ubxM36JIkBP4aLeGWWD+ZCjl48/wQC9+OrGiuebwHxHDiNZ
VxnQhyci9p/JAfMDSYMKH7wBfVLnhe0lEpifimgvWq0CdOYb8v3DLmCB4FLW
nGMO6Mvb7b4DCliQkwvn3uIHGEKvosvrJ8CCZ7Lc9f6/gHHYhhAmdQAsPH0h
MXt0B2Ac4xMN2t0OFsJ8hHyinQADJMVdNVMGC0kWi6+0cV3ofG36mpIFFqq3
VtZ8lgEM89PbD7RHgEXRFzby7vcBw0sr5jKTDBZ3mZQyKKKA4evX6RdlCBYV
dojlJhXhuvvuRn45ChZPfmk6Wov7C5t5EZybCBZdaoHOLjy+N79f7Pa1AYue
UW+ohbj/pNfGWaknwaKf6WLjhd+AkWp5Uz8gGCy+Gs02eUACjM/l/rYNPWCx
gne7fUMEYBT1XP85ogUW6+seytkrAUbpydSsrzfBYsfL1kl2M2DAeKVy2i2w
SJcOv7dnM2BU7TxKSZAGS9vA8lOvBMBoCSI7bqSApduPOt/JpQHGWBWXAZUF
lh5pHbIp1wGMSQPzvsYasPSMHLXn8jhgTNdTKqs+g6WE1zpffBUAY/atW67+
P7D0+3thSVsuYCwnuCxdKQFLTY83+dw0AozVwsj+r6ZgqVv7thZhATDWq0WM
JFzAEvOv7H8K6oDJ1Rcvnm4LWBLM2H9+5YDJ688t+24FsGQLZ96IWQMmn4WE
7dBDwFL21bPK5gJMooLj0ReHAOusIM9wpzZgkkoSfW6MA9alNutPriOASfYM
sjw2D1hXE0tv8QQBJuVARuGPv4B1V/7e/MFawKQ+i2KJsADLe7ax8LcLYPLv
tfB4VwJYQSXyXhYCOP+ySjldDFhvdQY3BBrg98DQlhvFXYCVIXyiSmIWMAWd
a6tipgAr919CyLcYnCfKDDPDAKvGwVC45x9gCrVb5rp7AlaLe8f1sPOAKXyM
v6G3GbB6/K1KjpbiHN/jLdwLWCNRw4JjijjP1of2OgMWM/mmXVwyYG48jTXO
pwMWJ3um6LQIzi+37p74Dtg8ZQ/45wJw7rpjp34EsAX/rNm8XwRMEQmm67Fx
wBbrCigwcML5Suw+TXnAlh6nUta6cH5u7e2UANgKS1HXsi7gXHb5cnciYB/h
25pvgedbZNQ16c0CYJ/c/I5MUQbMTdS8y+9MAFt3t4xl0Qec90s7Vs0DtrHy
51xHUZy1Sv9Nbgbsa4gycUswzsb+qS0pgH1Dv9CigoOzrWcjfk72PcvjOXfx
/G66kWDTogfYj29W8kr14ew85Xg6DrCDHp03a8Tzu8nBlXGoGrCjgpuyH//C
+epuARAK2G9eXeFWUMP5Arlj+Q1gf/zYe6UrDefDMq4EU8D+mm/3JUQMZ/F7
k4MXAbv41wTXkTD8PCy2h0Y7YFc0uxkPr+HcXKCWhO9X37/4OcYN5w+Zhtmy
gP2P7r2uNYDznS4CKRqwaavcl2eMcD56yu3KImBPUUMykqrwfHPGuvWpgL0o
LrSqj+t1Y8Ef77QiwKEckUzLlMR5u971zG7A2Xw6ZdksAq9nNePoRmXA2WG0
z4BEwNnlr7k+EXBU7hxi2w/h+vjoWOtlBjiavqX6m0xwPir++zsBcM5EaKX8
rMH1VL3F0eId4JhnXrywIwvXX/Pobr8QwLEvbkuul8JZ/ydV0B9wXGssFryi
cb3+HlPdNQc4fsNO7zo8cH2nyvBrbgGczJ1PZ6JP4P2wzeu4XDTgfFcknUFy
8H5xGnMUBoADNSMSGNJ4P+Vm/2k7Azh/zd5oX+DD++2QXvSWVsBZfpn/ircR
MDcsEYQdToBl3hSNyXwtnLfZzVE4YFko5ydim4/372HFLV+iwPLu+vpx+Bow
1sqWunK0wPIF4qjmQ2vAWOy2lEvgB8sm9LYa+/2AMR+fLtT0DCzbtFUa6c/h
98f5sZerAWDZM/W9i0wgfr8EXj+UexUspwKLN41fAGPQpvY3bQgsZ8ue31vi
ARhY0ZV9VaVguVhAPe8jAIy+DVyD/myw3NC95c+jFsDocK2Km10DyxyPxuU9
bMCoy35rMEQAK7yW5UHCvwDjv3df7K4DsCKsnSWyHI7fh37cT8zDwYqsSOj+
ZinAQKWTXudxwMqlbG1z7zOAkVu3f/fBl2AlY7iouCUaMGJ/B71UeAVW8urS
T5ddBYyoqdK+AhSslOfFNmfsAYwIYlxB3gmw0vr07vhj/P4PFDPo8hEEq4Tt
B7bJ9QHG/bQXevn1YPWK0fsHvng+DL2wr1/6wRpvRegR+QrA4D5a43hBAawJ
zaQaHbQC9LXjjn31gWBNfGfpHRUWoLOPbAg49xisKXrRMzUUAJ3Br5VjnQ/W
rqhd3qkTA+hdIEUsVhasZXyUJF53APTsxgQRZjtY1w3M+pdEAnSDSrst8WNg
3Ti/aj4lBdDPxziXrj4D69cGsI1pmoCubaFrcXACrLsDEd0sN0A/Uv+9x0QL
rCcuecAfnYC+4wxfa6wdWKc7gfSOz2B6POxOsrw0QtD5MFZKlgXTD1OMS+gY
QtBLcVasngXTd58GMeteIQTDpMn3geVg+qbpRNQdVYRwNYEexGMCpq8ybVOK
DiMEt8j5S+vPwDSooG4XE0UIr73XRxeGwDT3WtV/+woQwpjx1k0DKWAqSPDk
vokZhCuY9/TN0u1g8uF7Y6GLlciGgbufNnAIYIx++MrZNhTh2fPbquzSEhhx
Ntu7JeoDwiN/ovdrpx8Yueb3yT/gLcKjVHQ1xUYQjBhl3+iMICM8xzLNg9xk
wQjgX62N2Y7wXIoyuRRhBEY2jY0/2rkT4XlsqTdcmwOGyw+imrdMEJ7WheOC
p26A4S2Jr+t7/yI8Xa6lhNp5MEzVCEnQoyM8/WMac4ZPwDChN6318RjCM9Gt
3mHzGgxNqf63M3Mzwkv4qZbiWwWGKqRtZxNICK/Cc4XDpdJg6O6O9unvOQhv
wB6Ja2rdYLDt7MiEaRXCG/JM6BDbAQz+GZujXXVAeCOGufnLmGDwV7ToaIsc
whv/YaLkLA8Y/LrKq5zjgvB+lSnZYqYIBsPUDVhXVRDeLhnTP4+fgMFTFpcO
hLUgfEq7445UyYKBH9TFzqh2hO+Qf6hgaA4YyB3w33WpHOHTGHw8fFEDDHyu
9EQN+RC+06nXozsugoGETNLadgThs9itNj3xAAx48XacyahE+AKl/34Q/AMG
TlDq5Jq1Eb4e6Y3CV9wArUG8682QNMJH25NwMMMW0Gp4VS52TCB8I/t267ON
Ae3nymubH1oIH1Pp0PM3GoBWIDKze0kTIfKcMKf08wLaO8yve7sOQlQwT+V1
SAC0e5sr7Bq0EKKylYJMYTig3eoO66qJQIiHbb5rk3wBzSmHoXTnF0JEnKr9
PtsDmlXQZOi4B0I08phcpx8EtPPjTz+wJhCi90s1zv1KQJONCuoNQBHi07jy
bVUFgCatN6/hl4AQAxPOHt36CdB2iMedJaogxMj3Zp7FEYC2ZWhIMsgZIX74
+nh+1QzQ+JDADN18hPgpj7hZ/wKgbXj6hDKD22cXRKomnQDY2t+nc9TNCLGo
LOXuSRmALWWS/wb0IMS6P1WMADrAJuRFg2WbEGJzo4FgGw1gI0uIbecjhNje
0qko2wqwwbZzwK8SIWKdky41xQDrrba/XPUFIc6PCU3wBwCsJbD43jLunz0Z
T7b0AFjjUKv/w0SEuMaQlsu+AbB644xydTWERFpUczTQB1jN7YmB0kSEtJ3H
dChmG8BgSI9tlRxCknYX3emvDrAy4/Kd00YIae/gX/O7JgD7of65i68UIalU
6DUZRAOsUFtNei4cIamrUqkgB2Dfb4kZnRRGSMdTas4oNgIsLyuu2kcTIen4
aZUK8AMs5/7sm74mhKQ3s764sh9g2Wti2pUfENJlmzLlSR2AZb1zgnIGCMm0
+ZFLlwPAvlwh2RbkIySrk0fS/3sGsEw5iTe9PAjJLmd+AH8fwT5vrJqs10ZI
N6Ryt6f/AtinzYpj/gSE5Bp52zQOA1jGwQea1R0IyZ2g8PLZGsDS7aoz1J0Q
0sPb4w33JQGW9u3kuo4LQvLpTyfbH8NZjF/+7BBCCrhor33ZHGAfX+vudwxA
SCFwl6/WA5xVZITKFBDSC8W+EuU4gH0YLuXWwf3HvHuzIJWPc576SbYUQkoQ
NFMSasE5oXz7VzxfST6izmszOCfeXT3jjpA+TP/9SBfGucj76kt8/8+WkViv
Is709bpbKwjpa72+RN0FfD9EejbvKkL6fpxq8sMZ5y/UUN3NCKnkS03U52A8
XpV+O/lWhIRKPquLT8e5tdLWGs/P7/BTxOAq/LxRmB/lAkKqXSFoeQ7h+XA2
a3bG92u6WfbYcQOeLysTd1oOQmrrflRkIoXn89bKxyWcu3WPzJ3G9ZoZfzfP
Cs8HVrKgqGaJ1wPrJ7Dx+ozsz72x2xuvn7YTsRfXy2TC7Q8iCQD7WqlmYmaN
kBYfTmzD5wyWt035VsQUQloeTzfqnwdYPv1rmfw8QuYys3/RuAlgBTR+WxVN
hMyv3s+bZYDrS3LlQ9QDhLwxIxFJdMX159B3Tx9/vlXMzCssHNdngwZHG7ff
tfR35sZ/AKtc5PKpcELIex2jFEzHAFZdUGJaoYOQFf7pO+rwAaw2Nix1MQMh
Hymo6ZXVAlhTtqhKI4aQj8sGim2xBtjfsR1rcZEIWSvu1GUeX4D9Q/p1u/Hn
evfLagZKAdZ3UdbxXw1CNhz24m7uAtgAz6rzFB6fqbH6CZQFsOEuBdPT6gjZ
Ti03P+kQwKYHVc+u4esfzKUnW2QDbN39cvRSK0L24ePs/qcGaNwdBs/FhhCy
v/iFdMMfgEYyLWTTJRHyc2Qm+1wNoG38qpv8zxohv484VnpkEND2FB5c3I+f
L+19BMhzBjT5DfuGBpkIOTMfq1BkApqSc0K/PL7/9+5ntXvWAO1YzA2fnTkI
uVausWOzGKBdvngHlTBFyI2a0hYv3gGaWUj3zEMZhNx60b2fugfQrg3UM3bg
z/s8to1sUAE0F2bLVD/+fLbCbo6pB2jBT/dO5kYiFAlLllCdH6D9jnLpUalE
KFJ3zr/UIQFafeUrci4JoewJeCta8QLQ2sU8RbvDEcrBTK3tJYmANio9knov
B6GcYoXLZxSCAUqV0wZN3J/LS6mzAVNgwNTx4pNmOYRyJ+3uH8I9MGBbEP+K
xwWheBT/1vfigIFbch0R3/kRyhPM2fgeEQz4eVSrpyAIJfZAvp2NNBjILr3R
YrIZoZTV6PgevwIGBYWEbr2qQyi/fgmNLPSAQfFrxkHReDzVP/7pZ9uCQdm/
Lr59XxBK81eHHTtdwCCyN6G0GUMow3H+ZVx+YNDdv7vyjDVCFbAv5/zOBoND
8uDLe2+EKmIVaOujBgZn/7tYgmoi1K2merWHi8EQ13PXgqoMhLpLtyc+vRIM
7Qy+qZysg1APqXDUQzrBkKWeZUNvMkK15Drkoc8DhjBVi7HSqwjVhrPSxxcK
hmZORR4IDUaoDvOVp6EQGN7gvevDvjGE6jZ2eYuSOBje4zAzF1qJUAMa3fJF
DoLhW3vtz/82Qqhf3mbOtJuDER73dGNfDKGuaEjfsvoGRi9fqJJ9rI3wcyVv
Z363BaM334RYWnYg/ES+be78m8FowE6vsCAphH9ji/CjYg8w+r26AK1HEP69
N9aCN2uAMYmkTboROQi/YXxXyn+/wNhMHFGnCecMdnSHWiuYqBEs5SMYIPzZ
1yIswp6BiVGH8YdEYYQ/73dI38BhMMnH+SUdJofwl0c9GX7xGkyeaT/fUGuN
8Lfuc52dsAST/9nGlTjrIPzrZroCSSNgqnPd4LM8hggYF3OforAAY3/1Yny5
EyJg/itGkC4CGBctXZY/SSEC1+pkuprlAcNdoV7UNhgRuNF/5u4rK8Aof8TV
MZOBCPjwhqTsrgDM/eMpGQdYiECaoTCXJv79Vd3679qmGERgcVISuu4Bs2Jx
HT0NpojA8nxW2KUTYFYxS6ft1QoiSFg7cUXNFMxqDyYyyJGIIHXjNTonFMze
ybnU38JEBHceSd0RyASzdXUv9aS8EcGzAfseJ5WCuZA9RVzupojg6+2HjzUb
ggUJvtfVVJzfRi/vNnwFFo74RJKO2iOCqSSU8rcHLBjtTLY60oQIZs2f62x3
AAvPe5+L6qkhghV/LD27vcAi94Wd4BEeD+NhQN7wB7C4KBznFfUFETrT9lee
vQhYK9uF2vrUEKGFCDdJ6XiwGpXyUMmuBueiwzxUfrAa3bye8TgSZ9ry5JwP
WI3hiroVH4AILR4K+lFpC1bjrNv7m/7HPUkWDgpg9c3O8Zt8cogQa39Dwqdy
sPoh+YDh1AVEiFN9YJvSEFgt/KQikWWNM3OOa5sJWC3qkv5yF7dfFi8a56oB
qyXUHVFrTTi7ahe1ZIHV0lvqV6/nIEIrW66aunuA1Z/KcwtHVxChVbuwV0Vk
sFpbFnbr1hjOzy/5JnuD1T8MZccGJs6FWx2D6WC1XmqgpCsREVqjpB4xawGr
jQGONydw+7VvJe3LiWC1VZdNgAScu5+UD+HfUW2P2dXa3ojQOu+ZtLonYLU9
h3fMAcXZtMXj7XWw2rkZOfboCc5+r62edYDVrjOut8bw/Kx/sTrjeh6sdj9I
X55yx7ldRtGkFKz2fJ4arnRC/v/31uD/f2/9f+5v3/M=
      "]]}, 
    {Hue[0.6000000000000001], LineBox[CompressedData["
1:eJwtmXk0VW/Uxy8hSUSDTCVRikRKJbVvEY1EEslUlCSZiswkqaRIkzJkKFF+
SoOp9iU0iRJCZZ4u995juiOu97zvev8667POc561z97f/d3PWcf63PHl7hQK
RZRCEcn63ytNdmZmaDHoAkfTdfqy9BhNVsCPW8E/Bxy5RdopSw7SZNnjK/WL
CoE91bjgzVUPmuxw//EDWuuB3RjQst9Fmib7u7YtRm4TsGOomS9+1NBk/3vw
dbSHChN9E0SocSFN1tkg//sVaxh/6Wu5U1uaJvPh1NmY+kAYdR/3MOxwos1z
rRia29gI9BIpY91BIU1aZdPCczRV6F7c1XL2bTNN6p+seNWZN9Ds3qopU55J
mxPdOqIf7wIVc1Kv1OY+okkCxoUk8fC505fFJoJImkTXfcV2mSystxeq2+v0
0sSv/vLT3/sI2xIzxeTmxtLE9qwOcvWKxq6/tfP959Booky/wLxZIdhvKP48
0noZTXTQRcLpgTf2m47XfFn6lCbac+DOgnXHsf/Q786j9bo00VatV6EOe7Hf
N1rEvCCMJlrVzrQoWoL9zx2vUZj9NNFH+46PH3+NA2q6m/r2DNJE92lYGFew
cJCiZFar+5kmktusUR/pivQMk7fCHftpIln/tqe32iL9uU2Xf7wKTSSt185n
/V6kFztE/TMJpYkkj8XP792A9B97Frc/P0ITiZIZt94tifSZnPVUsTCaiL15
RZNsAQ4dczKK/etHE5lT4tSWNonD88pPTBs/oYmI0YLyuCM4vOR8o/uIIY0y
8ykp5GAvDq/QsPImaDQKu6lGRbQOhze7uDWa7aBRusbWOp7MxOHjNg9S6Btp
lNI1k526u3H49Zq4aREpGsXz0f2+93eQYRl4sbGwi0Zx3xSeEuSEDPt7Oifb
EmgU5wY3SwMtZJx4dk1fqpBGOSy5rji3FBmBT7ZoxjbSKOBfc/12OzLSZkTC
NB7TKAv3Tuh7rkLGsLa+2L8QnAkZSxOs9UPmRds7qqKrccZXy/NElhgyo6oX
PAmvxZmTThu/L7mLzGuavyz0BThz8EttxqwyZKZ8mNMhzMQZzQzBrjZyfdke
ikeHOwrrLQ8nxpLr+TWXPVY1o1D9ubRWRymyvPaH3+KsQOGSlBcixqHI8rt+
1j7nBwplrh5ofbANWUEfllguU8Npwcmb16xpyIoRpgw8e4bTDcvlh6s/IesR
Q6Xs4TGcjrqrWJDfiKyvgefW/fTE6cCY0iuSd5FVP7otcMQYp8/6Ozi7H0FW
k1Oe1apFOG1/MHX+0jZkdS60+yO+F6f156r5JnYha2KoTTvUBqc6I1dtCGQh
oWIiOucSD6eavT9LNxYiocaeENvZhVO1jh59+r5IaD7y5O1yxKlio7w7QxNI
6H7sYtObceomey3XcRIJamjt4VsjOAWeG0pNJZFwvePyc28QTm20a0rK+IqE
e8QkK+Y9TmmbX/CcjkfitJNEkms7TiloFCu/k0XCZ8I9x3EfTrI6toatWYxE
xLU1Z7bZ4GSazU7q/BVIpNi1rLr9FidvewZ36SUgkVqe7KzahJNxkUXRB3lI
PJa7OKvBFSf9XmhUJdYi8TThbadjBk6aS8zesyAAiaLmvj0T53DSWAWGDNqR
ePuxWiN3IU7qrw+6brMbiZLHVY+3OOOkshP9+x1VJFB/6Y0v51BAvKu1XlyD
xJfUFcPlTijorRMb36SHRK18v+ufeBS09m5LPpKCRN3Fig351Sioml/QfP8c
Er+Uyisj16GgZOVAYHEbEk02fzgiv1BQsE1tSaspEr8j5wca6KDg/ulEB6Ul
SPx59vZe7mkU3Ij4MmUUjcS/3JWdzCoURN8VTT3KQKLj3rNvdHcUeFX6dzys
QKJnT98y5/co2KFs66bqiQR9Ut3ksysKDPVvim9rRGI4WoFT5Y8CbfNPT5y2
I8EQqCz1YKFgUcDmwfQFSBDvLXQkSlEgdc33KoYjMSoZYtU5gPyZjLw1HYNI
jJm+8dI6hXz6d+WzauVITNyy3MlpRX57j43MjpVIsNMLfMvlkf+LH/+f6y0k
OBmKF73XIP+LbPXBKAES3MRb6uxg5H/QnB7NdEeCFyC/7UYA8ouMDZMqfyDB
N09Pq1mM/FzrcwY9RkgIpDerX96F/FSPp02zskmu+JMvqYf8pPDOCxoySEx6
XFPrLUH+lTuKCqZBSExRTPylipEfmm9V7NZN8tXZd6sdke9bcc3+8n4kpkWb
r5T7I//k70pBzjuSzxaas18i34E5+bBGneQvyR1N48i3Ettg3E/qUbg4xkk9
DPlmSl7tEhySbcJbSD/gb9XLiVjlQvKlGA9hEfL1zNrVzEk9C7PuGIh/Rr6m
4+IKjw0kv37p5LkD+Ur+lsfj0kh+26rYZ4Z82atxs57NITlPOuUemU+xdFr2
F1KPwoT9KnOKkcd/w99FJ/UoPHGvU3cIeaxa/QEpUo/C1SPr3KyQ19PtGbfm
FRlv12E7Px7yWrVLXH4uI/n6pZ4hDvLqzktuCSTjn16193HGGeR9/HBEXpXs
h6nXz1jr45FXMjtnqIrM/5RBpo7RCPIKDk589Gwg85ltUGXhibysFJNHcqQ+
JiWcNab7kHe/JyngXT6Z/6Malb+3IC9Bp+uAE6lPfvrlJe7jyLt0QW+lWAxZ
z+bIJxs0kReE4cK8UbLeMwpj33SQd8Ja5T8umR+OpgolmLxv9/BMXNomUi/q
VxlPp5B3oLfU1ZSs74TcHea3DuRtDrSTTwwj9Vd17ZNxCvLW0p4MbxpCYiQu
QPDWB3kr5rA/ttuSet02w4+6j7x5j26f1yb7jxE2aZWKyBPt6z7w8xGpd8mz
huZByOWt018ZROabHhM9xV6O3O6Kut9VpD76rVKvOl9Ebstc1cIzlkj0ZmZL
FSki97uN11U5Ut/dfVZ9W64j992AlJHTHbLf4Knz+VPIvSG96xGPrMfv3TZ1
y14gN/pw8vm0N2Q/r3xps/0IcgPTeix2kXpq4Lw36QxD7nH9yJlE0g/rzgy0
0SaRu8m2/Lh2ARJVebn3fKSRq5Mx16hBGYnKxRnEdw5yl9OPLgiKI/0mwHoX
NRm50iHcqmpXJErF+jR2WSKn67HBKueFSBQEjxa6z0VO81A0RTwKifyA31V3
zyCn1uBHSz7p37kuUcytdch5W+N9lfcJicx5WsE1d5FzffgZIykYieQyekPJ
QuQYGqq9rO5AItAnv+z2auTobDblHwpFwv9bqBmdQI660WlqF1lvHyXRxytX
IEdm+8v6qYNIeCQZ/q4fR3a/+U7WehoSdoRH35oDyL5r574mPQOJTU7OJlp5
yI4/etVvrTES69n7P/wSIjv62IuS0hZyXkRK+fUMINvbhbO7eT45T3ymP9To
Itvs9JVT0uT7yNO4Efee4QQn+FnWxePIGlbq8T1giBOM0O/DEkJk9RFvqx1T
cKI7fGx9cgo5z4ovHiij40TdJaOK/xqQ1azZaN+VjRNPrn/r6DdBFs1HdXyw
FCdsH7FUDmkgK6lq6M07Fo6/xfV3dPqQpRvx2iHAD8fzB1k54WuQtcpsTqzr
Mxx/LJ/3pt4bWcuEsZYFh3H8+kn1Zl8esuTMxCxzR3DcZd4ChXdSyBxf5+d8
yBjH5xwdT9mhh8zX59bWSXFxzIHzOv1wCDJ1ylVqggJxzErN578nNGSuqPNq
/vMcx8z2kk1CnheUfh2rVTqPY3qp2Z0pCciUfLNW/HYjjomb3lnekYGMnlYx
D/lUHC1IOp99ugYZ93IOrleLx1ERXcNn4XI4zD6XdmVZCI5w53/WehuLw8O3
5+7XWIsjjHH7pywBDnflW0SavceRluLQJ87dOPy91EPN2BFHCndWZu14hcM5
h+xS97riiPMRi1Rxaxy29sfWL6Tvh1C+L1dchUPZ8YsS268hYzxHhzDUQfrq
hft+rd2CjH8lERG6J5GufElOyYE8l3363iC7Mh3p8/rn9ZbVIeMhJ3CdgjwO
jsV9SsUcZJiaV3hzuThYtmNEhkLB4eShw6ySShzcG/d1pXsnDhmuC2dts8MB
l3snK1dY40BQyQ+m6SXs84KLtwb3YreC/a0Cm0XYpRFP+7GuDNs0PstWc15h
q5e+xzLlaqyLod/o+5ODdVuXXKsIPoOvT/x5rWLliK+djuz6FrkPis5XNoVI
lUCRD4czE30B6u2ilop0b4R6yWtit1RnQ2ulEb9sZAW0ymWu3RZxB7rtLL63
Zu2BLgeT2QrPTWHgDXuW/IFd0Pcg2e6rZj8MfOGPznFNgL7cw64qG7Vh4J+w
g3K+BfrezSO80o/DoIRkKSvNE/oa3WOFW8ph0FbF7yuRAP0yBSK2b9bAIMek
+1JiC/RHpa/2/hgDQ4ZJFRPNnjDg8kc3eVM1MN7pRf52vgn0WfFfskRmA6O2
H4wZsUCXk9MrmVoIjO6H05kXw4G+9Nq8lrQNwJSZHXz2tjfQt9jLHftxCZhu
7QGzPlkA3fvMLf7FQmDJx5/SWycD9GbHZZ+eCoE4O3ggTpgAQ6l7RDQCKUBc
SpvLuh4LQ88OXv1c6wDEg0NfbZaEw9CbfbXGZ3yBqELzZeu9Yei7qkcwMQ4j
876pHS1aBUNTOm6jnnUw4papODIwG4aPTLzROVQBo/IH56lafAKGhJSipeF1
GFXxW9ylS8YtWzvx+UcdjK5MVsuZ5wIMxZgbTBtyvVHLBp1vAmDo/KTfNnKD
0RMuDsZ7dIBh3dv6MzodRl/7PHMwuQWMR4O7ay7owpht4q4Hm48CU2tf1sJ0
FxhzKbJ0VHgCTL009g1dPox5NtmrccaBubk/Ucd6CsYiFL1y38QDc4/13Yii
JBh7+vh28XoE5unU0IFlITDGe9n1e60GMJ9O9liObIDxlIbwRcuZwFKudu78
7wOMZ1f4Pg7ZDCz1i0f9/GkwXlDovrYxGlirl78eriDXVybsN7uyGFiGlhF6
agkwPrRXKZCxHVgHly03UDgEE1sq3ra9vQmsqPgzS1eSbFKYd0q2DVhXLm88
PTwfJg6kp46f1gDWDb/NElkRMOEadllauRhYD7T+DpiLw8TVLYe2RXYCq1DS
XXu2A0y0FBIZ+/SB9SchzIuVBRPd6T062aHA6vyCctavYIKR0Fw8XQOsPv6i
VoNZwKZ4vf9ZeBRYIwaCrO0RwNbSip+1KBoIMSWPz45twA7M0HLv+AXE6twV
ejP5wI66qTy2ZSkQuiu+prGygX09XDY8yQOI9bc9AnSsgZ3uwLlnOgXEVovI
HRnkd/gnharPeRpA7Dcg/nESgLP4pqt2wHkgzpTaBwSfBc5y23JCajEQ56p3
bn9YDBydpUtepRcD4V/Rcb3zF3B2PP+x5Su5X8gtPYWDysDx+gq7l5PxXYtk
L++9DZzAxIdz35H7JyhazKnfApxoO079/mogErP29x0k+d5AgW2QJBD34zfm
2DUC56O4qltdAhA5L2PotguB8732opabHhC5ze3dZg7AabndOMz/CUQ+82dt
D/k8Sz3eX3MhEC9HQr22yQBXESajQlKAeL+7rEeuDLgas4/skjMGAgWvD1xp
Bq5uXZHkk39AVKYZbTxeDlxTR8+bDWpAfCqhb1FnAvdccGua1hMgfpoU3jx7
DLjBOze6ftgNxK+o0c36jsC9PCdR8xAdiKaXbwK9yfsp93c/j9ABorWvamvJ
feDmOGf7LKwD4s+QdGKwGnALV1EM8s4B8a+jcZlCMHCr37wrbXoFRFf6308B
bsD9EbYg/IwNED2eyr0BAuD+MT23k8IGok+zeduvW8Ad+bXyi85mIAZ9i1nU
UeApj9z5Hf0BCJaD6iPTROCtfDf6cIkLEMRL1U+7w4GnH3HAqUAEiBFekktC
G/DMZcT6Wk2BGHdoYmhvBJ5Vk8sz734gJgKzzs/3At6xR+Vnxa4AwY7pfnB4
LfD8tP0n1n0FgutfpNHrDLzQsfp31V5A8A6b2EjcAd6VUu0Qh3lA8LV2FhgG
AC8p6sr2kQKSGYVPaA3AS93dIxp7EAhBZvw7BTbwcudvr1EeA2JyT7NTAw14
r36nXH2ZTHL3jRX5DOC9T+McMDcEYsqrMDHKAHifT1rP//ub5EGqkXUg8BoC
Wtyv7wVi2uJEzJUNwPt7yamU9GVi+mlTYmsu8PoT+2QGdUmeuKvgjMAbyThz
4m4GEMIN2XUNz4EnKBgt3iVPsofIhYQdwBd7HyQ9HkNyQv7PW1Tgy3wTuj7m
kJyb9TTwHfCXtMW8PUj2i/DNYFXMTuCr0+dKCdtIfhvMv+MOfB1uovOL/STn
HVVZ/Rn4myQUXjuQ9RAmxko4RQN/x8K0OVL6JJ8R3mXZAX/fCg3H4mySt3x8
qS8B/MP6ea9Okf00LWjapnQW+M5U/dmL4kj+z2DVllbgn7Z45/BRQLLtP5eS
1cD3d9xW6Efmf2r0V8exBcAPO1MlrtZOcuTi1AgyvivBe+3ryXxPieSkKCQB
PzHuR0FYJZnfC5EtL7WB//DekVk6G8h6tOe6ehcBPyfn35E2Ut8CI5Udkj7A
L6kcEtl0nazvV7rFfUvgf/zpc7iPnDM8ys7nPXLA/97ByUv2IfWgNVj5MgT4
XdOzDo2SemXbKD+tXgV8xtyruek1pJ5sc78NdACfoyQ7bUHqdXz/JSvzTSCQ
2qTyJF8FiFH55Q43c0CwcFfmpD3Z30RXnz3tJAiW2qw+KEnOMVY2N79sOQjW
+27ku/UCwRCXPHeNDgLjiHKLBbZADGXODh8tBIFZws7Mis9A0NfbqprUgOBo
vuX+pS+A6Nfp8Y83BoFbSVPGd7Kfe++pM42TQeD92YEdkgRE90TRxT18EET3
eaS1XACi4+qXsPBzIMhfFjWatB2IFuVmTZEiELzRlTSjFgLRrJZPqdgJAjRO
SCHUgWhc0vj9tgAEv+wfmu6XAKK+Z3X4b3sQTN5+fU+8HoiajsEliiYwuX/2
gPFFsh9fBVsGdT6ESVtW02e3NUD8FxSXtW0XTLo2VdlYjAPx/NRwafA8mAzM
euylEQvEEyUD4StLmMwCh4f1z0k/rGXYN2XApOBC/aQmn/RXr7nMo7dgStzx
w5X5ZH0Dw3xTK/Vgar7pC/nJeNKPIxetu6gGUyvlr635Sb7/GXvlKkN1mLIq
MD0aagbE0aMHU1a+h6ncvuKSBjIfG1PK3Ak3mCqqfbrr/TEg9GglTnn7YepD
0Z2fuZpAaLfILrSThqnGKD96GOn3y9s+8xa/g2mK6lpFLVJ/8/Ty8olhmD5i
8zgoYg2wupa1lNeIgVD847VN2h+BFa6U6vkgFoSyo1k265yAFdglckl5CwiV
lpX7rucByzel9flGBgh1Q1j5RjrAchtkHdlTCcIjGw4t250MrL2sHjH/cBDm
5qjMdj8JrIVZzReTR2BmX+yL3+mSwEyrSAkbq4OZw69rJjIzgXlX8CGBPOfN
OHd3yj0xBubNVemeCmYwEwDy+174ADPi2OOHzoMw84h7ActagelsQNi+XAMz
LA942pIHTJUH3FcjSVTK7uzB8jkrgZFgW7T+7i0q5UCmp+6nMWBc3nrowhIF
KsU6ffhx7AdghC4Mv3DemEo5lsK6ImYLjNPZEU0KDVSKz60Jq5nLwDDdGl6j
0E+l3A+dGWD3wjDXnLkkhEulDB5WWNCdCcM2hJrJ5T6qSJz4rjPlqkAnNHxz
LgqpIje8BQLFhUDv3uE1KelAFUlqKYy7IA30JquWjP1fqSKpz5Vz1k0BveyA
/PGaEKpIkfVoe1Yb0GNfXNc0ekgVac9Is7p+F+jKSufzzbKpohu3cjc5yMCg
0ceWIOV7VNFuv2eiAgr029qn571gUkUHIsZbe1yg3zzWzne7BFWUcWN7YS0N
+jc/01icok4V5TxtdEqPhH6ln7O6bw1RZ0n9nSk1nYG+9jwb5qNw6iwDc1vf
m0Loc4stTQldTJ0VozKrU3MKek+LZuSaNVHFNKud3ltxofvw4HKJMh+qeIym
svOGP9D2/lSTNn09VeKvutz8Iz5Q//bDgkrju1RJVTG73mRFKNL5KuM+7UOd
EzT+NMOhAGm7hD2/trRQpd5/3h2x7Qg2Kf4d33l4N3XulJH6WaeX2OU8rHV5
aow673DJLBMpHtLPRiXTwySpMvdVDbf+tMaRDocf2X2iVFl2go+K+gNkT27P
KHMJJ7nYUGyuNMn9X7MT2knumhweD0f2VAL39QI1qixn45WyquPInu5wMEt7
TvLfdIeTOsihRO7ets+NKstbU5fy7ANyxCtLbuyrpcoKPq1V1OtFzvw9gpQX
niSPjIso2pI8dvWGjTFVdlKpmC7yGTlyD5XzHPtJ9jYtbniBHHnGHjflbKrs
1KJjdgEXkLMo4WtrXTdVdvrE9XvFc5Cj1Og+FBtE8g2riIxQ5CiHrUq6Z03y
O4VTcSzkqGgyTi2woMoKpbI22TcgRzUw4k4dg+SXpc2Tj5CjplQ7rzeF5D+R
H3plSP74VKX9JFV2RtzsSW0kcpZ7XbY37yTZruFCqjty1D/sO8qIJDn6vtPl
FuSsOGWg5lFH8nMnM++9yNGYv3TB780kN2vo2paTXCK90e5/9/u//0P4//+H
/gcn33Gz
      "]]}, 
    {Hue[0.8], LineBox[CompressedData["
1:eJwtmXlUTd/bwG+jxnsbSFFKEipNKPNz0STyTSgVDTIWIVSEiNJMmVWaU4ZE
URHPRWRokjSh+Tbe7mm8Y3Xf8671++usz1p773P283yeZ++1jtPxffMPUCgU
cQpF7NP/Pxk0kWhADYyBadTebfhQkkET8CMX8I8DU691M33BPgZtYkzfrLAA
mJrfrf5UXWbQBnv2OSw2B6aCP8R+tWfQGitbripbQvdAH0X5WSyD9vz+95Eu
OnRnFZwdijrPoHkue1J1zQm6FcR6rdwlGDS3pZv/bLgJ3WLDh3r0xhm0Xfq9
fcJ66OLWHAuq02HQtszRkzzhDF1dnptky14yaJaU5DWu7tBVWlEcmUauT62K
zTPcD10+X/NShnYwqO8PHbtaEwSdT4etKyS5DGrJeGPgYCx0pslNW4jOMKiF
YRuOzMiAzpuzsoVJpxnU3JRZDlAJncFCuUq/OQxqYt27WQW60GklMyfKPIdB
PbReIedGNXQ0ri47arKYQVWa+eSrkz60j4ZEOwc5MhS9PwzI19dDK2Xlln96
GxiKe568f7X/MvzrSB1+QlnAUHS5fdNj3Bj+fRztFF2JZyg6HFn7UjUS/oW7
zz6Qp8VQXKV0fbfTOvgna3ldMceaoajkuTyrJgf+KlqqL43wYSi8nwxd9z0Y
WmaIhb/ipTMUNC1nHmdowe+KpaacytcMuX80qXK/V/AtR3FGSJwnQzasedgs
1guyZAPm5IxaMGQAI0MSefjuqPmh8XvuDOmOexqt1Ez8SWwLfiVtwJCK+hVg
Zp+MfzpMHeNf9DAkNy8J9j4ahp3rs4qoc50Z4kMBQY8lQrDHN3BLQvALhnif
l7THfX/sCe457eQaxhDvcritarIPe6455F1u3MgQb1788ry7PfZkic2HwzIM
8fLWoW2F6tjzV5h6f6SRIZ68Zd/YviLsdVhVsNFQmyG+RW/b2g9s7NN/8bZr
UzBDLLdBr+aSN/aXuU+7LT/KEMv8tz612Rn7v+rbqnnrMcQedu8+YW6P/b96
svpjzzPEbo3GKnUvx/7BzXGbfpLzL1PHnOxkcEDj7vVXdrUMMVfbD79p+Thw
2tHrUG8LQ0y21KPloRAHddVMX9+WZ4hJMoIfc4dx0OiB39emAgZFVJEY4tiN
g5YzTezm2zEoE7+/aIpX4+CWPlAifaN0jC7dezADB8+o0OzbDBmUNwbCdmM7
HPx8mHUw0YJB8U2+x3x3G1keMvaGobMZlAOWFx8EeyDr0JROipQWg+JZt/+/
ZYuRdZKpEv5xMYOyS8akJPcNssLjLU68KGRQ4NSXmJutyHpqJRr8T8igzLQf
N/NdhCwuvdi3eQuKQkYfCpYG4NAVp4HN64NRdHKxr0+mJA7FZHxZFzMPRQc9
VlSp38Ghm0wLboQQRY7fKtMk3uJQ1oaK8F2lKFqYJrBuIceXu67pPncKp2v+
25UQcQfZYtPrjDb/wWndpwqL294g+5TMZinCDafVHzwTW3se2WeXqRbbbsBp
apRD8/11yA7dXrvcXA+nBAevRzsxkB3jN7P8uTVO1c1XGfxcgexMhciyWadw
6vIdjfwn9ciulaW12WjjVNDVN9dkyPf9PvnndMxmnDp2yt3zgAuyW6pPtRwP
wSlXxxSleS3IZvqIXw04hFNm8jonEzqQzefvccNHONl+adHyIDYSOs2rzx8t
xMkG/68K9QVILLzwR/DBACcr9x5mmp1EwkDNYEW0Hk6WrH58e2AciWXzP1+b
UsDJ6xNLuXuFSFhlfd7M/4KT4Lv8jZUMEgd2H6wJZOPkit2/E9O+I3HEUozz
Qh8nDW0DfadikTgma1ys3YqTs/VK5hbTkDgdadF38yIK2W1rLhioIRE23HTI
7x0KH+7cSFdagESKn+6k9TwU3vQ912Eaj0RauaTuj4UojLxUGObIQyKLatL6
1wqFAc/0yhMqkXgc6DXoPReFttIzNqueRuL1bVHmojwUrtWEgWWtSJSelU/s
qUWhmXlwzE47JMocnE8dJN8/16O/6rYWEh++ZRY/24wCorjSSe0LEpVKvFyb
QhR0V0uOWZoiUX2hyS4yEQXN3etuuTxAovYPi3jKQEG5Un7DveNI/PYr6HCf
QEGpfm9QSQsSjSkekg+1UJC/Tke92QqJZsaadrNLKLh3JMF9jjoS/5rD3yuO
oCAu9Nvk6jAk2mqI2sQwFITdEU9xYyHRURzxto2NgqMfT7UlfUCC6WYZlT8T
BRvmOu/X8kVicCjusow8CizMrkutq0di6JhN7uJ/KDC0rcjxWI8Eu1Xf4nAo
CmadXtmXqorEyM1dvy4ACuSiT0bhRSRGG7PuO7YhX5T22KCtD4lxxdnL6aXI
76+ae0ynDAnOlgOZIy3Ib+3aSd2gjwR3J/3QLi3k/+LHPve+gQRv29p/6r+Q
/4322fGyAAn+Kre40QXIf79waiTjABKCWfdlYwD5hWstEj/WktzJ7bkSgfxc
p+PLulYjIUwP/Hg8Gvkphx/9lshCYnL7rA3N+shPvNgeqEcleeSXEiQi/9pt
jdlWwUhMXXnePtsb+eefbC/Z34nEtPQT3++3kX/yQ7Rr+FaSz30+UZKE/ION
HwXZxSS3TZVauCLffUiY9EUXCZHFTpX4ecjfLrl8bQ/po+jC1+2ix8i3mXO0
VZpD8mu3HQwN5K8xzQ5d5EVyu6yAP4Z8U5tWHVvSZ5Gg0axKHPkL96p9OLwc
hykSXuOPliB/zqn/9kU+JFmMqVBORT4tKlIiT5YcP0J8OFuIfMlURtY30kfR
T/Pe2V7I47/iW/eTPorSb961d0Eeu9KsV470UeSjzByOQl5Xp2+kwUuSZz0b
+huLvGbDUq+f2uR+3q7iLtdGXvUZmVVB5PdPO/mrjqoh79N7FxUtsh6m/tif
lN6BvNIZ2QPlZPyndtVsaJBBXr7j+CffOjKeHyYZa64jL/PBpmRl0o9J7V9G
EWuQF2/U4eBB+igoCBl2lEbelUBTfcmrZD67tvUV/UVeMF6cfjxC8oxKpW+N
yPNx0nzOJePBXfgluNIcebuT/CIfWpK+aFvFrT+GPIfuN95WZD4n5PzPHZlE
3sqg3SoJF0jfXlVU96kibykjZ9BygPTxDG+98wrkLZCd+NTqjMTwooY7RdbI
U0y+ecaQrLchr1RX9zvIE2d2OvxMJn3vjRY5BCKXZ2KmH0zGd8BrkVToL+R2
fqhuLCd96NUPGK68itwmea0Cv//IejmtZ63sh9yqnUejlEmfuwojGwcNkVvc
K7fa4zYS7TP8WwOrkBunYJ3MI+PfJPG5JS8MuWG7bp15+Iqs57bF+6wbkRv0
sGubNenPr6fWGuUC5O4zuyRKIPtfzdwX8uopyLV0LttnmI/E5/9OiEk4Itco
TX513VwkPpYwul++QO78fjfV4EgkGKr1V3deRq5CCLf8szcSb1Ltik2oyOlI
X7bIcyYSz+WvXS+WQU7DQBhF6jISTyWUvicLkVO5rLbpCdmvc1kHe5fVIef1
F/8oXgUSGbdCtxdsQE7MYB4r8RwSt1dH6WcYIcfCQufF5zYkgtpcYo7+RY7R
Siv+jvNkv13pZ9iIyNFdfYTeQeb7RPjqX82uyKGuf1Ez6YjEYcFMcfp+nOix
3cg2ZyDh6tjophmHE3d2HzBITUPCsnDqRdA5nIh1iwpYupY8DzZHqUXdw4mw
Pc9K3zQhYVzXXymphBP+Xhy7BiXyPPlgPn9pLU7YHLl2SIHcj6qCkoPcYxzn
nMvLPLsP2YN70ibdlXCcdb5qUHoa2T2mew6kcnG88+Ko+a0HyG7nyS++N4Xj
1VdWf3heh+wGH/uupbk4nhPzo61nE7IZeXE2zy/huHMyW3OHHrITOdMzygxw
7DWa3zZiIts4O+LCFnkce9LHzr5ogOxFfrp6Yv04lq7y+FWNP7J1dPtuvvyI
YzEHdRtO8pCtfETCpEcVx7wUVWcXy+HQ2H/VfpXPcUzWbezBBlMcKor+bvIk
EkfdOUWpu0JwyKhWLuz0GhzdrnPieQ4DhxZ0jDwtqMVRG3sj5JH3gzk95x6V
uOCoaUpW+4N4HJKpCEtQWomjUla357elIaurv40qfglH8hPPZB35gqy7heFJ
Rr44ImZskXdRGQcnzqb82zyIw1ylr4tfR+DgYPLvpHOXcZg15vqILcDBjqLu
Tx4rcbip5HyOZycOVn26b+BLcsHGj5kbXuJgtvt3684eHPZ02ZYi5YSDTuf+
lL0j6yCEUjVfYxEOZCWo+IT4I2ss24iwMML+JWpZnxSqkfWvNDTU+CD2zw13
W7PPG1kVVXU0/VTsV+yzvf3TFVlJnCCT2SrYNxrddaVTGVlWth/8uVzse7up
/sJxTxy8NbCLXfoR++yjtyUbu+CAhclF9rrd2Ot1b8/uamXsDS6tHbK6gsyj
UB+yQxs7Z7veyN85Czv0Yr9F/xTHFr2vtM+cl9h81OwITUqA1Vf745h/srF6
jXr0Z7otFvn8KdLcvheLPFysf1w6AIVnPv4OkSuFwhMcjijsGtTsvjxPrHMF
1MhES97qvwDNH1fz3w4vgGblDGPasRzo3L2tqjlzM3S4b1KaLOuA3lcTEioO
1sC8f6tsPz0Ner/xR2S944GZu6vi1eos6P033UY50wTMYqqrusgA+qRl3rAf
+gKz/gBXKTwC+pw1A74T8dBDzQ+F5BHo42zqvJLQBD2XUyseZcyBAYvED+MN
vtDr9Vdvy52XwCo2vdToeR36JeK5rRXJwKrsgbWsCOhXVj3G32kHrM6kqYyz
F6F/Xqxb0MJ4GKLOOHfspj/0r3K/UG+xCYb2t56WqNgG/f7+G8q1XgNbJfaQ
qQkV+hu8jt1XGwPiWJ9D5HQ8DKQ4DB4uCADiykN5dkwEDOTtShx2/wzE/R3f
d6pfhIFXjuNjPghEOdpqm/vDQJVu3T4VHxhW/KHjVrgIBibNXf/pimB4f4bG
cO8MGHQRMpu8Q2FExVFRa1sFsKRnni7rK4IRzQC1DuOZwKI1RlLvr4QR/Vs6
2YpewNK47qa2ageMrG5abvRDACyjfwZFnf0w4uPlvnazEbCcRlSMHkXBSNGJ
PPdNN4CVzMlt0rwDo84J1vdXusHQYs89zkWZMOpV+N/e2TkwZFqojAfqYNT3
t6sOZwyGVgpVpP/2wWioxtHcV7EwtPkQk22zAkYfpd8sMUcYOlIUuqWpE0Z5
Lzoal+rBUK5a3pJfL2HsQd3FWfOHgD23323fVDSMZX04mR6yEti6KYKds1bC
WH7BgaX1YcBeYjNZIzMbxj7Gb7W5pgZsi0DtBXaJMDZgPyeItR7YjnaJEco8
GF/14XXL6+vAvlymSAlkwvimgseHaC3AvvbqSeC7MBh3SE0ZO6IH7LjM8Kv7
vGHc+0K4wtwSYN9377I9kwbjUat2rLvUDuwCkL5rlgXjTQVE2hYzYP+pkswO
2wbjnaldRlnngd0huzPgOTmfFd9QMvUF2D2r3vlzEmCCcvTdzwI3YA8H1gkm
W2Bi8eJYiVlhQEh6/45LVYGJoLTFB9p+AbGEn6CbnAQTl6/PHV01DwjjwPgF
veMwEXORdjHxMBDmvRFXavthItWdc9dqEog12fvibBthomJ2+dfHekBsvXFf
/kIhcNSuexuePgPE0QX3tfcLgDPfuYyQUwPihOmOF9EjwDGap/4ytQSI08bf
BlMagLPhae2q7+R65ymd821nAOfod7CbT35fNP9GWMgL4AQlJMkXk+vH3+Sq
nSXHh+3m1GwlPU3UkY+vdQbO3d5852AZ0ltFyy/uP4DzSUprf3U8EDlrTo42
UoFTVXl28X5TIPJ8NLWIZ8Bpulk/yP8JxNPzh+UyNgKHrRt7auFMIF5eabsZ
dRe4GiC8HPIAiHc9i8qy1gJXb4aLtfJaIBgP3uiozgaucXWhTM4/ID7Ru8qf
hQPXaq/v9TodIL568xQfMYB7/Fzzw8U5QPzkShaOEsA9t3GF93s7IOpXmslo
/QBuuGzCwh39QDT4DjIyooD74J7d01AjIFqyZY4tyAJutmfWiZnVQPx9ejj4
ix1wCxZRlj0+DkRr9g51JVfgfn5V/Ob3SyA6/cqj7BG4tRdUL/rtBKJ71eZH
UYuA+8fq+EbKBBBM3q5RBTngDv/S/2a0Eoj+LRTWmDzw5g7fbgx7DwSxMVZF
uAJ4+sUjSepeQAwnr5iaeAs8s1AHj3wxIEZ6vcOq6cCzpUoym62AGHdaQ93I
AN723155/j1ATJzsFZ1xB96e5LJjkteA4FyZ6VlYC7wAw1PjJt+B4J3tjzGY
D7zzozXFn48CwfdMOPOzBnjX3hiGuCsCIbAoph5IAF7i5Wvrh/NJFrlOLAgA
Xopdl3iEIxDC0rO1PdLAy1Va/2XuKBCTB9T+00sF3svGB1EvbgExJW6yYCwO
eO8echxsLUi+US4nuRN4Xw86Kf1tBGJaqf5jdivw6k43HYixJzlktcadauD9
veLxZlUZyU2Ts80GgNeTwKT2GQMhMphzT6cdeMNpfj530kj2v31ReRHwBPkj
JdYqJOccfV40D/iS74IVxq6S/DNNHbWBT/0x7Z3OIXnYJG8wC/jqLVdfOx4G
8r6v+DTkEfB1++XlpltIlnhxw0kK+EbcBM9nW0mmSFzaIwd8S+nZRe5kPkQs
6alpVeBvmPlQVs6M5B8+utaawN+yQG9vSRbJD+ee96oD/i6zxy8PkfUk2m+q
s2Qv8D3pZjNmRZKsla4fEg78I9uK3T8JyP1993+2Mgf4p/auKwgg4z/te6/R
pgr4F/zKpXRayXhNa1feIL/v2jl71xoy3lPhEm+kbgI/IbI2/8JHMt4iq5/3
7wA/6a6LhNFyko922Vv7AD87+59LC+m3sKrNS9oF+KUfB8QsY8j8HRnxq7cA
/qefJ3Yxp8l8Z88YHW0HflUb5/GtE6QPvy6ssp8P/I4piR0jpK9cufA93EvA
Z8lH5aZ+If1RVR+7shL4nDm0qW2krxM0hbcv40AgZ6mZ80QTiNEOteg7liCY
aZ0hdCXre6R4aUD6XxDM27nEUYZC+nspZ5voLgjMT67g7+8GYmgIW6OFIFgb
WrZN1RkIVoJ3kvFrENjEb8z48BWIwcWHPJX8QOD25L+t854B0WeabpP6GQT7
S3+nVZH13JPekNS6AwT+X90nQhLJepIOcD9/BARhzMMPmwKB6MhrK1IPAcET
7csjievJ+nXNnjtfHQSvjGVs6AVANB3UGb7bBwJcG/+A0CXr/aBMr8FqEPxy
TbLaKg1EHV0nQHsdCIQ3i+5K1QDxbW94Qa83CLfO6F17lqzHV+s4X348BaEz
+/fX/QZkf7Ixidj7BYTev8t3biPP8efwcouNGgiDMtOP6kWQ/U06KUUjC4SZ
4J5U8xSIpG79Aae1IBQE1ggX8oG42HZFxr4dJqX2vr+mROb33NSsQUNHmFSy
eqYijAUiSEGhVqQCk/oq0QY/yf37TxvP0vWFye35Vm7nbYDwWHZawUQNJnOZ
JaV1ZDxWddXG1NTDZGHlI+t3e4BYoX7jj7AIJt8X3v6ZuxAI0/UN0ndnwWT9
5YD+C2S/1/fk0fIjYYqitVRjMemf8vhffzU5mHLZmR4cakCeV352EexlMC31
KdrS8BOwr6boPlYZg2naSOZOEw9gXwwKvR6/GqbnaJedNOcBO9g6YoC2HaaN
Q9hPVhsB268s1Uh6N0y7LN+hbXcL2E6z129QPgHTudmaMw4cBLbmpWgLuR0g
2hLxrDFVhjzvLaZ1r+0F0a6iL+MZGTCUFsPdeiwcRJ6d7co5a2HoXv0EJ7IG
RKdBZcuzEzAUtUkpZHgMRMncQHzbTN4fbsxcoZwLIvZheNT0GIYWDa9gqgfR
KXZZfWWy+sBKam+PKHlNpzhk+BpXjAIrcVC6fMKJTnFKHUyPeA+sqIGZqise
0Sl7HrCvSToDK+jLqG76MTrlxI3x7aJw8v4zqdNyhken3Dsv6p3oBtYMlws5
xDs6pW/XbNXODBg8xPo0cqOLLhYpZe1XpgUDsqet9a9dp4vF+QsEGjOhf7Kl
JJe7hi6W2FQQGagA/cMrnJKL59HFUp7OzTaZJO+DFcrxS3PoYoVOI62ZLdCf
uXdfvZ0hXaw17eH2mDvQv9ot9Qqzii6+Yg3X0p0KfZ6faFtFFXTxzoA8cQEF
eqLenI785ECXXPjZ4912LnS+6M/GxBa61NWFcz2X/4G/sn+bxDb/oUv/1VVW
cjkBdepNvyfiZtJltCR3d9/SAEb9h0+2d4R02eCxR2nu+ZieLhTsuJpFl3v3
1S50nQtW/NK4L/1Lmy4/uVr3mMcLrB9Y0GDaYUBX3FUqsUmOh/+KCwv7KxbS
Fd0+3qKyVfBfg6bTfo4PXdGzUq/lpyH+Gz/xTHhfiq54pM0m4K4Htpr+XalF
jaUrXpSKyljwCVtz3zaeXKtNV8xxUhJbG49tt67NdTAooStyBjXRfyG2P6sy
MbfwpysKx5/FbF+P7W+z0jIunKVTKdPrXZbvxvZvJ3ZZcZ7SqfLKnmxBNLZ3
d++wZeTQqdqWmfMihrFj7jqTmXYDdKrt1SUXUsuwIzynVF65lU69p2Wx5qcT
djoKTp23ZNOpKYnCBU53sdPD1mpOzlY6NVOGIffrL3b6XbUfOsugU5+Nb25u
OIid4dWFrCQvOvXTj71Bf0KwszRj+th3FTqVOHu1kJmFXfNWPXfOptBpNr9/
GfI52NWSum2JKJlO27rlnmrIGuxi1jxOOX+VTtv+YY9g8hJ2DQ8NR3y/Saft
edrzTSSH3dJjLH9Hcn7AFcFhSW3sNl8Qq7R3Dp320Hx+FtUOu8Mpl5t0rOm0
ifgTmrr3kam5KH1HcxjJJRaS8gok+81Z2/Sc5A7h4NhFkvPjg2TX0GmcFdfe
lu9DptaKw63HTUj+m+p+0AiZ8zYyz/jQ6DSeQfWDvPfI1NkzlRV/m04TVCzV
MO1Gpl5cnsLoRpKHx8Q0nEmujWl49I5OE84p6Rf7isyFqkeGVPpI9rcqqXtG
8v3ZonO5dNrkrD27TwciUz9rzeuML3TalE/M3RJZZC4uTd/GZJIctz007TzJ
kyt/6TiTXDz7UCQbmUvW/0j/mU+nTctlWrrWkfypa54skPziTYMwGZkGVc1x
f3tJ/nPpfTcVmYZKW7zbntBpIimbnMpLJDuVhK6KJXl3XWDKAZIbr972WU5y
2D2P8CZkGml0xQ2MkfzUw8bfnuQ962pWTZDcoGfsXEbyw5uuRjvo//s/iP/7
P/h/HW9SZw==
      "]]}}, {{}, {}, 
    {GrayLevel[0], Thickness[Large], LineBox[CompressedData["
1:eJwtmXk01P/3x8dWsreoFIUUlYQK+ag7hWhRkiVkq6QkoYWylRIhRZsQsiVF
SmVJ3Qlps0QlVPZlhjFv26yW+b1/53z/mvM45zX3/Xrd+3ze132ft83pw2qe
FApFlEIRSf3/X5q8UDi4EHSAbliWnUDZTJMX8KNX8E8DfU3CtdM9tjR59vgq
veIioKu4dUQubabJD/UfttLSB7pop4xWTjxN/ndt29W5hjBQ59tNuUbQ5J8/
+DraQ4UB929qsTu9aPJuG57WRdlA/6Wsd0drymly771OXW0IhN5c+asXRK/T
ZD0+DEr//Amdm44Y+ER+p8koGy44TVOB3zvkuH3uHjSpf/IS1Sdfw7eLcsUP
TmylzYloHdGLc4e8TQ7UoU+baZKA0cGJPKwwqrz1+JQ3bVZXklK7XBY21gSJ
zKyapElc/xGgtysV/9TOHdWRp9DEd64O8vCJwO7Nmgqv182liQ4HBOaLBWO/
V4+4UUUpTZTuPsv1gS/2n3cq6Ci/TBPtsbo7f/1h7L/6xVqpVJUm2qr1MsR5
F/Y/ivVSZO6kiVa3D+8tXoz9bZlbcmXu0URTdx8eP/wKB3Yrxg0J9GmiuzX2
mnxgIV1j6Py6N/NoInnNGg2XPJDxVlPF4nQSTSTr39b0Vntk1LAXawy9oYmk
9R7009+FjKYyle/bxmgid8biFHo3ImNwheExNSuayGW5cRtLSRxcHL5yq9MN
moijxYdf8oU4eMZG4o/6F5rInDLXtrRJHFIzv5g4Y0ETEacF5XNHcGht7Z6j
9zNoFOGnxGDrXhwysExf8z2XRmH/qlEWrceh3WolngdDaJSusXUuxzJx6Kzd
ds2ZYBqlfM1kp44lDlW/38WZNZdG8U5N6nt3F5kuoTZlzB4axdMwLDnIFZle
Z5UYnJU0ilvT0X0btJDp78IxpUrTKHaS60vzypEZKfXXt+8gjQJnamJvtyPz
6eeurvDdNMqCXRN63prI5DTO2JnfQ2HwWJpgXQAOR0wujx/lodBfy/tIljgO
x+7Z3mC+BIXHXDfVLb6Hw7dvcsKFpSi0/lKbIfYWh7MIiq5mLQpXZgjM28j1
1dKbFO5Y4UzDPruEa/eQJVI6uTK3HWfUn8lodZQjK6CR6LAbwZnFyQUiJiHI
Cpq+pJu2B2fkrlu1PtiCrHBlIU3tDk4Ljt2MsaEhK9awkikfj9NNavOGPn5C
VubfhZX8Azh9+Z5S4dOfyGr4x4oMNMXpwKvlUZLk835ZOO08oYrTp844u3k6
IKst+9YHBQFOO1o/VFjWhqw+Y7v9IUtwWk9a1T+hC1n8H6LPM17jVOclzY2B
LCRUS7TnxbrhVLPvZ5mfRUisPLS3PpqCU7Uux/v0/JFYzVaOnrmHU6XG+XcH
J5DYIPLijb8ITt1kr+O6TCJhdi1Bt/4IToH3xnIzSSQ8t+RmyG3HqU0HfyVm
fEXihPKT+DINnFprcd57Og4JH8IkL8gHpxZplC4tkUfi7GlZ252uOMnq+C90
zUIkIlrXH673wck02+1UhRVIPLTfYhwej5O3vS926cYjkfE8aGOdCE5GXyqO
sOYhkcWf8gwIwcmAAo3qhFok8g+3WX/SxEmLWbN3zj+LxJsrVaqWTjhpogyD
G9qRKPNa5quajpN6+kGxtpZIVPxXEhBF8lJXRt1dFSQ+lD70CFqGAqKk1mZh
DRK1IopP+nRR0FsvPm6oi0S97397tf6goLV3yx2HZCS+197pTNuEgmqFwuak
00j8OtThm81GQdmqgcDSNiR+x9fvenEcBYVbVBe3miHR+oL5q/8RCpJOJDgv
WYzEv2+vZ90AFNwI/zJlHIFER+WhqpQeFETcE33oxESiK1/XTa4ABT6VZzpS
PiDRZ+XwzLgRBduW2h9V8UZiqOtmeG8yCgz0bkps+YnEsEdYpxgZf63Fp1zX
rUiwmm5/NmpAgeJZI3r6fCRGo9dGT2agQCrG/zqGITFWW7DsTwfyhRn5azro
SEyI7i8JUkA+o27pKdUKJDjbREruX0F+e4+t3LZVSHB3ycx/X4H8H/y45x63
kOCZGToP2iD/i/xH68sCJPjrrywtKUD++5XTo5meSAikWX3PbyO/2MQgsfI7
ya0XD+xwQH6ezekNPcZITCatFP9LPu/h8ce/xLKRmLJgPaog4yeGdZ7XkCOZ
3tyiGoD8qLtKi8yCkJi++M9lbQTyQ57uLz3aTfKMCJOVgnz/DzGOkXuQmAkw
23VsCPnHflcKckpI/p0NYZuR7zw8mVKjjoRQR+2h1DTy94tvNOkn9Sg8V2H8
PRT5O5b4tM/ikFx4hhvWjPz/dHPCNd1JbrEsLVZEvu6OdlULUs/CcWNvrgny
V7os/HB8I8nCnSKVe5G/5My+w9FpJE+dDQyyRb789WixJ3NIHqyo8z6CfPF0
WvYXUo/Cr+rSzfeQx3/NN2eQehQmZ2+jyyKPVas3IEXqUXjINPLNAPJ6ur2j
17wkWU44YbkJea1ry9wbl5PnefXUTH4SefXnJDcHkvuf2T2jLpKLvKr3DvNU
SD9M/+S9k1mNvLLZOYPVZP6n96XsuiGCvELriSrvJjKfb/tnWSsiLyvZNHUu
qY8ppVb9m5nIi9fusnIl9SjIL5e4PY28K+d1V4lfJev5L896vAZ5QRg2kz9K
sijVXuIN8o7YKD/nkvngqp5WWSeJvIMpJ6PTDEm9LJlVsssDeVa95R5mZD3Z
EjvfrvZFnlHgwXkJoaTein5whu4jbx0td8hwkNSjv7LxFpJXzGFXtdsjMbJi
7oxOKvJkU2+fW0v6bfiQpKdfFPJE+7qtGlNJvfdIWdykIZe3Xm9VEJnfQecK
zcFFyO3+UP+7mtTDgLr+48gm5LZIqxSd3Ef65TSvlCmN3Dpbn+tzST33PPd/
1nwYuSUDUsaud5HoFAv3ktFF7g0Z81Qemf8WilpJeRFyI+zunEt7Tfr5zz3T
JRnIDUzr2WtO6udHXnXBtkTkHta7JEwg+1/D4gOKRXuQa2hfcXhtIRIf9xw4
8jsGudoZ0sZNS5GofF3c53kfuWoMp/lB0UjQFJr/JLYjVyaYW/3RA4ny1OOD
yprI6Xq0QdNtARLPJTsPBDCR0zwYQZG4jMQzSqBC/Xzk1G743vKU7Nd5jDZ/
KEDOmxrf67xPSGQmyjwtLkRO7NATZuJFJO4aWbiYxyLHwED1xccOJAL/nYKb
y5GjbWTGPxBC9luDGIhdghx14xPULrLefleOqLjKIEdu64uGKWskjvP2mlRr
IrvfYjtLn4aE474ND78bIfveQc816RlIGL68v1a2AdlxTtcD1pmQ94Hl6of7
9iM74lBBWXkLEjqNCZCXhGxfd45lswJ5n+CA/AsmsneciPKSIc8zX6q9il2M
E5yLT7IuHEbWkPPDze+ZOMEMqRuaNYOs/vUufQWaONEdNqZ/JxlZndy5TSE0
nKi/YvzheROymg873x+sw4nc2G8d/abIouUV8QTbcMI+laV8QANZiRzTJ2It
OP4G9e9q9yFLJ0dUy3IBjj+ls3LC1iBL0zujbwcTxx/Ny3/d4IssVXVvp/OO
OB57TL3Zn4esucdjvifuxHF32fmLSqRweHyfh3iGH47PcRpP3qaLw69i/KSV
bHHMmfMq3S4Yh7Ub6ib+Eji2X9XveS4Nh1d0vclab4djO3ZpI4+cD5b0b1M6
44Zjug+zO5PjcVjy0+4O/584JmF2V60jA5k9jILiXdtwtDDxXPaJGmTeL3a5
vmwPjoroGDwJm4tD7AtXasS1cYSr8FnrzTUcGkqt0K6IxxHmuONjlgCHul59
41tex5GW0pBct24cqqu6nHaQiiNF2yuztr3EoRzn11K1f3HEzWHvQwkbHLK5
+DUqchyJYEqdmpImDmYnzN58+h8yx3O0CQNtZKxemGG99Soy/5WFh+scQ8bS
SLthGQEyP9U1ya9KR4Ys3dS71wyZKZzA9YvmIX0spiO16CIyzSw++HK5SH9r
2jhvWTUO3Rm0Y5VVIn1XzG5heQUOGqwPY205iAPuSU5t3DwcCCr7Pmx2Bft8
4OecrmHsXuR4q9BWEbs04r5ctdfDNo3P8h85L7HVR++EXB4d668ybvT9ycH6
/xbHfITP+OrIn1fK+13wlauD+bdLnlB8rvJXsFQZFPtxOMKIKGg4eHmZSPcm
aJCMEb9D/wGtlcb8tyMroHVupo78svvQfXBvXWvWTuhyNlVgr4+EgddssXlW
5tD34M7bvtO2MPCFPzrHIx768uw+6VW8goF/Mx2Ucy3QVyJ38NazDKDPkixn
pXlD309PTpjsUqDbKwd8JeKhX64w7F5lMNA5pt1XElqg/3J6zWe/jzBokPhh
otmbfF/5q14XoQvMEt1Lv91uAkMsfrxOeBOYtf1gwrwGjLnzT9SYrQJmd8p0
5oUwYCyLs1f95AXDcrMvnrrtC4zNzhc2yinA8NH2s2Kf9gLD19ckos0DWPPi
vHTXywGj2f1Yi99vIE7RraJn4mHwoVWn/3YWEFfSpFmx12DwiV1UdsJyIB4c
+Gq7OAwGX1szrImPQFSjxXJ9XxisU6+RXncYRmS/qToVa8LglP5uoYkmjBzN
VBoZmA1DDpM/PfPvwug8a1mVvZ+AOWuBY/hyHxhVDljYpbMAmPK/fVRUDsDo
qjuqObLuwFS6ucWnRQtGjVs2an8TAFP7n0x89TMYPeLubLJTG5g2IyPNxaEw
+srvibPpLWCmci5tmPMWxuwTzB8YOcGwlptq7EVTGHMv3ueyKBeGdV/+jHRa
A2PevxxVOeMwbCT4YT87HcbClXzyXsfB8E6vbEPbbzD2+NHtUn2E4ROvDNUl
2mCM96Lr9zoNGM5baOMoMgjjyU1himrDwFpK/9d59BCMZ3/wfxRsBCz1h8GK
bTEwXljkue5nBLBW77j4CaRhvDJ+z46ohcAyOHffJdUHxgd3LQlkbgWWtcVM
4t4qmNj84U3bm5vAuvzWJV/iGUyYFuV7ybcBK+oVz/OVJUxYpT8cP6EBrBuZ
9bkHLWDCIzRSZmkpsB44a9wbyIaJ65sPbLnUCayirYb2Dp4w0VJEZOzWA9af
WgXLGjZMdKf3aGeHAKtL0ln69XKYYMY3l07XAKvf6H1fygVgU3zeNRY5AWvk
3Jfu1hZga2nFiSlGACHu/kZDSQXYgRlanh0/gFjNg562+cC+fHPp2OZlQOic
M9DIfgHs2DD5sMTjQOj3a2bntwE73Zlz32wKiP+y2PFa7sD+tKj6c74GEHtu
ypk0jgNn4U2PtWfPAeGj9o3jmg0cNfsKQmohEH46IV+H/YGjvWzxy/RSIM5q
MxY9tgLOtmffN38l4wXPMDtlFYHj8xUs1cj9xXD9xAtVgROYkCJdQsaPT/hm
busJnIiDnIY9pC4TVX5uyFYDzv2BQvsgSVK3UvTnrouBUyWhcrQ+Hohco5F8
x2bg1NVe0DqqC8QT9xsvCFHgtNz+OcRvBOLZhVqTR1nAYanHnVm5AIiXl7W2
9f4DrhJMXg5OBuJdj4EFxRK4GrMdzOeaAEG7X3Z2yhy4OvXFkrn/gKja8iO1
8wlwzVy8bzapAvHZ9fPcMXfgnr7YmqaVC0TjeMLVtDrgXty+yeO9JRA/Nz6z
CCf/HzknYeUBBhDNXnYqqTLATU6yfBauDUTbIyuZ5zuAm+OW7begHoi/ecnG
D02BW6RJ2ZB/Goj2R/45JZHA/fi6pPzXSyC6vd7mxFUD93vo/LCTtkD0btK+
gvOB+8fs9HYKG4i+CQ192QXAHfmx6ou2ERCMHdltqxcCb+nI3d8R74EgtjTX
JP0G3qqS0ZTF7kCM3D/hOVAKPL1wK9dCESBGu0MNbpHrLeTE+1rNgJiwWqUU
+hx4+3+5P/HtB4LtUz5vZhvwDqVWnBKPAoITWiezLxR4AWvPTKz/CgTvrK8i
tRN4IWMNJR99gOA7TlKrJ4AXVb422FkWCIGeRFYXyYmXo7aOFJLMj/tH0Qfe
Q8se0WvWQEwW30pYJge8PIWtNUvHgJhyUzj5fQXwXv5Ovv7iDslTMsu3nQLe
uzSOlYUBENMxV45uOAm8z8dsFP6SfW5G6hx/Zivwms62eMbuIvns+4oV7sD7
e8W1fHMFyU1Hih7nAK8/oU+OrgOEcMXRl3HywBvJOHnkXgbJXh8efZcFnqBw
tNR8HsnpF4/4RwJf/F2QzPhVkr/Gd/n0AV/u24zHIw7JdKHUu1XAX9x29Y01
6Reh4OsP51/AV2dIS820kSwc27htEfC1uQluBXtI5p1be6QA+IazFr1yJush
7D3wtpQN/G0L0uZI6ZFcdWN4Ixl/9woNl9Jsku+tqP0qB3w7vfyXXqSfhIcU
fU4kAN+NqjdbMZpkxcM9YirAP7G3xLlKQJ6vUmbP1S7gn3HZUhRA5n/m8Nwv
f8j9h56sllBtJ/PFPnNpTBn4URd3OTaQ+Z4O0Ut9OR/4CdHfC0Mryfxy9liJ
qQM/5b6DmPZGko9U1XzbDPycnH8ObaS+J6uTTFnewC+rHBQxjCXr5+5oWRsF
/KpGP7u+GbLeKTtczE8Bv66Dk3/Hj9TDl4T4u9rA75oWOzBK6pVLMU1a+gL4
TOnreek1pH4kn2pM7wE+Z4n89F5Sr2zxACPpZSCQMlTOfaoMxFiz6q2uYhAs
MM+cdCT9PfpMsnhLAQiW2a62lqSQ+j1ns2BoAgT6/pv4R3uBGO6WugaGIDAJ
r9g73x4IZuTFZCdHEOyI35754TMQQ8pWnGIyntPTfXuWFQBB11D91D4PBEfL
fmXUkX7uv6t2QqQKBL6fndnBiaS/+FFPJaNAENF3PK3lPBBdqVGP1rqB4Ony
y6OJW0n/7j5+MEAeBK91JHdQi4BoccjrDI0HAZrEJxPqpN8dbJ9k+YPgh2OK
2Z5ZQDTpjq5rFgPB5O1X9yUagPhiZee0vhgm98weMLlA+vH12ru+3Fkwac/6
9fnoGrI/bQidHyiESY9f1bZ7x4F4rl0Q9C0CJgOzHvloXAMib4y19nErTGaB
c0rDMyBSGhYbvbkEk4LzDZMr+UCEfTp1JSkGpiRc3kcpkPW92JtEs4yAKQWz
gnmTcUCcH1918tw2mFo1L2ZNI3l+316/Y68PwdT+QjOnkB1AuC4ab780BVN5
faVlTWQ+NlefP1e6H6aKax+bvzsExEZesdITAqbeF99tzFsJhO6ygMyM2zD1
83IAI5Ts96u2XjllfxSmKSrrlLRI/c1t1M7cEAbTDraPgsLXkPfV9jIfqxSY
kaiKMVxbBayrxwWqb7xhRn40y3a9K7DCtt+eevcZZpYsr/DX5wErSP5XaXAL
zOgEs54aawPrZKTTv+A1MOOw8cByyzvA2v+32DHyOszk5SjP9jwGLOWtDKtS
AxDuvlbwO10Shh/31mc1l4HQ7lXNRGYmDGcYPVojLgZCt+7OubkmMJx06VxA
pj0Iz8K83QV+MBzNXP9dbASEqdzz+LaVnB82mvmcLAIh6zg8bsmHYc3rlXG5
CVSKZTa9Yg45p6V4lJk92UmlWGV663waA2ait77bllAqxSZ96NG198C87nXj
eA65/lAyK0rcHpiBVK7NISqV4ndrYr8wkpx/fKffsr9QKUkhwgF2LzlPlU81
36RTKXS7RfO7M2HIS7snwEybKhItYX6yQgUGJR1klWJEqSI3fAUCpQXAmCwr
OV8TRRVJbCmKPi8DDEIhJJV6hyry8NnSnPVTwPiV7Hv2eylVpNhmtD2rDRiZ
qrdnjgVSRdoz0vbH3gOG0aTiRkchVXTTf1xDZzmgu84Prbq8iCraHfBEVECB
/ihDx1es01TxlR9d3+3nQvezxpUMxRtUiasrl7pt/AN/JgQsMaO91Fl/1ecq
OPhB44jPEp2ceqqkivjB3jtKQDNb6c1fuYA6J2j8cYZzIeZUHE/5TTCoUu8+
W4ZvccAvty6tMd+gRZWeMlY/5foCm+3Z8x7kF1Nl7crETKV42CndsOo54yZV
LknF4L9GG+zVXUFJZkdR5dnxfsrqD5Cu7CD5fHEYyaUG4tIyJFf3qsXsJ7lr
cmg8DOkq+u9E45Aqz9kU9bb6MNKXyXkpLHhK8t9052PaSF/+MdWBAVR53pr6
5Cfvkb5iQ+wt71lUecGndUq6vUhfIxtiM/ON5JFxESV7koMlLrXXU+Unl5Qy
RD6TTI9b2nqPZF+z0qYCpK+tSkgaqaPKTykeOnj2PNLXXQgtdDOjyk8fib1f
Ogfpur1tJpJkvOkb+8MzQpCuZ2NsoEInuWSRVzSLZLyfetuUKj8jlWXo2IR0
/eRdhX6aJL8ob55MRfrGfQm9z+6S/OfS+145kiv+UUNzqPJCiR25tZeQvmnN
Ksn9DSQfbDr/0BPpBuLP//zsIzkiyTWyhWT/kQGfOJKfue7w3UVyx3rXlgqS
mzV07CuQbrjn5HbZ39T/fa/B/32v+T9NkyKu
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  BaseStyle->Thickness[Large],
  PlotRange->{-2, 2},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.461417015988727*^9, {3.461417059835338*^9, 3.461417075675885*^9}, 
   3.4614171201478567`*^9, {3.461417179168124*^9, 3.4614172263366613`*^9}}],

Cell[TextData[{
 "What ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " commands generate this graph?  The ",
 StyleBox["BaseStyle", "Input"],
 " command could be used to make all graphs thick. The graph of the sine \
function could be generated separately and then combined with the graphs of \
the polynomials using ",
 StyleBox["Show", "Input"],
 "."
}], "Text",
 CellChangeTimes->{{3.449233711984*^9, 3.44923396357519*^9}, 
   3.4492478154188423`*^9, 3.461416091556158*^9, 3.4614161555240507`*^9}],

Cell[TextData[{
 "3) The 4th and 10th ",
 StyleBox["Chebyshev polynomials are obtained from ", "Text"],
 StyleBox["Mathematica", "Text",
  FontSlant->"Italic"],
 StyleBox[" by", "Text"]
}], "Text",
 CellChangeTimes->{{3.417733143380941*^9, 3.4177331567151937`*^9}, 
   3.449247925828278*^9, 3.449248037340444*^9, {3.449248095356077*^9, 
   3.449248123492132*^9}, {3.4492483095766277`*^9, 3.4492483730797*^9}, {
   3.449248405953682*^9, 3.4492484227201767`*^9}, {3.461417726737555*^9, 
   3.461417732875146*^9}},
 FontWeight->"Plain"],

Cell[TextData[{
 StyleBox["ChebyshevT[4, x]", "Input"],
 "\n",
 StyleBox["ChebyshevT[10, x]", "Input"]
}], "Text",
 CellChangeTimes->{{3.4492483596820383`*^9, 3.449248398880932*^9}}],

Cell[TextData[{
 "These are interesting polynomials because, even though they may have large \
degree and large integer coefficients, their values do not exceed 1 in \
absolute value on the interval [-1,1]. Here is a graph of the first through \
fifth Chebyshev polynomials. What ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " commands can be used to generate this graph? Look up ",
 StyleBox["AxesStyle", "Input"],
 StyleBox[" to see how the arrowheads on the axes are made.", "Text"]
}], "Text",
 CellDingbat->None,
 CellChangeTimes->{{3.449248433545789*^9, 3.449248506545249*^9}, {
   3.449248609708282*^9, 3.449248626858759*^9}, {3.4492486803797894`*^9, 
   3.449248686803574*^9}, {3.449248874289253*^9, 3.449248932711404*^9}, 
   3.449249029306596*^9, {3.449318035433745*^9, 3.449318076776536*^9}},
 FontWeight->"Plain"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxN1P8v1HEcwPE73Jov+bawK9dyvkxchnK3qcYKw2K5iTN1HMNGvsx8axqX
rrm+SCvWsatsUikRJXe+1mF3ayc5OnTCnTu506HdyLfSl83r/fnhucd/8KRn
Jzml4HA4o79F/rNveWdHZx/ghdzc4DpvZCNXDW4+r18hF+eTItx9kePSLxwb
GrKl5sOPuUBkwtEXQ+V0cKk3LZMzXAjqWe915mNj4HdH2r7sdyRQ99WKMJDR
DmrLJld8biWCCwF93OK76+C8kkectqwHNddHc33C+aA67HAR62IZqNLnFj43
LgaVz+Quw2wWOJvO52l6qsFpcpOF+0wnqHgYfSrQ2hmcmFOlcz3aQDmVeqh1
cAYcfdvnW03RgCN4L2pjiQ0oNTRQlqkUUFwk/KQPugqKHOLuNEfbgZ0uEqvB
tTawmaOt0CgawKpkxRvHqAu7BtzLF30uNhOCLYwrB/EqP1Ao8t/oWnEGRYzI
ocn6MFDcvmpsGxEMSju82eMJleCI7dm9pEgxOForK7Fz0oNy+0qWZ14+OCFJ
pVtPjYOKM3u+nbiUCE4T+m/QPPvB2dDHC92mbqCSSwjO6CaBKlVuo9EmDlS7
DjJ7on6CGo7rgYRjCnB+imxjHZsDLpBMGOoqIqgtMjyti28GdT2S0NKTseDi
tj85k9kK6s8JjU+brYNLPBL1+AgdXF69neNIrsEooJqYW2BUbi0aSpBrfuVd
A0kYpx7Fp1KQ6x4faxt7kZviI0RvNcYVA54Yg9zaL9DiJRizggSyl8htu/OM
vALkr+Sb9wWmGCuiSusuY+xwSOMuIX+b1dPiZBhbO+VbfIwKdq/aErlDCHki
ZWNkyAoepGAs4zGvTWBsYoZkhWOUu3jFdGP8/7Fd/wDu4bCG
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxd2Hk8Vd3XAHBTSUka5CmSKEVSJCqxK5KUqcxk6jH8DPHIUBFCQogSyhWR
ChkjQ1jGXPOYyDwm7r3b0GAI7/bv+9f5fO/nnL3XOXutvc65Vx0t9lkyMTGx
MDExb187Al5dndyJJBA5vtP/2wl4cSFQeMER4anvuXH27wD/mhOR/JCF8Ne2
iSGLScBT4xZqh6QQzsyptR6uAvy14Zv/VlmETWNsHY92AM58XjczchYxYEnc
alUJsOnxtMaHVxHdTyBz6dZtYJRaO/g3u6OpbX15+dmngW5ePrmpowON/cw9
2dSfAzR+2R2OZXvQkMVsEKeSIEz2bVlXZZeHvkmXskY/+ws/fLunJUPMUKuh
hKnlbm2YQBDo8WQeVTLNGv7Q9oHxoZhd/VxJKHrXsDbrISYYC2p3llSlQAFn
aOID6jEYvSR629zeF2r3HhTspjPBMN3ZPZXVA9plf52dXKbA0LvO/c0+5tDN
FpC2d0gdBm0pMWMlz6Bfk+lb7JQQ9Au95zw0UARDzXZTK+fcoOel9vmz3MIw
umNINun7OHSNDNsGiuXAuNZkxZdD89ApIyOYXT0AE6oh/UwdxdD+EaSeiY/B
D7rLuyvBndDKLCGT4rUVpjxMHSwGF6DlDzf10McAmPIp6TRR/A0ttDmDt4xF
mArYxdntnwUtXQWeb0yHYSq8elgjXh9ass5XJJ3LgankhaOnT92DFlM99bh1
V2Gq+bMWB/MOaPZgaty36yDQBBdzQ/rcoGEuWRzLiAOtsH7pSP1WaOgr9PaW
sAJaKVhoJJZCQ01j2xaReKBVZm6wfTUODbG/3Y/ybgNao9/WkJ3voEHpYvnN
P3+ANrjC69k9DfWRkzqMwgqgs6NZnppnUCdz1Ishrw90zdnhA0gC6gQVW71O
PAG6zs1D9usVoG6j/n6uI/VANxhLT/tJhdp+n1oJAQWgW9S68qpoQG1A23aH
VWGgu9z4E1srBNSvLm/pZQygR43WG0v2Qs3twha6kh/Qu3nSi+LjoeaGtAZN
hczft/6QMAcFatQymqbUmIA+OMcmOZgJNUJJDT90PIE+UT50vnMHfG4IpY5Z
uQF9XvqoZF8/fBY0L+sLtAHGTrvdSua3oIrKkdXYcAUYmkJH5E5SoCrH/2hD
SzAwrr3s/e+CElRRVjLqO6jA0OOlqwELVP0397627wIwrq8eX1gohiq+vnfV
DAVg2CXq7A2RhErH7IRS7mPACDg9Hn+ADyp4DcIztHmAUZCn7CSCoYL1QtEj
kRxgfAo+uGXrCSjHkqPWC5qkToyG3Jf9obxm48l9L8n8lb9G3vYqQLlb0UDk
xAowmtn2eOcIQlknv4THvXFgjAZZb4HnAKIlMREaNwFvltXKNrcCYH5GU/1J
6njLW7vwkBYo7b55lu35MOBtO0xPFSlBaZDAd/dRXcA7R9sn+ZShZMJHxuQO
AixoOlvxqwCK357vOJzEDVgK1utwakPRfuqW6t85gHUE/RfL/oXCBYWKxNQw
wHp6VXmh3VDYmOfqbWIH2OCR5qfIUCh0S+w5+Xk/4Ovf1VLUcqCAeu9N2rMo
wFbOPZtuTkG+/XH5COm7gN26FCcdBCD/bMq0wwSJ53aHin6TF+TzCCapUo4D
vtvwfNv/BOBjKRcHGysNsFfOXmvVf+DjlokOt3YTwAGaEF20ArkfXtoZO58H
HNmrvl3/EeQG8gicEhEAHBXHe0KtE3KNH7XydC8BjjEUT/Q0h9x1d2Saz+UC
jq09Y/JACj7oabOc3yoCOPEuvn6hCrKXOJ4fzNpI9jXxJFffNMjw/xE61pMM
uLpWiXvKCzKOx8Xv9PwG+PNynY1/LqQPa2VdFOACTD26MzZFFdJRYds7MzfA
dYFMkZFPIG0xmNd2TBlw8/bdLXMvIMVJLAEzJsg+GmZzq90PUgT6cwTD+QF3
Pb7iL5QO7xqfVGpJagLuDvntuCwD78QWx3JuFQDu8Yr9pm0Jb8bqxVzmgwAP
yIkvPDoNr43sPiyyiAEe32VjsbsMXm/cWy2WRJ7P+Hjq4b19kFTQ3mmk9ATw
96zs5iwDSNopN18csAj4h9y2tFuO8KqVU957Uz1gmujudN/t8Mq7TD0znYm4
99HVYTF4JeFiOqguDZgeUt7emAAJj3p9z4VTADNGfGyUU+BlqEHYBrEuwDO2
ij3l0hA3WZ71P4ezgGdZR657KkGcimhbXSbJx9kXKkUVuUBhWeQNlb4DeK7E
kn0mG57ffvFqm8Ju0nd6R2hdQhDTyVJ5y8cX8G/jHFXGEYg5bjvWUTFF3K3s
/zgKohhyYtEXiwH/oZYFuzyEyBs9ufxa1wEv+CwOfh6Ap1Wup37NkXxZGF3V
LZaHpwe4oDnKk/S5Cz9qN4VDxPi5et8eEv/iilNiAR9EKPdoGXuJA17S3byR
RwvC37p8lRH8RJz62KHBC8JaNarb6km+/FVVFlMpgtAnvq0B3KTv/X12129z
HYRcy+s7pTNH3BfZJd4MQZ18P+MHpQAv/+vhfrsEAqM1mK4d0CJOulie/AYe
6vtyrrd1Iu5f3CDuD/7fJoTtf2YCXlHjDlbZD34UvqOCp5qIvV2qe8fA97r6
6XYvBnFG6XJ9HNwXuK8cULWZ+BuW2qEK3mDz2mWbPunrbOssPjLg3rmmT98o
0cRizI8/BMLdKun2cyKkz69eGSnc+A/cVn4x+TZ7B7F9Wn9RPLjWMrNwyV0j
DjJkquaHW5etd7lUk3xZTWTsFX0MTo2Nx3o0WogLbU59nwf7BKtwv1xSX6sN
VC0mPbBOlgJNaixxH9e/zulgkbLC2NP3D/HkaReFBTC6HnXqy8hh4p9XfCzl
QMtaItqJk9Tb6pJS4NgtkK/k6zjU4bP2XiIUColo/5F1tn1bxNc8Hjb3GanM
c8f7zqzFvxwecn8I6To7zh7UmCaeFwz43ywyk7arU37qQYyjPNMWkeXR+Ng7
XivEI7OOF+eRrVi7/XvbtfG/SJvITyFHEXb5AV1W4krjS6FfkDN33MMgwUri
DFtJ2Y/IJUzWSSjKnzjKhEcuBLlvatUv5iT1u+oh++u5AboTZHdOx5ed2PhP
mxY/8mRfJ8r4QyWWi0uz+IK8/OO3BToEE/OK+jT5I5/7/PfCZ96Q9cKxVyPF
kO/KRysxa2vi6GNTR/SRv7yfobuQCrGVdg7TIHrgqale2XeIWMrEVcIUPVyY
lL1+lbyHLZcLT0croKCT+YdTSd7hZb+Bd23xKNjdf+9vahqx4v3r1n9QyC+B
DeEK9iQfC90+JQSisOOTf3sX1Igd6ywVK9Bj5/wZ0VwJYmG2TWfnUPj8IdpQ
5DzJdx/RK5dk0FPXii8eGwtJffDIJUZcRJFCme08RxJIPaUiDVMXFNlMacnU
DCCWo9x/r4SiRN3qR6K0Ac9fu+FWXo9i+sQqruwj6/NbTzix1x09D+aFcaWv
pL6b5jziC9ELWbYSH+tSYkX+7qE4FBveX5Cb/gjwT0FPkSE19FLpSeaeUyQ/
ZjIdWFouo5cz3u/zjTmJN3KwB75C8S/tU7W8SL1Nm61EwAuU4Cl8tWLYDDBm
/S2Tcgu9+rKs9ucQuT+aAG+FfSV6HZStZPqhFvBYkvBQdj96PXiwUrz6DODR
Sn0F7esoWebluYXOLMAjA+OCrl4oeeQRerpA+tUwF5fr8XforbzlaSr6F3C/
QoRZPAWlzOySPFa3CvjLtBk6sYxSLz7OXO51BtzRKT5XkYxSX66XqKOPA24v
uHakEaM01TlxS+4GwK3/vZcys0PvXzcefK77AnBDQfg9VxaUqX9fgHn4BOCK
aCE+4zSUmXJsRq+IxF9uYKlweQllLgxWpT8hz6Psn7vPEhRRllrCifevNgEu
CeUbci9EWYzVXn3Nv4ALNE/Sh+VRjiSIZmb1AU6X7+1OTkE5hrzbDSmkX6U1
Kp4fdUI5vjeX1wWSeko18BgMlEA57QItRmZkv3lrc6NgJQJ9cPFyZ+cm6/PK
bHP/G4xy8+WrTJziSX/9WP93nAvlDjzL4DAm++fT7TrvXS6jPHZ6dK5KDOAI
++xwa2+Upx9nt1EwHHAYz8Avz2aUt7C8Na+F1N/D87zSN9aj/DPFppuPmQO+
w4wf7OlChRWnFz5NCwM23HvRWY0DFdJ/+is2kv1ab1JxaPsSKtqVwVWfSuLV
yfa3MDBERf/tE+6xJPWlJd1KMTVCnwTZ1Ra/kXxT4aIw9J1Q8b32xFPVJP4T
XH84VgYRnLJXzY81BMx5vlCQfwCB5YEv6DbZzzmiZPuzdRGED5jW6JL+vX5s
MbPqNIKJqy5fucsBM9+9EmR5AZVdpmh4KO4Axm+3fbsjHVDZou+dFwUewBgo
Cs19uw5V6Ks3diddAkamm0tN3DVU4VBtlfFgGhjvzQ/3NRqiCj+5VT+bGGCk
qFyK/bUBVWSISh45MgGMpE2F3If1UCUba6RPQSAwoqytu45Xo8rMAqODjeR9
09OZbfzDAKpm3zfhOn8RGBc6ziz/twXV5P1i3aZ2AeiNDclbB4xQTe3CDId5
GNDreIoR9Teq6VsZYHLtAvpno+yR/WWIun5DEeOlLdBL+08GS40hqi6/cx0m
52eWfDBIsSeXKA77RZDzw8dNlledUZ3Mk/KfneR8zf4wYw1D1JB/zOer6WOg
1diqOXpRUEPDODpDCwBaRVCiVeMd1DAcu5x4xwtoJckqhc+cUCMX+12HpzeB
9qE16L/wLNT4b78La4060OKXew5L30VN20Ksjx3lApp7MlRLiqNmhwm1wJUw
oO2XCn26uhW1btPcvEe9Bqacz8pRaP2o/UWbF88+OvxYodxzMq9GnTsfmx92
cYUJM9c7JnznURfV6ip371cYt0YV6t/+op4r7N/P3DGDUSNvFoEWAdS/rjJY
9nAlDE3GiAYpTKNBldcTxRwi0P+tK9/uvDQaClx3wa54D3RHDo4V6dug4WHn
FJZFJmi3m5Uq2sGJRg9Um5Ro/YE6/7EkWXNNNOZ/gM9UugcKAropN/jD0Xiv
0FZuPSf0TOQys546E5rYw6Y/GrkLlV9fn1IVx41+3J57m2CUgVr5eH0v/61C
kyVUFW95PdR9Q5xF6qM0mvp7WsjBJBsNzjYYn21KQHSdQlbFjfNojBo0M7Mp
ADFi9sjItV5Fkz7bP1J2NiH8K8yJX+g5wp1nI4Lti4gLZNg2cRJ/v8VVnks8
tDQ150W+38N0HGS0Ef594uGnKguEu3r5C7zCiHvjjazEEe5xzwsM/onwvFjT
i5RShAczubmeWiG8WHNk17FRhKcEbHIsVoin55h36RJXW95N50Z4aXfBD2Yq
wjT7G3vW4lm6qVTQlo4wvchs+pISwn95jPVd3BCe1rVqEduN8PKNR9EFHGtx
x7r2kN+XQ7W8EzzX4koeFOQnzue1DmSsxZW9398G4ZWNSbIGbWtx1cmlzRNn
F3UuUdbiWp/kTu5zpcendJRrbV7e/gIS/+o65TcNPmvziv7cHUCs3+YWZ7k2
r2b6mVRi3xiTB11r41pqLp8mfm+ifFN1bdy7TX1OxJ37JXSL166LEOlTR//v
/5H/A2a7yus=
     "]]}, 
   {Hue[0.1421359549995791, 0.6, 0.6], LineBox[CompressedData["
1:eJwtmXk4VV8Xx1WaJCkppKhoQEWJqCwVJUWSJI2kgUoREZKEVEKi5Ncgc5GE
kLAahCRFhmu699zrXlzcu42ZeU/P8/51ns9z9tlrr72+a+3hmF+yXXpaRERk
sojIpK//nkgmJtoXwNp/T90SHQskw0OBy4cuIan8tW3BNAaS/t4VGhlpSOLT
Nc8mBiHpaLE1WbUeyZ60Gg2jc0hqy+r95mqjMDI0Q25/EpK3T0q7m/VRsJGx
SfnnKJITG5J/3jbHdm+n55q/KBQWnL3o98sNebtWmhdNlUGBzef2WVVVWM2q
ymT0uWOnvPb8S58WY4ZXZfcpyZPY3jRnauH59/DVJc3i2lIz5PvWdWkEnYRa
a47lcJIV8q//DAjL9IDaO3d9PbP1ke/+Wb63MQJqc+brBMirI98xaXeWWikw
5pfZHloViHzrq7G6PzcAo+z3rjKxHOSvl7I0kJgG9dqqryT+GmAbe2+eZUgK
NPZbj9k7uWMbYKBn2CCwxa8y3J9UYpvuzvbP8q3AXprdcNhJHts0y02mJdQA
W6uVyRdTxLbVTXMf5GYA22b+wKUpHtgmNRyVyHEEdmZsXUiMDLa2bUyp0mgG
jtXj/K6pT7E1NLlC7Xc5ND/s4T2QicTWexs2OFvnQXPiIsela7Zjq39uRDY3
GZpzNzhrzg/CVo/v1tsHA6GZ0hjd0qSGrXYtzYcVdwBX1f7WAZ4xtuos7fe/
lAPcgm8f7HYFYQs7UpYpEQu8OpNY5+krsKVRZzocCQNe+2IYiRrGlpq6vugk
X+ANN51dk9OGLWWLfp3abgst8uvs5pGn2JL1wq/t6jJoOS53PfxXJrbcSyA9
TTHQwpI8Ni+8D1s2vi+anhINrdXhuoxpztiibplxbigUWrleWlOSIrFFZSC6
dKcPtPYeVJ+XE4MtijqeQdRJaJOsX2frXY8tYvka8+YrQNse9U9eqorIYxU+
lfd8Dm35UtaaW08i784fZw3jp8CPKGY8WeSHPL/fpcazlID/8q8vJ/448m6U
L7P9kQz8VJlb3doWyHMtqQzfmwv8Iq1Hq1TmIc+mYP2AaR3w+xtMAo22IE8n
qTf/wAJoN//+1P6AEXL53q67j4RAxxTTY46TLyCX6/nTVn4BdMwWPArsV0cu
65qyR+Nz6JDx8SuIE0Vu9ZXqlGOp0LHmZpBB5znkfrbXmnOiDDosu6KMlIOQ
++TA32q7GdCR6L/zpvI85O5e7W5zwRc64ZmvV/ZR5O7IfXo8mAmdu6/rUHnW
yNXb8+nIO13oPGDauW1nCnI3OM442N8DnWdK9os0FCJ3cXqk8Q0b6LwvdSsn
qgKbezbnbAjTh85aidqJqTOx+T+TwanZ4yA4mXEvaF8wNkew5CfXW4PgXF17
tWsHNodehonRLBBc7sm3jV+Ozf5ht4e3OYLAZ+SHuUQUNl+qXSgsbQJB9Pne
r9H52GxwUru2KQ8EjcWfWqydkSNwdns9xROEe27/V87fiJy2k9OOP3EE4f6I
b+1+iJxmkwipdbYgPBR5JygvFTl1q9K9jhiD8JQnPzp4CDmFTIFphgwIPXJt
E55kIOfpHtte20wQJsrwNqguRM7jTd2Jg0kgTHFekCGrj5ywFT5Hg/8D4btP
8xIZccgJnPTsW64vCPN0r6pamSDnSjYjct5+EP5+tW2zdhhy9iiZbvksBOGA
U7j/YXPk7Jzb2H2IA8JRmca9rZuQoz9xPl5QDUTkvYKb52rkaNXfmSObB2Rm
WZzG9hPIWRb6le10D8git1GGyn1kD43pBCxdBWTLl8fDhs7I7msv0c2WB6L/
UbTzkyqyCcOSmMwBYpD0XN0Vkc3LcLFy/wtk7ymb1iUZyK6wf6vyuxDIkUO3
0g3WIzupRumXjw0Qty1NRZ/GkB3bpPeizhKIh/uIXcUPZD/nWl1ebwzk+mvK
cIDuL7wnSJKrCeRW16xDjYeQfVOi19xoBpBQEe0z19SR7bVg9rLoMSBh7azv
cVOR7bZ4Rc9QD5CIH2e8HgUg+6Kq9cPkBiD/OcpZqTYh+/Cuz9VzUoEk6F4I
C3yPbAvThvhzsUCSqqwUbTjI3new3/VzJJBkOx2x93uQbWi3esGVm0DSTrd4
KkkgW8Mn9FCtBZAP3fpuYTrInvnheP3zESA/VK5u33QW2aKf3F8PdAH5qTzX
UtUEqYniME8zLpBf0r9YYz5I9VcXyU8uB1JZ96XhyUKk2D1rjp2JAVLXUaGw
uAepxqFda/AxkIbHjGCv9UgxRE6OywQBadKV87mwF6lyifDnpa5AKJvDzkf2
I5WrMkKtNQLSsnm+Lu82Uu/XS6fd3gqk9Yn++R3XkErTWedDrQfSJihQ4f1E
KmHXqaVhi4B0XPvANOMj9dLUq7tDEkjnu60ROw8i9fTgoy8GokAErCU2dfZI
hZ0qte0XAulaMvmLRiVS9x24G0ybgXSvE5ddXopUoNP4lEQGkB4tb3HxdKS8
fTTiDn8B0rcqca/8Q6Su3d7jkp4NpF/K7ujltUi5BJ82nJVCc19EiNQEUg5P
I3n5EUAGok6w4/2QOq3tHeV+HMjgJUPTzfuQOlFpt28Drb+hTSMPT71Dyvqi
8RRBN80DASdABqmDM9blJOUCGX7NPyEQILUvVvriqVtARg6s2hH6AinjrSPL
luyluWtnzq4nSMGVonsPmUDGZmrMdpFCSlciRd80kWZ/UWOV80hpvnrQP/My
zf3ffl/NQ2qdgdurQh0g40eumV5zQmo169jxG5NpzlrmbN6LlJLHDimdH0Am
pha2L6fHpyC9qrgvnGZjOztxOr6yaRJeb2l/JvxEg9XCkJpv3KfhsJLm9FcL
4u8iJcGra1Gi9TJRczD58SWkZvpgFOsDzWT2yLIUpEQXxe+L8qV5tDrj7Ctk
jV1cMOM1rY+JiTTfAAayemLYzooqNA/ELIiOQVYrI6Uhgs7nCW7q4mpnZDVJ
uBvOMqW5iLHT8D2yKg12pPpQND9X0ptbj6xijzkL/zrT7BCRYW2ErLy39Tcv
0PGfUFO3gIvIeseLb2c/ov3lDJSz6e8TFzlZHFpNczCpsAlG1tP9W/LLaHvj
6vIzWSeR9eD2jJXbaXtjRT4rPJ8gKyDvT2g2bW/MXKHaMgFZnj3Ph9fQ9kYr
xwtDe5HltMrhVCxtb3S3YoxxG7LOHN/4U4a2N5J5Rz6uH1lHwidpBdPxH5He
zMYAZJl9L4ue8pGO9/ktLz5ORZbhROTMa7S9oawQ0WwWsjZvPOUspO0NDmgV
1PggSzl62LCe7n/AKrx9uAhZcjXf3u6j+/97zfzDth3IkhR/IPON7r8/xCVC
dRMyh91XdqSZAOn9r3ft+Q3I/LXv4IMAuj3R2t6z0giZhf6Kw6N0e+HkQB1p
Y2R+yO20c6L111loOv5aCZlxK25pH2UBaV91qcB4GjLdx9Ka/umXe+W0nNAB
mY4bvHb+0yunc7Ht8y5knrLflfZPn2xrlydDr5FpUsW8NdMJCFNGInSdMzKX
pYivYtHtaxceSli1GJkyUW8mbfECUn3salHkX2RK3DGpe0Ln+5+o+L5yb2wa
PhNy1/wTXW+G9S+LOmNT5dJ5Hd+KgZSYfoic2oNNNx/JpiZXAcneZ23z9gU2
ufnl3p5B+/d+Onv57JXYdPHKkROnDwFJz04sWfYbmw6bPZNcUg/kzZhIeu8J
bNKYpej0gA0kTkHz88PL2Ej5rNR0o+tDcOGOqwqZ2FjjWCJelQbkXs867Zfz
sbHs2DmeBu3PnYV308unYWOO7uuI9j66nhs9/ZHoiY0h/WsGjtH1083g5tYv
edgIDpq5BnR9PxbfVtNejQ3PLbbrSy4HoqSk6HbLHRseOniw1YOBKPQYLbQ5
gQ2BPhm+ZoP0epX1O0jMDBuc3ygVPigDIrVcam0fCxt2TZu+W8oFyKTA70Pv
wrGeZJeZLygCYWOQ+aMuf6zftsjSbrEDCO8Fuz3IL8F6LY2QqVurQBigLneN
J8R61V3FCcf1QOhTEikZEYb10i6b2l5IgdCVud7vCxfr+D8XXVTMA+GJp/tW
1PtjXZg3dVVJAoQaZ712KvUio5njEKiSDoJyC5OwE1+RUaf64WSFAgiKB+ZL
WP9CRrnrDB23IBB8fnDDsScMGR+mx7cXngZB5psDu9SmIyNYjW1yXAYEUTct
NDWOImOTm9W8B9dBYPeMM6VBHWvvixs+HTSCzp4vp8MPSWKNlpbiu28s6Bjw
/blvbwLWqG0yGDrgBR3ko8WxDVysWaZrr8+WgY5WwQm9WA+skdB792vUDDoY
euJqEQVY3bJru3D9J+jICZsfuHglVj+yOq3yIho63KdfZJzXxaq/Hq9ir9lC
e8/m7IyYs/gnC9dHqPGAX+W4b9LFOVgxaa3WK++50LpI2Sr7BWJZb7wa0VID
7ubgJaUB2ljs/uG3wOAWUL9vdG0f5OGXhYdDUy2kod5+zJv1xBBzlUrmfPub
Dn8OfpcQSWBhqh//Pq8hHoqKO5+JnFyN4acaMuX3H4PUB/G809td4KHrl2pP
sQ/4Zs0s6S0n6+Ct1c0lkzgbsdjOZEn36V748EV36GPXcvwjwZ+pqj8ZvliZ
/qyL3Y31XwMVruRPg+L3/VPmmRgiNbi2c5H9DSjLVvepPRGC3IUO8fecEqBi
ntnsxabF2LomRGrz21z4E1XpLb1UgPxcazfykoI/cZ+dXnpuQv7XhCN7pL3g
T2ra6TVVvsgv6wztCjeBP1+C9+68vQD5rLOtz7bawZ92Yzm3Tj1sF5XtWTB5
EVTpfM6qzwrB9r3nBvd4BkEVI41E79HAdsbztwPHtkHNghAbVRdX7GAWjzWa
u0DNUss8IrYAO1o3b0puyIMatSUy6S9ysIMkdCh5ukPNtpTfOqWj2ClyNslO
MQBqLpSC0VJf7FwavNi2iwU1X6cutisPxk7b8x+DV9PnxEsedc9XJWAn00xu
QXcP1Hps32hTYISdvB9rTTheUOs/84HyAT52CvQMikaioDYq0ijlhhp2jorb
V36vhNpv77Nzq9NRIGu05lGREjAWdUXU+hagwFz39ET+GmCUnDGXbKxFQT7p
qHjqAYxKF8bpe8Yo+Nr/dT/jKTAabx3P1clDwfc+GPZ2AEZX9PlTj6JRUN0g
X5fiC3Uy9X5ZZudQIDCbe1LmNdTZm2Yf+TqMQrkq47k2mlAvpi2fkCyPwssa
S1ZubIT6+YYxI4eDUehqWJX5PQvql1isNpshgkIP84o5PXlQv95p45AdF4V+
B0N2vEqFeuvkfXuXvEHh47FyDY2dUJ+scLM7TA+F+TW5SbWR0LB3euuWayeR
TIlwVptyDxoshdUldipIZoiW74nTgQab6kIL014k4g7xFnIW0OAW+/KCUgAS
adnMLu0qaIiFI//9SkGyQrRLTCIAGoav/hpRHkKyU/yWAwuhceqxgtuSX5Ds
ZhcFPaSgUdLgzbyRICQmb3bVsTdD44p5d1UqFJEcXNFfPBgOjftTDay9diI5
FRee0HUJGpN4OR8qw5B4fwta8KEeGjPKEg3zjyK5Odp+pkAcGgsyIiqSlJH4
qxgrKxhCY9VNZ/71HCT3zoznv8qEJpHFa2RXMZE8Pls57/0GaJpFbzikkpBE
mVbcdV8DTdIdYurjTkieqWbOHZaAJtWcVqMqUSQxxVKKHT7QdMjipfsNej7e
3CrvPfIJmmw3h4ra9yFJk/V61hkHTReXeYda5CNJjxMOPbeCJt+uI0kqZkiy
n82LkJaDptQg6drqq0g+z+2YuyILmFO/3tVW/YqkUiy4MOQwMOd0x1qsO47k
T73WYfsYYMop5DmtH0RSHZ1vIVcCzLWewmRdNSR1844tmVQEzEOaBxSMwpGw
bt93b44Epo3thS171yJhz65755oDzPOh/of3lSDh3O2MYIkA80Zn9kPLMSQ8
e+up2kuAmRQvP/30GSTtWaM94wnATP+zUcleBElH78oJYyEw8yeZbrsQhUSw
QmTMMR6YFcd8PK+UIyGX0py33ABmw70nkW7nkHQF+OSeoe3xPqS/95yMpPth
z+NzfsAcluYSX20kvWGp6T2DwBLdMS7uX4mk71bPl5EsYEk4L1x95wKS/vNl
Yo0qwFpWvvtUaDSSAQUNntJJYKmN2vqE69LcnrNbXBNY2iqezx5XIRlMKb79
gwusPQFval/MQDI832XTn8nAOphZ1BcTQ3PuLC96H8k6waHmJmxBMmKpoKdL
v3eQHFr7qobmtpQzTsHAcoF5e95cRjLq9JY5SR1Y3hdVz70To7l7xf0kAqzA
/wz8M+OQjJ2dfXxVFbDCvh+LydGj+Y/NJv02YD0duIof65CMaymIvtMGVqJy
SCO60ByyI0WnBFjvDiQNfZWgmVm2MCoWWB9vfllQROttQun9uoc1wPr2tmFD
6XaaT4408s4A61dTn9nPRpofPpux7yiw6sVnX6yg9TKRFxH14AuwuLor7lZL
0tzA8boQDyzhOUhkvKa52+dRtBiwBh9ZFTYa0jx2oaJjGKhJtpu6SNe/+724
hZI+QE27ZnjDidbnxOBy058JQM0KNZ/de5fmllabZmegJBOPP3U9RPMPgc5c
ApR0wXmVASWaEzXyZVcDJVft9sG9m2b3dzUfVgCl0Om3a7iAZn0Hx3cCoJSn
hNZ43aP9Hbe6+PUeUCpyz+zGrWhOd89LnQXUOo1XvT50fo4fLTHQuAKUplGW
76Qeej7HdghmlwKlc+Kr5C2k+WFb9JTFQOld/fViKl0fxhQzDCuuAmUU15Y3
cwUdH/lU8SEroExiHNYW09+PBBevkfsNlPmLjpcB9HiGB44ejB8C6miU8Lao
JZKhZCLr4QKUTeSloa/LaP0MtLD9zIA6E9F94aaQZt19s9xpfy+H9u2f8Efy
N8aOGRsClGuwa2EBnb/9JeKZUQuB8rg3oH1dntYvV9Zw1A0ov4Bh+eFMJD0T
Fn3+tP1Ir4nWfi4S4RfR3vX2QD3zuGmdmUbnT9TNhXPWARXjPvnnFS8knfbG
rw73ApVyZWp693wkfH6uc64/UJ/sZ13v3IGE6/px1jp6fN/OBHUl0/ppFtkv
PYXeR5TaSZyyr6fz++Zi/V0MoKpOzDVqdUbCPL3X4uUIUG0HF0pxaP3XZme0
Lk8DSmAeGfDSka4fva8uiXgC1WMmO3SSzqcq5fwf++4DNbpHntlE5+PvC9rW
354BW3Lbsld1k5CU+MrviuwGtrRenPzjMiRFjlm8EB9gy21RDrGMRFK4/7DY
sDewlbRXuVSpI8HBJMPUGmBvWrMWftHrR9YvRYGMB7C3qrxND6brVeb5BB2d
MWBvX6WhvJeuZ+/GF2GlFLD3LtcUKw2h66noj+rWWcA+KatT/Y2OX0ykMFI1
B9iBUw3P5y2m63dd+syjdPv7jsPDsvR8BT6oXyKUBXYYIy3wqjhd77f2+Qwf
B/azlEXx60bp9cGpe6+KK7AzzLuZsfR8XTaKaQ+4CGxm9PP99x4h2f8mPk7u
ILC5YgdYbcH0+hOreUXmELD5LjMdDen47w7ykN5QDuy+XS53J+h83qYr13ee
As5MoXHhFXMk6pP2iHlvBM7GzQPaR+j4zNqyvEfGHTi68SnfcqYhmXbehvs+
FTj6c2wt5tP1dlLwIg2pu8Ax5vy8XN6JwoE3XYO5IsA5eSf29fZSFDZbfl63
j35/r9ZsscptFObsznh05w9wOM6vJg/T67lVVIPmyy/Aab3RW9d8EoXm0Uuj
yxE4nff10so+oXBvlKxmiRA4fxOrjr/wQaH+hTn57w9Bs1jjRK7BBApX3v6W
ZXMPmjfssnQKGUdB739p1i83QbOf/BRKeRQFtxQPq967Cs13VptmzzmKAs/3
/IxDsdAcrPXk/iC9X3GB0rcuqdAcuX/d5h9eKDit7iTUYEBzSoD148sjKNjp
L9KWnAzNVV3vTD8Oo2DaoCdfeyZwlb8dz98/gJ3evQXVHt7AVdVreltH789c
TY9ov2gHrnrO0RgbCew8H1WWGn+O3jcnW9++vAI7rWYqXDu9Bbj7H1juD7bA
TvXNMlVGT4F7/ZgJrzQNO5q6xjQVGcCt6t8qscMeO9beeamvpgjcesc8kdI+
7Fi+8MJvsxjgstp0e819sGPho7DTw6uA296wiWETiR0i5xqhiwKeyGfNmBtF
2F5xdEJkzA54avfVtPKWYftln+V7pbcAz0950QnNBuTHPhp5fVASeHf852wc
OoP8RwFlBaVVwAvmTRHP70L+nXMzULwSeE/i2nN3iSLfcTy9z0UfeG+VcqUP
r0W+jpeDiVEY8OqVrH5c98G2H1kb7xY+hxb15Y+0i1ZgK29mYWX/XWhpXDZX
8tBl5LXbjdx+pA4tbOWodUm2yKvPDLcIrYGWltXLTYcOIq/0b7rOBlto6VLf
eP8/XeQlmzu5+7pAq6ietRhrKvLOn02WKbGEVjXr2KlnopDLn+aq2l0DrV4P
NYddC7G5XiRr9F0OtC0WteKGyyI7bLvfrvAv0LbMZYHCrU3Ivu693rxND9pW
Nv+xdrZE9rlXqwK71kLb+q8mv83CkK1XxrRjToY2I9/tebPFkWrfM83BNRXa
XETUHvqPI6W3ZHRJzk5oKx0V2e7Gxab0BTuu7bgMfPfexOgjqVibtZ375qYZ
tOeXGN3YegiL5EIiipMloWNUd9nF4+/g9d2iGU+OioDg4IcpO8QGoVqzMyBA
sguEkYu1NleYA1dqsOlMZiGQ/uDL8sueAIlR+aN8RZHmHC3RWeJAYl/earLd
QjN7pKPXG0i8jE6aw28gfzfe/lhoCyRpamZiszrNjS+OnFGjz/tUa5PqJyCD
KuVRrwqAfIjccaYnGshw8RpZdS6QCrFfKyToc/ZwV+8kWUsglb7LTeU3ARmR
y+FPKgHyZ8grTCaHZkeDnMo3QGra9C4OPQUyKn3UyuUqkMZvE1el6e/HTt17
nDMTSJvv1Z/BcTTf338j2gsIf1g++00fzdkLzwYKgXQ4FResnA9kXCxW+3Al
EKHNGsVtfjS/y60Zofvt09+oU0nbH2/wKeBK/PNbdLrn/H/3cjsTynyADKyr
7c5YRbNV5dVnp+lxK4Qs6qDna8I38rg/gx7nY+cj/8Y3kXJ8p6MxbXeOdc67
o//u5ZTWWv6737pttF42E/7/fxD+/3/wf6Muw9k=
     "]]}, 
   {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData["
1:eJxdmnk0ld/XwKUikqHSSF+FQooiRcNGRANJJSRTJZUkSYNCSDRKJZXKlEwZ
ikKyhRCSuczTvc+97nSUWeJ9fv++a1nL+thn2NM5++xnsTzrvPy4kJCQMP3j
8r/fSKamOAtgLZCpyZijQ5uQjI+FKI6dBZKeI3VIIhLJ0MDKde8zgDhk3Lik
w0bCpZzNVNaDoNB+tc4SVyQ/q1qCZDYCPyipRDw5A0n604rfvfrAXcT3fGtD
j3fQSvl+0xKos9dLUudFoqDgxJmgHxeh9dWNWbsk+1GQM/jTm3sHWufKDp6+
qY+C9wEGJ0VjoeXGmv2uswtRkPhC1gyqoNlNcF1fxREF4XWfZTNWwE/DLIOa
NR4oOLFNIiGsGupFl8S5htMsPT+l3HIlfO31bdN8L4QC8VjZPPctUNJ3JCg2
NRoFMzX8Um/tg+J+vXTh247IH9+1P6zoKhQJCYouU4XIZ/j9tVlfB/l2zoLI
YX/k53B3ceZdg+SOkdrnTjQ7feHMbmjAt/3BsUwNIeTbpRRkH7uOGQ9e/Loj
Ts8/9Pih/eBafKd6UDovjpabndzybl4IZu9vcw3eS8t1pe9bW27FT4+dr27P
p+XSDtrxPxKwmHlByNElGnkFE35bKy7hj4ATm2p+6SMvl9rPslXGmiWlDOuz
msjLqlEJ66vDmvPDv0f8w5CXHFfLEFPHWuW1Us4nPZAXsVvplkk31gX8U5Ux
6kfemaffmr7uwkZ147NG3RnIk9s4/2yhPLboZLpkGzsib6Ge14a5VdgSkGbG
/ELvN3dr/fjxK9hSvW/RQU1p5M0yenhDvAlbj4WMr+QVInfQcu6zg2HYdqfU
5Yq2BXKrzkiXcKdjR9Xzc3o/afnVuDlLZPuw+8axBKxKRO7FBLdO10jsfs0O
Y5dJI9czqSr+0w7sLjX4Ez3Rj1zXjDsajrHYI3LB7dauTcg9UDDbKMUOe4K6
XadXRCNXvVnsrP4P7L3c0fnNPxE57VIzS05nI9NofOWSlqvI+Zmwzl1hEzKd
YwdjBIXIqdt6ZGFDHjL95V5lH3qEnLLTWae3FiIzL4DM2mWHnMzyo3OlKpBa
s0x1JEsTOcHXCx3edyFLLP6z2T915GgMXhmfEEd29MuscWEj5KjdTojPuIvs
nHBuTlMQcpRX1Jkfl0Z2zWGZ1Ogu5CzZpxpTLYvsqRN3NgkvQs6Mt79MoxWw
7/D5btaxeOxrPrEhwmgDcmaf1bgWKIR9Ac396+44Ind35K6So6PYd+17cHjW
FeTaTcjswhzsu/RFbqDtMXLdt0ijxy/sc0/c+UG9Arlh+0RNH/Kwz9Y7Tu+7
FnLrariNfxdh3/p5VkaSIsjbp2uuP0nzGhHeax0F5DmejModUMK+VeOBIvab
kXf24sG83Crsk+9OL0+j8+Tu6v3averYJ5YhZmbejLzSkXv2DxjI7t6Tb3U/
Ffna627H+BUiu03f8uPHUuQbGDgsaipB9k+tvkWd3cg316jolaXHf18q26q5
APknEj8caTGl/dR31qHGD/lPJdgRG2gOC15xUsYS+UPp4j0lXsi+fTmnQtcN
BUKZitc4l5AdfGbvaqebKJgdPuma5Ijsqwd8+Jn5KFAYNl5JaSPbdUWjp6Uy
CnZtXbqjNwrZgCE+4aMoiGib+ZxPr6e3g/NFjoWC6NjhmTo0a1ebiSQ0oSDZ
+NgqBwVkq7bLPMh7j4LP8gtu7IlG9rzxZ2963FHQveSIeOAMZEten+C72aGg
D0uKvPSRLSbmsH54Nwr+GBwNKWhA1uQixQJxFSTCzbE37YyQxd6Q2rCuF8kK
x5SFLzSR1fNZavGnOiSqHIt1k7OQ1W50zsG4EMk6C4ajpjqy6vZv4Ni8RALZ
G55ML0FWvgcKXbdGYtv2N8ZEAVkfRpfvmG2CxMniaWatKbIy/QJvP9ZBciKm
/XbsKLIS7pkuSJqH5Hx7ZvjCKGSFpdSq11QjufVZ5MayHGTd1tLytM1HEqZg
/sp3C7Ju5D3+yEhB8tjpN/vpL2Rd+WZrOBqC5JV//MEpOWRdsMgPCbiIJP5I
16PXYcg6+2tZtYQLkqTFdTpf8pF1jOq1UdiO5N1ajegD9H4O7sYvk9cj+RBc
br2KgSyboTcMbQUkeQUeB9To9fbOcDtrMomkqNIEs+j9dZcP3Tibg6T2SPCP
VNp+raRDFWNvkDRkSmwKpO1Zq5knHRhB1w3G/uS/tH8Vwff5k/NI2jnXU4rL
kSVf2tW93BlJ1+dHqWdp/ReZb1+ZYoGk16Po+Xl6/zlHRDNxLRL2xTLi8whZ
ooyTIzvlkHAqK6Na6PWFT1dtqZ+NhC9k+G1nG1ITA2sD7MaRENntt5tmITVy
JayMouvSb/HeYTMjpP5MG5jj8RPJn2492a3WSPFCD1qOlyIZjDxMBiaQ6o5c
3CEZh2QkybY1JQepNl1ROByOZPTf4f8EHkg1NQ9GJwbQdVMram1GFVK1V3qm
DXki+btnfdmzaKSqlv44akjbM2Gi9fq8HFKl+fkl9y2R/FN676vwC6kvR5KV
2wxpZpQJJxUi9WnyyU1V2t+TNwM6tZSQ+vAqiO29gq7TEn8/TctCKlPfc2fx
XJov7Nh0+RJSKd0OKdL/q+OF3kPytL0JAWYSdn9oFsSGPkhFKkZR70xSz//q
fHvoEwmknpesqh6m83VqcEuQVABSEcdlNbcX0VzZIPx3GKkHIsIPwt7RHJxz
+2oCUrcTyJ/2WJqVJl/UbkIq2KT9gBpt/2RCXrZ1MlL+7Irsi7T9kxLTTB/Y
IuUTmrOghLb/3wHq22IRpLzVXl+S+Z/91/3iUsuR8qgMb7an7f/7oEtfdQlS
p9389VJo+8eD5aeFNiHlMufM81Ha/jH7Xcac9Ug5ptn+M15O+3vJVZegIqQO
7zW1D5dGMpxX9vH9VaQO9m/ATiH6nQL6IeQdUhYPFJev7kcy8OavUt0CpHav
lw641EXHe2h27Vzaf8Z1/3q/1iDpXxlcHTKOlP55rvFc+rwKtvjbrKbjuyG7
VJR+JxD6VcR3f4mUptV717EwJKyWtVZPafvVRqIrdvgjYQbwJGaqIKWg63On
y5HO10BlptQMpJa0uArW0Pna3lJhsN4SKVkfq71X9JG0LrxnG1OClPjndXPn
/4ekUb9UqJyB1Ez7ZeedJJHUrXF6JcRD5tTU7Ia39Hmqnjojf6MUmUP61BOT
DiTlBxQTf9B1rbMkSs6Hvk9yi7Yey/ZFZsvx0Gvl95BktwU//EZzo4h3p6wv
ksy2jqk57sisMN0Xk25Pn+8widZTCcjMqhJd2SuP5ElRcP02JWSG1nuu2xWF
5OxJ7YkDjsgMqqnYNVsJyak93ytmTyDTr3qFcyV9nxxfwvQaXYDMC+V1j/bk
0feXd02ZAi13Klg/QtcPYqRhaV4vgUzdxIHP+xcgmZdRZd8agEzthN1N82h9
52zPXVVGIVMjLk7QoIxEpEghy94ImcovDygc1EbB2PWXYexYZMo8zAo8ZImC
jjli9aYJyOjzvbDz8H0UxB3V2TYvHBkMn+/OcgtQ8Dx78ceiVGR0Xla+0vYS
BQ8HPNS2KyGj8Xxj6pE0FARteH+jZA8yvpzUkXKoQsHROkO5/feQ8XT/cOOx
WSj471JP07YlyNipesnJLQD5IdQDWT82MrbnRdnf60C+7+yT39aZImPb7sLD
mXrIP7/0+v1sT2Rouc86OPSHfvf9yzun9gwZ8u8id/k5IV+j6vjqBxbY+2dz
jlY4/Y6qjVPjyUdi73Oz0ZkfJ5EnkvtDuMcSex93ygm32CJ37LSoKt8Ve8M8
YGriA3J5Yo0hopew90b4zXEDd+TWSvte7N6BvWd/LhRUtCP3mZEw/+Ei7DVy
3PizPR+5qvvrU9JdsIfveTF5ug9y9B57GUhvwx62o4j9U3fkqCs5wegL7Ok1
ezxPwxk58q91Tzo+xJ5mlXdXD+9CjtBVpnCqJvaUdPDN39Pvhq838qnBMeyJ
2u084JyFfWZiUz5ShtizW8l8yxcBsi31g5y112F3YpPSD38npDZ5X7I/GI1d
p6IimZ8fY3f8c03urhbsWJEqodKZh79szts7d0lg68sDhvrSili5trSxt94V
f/X2nApRe4fPY7t0w1/WYJOOjkLm104oDhL96f+Xg/UfcP1jdSY0iMYYXtS1
x9ppa3WSfGWgw3X953W2zVg18Fqd6KhDb/hHbxvzUqxqz/XzW+sCvfF+PS70
e7Cq7Hud1MpX0Ptha+cR5T9Y9Xz4osbCudDb/Mxja/wVrDIy+eI+MgKM/xrV
Q6v8sPIR56AgtwgYybsXBBwyxgodDV/BVmtgfhSbmu7bg2WXcmv4RoHASjv7
m2O6DsuOau/lmRYB67Pi7QjVbVhmllbNNRMCVmVluKzlJSxbEVfVd/AqsNij
NUbrFmNp1d1ypos3sFeUXfOe5omlCk6F7SGuwH60bnZj5CiWlItlfK/aA33u
Mn4px7dgybsgjaqaW9DnY/plmkoolkRNplU2lENfyPnqLdOKsOTcQOq3dmPo
i32te2d1N5YsbU/8KtgGfU1eNT9rNbD4bGZ0gbQmcDYXTRiF1mLRQpuwtAOy
wJmYWOzr4YBF043zbq98B1zRNiNP5zb8QtYxToxZAHdu5sH8yw/xS5n4puUv
bwFXRW/ZTPdl+MU7r/MRexK4ll/7lmpJYmGT3FqfaxRwXxc/lN7RjKj6OfLB
XnfgbTcw0bLjIU57zNs1mAi8PTkyDxK5WNDsrj/jaQ/wrBTtSW8/FoQuY11k
WAHP9edFvbBp+Jntr2N/GYB3N9v8M1MT898YNqyOkwZeo/Fqm4pAzFMql/o6
/A74h2P5c5MmMHdsW1Fs8j3gH7OgojTzMPd79gU/+9PAd+v/6033Mbnesa2b
SpWA7yt6ispUw5zyawkpjyOA/+quxJmot/jRTWvrA+0rwO8cLb++/yJ+1E/q
P8O2Aj6rbN7junz8KKsQtytKC/jk5u5rQ4r4oUBSbMZ0HvAn273bG5j4QYrd
4F1vDwK5Lo87CSOY9f7laTtPQxBYbUuY9eUBZoXILtNduQwER9Suu0okY5bd
7VrZ5r8gODZLwYDVgFkzL+v8MMgCwbnIl0V9y/H9oQPChjIrQXBH0i7pv5OY
+Vfs6aoMcRAU7Go5fM8N04L67jJbXwNZONpe63EF07RevFpwtQWIXNFOx026
+LZnX4bJMkkgy/1kbEcv4lvIrUt09AaiVpdRd24zpozfWniKuQPIlh4RK/uz
mOShFk0EbCD2r9q411Zg0rKOdwphckCcX5567LAGE7+HF+9bZwHEJQxcrzhi
oto48935HCDuZrlFdqcwgVmp5jUaCuSaRs2bwDyMP3z6/biwGpDI+/flb8zA
ePH/vqrF2QN5XjRLqCkb43Lqmw4bhQN5yfrw7oQA4xZsHs0PHgfyWiLznV4k
xtRKbPWbXQkk4/MMO+KGdM9hnv5WCMj7UJkfGx5jzFovhy5zbSAfTM2aVaIw
+nZbgEFYFJBP0ebOU1H48q7NvVlqv4B8/WD7++50fMH5knHyjD6Q8qWliVO2
+MJUta4iPRFIhZftp2v7MEp4fOFd7ctAqifH5P108OmlZzFzty0B8vPy395A
f4xsEi4+7x8ApPnSk+NMNYzUOsVsKOICaT1lJRSbiBGCzWpPTPKBdK7SU5Hg
4qOjrVly+44AoUTufTywCR+WXNAdGuABYUXs+yasgA+VJfFHxFUgfYvfUwc3
4gPKoDKgldaf+3d/UEwSPtjRus/OVx0I3yZs7V9NDHvj9VNH4RMQQcqpjXlb
8F7t3q91lVlAfqsOdvwSwrvhAbXB0g1A/ljFF5+fh3f2Z7frHhwAMuDdH847
hqFNSwdfda0HMhRumxCzEUOe7BXar7wPyPDdS2ZDRnjTOkBC5JQHkJGrmgnW
CRjUwlZ0G0wHMqbtYb3GEAOjlmoo6FbT/G9k3cONGHDEXK/eVwBk/NPCT79H
8Pqy6zuCS+YA+Xu6ttA0A/3QNd5rrjWQCWnl2evn4zWD6k8tUU9oTpRxYxzB
KyXa9QYrm4D804rIpevppR3POG8y59P8LqsseAle+DZNWHLzfiCTyqc9uS/x
/O4Ti72+0vkyeTvvmYgyenz/rtm6t4ZmZux/skHoFu0SFpi1DMiU1nLW0BI8
8Xo9WpQ/p9lLt2PpN3ROmhTIty+iObFP8HwMDx+J0G3sXU1z7XpxxUjcd2Lt
Ew+JlTTz5ypNyOHW4qUNKg3+NE/c2ijuD0prZp5ql6LjMTX1bPMPAzAdlX4V
8JvWf2rYcL3LKbDyPPtn1d5+mrsC5G8Gg6P26YodD31oLrCdfiMBjmu8en7Z
d5Lm+98Ee4/BKbV6t9RT/1v/QC3XvQPOrhTd2mk1neY5nhJiueAp/eJmqEIx
bV9u8rHu/8Dr3kaPFRFBNNv4SO77Ahdn11rnS9Dn9x+PobS/ES6HnjY4GCBK
83lmqc8CuCo6U1UwUk77W+C/cPgb+Aa9mhty5hbNdu/hwQfwvy53Lex3Ah2v
Ar8T79QgYPKDi9qJE3Q87XovrLwOQVsDbS+uMKXj/dTni8UruHHVwry4XQXI
6Le3ram5cHOMs/GIJYfOlxldHlbyELrp4+rkORV0Pkl1ux+sg1sXg/4bLk+h
803ymgHPGu4MLZsVts2Nzk8qOPL3BbinxZloGzOj8xcH8wXxcN/z42/VrLVA
+u9Mjrxqg7BRFV73o1E636f1LeZYw8MLRY0+4rlA2IeW5eY8gUcr0utl10TT
5yvFz+ZZGjz6EVWTbhEMhPHb/NPPHxCh6l3ZG3EASPe+LWpqJRDZrla0Zzkd
n2bno5evKMPTWwuRMvpJn2/D3Q3XZeDZxhmf/U8UAGmcl6hrlwXPwzpyst7e
BlJzq1ARDOClUXi6vC6dH6UVAbHgBi9/+6V+tJMAUqKzfL9fFrx66Za8z5c+
b18e6j1uDoPoq4qWRT2OQPKXd3m4lUBM4z+zERXavowH80WoTRAfmmnk8P4b
kIiPU2cWr4T4rlXF6l+3AHm4ueCxx3J4rfPSYKwpA8j9TDG5qpnwuvc2PByL
ABLiYazWfwXebD2uVw7HgFw2uHp37ytI+r14nWbFFBBrzXlzv3dCssn99H9t
nkD2f1cWL2yD5Jciayv4FJC9h3+trWFCyq4B9ePSVUB2mKvIn9sCqfHfVz21
egZEK/jZ83gC6dbXl03r2QBktqlezrtkSE/S/H0oj9ZfxJYi9qshfayr5G04
7Y9pTivfmFyADLPoDakxs0EwYuoS2aIBGYKpNmuLCRD0BMzb6SIL79ahanpG
Owg+xAUEeJ2DrI9bS+w9XoHgYPIjW/VhyOp8nCZmFwWCves7bboQskX5T7JM
I0FgmjY0Y+86yLZ+cVpcIQwEmwNCtpxTh+yxfzLZNf4gUHgSvP3hPvi4Jd9h
jqYT8NlX3p6qmoDcIr2xT/2KwD+r3fC3yQ9y+YNB279fBb7LvV/SDgh5i9Mk
K5ObgH+kpek7fe/nnVuu2Hr8FvD3mNZ/eDEOnxREzcZb+oGvck3xrcU5yL9W
H6v7tQB4HTv7Lx+RBdR12/XxuS3w4PafEId3gMeVG+FSFvA2rP4ptGIWYFin
Q5mVJPDUCpSqiz2Bfih7/ZT+AjzZvNlBFRugcHfUXp/t84HLlfKYWXoFCscD
Lj/L8QHuQ62JuTGPoMja/Htz3E7gNPu7PlpiD0Vnvrqk3egHzve39/+JqkNR
4OapQNdI4HyplnM+YwxFaarr1qxhAyepz6uzpwqKZ0x/5J8TApzLoc96FO9D
cXrO4VXfy4Gz4PzV5mhD+Cq6nH1h1AT6TCQSthfPgbLsoelzzYyBFWTHi179
GMq+jf0Wc7oHLO+bGlZibVDWPtkpdOEXsFzfBB16pgvlIrPyBC9PAWtPhXeR
ug+UW8l5VhB6/PynozFeQVA+vL0n8MEvoGKPHvp7cy1U6IR/GWw6BcwPeD1b
oAVVHzX9fzrch97iJG/JrDlQO9dijrx5GXSoPtgs9qcE6p/V+cou50OD99gZ
adYyaFpw32m11wUoufekJH74Mfwqd7GUbvuJj9ZWXTp9LARa94iytlx2xPJj
7bPUXmpCx8ziWxtXF+PPrsWTqalnoMs0np0vthK7/2NfrZJaCt0hM41P58sj
s/Tg2M6Yr9B91318fPF8ZDabGP4zH4Pu8F8ZId5038pTL2x2iobuF6lLX2tM
ICXTsDB/wAu631v+7ohrQcou/MRIQRZ0d0S/3Hc7AimCGhzz79CzYfPIxsOS
yJY4vn254mXo0Xud+jVHBNnyn2U0ueehR1/K+cD8f8jWEJk6ZvwSenb1fPeo
5iF7n8foMZnt0OMYGpdsWIHsx8/9/4yfgZ7bPy3k1W5i39LN/5ROHoSeHs8k
4XEh5Cxdr3Deahn0sPwGmnsdkaMa/2dqyBt6eHe3ZVQVImeT2I+8NlfoGX7T
YP/KHzkHktzv33gPveJtU3lGU8ihhyWnCEGvlonVufuTyPmbldno9QF6g+Sm
dylPIPf7SV3Rw7OgN1TV/KOUHXJbph0aFuJB7z2dp3dH6X6TCs1we7ACeiP3
aWyuvIrcqVN1bQIj6E0Ntn3i8Rd5mmfguEU19Db0Z5p/Gkfe/eMfj52pAIby
V/vP+0aQr59/RO/cB2Cs3tae3kz323v+m3s3fBEwNHPsYp0kkX/ojIRZhQIw
NqfY3vRYifwzFX4XfsQDY98Dq333DiD/aej2zog/wLh2xIxZkYF8/kyNDPlY
YAQ0Vf2y3IL8kXmzNh3RBkaIxe6K5jIUTBPn7TmqAoyH23emsztQMD8nZJVO
AjCSVI2viEqgYPMsBt/NDhgNQ1slt59EQaBbfewJWt8W93yhikEU3Jm7uFbZ
HBidbL0BS38UPIpe40KqgcFp3fTLKRIFr73dgndoA1Poi3asXykKSsUWxnkm
AlP9rrpO/gokwtmX7p0pAOZ6kRTV7WlIxDpWvAyeAcyN/mpLK3WRSAus3oaW
ANPwvIpQiwWSZV9n68xfAExrG8WKUV8kujtPVnxkAzNIeamDdiuSk1HioWsX
ATP0htSGMRckZxe3u+lGAPMec7rE534kXr5dEgO2wHwaz8kzmYHEd3LlIrVx
YKYr5cnarEUS/uP+Jia9f1bQW558DpInQXmSP3nAzGXEFPUYIolSuGhULg3M
kvhQj9OHkLyebVPSUQ7MFiXrymv+SLJTH2WWBgOzM2hPrKE4ktxHKsYFH4DJ
YOhfFnmM5LNTepwkvT6JV1l5PxlJSdouGW8FYA7NWPrvgDaS8jUbDDd6AXP8
mFTDogIklQ9KfKI5QM1UHLkeU4+kbrafzIAaUOKBXGsXeySNCgEnjjcBJdXb
qaHGRvJrSfOHR65ALYkrbXs/gaQdtf65dwGlMD3v/aVgJF0nJUtp/1LKR9Nu
bZVB0jPCV9e4A5SmYsTG0pVIWCXH9HYoAbUh8JbkrQwknGkNd6aqgdLrvcbc
q4eEpzhSw5wPlP72c/nzSpAI1HKre9KAMo47Hv5rL5L+BSK7pwUDtXu6zcmo
FiS/md9muNByi6Nm+k7HkAw85WfvdwbqsKI2n3MJyXD67OqDhkA5BqqUpAsj
GZVqC79cCtTxXrnn5+8iGTtQIGIUBNTp7dKemxYhGb/2vDLwEVAecTNMJ2KR
/L3l5LdcDyhv4dH/vqgjmbgynqtIAeXjzB2+8QHJv737JdLWA+Vf1Pl9lz6S
SVEr0Uk2UMEr6uMlK2mOJdoe40DdDii7Um+FZGqF+AIfer+wnk/7nnTRHBS+
JrMBqAjDdBW6ryNTFZ6DxbZAPY+NnVIYpHngSbdPPlAxwhGNTN//fT/mHSsq
ByrB+VZqshjN5DAnygOolCLfQPdHNH+pbVGh45G5wtNWaxnNF3Ufxx8D6kOA
i+ZIIs1SvldOXALqU4+taP7/vm/fut1FlQD1xdCswz+ftodtJvd+EVClsQbZ
xiY0q7y9epkeXyW84Y5YHW3/7shd0yWAqnVWda62o/1jMVqxQR2opiJ53XCK
9t+mvK0yB4BqWyEjfciD9q9wWXu2NlDdys80Ep2RjJR+j6nZBBSlqmg+dpCO
j8fPvKM5QHHVU913mSIZEmrUF5sFVL/mhrvP6XwY8M42eR0J1JBWQSpvDR3v
OpeeU/1AjW80qdqqQOfDvGZ5+t3GmrHNVrxzJp0/Jp+ezXcDlphBr5rGKJ1f
emK99krAkjR22+nPQcKWaejYWg6sRXt8Q1bUIOk9F1UzYAcsddu4mS7P6Pzu
X6htRs9fZ6+u9PEOkiaJM2kmtFzHKdtolh+S+jk5O8cHgaXvWhaQTOdbVQHT
ekcDsA54c6cEGkgKmgvk5eWAZXPlwn9A3z+fljbO9tkDLPtrk9vC5iP5aGj1
8rM2XddvSF9bN44kfcuB9FWzgHX1ofb4BTrfX/RYBzfEA+t6RMHiUjq/nhp3
fb2WCKzgZya6C5OQPLq7E/QKgRUWY3Mx9x6SW2UXXNP1gRWffm3wnw2SC6z9
x208gJX0XnS++R4kHieGXV0cgZX2IUzr1TYkpyoFewsWASvnc6yngRISh60R
zfclgFVVWUqCBEh2fO1yV6b1q/1hIdnYjUTfQd+gOwdYTXXNa1c20Pdhq+uH
lULA6mrmupXnIlH3+b5InLZvkC3FkQii71Pb4UXG/cCWn2HNeLQYBXWBe6OO
MIC9wmvBf4GbUPDtrkWG2ASwV/XW23paoaDwfJL1NQlgry82q7EIR8HbRpEL
yzOAbRpgmD+Hrg/BrD9ySdLA9hJSf3hjEgXr9cL2X0oE9uWzfdUX5FCwcurQ
WxNa7tv5RuzYZhQsfTXLr2IQ2KG43M/wEgpmuFccqNQH9ivfBacmfyO/wcx0
1rAKsCsmhAwvMpDv9pup0KUE7JrTn6+dEEa+g+2pqDdBwG5svZJjpYD8fVEu
VlVGwO7KG1qrfQT5G1KPzvDSBvbwZc7i/ibk/R3rfnbLC/qWj9T/PvkNedd1
jod1SEDfpYE30YfTkHsmTLxPkgd9viLjij+1kWunQyTDTaEvcMmeN5afkLsr
N2luYSL03dX/nbazHLmrLC3u6jtCX8y9zfkbe5HTUb1z97g69FWo/Pg1fxFy
dnRmb4yxAM7SI6NSVQHIHu8w6jw6ARyFc7sems5CNqMZl7ESgaMc9GJB8X1k
V6dFBCXSrJFiKJ8XhewYhsQbi0HgbB+9szrxI7J3+DDS/BWA4/ZQwSSIh6wQ
s2R1G2vgfC439dt6CJl87p/p+/KBU1QkRQ21IbPeyyDWvgE4ZZ9+mqc5IzOn
UaguZw9watNdlv3nhszA//yfrvUHDjMi8PO0AGTKNp2oXeoG3DnHCsa/piFD
K6+5uDQHuEembfA2n4E9Fo3ZHdMTges0PtEhcgt71u0wGJ7mAVyXwRJjlMIe
mTtVB1/Qcg/2flnNJdhd+/xObasKcIN+eGTN1cDuvZ/D9T2lgZv6IuV3ky12
GQnv3eoTBtwJvRVn7DOxbdHMtEqpaOBNi5bvz3bG1rLvgbO8pYEnKrLYS2I+
tl5Uv5OnLwQ8mTrpK7ne2NKQfq5xdQbwVp2cDJmvh823ilrWm3QBz/JpS+y3
Imzq+fNZM9kReIlj4b+0G7DWUOze0Ml+4KU53Dt8+wbWMPZvPUVqgPf+a2hH
jw7WBK95usaTnl/wwJ95PxJ/PFglNnCc3q9B1f0P5whWhW0pMVlOrzdls3vO
KwpLj00/7dHnCPyDudO3i4/iuwLFrbMtCoFvW/RIUjAXM9VGZZ5r+wPfoUqp
pXY1pqsfbc01EwL+yc4dnk/sMfFH3F8Fd1ruOzM0VrEYn3QU/rhfTMsTLKWn
bbkHUS1NB3930zzMlUN3Zfji6unglEL3dZHyOptrLeFnecDT8eRCELwI/6to
+QR+7V8awNsSDYK4WYXi9W3wq0PPKkaZlr8d3Nnc5ALNw+KJc+wVQFBceeRi
qw+0rZ6wMdhtAQJyOeg9Mx66rFPi+zyE6L63sX712DAwZUoWKErpAxm65yG3
4ikQm7Pa69fQffdQjs6M2XR/bydqqyXSRXP3X+6A7/++jz5YtzEHyPCGm59K
nIEcrVm/8kI5zW2vDruoA3FfD+ObEoGMqlU/SyoAEjB2+0JAJJDxsjWLNRlA
Uh/1agbS+4/3D0xbbAUkXUN1+xt6/N8lOX3T6HUyv/nbVvfT7G6UU/cWyIdJ
p8fj/kAmZO2svbyBfHHtN37OBvLv6O0nOWJAmgy25eQq0Hx3n1/0VSC/2h4r
i9Hz/31ceCJEAKT14kTke2kgk+JxG23qgHSlTUb00vMnM/Oa/v7ve6N89WAE
bc9kq38BQxIIP/dtjP8okKmZOxKq6H37D7445E7rP2Vd5/3iOO2Hu+mdqrS+
UwGR9jd+0Xaq1mU61dCcar/DfRdtV6nIXU/671NNSmut8mk9nHefD9eE//f/
ZP8H2yFmEQ==
     "]]}, 
   {Hue[0.6142719099991583, 0.6, 0.6], LineBox[CompressedData["
1:eJwtWgk0ld/X1qQ0SqFBESpNpkiUtqSSQqPQJEWSJEUayJwoRIP8VEopQkKF
sCVTkuHea5aZO98jkiHxnf9a31p3rbuedc6enmef955917v/gu0yOzExsYn0
8+1/30jGx3kyoEq//zWv1bBBMjIcpDR8AYlvsnLlfwZIBvpXaKSnIpkyXGP9
mq7ze2xNVTRRNPtsRaMzxXXljf5zdVCwIqrqzhEFJO8el/3qNEDOpfpf683F
kJxY//bHrf3YfnPBoeQuiq3X7WraGont81PUrqdSfGgFm/OXhW2JrFy3Ry5I
di9Snuxiga3vXzK0dlJ/OmIxm6yOYPOV6daZThTP/nEnYc1prN3QFb+v1wZF
eWfO+1dewaIZU3dftzBAUebvOnf+Hfwa1Km/f40YitJ9t56d+gILJFR3P4B8
FL15Im0K5ZinOP+MpsAbRRGMXOlURUy7vkudF0/3n9kyMz68AsIucXI2XqZY
cv7b0v0roDjezEhuIbWf/kI623kzlLSsGNztStenqN1MCt4H3+Z9t3PKEUPh
iMmB8IIb8N3DK/oorV/YdfOvlSYDqua1rcpLaENhJt+EN88TWGFP/zSNGqDw
5BfeDBYLmlG9TqNSAYVH3+Z9OO0DPzWuuo8GU/vDDyKP/1aFny+6TlV/pNj0
7Oa0eUHQ4qfEdjgdi0JdyTDL/frQJpdyfv4+GxRKntB6WRkP7XmvqxhrqL8Z
uyTMThyA9l9T3xQquaBQXPPnIBGDDsUxuYc1VSgYFb+1e7Y1dASkqh9Yko8C
dnLDL9M50LlD89w97V4U5I3e1C/zgK704fqZN/aiIKvnANt6OXS18n03vYtF
QUaVSjiXAd0zri6aJW+DgsS46i6JtdB98qyt5p1UFDzcrRy8sx16pr2+ttBB
HQXnH3+rLTIBtlGHT1GdCwrkdOZfyF8CXPeIiEk321Agq3dZW6ocuA8nfNu0
xhsFUvrMEbtrwP2w6KXFLZrfNKPIgOm1wO0zcZXel4/83/ulog+FA88h8dF3
Y0nkl5+XLORPAv72lMkNXZnIL3FxCdZPA/6JxqMhBhQXXKoyD7cB/tWMYV1j
ap95LaxROwf4Se7Lvbsofhk0m3i7g2C2+pYHvHDk34ibtUiaC4KCgrScSkvk
X4l3anWIAkHdwF6pl0HId00of/l5BwgEjRkSWqXId0i9o2bzAoTSefx/69SR
fzBvhtHboyA89btRO3sI+eZfzkmMTQehe9G52AAH5JsUllXuzQLhbZOhCjcO
8g2+B1v9kQFhsvvSTA9qv7ZB4oJBJQj7Dm7qsqLxVzaf1Yr0AtFElrmNeSzy
FVtLh3vWgmjejDvinvXIX9AT5B8SBCLN2AebWmg9k39PfVxrCCJnpwvX3+Yj
b3zwzAmVXhDdSD60r2Av8kZGSpSvPwNR8OtgifneyPs1IfCdwiiIXpX2vpdT
R97POVMKz30AUX2Jwt6mTOTVxWs4K2wEUXfzZ93/2TP0j8myskHU9/xt3YQg
5JWcyzinnw9khl736phpyHtfekpqThmQjRlzuA8lkZd0IvRzoSmQbabvzZ0N
kBf/J9vOowqI6eP9S3VKkRezfG5mew2Qkzs7M36FIy/QJ/9EehuQgBlX6/to
PJ8FAgkHWyB3t5jkbqP5XE+VTZfrBvJgebaJfxXyXFouiAfwgLyc94XTTeOd
c4tO1TsP5O2i8dpCum4/s9hK1Avkfb3KyhVtyDuyaUny4QEgeW4+7TNp/YcY
uw7P9ABSaHG4ic9B3t6zbmL5I0C+iU4elab2u8ViE908gVTq9xoKLJG3/VH5
wdViQFjbLYzDPJBnoDr4r8UXSMPkrr/dDsjTK1Z6HTkFyM8bwoIXQ8hT+31t
ZHQ6kO5HaQfsbJC3OiT+ZepdINxNkotXL0DeckWGmZ0kEEHUml9sBeTJZ/0b
WhgBhLyzuNBI/S/at+p5hTSQPu+2ydsoP/M5h3b7RgEZmLVg4Fwv8ubc9B7Q
WQRk8OA+m3e0vukySU/5T4AMWzToBdL9k5PrjWMVgPyVFjML5iB3fPukvoMv
gIyGyYBfPXKHm9ViJJYD+VfkeMspHLm/Lx3ZnvsGyFjmniueb5BLpgcS19VA
xh1mbNQWQy73edrjFckUswa+HXdBbtfGFsMmdYrHj0yUU0BuS5WEICyNYvbt
cOKB3IYz2g+NtCm+W/n3iwpymWMnYSiT+u+78YwbhNyKB3e4yXoUS/9M001F
7re1mZEnc2l+Q1thkgNyv37t0pcxoPk/Hli9jK7nHZnTU1ZA6/u7U21CLHIz
+zaF39wOZEjOvy3RErnpt8/orS+l/Pz7m1BM801RiOjkmADpfzZUnpCJ3Def
8u7G/ADya+K3U8cpjjPj6ezbC0S0IvtEIs3vSY90+xQGEP7MBSEyFEd5bg3O
PgSEna4eOEzjR84/r+VcD6RLzqzch/J3921Ui5I1kLadmJRF6/Vt6NW4YwOk
rudbpnABcj1/BEZkXAPCTAy6t4vy6fFFrr/5Ae0n3Uh9bW/kOr/Z9XEtPS9F
2T4PR0qRe/a/NtmDXUDyk1pzPlN8Oszd48YYkM/nvF6xaT7W7nF6P9YDSTVz
tYuj9R5y1P1vwAxI4iWDAhOq795jlf+WONDzYGcoekj53WE0iudjgDx6z3KP
p3xpzrMwmi0O5Hr/l/53dP86ccGrDbQ/LgcVmT+geOWIn/jxTUCcBM2id7S+
Je3vSlNcgBxT2vDHmtpLpEqYmjUA2WQ+N1aH/u6378mxCEsCkai2aWWaAnKa
DfZ/+lQMoi6PUl6wC3Lq1nMXtLaDqEHo5qzRhpwfi6Wb1GVAVGj+y/hsLHIy
uRdOVN0E0cPxz8VhFIcHKp6dux9EWpuv6NZOQ07I1cwyXScQrVy+YFDCGzmB
583XnLwFooVd4jb/i3fj4HXh+xwQjnXHufp5IMdBscZ1/3IQFv8bwa8c5AAG
XY8YAqF5us0CV3Xk6O3gfZFjg3BL2csIBRXkaFWYisfXgnBdxuiHxUHIWfVz
7r3sdBDOmDRSdIDGmzcS/brDGQRfIxKmrOUgm6OdxNLoBMHaFKX2iwbIDn9b
vbaqAnhtqeqrimKQHbJ+vat1DvDKkuQuLdyD7IDsB5+63gIvw+9MdcdeZF/7
Zm04FAS8W0WLJVz9kX26p9NKYRvw1v7X7Z9A13WXDQRcyATuhYol8Une2NMe
tbBldhywfw40+eicxp5m3alwJALYhXtTrthWYU9tw+/YN77ATgyLUZiejz3l
iytPGdoC2z379dxr6tjz8Zk/x10R2LO+hz+oFsOekHjS9/MF9OhM455augd7
tD8UT02Kha4rTlYtEk7YfZvpqmESA22fNz07xuzFrl2rPE46+QLDTv5T+owq
7BC6XkmcdB0eXRoz6ftPDNvf1CpXep/E71+lRCFRXdjmGBPVnfsAm7JbR2Ll
VbHNTscr2uM4NvVfVvtrL4VtJxinzderYPOanvqAYyrYdmiaWuabbGyOsW//
USiJbXCpOCSyBX9e/+HeZWiPbfNNfms4rsRWLanjd02CsfV639ORda7YbpTl
N6euFFsUk2aqtGZj14mhXbImetiyIDp5wuYb2OVGpHy/q2DL7NumDY/1sSuE
Gaj+vAd/jtiHBe/Px65PdltCbhbiT8YyKX5RCXbPSvwY5/MWf/o8XJjyloXd
HzMWampIYnOb90qtKyLsGXFvvzWlC5trnUtnslKRPXv23AkFCthcfsyhW+Mi
spfde5LzrhGbM/USH/B+I9v4WALjxjpsDhtYN3jsL7IfTLuzRzUCm8FRK9uI
9vXq56krYnyx6elBQwNJJXpO4+8u1/2NTZGO19rVQ5FrtSJOt8ABm4K80333
DiH3XKjz2zJLbHJNVi68V47ccGmxwdzn2LRTfOqueZeRW/dPdrMLYCP5VL5f
phh5pzQu5WxXxcatiy1OL3FEvn1f1gSdGGzcoBE2RZ+FfHcrC7/cImxcs7Mk
/vgW5AfEJ5ffM8JG6csbOc/mIT9u4AJ7tRw2cH8sPq+Qg/xW24hjXTnYEOHV
5q48GwX73GXcv/VjfWeHY9DqNBQqHr3//vV8rG9Yk2VTLY9CVYto3bHjWF/h
Nk33yh0U6unE/Wchi/VZU1/xCu1QuC8l3eTKUqwPXdtuenwBCm+6nF40OwTr
N16xlLrnicJa2OAQYYP16/Lj+To8FLa95jqu/4P1ShIDX1ssUMgbdNbcXIn1
s2Ii3daoo3DcpHP+Gj+s6/hSUVfYgaIVXzfOMT6MdXdnbo8ZMkaRy2BWvJUh
1vkeuu/29AOKrpb7Wj4+gHVXnnaabVdEke+t0aHfY1hnq+E9fu8viiLTJ94M
bcE6HYsc2zUpKMpoWNOhKoa17c/XrzwxH0V9dotvx3hjbS3PV2yKD4qGX/qM
u8pgbfn6qvq3IiRiZXeMVldj7cdi59tDJXSOKQuRurAGa0P4CYKIa0hWRa9z
ml9G55oNCu+LWumc5LHo8I9RrF270Wj4wA06R+XXt1ZTe0W9swbtC5Cc7g9x
nP4Ua2dveV85uhfJBZmKsR3iWNOz01CkmU/nt4NdOqkGWNO864x2/lEkgUKL
4BumWMPYHeJpOoQk5MLXBYXPsSbPnDXzrDqS+5qhfRs2Ys1DS7vVz2KRvEyV
fLxRgDV3rG+7rtuM5E3UpYsyJ7DG92hyVnY9kiTHhqaoSKxxtvljXCuJJP3H
x7GAn1iz4+ytMzN9kHwJad52RwNrNp97mxK9FElhYcAy3h2s0Txf+WdlNpIS
tv7ovSasWeq6IMCwD8kPXk/BPUTWn2sJcVdtkdTzjQc5msgS3PjBFx9D0nT5
VZlGIrI6vPo070cj+clRlPAKR1aFn96XdwwkHXd9zinKIqsw4ISEvjOSLnQY
1rVGVvYtv73fpyPpafL4/u0XsuJDvrf2bEPCYyyK2jmKrJi7vSsvtSERJL0/
+oGFrIjw+RcmUL5FF6+ORDgjy+v+0TG5DCS/shIbZvkh6/JDn+2JlO9+/QWG
2gxkOUa9uqsjQPI78UtNjQKyLGJEcgeUkQwasczEvZG155nUqTaqx9BFw0y3
68gyfL7hrTPVY/jWkJVEM7I2xln3/aV6jAQNzUm5hizVVzf1bt9H8veyUUmz
JLKUX8f5ylJ9Rne1e0QGImtRQsm3l+VI/klUK1vuRJbkW8FcTQeKM2QaVt9F
lniKpGX+ZCRjxh9SfRKQOZqqFWtK9RwrSa3csQ+ZfWmW7Caq57jGDLvyP8jk
ZHiqOVA9x/1L31VNRmbLx+fufy5TXMD/7bgZmazMojx/qu843yNQcgiZZdk8
8blJFI9dLAi9hsz83Nmmz4wp/tskNboVmR9R88Haboo7P/FzjZH5liN65bWa
4vcaBaYcZD6XSvxQSfUZt7Oue92MzIeb7YsV0ikW0/kivhuZIfaKtRcpH2M+
P5QUFZDpHdbS85Xm+48nn7bqKjLdsqIH59P++qerpfFpETIdOw9PtSum/FyY
c/lbFzJtZs2T/UT1/hvy8ViODjIPbahUmWZO+Q1b17LJD5kmNiEbrSi/w1ev
DcJjZELwTuNEWv+QyYusiXS/VsYky9ElVL+JiYZ/ziJz1U88a0r7ceD5w6/5
M5ApP/X61afxVO+V56+uWY9MCev+6K1Un162qDBpBTLG/N8lRrghIYovl9Wa
IKM/5Vx2J+13oZHV1iwvZLRM6GwKpP3H3Vw/2l+EDOaaZ/y6ICTseSl19L7G
KD10ZFSF6ttVHd1nshwZaW9Yct8tkLRN/DGDU4yM14zwdXL/63/3pfm21H/M
6B798/R50Vj1dNnKeci4ZV54XJL2Q80m/QF3aWQc+ZPx7NB1JKXs5JsK1sjY
p+DyLp72Y9ED2cJnWsjYYbIWh2i/FKxqN9vyCBnqT162RYci+SyRNKtKFRlT
jB4sa6X98/ZFvV+ME1aPOO/TVKf6vg75XTZ3AVaTqFmGvlTfuKOvbscVYXUD
P+CUMtUzOqNtyf2rWJ0S4fbyLNUnaKvXvmBPrI7L0cj4PAOJn8PEj7vmYnVU
t7BoJj1PXu4HD6m7YbWfrl13SgOSyyY33v7MwOrDbRYr+un5Ol6dlmyUitUT
VDckeM1FombrEBt9HasGJUtVPgbS56f7vu6mJKwS9Fu9Fo0gUXK79/10AVbV
Z96IP9GBRHaDumI1D6tSDQvitqah6F9+HE/GGKtOHDZ7MmU/ikrEXCa+EWLV
Id02Of1iFGH5kM5PAVbtlrv4n7seijIDduxYFYVVG9rvP2bT34eErH0ysdew
ava5xoel/SgKUSOFNz2w8rrYj2ULV6LI5FjHr8E0rLQv6pUPlkTRVt5Of831
WLk/ZN6SkSEU6dryeou1sHK1tNWi5lIUqSyc1eNqjxUNq7rnxzqgaPLjOFV5
K6zQ2f9v2spEFGb1Kwysl8Py/ldryYa1KJTZOrh88DqW/8y6eVPVHoXTPSel
duVheckPxpwVz1Aw9kJOc1sblv/354qarBQKehKfjplpY7nRzi/Og4Mo+PBR
LebLJ/x+n3dIlFWAAvMvBZ6bSrBsg5qXSN8S+ZfGdV7dyMcyhW3VXtoRyLeL
aOhg+WPZdEvl2eu+I/+w1Cz9hCf4rcX7m+pSel/QZVo3XWbht0DGvPPjSsgb
sx39t70eS+suvxbmi5Dn96WhurUZSzyyqoRGfsi92TQWJxmCJae0zAXGBci9
YGK1/UMTlpimVPBN6Zx2PP7FxhwNLFGMK+ceuoFc/VVaybaHsbj8bmm3vTty
hg/XSMn7YrHCyfyfQQ7IcbbnfZCejIWlEqk/yuk9e3fyaTf7FCyQtQpPOSiN
XTVjFlOYMZitXDqn6E8ath7oCAub/B5T/Ll3u5teIeNHi6y+8SO8f6opQ27f
Mcxyvbb/oNpSiHQrqLk+PQsyTbR3Za5Lh3eWPksndGgDc4+V/HiaMWQV6A1/
7lWCFnZy1wptecgS/vbf9uMGtMrmNq9LvgLZC1Nmf0+shdadn77QSyVkX1ym
1GQXDK2vHb4prWmBzwpTTUcae6FN8+eIiVIG5HgyX+gW5UEbmSxfrPkeUNfJ
5NN/1tBxXMkvwM0YCizNfjTE7YLueaOmShWmUHC+yD4loBe6VaxfB3yugAK/
TeN+DlHQvTlx/3HbMihIWaWxbh0Huu2WHFNQdoevkyfd984Mgu4Pe1+seHwf
vr7LPLLyRyn07G9pKspaDEVTl3HchnYC23f94tSSXCiSi/IxaRQB+/7Tmttk
LRRpzlkkn/sQ2PEjM7YsPApFR0d3f/PtAfZ3r/evZUehKK323ZJZgcCZhzam
J9Kh+HiIW6FiMXCeS83e8+45lHwYmCRluh24KTHvimv6oeTb8C+Jk6HAzS0q
ep/hDCU/x1rF3OqBW946Ufe8CZSKT8sWPXUELq+9MPmqBZRayLmWkVDgrVi5
M+SsKpT+2dbhd68eeI8T5Kcea4SyDRFfftc6Av+ygaVD/34oM3n0js9LB76P
tc5J0REoOx7zpGNsFPihtn848SehLDD+avXKUOC/MegtlbgFZbXZGskedH/T
ui8PFP7Cd/f25/aLRkGgX+BVlHYLyj+pe9edCAPBwKPNxjZ5UF7eA5sFgSCc
YBfoHe4J5R3//Xtx1QuEs5burS6Ugh+zp147H+kMQmVzXROLz/DjdMvlSSVm
INyXrNzjfhsqpO6cUVebDcI35uyrRAYqVAyXP8gRB2HaF+nQ+3lQoT/Y+dd4
DIS5crKq9zWh4uwpm2JbEQirw84Fly2Finw966MPK0A47LgxuaoLKs9zTIPG
QkFkxL5jyrsGlX5PZ4hCAkFk+ks1QC0HKh8fKDu4wAtEFl2TMqr4UFmIO+U1
nUHkEKAQ1DAZqmZ9V7BOXwmi4IyFD9/IQ9XpFwt72VNBVJbT6s+9A1UXbgwr
JfuBiHFoV2OkOlRdO1xvcWmczvO1BxZtLYWq8FkPc8QGQcSJkJe1/wJVn6/O
u7WIDWQySVhelwjVUntnLTErAaK7aW5P9g6olnOVaVedD2TLr/6egnyoXnFf
4dUsGyBG9ydYtqtAtV691trvI0DMH/tHxR2A6lM2RzbvWgvkdIIHqfCG6vO+
dmIqHkDOZk18MWE9VF956Vw4tQiIc7p/68p1UB3C8d1dfByIx1lrU58MqM5w
STiyLRxIcN3TcNMlUJ0XkS6v2AwkbMvWntvqUF2akdM5cRWQyLBknwspUN08
VOWYXwDkv77itV4vgTHFe/Ca/gCQt1lHjR7sBMacuAlblhgCeecWa7tfERgL
i2ZMGA0Fki53c42/BDBUJZbe/qwCJHvVny8ZIcCwuLf98UZrICXbNjjJNgLD
Jt38mGw8kLIDmdM0S4HhWGOl8KcfyA+zhAuNd4Fxc6HTmw93gDAnlUwKGAfG
7U3uTvcbgNTkckbVx4ARecxb/fIKIPW29lZf84Dx+nlkpiYC+el44nChOzDe
f31yQ2omkNYf1UvNtgDjc/dr+GUJpGNx8MNJj4BRtSq75F0fkB63LyendwOj
cXdhSNgWIBxfba3UHGB0na8wdw4BwvP4mb1BDhhD79vr1ikDESlnW7r7AnMi
k//fTBcgpKF7j48MMGcODBzn5wL5dVUzQeYOMGVlxxW/TwfSP/HJkNdGYC7T
m9aTaAHkt7tilac7MNcclUq8/QLIADOHcQyBqe0l5+xAgAwuPpPYVwfMXQVq
f1YGARl2aPlhawzMA1262eIsICPOLxIrbIB5XHybZ88yIH+P2wcuHQSmg4rp
1iJnIKMbV+zYkAdMV5PDU15mU/z358/X1P6Gk803/6lA/iXcNvlkAMzAUMe7
pw4CGduq/MjBCZjhqZf3GcZSXPC2wbMRmNEML+llQiDjqos1fYaB+fLLxefX
N1LsM2h82RuYKal261i+FOeHV1zVAGbmM8vsdeUUc7sMIlYCsyB0z45bMhT/
Ey3PjAFmuScw2mh/j4++ndNxEZi1TutP6CZS3CMbMzULmG1HVvAjflOcre6q
YghMnsmiKwKqx7hH3/Z9i4D5W3f25O2Uj3FFK+YLaWCOqUwIf8qg+X481XPA
FljTZAbkhuQo1p617/NMYElN4STss6f1Pt0/sP8msBb/btZOTKV89Gl8zpkL
rOWdlQWT6PkaVY+PLn0MLDXGV7NjRpRPq5TIG93A0v3ysfFjGOX7/I40WVNg
bUtNPDOnkepxzmm29AZgmT570n+W9sPQwcVlG+OBdTj03s0Cyv/gygPz7yKw
TnoGzFycSfXtnrPCZTewzjl5RLlNpPrfNTW6txdYbkeclCv20P5QmJ43Ggys
27oH9L3bgPROHt5ach5YkSo7vjWupv12eLnShmnAeiKrZ7H+MhBBZPE82Vpg
pQ4sc+6ZRvu1/JiZ4UNg1aeS2N0aQNr0non33AFWx7POtS9v0PPQpt4WfABY
gtDazH/FQJpclh8MqoEaMafc6lR6HmvN1yVn5UONisqdSdJUz+8S/svY66FG
U/ZmmDPVs3RC3zXJVKjZLH5pcSnVs7ArvX1lIdSYd1lrXaP65Z1VGWjfCjVX
YlXsWplAUs+nBPjfgRqfsMV9ukuBJGXeMvvvO9SEeM3xinAA8kYYH9qrBzXP
jvx5ZDQK5LlM+ky9UqgpkS0sTaR8hp9q+7zkKdTKhJ1cc9kNiCM35rWkJ9Qu
s8gh02l8Owd+4qRWqF27dEHaM8rviYpIzeREqN2aVKVbRv0d3MOpn6sCtU5l
YLyM1rNZ+onx6T6o/TplyekK+nwSr22cdTcEan+UX1U5rQ6i8c/XL61Jhtr6
SBZ/uBpEQ4EXt4jOQK1I8c6l5fNBxK08cqovHuoWwl+f69Eg+r5OB+xcoO7C
tYanKvEgur0wzeXUc6i7Zqh9Ms8YRN6n2K8f5UJdgMS95Qe4ILpy36tgdzTU
RUcZJ91cCyK7N/XuGU1QV/ThU3ZNGogMntrH6x6F+sW9D+p880D4Ky/cz6UY
6kvt90s214HQoHOoVOE91DMu19uFmIBQ+/vJoOp3UN/sdzxbNweEq2MKHa7M
hfre2HOnHsaCcN4//0qr1dCwoNH/414HEHR/2uWeKw8NZ80+Hfk6AoKA2c0y
p4KgcbqOXPxbOeCnO4w5ie5D4/ztL/5a0fvAq4cfjlTdgsalB1ftnSYG/Ecp
XaLoaGjUvKg9fLoL+NeffsHwC9Bo/dZ8z9Jk4BveGI+ftBIa38r7/IrYArzy
jWs+nbSEpj1T2Zuv2gC3svp87G0FaLIQ1ZSeXk3vOwOhk1Z9haaTNYUHzfqB
mzRhS9KCeGi6EvfcSTkQuLcqL/3zLoKmODjyX2UScLcYr0rd9geaRtwr/y4f
Bk58Wse/nGnQ/KY7M4sRAWy7dJ3dSaehZcrXYJ01X6HraR1vNFMOWub8ijuo
dhy6gopkogJXQssi+ZyLmkPQ5frs6urg+dCiel30Vm8tdO2Qk8pIegoth7UO
yBvfh06BNkd8lActb17JTbWzh06tPz8bjaqgdXdgct2zadCeNbXt2nAxtBm/
5ORIrICfchztKsZ8aA+asv1czhJ6L5myM9dzAXR0uCZMHBHDuy3qmepzxKBr
edHx3H2DWJUy89ayT5nQ7b988QmtJmyLdut3f5IK3bcD5mgP22Nb1pXmfFsD
6A7tnjQztxfb6h1jktWroPvxS172zsnYLrOsfX5gIXS/U86WtlLF9nCG7qm0
+dDdqGz53dMbO/zmvCo5cB961JUe6hSvwC6rF0Hpnr+hR9sveHZwKna52yht
b/eAHr1Oz25zPeyKnGatlbQHerbH2UXUm2NXuewPqVe90HNESUvI88Bu/XWz
K0zzoSdQkfly9nfsWTyRYRoTAz3NinMlD7sg+2tHVWFoPfS0L49We2OL7CbW
tmXORtDTs0rJbPgQsvuT9ULVN0NPr7r23f/0kKMkPSHvfhCwJ2+xnt46BTne
H/n5Fi+BvdY6bop9NHJ1FidoHisF9o1IrRG3QuSFyS9P++ENbJ+HeQuLPyIv
Lv79/s8cYAdG79SVTUBe5pz6XXdTgR3+3OpKVijy2gLXDzAmA/vlO8/f/6yQ
r/Yvz4HvAOzy78XEX4T8UsFrWb87wFky2bLr/kIUtDucnLglFTiKl2Xk/Tai
oH+ZK4O/ADgrO5nWrhYonPxur8Q+I+BofjWt2huBwpXGNiUG5cAx9jXMmTUT
hY4ON3+11APnstjayIAxFHKWW0nbGQPn6gVuhZscCgdnOBXdGAKOV+tridOb
UDSlYHrxgXzg3MZlNw09UKT4rEohzgM4z7xkHMd+ochaus3l8V7glI2KGV7p
ovN4SpS+/0bgVJ3L9TwzEUXfb1x5au0CnJqma5kWCiiqk7kqHd8GnLbsAVWt
YygSJhdUv/MGzp+rvIW9tUgWnLwT6awAnL/c1wdbfyNRDIqq9vQA7gSr02GV
85CsveqvdsYbuDM3tk5J3osEPjEbYileNsj8dfYbklNPzWc1SgJ35Zl7ay05
SJxmmga5KAB3bZ3ZGWNxJJe3tqgWBQFX52PpzxWGSPwn3rn9eAi4+isCF0jb
IAm5K720ie43fLjtwOSbSCJapjw36wWuqVtuaUcOktjqvku+BsDd3319UnUj
kteXLU/ONQau5aGNW/KHkCQ3DV+xeQPcU1ppGc+0kWQN58WE7wWuw8sLJPQg
Eny3e4rORuA6z1+32tMVSZFKp8ki+tzx6H8deyQFSeUZ8WMHaT1e4iNKdVpI
mE2N+2ZYAtdv0Z7X+z8jqV9sn5xK8V2DXym7SpG0DqfYK9N4EQeNNIrMkXQ+
Elg8cQDuozMPPxhQPnvG2Q27o4D7PHRTjk4nEuHaxQ6jNH7881BId0RCSI2U
tDpw32a0fVXtRdJ3wzzAn/pPLV2/I/EKkt/Vu7e5Ub4+NAWULR9D8kcUlNRJ
/WWL6k2f+yMZYpZOukf5yZ+4unrJDCQj3t8cxam/ImnPg1ERSP4O7On0pfWU
qVTWz1+A5J+G1IFxMfqc3ax4JOwpkrH1Dd5KHOCyzC+3zlhO8T/bWdvoeoNt
iW3g//6/vHvOZ18+cFvcF/ZM1Pzf/5UfDDupPp23nc56Zv3vvaixx8sof5yY
PMGwAcUd4m9LaL7C1Lkul4spvn3HT04FuH1fT/X3mlL/f8yncqneg7Ufr5xj
Uawya9K1KuCO8qaNsK1pfksD5MNdgDfh3xEv23aaf4Nbzwkb4E2VTJnQ4kDr
s3xScKsNeDOVxQKsRLT+/7LHJfcCb67OgWk1bpSfFyElx+mcK2Py6s7eUcqf
U8XK9dOAt/jY0JxyXyS/Rgymx0oCT+GiSaTxNMq/ybMt4sbAW+7/ROZrGBLB
sQTnWQbAW/2IRIMMEu56uZVPKFZ7a7gkOwZJd1lGXUMs8LTy7j/foISkQ1m9
fGEv8HSr2crvE5G0gKlGlzfwtg3dWfPmE5KarCMOvzcCb9eMlnfKW5BUyxYP
/KH1mclraD4rRFK+ofhcbxTwLLfX6j5kIPny4dKaJbSeY1YquVKWSHLmP1a/
TePZOl03uNuK5ON6o0eHVIDnFKmw01+AJCFl8XMjii/Gu34Xu4QkTgLFLEuB
555VZHZ9BEmMUt3GFzQf7zbHQ5emIrkbcXD3BcpnQH9OvSgUSUCPWltNOPBC
ps456jgfiefg+aLVlL8H6zJOnVREcn7vaOhcD+BFbxXvaX6D5HTU1zVpb4D3
7KCVo6UakiMxdcEWlL+Ea2MXzTcjMa5nPj5G13NLjW/qH0aisMBjbwzNp6Bg
Ts9AMxJp1zOn1lP/JZ/rzFJskUy/rcrqo/6r39kvlXdCUb9Af9V2qlf3Q7/c
Cb4o+uozy/gm3c8L362cPQ1FH7PdGl5nAo8ES91xvYuihJRY22kLgDfs+fxI
ZxSKQovXsR3UgT/rdN5IUQqKDiUWzwEP4EsdD7T10kLRjrRGj3kLgC9raVq2
IQtFOpciOlh7gb9sd/Pj14UoWrCkxU+GA3xtzZGNtxtQWDv7ZMJVuv/YBG13
s8koNFLMOnCyF/gnR0ZbxINRqH7/W03SG+Db/y7cjnNQKPd5TXSYAvBdOAek
1Reh4LdS2cyD1N6/0iVDSg0Fz47mfvhL80l68vZXrTXy2WqX5Yxpvu8fXbIK
bUN+RZHz59MOwP94T+/LTjvkf5yxS3FPKfDz/b+FZ7og3+/VjaR4as86x1aL
DkT+4hn9b25aAn9UT/H88ffI0ztpe3trFQgmxC7p/WCLvEV7Ekw+hINgqvjC
yzPnI3eYpTPqTdfnMiSvZbkj99PHtNtmbSBYeXYsaL4eclXzMlfckgTB/seN
L74VIEfi1kHRRXUQHB6vXaFwCdmd020iLxqA4JhddcIVZWTnKH34ZEmxg0Zp
qnIgss/LfmyxtgGB57ePuTd3Y8+3kVNpGd4geDMcUa/Fwu4LB83ubaP5pJwI
PRISgN2Gs0TLCMXpRbdbOjZg9/zDSUkusSDIu+fdHRaFXZ8eD4ysofasVc59
vGPYOVSR/aWAro9b7Z71rAc77GL9bf+5gPBQ1qRt04fwZ7na+tCkNhBaF9yf
LZLCn0dVQ6IFBiA8Ua7cWL0Gm/kHP2kqe4PwbOsO10fHsXmqVIO5Yz4Ivabc
fqH0FRu1tjnpWyuAMH6/5ITNoVh7ukUsdzH194cvh87LsVzL0jF4A/X393dy
yL4t+H3xGV+hkQGIxMa2HNayxDKxKH376/kgmjH3hGgkGEuKLPs3nqfr8jpx
SwN78etGtdyk42Ig2um/yvNZDqb7sZNf1nuDKGrJhk3V++GDsWdi/AhdfxLx
V2n/I8jUsDLU2k5x3LT86cxm+Cw/pUzjH8XJv3c11NpDvr/LyfLlNN7X78eu
NF2H4hB/VYnnFJOr/undL6E6SK56sbEBkB01zDXDf6BVLKmWo0Dn9j27o+Zd
3wStnTvCmZe8gez7cnRk1BvaTj3+rH+T7j+a1PNtfDq07wo4/tGQzpmufiMO
k+Whc4nd3QcSLkCeai57OdsYerqzMif8qqJza6iLnOJjEI3qq6rJ07l5IHPD
5BkzgYjtGEz+rE5x+19+vxeQyXv5d+UlgfzRvvW50BbITLv9Fzuo/z/Nz47Y
rwUiFy4nqKP5Da2uiE7Io/OY8NVlep8kIyXrFqp3AfEsDVGppPFGevsnLLQA
4lP3wk9E/f1dlMmdUAr0edZ1dJDG++tslMlIBhI6hX3HmdY3Kn3U8rI7zXs7
f8Sd1vfvVMijTAk6j/4QtkoqUHx3381YOv8WtCYHbqD+/32SPRMkAlL861HW
T2o/Nj1Ox4oBpFKaX7aX1jf2Prv2bwyQVpuIhMM03liTd17XbCCdl+IrxGm+
41N2xJdTO3Zgd6CvGMWWDPcndkBIcsdHH1rvuG/U8YB6Os9/ea7WQPeNJx3f
4WwCZLAm2OBFL8W1yqoWObQO7hNuSSr8//vH8P/vH/8frZbVcg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  AxesStyle->Arrowheads[{0, 0.03}],
  BaseStyle->Thickness[Large],
  PlotRange->{{-1, 1}, {-1.2, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.449318415997017*^9, 3.449318434706348*^9}}],

Cell[TextData[{
 "4) ",
 StyleBox["Here is a sequence of graphs of",
  FontWeight->"Plain"],
 StyleBox[" ", "Input",
  FontWeight->"Plain"],
 StyleBox[Cell[BoxData[
  RowBox[{"y", "=", 
   SuperscriptBox["x", "2"]}]], "Input",
  CellChangeTimes->{{3.449336971409465*^9, 3.4493369772614193`*^9}}], 
  "Input"],
 StyleBox[",", "Input"],
 StyleBox[" in blue,", "Text",
  FontWeight->"Plain"],
 StyleBox[" ", "Text"],
 StyleBox["with four different tangent lines in red. The tangent lines have \
the equation ", "Text",
  FontWeight->"Plain"],
 Cell[BoxData[
  RowBox[{"y", "=", 
   RowBox[{
    RowBox[{"2", "ax"}], "-", 
    SuperscriptBox["a", "2"]}]}]], "Input",
  CellChangeTimes->{{3.449336994022888*^9, 3.4493370008297853`*^9}}],
 StyleBox[" where ", "Text",
  FontWeight->"Plain"],
 StyleBox["a=.2,.4,.6,.8", "Input"],
 StyleBox[" and intersect the graph at ", "Text",
  FontWeight->"Plain"],
 Cell[BoxData[
  StyleBox[
   RowBox[{"(", 
    RowBox[{"a", ",", 
     SuperscriptBox["a", "2"]}], ")"}], "Input"]],
  CellChangeTimes->{{3.449336827764578*^9, 3.4493368347479887`*^9}}],
 StyleBox[".", "Input",
  FontWeight->"Plain"],
 StyleBox["What ",
  FontWeight->"Plain"],
 StyleBox["Mathematica",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 StyleBox[" commands can be used to generate this graph? ",
  FontWeight->"Plain"],
 StyleBox["You will notice that as you change the size of the notebook \
window, the four graphs change size to fill it. Look up ", "Text",
  FontWeight->"Plain"],
 StyleBox["ImageSize", "Input"],
 StyleBox[" to see how this is done.", "Text",
  FontWeight->"Plain"]
}], "Text",
 CellChangeTimes->{{3.4492490882685423`*^9, 3.449249090953267*^9}, {
   3.449318616449185*^9, 3.449318701495038*^9}, {3.449319162678463*^9, 
   3.449319309359614*^9}, {3.449319341342568*^9, 3.449319487626075*^9}, {
   3.4493368081908693`*^9, 3.449336850836215*^9}, {3.449336987997615*^9, 
   3.449337009787328*^9}, {3.461417501701527*^9, 3.4614175025914*^9}, 
   3.461417742702835*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {{InsetBox[
      GraphicsBox[{{}, {}, 
        {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwVlmk8FGobhy1ZUk3oSDM4TtYWTU62EvMnylIhW1mayBplKVE61kzloOXk
RSh7Zd85yD5okWQJYdQQsjQ5mqiUd+bD8/v/rvu57+v++DyWvqe3uvHw8PBx
zgNuUmw+Nr2edjPVaeBb2L1k+QXqxDE/ksEaymW9QZ8S/WgYEstTk9LUKPf0
vCweqbbBTCkoQkF6glLgaWZeURUIa+L9soGXhyk1emr6K6VasJNdzZGJVaC0
1sr6G3tsAlXJOdHFdIXS6am45oUdL5wTnOl9UTOUXhuJXa2J6nAl/lO/5Hqc
MqQnWVu/mAP31NZqkgGdMsYmbbdu7sMZ2S8luvKqlPFagg6dhwHvLMVcJ75U
yhTjlk3+UAl8lGwzI5nClDlP0VPOs87ws2592fOulvI537hgkbQE/wRHU1cL
P8qizVq5VMciBBDjDK7vHqV801u7pKDhhYsOik1b0uIpKxGmtnydfghMbdDJ
22hKWWWLFBqHjeOyLEuj81MV+GsFMqMerEOw8/UyKvUsBBpzWlrkvHAl6w8y
q0sOQgzamJoGH0KVjm0TL7yJ9Z6C60vWDCDM42N2tsxBEHoeytS1SCLculk0
uT0UovkGEiHXOhCRYBenoqmOTTb8MiLKtxFF/PuauUQ6iHr8EicafBFVa0tP
fHkFpLdWhIL+OdAc5Pne0WwhHWEgSKqg4VpqXZg/ez1k2Xwsgw4RRMvOXYrv
uwT5Wl4bt/RSRDf9WzUaawWFmlzTwKcM/O0cxVYyJEOxMYMS35eMmCwZ/+ry
CSgzIuSXEmpxU8nM6+3dY1Dx5Bk/3paNmx2kXPnDKtiVvK27W0Qftzwmp87y
C4Pck15vs+ccbls3lv6qOQXVfD2T1s1VuJNwgnx7uwTUbHhI+h7CiCdGK5cL
R2AfVrMvOH5HvF/ZjTtGO6AtPfhH/qEfiO8Y/uhL64H2T3f9ii3G+F8gOV+F
XwE6z7LO7/V7jYSePnL2z3boGVm001aacS9WViNhcT0M3WytWepNuDdunHDx
z0oYLvjW/OO6G8na/ktWflQcDHP5/EDoIJKn6TUb54txKH2k/9NjV6Qe9NK5
MW0J4++iIRdtg/DgV6VB8GgSzATC9LY4TyHNhpFtJ60Ps+KDLw68aENaobCA
lv0MzO2ntvXnmiB9V6HL5bnfYeEwuiv5VBbSR3gUNc/44ljra7OzO28gc2/O
42JXcVg36Zq8Tf6G7IXPxRl2J+DgraDMHPRDDilTxHqYBYc3EiXb3R2QY2Dl
Jky9Bkf9Nxq2T+eQE19F8nUpx0kpuqb7uhU81LpC0/UhgDpkvck2+j0ehQja
D0W2wVk3IxVljsgTlhYUK9gDt127E5cPGyFP9aVTG/kZ3HyTdtwYSUCeXWjd
pVInuJV57o8d1EJe3nu/sao4uO+jDLII/sg/+nC4sGkaHofbeaUDO1Bw989S
k/4HOBOlIySluYTi340cI1bXwedA+8fHF/1QfEiFevxMEnxu3xqST4tBsY+Y
k0qfAnwYT/T7Q6NRXD/sMpBLge9fCB110EIJuboyIbcGfieXehs6clDSdfjJ
nNU8/B/+sAtb2I6yDRdeJD62QQDVfOgacRFlW92PRJ5MRUCM90TRz6Mo0zjx
8pw4EwH/1hRc2C+JspO6rw6E+OLiphn/l+1rUFYo1DNvGY2Lnem9L4j7UH4k
5e2BlXoEGTl9mayUQEVM6/SnY4oIPk3Oz2i5iYoMD22jMBKC7zH0m1M6UVEt
EpNeKIrg10+plmleqGAeI1sJf8eVA0d2PFWsR+VexoXqpm78pSQuxkseROWH
5V8RqsEIWU4Uz9/TjGo98m+/bexC+EQL2ze8ATVfkrCvKwi0DVeCTo+aoFb4
2YdKMgE0smmYGvEuaqV/xKrGZYNmrsZfn9qC2oPUIeUjr0G7Y3GVN2gAtQmK
F357sRPXNtfbG4b3o06r7CGrYwzXlaje1QwSngS/JOQ0GyH6RAPJqq0bjby8
DLEKSdxcu/jQyeQTWnRedRowqxD/rLYgLfg56HN2Uve9WpDiGLnu8XkiOs4V
btRVYiND+Y+C6znueK4oJZr/jQ85jkG89MlQdBZZVTmtaiK34inZVeo+Xu1o
71KP6kSRA4mquU0e3Z9yv83elkXp7P4fxasE9Kj2M8aWZlFRFGgwvNSJ3puE
53Uz2aietPAkRaSib2KC9UiGgDoTwXcpaWF4o5DuXnkmFg056/+LlnLEQJjn
RL7eVzTry4nniPlhsHVzBX1PAFq3G3kvhDnh7dbXMfSiMbQd36JXsIGF4eDt
KX1eP9CRuBzv1xKKkTr3X0L6O/GsU7fmjpwCGJKlHlszjdB5JFRFu+sVxhzf
y52SCUJXPW/H0YFQvDs6sM5mTgXd97d1tKoL4t13uvDnjZvQs4ZpYndoBe9T
5YtTGteg17kxzn6mHczDa4fq1L3RN6O52TAiEsyvDemnTfLxJlhEMlwqHOMJ
k6KkWTYGfizEDi0bYsIwnt/IqhJDBYlLj86qY2KyIo1mHIbhoy2yRZdu4QMt
a9B0dCtGFndYUtQCMLmHGB+lpQ3Gc5e9AdX/YrKX99ur3x3xzugfYoyhPaYi
/Jhxz9l4bygz6phFxLSCZQB1TRKYmtnTUxZBmKbzZVYyNmF8R0W8/d5b+Oi/
zzoiRAAT2sF/2gx3YEacWUzN5cEHSl2k4fwyZlrE44qTz2Py1JIyhcCPWR8x
4Rs76zF1Vcsq+upGzBEiVc6bimH6npdzk89PzD253Nu9awQfu3Ye/jJfgHnq
hAIelGCGvXni9HNJzP+SEdMsPok5ac7L+UwDn/JGIjJo4Zh3mW8ce/gFrCOE
FJnpQnxKFRNb8P4brO8dewlix8Bi3zIFdZ7DI1J8Apw6u2aty2gbhz//ZH+j
c5j5NCv9Llg/SK2jTE2wvmoaBfy3gcM+5oXlJA6PHqLSQ8BakfA4as0Ea3mn
ibmyJVg/XRJikwK4e1wyJ95w+NLl8NhCDi8o7WZy9v6McwwIn+R6pwflWzhc
Led45gTX6xN8PhKsXyJFKtq6XO8VQXC5tO3FiCDXe087MZDD7Y8bu8H1nLzS
Z8jh4Zhy+iWuZ+ugDadvVeBYSsEM15M3zvkfsFZPjHqHdHE9DZgr5vC5plPn
hbhzVx1MlDgcmWXlrsedM77z8Q4nC87sNyvjzvVafDXiZPOR3QdmuX1JQ6e5
9292y2spcPuoIeKvOTkrLrmTyq0r6AgJc3KVvU42kZszm7Hn/96czxU=
          "]]}, 
        {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwV0Hk41HkAx/EZR5R2GC12xkNIUil21qKDj65HOSL0lLJCElpHnukJ+7TN
7FNbW9gOyUabMnazzhyVh/pNTIrc16BhmNBkhrG7ISqz3/3j87yf178f//hw
y2M0Gk2DbO//ddv/TtghP+ZJCVJG6OlDBXBkSRPYO7QoQUxzxqQ6BTtZFTlZ
d76hBIce2/pYeCKQdbtc3OJFCTb/6qsXpkAE69qTuYgDVN6Ca86FsQ3gstJ2
XLAfpPKSbznzFA9wjnXpZ1+jXOpeUkBs4odqZLB+WVOhy6dyTz3vP2D4EoK/
p0vvBh2kshy/dWJ4jKHU3COYr9ajrhjUFgpnL6Lycr18at9qime3K+oSPwnV
77OwqfU0tnMmleIj7qDo9CFmpQn4nm+38QKFqNva1rxD9hBXI+MX90gfQqQM
Mr0dU4ffFtMa6fNcvIgt1ne1mcFdemR7RX0imlabGhTOayD/kHHnYrEVmksC
HoaqnVAQJZZY+N1H27qGVsdzzSg+uja73yYC7VMF84orK1E2oP24Rz8dnQ49
Q9I5BcoHz66xlXejK53RVDMhQNVy99yLXZnoHh1V/WnGwCOHplOOBxLRa50b
WRWdimqH4BYvl60Qn40aLXSfRc1hZ4e4dTz01RtXijhcPAljG39KLsOAZcdl
UYkU1LVdupkDh/A6ZW12d8xHCCU5657GMCGpiVzU2bYezwZvGb41isGQyYPj
lvc8UPd+K+1GIx/S4BGrI2anUf8h3H7B7gsM+4j19ivtIJr7Pk3rsC2GF0S6
0/or0LCcrcq4TsNIzqrSbEoLLxg+1weS90LmtbS/xvEEXtpYu/4RFQTZ7NPc
8D2FaHSRGn216l+8yRw3YCtm0LTJfCPSNTG6M0PTI6AKr3zp3pO0NoyOV945
v/ssmv2jiv2sVmDsfF6f56AlWvwqtwTpv8E4h5VxznkzWiPyWuVLTmK8iz7f
Zh6MtkgTgV3hKbzlJ8jSmmbQ7naT+qEoB3Jrf26IVhbahWMtNQOPIRdp3Ksa
WoEO9/x/WlVsvDu5KZB/Rhsdr1zY+ToSTBjKSkMKaOj0Tj26f64PE3WGaaW3
EtHZV17SqORAEcfUvbj+CbrCvZgGDd1QMn6yS/RkokuWn8FJKoeyNrmrfYME
3bGdbJONU5gMGbXG72XoVgmFvbURmFw0YzqVfoeeeMsfox2sMPWXhH/3PA89
84FuT++7QeXNyDaTF6M3Zc/KqbkMqBZeuDCY+yBeYqAp8/ImlphqaF8itqhO
3DZMPP15Zl5E/HW8hgsXqo/s+kGZE7H/gNXqHOI43+IKNvGNsjC1EqpPRsd9
AmUQ65gGj1SmQvX5aGZqFhdiXZuqEbNW4qRkXmoxsfOJk1+GE6cFc3njxLst
6ctmiR9ZBUcfJI5OtfhgDtXishK7za7EReGhnXHED56/kiyBeCmHMXzBgLjh
PtUO4u2ihDMC4teXK0RJxAEpNK4LVGrtfdlFE8TcMYuwUOKDgyfOtBI/qgnd
UkYcKzySqEP8MmGas5P4p7yASHfifhuebR9xUfSWveXEC1dzjWnEz7zttysg
Xqbn4bCc/KfutV/lbE1s+kmoaUusMDRZH0JsV+47X0usntFbeZPY9bh02u8/
J/5tsQ==
          "]]}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->True,
       AxesOrigin->{0, 0},
       BaseStyle->Thickness[0.007],
       PlotRange->{{0, 1}, {-0.2, 1.2}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], Automatic}], {192., -118.66252583997979`}, 
      ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[
      GraphicsBox[{{}, {}, 
        {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwVlmk8FGobhy1ZUk3oSDM4TtYWTU62EvMnylIhW1mayBplKVE61kzloOXk
RSh7Zd85yD5okWQJYdQQsjQ5mqiUd+bD8/v/rvu57+v++DyWvqe3uvHw8PBx
zgNuUmw+Nr2edjPVaeBb2L1k+QXqxDE/ksEaymW9QZ8S/WgYEstTk9LUKPf0
vCweqbbBTCkoQkF6glLgaWZeURUIa+L9soGXhyk1emr6K6VasJNdzZGJVaC0
1sr6G3tsAlXJOdHFdIXS6am45oUdL5wTnOl9UTOUXhuJXa2J6nAl/lO/5Hqc
MqQnWVu/mAP31NZqkgGdMsYmbbdu7sMZ2S8luvKqlPFagg6dhwHvLMVcJ75U
yhTjlk3+UAl8lGwzI5nClDlP0VPOs87ws2592fOulvI537hgkbQE/wRHU1cL
P8qizVq5VMciBBDjDK7vHqV801u7pKDhhYsOik1b0uIpKxGmtnydfghMbdDJ
22hKWWWLFBqHjeOyLEuj81MV+GsFMqMerEOw8/UyKvUsBBpzWlrkvHAl6w8y
q0sOQgzamJoGH0KVjm0TL7yJ9Z6C60vWDCDM42N2tsxBEHoeytS1SCLculk0
uT0UovkGEiHXOhCRYBenoqmOTTb8MiLKtxFF/PuauUQ6iHr8EicafBFVa0tP
fHkFpLdWhIL+OdAc5Pne0WwhHWEgSKqg4VpqXZg/ez1k2Xwsgw4RRMvOXYrv
uwT5Wl4bt/RSRDf9WzUaawWFmlzTwKcM/O0cxVYyJEOxMYMS35eMmCwZ/+ry
CSgzIuSXEmpxU8nM6+3dY1Dx5Bk/3paNmx2kXPnDKtiVvK27W0Qftzwmp87y
C4Pck15vs+ccbls3lv6qOQXVfD2T1s1VuJNwgnx7uwTUbHhI+h7CiCdGK5cL
R2AfVrMvOH5HvF/ZjTtGO6AtPfhH/qEfiO8Y/uhL64H2T3f9ii3G+F8gOV+F
XwE6z7LO7/V7jYSePnL2z3boGVm001aacS9WViNhcT0M3WytWepNuDdunHDx
z0oYLvjW/OO6G8na/ktWflQcDHP5/EDoIJKn6TUb54txKH2k/9NjV6Qe9NK5
MW0J4++iIRdtg/DgV6VB8GgSzATC9LY4TyHNhpFtJ60Ps+KDLw68aENaobCA
lv0MzO2ntvXnmiB9V6HL5bnfYeEwuiv5VBbSR3gUNc/44ljra7OzO28gc2/O
42JXcVg36Zq8Tf6G7IXPxRl2J+DgraDMHPRDDilTxHqYBYc3EiXb3R2QY2Dl
Jky9Bkf9Nxq2T+eQE19F8nUpx0kpuqb7uhU81LpC0/UhgDpkvck2+j0ehQja
D0W2wVk3IxVljsgTlhYUK9gDt127E5cPGyFP9aVTG/kZ3HyTdtwYSUCeXWjd
pVInuJV57o8d1EJe3nu/sao4uO+jDLII/sg/+nC4sGkaHofbeaUDO1Bw989S
k/4HOBOlIySluYTi340cI1bXwedA+8fHF/1QfEiFevxMEnxu3xqST4tBsY+Y
k0qfAnwYT/T7Q6NRXD/sMpBLge9fCB110EIJuboyIbcGfieXehs6clDSdfjJ
nNU8/B/+sAtb2I6yDRdeJD62QQDVfOgacRFlW92PRJ5MRUCM90TRz6Mo0zjx
8pw4EwH/1hRc2C+JspO6rw6E+OLiphn/l+1rUFYo1DNvGY2Lnem9L4j7UH4k
5e2BlXoEGTl9mayUQEVM6/SnY4oIPk3Oz2i5iYoMD22jMBKC7zH0m1M6UVEt
EpNeKIrg10+plmleqGAeI1sJf8eVA0d2PFWsR+VexoXqpm78pSQuxkseROWH
5V8RqsEIWU4Uz9/TjGo98m+/bexC+EQL2ze8ATVfkrCvKwi0DVeCTo+aoFb4
2YdKMgE0smmYGvEuaqV/xKrGZYNmrsZfn9qC2oPUIeUjr0G7Y3GVN2gAtQmK
F357sRPXNtfbG4b3o06r7CGrYwzXlaje1QwSngS/JOQ0GyH6RAPJqq0bjby8
DLEKSdxcu/jQyeQTWnRedRowqxD/rLYgLfg56HN2Uve9WpDiGLnu8XkiOs4V
btRVYiND+Y+C6znueK4oJZr/jQ85jkG89MlQdBZZVTmtaiK34inZVeo+Xu1o
71KP6kSRA4mquU0e3Z9yv83elkXp7P4fxasE9Kj2M8aWZlFRFGgwvNSJ3puE
53Uz2aietPAkRaSib2KC9UiGgDoTwXcpaWF4o5DuXnkmFg056/+LlnLEQJjn
RL7eVzTry4nniPlhsHVzBX1PAFq3G3kvhDnh7dbXMfSiMbQd36JXsIGF4eDt
KX1eP9CRuBzv1xKKkTr3X0L6O/GsU7fmjpwCGJKlHlszjdB5JFRFu+sVxhzf
y52SCUJXPW/H0YFQvDs6sM5mTgXd97d1tKoL4t13uvDnjZvQs4ZpYndoBe9T
5YtTGteg17kxzn6mHczDa4fq1L3RN6O52TAiEsyvDemnTfLxJlhEMlwqHOMJ
k6KkWTYGfizEDi0bYsIwnt/IqhJDBYlLj86qY2KyIo1mHIbhoy2yRZdu4QMt
a9B0dCtGFndYUtQCMLmHGB+lpQ3Gc5e9AdX/YrKX99ur3x3xzugfYoyhPaYi
/Jhxz9l4bygz6phFxLSCZQB1TRKYmtnTUxZBmKbzZVYyNmF8R0W8/d5b+Oi/
zzoiRAAT2sF/2gx3YEacWUzN5cEHSl2k4fwyZlrE44qTz2Py1JIyhcCPWR8x
4Rs76zF1Vcsq+upGzBEiVc6bimH6npdzk89PzD253Nu9awQfu3Ye/jJfgHnq
hAIelGCGvXni9HNJzP+SEdMsPok5ac7L+UwDn/JGIjJo4Zh3mW8ce/gFrCOE
FJnpQnxKFRNb8P4brO8dewlix8Bi3zIFdZ7DI1J8Apw6u2aty2gbhz//ZH+j
c5j5NCv9Llg/SK2jTE2wvmoaBfy3gcM+5oXlJA6PHqLSQ8BakfA4as0Ea3mn
ibmyJVg/XRJikwK4e1wyJ95w+NLl8NhCDi8o7WZy9v6McwwIn+R6pwflWzhc
Led45gTX6xN8PhKsXyJFKtq6XO8VQXC5tO3FiCDXe087MZDD7Y8bu8H1nLzS
Z8jh4Zhy+iWuZ+ugDadvVeBYSsEM15M3zvkfsFZPjHqHdHE9DZgr5vC5plPn
hbhzVx1MlDgcmWXlrsedM77z8Q4nC87sNyvjzvVafDXiZPOR3QdmuX1JQ6e5
9292y2spcPuoIeKvOTkrLrmTyq0r6AgJc3KVvU42kZszm7Hn/96czxU=
          "]]}, 
        {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwVx38803kcwHEcUS6FVJtbJaorPJSU49JbqvOjFLa6QtPDr/xIdUv5UR6s
S4mJo4uHX4XuURKzNlS4r+xbSspifsSYzddubdq4R2h+3uf+eD1ej6ff+WCL
MC0tLR3Ukf+/99jn5o/yMC8MT5RYlSTkggNJfIG8XxfDGT2qI0tn4QCJW5R/
byeGR7XXzxeEAI1U/LT3/SEM9392KLDBAUJJOU3Tob9iuHMWgzzXDbGkzP03
7QYx/owLlpeyGq6T0m8cNbuP8RMK/LNvFMAd0q0tXAMm1hJPzb6WWwYPJsbZ
pSdPYM1eSRP+RY7AXuceyFw0xBp/h+LbWc3Ay+DLVb6bsGep/5YKeP3w/Gs+
OH2Iw3j2ZlkzdYuAaWsPGfPWYDU/bonzXjwMLXs62vdL67CHWX5/mHi6AT52
0rw4qgUrVkWyeEEG0BpTtcJl8ySW8a6rvjPNB9o2ma+s1OhAtIwTZbqqGdqr
qXWnF3dDbn2/75vxGujY9vqDw/V2KBVkPzpuKQCBqkKjzF4Pjxk06jczV+jc
3j0knlYCx5WypLzJBrpuG7U1KB5AbfE9TUhODQgJQv2QYgTPZdyyFwUR0GN1
P7w2kgVNo31+8oA56E2OICpdp+Al5TUrb4Mb9PFX83D7WOBbVlzcdJ4B/RYf
M/BqMbyiCUMxwQ8wkLi1UBg1C61XWjl/vSVA1BC+oL/PGt4m8ZnTG+7C0BrO
GYsyd3hXqX+KloaDOFCyMYgSB++51EaKtwiGvXsNj43ZQAcn4vKOJyYwPIMb
jK8wBcGX4OKK5RKQFFmyCzFd+Kj+c5/qqx1IDy391OAQDV360coXI84gnfr7
frBnJQjJm/k2JUIYuStbSVZOQjc5TEQzIIA4cOc7d2ot9Gz3mNW+UgOEjHcv
1SMZenfWBIQWfYXR1PI+r0EL6Nsx+zkmHQeZPenOdUdn+HRQeXWO6QeyLm1N
x7pA6HcP8tu3+Tj8w7wgzWybhAF6nK2hcC3Irfxi6br5IAox9WRt9wE5rlNW
O2QKg8G5uU9ProLPvznRmEl6MBRXP0JPzweFiZRNr9ACceLp2OaobFC0mGSy
Cxgw7Hk8Vbi1HJTnjA3SrJtguFMlN9c9CGNG12wYXsYgoXpG76nbCGONCV0C
WxFIhi5NWJylwxc6YQUlNSA9HZo3rOmGLwsU493sUyAVvzp2MSYHVI9FzNLU
FBiJ/Gb2ZrQa1IeNCinyKhhRjE1pdumBeqb1JyNjXyAuc/vH0hqRReY6eunI
ePbVZB/k8flJDY7c/cv3l0ZBPUvmD0p3I09xbEKWI587WsUlAxHndPOsyylQ
z5md8aZJkbGdyol5UM+H3GXlxwIR38ZSBuxFjk9IYVUhD7hd8e1EzgyMTZEh
K78ZeoQj128MjDwBRMLyEOtdt0G9sKzaxtkF2ccpeoUYmfPqnWgJcveoAk9B
fv0IEwCyrDCxYRXyQAYXj0ee9l3GeQTqRT3fwicKIBLXNm4rESCfGIxO+oAc
kBOVsAE5pjmIoY981n3mPA/5Wjk13BX56nx6uAfyk8ifjzxFLol4TL2A/PKw
nZsSmb3O2UsXucfO0tEKGetqc81HVpqssaYjC275O9oiL04ars9DluxV2L78
D/6ekvU=
          "]]}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->True,
       AxesOrigin->{0, 0},
       BaseStyle->Thickness[0.007],
       PlotRange->{{0, 1}, {-0.2, 1.2}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], Automatic}], {576., -118.66252583997979`}, 
      ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}]}, {InsetBox[
      GraphicsBox[{{}, {}, 
        {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwVlmk8FGobhy1ZUk3oSDM4TtYWTU62EvMnylIhW1mayBplKVE61kzloOXk
RSh7Zd85yD5okWQJYdQQsjQ5mqiUd+bD8/v/rvu57+v++DyWvqe3uvHw8PBx
zgNuUmw+Nr2edjPVaeBb2L1k+QXqxDE/ksEaymW9QZ8S/WgYEstTk9LUKPf0
vCweqbbBTCkoQkF6glLgaWZeURUIa+L9soGXhyk1emr6K6VasJNdzZGJVaC0
1sr6G3tsAlXJOdHFdIXS6am45oUdL5wTnOl9UTOUXhuJXa2J6nAl/lO/5Hqc
MqQnWVu/mAP31NZqkgGdMsYmbbdu7sMZ2S8luvKqlPFagg6dhwHvLMVcJ75U
yhTjlk3+UAl8lGwzI5nClDlP0VPOs87ws2592fOulvI537hgkbQE/wRHU1cL
P8qizVq5VMciBBDjDK7vHqV801u7pKDhhYsOik1b0uIpKxGmtnydfghMbdDJ
22hKWWWLFBqHjeOyLEuj81MV+GsFMqMerEOw8/UyKvUsBBpzWlrkvHAl6w8y
q0sOQgzamJoGH0KVjm0TL7yJ9Z6C60vWDCDM42N2tsxBEHoeytS1SCLculk0
uT0UovkGEiHXOhCRYBenoqmOTTb8MiLKtxFF/PuauUQ6iHr8EicafBFVa0tP
fHkFpLdWhIL+OdAc5Pne0WwhHWEgSKqg4VpqXZg/ez1k2Xwsgw4RRMvOXYrv
uwT5Wl4bt/RSRDf9WzUaawWFmlzTwKcM/O0cxVYyJEOxMYMS35eMmCwZ/+ry
CSgzIuSXEmpxU8nM6+3dY1Dx5Bk/3paNmx2kXPnDKtiVvK27W0Qftzwmp87y
C4Pck15vs+ccbls3lv6qOQXVfD2T1s1VuJNwgnx7uwTUbHhI+h7CiCdGK5cL
R2AfVrMvOH5HvF/ZjTtGO6AtPfhH/qEfiO8Y/uhL64H2T3f9ii3G+F8gOV+F
XwE6z7LO7/V7jYSePnL2z3boGVm001aacS9WViNhcT0M3WytWepNuDdunHDx
z0oYLvjW/OO6G8na/ktWflQcDHP5/EDoIJKn6TUb54txKH2k/9NjV6Qe9NK5
MW0J4++iIRdtg/DgV6VB8GgSzATC9LY4TyHNhpFtJ60Ps+KDLw68aENaobCA
lv0MzO2ntvXnmiB9V6HL5bnfYeEwuiv5VBbSR3gUNc/44ljra7OzO28gc2/O
42JXcVg36Zq8Tf6G7IXPxRl2J+DgraDMHPRDDilTxHqYBYc3EiXb3R2QY2Dl
Jky9Bkf9Nxq2T+eQE19F8nUpx0kpuqb7uhU81LpC0/UhgDpkvck2+j0ehQja
D0W2wVk3IxVljsgTlhYUK9gDt127E5cPGyFP9aVTG/kZ3HyTdtwYSUCeXWjd
pVInuJV57o8d1EJe3nu/sao4uO+jDLII/sg/+nC4sGkaHofbeaUDO1Bw989S
k/4HOBOlIySluYTi340cI1bXwedA+8fHF/1QfEiFevxMEnxu3xqST4tBsY+Y
k0qfAnwYT/T7Q6NRXD/sMpBLge9fCB110EIJuboyIbcGfieXehs6clDSdfjJ
nNU8/B/+sAtb2I6yDRdeJD62QQDVfOgacRFlW92PRJ5MRUCM90TRz6Mo0zjx
8pw4EwH/1hRc2C+JspO6rw6E+OLiphn/l+1rUFYo1DNvGY2Lnem9L4j7UH4k
5e2BlXoEGTl9mayUQEVM6/SnY4oIPk3Oz2i5iYoMD22jMBKC7zH0m1M6UVEt
EpNeKIrg10+plmleqGAeI1sJf8eVA0d2PFWsR+VexoXqpm78pSQuxkseROWH
5V8RqsEIWU4Uz9/TjGo98m+/bexC+EQL2ze8ATVfkrCvKwi0DVeCTo+aoFb4
2YdKMgE0smmYGvEuaqV/xKrGZYNmrsZfn9qC2oPUIeUjr0G7Y3GVN2gAtQmK
F357sRPXNtfbG4b3o06r7CGrYwzXlaje1QwSngS/JOQ0GyH6RAPJqq0bjby8
DLEKSdxcu/jQyeQTWnRedRowqxD/rLYgLfg56HN2Uve9WpDiGLnu8XkiOs4V
btRVYiND+Y+C6znueK4oJZr/jQ85jkG89MlQdBZZVTmtaiK34inZVeo+Xu1o
71KP6kSRA4mquU0e3Z9yv83elkXp7P4fxasE9Kj2M8aWZlFRFGgwvNSJ3puE
53Uz2aietPAkRaSib2KC9UiGgDoTwXcpaWF4o5DuXnkmFg056/+LlnLEQJjn
RL7eVzTry4nniPlhsHVzBX1PAFq3G3kvhDnh7dbXMfSiMbQd36JXsIGF4eDt
KX1eP9CRuBzv1xKKkTr3X0L6O/GsU7fmjpwCGJKlHlszjdB5JFRFu+sVxhzf
y52SCUJXPW/H0YFQvDs6sM5mTgXd97d1tKoL4t13uvDnjZvQs4ZpYndoBe9T
5YtTGteg17kxzn6mHczDa4fq1L3RN6O52TAiEsyvDemnTfLxJlhEMlwqHOMJ
k6KkWTYGfizEDi0bYsIwnt/IqhJDBYlLj86qY2KyIo1mHIbhoy2yRZdu4QMt
a9B0dCtGFndYUtQCMLmHGB+lpQ3Gc5e9AdX/YrKX99ur3x3xzugfYoyhPaYi
/Jhxz9l4bygz6phFxLSCZQB1TRKYmtnTUxZBmKbzZVYyNmF8R0W8/d5b+Oi/
zzoiRAAT2sF/2gx3YEacWUzN5cEHSl2k4fwyZlrE44qTz2Py1JIyhcCPWR8x
4Rs76zF1Vcsq+upGzBEiVc6bimH6npdzk89PzD253Nu9awQfu3Ye/jJfgHnq
hAIelGCGvXni9HNJzP+SEdMsPok5ac7L+UwDn/JGIjJo4Zh3mW8ce/gFrCOE
FJnpQnxKFRNb8P4brO8dewlix8Bi3zIFdZ7DI1J8Apw6u2aty2gbhz//ZH+j
c5j5NCv9Llg/SK2jTE2wvmoaBfy3gcM+5oXlJA6PHqLSQ8BakfA4as0Ea3mn
ibmyJVg/XRJikwK4e1wyJ95w+NLl8NhCDi8o7WZy9v6McwwIn+R6pwflWzhc
Led45gTX6xN8PhKsXyJFKtq6XO8VQXC5tO3FiCDXe087MZDD7Y8bu8H1nLzS
Z8jh4Zhy+iWuZ+ugDadvVeBYSsEM15M3zvkfsFZPjHqHdHE9DZgr5vC5plPn
hbhzVx1MlDgcmWXlrsedM77z8Q4nC87sNyvjzvVafDXiZPOR3QdmuX1JQ6e5
9292y2spcPuoIeKvOTkrLrmTyq0r6AgJc3KVvU42kZszm7Hn/96czxU=
          "]]}, 
        {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwV030w23ccB3ClWp1KG45ujFw06U0Z5tB5/HjIHVPaod24pZgeSk+V5a50
a4Wxh6KnmxmiXdBZFckoYUUTEQ/TTLQyqvIkiYhfUrHtgmixr/fd5973+uvz
1zshL52YYWZmZo4uYq9hGL8XO+6f9XtpAH6wSBip5HAnPljWu+XMgkCf7HQ3
h88VbEp4pM89YTy380jICSN3eIMytRNLgkmy09F2kzl3KLukoTKAD0JWIidt
15/bl5h2eF5QCKKTY1O+ZUJu12dLuZSvJTC92mbSVRO4v46Skx2c6+C5998y
+YaO+2Na/Teh1gqYuY2bHMDuw5fhijYLMQ/EarXhN2ccMCOv4cl3JmCWxMzs
za6EjrAlImuWDnPFl9TtYevQ07TvcVjEYXgx4tAj8KHB4+6HuTqvRnhJfFYh
YMmB12LfdOG9KVi47sYQ57yGEWlpDYdQCJKBzJ2D4e4wpvgqzptYBrJjXVnE
5iiYJKU7BIdMgJy66JrqfA3+8hbfz864Coq4Oevzeg+YdjBJR0xpoNgSWK0d
sYNnvbv5jXEkWGw8zmZw98NMwOlLlifqQHn60PyA72UQS20y+2xOgnL9CTP9
o3aYLSK3LbZWg6pWc9RRZ4Q5U9nZxtEHoKbUWEQl9sJ8Q9I28x8JqDU9v5RH
F8MCgYbza+HBUnnLixgpESSNSxcjrQpB4/NOTdmpQJAFCnn118+AZmafSeRC
BfngFp2eL4blkqvKqkkjKNgiUlJQEGhJCbSU/XWw+AUloJ+eAVqBeXOvzA6U
Pur88y6bsJIfcK7khiWozLmdDhQnwGyV7JQ2M1AJnjgSOuwB49tWsRsKQF27
URHXcA90V/BW37kPwVIG1aVP+QPocaUeBTF40JBVqpxcKugHi2am35eAZr21
I/wmB16lqElw73dY/qOyNe25Fl7tOOP92RdAW3iXP0gvg9WHkpKmcjqsRK2o
gntYYIjFMZy1nYAdSvazdO8Gw9b4hzh8PGALFrf+daMgS5zMLW8hv8uIcXJF
Xts2mgTIfu3NNmZgeO04IlX6I2cJ49cGka+c7XzkiCy06er3BcMb+6y4c0rA
JDXV+VEkMGxfrK2sowEmI/+0lnEAubCIXon+y0Jboz9RI1dRaXQN8qccZjQf
uc+Vmp2E/P3cxx43wbDzFssjMAR59W32f5vIXaNPJQcAk3MYeaUY8tgD7jQg
i9rHaRPICxWP0E4wuXaQkNkKhl3LeEYHBpjCUSKKSUdOkl6+MYVc7OKFf4mc
y0stOIhc5/mtRT9yaUtiZhhyV6jMWIvckR10phtZlXp7PgF5ONYrQof8Jk/z
1Bt51uv4KRJgi/b00CEcss72mHsKsmd1LUuPvGu0JvyMHMVcZU7+D70QNLo=

          "]]}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->True,
       AxesOrigin->{0, 0},
       BaseStyle->Thickness[0.007],
       PlotRange->{{0, 1}, {-0.2, 1.2}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], Automatic}], {192., -355.98757751993935`}, 
      ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[
      GraphicsBox[{{}, {}, 
        {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwVlmk8FGobhy1ZUk3oSDM4TtYWTU62EvMnylIhW1mayBplKVE61kzloOXk
RSh7Zd85yD5okWQJYdQQsjQ5mqiUd+bD8/v/rvu57+v++DyWvqe3uvHw8PBx
zgNuUmw+Nr2edjPVaeBb2L1k+QXqxDE/ksEaymW9QZ8S/WgYEstTk9LUKPf0
vCweqbbBTCkoQkF6glLgaWZeURUIa+L9soGXhyk1emr6K6VasJNdzZGJVaC0
1sr6G3tsAlXJOdHFdIXS6am45oUdL5wTnOl9UTOUXhuJXa2J6nAl/lO/5Hqc
MqQnWVu/mAP31NZqkgGdMsYmbbdu7sMZ2S8luvKqlPFagg6dhwHvLMVcJ75U
yhTjlk3+UAl8lGwzI5nClDlP0VPOs87ws2592fOulvI537hgkbQE/wRHU1cL
P8qizVq5VMciBBDjDK7vHqV801u7pKDhhYsOik1b0uIpKxGmtnydfghMbdDJ
22hKWWWLFBqHjeOyLEuj81MV+GsFMqMerEOw8/UyKvUsBBpzWlrkvHAl6w8y
q0sOQgzamJoGH0KVjm0TL7yJ9Z6C60vWDCDM42N2tsxBEHoeytS1SCLculk0
uT0UovkGEiHXOhCRYBenoqmOTTb8MiLKtxFF/PuauUQ6iHr8EicafBFVa0tP
fHkFpLdWhIL+OdAc5Pne0WwhHWEgSKqg4VpqXZg/ez1k2Xwsgw4RRMvOXYrv
uwT5Wl4bt/RSRDf9WzUaawWFmlzTwKcM/O0cxVYyJEOxMYMS35eMmCwZ/+ry
CSgzIuSXEmpxU8nM6+3dY1Dx5Bk/3paNmx2kXPnDKtiVvK27W0Qftzwmp87y
C4Pck15vs+ccbls3lv6qOQXVfD2T1s1VuJNwgnx7uwTUbHhI+h7CiCdGK5cL
R2AfVrMvOH5HvF/ZjTtGO6AtPfhH/qEfiO8Y/uhL64H2T3f9ii3G+F8gOV+F
XwE6z7LO7/V7jYSePnL2z3boGVm001aacS9WViNhcT0M3WytWepNuDdunHDx
z0oYLvjW/OO6G8na/ktWflQcDHP5/EDoIJKn6TUb54txKH2k/9NjV6Qe9NK5
MW0J4++iIRdtg/DgV6VB8GgSzATC9LY4TyHNhpFtJ60Ps+KDLw68aENaobCA
lv0MzO2ntvXnmiB9V6HL5bnfYeEwuiv5VBbSR3gUNc/44ljra7OzO28gc2/O
42JXcVg36Zq8Tf6G7IXPxRl2J+DgraDMHPRDDilTxHqYBYc3EiXb3R2QY2Dl
Jky9Bkf9Nxq2T+eQE19F8nUpx0kpuqb7uhU81LpC0/UhgDpkvck2+j0ehQja
D0W2wVk3IxVljsgTlhYUK9gDt127E5cPGyFP9aVTG/kZ3HyTdtwYSUCeXWjd
pVInuJV57o8d1EJe3nu/sao4uO+jDLII/sg/+nC4sGkaHofbeaUDO1Bw989S
k/4HOBOlIySluYTi340cI1bXwedA+8fHF/1QfEiFevxMEnxu3xqST4tBsY+Y
k0qfAnwYT/T7Q6NRXD/sMpBLge9fCB110EIJuboyIbcGfieXehs6clDSdfjJ
nNU8/B/+sAtb2I6yDRdeJD62QQDVfOgacRFlW92PRJ5MRUCM90TRz6Mo0zjx
8pw4EwH/1hRc2C+JspO6rw6E+OLiphn/l+1rUFYo1DNvGY2Lnem9L4j7UH4k
5e2BlXoEGTl9mayUQEVM6/SnY4oIPk3Oz2i5iYoMD22jMBKC7zH0m1M6UVEt
EpNeKIrg10+plmleqGAeI1sJf8eVA0d2PFWsR+VexoXqpm78pSQuxkseROWH
5V8RqsEIWU4Uz9/TjGo98m+/bexC+EQL2ze8ATVfkrCvKwi0DVeCTo+aoFb4
2YdKMgE0smmYGvEuaqV/xKrGZYNmrsZfn9qC2oPUIeUjr0G7Y3GVN2gAtQmK
F357sRPXNtfbG4b3o06r7CGrYwzXlaje1QwSngS/JOQ0GyH6RAPJqq0bjby8
DLEKSdxcu/jQyeQTWnRedRowqxD/rLYgLfg56HN2Uve9WpDiGLnu8XkiOs4V
btRVYiND+Y+C6znueK4oJZr/jQ85jkG89MlQdBZZVTmtaiK34inZVeo+Xu1o
71KP6kSRA4mquU0e3Z9yv83elkXp7P4fxasE9Kj2M8aWZlFRFGgwvNSJ3puE
53Uz2aietPAkRaSib2KC9UiGgDoTwXcpaWF4o5DuXnkmFg056/+LlnLEQJjn
RL7eVzTry4nniPlhsHVzBX1PAFq3G3kvhDnh7dbXMfSiMbQd36JXsIGF4eDt
KX1eP9CRuBzv1xKKkTr3X0L6O/GsU7fmjpwCGJKlHlszjdB5JFRFu+sVxhzf
y52SCUJXPW/H0YFQvDs6sM5mTgXd97d1tKoL4t13uvDnjZvQs4ZpYndoBe9T
5YtTGteg17kxzn6mHczDa4fq1L3RN6O52TAiEsyvDemnTfLxJlhEMlwqHOMJ
k6KkWTYGfizEDi0bYsIwnt/IqhJDBYlLj86qY2KyIo1mHIbhoy2yRZdu4QMt
a9B0dCtGFndYUtQCMLmHGB+lpQ3Gc5e9AdX/YrKX99ur3x3xzugfYoyhPaYi
/Jhxz9l4bygz6phFxLSCZQB1TRKYmtnTUxZBmKbzZVYyNmF8R0W8/d5b+Oi/
zzoiRAAT2sF/2gx3YEacWUzN5cEHSl2k4fwyZlrE44qTz2Py1JIyhcCPWR8x
4Rs76zF1Vcsq+upGzBEiVc6bimH6npdzk89PzD253Nu9awQfu3Ye/jJfgHnq
hAIelGCGvXni9HNJzP+SEdMsPok5ac7L+UwDn/JGIjJo4Zh3mW8ce/gFrCOE
FJnpQnxKFRNb8P4brO8dewlix8Bi3zIFdZ7DI1J8Apw6u2aty2gbhz//ZH+j
c5j5NCv9Llg/SK2jTE2wvmoaBfy3gcM+5oXlJA6PHqLSQ8BakfA4as0Ea3mn
ibmyJVg/XRJikwK4e1wyJ95w+NLl8NhCDi8o7WZy9v6McwwIn+R6pwflWzhc
Led45gTX6xN8PhKsXyJFKtq6XO8VQXC5tO3FiCDXe087MZDD7Y8bu8H1nLzS
Z8jh4Zhy+iWuZ+ugDadvVeBYSsEM15M3zvkfsFZPjHqHdHE9DZgr5vC5plPn
hbhzVx1MlDgcmWXlrsedM77z8Q4nC87sNyvjzvVafDXiZPOR3QdmuX1JQ6e5
9292y2spcPuoIeKvOTkrLrmTyq0r6AgJc3KVvU42kZszm7Hn/96czxU=
          "]]}, 
        {RGBColor[1, 0, 0], 
         LineBox[{{0.2750000000000001, -0.2}, {
          0.2842306782257526, -0.18523091483879595`}, {
          0.305545518858404, -0.15112716982655372`}, {
          0.32647059825508584`, -0.11764704279186278`}, {
          0.34598550825253294`, -0.0864231867959474}, {
          0.3671514733405411, -0.052557642655134296`}, {
          0.3869072690293145, -0.02094836955309687}, {0.408314119808649, 
          0.013302591693838295`}, {0.429331209352014, 0.0469299349632224}, {
          0.44893812949614426`, 0.07830100719383071}, {0.47019610473083556`, 
          0.11231376756933686`}, {0.4900439105662921, 0.14407025690606723`}, {
          0.5095019551657791, 0.17520312826524653`}, {0.5306110548558273, 
          0.20897768776932357`}, {0.5503099851466406, 0.24049597623462493`}, {
          0.5716599705280151, 0.274655952844824}, {0.5926201946734201, 
          0.30819231147747206`}, {0.6121702494195903, 0.3394723990713444}, {
          0.6333713592563216, 0.3733941748101144}, {0.6531622996938181, 
          0.4050596795101089}, {0.6725634788953451, 0.43610156623255203`}, {
          0.6936157131874332, 0.469785141099893}, {0.7132577780802865, 
          0.5012124449284583}, {0.7345508980637009, 0.5352814369019214}, {
          0.7544338486478805, 0.5670941578366089}, {0.7739270379960906, 
          0.5982832607937449}, {0.7950712824348619, 0.6321140518957791}, {
          0.8148053574743983, 0.6636885719590373}, {0.8361904876044959, 
          0.6979047801671934}, {0.857185856498624, 0.7314973703977983}, {
          0.8767710559935172, 0.7628336895896275}, {0.8980073105789717, 
          0.7968116969263546}, {0.9178333957651912, 0.828533433224306}, {
          0.9372697197154413, 0.8596315515447059}, {0.9583570987562524, 
          0.8933713580100038}, {0.9780343083978288, 0.9248548934365259}, {
          0.9993625731299663, 0.9589801170079462}, {0.9993725326059331, 
          0.9589960521694929}, {0.9993824920818999, 0.9590119873310399}, {
          0.9994024110338333, 0.9590438576541334}, {0.9994422489377002, 
          0.9591075983003203}, {0.9995219247454339, 0.9592350795926943}, {
          0.9996812763609015, 0.9594900421774424}, {0.9996912358368683, 
          0.9595059773389891}, {0.999701195312835, 0.9595219125005359}, {
          0.9997211142647684, 0.9595537828236294}, {0.9997609521686354, 
          0.9596175234698165}, {0.9998406279763692, 0.9597450047621907}, {
          0.9998505874523359, 0.9597609399237375}, {0.9998605469283026, 
          0.9597768750852842}, {0.999880465880236, 0.9598087454083777}, {
          0.9999203037841029, 0.9598724860545647}, {0.9999302632600696, 
          0.9598884212161114}, {0.9999402227360363, 0.9599043563776581}, {
          0.9999601416879698, 0.9599362267007516}, {0.9999701011639365, 
          0.9599521618622984}, {0.9999800606399032, 0.9599680970238451}, {
          0.99999002011587, 0.9599840321853921}, {0.9999999795918367, 
          0.9599999673469388}}]}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->True,
       AxesOrigin->{0, 0},
       BaseStyle->Thickness[0.007],
       PlotRange->{{0, 1}, {-0.2, 1.2}},
       PlotRangeClipping->True,
       PlotRangePadding->{
         Scaled[0.02], Automatic}], {576., -355.98757751993935`}, 
      ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}]}}, {}},
  ContentSelectable->True,
  ImageSize->Full,
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{
  3.449318770692196*^9, 3.449318874130444*^9, 3.449318922070758*^9, 
   3.449318979549211*^9, {3.4493190122936077`*^9, 3.449319029160796*^9}, {
   3.449319059637311*^9, 3.449319117761726*^9}, {3.449319606777285*^9, 
   3.449319621709282*^9}, 3.449319652202787*^9, 3.449319698099043*^9, {
   3.449319734450428*^9, 3.449319743203724*^9}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztvQl8XkXV+H/bNEn3FgoU2bEtgkBZZFM2KwqvCAQRF7SIiAQUlYAoBEQ0
iBARISBS1ghStghYQMpWllBKKISlhRZo2oZCSptC2qa0aZs25z/fmTn33ieZ
+2SR9//zVfv59IE+z8ycMzNnzjZnzjn65HNOP/UnJ5/zw1NO3uGIs08uO/2H
p/xsh8PPPNt8VdAvivofFEX9vr9DNMD8v0RRzkf85xA+evJFsf1Pgflol5bm
FvMprtE4/aG9VVpa2uy/7A9DXcci+59BIq31UjahVKonV0hJWY3Ylu0NMtEA
q37hCSkxePW32BWYzzJpaJdkrK3s/w6UlvpqKZlYKdWVpVI2ea79rb1xsulQ
Is9NryrQ/qV+fO3f3+FSaP8z3E5iamkkpVOb7M+15eOl3P9/S1OT7ds6q1om
VkxlotLaME2mzm1NocIYjVJmcJ/SbHtJRTRepjbTuk2amlps21nVZVIxtdH+
f8O0KeKHkAKHTjRE2ptqpay0TMrLy/3fMimrvEsuGD9BprlBZFbVeIkq6qIB
fqUbp5SbyTcks9vC/u8QaZhaJaVl5clgZaVSOfmvMiGqEIultErV+Egq6lqi
gtR+Ti2fKJMb2txghR43t6NNZjXMX7MzfBZJ06KnzHATpM7PpKW2QiZU1BX6
0aaVl8ikeou3Q3cAQ22j/242WDSa5TCDypo1H/hObS3NXeAseOoS07NKPBip
q5gglXUtA2Ksm6TCEFN9axrOoQpn3ToHZ9EikVWrHklvfpHdrEqWt1mXdwLL
29//3N7WJu0eatusKolKavi3Qk6dnmhbHfGdd0S+8x2Rfv3c2TnwQJEZM5br
z621OVswyW2BA1goba1tOqLFZeLkhigEbYJvLzfeKDJ4sIP0ta+JLF8ePdx5
im0yuQT6djAdrTfGU2ycIhXV9fanxqllEo23Cx0Cur2O+NJLIp//vAPK3+OP
F5k370P9uX2uPcjuMDS5g9HUrlNsnGKOrCULQ2xlkYyvqg9O8Qs6xbnmaO+5
p4O0vcHh+eejf7gpFmkTy07KZHJNpWUnBv9IwQGmtmqieHYnVbVNUWEA3I6K
/YMPinz60w5coWn54x+LLFv2gScnOEFJaZVMrrJMpyCG0iSTJo73UCZKbXN7
cFKHKZS1a0V+8hMHZYBpWVkp0tHxoJtXwl/bDBttjWHwXXtbq7R5dhiaxyft
pxlhwwaRG24Q+cQnHJQRIxyUtWujZTq+GaultT1nrLbWViX54Ay+pK3vv19k
k03c2EccIbJ0afSAQ390oNtYReujj0R+8xuRIUNc1x12ELnzTiYfrQ30O1zB
caw+9znXhylNmxZNSYGz0uJTurqLF4uccor5tr/rsP/+Is8+a4+WHf6ImFTN
VA1ztIeVxhdcwMLdnz2PnbXna6+JfOlLyRkoKYFSVwe6fFmn8NhjIqNHJ1xh
0aLovmxIn1ZIU6eK7L57Qiqnny6yZMmqQJcjFdKSJSKHH+66sEf33x/dmw1p
V92bjRtFqqtFttnGdR1qxPavf82eRSsD/b6iGHZ0iFx2mcOO3zkya9fWZEPc
xX4OSesJ7s+aNSK/+53I8OHJTsPiNmyIdvLjpHWL8fpdShEpTLdz7NQTRoG0
trTEusCAnPHcIdtJfzF0wSFob29L8/s06F0zt8yc0dYW8bOKdtA9ef55R+y0
h5299RaKUJf24wOwClPtvIAILoe2Y5qt7bnt2tvdF+1t7TnjKdyC7N1yNN+N
wvWPS2KFa5Ntpe0fjkWPsZ9D83adqxIWjWTCRKlr83rksPx6YkNbMmxVmZRO
qrP7P1b7GtFeXVpilJ5qKZ1QLnP9xtcYWTiheq401VbJhJIKqZlcKRNLq5HI
0ThPl61zp1oYEytrpNGvpPbrNJUgIeziVwydr7SyWionlshkj0BDTYmR35Pl
maoSXbHSmoa462jdyeXLnUTXg3jbbV4uDM07bHyY2uqkZIKV5eN6uAn1ZtiJ
FdVSVTpRJtU196xbk1SVTJDy6hqpKrPddvJrOHdqpV2Typo6p7ml9q3TBHKI
z3JyR3IjpceK9c1Pixx3nDSYtnNZsS8Y9eHll51Q714/b2lqMMx7rjQ01En5
+PFSXdfAQo6Ju3dnIjC18TKt1VFxpdHPaltEKbFpaqmxQqa65rXlMr5smtuh
liZpbkMNH28UJLdr1RMimWRWRFexHl23PuGQrk9wNo79FCTLZxBvmmLtJzt4
6zQZbzTPJjeMNDVby8ackVKZ2thmR6qtmWY+vVljaPDPfxYZONDR4He/i/7s
2eawboZeLk0NLKn5Wz/ZKLxlUtfY4o9m99vhqKtC7P621dqxW9Lbkb97a31l
vN7SMMkci2p2MzZO2aHxJfAZryUWu10Mz8i3CXLGWOFomRYyrBxZD5KUXSXy
3HMin/2sW1PUjhNPtJrA9jq58FC6/ZZAotJyqagoM+0MSzLKqBl2jGJiOlZ0
tRcTbb9GNXw7GuaHMaXG+p9ry81RrvWgsXeiShZedelphu4rzM9whMgsuqHx
WL7UV5YonpFCy5iLismQXoUNOb681s+23nQfj32ZWKiNUlFSDrvyFlehU8V2
3tmt6Dizy/X1nqEMzxrO/WmfZVdwYkWFVJQ5C6G0alpy8DMnoPNrrCmVCZX1
qdFLpL6tZ70N3s3QWKU0tzdL9cTImvWxVDfLXjWhRGpbVTJnLk0PyNMeiCwD
2hiPiQHt/tQY1W3MGLegHP/zzhNZuXLb/KOlp1Ve6dCcZKZQ364yucij3cVj
kLZFsZ7qDGtqrjcH1zSN17PYrSESpT7uLhMMMbfEJMeMGqTUm3qVtU2q+IWo
M2Me+aiz3pjk43XDzb7CRswWxfph81RjB1RbhNxqDXMGz/e/7xazyCzBFVc4
hdn8yRgutl2bp1UZexX8ZllZ3ibJUubdBUOaU4wpb1BpNhps/aQSbTomf+8C
v4oQtjVlzeoaFpiPKjPm0BOm2XtXiLJrWb9e5KqrREaNcgu7+eYif/oTCnu0
df7h4ylOqTBrO1eqSyaCb0yh+RxChbFvIzI8qNLwjSmzmr3SWCR1lYZ5+n5t
XZlng13TMplkdNWJldOsrpqXeYbxz0eerXWVhkM45aILhzAr2hb7suxokxvb
vdgxlthddzkXAcP+z/9gzmcNl+NamWKs59qGWpk4wZ3DeB272dyGyXYGJeWV
RpJNklnNbT3tyhaUWlY9ScpKSmVaU3uKbbZ2IdC8i5KfQPvqyCpy2vvPfy5S
XOyWdKedsMK3yj+y0qYdsaLEath1adoMevJUNtojP97SnF8QQ3STS2JVqNmp
oQmB+eGqrErf7rTW1lhNQtOcXDoethCvZQbe+WiyraHakr3t0ew0rMbkVEw1
h8iy8/ZGKcc9N6vVm8xGLi1cmKhKo0dL263nhIaKV80YGBVoRxMmsQZj8+Pc
PyaZNpnC7lXU+lXrduPbmdL4ajfReqirzjMBt3UtTfWGQksSvaWbVUjZPbv4
YXrhZixSpFmtE05IHM+HHCLywgufCI+YeEmYqpXIfg5hd+oAPwzXChOMrjB5
2iy+Hxsj5o3tmslSanjjrDY9gEaK1U2SiWVVUjOp3Jx3a8RHSmTNc6cZUOOl
qr4lBtEJU2tfF6QXx1qPVZOtnTp5bmu8OM2GDY13oj8qmWR1d2cADnSOPpx7
OPnM31klB0jpVbfrELHz0+6s42TjwugolrCaqearCaWVMm1WU0brZOOaraFV
ZdanvKREaua2pkimTeZOqzaMaSLbMCDfLPN407p35w5USpk5U+TggyX2XX7j
G0ZtatgyMEziYEs80UWp75oamyx5KAPG89TZexx02KVg5POktbUmnqzkvqdd
Wr1jL6a/xx8X2WILO522Qw+R1veWRHsEYMW4Gyu1sbHZCuFxgXZpT5p628cH
cMqzK4cowL//PTFPuFDA7d/cvDDQ5QSFjf/60ENdly3Nvjz5ZHRLNqRD7ad3
+V9/vevC73hRL7kEr2o0P9Dv24oh/Tgc6gW/8EK+uykb4gSFqN58HFT8vrXR
vm6+GU9yNC/Qb6JO8JFH4u2yrvB33oludOC28HvNnQBdP2Wk8b77Gu64//44
hA44wPl2uHH48pdFvvlNkW99yznFzzpL5KKLRC6/XOS665xK88ADzvM6fz63
OLKXTtmoN/LDHyYu6912E/nHP95O4QzgXXflXw4yggifOpCPPtpBnjjRjXLO
OSIXXyxy5ZVu+vfc49z2r77qLi5WrpSgb37kSIyt6AY39U39Kvm773G5/wyQ
Gv76Nstp+RwlH3wg8v77jnzeekvkxRfd5Gl7330it9/uXDqXXupQ5orkq191
C8qVF7vnFBbu1mCjgyxN4IXnCgU+Qb9Jk9yY775rTZnYj53e6uzvit1306eL
3U3+H6LDRlq8OD6hPRsr97vB/0Tfj3u8jxuX8Z2+M2fW7/tm9tYEgmbvuebm
xpR9nzHD7dPdd4v85S/OYoIfcD+DOw8y5vThNOFiyl2X+a0faK3VT35SjLwX
Oekkd7YYrq5O5MMP5X9ntQvdd2PHOsqALGfPjm9E/1MowJ2CIO/NHmKQ/Y7N
56aRDecqjc0+9liRvfe25nI0wB9sp0O66IHxhrq+/nXH+CdPxoNmWXtU0Af4
8R/Yr154cduLnFi9Onip/N8D3vWAZ8EY6H9BaPP9K6+4mAWY8q9+5Zg6MgqV
w+xtgd3uwfF283fTTR3r/d733L0tGgrywijJvdvxnq5SkfvO6KI2NIb/HzQI
lHvK7f9dNj7Pud7Ofg60KtWcOU5/uPpqpy6yn3DiggJxx7fYyuUdd3RxBxxb
hnrzTXuHHzmbr9hFmRDzodfpW20VX6cPD6AQIsF/5rvtPR5G8bIs5W9/c7oH
oh77w+iplt+zLugdXItzHYICxzhGnu3hVyWHsxCjoPEjsK0VK3bpIUah7/Ls
yTg/AWLIXn/dTQABCpKf+YwlYs9PiyxC6IhnnCFy001uwuvX+3i8Ihfv9qMf
JRonku3BB18LQN3JQzVaozXVbr3VBamgquFHMmLaQy20qj568PnnO7f9ggU6
SaNqQg977OHAwYnr6qJrsie7q8cUrRJuwHBQFhS23XaiEDm4bN4vfuEYh1E8
jAriJ/n228mlNX8xYmbOfCUAbTffZfVqN0nU5jPPdHFlRi1WaBgJIACbqq21
ASJJZAzkzXJH3rL6/e/RR6tSU7Sa895+PYzOIk884cgLm8EsSbyOXHegEmE+
zZ7t1NpNFA661EEHOTicO7wsCxdan3dBGoBZfLn3XpFf/tIdWTOPqMADAL/9
9hMpK3Mr29SkPjLzA8o5tgAA2M1ly6KrsjdqP98NNR9wqOSERpkj5MENsKMd
c4xIVZWdz0idClFb0BDDceTwUS5f/mIeKNxVvPGG4xscXCNX/KoNsAwIeYPO
YA5r7EAi3lJ1e3jO009HV2bP53O+G9vJ7SjbiMay+ebJfKAD9gwszDIP80fE
+nWuMUS92WYOGhcCqLnr10cvBEAd6EFhKSE0udnCTzZwYAKKgwnThbhXrJBP
6tIBCqKHAgwjtpFRGzdekT2vQ1IrOGuWsw5RuQ03joGxgj/4gQuBM0gNUWCc
fZDT23fos6amLgDlUA/FmAIybZrjBKy9QdEajvwGuhAfXIQ2hp8lgUkIGu5P
GJPT19QU/SF7UhqWifrBufjtb52BAPH195MCHAQJqzQmsOoA1hSGdaqHEnY5
ffqMABQXJznALgMmPJzBmOi6argboBDiG40Rup1OhRMBMozElB5+OLq8Mzc4
wg+N0YTX6Nxzc4Ym9g1nAh4Ks0yxz+zll52drJztuOPgktNjHqDDYt7fcYfT
rQxzdsMWWA0bZmqG8SHQRS7eDq2Y9WJNOMjr11dmL/6RHggLiSH/la9YGaTr
jpjHLQExGV2rWOEQjLXrrg5vxA9iaOnS2kwAjmSJ8q2ocMSEyFEoxOCyH888
Y2cQB4vwbzwIDAexzZ8fXZY9laNT2zBlisjJJ9tDrEDgTZwVrJiWFh+I7l1c
SFe4CqMNG+aQNIbF0wEox3goCF+6sWBmaIUCVzn1VHcEjKzeUqcCezjqKAeB
Rb3zzujS7Kkc64GAG4uAH8oITAUC50caAH/5cu/fLRYr+Tg9TEEZpfedPRmA
8lUPBSUag56NNl0VCnd3uKPgamYqcRgZzBBDnpFg32ahLsmeyvH+OyQyB8OY
4fG+MwoiBeo2Smp8J8TaIoVVsSFW9dFHp2WOPsAyevDkjBhbRAHAu087za2h
IcDNdQocPZVZWDWvvRb9NnsK3/Tf4XuDgyLlFQK2LgbIo49a0o1vwlB34Cd6
uPHPzZr1eOboA6wwYBSmYCikvz/m227rgBoj3CtFhURNOd2CYeDn114bXZzC
33Kl73hYuGx++lPrjol0UA4VgsdI4eTyDmVo333doPhtEMOLFz/Kzxbjb3tE
EQuorWhlMeUX2K5cmBtKj0Ypon/9a+LJhb8tXx79xiE60KOXDrQdGlieiamj
8PDDjkjNlB3UwRYqnlkjVl0QBLQEP4lyfAR3K7TUzcGQALQT/XdctmL+GpmT
Q63MGSzMVm+ic2Sr99rLQQTyjBnRr90cHbvs++Ok/gEMT/LfMWGE1YEHKoaD
rSKNNHzqKbMWbWudjquWGnuOmbNx4x12iB4+dypMP3dyKJg/3/dYzJvnhJCZ
d0xcyDt8//Pnu3jL4OsEjLaOjl+58Zy91OeHUyEPgyLI5sB2MAwdggOtJxCN
cNmcTgYUls3jj98eY9OnJ1ihTfu+JwQIFE8aeqfe4yOmDzvMefgNm41GKF2h
WONXoRHvApYsiS5Mr1dmaF7oJVfIR/YDjxWcB4EJK0ZxoAnEDpYv3DqXHyLn
xy1wxgTmjPn3rYpGvljF3DdgITRO9d9hTOGeMLsQ0xI+ZLgftDRcFwaHtBpP
NHjsseiXnRYmHBUWekcWIp7T/Hfvvef4h+HBHqNiKy7u++lTsmHPzzgMWDH0
7cWLo7948Hmj43Kfl4XAn24/B1qvOEqMvsaCUgikQdAZBjRUJwtrxECEadOG
BWtvP78zrfTlXZpFz75+c0gNtRomCKDM6GOYYUM7pPqLt8v6T2yXMF48h6tW
3aLgex+alcD+oV8keB6mGZdoSiF4IWBzy5ap/Ch0Fom+UkLZXLgwKu+8HH15
wxbarR/bzyHWVEfd1iM7MGqTG8ZWyvrBPgYKxwrOgA0bopsUi97HA4VQ+In9
LDZGsbtRU34Gi0GdMKail3aFTrniENMAFe+ee6Lz3NoUa5NePn4LHeqf2s/B
VhlHBdXndqOiD+S2Tc+UjQWF7otddoH5uAXpVZRKaCHO9N9htWFMGwU4JhQ0
sEcfde0G6frDkAmfVH0W1X3Nml+49UhUlPyP5kLzP8u3RhRzVDiXY6IGeaD4
+ISX4vSqcxb4DQqrm4iL0KzP8t8RwnjbbXat41lzC43Fg2QZpKNyi9vpOuzn
bsoh9fdnvhu+v9JSp3DuH9XJ9P4HJ1NxDzZtyzsCY5zjKZSDeeSRib2OUvKH
P1jb0i93YVen/vXX+/4p7fYXfh+hZm4R8dYcE02ROcSumI6WvlB7P/ggmkzb
gqRXsfU+cTB02zkHaAnG1E7QSPuEOVUrV0ZnZ6/SuR4hCB6F9FNjN8ipZlvf
j1zoRPvQkU7rWLs2+mug/3keNWQOLjRV21gALtyM0EsOKDdy2P80wIs/c6Yn
giBq5R41WDeK+4F7rJLfRL+S1ZETLGtG7+D05o4OL9Nz+5/vUYP9cv+nrh3M
UIwEs+/Jw1msA7wd2uCKK4xCm4naL/3Q6NTH7NMkNxtVaaOjKmkZtx/OHC9V
w/2weLFH1UuAMIZ0MGxilHCOaiAqHoAPP/TsKYjSr/x3nNxT939NHou+FJP5
ewd8TTrmOY3q5sy+zrsPq8cXp5KbE2IsSH+qC63TMba3sPLMVH+Sjdav/dCY
cxfs/bC8Hjn3y/p+RfL2V8qkY9kHXqyE+hVYJQ9GYMzemDmwGPVOyEWx8Q0X
wd+Qq6mfkcLMHsCLPT4vzNgg1+x+vSyJ3DvU1v4jZM5Jl0EIjqlZdCo8DEgQ
X5JhSzEWXELgzEywKHQuOpWkcG6j/P4oe3F+65Gpf2aVTB77K/kocud2SdG2
MuucW60HZFKefogBqERfabNfGJoY3TFKqJ3ENqja+cgjXjEJovQ7v54zpyyW
B7cqlQ2R06znDdlD5lz5yHWZXYrtIuH/Vg8FRA23evfdlLXeWen72c/YutOy
EbpMEbp1jkzf9Gg3tPn72uaHSeO9L12b2aXYwoIb6t07PAnH78qVKcWA86LH
cJ994ApRaTY2v/fYTL+0Vl4d5Bz7HVE/mTnmW9JcN/+azC7D7OH64x8T8oD1
YzdAuPYPvjZsmch78+64w9sYKfL9Q2pqT/zoXpk/wC32OoPTc/ufJasWtURV
Mfn+wWPbOQYbIWrstngNUE71Nzjj6tXRKdlrcIXHYY2R91NLrpPmfi5+raXf
pjL9+Culfc16f8mR2++P9nOovRPBQafClIAqPF32Dy4uonASGe+M0B47Xq70
c/5gYas8tu/5sgb9wfzeWDhW6n5xr/KV7jwqV/lfwOeLX4ypzvIexJj1ZTEL
JawbbohOdpg6cTewuze7anDXG7XUP+QJqklVfkLvTF8kz+4w0ZIbUGePOFDm
3V53oV/VXj4sDkG62s8ZdVNvS2GlOECwcnNUC/iMUS1OcnPuqStkeUuTf186
V2rKJkhpdS0Pr0PYXOPn/cZtL8nLww+Nt+Clsd80k11wfgyxTy9aQ+6Oa/z8
YWTIHDXFOLGc1PbZc5MEBNxDvfRS9N30/Lt9dTi32livhr9UVlbIRBuhXypT
G9pC07/Wd3nmZ1Nk3oCd41NeP+FnsmFZy3k6/b69kgxN30EcbOMucITpjRum
zmMPtDmXtDpZrrzyxE4zz/eizZlCVWU2oFzmVpXwlDeVo8aBNnrRynZ58Mg/
y9LIsZQV/TeReT+8ggsorwT36dVdYpL/2c8RHgQF67HG5938p7sT/ZVz/sEH
3+m8u0FnhL67wPouq6qV+kkT2YOQfTXJT/Sd11vlb59KuNPSITvKB39y2T/O
UWi9ercVoqHr7ecgefbZ5EDDq64umy8bP+N1OG5bnnzSu8m7czQkProKCyl5
rpAL+QY/zLN3vSf3jfherBw3bbOfrJ9W+zOF0qvnP6Ep3uA3FIHIGdXggU99
cr00HPfz3IQm7e3fcrPM5zJI3F1uBXj2E5rijf47NNTbznlNnig4PFa4l362
xAWdiJq5PXp3EprgTX4PCWtFm1KpeeH+j0r7KKe82vvjxkZ/JxN0AIRE5c2e
GLmprTzsUXktcrbZhn4DZNV3f4TPJTbS0wZ+SF46h9lAq+frrcK2xUvl7TH/
4/7hsq98w2EYUiuqPTbPPLVRLtjqFnkvclrZ2uLhsvG3v7PB+xdm9nNmIlfB
AOoXdcjvNvm9bOzvXUqY1IaHHJ8Cb/WpWz3abOJVv1stFUUXy6rI3fys3WJb
F3LU0XEBzQrSHYjkwn3KdhwQPS/Ng7d3kIiGamj4WvY8b/PzJGb8u0cskUnR
abGWvWH8Xjahz/mBfn/1/QgM4Q57k6hFHip0d3Udw4YTZhodlw32dv8d7vkJ
o9+Qh6Kv5HrHnS3jHQKhvgOtqsodM7riTw0LxohLKY3HZkOf7EfAR8JeHNZv
mrwUOVd0R7/+aij8ItD1Dj9vjhNRVHtH9TKvn1MRO3bexd6ClmRDvtND5iJ3
99065AQzYGN/b+Ai4nCgrFhxTmZXZ2YRbrP1iFVyG3dtOGqKBnJv6O/VUxR1
tydHXashhesMW7tSVhb6F7oamGPI8eyYrO72oPAAcuF4oiETpcP2o47l6j86
KnuS93igOIhwHI+IVsgfi86V9gFehuNtIQzZiJeyQH+XoajIhl8duMXbUk8k
F0dg9HYY+F/JhlzjIXP6sG4QL9tGi+SxT3zXbSxt93MekTMD/f/mJ46T5tST
1slVtPI8aP1Fv7Um8JezwbtkToU23E6N3M8OflXe3SXxftjISLwWol7v3DHu
85MnOOSkTR+QDyK3Uyv2OYxgrv/Jhu56Ds6ZPD+fv9fDsn6cN8o5LFxar1x5
RmCI+z3wFqMY/eS49+QZgqXM76sGbyHrH5h6RDbwv3vg6amPGtEuM793bRIF
xn+JfFu//oeBIaZ44H+/d4NcPuQiK6UxL5ae9HO6fKkzbbu0Zk5B5vJC/ZDf
++oKWfPjlIGJckxohiG302Iaf8BDg3VeeMjTMYNHJ9gwb8EXHbSQnZfIyiST
VUgkP+iXhIgH1dNt1N1tneKt8F89/fS30sPmyTAVEssP+db3XPeBTB3gImQ+
Khgu7191l4/Z8kpG33I3ZYMstnfS3NioCwXzrO35V3A4JTSPI8ErIE7o9Trr
UQiFf/gtxNt73aeutAYJM597sL2AcK/henEvHswWFAL8sKc8roq287d12CWY
5/ZqWt3KGtVlVJfjYjT6lGQnZCJN1V0/9yVp6OeuIt4ZtquseO716PPpyXdr
CWbknwnNfarfP1ikehxwUePh3NhujuIttyRhYNgvv7PK0rGKSJ9St4Rm/4if
/ZsvtsrDI0+wADFg5px9ow++7Jk1mJnfJDT7R/3skV6aZRE1APXJ+tERshqr
QwwHlvvGjcd4SH3LDhKa/aO+C368uw6/Ob6GeGWXE2T9h60Hd97+XqfPSMxh
nTNz1FBLnBD33eeRQWPHGtewB64pH3vsaIXd+5QTiYX8mG814+Y5MnfAbo7E
i8fJO1NeiQ7qPMcep2FQtppeUBdV5lQHaFmvf5kY11H2Dw9Ajj464WvED77m
3gocqWj0PK9BCI0n/ISXLVojj257isWhzYih50+6zkdJ98Bc7JIPIETK0/ww
L7zgFLLI+zjNfBIHORwOPzQ/9o8VY4137dkb/BDwJz3wx066PdYsn9/uG7Ly
3ZXRZ900Q3Zj6I17vuHTl6ADrYqc5BazijTXKHq/hL5E1MeKFV7H6/6Neuhk
PuVhvznlTXmz2AmCdwZ8Ut74y8zoADe1kAL1tO/G3bMyEPxAH36YQjnktff5
db6eOWaRrDHqxDOfdveJ67lPP/L30rGxY78UNlajqvU4oMTt7XRue6lWW5u6
2sJ9jwap2hWxPA8+aMV6QXqQ58/5m6zo5xwgL446QppnL4n2zZ5/rR+fKXJz
puH8MFRzJmPwpNNI+8qI+nr11eMCIz7rEXl3eqPMGuZy1Db3Hy0vVz4W7ZON
yHTfDQVcFVfOObExcR4ZQuw1BQrngjjSRYuOzRyuSDasbZenDrwg1mqfPbhc
Nq5r3zsbkec8Iqg3qlIjUmbMUA5W5MwoPb1QODuzfPkxgeFm+OFerJwmS/o7
Z/IbIz8nH77yTrRXNhbaDZ8E12Mq7w0ZRnH4N5uWzvsEfRIRsnattxNzx3ze
j7n41aVSN/II22d5v01k7qX3R3tmo1Lnu+E00KtozFNu0GJU0Eu4VlPrh+s2
7gGN8n9k5phGB1jfIQ8dfJnY/NDI0YN+zO3r+BQ29ojM9DiQuEA9S6QkeP11
SSQRO0bMmYZ24YV58knLVArSgzx92fPyTr/tbaPG4bvLRzPfiHbPnr92IzpA
U5cNcTmiovhRAY4TjUziL4Eir79+RGC4F/1wC15ZIY+MdEeqrd8gabrwOv8M
LIjFS74bcbPKA3g9ZQgkwYL3XMpBkti+L2UOV+RinA66Jb51XrTPV2F+n85G
pF4J+sVECycYiPiTYiUHmDzx09t1CarzhlHumC/7Me/57Vvycj83gZYh20j7
U8/6fC5BVLQbl6aafZqjOnOmhsIUu6AOXn2O6BrKNiEw5it+YV55YZ3cNPws
yzTwzK06z/ohPpWNzSseG1QZLlqVNxhdNAnaAlWeixT6EDJE/0MPfT4w3Ku+
C5duv9zzwdgjsXK/L7LYO6UQsUdklgePbNWoS7xsEEgMvqHBBXMomfI8qL7e
Ps2y0F/zDfGkX3zau1IbucQ4a4aPJrzYPWnLa57bLMpedofMc0WTh9oa6w4W
8Pn4aRQOZE1vnmQFzZcMOp3kOaSazPZD3/HXDXLpgF/G8mDjueUs0Rg3MU0p
nN9aX2WjCEvKq40GViZlk+pC85zt0cPRoY+wYIqE0cTv2jqnlnSBCbt6LHqZ
ajg07dc9JEzkE7Z4QhZHTgK172svC9xrvp7b6m11Nnut+2aulBjrbW74lfzr
fvrIL42dhyrvvlunn8pbqHpVKm9hnLO3b9ltQxriG34tuEQ5ar+lMjVytxIb
ho3k5eiO6bXo1nS3P1tXhbEZq4kptTZOaCnm+KXAQlfOzUbzNj2mBNQ7/Dm5
GfK6yaibvu7snDs1G5Niu+6n/qBDfh793iqmFiIOE6M4bN9pGcI2fHLbWWMh
YLvXNrcn1qtOmhBRvULnuRlKQxz83TlHG4HxdXXj/M+9y8qZGK9zfX8CWj5b
8IIsiLyl4fLMb9d5n/Pb6Iaaakq5Pq+y56xyWjhm+E3fHt+9vvWFtxP8P0xB
cf2giaz4S2Tm/Plj9OfeZ3oMbfJbfjjCVbcfuUJqIsfvO4YMJefRtp2nnzeW
HKAlZm9diBukkEnmb3k88Uye6O5HrCL/zDP6/KHIPdXQ7F84js8+m1uNHVPQ
eplpMITJ257MEXb4B38UXSvr+qVCm9as8XlR8xr1Smh1kwyTr5osk8pLpLxm
bmj35/mmeDAgZqT7TTfJcI+I5YJcS2qSL3xYV7iIhh18116kygvNeZ4HhR7O
O4s9jTqyYEAqhmrWrMi9Tc0fGm5rIGRL7wbfmtfgGgTEHsLL4k3G/OemXW0B
GtbX76Bgu0ksF5pdg58dagna09Boldw1IOVhuPZan+YjqJnN98C4ElCNFN84
SX1G6Fzxs8GA4MAvvBBKjbHAY4H2yA6f1O9WWVeU4zTw4FNq2UIPG28dV2C0
RUUn44FV+wqSVsXGXHHEMc4QceMor8mj0j7zjM8FF5ygAkGb14QT9ELZODTQ
vtF+DrQvzAi0K4rWyT3bnu3CypLX/JtlQ2z0EFH0MX75Cf/JQw/pS//c9u94
iGizWizpB1s/LBs29QHZ8MX33huVDXGR3yguYfESgua118rBmU3dVfUpp/gz
sMliWbH3hIQvPfTQptnA3vXT40m8RgNhhpMI48BA+/c8RC7EYACDijfKrG9c
nDhn8a2sXz8yG+J7HiLv03D+8BNbSU6zzwXaN3mI3LBBskC9/fRnk85cb82f
P6IzPS72cBBUakkjsJqbxbkAC5JWA21aOvUunHXSh9JxlA++ZVHuvnt49nwU
DiGSCH5+QtUl4P6AQPv37ecg6wTT9x0Y0WsvuzK5Y8Qr3NbmFYgg2Pc9WDgF
uQh1t40eEu0faL/Eg0VNV88Sx3T54y8mqjnXiHPmeGUtCHapJ04VAKi6Rtbt
l9nUPbbQSF/O4MLXViYuNvrfcos3iIIQmz1ErGyYEYR23XWyb2ZTFx7FIyG1
gu29Gf4EZdT4bFetGtiZZLTaF94FPQznny/7xNTygZ+SS4nnApdpbIlZ49KZ
4913e4kbC6HuCvGEhNAHfo+5AtArLygDITQm7tXux24n03eOoPHDhASNq9o2
0K4KKwrh8bjVXjIpKxk9OmcSvSvuEprQh35CBCRq3DO6IQ+fnIkGxbfI1EoM
jYlSU9foFi02BrsU9wlNrsWDwZGH0MRPdt117rf+ZF/otDe9LQ2SDybiT9/R
4dY16+mnNsQW56FyQfKM0tl2gUoxQRjL/Z5za6L0WVEhgzrPpsdFJLKBFFoF
Sx/wwjAMQfm8yqZXa52U+MsuBZG3iEguiBUeBOdSK6NhOyN0umxNj2sPhCaj
kOBBMFm1OHmlEetpdjLpehI9qTmRC2el3xle1+l9z2c+IwE662Ge+sTKW+GH
RsZ/+9uOYxpTI9Eyu25FvpIEdkwt64ZsRJkh7YTHtdiD611G89Daa5A/mtOc
Oe677XX0dkP5xhAY79ZUjYBQ3vrQ0LYKXn8ssC5Y9ySpdog12c/NY/SaZZrp
M75kUhq97HTnuWNtcEiN9D+Fsll3Ab2d/yGdSjvP2CFJaT/H/i/06R//Yl0W
tuH/Czz+O99/nT551iik8oQisu1nfORy9ZhQ1HXO8AOzlRGXrKWnuVpSWDBy
tvLRTbaVjtzJZ+oUEkyPEjzr9tNZw0MzlQf+9DDDSaf9SctW1Ru7S0eSQilX
DUin6c+XSCQPDhoB0V3mjwAOVTlxN93l7uiCQ1ex3G2qDfvL5jpCFyHcXbYM
5xbqTtpmZLiwf7bWrmFRGkpLYfsVdIacIzETUdc1hYTtHhfyzhKRXZNApMGq
TEynZrCf4/wP6TwK6Y7xWva8Xv2/0xeaCT19E2l/13VL3xXaH7zvwB2qvqe3
sp/OodrDZFQFafbo+vuCN+589jmFVAqVPid+sn88SRmLrL2pVspKy6S8vNz/
LZOyyrvkgq4XYjE3S7NI28CxoiE2KK60rDwZrKzUWKp/DV1oxWwpzS5tk0KP
m9vRJrMa5q/ZGT6LpGnRUz3NmZRcUdmWw3yTtpbmLqMueOoS6WEqpGTU9vSe
9jV1UaaIGaXD9j4lUR6pkyDbl8RC3SPb18phQWTj1BgfQ5l7+7mZp4u+FrMn
CitBL+FIva9Wbz8T4dmTcvSekrnmwhO4erWnv24UWJ+CXv9y5YC39Lnn1qW6
h3RZll99LOrS5bJg/vw1PQI8NP2DC87Bg81LWw39xX9KQBGO/pUrV/Vo2Nwf
Yi5Chh0CDPbe2wcPD3CeL5xrZOlYv35FH4aPQ1JxbxLps9VWSWwy3nKu0mfM
8L6v/EWqQtWg/nVLug/U7sQ44eElMHnYsHjyOC+JHF240F/Hhau5/ztUeA+L
ded+/o+r8O7M0kEuZJ/YWG580ueZ2z3iX1pbI7Up+1ANXlf3P6Xie5/VuTE9
7P7vVul9uKdNe91AxP6eeyaMHw8xgSnwrY6OTXSOfSsKP0ZP3X8Lv/ew8Huu
Uj9OJ/GfWeB9E10S7jAJoBk9OlEhCFEhPdbbb/volF4VgteV/W+x916msx2b
v0u+3DLa9f9qRfdROjpKExlyiTwpKoopklhsop5WrIiDN3tR/H1s/i66sP+t
7+7/qMU+Nn/XGP1/o9rtsfuaODFCwffdN9dyI0DGWW76pqEPZd7H9qzrfyu6
d/HLjM3fVUny36Fkuxqw9pKe/DBbb51r5TuHSfz4qg+l3cfm7xqv5v/ZUu7x
cV67Vn1xfSnqPi7cJZQ9a5wO8y9atT2+nsKDQnSpK5kSExZRMoTRLVjgvRa9
KvA+Ltwldh/a/f1XLujuCMY/GecwEqOGj5HwagpokZZyyZLYhunGR7pToF3i
Uvv/t4i7i2QZlPg8Cf7UZ4D4SKi8ho9k1arYgdldwfdPBdqF8Ak9os+3hj0s
9K7VyW0dL6ZBQPGgQdbvA0yeO5A3lchpcqjx5o/nIaL3VbkrFIfRqdt2r70S
4c8jAhKfcGY2bnSvCL10S9XD5FSR/wpoPH4k1HzTTWOEcEmRNo1HR4Tq8tj8
PRt5Hbvd0wip8zdopRFfj1iYM8c/1QzK2vhqhecFgAMs4EFjwIAYM57A8UyQ
J70gz3ti78EcERg27ccl5t56tAcOjJEjeQTvn5Yt8+91Y1bM+jGSUaTMv/gc
bvEhgJa/PK/g8Qb5Y4hmJ3HUbTeulcd+/4pNR734hLNl9ee+KBtHbR4jj2JG
uDkZ9q+91lVjskWNJKcsNrpbGiyv9xUsb98oxsPy8FoX3Y+07sSq8iiC8mss
oRl2S90V3sxhlRx4YEImHCgqZJIlZd0693S7Z6XkdYEYFWxd/mw+N7HVTsk9
wF+wYcU5wry1pS0LRfEydo9FIC04GRI4D0QoU1DRpQx3Fy+HRM/Ij6Nr5Ibo
VKmL9uf1tS5me0GxNG+zl7x7+Pdt0w3PzuBa5/9ied9/dVzSb3xI55zecViV
7jgyh4drOLahSdpDp9x7cdVDUgAc3jBwHrfB9pJ6kwVelZH4X3AsnmzwzIHM
PuQsQOaTWZm2S5b4YzPAxf7SFxipixa4BwUZmsKvEf8v7sb/K1ycbOxxcXmn
7o+2bIK3KvzGM25eDEAQHP+jvtIhR+8yT04cep9cFP1a7o2Ok7cN29EEuHr3
yr/fGfppeXnnE2Tm1y6TN/7wsLS8/t8t/d/AJfSgLwTDkYNLb8hLcbQJfofV
I1FJVYTggr2TgSQpej0oPuhckPPGjyJk0ASMg7eHvOVyezssgcnLkttvdwks
NHMJT0+oHEEGFX4Xi0Mw5+6/+rr/Cx7rbX0nnqaxvRRwufGqj+Tqb06X63e7
Wv42/GR5NdqDpDSRiuUP+m0mL4+cIE/veabUfu9mO96aD9fsERg+RGn/zHfO
cBhotWKSrlDkmrpDqE2IDx78GfvBEWGxpSFSE2ExoVHBnBiO11HxfQGqFCJs
550T1YlXW4giFJyNG8d8zLPIsx9OzXavexveWCu1VS/L1G9Wy2O7nSUvjfgC
a+/3odiyzAWFO0ndtsfLs4dXyKu/+bssf3mBTTT0YWDscX5sLqbRqXnMRVk8
VF5nrejxHWwvCHkKiWMHds5ie3PFvd2nltGoUV0sgNmzfVa3vIXkl7yyWF66
5BF56iuXy7M7nihvDtyD1JlKYK39hsubmx8ksw45QxZdeINseH4mDGNJnhFZ
L9J7MictTb/DDp4QBsY11tHo4UCL5q93ZbxJAFNcHE+DZ1lYW8ZWeCw1Dasb
7+VBrVvdLm/cPVuePPUOeXTv82TGyC9LU7SVIk+i3iWb7yZNh50obZde6RLY
LV/+Lr0L0uOQ4Rb64vE71hwc1NCu04qG2BosWDJ//t1yWXjBjdJx8CFJdgjm
g2KNKtbe7jNiBpd8X7/pbN7Mh5fJPac9IX8Zf4XUDDpRZke7kc8nPtirN9tO
1h9xlDN60OnRBDdsmB8YVmvA45vGlKMHB3DoUNXrXE3dEw5YIM9MuEjattwh
XmRSm/CWq67O50/NU/u92D4EvLO6TSq/9oJcvM0kub7fafJ8dAB2Qox4R/FA
l+IKDxJ33RSxWbHizcxh3aNYaiYhx5BN222XVIglW/qRg56UJ7b+Lo/aY8RR
UlFO337b5+7NU9x9kLX6bIXyn5rRdponx0X32nJd90fHyvx+Y3hgzqDObLR1
5ca41MwwI+pONzXNDgx/qB+ehCFU5OPB15auNpkMjlbbfN5PFB8JHSYGOq/z
/KXV/dmYf8F+DrayXiuVQ4akGCCne2l0vdw+9DRZsPl+sqFwYGzz8qiYzedh
N4o767p2bX0AwmF+UxE1nDMe3OHN2DxqljOiP8kL0X4xEyaj+MZvfMsVXN+w
4W+dz6NLKDbEGqTsOU8p9fXugKhd9iyYJZfs9BeZedBZ8tH+XwDNmGCsVsFr
XLYe8x4rdtGiuviQHu4RJaCRQ4qqA4/cJZojl0XncuDj1V09citZfcbPLfO7
J3t1XUZHV3eZKWEgGxOpwMsqrKXf/qhJ5vxxqnRcepnbWMr+DUgkrw1OxLTC
n8NKY5qtX18bgKbJQNlLVKrvfmeDfHPkI3Jn9C1y1CruS7feSz781VU2P/Cd
2bhrTXaIDi8I7pkBA3z15kGWSDjRsLqNbescXrhu8HahzG25ZTIH3hGzlMjX
K690RT6XLQtVBT/a73Bcc/6clXLhVjfZTFxa9YcA1Ld3Plreu6rG5uy5PXsS
Wo0dngVyMFBDMOmS7+gRxMSkS4Czgpi9ODZw2/A4tH//eDr4NMgyQuYHdFQC
Idvbpwbga512TKVJ5y6Q67f+jTREY3QrqO3ywt6nS8NfZ/iaCMFZfM2PQlUa
pB0oGa6rBjasAOqYkU7RSFusd1gAVjqPdkeMiKeAAc6OnHSSk0b4xZqbHwgA
1zrtOApryqbLg584VVZEI3QKi4rGSO1hv5b3nmmIqrOn8I3USUAIcwiNsEiX
gkWevPWWRln6/EhIO0IqEdqEV+ouFLq8SjAT+lEbccECnwo/F/I3PeRl77bJ
E6V3y4xRR0FBij85Op/59iRZ0bjc1xlJ8Rutm85iwh3xWRtaVqzRlshrwyPo
OHkbBgvZbVGh0Jg4u6mFJw8fe3HGGW5vyBD10Uf2HBYkIAtk8WvNMu3Yq+WN
wfvE7HEtRQS3+brMvOghAjtdaZtelmN3xZrBev/9E/EHOSCHkEHp+sQcQ5JO
okWff77L8bjVVqqNWmWbXSFeArUSd+UCp41qGbielm1veHCOPHXAebK4YJuY
y5I3tXbvM2VBzUvRdW6y/5t12VEmmWSiFxRY6wLl0swqqYhOtgxYGCKIA8RB
Ki6Otxj7l9SpKNJUomeL16xxJeP+qdLtJ3tyJON5feXjVo82OpEu18JBu8jM
Yy+Rj95oNHLV9ulxajvpcXn2k/0O4CGAR8KMsgqib6orhp8eBYBDhFzl3G69
dY5oJoYf+Xf55Y4bLV16aYz8x17NvXXxKnny5NukbsThceEZxMvcLT8v83/1
F46kLzrXXUa80PufkAPrB6nThzgdPz4hMsSQlkrfQsGRKhM1BHkJkZHdP3Vj
QoYEfCTcHJC9mTua9et/o70/nrrubz29WKYceoXMLtgjZkKr+w+VuZ89WVY/
UstB/2OnVfo4yreH66ej7Pn66VsqNEwcVM+bbnLaCMx2k03iRcJmYt2wtfAZ
cGhbWn7pe/+Ttd5P83uNvvjIZa/I37Y5U5ZFm8XMa9gnZcnpF7Grvghlz5Lu
9bige1JUPV2SlRt0jhAZvLdReNQ/Rd3lCpnziuJZUBAvE9IXzQhBi3B2LFyL
zX0M9d8HyFuvr5fqY+6ThwuPIedivEifOkjar7vRWimVnRfp4y3z7mqso0do
ZD6WAymCqTi8vULFU4Lng+c3MHBk/ODB8VLhJSIckDrJJI8xOpfhFWdp74+n
KPyP/aKhLN15dbP8YbsqKkXpCaSi0dqjj3d7tW7d79y6ffwl4F1Fa6SfpmPh
GKICGH3Zp68pcuVs4e1owsrbt9km1hHog47AyucSWDzPj6V0/AC7beeXvC5/
KPiFvBttozS2YcSmbr+ee85XDf6nysNr7SiOPfbY7rsnh48CgzBjZJ9GE1qO
j3MC4xeehms8j7YARa1apUe870XlXV7oil9vlOM2edJW5zZae+IewLGByrZw
YeSERp4C8sVW0CNt/M2N9f3BZchnunNM/O02I7kV8jgGoZSUkFdCwMOF/Y2u
uWTJWZlQh1jujr9jr13a5OvGzn4wOipOlW6NQdg9DVpbff3uLmXmi61xhvzU
JGqsNzaqoW2fcLyTsA3sERZWWthym7Funa1lZTH/uR8HdRl3OnEXW0RLbdGz
14v2yniDcUH2up/rkTeqmV1Kzd7NJLhiQ1PYI73uiH+qvuBh4LXRyJE5QhCn
AunNiC3AEbF4cWkA6nl+RJy9WAOo97tHs2TSkLPlo6GjcyL0SeH7xhu+QH2e
2vXFNh8mwlfz4KLsIZDnzBGq3+VKKAgD2xBHTUpC4T9EsVR3k3OCfC8AVSve
k/2UlWLFcA2dMOxBmbPr8dJRWJQcAhR3rN/Fiz25BCdygR8ScsRw0lraWhqe
2iX76UTg2WgkhDLhesZtMmpUF08IF9oEeVCWdMWK7wSgOi1lmOXB7KqqQtsN
a5H7v3y9rD/g4MQ5zJqiH8GD16zxByg4mQv9ZCAaVlIrlTMSdybEMn1OJwP5
Qc/4QdiVTn4QEpgfdZQzmnCxO99xqCaIO53uEgfK0Te0OAJ/e2qjrCq/BK0k
5zKGJaImdkdHWfZ0LvLfYY3Ad4wVEXNjXtXWOw3Bl+0pcjWrSeuI3oTwp/L2
kDj8xOoExPKccoprQqXJjz4Kldj4tf0cZG/CueXUwkyMgCq67OGZzsofNSoh
OLQzuG5jo5exKYZV4XeGqeCJ3223XDIjMuPzvo3lNKQVI9AH/zRbx7VXv5SD
meOLpqdWlTv4tpBhQQJwhD2gOKA33zyZAa6tD99f5wBws5IO1cPx655bR2dk
b83FHldQxX+giY+hVdzMjY0SfVG3BRzYFs4EG8+tTGFhjruZk8SJguEj6tes
+VIAqpPwg60bhhARTa4OxaF+sP+WDDHed989h+LAChNh48bTs6d1iZ8Wag8H
SLP4c7LZ96VLxfupvX2CGxOcwf0L1ic9IL1D3AHBbAmgwrx5993PB6A6JW8I
AtdWktBiPewZQsu9whdH8LidNtusa6ye4del2RO71E+MoSB9Vfo4o7zHQtZ/
RSdGjjjoiSWGmaP5FMW3eXbVmSuCFp5EEPnGjaFErpfZz6F2S+DuWnGbZUXU
chrsHzLd4Q3sdH3HFRBFj5cti07JnlulnxtUgRGk8pRAdo4GoQnH6NyAxGUp
JI7Ex5u9eRLup/ekSBfIlXC/5ctDmUd/70dEuKFVaDZcEqoaYRdb47AQ3IWh
SD6uu9et+1721C73U0PN5NTqfQibjhDi4tsVKip00Z4QGScBlrH99i7/PSwF
qd6ZmyPNjKIeutH+g58cqj+IqmqI9vHCC8lLKAQxHGrHHROChFfid58+XYvH
J2zwj35cZA9LrNYai2Zk0Td0l1g0lp4toB1bMmRIoYKoq4sxtVpeQXpsuLpm
seQvKqnBM47+hmUxNgJiROzqtgyWwzdvXuQkdo99r1d6wKzpsccmgOFphj+c
4PcwZuvsOouGYQCDePXVJDFlNw7Vqzwo7CxluRCTlUnLRMPq7dbip0NKFsYG
ub02RMn58MMop1D4wO5e56u7rd7Yl/4JX9A6qfL4we015TBChQOyZIk4/aTX
KQSyITlOjatdr0ypj47Wh5UWh4bj04Xr7ZfcRlqWTqknTkx7u9NreuxSXd7S
5B+Xz5WasglSWl1L9oUQotf4JeEWQ/OEIo9groYbnx9D7NNz9pAfVCFysYHy
osol9tkDD0hM1rjE4f2GT8QUwjLCFo00+Vp6STJdpOqymVs9wTQuNUZIhUy0
D3pKZWpDW2hF/uS7ID8xCVTcYbUa/Mp1Rfr2fDq0Itd6iIQGYSmpZk0AvzEh
49QfnFB0BITe4ME5EefI4SVL/J1jdx7RxCXTJFVl9lGKzK0q4dV/Kp2SYgUz
JOxOseL28a235Fz/cx/e7CYuuj/7QeCYWrsDpovRYWS+RpdZ1QOvWFpKqd3h
tMGjO5ND0M2p77rw4JVV1Ur9pIlsWsjXMimFGlq56lnIOaPIqdnduxeiIXpT
QFq4S21VaN1oIcpn7V3YxRfDk5M1gDZhXs5WObLzGgS9mMmtQYXFI3k8lYvX
9Sm88HGris4NtNGrzlEovXqPGFqAG5SSWt1TD5W6SElj36pMs4o3d81p9RKW
BRNZsCDyhcK7LxZaEK8M7xNDU7/RY4ScB6JihBvAkP7P/Nx68CguNN+b/Oho
L1qfCgiooGYN3HwHOV2QW83OJpBmaFqxInJWSNCnGFIFbvaQ0TC1wCL3Z4h7
w+7O1mFSjr+QmL/FLzGBuUqtxGQYkZ7kAclKAMUdACFcGza4+J+gYnlLivaY
qlpSyIgnnpCLAl2qfRdYBXumCi++M6Nf6VMe6yXkDKfflGJusPpG1fl8Cimr
E97qx2U++PJUfYIJm++szlCQboh/SHkZCjHmbXu7xNVOsCoomd2Ji3NXhGaw
dGl0cPbC3OaB4NRFOeMnFgcjzyzWBXm6sJZcG6j9AUCjLG+i5IZ1ilEJSSqv
hyxR0tAO1q3zzpkgYn/1UJCakJO6PFHJjV5wfqDL7b4LAgZVh5+wStk9g8ym
umOE5GE0jB2b7Bhz9q+A85SYnewhoEpo9SfoHXvXbMl5gS53eNpGhYWmrdtr
O0uy0WaKEZ4z9PPhw6McBZ37irfeylf09U4/PPulXhvsV2M6e8drqL3jjTh0
dGMIojXUpwn07NWRZnNLadR4mHgWZjTqPHVX7/JA3n/f3cWppwS73ajqPw90
udvPA2uG23M1aG+9NZVJAM820A84oKteizm9fv0eKaTsaavx4+K0UScAnj+z
4pGVOBaNezzCuAvSxIbX3yhROkdbZIcQnbQKiTuHlXz++XyVR2s8BCxbPfWs
PZaMUVzPDnT5m0cdBsO6q+fHyM5oS90nDiHO/k7Z29AtXS4/l1IpjNS9HgK3
F1prBofw44/rxUuovYtWRp9X/wYs8Z13xD2z96nD4OXcnqVTh6WexeYpvnlf
ikS56lIS5YCY784MdLnfT4RzqXYYRscNN4h/pl3gAuGIVuj8FJXt4Dq1o2Ns
NlJ/9xDgk1pLBl0BOvppZvsiy5zhwurJgKIWL/Y5hv1zVCTF5pvn6iBQodm8
T3am5wf8uBg7p5+e8DgkkKHeH8ck/YBHGJJV6oHJmX2JX01YjQDGhBnf+f0y
HMVoBNs7DPLVCU1nLwxpPw96VPC+q3hHWBitIQ6Z6i5nYEjveTBFjnBgnQEe
EMMqtN6ANYfZ+M6aw/HxtbPbDq/q9S13XwjBhzyC8C0t1Yq4gCDMwXXhcb1O
ZheC9A+/cOgKOJdUr+Ykx84WtDRyXG6zTVe5N2OG1pTreZhVMGNcCLuHPXZY
I6ot4FGlRsm3YnB9yqAWMn8f9ssON2e+UDR/sQXMdzsooXI24Z346FN5GzQP
akODloDroU8gI0VZaEWm+hVBFeGwqSuH0/lNhdantF2hBXnEQ8PWVx0EJYFg
kU/qamguA9ymA+KQUqvWu/StXl3pmTMgM0NWaDUe8V3YEK7nVPyi0RqO/3X/
c98yR4UW5FG/IEhjLbIHh/7zn1OZAlDQYRv7JEGrthFXUOjbGzdu0pk8ep2m
KfGOKEpUDFIFCEo0GrUPW+4+eimQqShxjTzmW8HXtd4jlqBhTkkCCXQNjswn
PpGwCCgG8TJ7ts9h151DQLc4nQRIeXp6Fx73w6Au4EFX7y4GjiGF4xRKz5Pj
hKA84edN2DoXLGpcGkme5F5AhCCeOuVe4OYOZv3++1qorntvQJekNCGKn+aH
wTeuajsckVKSx/lhepbOJXt0xwDxbsL8UBK4DTFmitO9BrnEDnhiMGXSt+8o
KdyatLVFXSpv5c+0EsLmST9Xbo6U17mqjTrXXA9BPG4qw0noED/lxyWeR93h
2MkLF6aSMsNg0Q122ikhaEQQxfPuu09LQoU0vqc8MjAlrEW1/3ElmoX9bqDL
0x4jNE3WkJ8Ahh9jVyUcHjIgcXXbR4/Oh8UzvhsWoqroxFzwuODEzPbOOIdy
lZUyX3PONJuNNat5V3PNNTnQrY75rIfJCz8133AM3nabD7wvSLfCi6ZVHol0
MSwk2id7QtN9N+5l1H4AOW4tv52nPdYAvmx+wsMPMp/JBvOc70Z0k2LHaW5o
kOiEQPsZvj3HoTNae2WD0W44iVSQsOPmXHvNJrf983nQ2jMbTJ3vhv9LtVys
BnOY/WuUcPvOaN13n4ZapbZ7pm8MYSqJ4RI01nv09Xi7ZwZQgLeAQh67V7uh
g3P3zE/YANhNxwfav+jbEznIrS8/wTSMzeQj3IJgtBuHFS4HN8PyNNj6i53c
9i/59sh4bkX4CR5i7EB/UoNg6n03nA2qyBJLRAnEr+ZpD1pcPfXzNXkvv1zy
2eUv+27cnqo2j74GZwuF77zi2+MGVbaiaO2cDUa7EUiA4FOfi1ETjS7Ztf2r
vj0XB4oWxEvwS9qet1Tl0jq5MqrIHqb9xz/KMTFBveZHw5JV4wixYDRyL5fz
Gp02AbyXGCGjc5YfHqmOZs1PhCtyoLWqcXcJ6EPSbLaHSOQF84LKjJboNCjP
S4d2Y0GusoHLJeXVRraXSdmkutAEZnu00Fu08Co3cxhNB3kwvcxnHprP6yna
UZI+5RQr4nyS9p5bhNTv0nTTQrX5idiv+aDC1TXgAvfc9OkasdfnpNghVeEN
Dw7/kAYJYtgsWaIGUE9tPPuztXSNkVFN9HllUhwqDBRRTKQFhx9xjFPqszpc
75Mrh0DN8e25X+I6lZ9g5QRA7thpfmGrLbnIrLEjY63VNrcn9omCIIZOb7BR
Y+D/+/uxe5ect6DL2GjhRFmpjDfmqPde9NjGMhRQU8pFeZUl+spp4UcBb/r2
BFSrO497Cl6axOGvvU/uGtqbt3x7nuzq2zK8e6SD2q7z5PI+EwFiidkXy9qE
bcykPQWKgatXgugbxF3umxqulxlEQ6De9u1RH9TDTgyg0Ta9ozGv0aTEUTfJ
cMKqyTKpvETKa+aGNk0hEe6r9iIsyxgAflK9ymoZmsw83x5bRWscYzQSYO+d
hHnfW9iqJNlCSZ/U4VZAIPL36qvjSt/d5W8MYdzgWyNGNRoLz59Ry73rOyj7
5/tuGE/K9rnFMEfQUFh2e5gZCpZ6TGoMu9gqBcbK/oW+MZGSGgPEXYDh9u4+
tCBp5cqea9l7I1U/kY20jovWpm5+HMlmt6JDA+0bfXvCszTaAB0A2TY6G4x2
wyOmVdzRWV96KVEd0u3f8e15CaSSmlgDo/P6u6sgGO3GknKpxE84ZrgZPDjQ
fpFvj1JPnIqeaaMl+kosQTDv+mXm4mWAD3O5/no5KLOp48N6wFi3ujq9qwxC
eM9DgJa4deEnM6EDA02bfFPioNhvSOjvf/flxVIUtNhjgj9b68Kzc4S5fTam
oMUpCiryIch/+pO/6A2iquO+845LvMdPBGEQD3xAoP37vj2eUz0m+MJg3iOz
wWg35DHvZ5RQYSP7B9ov8e0RR2r14PxkuiOywWg3/Dzo+yr2McH3C7Rf6tsT
F6az5+5u1SqNswiC0W4QKiYfP6FSYyyFQoWbU7PHkFQmirY1rPNOf+D3kLhn
9g9OcNddsk+8ycv8aJxGvdXnbhyyH5qNtI6Lhw2DHmq75hr5TGZTZ6WRXoKf
eMbMeXfhKsGCv7lMXzy8rsN/6H8hCFctEaMPjok75JQFzuH7foQQ32/x3XFu
qYPm8cd9tkmPb+8qF4Vwb/FLwzWlXt1x7UggtlMs2YLsisJz27tUsgpNZrmf
DBcN8CcO8513ShfnY+/K3GRDcrxaHTBoK4iEHf2iZdUhDhRBCsLQevZ4CWBw
kN5VV/mwy2BdYDdKt7VhugIptOWRVFPBR8Cx2EFBtHYu2ttNoZxcECv9PPA9
qlvB8PXi7ueRUVsj0fh1iZBl6kowCmQu4ulyKT0oqWIHVpy5yMDLDzc1crio
KyX1sPhCaO01IJxAI/+yIFnzLoWSuynCkTu0rZHYn130y9xN/eS89QZyh7af
cTHycE3lUI2G0Fg5FTJBrieJ4UMMphNSGRWXs7L5B5HSAsyhjOtdQGuQQDo1
fJ6xQ5LGfo7tpk+eYvJ9HvNfuc9/2nw/5jUK6RuhAFz7GR+fXE0iFGmbM/zA
bPXAZR3qadKhFBaMnK0OdJMTqCN38pnyXoIJfoLn1n46I2xopmDnTw+T7nTa
n7TwU82tu+w5KZRyRXQSTZ4/o00eHPTutLvcNAEcqnLu6btLGNMFh64CtdvU
L/aXpEZyZ7nZXToW5yfpTkBm5Faxf+IKLmFhGEpxYvsVdIacI/0SsdU1QYnt
vk0MNkPcdU0Vkgar8i2d3MN+ahRHOqdGumO8lnJIxhdRv/8PxwDYDA==\
\>"]],

Cell[TextData[{
 "5) Draw a disk like the one below by graphing the functions",
 StyleBox[" y=", "Input"],
 StyleBox[Cell[BoxData[
  FormBox[
   SqrtBox[
    RowBox[{"1", "-", 
     SuperscriptBox["x", "2"]}]], TraditionalForm]], "Input"], "Input"],
 " and ",
 StyleBox[" y=", "Input"],
 StyleBox[Cell[BoxData[
  FormBox[
   RowBox[{"-", 
    SqrtBox[
     RowBox[{"1", "-", 
      SuperscriptBox["x", "2"]}]]}], TraditionalForm]], "Input"], "Input"],
 "between ",
 StyleBox["x=-1", "Input"],
 " and ",
 StyleBox["x=1", "Input"],
 ", then filling in below and above these graphs with color using ",
 StyleBox["Filling", "Input"],
 " and ",
 StyleBox["FillingStyle", "Input"],
 ". To get this circle to look like a circle rather than an ellipse, you will \
need to specify ",
 StyleBox["AspectRatio->1", "Input"],
 ". To turn off the axes you will need to specify ",
 StyleBox["Axes \[Rule] False", "Input"],
 ". You will also need ",
 StyleBox["ImageSize", "Input"],
 " to make the circle smaller. (The graphics command ",
 StyleBox["Disk", "Input"],
 " can also be used to make graphs like this. See Lesson ?)"
}], "Text",
 CellChangeTimes->{{3.461418303559588*^9, 3.4614184706501827`*^9}, {
  3.4614185041920757`*^9, 3.461418745602323*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJyF2Xk4VVvYAHAqiUoaJA1KmlBSRPPbIFRX4kpKUYrKlFxJkySVBiWEJBIN
NChDxrwcZM48TxmT4WxuRaZ86z7P9/3z/vP1T886Z5+19157vcP20zttKmMm
ICAwRkBg7IT//kdudLRjJijC6vjLzsqzNZGffMLateAcFKX6Npu+0cTuo6kd
E0tLoepg4MSED6LYNVdtxumUeVD/cMyHq0qG2FE3RSjdMgYaj5lZPgwewe8u
VT2r7h6BZl3Tr/suj8F2QLeLnr+hpdEwdMHwWWxr9JOqFwuBNuNvIz0yRdh6
q8Ru1a4A+Bbu92T66hFs2SnneNTKBdrxcfxZoa3Y1G13LnzsRfieb1Cuts8M
G1+VLypwPgodEQEal9R08KtFgF/rp4fQea7q3eJ9M7B+4ZtJyxoSoGuDkHJz
3xOsCdTftkVcFrrqfinm/rmFlc1NFm7ykdB9cZbKfY/DWK6quuBDRgPwxxRK
nRHZhSUfcfXD5a3AP/Nuvk5JEhYJKqqGOU0FfpW7wu1EZcz78Xw5p7ocOIXI
5CeC+pjpGF/YrX4NuLOS3GG7HciTPODxTl8CuLdpL5JPlWDCoqwpGX2RwJUp
nLuVy8N3rt/dW2ueA9d7WmB3lTl6H6uJnqt7GLg/R1TkKxLA6yyv7KJoPBtf
11jq1A4RhlelBZvWANfzTPL3Tj7E89YPJPbIAlduVfDzWiTwDPfkV4XsBO61
da2GtQxkxvwaO017B3B262Ye7+RBXqySc4XJfeBWrtLd2+8ORdP2Tp63JxP4
FSuv8erUoMS/2ElCphv4Ditrr5nMgfKZ948q2J8F/oQXAbk7E6Eyy1xPvLYC
up0b756Js4eav4S/bTx/BLp6nV2XbheFeqG022oKadC1LdbybFwufNUKbU8S
WQKdd0XVky47QqOb0A7LpHnQkaH60lFhHDQ12YWNGRSA72XHCzec9ISWxRnG
n3T7ob32n8FI/WPQ6rp4jolKDXyL4PUIygRCW+3CqeL7baHt+KUH86dZQPu8
cYYt3lLQKmLRnzksDt8df7x8avQOmo1tIhXdGqHjU5bWlU37odHL8Ffe93bo
HF6/0Nr4AzSIOC2POFgC3fvix24X/Q1VnvM1svwnA99vnuqGIj0o5lXHR5xW
BO7XPdu5Cx9BWKXexeXtMUDjgzNRfp1/Uw+yN95W+2PgjHzxGa+z9JZAWfew
wPIV5diVPHxlU44j1Eqbmq+TdMLOSyGTZ0t8h6+mviEnlWOx4KJAvozUUuDG
HbXE048xR3WlE3+TIXB6ZkW3Y0YwPUvkfX7eX8B56fRrb5+KKPfJ74GODXBp
08tVb+tjdFSg5SG7bcC1KpSajovEUCPLqMEx8sANXI/csq4XN6XNKV1W6vzf
dWeFnI6H0Fsf1E2istn3J+dICApAdOymdGPbIPb7hZb9BSsA11ntin18EDhe
+fq7JmcgQ1im/exvTeA8oq666ypAjqpn6s9yC3Z9R55au16CAut2bbc/94AT
WtM65OYHnYcF1zjsGQdffdcsi+u5C12vBjwrVUqh9lx0aMDsJdDd1zkXbRZD
ucPMTY0NFcBplJUoDPRB7hTP42MHALjBzBVSSi3wTFPd1NGIh1zEo5ze5i2Q
2uy/6N06LeSf2DzphccXKOn7PN07fgp2i5uohBa8gOpMLwvrgfHYmWctnt45
FhqinH1x1h4sNNm/54mQHvC5k3cuO1tjrnfHPn48Dzhw330p+x5+XnA0pc7t
JHCub2VfVM/ClPK5ihcvtwEXV7J6o7A3xlopb3qgcgG4upBAbfu5GGYr/5Tj
t7N90SQQMXczula3y1r9jGDr67X9VIkpBKp7RsxbtwS4YctXAgFvIHIVykW8
rwOuU4sXYmUBSZdLnq3LSAYuf86OFQuGIS0izmhpfhZwgW7iuWWFkNW3vena
g0rgTGMn34gNhy/T7p5QWikG3OyoThkXF+icfDx5MOMdNEoW3ZdYEA5deo+q
n2XzoC775fEtu4Og+4WeuODGe1A5XWJDQ/sBdt/nXaNaQ6HQuGJsz7RQ4H7L
f/EPS4YXpsf6ooLUkBPLvxumcBy+lDaufAsi2B3Xuatj+mWo+PgytVF5CmZV
2L/sTuEDd3yzjJNgDqad/vA0WVwJuGDBhJwdBZj0clupQog4cHk3Dn75vA8/
DIk8WvpelN1vetrToucY6H7g3gR5dj/DB4145eLg8uejufyJE2y9nucmvlKA
sF6pVUo5o2w9Lxxe0yIDsRuTTCYrHQWuXvGJhk00pAy6nPePuwhcbEDane2V
0DV6YPfkoDaoER9NsDyZBHxNV7nLQUlQGr0QL+60ZOu4WiZUTAvS4gxyLhqz
84wcu+MbJwKPqtd+3x4giFxFXrXrVDWI17+p/XmJB/I9iz9JvF8Ixa0b9iZ3
BGL3OvH7hnqboHrGTH2pmnDs/Kk3zX+fBzQs7t3et38CFr7fxgvZGgn8Ft+d
Uy0bME9dM9Wmvx+4NSnHJUsv4ec896xWcwfgLgt0euTVYKpDQoN3+x/goswM
fEtnY1zW5RevH/oAV3Xd+7xAOr4evC1p0aoB3A/eadOsUbxXpJNRnBvN1mfa
PangYvCrk+f9JdPD7uPhB6+NcvCeP1pruHcYOP6U8a8jx0DiAmHtwWr2fVGT
Vfj8IkgbN9bbOc4NuOezkrbXP4Qsg7l2ORyLTwvP26fzn0P+8Xr7sZl7gFs8
7UHN0xroaPW59knQBRoNlEYcgs5A19JTf9xmrId6yw/Ff60dB91OQreeyaZB
ZdlozIySNcBPyz18ruYiFAVIdgXVsH3cVxtkZL4cXq3Y7tgz4whyagIBGw4Y
QZ7i4lcOYm+xu+XK0IHVxVBeYSNcpJyG2TeKp1uPsnpldKblcBZg+py6Vxn8
zcD5a7QNeIrip3ZnVePzLA9kthV6lfdj1H79Mdumsnhq91GQ1MrH4KJJm65M
zAVuSKRlzVVXsBN/cvPWgjS2Xp3+1/O/wstNZuuz4Dhw/fduKqX7QczAyNSY
Qpb/Gnkbwiz6IGV3gM7F7TOA+2Q4V+u+MnSVytn823EYajJln6YMFwB/vlqI
9I0eKPPX6J3/1YXVzWuDJ8fNh8wIFNisMIbtY4lDhvYOEBQmuztudzNyN80T
TWJ2QkZjZ4VJ+SB+nNJe6lBizM53/Y32qwn4ojVX3v73LXY9+ck33BvxbLbg
GLENf7PrbTKwO1MPwWUj2v3LWJ0ZEpadvPMGRNk7nRMWZ+varrPZ1YblnTlL
X3NcPnyZOKXIxX8hy9uOI1XduhB62sB+4rltyG/zvzxzxAYKg/XjX87TxEeO
/sHTNs9m++XcfC0rG7j7S3qCx2Yrdj5FI4HlxfAmNH/pIwN/tt8UHkS3vgQu
+6vW11m28OmooNPM0zKsz/iQUD4UAJ5aGs+L7h1DrrPNVHvZavjQJem8874s
8l89kdCGPCje12i+ozoXu7VPbYyc7gZVcTJeznaZ2DVB3eu6aDnU17WXdM/O
wMLKuEsvTJqA3yB14Py/OZj3uO/cSslpwCmlvhkx2ouZC0Pyvu+7BNz5GRMK
HtdiaqboWpnA28C99x9s7fDAeIdnNWs/LwKu4ohIW+tdfAvxxa+OsPj6N0gF
Bg7gg7atuS41Aey68WGLmzr4yDnkNvvos/GMHNkHFfBe++maN8ETgeOMf9Z5
REDCGRnZGjM2f+nKNSuODQLvndyqFStYPn+1K9F2QxNkjZ+QwA9k9c3GymrW
pG7IFxO+YO3F6q28XMeDQEnoKIowl55vBY32nbN3PL0CXVOLxS/EO0B94pzg
lMPi0H2qQcPO1xiqVBrWPnhSBvy3P3dWlZtD8eoxhU/33mTxsuZmYrophI0/
ZG6rtwu53bMXjbM1gJwUpUTTYknsHtz1twfvEpQfnxKt3qiG2fXO2YrSLD4M
flRJjHpi+pkfb7LrWD/nU/xrWq8aJt+S/nauxQC4jGu86utxGC10XrVgK8sf
be2Ob7dpYsjMDb+TbgyyurpnW39sPhxRsczR8GL5dHSoNfDbS3jefAe8Blg+
+u0SsuEfIYgxfGIpusADuGbHFLfxawHb9ewrxFOBS5EujO5i+Tf5gXPrfT+o
XSBZ4/ahEvgTp5rwB29DuYjZbb0h1gcfetOWPSoK2TY+8VL6P9i+tlGPK34L
wVJyy912iSP32Hn7sjx1SBseqZh51Qo/JouJjBvbBVxDgOxRUzN8JT/YGvlP
HFun+gM2ot54BU+G2k9j/dBoquDs1+3w9JKsHq/pCJs3JcYM6yGyRLrQ6MgX
4L4Xn3LQbGJ9yF4/3Y44KLDa9lprH4uD30Vt63e7wXMbdym9PRbIH4we93XG
KSgUGZ/nq+OPAWMGJd1VzrO45pTDLSPg5kCH2mG9DnY+W834k1vh9a4fy83E
84D7efCvU5Xs+UWLrNk2/RCkHpcyLhJifcMf0RC1A8XgcyxbYHzBS+TSovQS
BjcCCoyCuKY93iqf8zPo62o234F58pEH4LFHfVz02zssPoWHsvTl8OmdWpet
Hmz/DsX51MFRuCQsJMfvZ/3A6JdvOxTZfbkZiY0XUYGM3Ibfu36bsetM+uf3
zC0Q8G1p2paDjnji+Wrcm/WYHd+/3bfTHH34G+R9NZPY/P/O33qvEjx+L+tq
9P7NrvOr0Pat4WydYw85zXOFj9EuqnfCG9jvDIsdnpjBrZpmX9v5g8j9+rFk
VdR7CDvoc/7tQg75US5bTwk/g+JJprMVV13E7v0PvYx/KkLVLc+4R9lXsGva
ppJBswtQH/+gRpk938KuHwde8geBX7tPNBPXYl5mfvGUJay/VNy4SdlvBmZq
v/vSqS0A3DnJZq2AG5jKrWo5MbAXuAilnlm6GhifH3P2ijGr4+Wawc2rWbw3
6b7XlGb9z78T4h3qatFrsRgW+LB88eeB3ebaA+BdEFAYsfcGG++peTN0HiIG
vqa/9WT1omfM/BilQEiQeieWG17O3rd02me8bQHetQ2j1076ARdWv9S4TQQy
6/40CJxl/Ymt/onaqljIa3o88uy8E3DLIx5HS9hAR2ZixZ53ptDoqnBO3WgE
uoTHS9lPmgH1Tda6TYbe0G2St6i6SAGqjkWKHRq1A37IhBTRkloovijic1uS
PYdfjUOdP5wgzFYpIOLiFuT2LfnWPlQKOYI6Ijoza5EvtPLKm9u6UC5nsmZs
/jTMETVcJLaC1Tf9d2Wa6WcxPeDPu9xSth8eTt8/lPUvJlfZbBn3iO3zdO2T
3q02GH3oTpFE1RCL90njOozCMSSupNxI3ZPViU4/f+EPoPVbPMilt/y//v+4
rPQIPFcN3DpQ/p7FRb+y/yp7iBHu9o3WYuvRorNKGx4DejSYZBqw9U69ZBP1
Kxi6ojJu1TepQu1f4ma8V4XAF/izeb+KIZRvETG14rH9r5t6aHDYGXK22X8O
zWN5emh23HfBLAiOTDLcEcby23N34cn7ecDr/7a6z7YBYyUWhOwKUGb9XXCK
26G1+CrfM013FXv+fUdzfRQfosvhPetLnFi/Ofo6Yq9xNAQFWoXrOrE8Mjxr
zONUC4h0sRkRcmP303FfaVlTHvAHzcRc2hWhcOLJwsQaNXZfTgctLoTA8+95
RqHTe5Abl5KVzvrFgrMLajvERfCJllxxTsQrNt8Ls12JPXD90t49aXXL2Pnu
+uQvr4XwwPGKOd2s///ZJfcjnvWhYfNe/yNeDDzftObDOqxOj8RKnnDjg59i
63BteQ5y+Skzg64nQJLO+zlFE2vx7t8xdev2sesdVTNNXf0d/NXGfXI+wer5
yN7wIxlpGKxob/J1jwpbJ9OaPdfnwbmJRYZJk1j/N1qf36XI6tLl065q48Ph
M280TekQq9PDJ9uX7TCCwL0rX2g1NKNtfr5SjU4hO55/UCRgMfopW7SW8jrZ
/B83RnQKwn272F65aHadoxM+abqxvrQ0tzhi9iAkbC0dKDs7nn0upPEizxnu
h38T2Rh9FrnGqsCTAdEQ0+ssq5v9BD1e2leoLkhk8dQRJKe1CyzkS6zeWPz3
/vhLWyIjEC+kq5RsXfLffipZ+4WvBrfPuc7vy3rNxnvrHaXdgUv+iVMl2iBF
aur8/YsT2DzGK4XlY8Hb9rqz2ycpvGnoMmm8hS07/twnEy4KnK/OvezR+4KN
E9vuKnag0WGfdWXNCmw8Mn1+P+vTOp61aS8Qg8jz3UlNX+3Z52+MNWx2gcsu
1UdTt4QhNzjgJjtwGoL5ujERlxuRH/ezwqHzLhR9W3o49MlO7D70Ojnm+FWo
slsMN83zsUtyvf2aaXlQ/1L3wJjKBCzsF89a9vEG8Kt73XcOmWNeXfyVK4rm
LP77R4tiHTDzmIpOlxZ7X3SYdUxBxhp5Y3ck3FkSCdy7C1HbWxowfmAz71k4
66/LEoSEHdXxnfKToJmXqoHrTVJ/7zwNvdLPrvv1g9W3P+dVr7n+Bu+FESUS
K56yscX1nHZ1iAhT6t2fwJ5Xj57LEk0/iO/+6bo9n+W3svoyE5ls4FlnmL+7
zvr78BeO4Yn7IDN7oFfkKDvfGc1lye11kJfXBhu7WP5b0fOruSgCOni8KW2/
aqHxTvp9Ddf30CX4dF5PjCnU/xrJ8VKPhu6DPG8x/jSouvBrg6V8L/CfeA7J
6vlCcZDkkOwJE5av4lTHTZwEYaEOt5e1VCN3cMXOmq1ekB30wXy9zj3kiz6T
SLDZCOUT03cvu/UTcxZsL3Jaw/LN37dLzk7JxvRI15V5hWwfe69eIOM8D1Hw
Ydeunyze0j6Mt0lOwGg3Cel1S6SBaw04vj1tA4aKzs+QD2H98kD8JL77EVi0
Qsiibsry//LVQEhSL4R+XZq2PGMj+15p7pmQjRDd8PCdyCFWL1vi1xyt+gZo
trgMHFm/w5P7Uie3ArremdwzunMdao929W20TIPuoZ9v7+huhnKjhZZjlFhe
/2u33/SLGyAnrCjzUnoJ64t6fghKGUDwyKMqW+fJyIV7nRx9chV4p4sMznwX
wtgtYT3W7ay/qpddeujjMIZJ10cu8JjL8tVC7c8/yvBawJyVC9axOj0aVBs8
WQQCe6+8iT00icXttl0aV89A5EHJ6QcD2H7o6DL5/rwE+D+5nY/Nv0PhmgMa
+JHl9d/63i6eSvBiiYWp++v1yIlkyn9sfQ4Fi208+XcQn3Skvj9lvYXN55zZ
vd4LXDddO3huoRY73yNvN79+CNe8HzFSa8eem3JcdQR7rwp52Xbnvjukya+b
fKdnCssL7rpXnl6CRxMWSNtWfkCu+LPjg1xHSKgtnmokOoDuni5FN8RL2XyL
jWKKveDRbUlsU69gv/vnWetmcwy+krIn4i2r10OqmSp9G8H+nprtQh9Xdnyr
74VTf7E6PoA6149D5nrf3WZL2P4ZhoVbDrVD4J9btR0xHvjP7hNS9hlsf4y2
J17Rr0e/8jFp/ziz96oRXwnD6WJwT7ljuHZAm30/h7PyLwauwGBy5qMYSKxN
nSd2I5DFSY1zcosYPJgtdWyC02Hk2r4KHGz6B6InVL7V1puBDzRqdA85sf3y
p+xy8VpBMFsZ9Pi8E3vfHv09/HjyFry89UtidYAvG+c4q6lshltrYxXCJ+ew
8ZE+E4EC4OKdBuW8gyEltWyd7OH//s6qcmr+NnV4eLpc+lZ1HLr56gj8vViX
HX+y8M6O/eDkGjTNzZrt79GMHIWtTWga9oc/r24WGw/eC3jE+vTWFTJmgdkQ
HSW9qGgfyxOjLn7G1yvhhpmLq13yPOR6utLBuhciJk2qTJgyBQzsTv+7VIfF
9+ifCTK3/+BV6asaN9Ins/HHRMdQezh/y3LrPhdhNq7YVB20G62emntci2bx
M/pj9dT3rG5Ub/X1CQCIu5PTHGoRyz5fOele9L9wt73ygGHfOji9RHhTg8FY
9nlPhViePDpq+He8/MDy6miNfNMlGdQ9oehrO2nJf+cvWqiczvLQrNcqwfoQ
0awPR/XZe8Fo+SJFgyQ43zh19LJgzP/5ABIfQOIDSHwAiQ8g8QEkPoDEB5D4
ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIf
QOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOID
SHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwA
iQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g
8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEk
PoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDE
B5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4
ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIf
QOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOID
SHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwA
iQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g
8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEk
PoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDE
B5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4
ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIf
QOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOID
SHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwA
iQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g
8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEk
PoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDE
B5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4
ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIfQOIDSHwAiQ8g8QEkPoDEB5D4ABIf
wP/1gf/7+6fA//7D/2dMj/8fcRPA6w==
   "], {{{}, 
     {RGBColor[0.5, 0, 0.5], EdgeForm[None], 
      GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwl1AXUVWUQheH5RMXuLkDFxO5ObAQRA1sUW7G7sRWxCwywsRW7OwBbwe7u
7ni2rsXL3jPnX/feM9V7QL8ue1XVeGj+Hfe/duiIifglhMdiQRwofpcegU7Y
TTyMzoN9+JfptNiGz2e+wc+C/vzZeIKfAL34dTEEz4onx+b8tsj334mf5Vaj
i9NjsAAOEL9DD8cc2FV8Ge2KvfmX6DTYmt8Tr/MzY0f+LDzOj4+e/Dq4CGPE
k2EzPr97IO7AT3Kr0sWwB87EY3IdsCG/NvI9alO340f5Veii2B1n4FE5dW09
+LWwFbxLjcQP8ivTRdAdW+Jo3IbvPVuJLoyF0A3qX2pQ82M+zAt1L+9ec2Mu
zIku6Iw1sQWOwq34zmeuSPWt1kBfHIlb8K1nK1A1rdWRXuhx3YxvPFuezo70
ezAekcusbMCnR6mdntRN+Fp+OTob0p/T8fB/I1Vtff+lphditHhSbMqHw3Aj
vpJbls6KS/GieGqkdrtgEB7CP3Lr0dT8AowST4JN+DCWnwHb84fiBnwpXoaa
yXqb904tn3kJVcM2gH+BToX0Y2eq1m0//jXqc9pM2EF8GlW/puYts/YgPZj+
TTPbetv0s+lX21/8JvWOzXu1ncTnU71p+tayK8/QQzAx+ojR9Ljty79Kp8d2
fP5Gj1tm8np8wS9NzXm9xat787vrYjzPT4nMQb5zHD8j+vGn4gH8Jc4uZN7O
w9Nie9825kPe6Tp8LrcU9f6VfT4F9+NP+exCZutcPCV2O1pvPhyEEfhMbknq
+yv7eDLuwx/y2Y3M30bIjbkWn8q7PaWHlXqfhHvxu3z2JTOZO5KbcA0+kXcr
Sp0q73ci7sFv8tmFzGT2Pr24Gh/LZ7enQ+YtO50+X4WPPMseu2XlnpT5KzNR
allTwL0qN6PMb5m50rPKrfTeNSHcuMqcZe/Tvyvxoc/Mrrs/lX5ld3Izr8AH
nmXX3ZbKvJ6Au/GrfHY1dc/u5MZdjvflcxdys4fiObHf1bLTmZHjcRd+kcs+
p+7n4Emx39dS5+zOK7z3b7m7Zr91Rm7XcJq+vUe7/QvHVKOW
        "],
        VertexColors->None]]}, 
     {RGBColor[1, 0.5, 0.5], EdgeForm[None], 
      GraphicsGroupBox[PolygonBox[CompressedData["
1:eJwl1AfYllMYAODvPH8RsjNDEhpkU8geZaWNyMieJSHRIJu21VCaMsooFQ2z
7K1sZYXsbKXcz9V1dV/nnOf9+77vPc9o06Vz3UsqlUpQ/LueJyqVquqsYd/P
oymcyT9sz4+M9exX6+fcxQnOr1nf5WaOYlOx6dYXuIr9WFPsC+vHDKI126z+
3niEs9jBeRmvM8N5Hj3ZnxpiX3KD/aOczY7Ov/EGM7lR7DHOob7z77zJk9yE
31du4VZu43b6M4CB+F1lMEMYyh3c6bMe51waOP/BWzxFvv9UzqOh85+8zSzn
+VxNM9YS+4q77adxPo2c/+IdZju/yDUcwNpiX3OPvZzEBezk/Dfuucxxfole
HMg6YksYZp/3fiE7O8tbec8+ee84ms3E5lpfpjcHUVPsG4bb571fRGPnf1lg
n9xZHMPmYk9bX6EPB7Mu3i/y+zt6/q31E9xltKEO3zGK0zwfYZWvuJhd+Ilx
4sutWSN5Tycif/GA+EJrkrPIvzmWX5igVtVubEF+5738x6nIRTzkufouz9i/
Sl+8UxzCz4z3PFtgPdx35Puv4GTkOR70f/N3f4qaiLZk7U9kW5YymtP93Uir
Ogs9Fbs65+eo18gcnuT8vjWpuTiOLcWetWbvXMuhrC+Wn/kZ6i/aUVcs30u9
RRd2c/aO5QP7pH6jJbXFnrPqnbiOw9hA7Hvy3rMmu7K780o+5HlnvRPZ64ez
odgP5DtlTV7KHs6r+Aj9XO4Ty/rrxp6V1eNDTxe9WsY4Z21dxl7kXFEHRS+U
nBuZY3de5K24w3I/k8gc513LV3mYyZg9xVwo2etZb93Zm8ynfBT9UrLXM7eX
sw+SWdxdyd7Q95Gz5Qg2EjO7SvZx3vkVNKGa2CKyF/R05Gw5ko3F1GTJ3s47
vZKmmI1lsdXdhZkRx7OVWPaCvo+cP82phX6MrPNTPM9a8z1hnkR7zLjw7rEd
8hN5p3ISZ2AmhDuoynfJWZE56sG+5FzOuSsXYV5FK7YWy9o2R8KMixZsgn6O
rMlOnmev5O/OWdYBMzPce9RDviPzJsfRGTMm3H9Vtf8BGmbinw==
        "],
        VertexColors->None]]}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, 
     {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJwt1QfY1lMUAPBzKBmhyIwUIkVGRlb2SGbRMELZUUjICmUrK0L2SFaissmW
vYkSZUZ29vydHs/z/Z5z732/733f/xn36zqgT6v+EZF+zvw/rinOFE8QbxL7
0dJ6gLg/zazfYSfrPVjA+nlGsr791uKvPMhZHOCsF4tZv8Y1zGe/ljiLmzma
LmzgfBvxNx7ibA5kfuftxU+4hWPYmQ1p4LW1xU+5lWPZhY1oSH2/RizIQizM
IjRmUep7LU4TmrIES3rPdcTPGMNAdqUjnj/XFT/nNo5jNzZ2vq34Ow9zDn1Y
yvl64heMZRC7s4nz7cQ/eIRz6cvSzjuIX3I7xyPPsanz7cU/eZTzOIhlnMt7
zOYOqm5dnZV67ilczmb2O4h/8RjnczDLOpf3+Io7OZFuzkrl7AWuYHP7HcW/
eZwL7D1f+vyYyiHWe1O5fJ1rrQ9lBesPWc666vU1d1kfSSvrwWL1iDzFu6L6
5erWe4pFzdLvxIuiXs1VGGI/SqzPbM7J9tNFtcg1ON2+k9hZ/EesZ5osHsXK
nGZ/oSjfWc9/kv37ojpnG+v63vtQPfGGWL2/qvV14mGsaD2D5a2rz+ZwN94n
9WuqYbzHXtaleu4lrmQLe7MT//IEw6n33Jfqvze5nnqu6rdvGEc9Y3dnpfr3
Za5iS/su80Y34klGcDjynnoyvuUeTqEHWzk3O1l/8BQXcQSeKfVkfMd4TqUn
Nc8tvKb/4nvupfJnpqNmdSWv6a34gfuo2uiDqFloSdVYzkPdonLYmtWoGleu
1Sva0o66e+peMOup3+JHJlD1VI+oeTHrqbbxExM5A7kLs5HmPt0t8TQX4+4K
c5xyHnOZRN1z+2EW0kynuyWe4RL0ZJjtlNP4mfsZSm9ncpd1Z7zC1ZiFNPfp
/olnudTaPKY+jw+oXvM5WffJW6I7LuvZbxDVJyunVZOPRHdCykHWs7grUo3i
Fx5gGHXvqkXWffUqo9Hb6R7JuuOe4zJr85x6MqZRs1Lf210Wb4vuzKy83yiq
d1bdqsYfi+6YlP95/wM6/AfuHqN9
       "]]}, 
     {GrayLevel[0], LineBox[CompressedData["
1:eJwV1Ae41lMYAPDvvLdokS0jKSF770JSUoSSvcpehQoNFUVDlKwKpZCmUNlb
9t47ymjIblv93ue5v+f8z/u/97vfOe9o37Vzwy6VSqX4uY4BlUo8xNmsojG/
MMG7P6zzuIMT7d+2fsRgjmQTscesc+jJgawtNt/6FSM4jq3EBlpncA7b2v/J
Ozxu/wq9OIgaYt9zveeHOZft7P/iXZ7gBrFHOI/t7ZfyHk8yCN+vDGEoNzKM
m7iZ4fhe5RZGciu3cbvPepTzaWK/jPd5ijz/TC5gB/vlfMDT9q/Sm6bUFPuB
Oz3P4kJ2tF/Bhzxj/xp9aEYtsR8Z5Xk2F7GT/Urcc3nW/nWu4WBqi/3EaM95
7xezs728lY89J+eONmwq9pz1DfpyCHXEFjDGc977Jexiv5pPPCd3Fm2pJ/a8
9U36cSjr4HyR//8U7xdav8ZdRnsasIixnOn9XVb5ikvZlV+5T/xva9ZI3tNJ
yF9MFv/UmuQs8neO4nceqFSq1GtsRv7Pe/iXM5CLmOp9+PsXPL9Ff5wpmvMb
93uv5GNd3Hfk+f/hVOQ5pvjb/N7foCaiA1n7E9maxYzjLL93t1WdhR6K3ezz
c9RrZA5Ptv/MmtRcHM3mYi9as3eu5TDqiuVnzkX9xfE0FMtzqbfoyu72zlg+
95zUb7RjC7GXrHon9G+0YD2xn8l7z5q8jD3s/+MLXrbXO5G9fjjriy0hz5Q1
eTl72v/Pl+jncq9Y1t8V7EWODD1d9GoZb5+11Y29yVmiDopeKDk3MsfuvMhb
cYflQSaROc67lq8yjemYPcVcKNnrWW/d2YfMp3wU/VKy1zO3PdgXySzurmRv
6PvI2dKSDcTMrpJ9nHd+JftRTexbshf0dORsacWGYmqyZG/nnV7F/lQX+87q
7sLMiGPYUix7Qd9Hzp8j2Aj9GFnnp3mfteb/hHkSHTHjwtmjEfITeadyEp0w
E8IdVOVZclZkjq7mANYSy7krF2FexbHUF8vaNkfCjIvWbIx+jqzJ073PXsnv
nbPsBMzMcO+xDfIdmTc5js6YMeH+q/JuZq8BtOHiig==
       "]]}}}],
  AspectRatio->1,
  AxesOrigin->{0, 0},
  ImageSize->100,
  Method->{"AxesInFront" -> True},
  PlotRange->{{-1, 1}, {-0.9999999881528351, 0.9999999881528351}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.461418041436433*^9, 3.4614180449924307`*^9}, {
   3.461418095871358*^9, 3.461418116556026*^9}, {3.461418150272543*^9, 
   3.4614182002132273`*^9}, {3.461418244802796*^9, 3.4614182646848993`*^9}, 
   3.4614186840659037`*^9}],

Cell[TextData[{
 "6) Define a ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " function ",
 StyleBox["tplot[f_, c_, a_, b_]", "Input"],
 " that creates a graph of a function ",
 StyleBox["f", "Input"],
 " between ",
 StyleBox["a", "Input"],
 " and ",
 StyleBox["b",
  FontWeight->"Bold"],
 ", together with the graph of the tangent line that passes through the point \
",
 StyleBox["(c,f[c])", "Input"],
 ". For example,"
}], "Text",
 CellChangeTimes->{{3.462028154021523*^9, 3.462028346522211*^9}, {
  3.462028485325396*^9, 3.4620284972280817`*^9}, {3.462028547605877*^9, 
  3.462028550651083*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tplot", "[", 
  RowBox[{"Sin", ",", "1.3", ",", 
   RowBox[{"-", "Pi"}], ",", "Pi"}], "]"}]], "Input",
 CellChangeTimes->{{3.462027897299226*^9, 3.4620279170192137`*^9}, {
   3.462027951774741*^9, 3.46202795312148*^9}, 3.4620280437685747`*^9, {
   3.4620280906950073`*^9, 3.462028131862947*^9}, {3.4620283243764887`*^9, 
   3.462028356855192*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwtmXk0le33xo8MpURSKVRUlFIpGl7UPl4SUYZUKhFJlJBUmsurgVSGUslQ
KEWZp0T7IKGQKWQq83TOeYxncvC7f2t9/zrrs9a57+e5r33ta99rPVYejion
aTTaDBpNJOX/fxmSKhMG0iZ7vtze0llp9DyQIbls1tC1TF20D1UabciKZ0gq
LIocVNFAj5A6w4ynIQzJ+Zt4JXxpvBkSc6Xg/RqG5AyXpNvvqvFxyP7yV7cD
GLM66peMz7LB6OAD1nN33WHMik0Zai45hckPL+cLcAtjlqpz1Ptdfog3lhq+
X6jJmCkXOl9Qdw6rds3elZ/nx5CQ6+pTOPYdG37naRdd+sQQX6KTkvBlEtuY
xj+XJaoxxCQtg4fTOrFzVvHh3z3dDNE5D+skXm/FHtk9IgkzVRgivAcbalbo
YR8vcUvJeQFDZGy/9hy5V9gvumVlzkVPhsiQ4j+G4qLYPzdn6dxbKQyR3kSD
zN7v2L/ivZr28RqGSP0PmxcfbbDfbJv+ov5/GSKZc3wdtntjf5TIgphTjgyR
cw9+De37gAN62y40/N7LoA0EXpe+qoSDjs8q+xYlMGg9kfLf41xx8PSn5Uen
cxm0jo9pdyuycNCrtiLUKYRBa6rsnVa2xEHfcd2LptkM2g9ZK6r4Lg7G9KkF
7NNi0BLD1lTLUDjYHvhA9UQKg+YWXRcaV4jMw4VnrcMWM2guKR7mlTLIdJhT
NqMgjkFzKpg9h2uLTJd9Rk0tpgyabQf4mXCRefFLjGitF4O2d1WCN6WBzFCz
N15pDxm09e9vHfznKTJ/KB2XNvyO063ONpsiqpC15QYHD9zB6brWMI84GrL0
zges5JzD6XLruo+JmsgysC/XXOGD058NLNU/BSHLcrn18dcaOP1CeY9KvQWy
3HR2BsdsxWnrJr35MmS/V60V17Z/wanyfctHfKuQLVrJ0jkjg1NFxXaaATRk
S2amNXQdw6nPehHuwZrIlgllZjvdw6mEdYsHooOQrbg1K/hoH07dnyXbkWeB
7M0LvR9kHMIpg0LRmnGyn91WTc+ivzj5eUtvustPZCfz/7j6uuBk+k4L7p8a
ZGdcOaGU1oqTiUa5egfrkZ0zalKx7QJOvjwUWGzYguyCSt2ciIc4efXypgbl
AWTXrgldubsNJ3Xzrgp+iyF7zF2lenIWTmp97QaLWcjmeVu7hSvh5LqKff+V
zEG20Ou3ek4RTiq2qUhlzkdKzOaXPASicGL627Lg5UjJlV69FrQThXkG8/41
0UFq05akiMStKMwwvXyXsRMpbUZQ+o82FH7Y3/Fjmz5S2w0yBSK+KIxwyrRW
NUYKNn97UZWDwmt3jziLHEDKLL1vB9FNqFcW5//JEylnfe/FTDYKtWvmVmp6
I+VqsaruQikKNZouzY+/hJTboTlZBSwUKg2avHx6AymvvT7D4mycmJRifzz3
AKnrLXlpK5/jRL7F9mr1t0iF+pl6bDyKE5m3ClJXuyAVJrkuxmQYJz6m7glW
XYvU87t3aExjnIiab2upnIRU5OlXnXIsnLhRd7NaPhupt41nZW6N4cQl8Vmp
C68g9V5FwrnNCic8tgQHy+khlei44NgsKZywD4u1lGYglVwRKHKnCSfoNt+q
xUuRyjFpDtnzDSe2+5unigYglXtwjk7YepzQ/NQYLGKGVN6RRBdaPk6oKAxY
CKuRYuzVPRVSgxMirXOrRpuQKmkIHNvmhIIiB+uq9kGkft16IrpcGwWfg1tT
/pD3bZAL03FZi4L0QuegVqJfY/SMpaFZKIhb6WPROIZUc/RCzyspKPDrfln1
U4hUu6Gymzqi4PqiVSkVX5DqCHdecvsNCi4YfQz6cQupzv756U81UXAyHi1K
xJHq8Yj2/MJEgZFrR9UXaaQGVW6Ubs1Awc7wMymfq5Bi6oze+/0fCrZ+Hwv6
FIIUy6y8b2ghClZrSFhkLkKKOvwh8N9UFCy3fayZ1ojUkHWapZsyCuQfLp6X
Eo7UsLFifpcOCmay1as+EH+NLl789uFvFNCWpaW87yA8lpixYQj5PHPdoPg4
pMbKXj+YHEV+X8pei9g1SHFsM6r4Fcj/+7de89UAUlyF6jaFOcj/LWs/L+oD
4WqLcfOFyC/z8qwK10SKv9r76S8L5DP4My6a3SdcZ9EuFoj8nJtPFKf+IiXw
0W5414r8FAnVgtTtSE3IKZuWBiE/PjD71InHhN/IybI3Ij9azmTuwh6khBvm
iqy5g/ywF01ppcT/wqS5o7MzkX/n7eSUBhupydBVlu8mkX99/ePYP0aEef/c
UNmLfO8MFZPgKKSmrA9ofBIi300njTLgEI6/ZBBxCPknCgyfcPYSHo5OvLgV
+Ud31+u8I+ef3lxpfnka+VaVp/4eIfWcPiO61O4j8vdY8+/OtSYcvlPcvhb5
+s0P1iE5/zTjhmDHG+T/46hU7SVGuLV4WI+LfM2+pEurbAmPzO9YbYD8NR50
pfoMwpMnS/YkIH/5eHWh/xzC018iL48hX/7aCRddR8L8pU5ST5EvM2N8LiuX
cL+vUlsi8iX876a/InkxXcUstxAib2re4sNWpwknH7tszEHeeNj7abFCwn51
6zWTkcdaqhuXrUDY0mKU8wd5XbEVe1y9CC+obZEm3LLWbkixjJz/py3HMxZ5
tSlDTyuVCd9iHnz+CXk/tvnq3vIhrO47//5O5BV+kWvfTPw4Wbbs368tyMs1
fHO3m/hj0r5ghk0R8lJ/bNN4RvwtZJ12r4lC3nvL0hoT4kehl8K7XY+R96rx
yCUh8ccEq7raZBXyntsxlybdI3w8SJpvirzH3deLjrcRf3w/cJ/UhXfPTcZV
bivhdStcnfKRd/Hy5oxLxA+86tr5+ReQd3b665G1xA88+Wy9O+T8J+8emG4J
I360jn10TR951qGXTfV3ITWe/vT+0VvI2/wRO2aT+o6Id7u/Xo+8tdqW9/JI
fYfFZB25H5Cnktu53oPUl+LvvprmgLx5pRI+daKk30prjbWHkMvu2CsTSerT
J/RSNK1Ebo9LW6Y5qU9vGpeapYLcVsrz6AxSn57jAX47NiK3XBj61pnUo/NV
wzlrUeQmLmraoamCVGuW4sEnFsiN3RDWb0XyqYW+0evsIHJfGu1/6k30biq8
ei00GrkPLpSzcipJ/iTn1QSnIfdMHUbpk3ys1qA2OhxF7gnmtT0n3iD106fi
yEFZ5NqKbefcIfWpyOsJCVuNXDOttH3fVyP1ff2PNn82cjVC4qat6pAqTHPf
do6J3FUJDone0yQPGZvmJ1xErlLhskPPSF5/+bY5NIqcT2r4WXIzqWdu7ujF
sRbksCwCjjutRypt95UvwzORkyTtUXDhLlLRrIUnBZ+Q81ZN4+yzVJLvN2lJ
N6qRE7Wjf8mnFqReSmr9M7sSOY/OOp6b2kzmg4Tndeci5LiXH1hx9w9SD+KO
SQ2VI2djgM5/z0keXHB/VMh5heOpEuK7ckneGOjrSt0vwfF3579nByeS+fZE
9YLiJxyPbg9Sd3FDSrdtseYu8v9H+YpzF7LIfDyk0Hl7OY67eWvWeQ4htao1
PdWvDcdXd9ieUCP9L7ZzA9f/A45FfUm/FToD2XnWaZ1hvjgWpuEz4lqE7OyA
/jspdBx7GL7Tie6H7LQcc79DxTh27ULZbrY4st/xklfOno1jRzT+yJiQ+f5U
pmvXwywcW/hyduS0NLLPvHB1SHTD0cBLDp/PKCJ7/sprHeJFOOo316i0NBzZ
Unbyxrcf4+jV2HX1agrIlghyVI/Pw9HTleND7QrIErTIlHWS9SZqAWqHFiOr
U4YntnEDjor/Sgs2WICs1EGP0Q4OjtzUFj2lKIUsk+uyXJ94HD439Gb+9ylk
Hj+v+neBLQ6fls9Ue25J7n8b3kWknMBhx53FOifjkGnZeTg84RQOWwV2O9L2
INNg+16HpWo4rKWumrolDJmqQR9fucnj0JjDW/NX63GwT9hxtyYXhy7WxAde
sCX30yoareE6srmu1lJwHgeOVBy+f68a2T0n7qCBIQ5YqvQU/WlC9q9j2V67
F+HAbg+RO/xjyE63Umjcl4MDWiMD4RN/ke2h0x53TIgDUq8bT+ZUI6tXykPv
mh/250U9MfpyHZn1yQFun8KwX371faOQABzIHGdUaOVgb/bSrtFtR7EnXz7l
m2wydv3x/DmTI40dHjtFX+icx3b3/9RPWv3BltN9xvZ3dLD5htaT3VXXse7+
zcdCFwrrNpS+NutpwBIe6Lz8+h+W1HmtuSy1FFNEE77qfa7HFNqUs1T9F0gK
tp400rCHpMDkZXZVrlAa5X7AxrgdSi+90VOW64E63cXJkDwGtd1Gq9JWO0BL
1bD7sjdN0Nyk/T76uwx0RB8w/ux+FdrDijI1L7+EnocRhza+soGuz7Y2sUFa
MFD1Z0bZPWfoLVPrlH24DQb+lmWfkbGF3tqy3KJocxgYynCTemYJvW3OH/dT
5TA4z/+Xebwe9I4+anwsrIBBC+34XyXzoW/psymzEH0Y/Blg1iGRD32eD/51
XKsOzMotYYK7C6BftrPBKdIU2D8C163zK4IB/Vrfg2XzgN2s9urptA4M7Pkc
Lpq1A9gDBYtol9NgYH/kOec2LaAkObRf7jEwcHLfwbbmCKCM7etv2vjCwH2n
gurBi0AVa92u1fgXBiocjYL2+cKQ/Vm3Ha5/YdAquEro4AVDp3TejsQrweCR
j90L/bfCkMfM9vguGxh0LPLRC7sDQzdiDs23q4JBr+YF4qndMBTZoN+7nwGD
IZ+Zcr0hMNSiLx+8IxoGq/+9lPuzAYYPLyjslrUDpslBJf1d22DY4cFYXbgY
MC31fjbnx8DwaVG1rysSgHlYMUxGegyGrwwHxGpxgelSYOl1UAWGIyqtHA4G
AfPex90S2e4w/Pdee+vLImB+FTcNPf4RRk5N0OrV1gBra7xK4KyDMOLptbk4
qRJYOwKla04VwohPv1PmtgvAMnQpD1hjCiP+DaVPjAuBZSWZ+mpgJ4wkZgRZ
nTkKLLc+1qaqbzBCuS+vTHkErNeK92KU1WD0YvvOEp1RYIsappqt7IHRGyW7
UvZ/A/asz6NP8kxg9O5Hsxduz4Etva5LOfg6jIZdPnImaiewF49/z/pTBqNZ
shfniQQAe8Mmf+1gGoyO63+0KV0B7EO7P8xaXwdj52MUBw5YAju2mykTXQlj
V++vqHVfBex3nveNUrRg7D939by7HGB/GE385f0WxkJ1tj3KiQB2Zqff0+4k
GEur2a+l2AfsElc703kaMDYyI+Bqxy1g90sVl6XzYdzTkT/XIxkotUR7x5j9
MO4zwtWsZQK1NkRCs4wO47d9x623rwVqgwdjBtMZxkNihl/S4oDaOs9l96A/
jGd0DKwJDgfKsMdt/HwnjPMdmw3S/YA63mVr5hoAHJGR36fkC4Fy0s1YxFUF
zmzfhoCr00CdCpB26N0FHMWY2mrDK0C5z/mWypkPnB0d5Xa/PIC6EqtxxJQF
HF/H/MvcI0CFqIiDlAxwAkY+Rx59BtSTviULn/UDJ9T3EwPrgHr2VuXqpDVw
4mKyZt43BypyplR9eihwvnUkPV1iCFS87XbXwBXA+en1Iee6L1Dvm5qtfKOB
0zgjobkdgfpg4fbjqi5w+lfEr0jQASpV2Saq3h24cxyjU3Q3ApW7n551fgNw
5UYia6PdgMrzN+QF+gNXyfclVzQBqC9Zm8+JrwHu+pjnO8pXAVU49s0/ZS1w
zTuCfhxTAOqHWGGgpAtwnzje7rkpBtRvjwejiv8AN8LhgOh5d6CaeBYvpfSB
G3d8jfKpRqBaLis3j+sCN+NY5RGLD0D9cexIMPMCbt1hhcoV1kB11beff6MK
3JZDrMFFX4DqWc6rEmUBt+tgwaw5a4DqdVgs/NceuGPWp/RHhUD1//C68yIX
eAvM0zOLY4Fi033lUA54SvvIGJACijJpeKHLAt6qvYepJJIDQ6ZacRWywNM2
pak/2wPUyJYp8yVxwNMzqTV6kAHU6HK380YXgGdo/PbErWVAjdH+rjlN2NrI
LNJlBKjxxAZnp0jg2e5annvMFijOhSN+EdbAczIYabD8BhR3a4fdI3fgeeu/
kNUh/uG9nr5rqQS8a3S3DRuJPnzTJ5cvkOf7AZiuJPrwWeu9BLuB90Sv+47U
v0BNLD79O/8U8CJ0c2JoRJ+JGGmh/gjw4nQefBlfBJRwZdbjzAXA+/CPXXP/
LcKRDuezzgIvY/smXusAUJMyMv5d2sDL2ya+sIboOenDyGzeCbyvWxo3fyN6
TjZ5t24TBV65dqL5Z6LnlPa63uB44NVp3XBLDiF8p/vLf5PAa9ls6R9L9J36
GbP3TQjwujatevvcGahpWQffwA/AY27kFgVWETZdaVZpBbyxDd//3ib+mr7W
GzllATzh+sjJC6Sfpt8muSb/A3wxjXMKp6UJk4nkdRb4UusMt9n5EO4wMG5c
BPwFa+WtrToIj8nu9dACvtKagXO7zQhPticVBwF/1er8R7pZhKczTp+qBL6G
WlCipjJhvv/N9uPA11Y9UboqgPDg8aG8QODrrdravXiM8C8dhi95nuHK2TPm
2hHOXjSWywK+mUrrcpFSwkHjT5hlwLdWTtHlbCbsWJ8QSdbbLv/PZoDMkWmN
XH3Lh8B3Wnbwwh8Jogf7lfMDst5tqXpIrSfhd/7qlaHA91YUJpc0ET7iHRG+
GvjXFH6W55H+nBJzrHGXBb7fkpj+lCSi/9v9f0vPAf+JvMnKF7dJ/Wp29s54
BPyXLOGbmRqE7SJpjm7Aj/2aouZN+mWic29ecQPw073k1S02ACX4FR9WQwP+
Z+PvCfm/CRtYjGsZA79o+Q2NdSSf+O/3+kiqAL+mvHujBHkfnh39VslV4DfF
Pk/xvkP8+XHbQVVr4HdcMdvUoUn8O3ab3eEA/JHV6dr594i/3eSWxs8Bgazv
bR1vbaCGp9fmp0mBYMlh7c/tfwjP+8q+dgQEKhv7dpgTvYcUMnxaeSDQbDWn
r/1L+k/+yf2rSSCw2L50V/tD0p+Z9teyfEBgI11VYr4dqD7/xIPsMhDYd/sZ
53WRfj64Lyz3FQg8QgZNnxP/dDVGeAiSQfCI9clyXw/Jh9t20ndSQRD21a0m
LxiotsVnH3ZRIIh6qWy9Vo/kSXz9mE8QCJKM7x0SJ/79nZzTNAIgqIg9YJsH
QNWeKFrf/wkEv67MalMn/VGdnyj4MQCCVos8+2dhQFXJDL8V8QUBc2qloxeZ
D+WRT7dU7oUJKZthF/Xn5N5wzJhjpwQTCzbG9T8zAKroyiqnC1kwoSRhc0aM
DVTB4+NLLQ7CxLp0PPt3F1D5MQJjc3OYMJV+eD6M5EWm+7fG7rUw4f9V/aaY
KVCxLzY9VngOEyGGdTr5x4F6PSs7iz4JE+HFNzgXST5FeZgbwjyYSPxWd7Yv
BqgXKpl3mfdgoqLspm05D6hHiudr7fRAKFv5S+cp6a+LJ1w3WGqAUMH8Jmdf
LlDnDU8cqdAG4YqqtWkzfwLlqXS1qcoJhFrVt9QvC4ByTZvj4n8DhAfq1i22
swDK1uuL2eBtEL74fYujRvqdbmosIroEhDFH1qX+nQ+UXtSzmn1/QZjQVH/2
xWqgtvcvPNlQC8LPLeu651gBtelElESyOAhb2+prqXdAqVCiypsfwKRKl0Zq
zgGgRI4vsGcOwuR7duNZkyRgf0oPCahogMnUNpsVIUNkntNvJ6SWwOSnioaG
ls3ATinuFD97DibLPjT8654F7Phc2q8bjTDZf7pePhSB/XR36YbrwzC1pqe2
oLUK2O6Cu6bJGTAV3/Zz0TlyX1EqVj3woQymkiv3/fi8FdjyjjHLyk1gKju/
8raYD7Bledm8+b9gqiSiYjBMCOyZ0hmaITEw1XuknJEnBqyhjgUXopJhWq3+
+xmJRcAqWv1OtZSC6TeVxRi+HViO25eE9w7DdJKLXvKGLmAdddqYXsmE6WyR
9KiiYGBZ3/teM1QI06Xar68zB4BllPlcrnYJTA+EX9eDCGCtTfyW818vnSaf
rmDrdQuYw2I7LMUe02m2N6p/y3cD85L3gYU5PXRazyJ6jWMSDJ75qcWyd6HT
BvYxr7m+gcET8puumDyk09j3nqt5RpD76qFH7YKZdBqHR125EQCDxgXnZ2wc
povMbI5aEX4SBlV1VOnyo3QR9VcTXjVKMNBSYOc+dowucnZdlpx+AAwYbece
rfpIFxnTX2et7Az9oo4qX08M0GcMGWXO7EyDHvuKPbN3hdDFRB6oiS/YA50q
eafX52vQxWkJW7X3XIQ/z4qKc7166OKCYquRd2XQGFqSa50dQZ85e/lBgbcL
VD1SLmn8c4k+a+Z+gfaul1AQsfSd7aU3dMklJX7ZfgrgeSrinzuBQLhvf8qf
jeCpOuVSdK6ZLqkgSa4rhuBRWrC+84Y84T2MiKGz4F5o8tfhFYdwhdDXlgFu
mUfXO46O0yUV67z3bnEGl5fXPcRVXeiSS9tPdPSkwfFTjAoVqo4uuWzG5hb9
ErAvkxxqnJNAeKXIr4gWsCsM2XXgtTZhp+jS/eJgmxnTZzX7KOHe5o9oAzYv
vy7efFOJLrmcvd/n2RRYuEhseBdH9leWWXFuVA72FSk1VJskEt44fGbfGjDL
Wm9h2r+f8LnHdmKWYByxT/fzTAHhsR8GnnFAdwmiGckfo0uqLAzX+/EJ9LLp
LQXOzwlvdd2qVgnbIx2y5eK7CfvMXNPCBU3X2FMrzXIIP69fsV0K1kTfv/JL
wp3wpzeKocqgfOa7anGIGuEm7wXsLTDPUz7awF6F/r/vXTv/973r/wCTneQZ

     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwt1Ps31Hkcx/ExmfimnTYmZbRuleXMbKMLCfX+OkXocmgk224UkcitkVJt
tkxFkVraNpfixB5RY2IpWT7fs7QTpho1KZlyv6w6mjHGGEbtZ8/ZH17neR7/
wGtnfJhtBI1Go+Pt+K8UYTuzienrh6SNx+omI5IowspYearGHUnv5VwpfBBI
EWzzwg+2XCQtqDzoRXApwnTVlETHRNITw6ycuwqKoEeJzpS1I+m6oHinCQ/K
uK/DQmMcjNrEzstjzuop49tiZZfkIGotHr/cUySkjFdE3rzjJURPzsWGt3YJ
KSOzHNNpeSJqUiWVTkUtp+aaDYyw97YiFLTN7Kq7A8WwcBOXN86i2onC2Hxy
hDIkAq6qqvpRxaNlStFwAjXHJEs+t9gFXUuLsQjvpVEGU5dWvrDzgMsZLa/z
7pMUbTTzJ+bJpXBH3MC/a7YPfXkXGbyqQAY1m3mvBDE/o9l65+HqqOfQGPFO
FlJEopkGf9d2x9+hKdmyme5ZgnQtRxJkeU4gud0eVBRBIW2F+dsNTrYg5R71
HxT4I839uQyvR6MgW/Mgt+kjHakzj+2vj7GEF6cr/hjJWYJUicpS09bPIG8c
cDryMhmNaQ8FzgcBdLzZks9B0Wi0RkM9XfMQOq3t1j+0WYKGGhaL/15YCV3w
rUTADUJ98Rvn3HATwLvMkgyDezuRInrEJ/ScG3Q/jyjVSK4heXpqtj7qE/Ro
yjrne9ciyRS45TenQR97T4rRARoSzylv9qjvgH5O8ZUbr01BdDVw1psbCgPr
Lr7qNm+FJzfjdgX79MLgHl4N8+v3IHdfUgmVEzB0KNpEvq8BFDJVnFXpWxjO
DtULo6eg79Yun/q4kzBSOcUe9uyEoayC3byiYPinYYW4Ny4NRmXd9JYLkTDa
y+x5vOsSjLVlcjjCJvigykonf/kBVN+z/hpcGAIf9aK9cfntoE7u3ShxU8OY
1UXp+dAS0CSE6b6Kr4RPXH21c4onaHPDzgylGoLScZHFsH0h6HIX+y67cQaU
9yevfXFPhZmMZsdUw62gcnV0UNZWw+ydsTexviJQtdSlv15gDl9Knz1Gea4w
HpBbkmG6l6QNmZMvwkQwPvA0izcuJw0mPDmBNpGgPro7U7y+gKQrvWuM+qtA
redu0XP8SEODS/YMlh9MXA6ReUyvIBm0cpe1fsmgMVewfAVDJGP68c7xshbQ
FJTH8/g60mieddB0UhRMftdxfd5Cd9LYiD+91isfJmu2nxCnhJGEhUT4QMgG
rY8dZ2tjLfYIX9zNw17z8NGqOJJgE3blbpuxvbwdSuyx/agCZSx21H5GRi72
U/3ZHyls0a8oMJEkLOVJ250jQevrTl89yiGJb3rD+4aqQOvH72QvKiIJK/pq
hacEOyIyPX039jKDVwUK7GT15AwT+8CtJ3wGdh7zZc8p7OGueygYu2dzVsUe
krAe4x+//hm0Ww+LDTxZJGGzwC5RbYZ9ekN8dRs2TxWzwwE7u/W9fRp2YnaI
YQB21WC9iQp7om1TQgm2zjKp4xlJ2C7K82irA+22eWX9vuexXQ652D/DXuoS
8OcG7ONGDgotNgSsLK7A/q3DznU+tv/7QlY4dl2pZY4Ndthhkwts7LdJrDFn
bIEuRddO/v9n2OfOjxxO/xeWVWM0
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{-Pi, Pi}, {-0.9999998782112116, 
     1.4561820287551956`}}, {{-3.141592653589793, 
    3.141592653589793}, {-0.9999998782112116, 1.4561820287551956`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.462027921323042*^9, {3.462027958875708*^9, 3.4620279885536633`*^9}, {
   3.462028035768079*^9, 3.462028044978683*^9}, {3.4620280851688013`*^9, 
   3.462028133316153*^9}, {3.462028326122497*^9, 3.462028358463616*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{849, 641},
WindowMargins->{{42, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
ShowSelection->True,
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 126, 1, 67, "Section"],
Cell[719, 26, 231, 6, 26, "Text"],
Cell[CellGroupData[{
Cell[975, 36, 36, 0, 34, "Subsection"],
Cell[1014, 38, 480, 12, 41, "Text"],
Cell[1497, 52, 47, 1, 27, "Input"],
Cell[1547, 55, 104, 1, 26, "Text"],
Cell[1654, 58, 250, 7, 27, "Input"],
Cell[1907, 67, 320, 9, 27, "Input"],
Cell[2230, 78, 218, 6, 26, "Text"],
Cell[2451, 86, 390, 12, 27, "Input"],
Cell[2844, 100, 231, 6, 26, "Text"],
Cell[3078, 108, 615, 15, 41, "Text"],
Cell[3696, 125, 127, 2, 27, "Input"],
Cell[3826, 129, 114, 2, 27, "Input"],
Cell[3943, 133, 723, 17, 56, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4703, 155, 97, 1, 34, "Subsection"],
Cell[4803, 158, 268, 9, 29, "Text"],
Cell[5074, 169, 239, 8, 27, "Input"],
Cell[5316, 179, 815, 14, 56, "Text"],
Cell[6134, 195, 218, 7, 27, "Input"],
Cell[6355, 204, 490, 11, 56, "Text"],
Cell[6848, 217, 356, 11, 27, "Input"],
Cell[7207, 230, 206, 5, 26, "Text"],
Cell[7416, 237, 52, 1, 27, "Input"],
Cell[7471, 240, 543, 16, 41, "Text"],
Cell[8017, 258, 393, 11, 27, "Input"],
Cell[8413, 271, 73, 0, 26, "Text"],
Cell[8489, 273, 278, 8, 27, "Input"],
Cell[8770, 283, 445, 10, 41, "Text"],
Cell[9218, 295, 171, 5, 27, "Input"],
Cell[9392, 302, 129, 5, 26, "Text"],
Cell[9524, 309, 231, 6, 27, "Input"],
Cell[9758, 317, 196, 4, 26, "Text"],
Cell[9957, 323, 325, 8, 27, "Input"],
Cell[10285, 333, 253, 8, 26, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10575, 346, 96, 1, 34, "Subsection"],
Cell[10674, 349, 605, 16, 47, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11316, 370, 122, 2, 34, "Subsection"],
Cell[11441, 374, 275, 6, 41, "Text"],
Cell[11719, 382, 118, 2, 27, "Input"],
Cell[11840, 386, 1191, 25, 101, "Text"],
Cell[13034, 413, 530, 11, 26, "Text"],
Cell[13567, 426, 742, 15, 41, "Text"],
Cell[14312, 443, 1054, 21, 56, "Text"],
Cell[15369, 466, 7507, 169, 71, "Text"],
Cell[22879, 637, 1186, 27, 71, "Text"],
Cell[24068, 666, 510, 9, 26, "Text"],
Cell[24581, 677, 571, 16, 27, "Input"],
Cell[25155, 695, 596, 18, 27, "Input"],
Cell[25754, 715, 536, 17, 27, "Input"],
Cell[26293, 734, 504, 14, 27, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26834, 753, 30, 0, 34, "Subsection"],
Cell[26867, 755, 282, 7, 26, "Text"],
Cell[27152, 764, 2627, 49, 244, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29816, 818, 117, 1, 34, "Subsection"],
Cell[29936, 821, 375, 9, 26, "Text"],
Cell[30314, 832, 602, 17, 27, "Input"],
Cell[30919, 851, 342, 7, 41, "Text"],
Cell[31264, 860, 890, 27, 43, "Input"],
Cell[32157, 889, 97, 2, 26, "Text"],
Cell[32257, 893, 1051, 31, 43, "Input"],
Cell[33311, 926, 248, 7, 26, "Text"],
Cell[33562, 935, 552, 16, 43, "Input"],
Cell[34117, 953, 321, 7, 26, "Text"],
Cell[34441, 962, 910, 25, 43, "Input"],
Cell[35354, 989, 217, 6, 26, "Text"],
Cell[35574, 997, 730, 21, 43, "Input"],
Cell[36307, 1020, 371, 11, 41, "Text"],
Cell[36681, 1033, 449, 12, 27, "Input"],
Cell[37133, 1047, 653, 18, 27, "Input"],
Cell[37789, 1067, 361, 10, 27, "Input"],
Cell[38153, 1079, 653, 18, 27, "Input"],
Cell[38809, 1099, 567, 12, 41, "Text"],
Cell[39379, 1113, 92, 1, 27, "Input"],
Cell[39474, 1116, 608, 18, 27, "Input"],
Cell[40085, 1136, 113, 4, 26, "Text"],
Cell[40201, 1142, 775, 22, 43, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41013, 1169, 30, 0, 34, "Subsection"],
Cell[41046, 1171, 182, 6, 26, "Text"],
Cell[41231, 1179, 18273, 306, 239, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59541, 1490, 135, 1, 34, "Subsection"],
Cell[59679, 1493, 171, 5, 41, "Text"],
Cell[59853, 1500, 1045, 33, 43, "Input"],
Cell[60901, 1535, 173, 4, 27, "Input"],
Cell[61077, 1541, 203, 7, 26, "Text"],
Cell[61283, 1550, 198, 4, 27, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61518, 1559, 183, 2, 34, "Subsection"],
Cell[61704, 1563, 913, 23, 71, "Text"],
Cell[62620, 1588, 520, 16, 27, "Input"],
Cell[63143, 1606, 120, 2, 27, "Input"],
Cell[63266, 1610, 123, 2, 27, "Input"],
Cell[63392, 1614, 190, 4, 27, "Input"],
Cell[63585, 1620, 295, 8, 27, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63917, 1633, 148, 2, 34, "Subsection"],
Cell[64068, 1637, 1026, 19, 86, "Text"],
Cell[65097, 1658, 52, 1, 27, "Input"],
Cell[65152, 1661, 307, 9, 27, "Input"],
Cell[65462, 1672, 379, 11, 27, "Input"],
Cell[65844, 1685, 381, 11, 27, "Input"],
Cell[66228, 1698, 538, 13, 27, "Input"],
Cell[66769, 1713, 440, 12, 27, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67246, 1730, 30, 0, 34, "Subsection"],
Cell[67279, 1732, 554, 13, 56, "Text"],
Cell[67836, 1747, 30270, 513, 204, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98143, 2265, 72, 0, 34, "Subsection"],
Cell[98218, 2267, 948, 23, 71, "Text"],
Cell[99169, 2292, 984, 25, 43, "Input"],
Cell[100156, 2319, 528, 9, 56, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[100721, 2333, 119, 1, 34, "Subsection"],
Cell[100843, 2336, 288, 5, 26, "Text"],
Cell[101134, 2343, 117, 2, 27, "Input"],
Cell[101254, 2347, 551, 10, 56, "Text"],
Cell[101808, 2359, 465, 15, 27, "Input",
 CellID->526222223],
Cell[102276, 2376, 415, 7, 41, "Text"],
Cell[102694, 2385, 455, 13, 27, "Input"],
Cell[103152, 2400, 441, 14, 41, "Text"],
Cell[103596, 2416, 476, 13, 27, "Input"],
Cell[104075, 2431, 205, 4, 26, "Text"],
Cell[104283, 2437, 426, 13, 27, "Input",
 CellID->476617387],
Cell[104712, 2452, 175, 4, 26, "Text"],
Cell[104890, 2458, 863, 23, 27, "Input",
 CellID->1184176262]
}, Open  ]],
Cell[CellGroupData[{
Cell[105790, 2486, 30, 0, 34, "Subsection"],
Cell[105823, 2488, 397, 13, 41, "Text"],
Cell[106223, 2503, 27466, 464, 230, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[133726, 2972, 95, 1, 34, "Subsection"],
Cell[133824, 2975, 1283, 49, 75, "Text"],
Cell[135110, 3026, 325, 6, 26, "Text"],
Cell[135438, 3034, 1194, 36, 48, "Output"],
Cell[136635, 3072, 534, 14, 26, "Text"],
Cell[CellGroupData[{
Cell[137194, 3090, 447, 12, 27, "Input"],
Cell[137644, 3104, 918, 29, 48, "Output"]
}, Open  ]],
Cell[138577, 3136, 274, 5, 26, "Text"],
Cell[138854, 3143, 53523, 887, 240, "Output"],
Cell[192380, 4032, 507, 13, 41, "Text"],
Cell[192890, 4047, 533, 12, 26, "Text"],
Cell[193426, 4061, 182, 5, 41, "Text"],
Cell[193611, 4068, 833, 16, 56, "Text"],
Cell[194447, 4086, 43702, 727, 236, "Output"],
Cell[238152, 4815, 1996, 56, 65, "Text"],
Cell[240151, 4873, 49428, 829, 369, 23153, 397, "CachedBoxData", "BoxData", \
"Output"],
Cell[289582, 5704, 1242, 36, 83, "Text"],
Cell[290827, 5742, 14868, 255, 115, "Output"],
Cell[305698, 5999, 605, 20, 41, "Text"],
Cell[CellGroupData[{
Cell[306328, 6023, 371, 7, 27, "Input"],
Cell[306702, 6032, 11378, 195, 244, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)