(* 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[    144889,       3284]
NotebookOptionsPosition[    137633,       3055]
NotebookOutlinePosition[    138241,       3078]
CellTagsIndexPosition[    138198,       3075]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "Getting started in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"]
}], "Title",
 CellChangeTimes->{{3.3907458272729015`*^9, 3.390745835374874*^9}}],

Cell["Comp 160 Course Module 1", "Subtitle",
 CellChangeTimes->{{3.390745838950158*^9, 3.3907458395911055`*^9}, {
  3.45865592271875*^9, 3.45865592521875*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "Survival skills for ",
 StyleBox["Mathematica",
  FontSlant->"Italic"]
}], "Section",
 CellChangeTimes->{{3.390745863927069*^9, 3.390745869505313*^9}, {
  3.391450281328409*^9, 3.3914502846332273`*^9}, {3.391450529920825*^9, 
  3.3914505340368257`*^9}}],

Cell[TextData[{
 "This module begins our process of learning to use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " as tool for solving and presenting solutions to problems that arise in \
Science and Engineering.  ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " consists of two main parts;  a front-end and a kernel.  The front-end is a \
set of windows that allows the user to view ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " files, called ",
 StyleBox["notebooks",
  FontSlant->"Italic"],
 ", and manipulate the contents of these notebooks.  The kernel is a set of \
core mathematical functions that ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " uses to compute the value of expressions that appear in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " notebooks. Across the top of the screen is a thin, but wide window that \
contains a number of pull-down menus.  These windows can be used to "
}], "Text",
 CellChangeTimes->{{3.3914485261095257`*^9, 3.391448738829644*^9}, {
  3.391449167865123*^9, 3.391449190678382*^9}, {3.3914532787482624`*^9, 
  3.3914533146506033`*^9}, {3.392206947179152*^9, 3.3922070032906322`*^9}, {
  3.3922070368143263`*^9, 3.3922070429147882`*^9}}],

Cell[TextData[{
 "Open and save notebooks (",
 Cell[BoxData["File"]],
 ")."
}], "Text",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{{3.3914485261095257`*^9, 3.391448738829644*^9}, {
   3.391449167865123*^9, 3.391449241832958*^9}, 3.3914492901033306`*^9, {
   3.460126432703125*^9, 3.460126435609375*^9}}],

Cell[TextData[{
 "Edit the contents of a notebook (",
 Cell[BoxData["Edit"]],
 ")."
}], "Text",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{{3.3914485261095257`*^9, 3.391448738829644*^9}, {
  3.391449167865123*^9, 3.391449241832958*^9}, {3.3914492901033306`*^9, 
  3.39144929600193*^9}, {3.3914493472266088`*^9, 3.3914493578721285`*^9}}],

Cell[TextData[{
 "Format the contents of a notebook (",
 Cell[BoxData["Format"]],
 ")."
}], "Text",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{{3.3914485261095257`*^9, 3.391448738829644*^9}, {
   3.391449167865123*^9, 3.391449241832958*^9}, {3.3914492901033306`*^9, 
   3.3914493012696095`*^9}, 3.3914528806478834`*^9}],

Cell[TextData[{
 "Organize and manipulates cells, the building blocks of a notebook (",
 Cell[BoxData["Cell"]],
 "). "
}], "Text",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{{3.3914485261095257`*^9, 3.391448738829644*^9}, {
  3.391449167865123*^9, 3.391449241832958*^9}, {3.3914492901033306`*^9, 
  3.3914493025214343`*^9}}],

Cell[TextData[{
 "Create graphics for the notebook (",
 Cell[BoxData["Graphics"]],
 ")."
}], "Text",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{{3.3914485261095257`*^9, 3.391448738829644*^9}, {
  3.391449167865123*^9, 3.3914493053655806`*^9}}],

Cell[TextData[{
 "Control evaluation of expressions in the notebook (",
 Cell[BoxData["Evaluation"]],
 "). "
}], "Text",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{{3.3914485261095257`*^9, 3.391448738829644*^9}, {
  3.391449167865123*^9, 3.3914493073685007`*^9}, {3.392207121085526*^9, 
  3.392207126334177*^9}}],

Cell[TextData[{
 "Open palette design to simplify common tasks (",
 Cell[BoxData["Palettes"]],
 ")."
}], "Text",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{{3.3914485261095257`*^9, 3.391448738829644*^9}, {
  3.391449167865123*^9, 3.3914493094615526`*^9}, {3.392207133990933*^9, 
  3.39220713735007*^9}}],

Cell[TextData[{
 "Manage the layout of multiple notebooks on the screen (",
 Cell[BoxData["Window"]],
 "),"
}], "Text",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{{3.3914485261095257`*^9, 3.391448738829644*^9}, {
  3.391449167865123*^9, 3.391449311304239*^9}}],

Cell[TextData[{
 "Provide helpful information about ",
 StyleBox["Mathematica ",
  FontSlant->"Italic"],
 "(",
 Cell[BoxData["Help"]],
 ")."
}], "Text",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{{3.3914485261095257`*^9, 3.391448738829644*^9}, {
   3.391449167865123*^9, 3.391449338073264*^9}, 3.3914528864463367`*^9}],

Cell[TextData[{
 "Instead of exploring each of these menus in detail, we will focus on a few \
key survival skills for ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " which can be accessed through these menus."
}], "Text",
 CellChangeTimes->{{3.3905860398613024`*^9, 3.3905860615424786`*^9}, {
  3.391448681425957*^9, 3.391448682207096*^9}, {3.3914493169024*^9, 
  3.3914493172829547`*^9}, {3.39144937762092*^9, 3.391449434083235*^9}, {
  3.3914523109273033`*^9, 3.391452311718457*^9}, {3.392207150935748*^9, 
  3.392207170419806*^9}, {3.458484433015625*^9, 3.45848443540625*^9}}],

Cell[TextData[{
 "These notebooks were created using ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " version 7, the same version as on the Owlnet PCs.  If you use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " version 6, you'll encounter some differences in the interface, such as the \
palettes and ",
 StyleBox["Documentation Center",
  FontFamily->"Courier New"],
 ", but all the equations should still work."
}], "Text",
 CellChangeTimes->{{3.4584853021875*^9, 3.458485465125*^9}, {
   3.458485532546875*^9, 3.458485682109375*^9}, 3.4584857945625*^9, {
   3.458487199015625*^9, 3.458487226890625*^9}, {3.460126449171875*^9, 
   3.460126451390625*^9}}],

Cell[CellGroupData[{

Cell["Saving your work", "Subsection",
 CellChangeTimes->{{3.39144945623553*^9, 3.3914494650984507`*^9}}],

Cell[TextData[{
 "Perhaps the most critical task is saving your work.  The ",
 Cell[BoxData["File"]],
 " menu has several options for saving a ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " notebook. ",
 Cell[BoxData["Save"]],
 " will simply save the notebook into its current location.  For notebooks \
first opened via a download from the web, the notebook usually resides in a \
temporary directory local to the machine on which you are currently working.  \
Since you will switch machines between classes, this location is not a safe \
place to store your work.  Instead, use ",
 Cell[BoxData[
  RowBox[{"Save", " ", "As"}]]],
 " to save your work to the directory ",
 Cell[BoxData[
  RowBox[{"My", " ", "Documents"}]]],
 ".  For the PCs in Symonds II Lab, ",
 Cell[BoxData[
  RowBox[{"My", " ", "Documents"}]]],
 " is automatically linked to your Owlnet directory.  In the interest of good \
organization, I suggest that you create a ",
 Cell[BoxData["Comp160"]],
 " directory in ",
 Cell[BoxData[
  RowBox[{"My", " ", "Documents"}]]],
 " where you will save all of your notebooks.  "
}], "Text",
 CellChangeTimes->{{3.3905860398613024`*^9, 3.3905860615424786`*^9}, {
   3.391448681425957*^9, 3.391448682207096*^9}, {3.3914493169024*^9, 
   3.3914493172829547`*^9}, {3.39144937762092*^9, 3.3914497869877243`*^9}, {
   3.391449817171728*^9, 3.391449840896316*^9}, 3.3914529006870975`*^9, {
   3.392207280676815*^9, 3.392207281480912*^9}, {3.45925962196875*^9, 
   3.45925962196875*^9}, {3.459260297890625*^9, 3.459260298625*^9}}],

Cell[CellGroupData[{

Cell["Exercise", "Exercise",
 CellChangeTimes->{{3.3914498977492*^9, 3.3914499052301064`*^9}}],

Cell[TextData[{
 "In this and subsequent notebooks, cells in purple signify exercises that \
you are required to do.  You will work on these exercises during the \
interactive class, and they are due at the beginning of the next class.  As \
your first exercise, create a ",
 Cell[BoxData[
  RowBox[{"Comp", " ", "160"}]]],
 " directory in ",
 Cell[BoxData[
  RowBox[{"My", " ", "Documents"}]]],
 " and save this notebook into that directory."
}], "ExerciseText",
 CellChangeTimes->{{3.3914499126909833`*^9, 3.3914499937491555`*^9}, {
  3.3914502962000904`*^9, 3.3914503003160906`*^9}, {3.392207334602003*^9, 
  3.3922073396376534`*^9}, {3.459259606890625*^9, 3.459259606890625*^9}, {
  3.459260726734375*^9, 3.45926079653125*^9}},
 FontColor->RGBColor[0.5, 0, 0.5]],

Cell["\<\
As another general piece of good advice, I suggest that you save your work \
frequently.  Computers (especially running Windows) have a bad habit of \
misbehaving at the most critical time (say after you have done an hour of \
unsaved work).  I suggest saving your work at least every 15 minutes.\
\>", "Text",
 CellChangeTimes->{{3.3914521791952553`*^9, 3.391452289255709*^9}, {
  3.392207372758443*^9, 3.3922073739770803`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Printing your work", "Subsection",
 CellChangeTimes->{{3.391449887283943*^9, 3.391449890168148*^9}}],

Cell[TextData[{
 "Another critical task is printing out your notebooks to be turned in for \
grading.  Symonds II contains two printers that can be accessed from the ",
 Cell[BoxData["Print"]],
 " command in the ",
 Cell[BoxData["File"]],
 " menu.  You can select either the east or west printer from the list of \
printer names on the small window created by the ",
 Cell[BoxData["Print"]],
 " command."
}], "Text",
 CellChangeTimes->{{3.3914503075366173`*^9, 3.391450439859527*^9}, {
  3.3918796283038273`*^9, 3.3918796299662504`*^9}}],

Cell[CellGroupData[{

Cell["Exercise", "Exercise",
 CellChangeTimes->{{3.3914498977492*^9, 3.3914499052301064`*^9}}],

Cell["\<\
Print out the first page of this notebook. Be sure to set the appropriate \
page numbers so you don't print the whole notebook.\
\>", "ExerciseText",
 CellChangeTimes->{{3.3914499126909833`*^9, 3.3914499937491555`*^9}, {
  3.3914502962000904`*^9, 3.3914503003160906`*^9}, {3.3914504496538057`*^9, 
  3.391450456343559*^9}, {3.3914505505909595`*^9, 3.391450580674818*^9}},
 FontColor->RGBColor[0.5, 0, 0.5]],

Cell["\<\
A printed version of your modules will be due at the beginning of class. \
Since printing out the modules takes a few minutes, either print them out \
beforehand or come to class early enough to print them out before class \
starts.  Arriving late to class and then trying to print out your module \
makes me very cranky and prone to start imposing draconian turn-in policies.\
\>", "Text",
 CellChangeTimes->{{3.391879633881959*^9, 3.391879755759641*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Getting help", "Subsection",
 CellChangeTimes->{{3.391449870189021*^9, 3.391449871891503*^9}}],

Cell[TextData[{
 "The ",
 Cell[BoxData[
  RowBox[{"Documentation", " ", "Center"}]]],
 " that is accessible from the ",
 Cell[BoxData["Help"]],
 " menu will become your best friend in this class.  Becoming an expert at \
using the ",
 Cell[BoxData[
  RowBox[{"Documentation", " ", "Center"}]]],
 " will make your life much easier.  The main menu for the ",
 Cell[BoxData[
  RowBox[{"Documentation", " ", "Center"}]]],
 " provides an overview of the capabilities of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ".  Another way to access information about a function is to simply to type \
its name into the blank line at the top of the ",
 Cell[BoxData[
  RowBox[{"Documentation", " ", "Center"}]]],
 " window and click the ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " icon to the left.  The ",
 Cell[BoxData[
  RowBox[{"Documentation", " ", "Center"}]]],
 " will search for and return links to relevant topics in its library of \
helpful information.  "
}], "Text",
 CellChangeTimes->{{3.390586064216323*^9, 3.390586065107605*^9}, {
  3.39058653295033*^9, 3.3905865340519133`*^9}, {3.39058678187827*^9, 
  3.390586786154419*^9}, {3.3905871921782527`*^9, 3.390587197996619*^9}, {
  3.391450607513946*^9, 3.3914508469430027`*^9}, {3.392207512877863*^9, 
  3.3922075133464527`*^9}, {3.4088222319013863`*^9, 3.4088222560179577`*^9}, {
  3.408822300635901*^9, 3.4088223020927877`*^9}, {3.458483895625*^9, 
  3.458483902796875*^9}}],

Cell[CellGroupData[{

Cell["Exercise", "Exercise",
 CellChangeTimes->{{3.3914498977492*^9, 3.3914499052301064`*^9}}],

Cell[TextData[{
 "Use the ",
 Cell[BoxData[
  RowBox[{"Documentation", " ", "Center"}]]],
 " to locate functions that manipulate prime numbers.  Locate a function that \
determines whether an integer is prime.  Use this function to determine \
whether ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["2", "31"], "-", "1"}]]],
 " is prime.  "
}], "ExerciseText",
 CellChangeTimes->{{3.3914499126909833`*^9, 3.3914499937491555`*^9}, {
  3.3914502962000904`*^9, 3.3914503003160906`*^9}, {3.3914504496538057`*^9, 
  3.391450456343559*^9}, {3.3914505505909595`*^9, 3.391450580674818*^9}, {
  3.3914508734316196`*^9, 3.3914509133498154`*^9}, {3.3914514834809933`*^9, 
  3.391451509849435*^9}, {3.392207789527644*^9, 3.392207789527944*^9}},
 FontColor->RGBColor[0.5, 0, 0.5]],

Cell[TextData[{
 "The ",
 Cell[BoxData[
  RowBox[{"Documentation", " ", "Center"}]]],
 " contains a number of tutorials on relevant topics in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ".  Instead of rehashing them in our notebooks, I will simply provide a \
hyperlink to the relevant tutorial or explanation.  In ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", hyperlinks are always highlighted in blue. "
}], "Text",
 CellChangeTimes->{{3.3914510238709407`*^9, 3.3914510837081757`*^9}, {
   3.391451141342199*^9, 3.3914511980548787`*^9}, {3.3914512374122567`*^9, 
   3.3914512374423003`*^9}, {3.3914512766294303`*^9, 3.3914513343435698`*^9}, 
   3.3914514404482574`*^9, {3.3914514715836487`*^9, 3.391451471894101*^9}, {
   3.3914515205550423`*^9, 3.3914515907974467`*^9}, {3.3914516233348827`*^9, 
   3.3914516286326056`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exercise", "Exercise",
 CellChangeTimes->{{3.3914498977492*^9, 3.3914499052301064`*^9}}],

Cell[TextData[{
 "Click on the blue text to visit a tutorial on ",
 StyleBox[ButtonBox["Integer and Number\[Hyphen]Theoretical Functions",
  BaseStyle->"Link",
  ButtonData->"paclet:tutorial/IntegerAndNumberTheoreticalFunctions"],
  FontColor->RGBColor[0, 0, 1]],
 "."
}], "ExerciseText",
 CellChangeTimes->{{3.3914499126909833`*^9, 3.3914499937491555`*^9}, {
   3.3914502962000904`*^9, 3.3914503003160906`*^9}, {3.3914504496538057`*^9, 
   3.391450456343559*^9}, {3.3914505505909595`*^9, 3.391450580674818*^9}, {
   3.3914508734316196`*^9, 3.3914509133498154`*^9}, {3.3914514834809933`*^9, 
   3.391451509849435*^9}, 3.3914515934413013`*^9, {3.391451658736493*^9, 
   3.391451659046946*^9}},
 FontColor->RGBColor[0.5, 0, 0.5]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Controlling computation in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"]
}], "Subsection",
 CellChangeTimes->{{3.3914504752010508`*^9, 3.3914504854960594`*^9}}],

Cell[TextData[{
 "One final skill is learning how to control computations in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ".  As we noted in the previous module, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " has no notion of an undefined variable.  While the idea that computation \
corresponds to simplification of an expression makes ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " an extremely powerful language, this paradigm sometimes causes ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to strain mightily to simplify or evaluate an expression in which the user \
has unwittingly made a simple mistake such as accidentally inserting an \
undefined variable.  "
}], "Text",
 CellChangeTimes->{{3.3905860489243345`*^9, 3.390586054993061*^9}, {
   3.3914516729271812`*^9, 3.391451943762024*^9}, {3.3914523916049213`*^9, 
   3.3914524101319313`*^9}, 3.391452915128151*^9, {3.392208951127565*^9, 
   3.3922090166469297`*^9}, {3.4088226174937153`*^9, 3.408822622715523*^9}, {
   3.408822653886292*^9, 3.408822662502685*^9}}],

Cell[TextData[{
 "In such cases, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " may take a long time to find what it thinks is the correct answer to an \
erroneous input expression.  If ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " \"hangs\" and fails to return a reasonable answer in a moderate amount of \
time, this situation is often the case.  To help deal with this problem, you \
may abort a current evaluation by selecting the ",
 Cell[BoxData[
  RowBox[{"Abort", " ", "Evaluation"}]]],
 " option from the ",
 Cell[BoxData["Evaluation"]],
 " menu.  (This command also has the keyboard shortcut ",
 Cell[BoxData[
  RowBox[{"Alt", "+", "."}]]],
 " .)"
}], "Text",
 CellChangeTimes->{{3.3905860489243345`*^9, 3.390586054993061*^9}, {
  3.3914516729271812`*^9, 3.391452091457345*^9}, {3.391452418153626*^9, 
  3.391452418444049*^9}}],

Cell[CellGroupData[{

Cell["Exercise", "Exercise",
 CellChangeTimes->{{3.3914498977492*^9, 3.3914499052301064`*^9}}],

Cell["\<\
Evaluate the expression below. Abort its evaluation once you realize it will \
never return an answer.\
\>", "ExerciseText",
 CellChangeTimes->{{3.3914499126909833`*^9, 3.3914499937491555`*^9}, {
   3.3914502962000904`*^9, 3.3914503003160906`*^9}, {3.3914504496538057`*^9, 
   3.391450456343559*^9}, {3.3914505505909595`*^9, 3.391450580674818*^9}, {
   3.3914508734316196`*^9, 3.3914509133498154`*^9}, {3.3914514834809933`*^9, 
   3.391451509849435*^9}, 3.3914515934413013`*^9, {3.391451658736493*^9, 
   3.391451659046946*^9}, {3.391452106679537*^9, 3.3914521368234825`*^9}, {
   3.391452948626988*^9, 3.3914529584212666`*^9}},
 FontColor->RGBColor[0.5, 0, 0.5]],

Cell[BoxData[
 RowBox[{"While", "[", 
  RowBox[{"True", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.391452140378666*^9, 3.3914521452758055`*^9}}],

Cell[TextData[{
 "Occasionally, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " may also run slowly due to the presence of lots of complex ",
 Cell[BoxData["Manipulate"]],
 " commands.  ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " uses much of its computation power dynamically updating the output of \
these ",
 Cell[BoxData["Manipulate"]],
 " commands (even if the user is not manipulating the sliders.)  If ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " seems to be laggy, you should try disabling ",
 Cell[BoxData[
  RowBox[{"Dynamic", " ", "Updating"}]]],
 " in the ",
 Cell[BoxData["Evaluation"]],
 " menu."
}], "Text",
 CellChangeTimes->{{3.390586340153101*^9, 3.3905863472332816`*^9}, {
   3.390586646503611*^9, 3.3905866490372543`*^9}, {3.3914505047641497`*^9, 
   3.3914505112135525`*^9}, {3.391452164764217*^9, 3.391452169681385*^9}, {
   3.391452434767847*^9, 3.3914526206388235`*^9}, 3.391452917882166*^9, {
   3.392209125355301*^9, 3.3922091311329613`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exercise", "Exercise",
 CellChangeTimes->{{3.3914498977492*^9, 3.3914499052301064`*^9}}],

Cell["\<\
Evaluate this expression with dynamic updating turned on.  Move the slider.  \
Next, disable dynamic updating.  Now, what happens when you move the slider?  \
Finally, enable dynamic updating once more and move the slider.  What happens?\
\>", "ExerciseText",
 CellChangeTimes->{{3.3914499126909833`*^9, 3.3914499937491555`*^9}, {
   3.3914502962000904`*^9, 3.3914503003160906`*^9}, {3.3914504496538057`*^9, 
   3.391450456343559*^9}, {3.3914505505909595`*^9, 3.391450580674818*^9}, {
   3.3914508734316196`*^9, 3.3914509133498154`*^9}, {3.3914514834809933`*^9, 
   3.391451509849435*^9}, 3.3914515934413013`*^9, {3.391451658736493*^9, 
   3.391451659046946*^9}, {3.391452106679537*^9, 3.3914521368234825`*^9}, {
   3.391452688337519*^9, 3.3914527949529505`*^9}, {3.392209171640656*^9, 
   3.392209171889008*^9}},
 FontColor->RGBColor[0.5, 0, 0.5]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"x", "!"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "100", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.391452653927354*^9, 3.3914526649734573`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`x$$], 0, 100, 1}}, Typeset`size$$ = {14., {0., 15.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`x$347$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`x$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`x$$, $CellContext`x$347$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Factorial[$CellContext`x$$], 
      "Specifications" :> {{$CellContext`x$$, 0, 100, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{501., {92., 103.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.391452665764611*^9, 3.3922091943097057`*^9, 
  3.408822783596272*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Numerical calculation in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"]
}], "Section",
 CellChangeTimes->{{3.3907458730805964`*^9, 3.3907458785787215`*^9}, {
  3.3918740526953063`*^9, 3.3918740548184013`*^9}}],

Cell[TextData[{
 "As mentioned in the previous notebook, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " at its core is just a very sophisticated calculator.  To use this \
calculator, you need to create (or reuse) an ",
 Cell[BoxData["Input"]],
 " cell and enter an expression.  Hitting ",
 Cell[BoxData[
  RowBox[{"Shift", "+", "Enter"}]]],
 " then evaluates the expression in the cell and returns its ",
 StyleBox["value",
  FontSlant->"Italic"],
 " (a simplified version of the expression)."
}], "Text",
 CellChangeTimes->{{3.3905859669364414`*^9, 3.3905859765302367`*^9}, {
  3.390586197047325*^9, 3.390586209465181*^9}, {3.3905870778338337`*^9, 
  3.3905870803474483`*^9}, {3.3918713025259123`*^9, 3.391871318038528*^9}, {
  3.391871484861735*^9, 3.3918716058080587`*^9}}],

Cell[TextData[{
 "Mathematical expressions in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " can be entered in ",
 Cell[BoxData["TraditionalForm"]],
 " that mimics traditional mathematical notation.  For example,"
}], "Text",
 CellChangeTimes->{{3.3918718655266953`*^9, 3.391871910432162*^9}, 
   3.392209312614799*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"1", "+", "1"}]], "Input",
 CellChangeTimes->{{3.3918719124350815`*^9, 3.391871912915783*^9}}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.3918719135667315`*^9, 3.392209323419589*^9}]
}, Open  ]],

Cell[TextData[{
 Cell[BoxData["TraditionalForm"]],
 " is supported by ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to allow users to enter simple expressions in the way in which they are \
accustomed.  Internally, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " represents all expressions in ",
 Cell[BoxData["StandardForm"]],
 ".  This form consists of expressions of the form ",
 Cell[BoxData[
  RowBox[{"Function", "[", 
   RowBox[{
    SubscriptBox["arg", "1"], ",", 
    SubscriptBox["arg", "2"], ",", "\[Ellipsis]", ",", 
    SubscriptBox["arg", "n"]}], "]"}]]],
 ".   For example, the expression ",
 Cell[BoxData[
  RowBox[{"1", "+", "1"}]]],
 " in ",
 Cell[BoxData[
  RowBox[{"StandardForm", Cell[""]}]]],
 " is "
}], "Text",
 CellChangeTimes->{{3.3918719185239587`*^9, 3.3918722915978527`*^9}, {
  3.392209387594993*^9, 3.392209388462455*^9}, {3.4088848917730083`*^9, 
  3.4088849107738867`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plus", "[", 
  RowBox[{"1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.3918722945020866`*^9, 3.391872296565094*^9}}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.391872296995722*^9, 3.392209401873763*^9}]
}, Open  ]],

Cell[TextData[{
 "There are two points to make about ",
 Cell[BoxData["StandardForm"]],
 ". First, all ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " function names start with upper case.  (To distinguish your functions from \
",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "'s, you should always use lower case.)  Second, the parameters to the \
function (the ",
 Cell[BoxData[
  SubscriptBox["arg", "i"]]],
 ") are contained inside square brackets, not parentheses.  Specifically, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " uses ",
 Cell[BoxData[
  RowBox[{"[", "]"}]]],
 " for functions and ",
 Cell[BoxData[
  RowBox[{"(", ")"}]]],
 " for grouping inside expressions.  Square brackets and parentheses are ",
 StyleBox["not",
  FontSlant->"Italic"],
 " interchangeable.  For example, "
}], "Text",
 CellChangeTimes->{{3.3918719185239587`*^9, 3.391872331095435*^9}, {
  3.3918724272355947`*^9, 3.391872504257883*^9}, {3.39220945424618*^9, 
  3.392209474689117*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plus", 
  RowBox[{"(", 
   RowBox[{"1", ",", "1"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.391872507272278*^9, 3.3918725117588186`*^9}},
 EmphasizeSyntaxErrors->True],

Cell[BoxData[
 RowBox[{
  RowBox[{"Syntax", "::", "\<\"sntxf\"\>"}], ":", 
  " ", "\<\"\\\"\\!\\((\\)\\\" cannot be followed by \\\"\\!\\(1, \
1)\\)\\\".\\!\\(\\\"\\\"\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.391872517106615*^9, 3.3918725202511997`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Syntax", "::", "\<\"tsntxi\"\>"}], ":", 
  " ", "\<\"\\\"\\!\\(1, 1\\)\\\" is incomplete; more input is \
needed.\\!\\(\\\"\\\"\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.391872517106615*^9, 3.391872520291258*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Syntax", "::", "\<\"sntxi\"\>"}], ":", 
  " ", "\<\"Incomplete expression; more input is \
needed.\\!\\(\\\"\\\"\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.391872517106615*^9, 3.3918725203513455`*^9}}]
}, Open  ]],

Cell[TextData[{
 "yields an error.  This error is indicated by the red bracket on the \
right-hand side of the cell with a small square labeled with a ",
 Cell[BoxData["+"]],
 ".  To view the error message associated with ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "'s evaluation, you can click on the ",
 Cell[BoxData["+"]],
 " to expand the cell.  Confusing the usage of square brackets and \
parentheses is the most common error that a novice ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " user makes.  Please remember the difference."
}], "Text",
 CellChangeTimes->{{3.3918725326793184`*^9, 3.3918726728036013`*^9}, {
   3.391872743716984*^9, 3.3918727663900385`*^9}, 3.392213460077546*^9}],

Cell[TextData[{
 "To start learning the basics of evaluating mathematical expressions in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", review the ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " tutorials contained in the introduction to ",
 StyleBox[ButtonBox["Numerical Calculations",
  BaseStyle->"Link",
  ButtonData->"paclet:tutorial/NumericalCalculationsOverview"],
  FontColor->RGBColor[0, 0, 1]],
 " from the ",
 StyleBox["Documentation Center",
  FontFamily->"Courier New"],
 ".  You should spend a couple of minutes working over each of the seven \
short tutorials there and then do the exercises below."
}], "Text",
 CellChangeTimes->{{3.391871615752557*^9, 3.3918716705724773`*^9}, {
  3.391871740424312*^9, 3.391871794312875*^9}, {3.3918723694613676`*^9, 
  3.3918724111421328`*^9}}],

Cell[CellGroupData[{

Cell["Exercise", "Exercise",
 CellChangeTimes->{{3.3914498977492*^9, 3.3914499052301064`*^9}}],

Cell[TextData[{
 "Which is larger ",
 Cell[BoxData[
  SuperscriptBox["\[Pi]", "\[ExponentialE]"]]],
 " or ",
 Cell[BoxData[
  SuperscriptBox["\[ExponentialE]", "\[Pi]"]]],
 "?"
}], "ExerciseText",
 CellChangeTimes->{{3.3914499126909833`*^9, 3.3914499937491555`*^9}, {
   3.3914502962000904`*^9, 3.3914503003160906`*^9}, {3.3914504496538057`*^9, 
   3.391450456343559*^9}, {3.3914505505909595`*^9, 3.391450580674818*^9}, {
   3.3914508734316196`*^9, 3.3914509133498154`*^9}, {3.3914514834809933`*^9, 
   3.391451509849435*^9}, 3.3914515934413013`*^9, {3.391451658736493*^9, 
   3.391451659046946*^9}, {3.391452106679537*^9, 3.3914521368234825`*^9}, {
   3.391452688337519*^9, 3.3914527949529505`*^9}, 3.3918728001893134`*^9, {
   3.3918729449102983`*^9, 3.391872974753806*^9}, {3.391873051425584*^9, 
   3.3918731539049854`*^9}, {3.391873443186721*^9, 3.3918734635163593`*^9}, {
   3.391873516293301*^9, 3.3918735876373115`*^9}, {3.3918736406145453`*^9, 
   3.391873748221422*^9}, {3.3918738283582516`*^9, 3.391873840085348*^9}, {
   3.4088850169901342`*^9, 3.408885017281605*^9}},
 FontColor->RGBColor[0.5, 0, 0.5]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exercise", "Exercise",
 CellChangeTimes->{{3.3914498977492*^9, 3.3914499052301064`*^9}}],

Cell[TextData[{
 "Given two numbers ",
 Cell[BoxData["a"]],
 " and ",
 Cell[BoxData["b"]],
 ", the ",
 StyleBox["absolute",
  FontSlant->"Italic"],
 " error between the two numbers is ",
 Cell[BoxData[
  RowBox[{"|", 
   RowBox[{"a", "-", "b"}], "|"}]]],
 ".  The ",
 StyleBox["relative",
  FontSlant->"Italic"],
 " error between the two number is ",
 Cell[BoxData[
  FractionBox[
   RowBox[{"|", 
    RowBox[{"a", "-", "b"}], "|"}], "a"]]],
 ", assuming that the first number is the true value, and the second number \
is an approximation to it.  To 20 decimal places, what are the absolute and \
relative errors between ",
 Cell[BoxData["\[Pi]"]],
 " and its approximation ",
 Cell[BoxData[
  FractionBox["22", "7"]]],
 "?"
}], "ExerciseText",
 CellChangeTimes->{{3.3914499126909833`*^9, 3.3914499937491555`*^9}, {
   3.3914502962000904`*^9, 3.3914503003160906`*^9}, {3.3914504496538057`*^9, 
   3.391450456343559*^9}, {3.3914505505909595`*^9, 3.391450580674818*^9}, {
   3.3914508734316196`*^9, 3.3914509133498154`*^9}, {3.3914514834809933`*^9, 
   3.391451509849435*^9}, 3.3914515934413013`*^9, {3.391451658736493*^9, 
   3.391451659046946*^9}, {3.391452106679537*^9, 3.3914521368234825`*^9}, {
   3.391452688337519*^9, 3.3914527949529505`*^9}, 3.3918728001893134`*^9, {
   3.3918729449102983`*^9, 3.391872974753806*^9}, {3.391873051425584*^9, 
   3.3918731539049854`*^9}, {3.391873443186721*^9, 3.3918734635163593`*^9}, {
   3.391873516293301*^9, 3.3918735876373115`*^9}, {3.3918736406145453`*^9, 
   3.391873748221422*^9}, {3.391874371069455*^9, 3.391874371239703*^9}, {
   3.40897809496875*^9, 3.408978095171875*^9}, {3.45848391521875*^9, 
   3.458483934578125*^9}, {3.458483968296875*^9, 3.45848406284375*^9}, {
   3.45848414125*^9, 3.458484192171875*^9}, 3.45848429334375*^9, {
   3.458484341046875*^9, 3.45848434290625*^9}, {3.458484386921875*^9, 
   3.458484390296875*^9}},
 FontColor->RGBColor[0.5, 0, 0.5]],

Cell[TextData[{
 "Stirling's formula states that ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{"n", "!"}], "]"}], "\[TildeTilde]", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"n", "+", 
       FractionBox["1", "2"]}], ")"}], " ", 
     RowBox[{"Log", "[", "n", "]"}]}], "-", "n", "+", 
    RowBox[{"Log", "[", 
     SqrtBox[
      RowBox[{"2", " ", "\[Pi]"}]], "]"}]}]}]]],
 ".  What are the absolute and relative errors for this formula when ",
 Cell[BoxData[
  RowBox[{"n", "=", "100"}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"n", "=", "1000"}]]],
 "?"
}], "ExerciseText",
 CellChangeTimes->{{3.3914499126909833`*^9, 3.3914499937491555`*^9}, {
   3.3914502962000904`*^9, 3.3914503003160906`*^9}, {3.3914504496538057`*^9, 
   3.391450456343559*^9}, {3.3914505505909595`*^9, 3.391450580674818*^9}, {
   3.3914508734316196`*^9, 3.3914509133498154`*^9}, {3.3914514834809933`*^9, 
   3.391451509849435*^9}, 3.3914515934413013`*^9, {3.391451658736493*^9, 
   3.391451659046946*^9}, {3.391452106679537*^9, 3.3914521368234825`*^9}, {
   3.391452688337519*^9, 3.3914527949529505`*^9}, 3.3918728001893134`*^9, {
   3.3918729449102983`*^9, 3.391872974753806*^9}, {3.391873051425584*^9, 
   3.3918731539049854`*^9}, {3.391873443186721*^9, 3.3918734635163593`*^9}, {
   3.391873516293301*^9, 3.3918735876373115`*^9}, {3.3918736406145453`*^9, 
   3.391873748221422*^9}, {3.391874371069455*^9, 3.3918744286734343`*^9}, {
   3.458484232265625*^9, 3.458484239625*^9}},
 FontColor->RGBColor[0.5, 0, 0.5]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exercise", "Exercise",
 CellChangeTimes->{{3.3914498977492*^9, 3.3914499052301064`*^9}}],

Cell[TextData[{
 "How many prime factors does ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["2", "31"], "+", "1"}]]],
 " ",
 StyleBox["have ?  Find a value for ",
  FontColor->RGBColor[0.5, 0, 0.5]],
 Cell[BoxData["n"]],
 " such that ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["2", "n"], "+", "1"}]]],
 " is divisible by the square of a whole number greater than one."
}], "ExerciseText",
 CellChangeTimes->{{3.3914499126909833`*^9, 3.3914499937491555`*^9}, {
   3.3914502962000904`*^9, 3.3914503003160906`*^9}, {3.3914504496538057`*^9, 
   3.391450456343559*^9}, {3.3914505505909595`*^9, 3.391450580674818*^9}, {
   3.3914508734316196`*^9, 3.3914509133498154`*^9}, {3.3914514834809933`*^9, 
   3.391451509849435*^9}, 3.3914515934413013`*^9, {3.391451658736493*^9, 
   3.391451659046946*^9}, {3.391452106679537*^9, 3.3914521368234825`*^9}, {
   3.391452688337519*^9, 3.3914527949529505`*^9}, 3.3918728001893134`*^9, {
   3.3918729449102983`*^9, 3.391872974753806*^9}, {3.391873051425584*^9, 
   3.3918731539049854`*^9}, {3.391873443186721*^9, 3.3918734635163593`*^9}, {
   3.391873516293301*^9, 3.3918735876373115`*^9}, 3.392213467803707*^9},
 FontColor->RGBColor[0.5, 0, 0.5]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exercise", "Exercise",
 CellChangeTimes->{{3.3914498977492*^9, 3.3914499052301064`*^9}, 
   3.3918748007558823`*^9}],

Cell[TextData[{
 "The ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " tutorials often write an expression in the form ",
 Cell[BoxData[
  RowBox[{"arg", " ", "//", " ", "Function"}]]],
 ".  What does the ",
 Cell[BoxData["//"]],
 " operator do?  Specifically, what is an alternative way to write the \
expression ",
 Cell[BoxData[
  RowBox[{"\[Pi]", "//", "N"}]]],
 "?"
}], "ExerciseText",
 CellChangeTimes->{{3.3914499126909833`*^9, 3.3914499937491555`*^9}, {
   3.3914502962000904`*^9, 3.3914503003160906`*^9}, {3.3914504496538057`*^9, 
   3.391450456343559*^9}, {3.3914505505909595`*^9, 3.391450580674818*^9}, {
   3.3914508734316196`*^9, 3.3914509133498154`*^9}, {3.3914514834809933`*^9, 
   3.391451509849435*^9}, 3.3914515934413013`*^9, {3.391451658736493*^9, 
   3.391451659046946*^9}, {3.391452106679537*^9, 3.3914521368234825`*^9}, {
   3.391452688337519*^9, 3.3914527949529505`*^9}, 3.3918728001893134`*^9, {
   3.3918729449102983`*^9, 3.391872974753806*^9}, {3.391873051425584*^9, 
   3.3918732023255763`*^9}, 3.3918748007759113`*^9},
 FontColor->RGBColor[0.5, 0, 0.5]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Algebraic computation in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"]
}], "Section",
 CellChangeTimes->{{3.3918740792139673`*^9, 3.3918740858937054`*^9}, {
  3.3918744520174665`*^9, 3.3918744536999197`*^9}}],

Cell[TextData[{
 "One fundamental feature of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " that separates it from other languages like Java or Matlab is its ability \
to perform not only numerical calculations, but also algebraic calculations.  \
This ability arises because ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " treats a mathematical expression as something to be simplified as opposed \
to something to be evaluated numerically.  Thus, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " is easily able to evaluate "
}], "Text",
 CellChangeTimes->{{3.391874458777322*^9, 3.3918745816965218`*^9}, {
   3.392211116061035*^9, 3.392211123830573*^9}, {3.392211153900618*^9, 
   3.392211233833625*^9}, 3.392213477297399*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox[
  RowBox[{"x", "+", "x"}], "x"]], "Input",
 CellChangeTimes->{{3.391874586533574*^9, 3.391874592081662*^9}}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.391874594114626*^9}]
}, Open  ]],

Cell[TextData[{
 "without having a specific value for ",
 Cell[BoxData["x"]],
 ".   Please spend 20 minutes browsing the tutorials in ",
 ButtonBox["Algebraic Calculations",
  BaseStyle->"Link",
  ButtonData->"paclet:tutorial/AlgebraicCalculationsOverview"],
 ".  You do not need to know this material in depth.  Instead, you simply \
need to know where to look to answer the following questions."
}], "Text",
 CellChangeTimes->{{3.3918746041993284`*^9, 3.3918746679923306`*^9}, {
   3.3918747379743547`*^9, 3.391874782869807*^9}, 3.392213507885388*^9, 
   3.458484419640625*^9}],

Cell[CellGroupData[{

Cell["Exercise", "Exercise",
 CellChangeTimes->{{3.3914498977492*^9, 3.3914499052301064`*^9}, 
   3.3918748007558823`*^9}],

Cell[TextData[{
 "Expand the expression ",
 Cell[BoxData[
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"a", "+", "b"}], ")"}], "10"]]],
 ".    What is the coefficient of ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["a", "3"], 
   SuperscriptBox["b", "7"]}]]],
 "?    More generally, for ",
 Cell[BoxData[
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"a", "+", "b"}], ")"}], "n"]]],
 " do you see a pattern for the coefficients of ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["a", "i"], 
   SuperscriptBox["b", 
    RowBox[{"n", "-", "i"}]]}]]],
 "?  Investigate the ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " function ",
 Cell[BoxData["Binomial"]],
 "."
}], "ExerciseText",
 CellChangeTimes->{{3.3914499126909833`*^9, 3.3914499937491555`*^9}, {
   3.3914502962000904`*^9, 3.3914503003160906`*^9}, {3.3914504496538057`*^9, 
   3.391450456343559*^9}, {3.3914505505909595`*^9, 3.391450580674818*^9}, {
   3.3914508734316196`*^9, 3.3914509133498154`*^9}, {3.3914514834809933`*^9, 
   3.391451509849435*^9}, 3.3914515934413013`*^9, {3.391451658736493*^9, 
   3.391451659046946*^9}, {3.391452106679537*^9, 3.3914521368234825`*^9}, {
   3.391452688337519*^9, 3.3914527949529505`*^9}, 3.3918728001893134`*^9, {
   3.3918729449102983`*^9, 3.391872974753806*^9}, {3.391873051425584*^9, 
   3.3918732023255763`*^9}, {3.3918748007759113`*^9, 
   3.3918748819642735`*^9}, {3.391874938867231*^9, 3.391874985535267*^9}},
 FontColor->RGBColor[0.5, 0, 0.5]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exercise", "Exercise",
 CellChangeTimes->{{3.3914498977492*^9, 3.3914499052301064`*^9}, 
   3.3918748007558823`*^9}],

Cell[TextData[{
 "Set the variable ",
 Cell[BoxData["x"]],
 " to have the value ",
 Cell[BoxData["1"]],
 ". Now, simplify the expression ",
 Cell[BoxData[
  FractionBox[
   RowBox[{
    SuperscriptBox["x", "4"], "-", "1"}], 
   RowBox[{"x", "-", "1"}]]]],
 ".  What is the answer?  Next, clear the value of the variable ",
 Cell[BoxData["x"]],
 ".  Then, evaluate ",
 Cell[BoxData[
  FractionBox[
   RowBox[{
    SuperscriptBox["x", "4"], "-", "1"}], 
   RowBox[{"x", "-", "1"}]]]],
 " with ",
 Cell[BoxData["x"]],
 " being undefined and then set ",
 Cell[BoxData[
  RowBox[{"x", "=", "1"}]]],
 ".  What is the answer?"
}], "ExerciseText",
 CellChangeTimes->{{3.3914499126909833`*^9, 3.3914499937491555`*^9}, {
   3.3914502962000904`*^9, 3.3914503003160906`*^9}, {3.3914504496538057`*^9, 
   3.391450456343559*^9}, {3.3914505505909595`*^9, 3.391450580674818*^9}, {
   3.3914508734316196`*^9, 3.3914509133498154`*^9}, {3.3914514834809933`*^9, 
   3.391451509849435*^9}, 3.3914515934413013`*^9, {3.391451658736493*^9, 
   3.391451659046946*^9}, {3.391452106679537*^9, 3.3914521368234825`*^9}, {
   3.391452688337519*^9, 3.3914527949529505`*^9}, 3.3918728001893134`*^9, {
   3.3918729449102983`*^9, 3.391872974753806*^9}, {3.391873051425584*^9, 
   3.3918732023255763`*^9}, {3.3918748007759113`*^9, 
   3.3918748819642735`*^9}, {3.391874938867231*^9, 3.391875084519573*^9}, {
   3.3918752344982233`*^9, 3.3918752448833632`*^9}, {3.3922114912530193`*^9, 
   3.392211497646697*^9}},
 FontColor->RGBColor[0.5, 0, 0.5]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exercise", "Exercise",
 CellChangeTimes->{{3.3914498977492*^9, 3.3914499052301064`*^9}, 
   3.3918748007558823`*^9}],

Cell[TextData[{
 "Consider the polynomial expression ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["x", "2"], "-", 
   SuperscriptBox["y", "2"]}]]],
 " in Cartesian coordinates ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{"x", ",", "y"}], "}"}]]],
 ".  Transform this expression into polar coordinates ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{"r", ",", "\[Theta]"}], "}"}]]],
 " using the rules ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     RowBox[{"r", " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ",", 
    RowBox[{"y", "\[Rule]", 
     RowBox[{"r", " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}], "}"}]]],
 ".  Simplify the resulting expression."
}], "ExerciseText",
 CellChangeTimes->{{3.3914499126909833`*^9, 3.3914499937491555`*^9}, {
   3.3914502962000904`*^9, 3.3914503003160906`*^9}, {3.3914504496538057`*^9, 
   3.391450456343559*^9}, {3.3914505505909595`*^9, 3.391450580674818*^9}, {
   3.3914508734316196`*^9, 3.3914509133498154`*^9}, {3.3914514834809933`*^9, 
   3.391451509849435*^9}, 3.3914515934413013`*^9, {3.391451658736493*^9, 
   3.391451659046946*^9}, {3.391452106679537*^9, 3.3914521368234825`*^9}, {
   3.391452688337519*^9, 3.3914527949529505`*^9}, 3.3918728001893134`*^9, {
   3.3918729449102983`*^9, 3.391872974753806*^9}, {3.391873051425584*^9, 
   3.3918732023255763`*^9}, {3.3918748007759113`*^9, 
   3.3918748819642735`*^9}, {3.391874938867231*^9, 3.391875084519573*^9}, {
   3.3918752344982233`*^9, 3.3918752448833632`*^9}, {3.391875359350241*^9, 
   3.39187546053776*^9}, {3.391875504041182*^9, 3.391875517941447*^9}},
 FontColor->RGBColor[0.5, 0, 0.5]],

Cell[TextData[{
 "Given its ability to manipulate algebraic expressions, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " is also well-suited to solving systems of algebraic equations.  We will \
leverage this capability often in this class.  The bread-and-butter function \
for this task is ",
 Cell[BoxData["Solve"]],
 "."
}], "Text",
 CellChangeTimes->{{3.3918759593649855`*^9, 3.3918760350453176`*^9}, {
   3.391876161159176*^9, 3.391876305960277*^9}, 3.392211611075569*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"2", "x"}], "+", "1"}], "\[Equal]", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.391876307953182*^9, 3.39187631539403*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1", "2"]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.3918763160149355`*^9}]
}, Open  ]],

Cell[TextData[{
 "\nBefore pointing you towards the ",
 Cell[BoxData[
  RowBox[{"Document", " ", "Center"}]]],
 " for more reading, let me make two points about equations in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ".  First, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " uses double equals (",
 Cell[BoxData["\[Equal]"]],
 ") for equations and single equals ",
 Cell[BoxData["="]],
 " for assignment.  Confusing the two is another common mistake in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ".  Note what happens if we replace ",
 Cell[BoxData["\[Equal]"]],
 " by ",
 Cell[BoxData["="]],
 " in the expression above."
}], "Text",
 CellChangeTimes->{{3.3918759593649855`*^9, 3.3918760350453176`*^9}, {
  3.391876161159176*^9, 3.3918763766032653`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"2", "x"}], "+", "1"}], "=", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.391876307953182*^9, 3.39187631539403*^9}, 
   3.3918763853359966`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Set", "::", "\<\"write\"\>"}], ":", 
  " ", "\<\"Tag \\!\\(Plus\\) in \\!\\(1 + \\(\\(2\\\\ x\\)\\)\\) is \
Protected. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\
\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/write\\\", ButtonNote -> \
\\\"Set::write\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.391876386347471*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "::", "\<\"eqf\"\>"}], ":", 
  " ", "\<\"\\!\\(0\\) is not a well-formed equation. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Solve/eqf\\\", ButtonNote -> \
\\\"Solve::eqf\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.391876386607851*^9}],

Cell[BoxData[
 RowBox[{"Solve", "[", "0", "]"}]], "Output",
 CellChangeTimes->{3.391876386647909*^9}]
}, Open  ]],

Cell[TextData[{
 Cell[BoxData["Solve"]],
 " (and many more ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ") functions can take not only a single equation as input, but also a ",
 StyleBox["list",
  FontSlant->"Italic"],
 " of equations.  Lists in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " consist of a sequence of expressions, separated by commas and enclosed by \
curly brackets.  For example, "
}], "Text",
 CellChangeTimes->{{3.3918764112037086`*^9, 3.391876510828949*^9}, {
  3.392211688905538*^9, 3.392211701874744*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"x", "+", "y"}], "\[Equal]", "4"}], ",", 
    RowBox[{
     RowBox[{"x", "-", "y"}], "\[Equal]", "0"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.391876514243928*^9, 3.3918765244087467`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", "2"}], ",", 
    RowBox[{"y", "\[Rule]", "2"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.3918765247692723`*^9}]
}, Open  ]],

Cell[TextData[{
 "We will learn much, much more about lists in subsequent modules.   For now, \
briefly review the following tutorial on ",
 ButtonBox["Solving Equations ",
  BaseStyle->"Link",
  ButtonData->"paclet:tutorial/SolvingEquations"],
 "and do the following exercises."
}], "Text",
 CellChangeTimes->{{3.3918765332716675`*^9, 3.3918767001749916`*^9}, 
   3.3922135274425507`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exercise", "Exercise",
 CellChangeTimes->{{3.3914498977492*^9, 3.3914499052301064`*^9}, 
   3.3918748007558823`*^9}],

Cell[TextData[{
 "Find an exact solution to the four degree equation ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"4", 
     SuperscriptBox["x", "4"]}], "+", 
    RowBox[{"3", 
     SuperscriptBox["x", "3"]}], "+", 
    RowBox[{"2", 
     SuperscriptBox["x", "2"]}], "+", "x", "+", "1"}], "\[Equal]", "0"}]]],
 ". Next, compute numerical solutions to this equation."
}], "ExerciseText",
 CellChangeTimes->{{3.3914499126909833`*^9, 3.3914499937491555`*^9}, {
   3.3914502962000904`*^9, 3.3914503003160906`*^9}, {3.3914504496538057`*^9, 
   3.391450456343559*^9}, {3.3914505505909595`*^9, 3.391450580674818*^9}, {
   3.3914508734316196`*^9, 3.3914509133498154`*^9}, {3.3914514834809933`*^9, 
   3.391451509849435*^9}, 3.3914515934413013`*^9, {3.391451658736493*^9, 
   3.391451659046946*^9}, {3.391452106679537*^9, 3.3914521368234825`*^9}, {
   3.391452688337519*^9, 3.3914527949529505`*^9}, 3.3918728001893134`*^9, {
   3.3918729449102983`*^9, 3.391872974753806*^9}, {3.391873051425584*^9, 
   3.3918732023255763`*^9}, {3.3918748007759113`*^9, 
   3.3918748819642735`*^9}, {3.391874938867231*^9, 3.391875084519573*^9}, {
   3.3918752344982233`*^9, 3.3918752448833632`*^9}, {3.391875359350241*^9, 
   3.39187546053776*^9}, {3.391875504041182*^9, 3.391875517941447*^9}, {
   3.3918767278152876`*^9, 3.391876863723424*^9}, {3.3918768974926553`*^9, 
   3.391876929399171*^9}, {3.458484701734375*^9, 3.45848470215625*^9}},
 FontColor->RGBColor[0.5, 0, 0.5]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exercise", "Exercise",
 CellChangeTimes->{{3.3914498977492*^9, 3.3914499052301064`*^9}, 
   3.3918748007558823`*^9}],

Cell[TextData[{
 "Use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to find the solutions to the quadratic equation ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"a", " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"b", " ", "x"}], "+", "c"}], "\[Equal]", "0"}]]],
 ".  (Note the use of spaces here: ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{
     StyleBox["b",
      FontSlant->"Plain"], " ", 
     StyleBox["x",
      FontSlant->"Plain"]}],
    FontFamily->"Courier New"], TraditionalForm]]],
 " is the multiplication of two variables, whereas ",
 Cell[BoxData[
  FormBox[
   StyleBox["bx",
    FontFamily->"Courier New"], TraditionalForm]]],
 " is a single variable.)  Backsubstitute the ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "'s answer into the equation and show the answers are actual solutions to \
the equation."
}], "ExerciseText",
 CellChangeTimes->{{3.3914499126909833`*^9, 3.3914499937491555`*^9}, {
   3.3914502962000904`*^9, 3.3914503003160906`*^9}, {3.3914504496538057`*^9, 
   3.391450456343559*^9}, {3.3914505505909595`*^9, 3.391450580674818*^9}, {
   3.3914508734316196`*^9, 3.3914509133498154`*^9}, {3.3914514834809933`*^9, 
   3.391451509849435*^9}, 3.3914515934413013`*^9, {3.391451658736493*^9, 
   3.391451659046946*^9}, {3.391452106679537*^9, 3.3914521368234825`*^9}, {
   3.391452688337519*^9, 3.3914527949529505`*^9}, 3.3918728001893134`*^9, {
   3.3918729449102983`*^9, 3.391872974753806*^9}, {3.391873051425584*^9, 
   3.3918732023255763`*^9}, {3.3918748007759113`*^9, 
   3.3918748819642735`*^9}, {3.391874938867231*^9, 3.391875084519573*^9}, {
   3.3918752344982233`*^9, 3.3918752448833632`*^9}, {3.391875359350241*^9, 
   3.39187546053776*^9}, {3.391875504041182*^9, 3.391875517941447*^9}, {
   3.3918767278152876`*^9, 3.3918768099850807`*^9}, {3.458486011921875*^9, 
   3.458486082265625*^9}, {3.458486119265625*^9, 3.458486136515625*^9}, {
   3.458486927203125*^9, 3.458486952734375*^9}, {3.458486985875*^9, 
   3.45848698790625*^9}},
 FontColor->RGBColor[0.5, 0, 0.5]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exercise", "Exercise",
 CellChangeTimes->{{3.3914498977492*^9, 3.3914499052301064`*^9}, 
   3.3918748007558823`*^9}],

Cell[TextData[{
 "Given a line through origin with slope ",
 Cell[BoxData["m"]],
 " (equation ",
 Cell[BoxData[
  RowBox[{"y", "\[Equal]", 
   RowBox[{
    RowBox[{"m", " ", "x"}], "+", "b"}]}]]],
 ") and a parabola of the form ",
 Cell[BoxData[
  RowBox[{"y", "\[Equal]", 
   SuperscriptBox["x", "2"]}]]],
 ", find the coordinates of their intersection point(s) as a function of ",
 Cell[BoxData["m"]],
 "."
}], "ExerciseText",
 CellChangeTimes->{{3.3914499126909833`*^9, 3.3914499937491555`*^9}, {
   3.3914502962000904`*^9, 3.3914503003160906`*^9}, {3.3914504496538057`*^9, 
   3.391450456343559*^9}, {3.3914505505909595`*^9, 3.391450580674818*^9}, {
   3.3914508734316196`*^9, 3.3914509133498154`*^9}, {3.3914514834809933`*^9, 
   3.391451509849435*^9}, 3.3914515934413013`*^9, {3.391451658736493*^9, 
   3.391451659046946*^9}, {3.391452106679537*^9, 3.3914521368234825`*^9}, {
   3.391452688337519*^9, 3.3914527949529505`*^9}, 3.3918728001893134`*^9, {
   3.3918729449102983`*^9, 3.391872974753806*^9}, {3.391873051425584*^9, 
   3.3918732023255763`*^9}, {3.3918748007759113`*^9, 
   3.3918748819642735`*^9}, {3.391874938867231*^9, 3.391875084519573*^9}, {
   3.3918752344982233`*^9, 3.3918752448833632`*^9}, {3.391875359350241*^9, 
   3.39187546053776*^9}, {3.391875504041182*^9, 3.391875517941447*^9}, {
   3.3918767278152876`*^9, 3.3918768099850807`*^9}, {3.391876997228057*^9, 
   3.3918770554829845`*^9}, {3.391877103843488*^9, 3.3918771544873204`*^9}},
 FontColor->RGBColor[0.5, 0, 0.5]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Document creation in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"]
}], "Section",
 CellChangeTimes->{{3.390746036702399*^9, 3.3907460434323444`*^9}, {
  3.3918784140035334`*^9, 3.3918784207834177`*^9}}],

Cell[TextData[{
 "Up to now, we have focused on ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " as a powerful calculator.  However, this is just the start of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "'s capabilities.  ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " also serves as a full-fledged document preparation environment that \
incorporate text, equations, figures and graphics.  In this section, we \
discuss some of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "'s more important features for document preparation."
}], "Text",
 CellChangeTimes->{{3.391877180965923*^9, 3.391877256496036*^9}, {
   3.391877426674134*^9, 3.391877450909466*^9}, {3.3922124043020277`*^9, 
   3.392212433333887*^9}, 3.3922133408883142`*^9, 3.392213408472373*^9}],

Cell[CellGroupData[{

Cell["Cells", "Subsection",
 CellChangeTimes->{{3.3918784806506963`*^9, 3.391878481231543*^9}}],

Cell[TextData[{
 "A ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " notebook consists of a sequence of ",
 StyleBox["cells",
  FontSlant->"Italic"],
 ".  Each cell has a particular style associated with it.  To view this \
style, you first select the cell by clicking on the square bracket bounding \
the cell on the right side of the window.  Next, select the ",
 Cell[BoxData["Format"]],
 " menu and the ",
 Cell[BoxData["Style"]],
 " submenu.  (Alternatively, right-click on the square bracket and select the \
",
 StyleBox["Style", "InlineInput",
  FontWeight->"Plain"],
 " submenu.)  The resulting drop-down menu lists the possible cell styles for \
the current notebook and has a check mark next to the style associated with \
the selected cell.  You may change the style of an existing cell using this \
menu or set the style of a new cell (created by clicking between existing \
cells)."
}], "Text",
 CellChangeTimes->{{3.3905859948265457`*^9, 3.3905860284849443`*^9}, {
   3.3918774691861105`*^9, 3.3918777208530087`*^9}, 3.392213358730625*^9, {
   3.458484880921875*^9, 3.458484933296875*^9}, 3.458484976328125*^9}],

Cell[TextData[{
 "In most notebooks there are two important types of cells, ",
 Cell[BoxData["Input"]],
 " cells and ",
 Cell[BoxData["Text"]],
 " cells.  ",
 Cell[BoxData["Input"]],
 " cells contain ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " expressions waiting to be evaluated (and are colored in orange in this \
notebook style).   Hitting ",
 Cell[BoxData[
  RowBox[{"Shift", "+", "Enter"}]]],
 " in an ",
 Cell[BoxData["Input"]],
 " cell causes ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to evaluate the contents of the cell and produce a corresponding ",
 Cell[BoxData["Output"]],
 " cell.  On the other hand,  ",
 Cell[BoxData["Text"]],
 " cells do not contain expressions that are destined to be evaluated.  \
Instead, they contain text and formulas that are meant to be read.  "
}], "Text",
 CellChangeTimes->{{3.391877865964563*^9, 3.3918780968812094`*^9}, {
  3.392212523294924*^9, 3.392212555302466*^9}}],

Cell[TextData[{
 "As you progress in this class, I will ask you to add text cells to your \
notebook to answer questions and document your ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " functions. A common beginner mistake is to type text into an ",
 Cell[BoxData["Input"]],
 " cell.  Since ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " interprets this text as an algebraic expression, the result often looks \
strange."
}], "Text",
 CellChangeTimes->{{3.391877865964563*^9, 3.3918781504593196`*^9}, {
  3.3918782246775203`*^9, 3.3918782265001774`*^9}, {3.392212589117529*^9, 
  3.3922125893119593`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "As", " ", "you", " ", "progress", " ", "in", " ", "this", " ", "class"}], 
  ",", 
  RowBox[{
  "I", " ", "will", " ", "ask", " ", "you", " ", "to", " ", "add", " ", 
   "text", " ", "cells", " ", "to", " ", "your", " ", "notebook", " ", "to", 
   " ", "answer", " ", "questions", " ", "and", " ", "document", " ", 
   RowBox[{
    StyleBox[
     RowBox[{"your", 
      StyleBox["Mathematica",
       FontSlant->"Italic"], "functions"}]], ".", "A"}], " ", "common", " ", 
   "beginner", " ", "mistake", " ", "is", " ", "to", " ", "type", " ", "text",
    " ", "into", " ", 
   RowBox[{"anInputcell", ".", 
    StyleBox[
     RowBox[{"Since", 
      StyleBox["Mathematica",
       FontSlant->"Italic"], "interprets"}]]}], " ", "this", " ", "text", " ",
    "and", " ", "an", " ", "algebraic", " ", "expression"}], ",", 
  RowBox[{"the", " ", "result", " ", "often", " ", "looks", " ", 
   RowBox[{"strange", "."}]}]}]], "Input",
 CellChangeTimes->{{3.39187815407459*^9, 3.3918781999614873`*^9}}],

Cell[TextData[{
 "Another common beginner mistake is to punch all of their text into a single \
",
 Cell[BoxData["Text"]],
 " cell and try to format the text inside the cell.  A better method is to \
treat each ",
 Cell[BoxData["Text"]],
 " cell as a single paragraph -- observe how each paragraph of this notebook \
has its own bracket at the right.  Then, let ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " handle the typesetting using the options in the ",
 Cell[BoxData["Format"]],
 " menu."
}], "Text",
 CellChangeTimes->{{3.3918782328193903`*^9, 3.391878257415248*^9}, {
   3.3918783082593718`*^9, 3.391878317012132*^9}, {3.391878582138653*^9, 
   3.3918785967599688`*^9}, {3.391878652611393*^9, 3.391878677217265*^9}, 
   3.392212641358615*^9, {3.458484628484375*^9, 3.458484674234375*^9}}],

Cell[TextData[{
 "Some cells such as the \"Document creation in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "\" cell above act as titles or section heading that cause cells to be \
grouped together hierarchically.  If we select this cell and check its style, \
we note its style is ",
 Cell[BoxData["Section"]],
 ".  All text cells in between two section cells make up the body of this \
section.  You can expand and collapse this section of the notebook by double \
clicking on the right bracket associated with the section heading.  Adding \
cells for titles and sections makes your notebook look more polished."
}], "Text",
 CellChangeTimes->{{3.3918777265713453`*^9, 3.391877854187393*^9}, {
  3.3918780114666862`*^9, 3.3918780127585697`*^9}, {3.3918784970746403`*^9, 
  3.3918785624699783`*^9}, {3.392212678815942*^9, 3.392212696539652*^9}}],

Cell[TextData[{
 "For more information on cells and notebooks, you should take a brief look \
at the tutorial ",
 StyleBox[ButtonBox["Notebooks as Documents",
  BaseStyle->"Link",
  ButtonData->"paclet:tutorial/NotebooksAsDocuments"],
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[".",
  FontColor->GrayLevel[0]]
}], "Text",
 CellChangeTimes->{{3.3918773897603183`*^9, 3.3918773900807858`*^9}, {
  3.391878604331006*^9, 3.3918786297580757`*^9}, {3.46012652271875*^9, 
  3.46012659215625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Editing", "Subsection",
 CellChangeTimes->{{3.391878636808354*^9, 3.391878637609522*^9}, {
  3.460126571328125*^9, 3.460126575109375*^9}}],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " supports all of the standard cut and paste operations common in most \
Windows applications.  These operations can be accessed through the ",
 Cell[BoxData["Edit"]],
 " menu.    One particularly important operation that you should remember is ",
 Cell[BoxData["Undo"]],
 ".  ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " supports only one round of ",
 Cell[BoxData["Undo"]],
 "s.  So, if you think that you have made an editing mistake, stop and think \
for a second before blindly proceeding.  Then use ",
 Cell[BoxData["Undo"]],
 " if you think it is appropriate."
}], "Text",
 CellChangeTimes->{{3.39058645634017*^9, 3.390586465493331*^9}, {
  3.3905865379274864`*^9, 3.3905865470405903`*^9}, {3.390587154554152*^9, 
  3.3905871734713535`*^9}, {3.3918787383864417`*^9, 3.3918788031909184`*^9}, {
  3.3918789737696*^9, 3.3918791134732704`*^9}, {3.458483841640625*^9, 
  3.45848384259375*^9}}],

Cell[TextData[{
 "Another useful trick involves selecting a portion of a mathematical \
expression (for either copying or deletion).  One option is to click and drag \
to select the desired subexpression.  One drawback with this approach is that \
matching up square brackets, parentheses and curly brackets can be tricky for \
large expression.  A better alternative is to click inside the desired \
expression and repeatedly click.  ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " will automatically select larger and larger subexpressions that contains \
the cursor.  This approach avoids the problem of balancing parentheses. "
}], "Text",
 CellChangeTimes->{{3.391879115506234*^9, 3.3918791437373915`*^9}, {
  3.3918792002297497`*^9, 3.3918793994802313`*^9}, {3.3922127969305077`*^9, 
  3.392212797628566*^9}}],

Cell[TextData[{
 "Finally, you will often be asked to evaluate an expression contained in a ",
 Cell[BoxData["Text"]],
 " cell.  Instead of trying to retype the expression into an ",
 "Input",
 " cell by hand, I suggest that you cut and paste the expression into an ",
 Cell[BoxData["Input"]],
 " cell.  Why?  Because retyping the expression often introduces a mistake \
into the expression that will make your life miserable later on when trying \
to understand why your answer is incorrect.  Always cut and paste if possible."
}], "Text",
 CellChangeTimes->{{3.3918794261791553`*^9, 3.3918795596337147`*^9}, {
  3.392212826618415*^9, 3.392212850768059*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Creating 2D math expressions", "Subsection",
 CellChangeTimes->{{3.390585998722147*^9, 3.390586006002616*^9}, {
   3.3905864043854623`*^9, 3.3905864086816397`*^9}, {3.3918786990891514`*^9, 
   3.3918787162041025`*^9}, 3.391964674348254*^9}],

Cell[TextData[{
 "Another feature of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " is its ability to typeset mathematical expression in a quick and easy to \
use way.  For novice users, the easiest way to create 2D math expressions is \
to use the ",
 Cell[BoxData["BasicMathInput"]],
 " palette from the ",
 Cell[BoxData["Palette"]],
 " menu.  This palette contains most of the interesting expressions that you \
might like to create."
}], "Text",
 CellChangeTimes->{{3.391964742818074*^9, 3.391964744590658*^9}, {
  3.3919650554939156`*^9, 3.3919651555097256`*^9}, {3.3922128864638844`*^9, 
  3.392212906166725*^9}}],

Cell[TextData[{
 "As you become more proficient at using ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", you will start to become interested in using keyboard shortcuts to create \
most of these expressions.  Many of these shortcuts involve using either the \
control key or the escape key.  Take a brief look at the tutorials",
 StyleBox[" ",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[ButtonBox["Editing and Evaluating Two-Dimensional Expressions ",
  BaseStyle->"Link",
  ButtonData->"paclet:tutorial/EditingAndEvaluatingTwoDimensionalExpressions"],
  FontColor->RGBColor[0, 0, 1]],
 "and",
 StyleBox[" ",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[ButtonBox["Entering Two-Dimensional Input",
  BaseStyle->"Link",
  ButtonData->"paclet:tutorial/EnteringTwoDimensionalInput"],
  FontColor->RGBColor[0, 0, 1]],
 " for more a detailed description of how these shortcuts work."
}], "Text",
 CellChangeTimes->{{3.391965163911975*^9, 3.3919653222628307`*^9}, {
  3.392212931565117*^9, 3.392212932241294*^9}, {3.460126729640625*^9, 
  3.46012673540625*^9}}],

Cell[TextData[{
 "An interesting thing to note about typesetting in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " is that, if done properly, the resulting expression can be evaluated by ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " as input.  For example, is ",
 Cell[BoxData[
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"Cos", "[", "\[Theta]", "]"}], 
    RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]]],
 " equal to ",
 Cell[BoxData[
  RowBox[{"Sin", "[", "\[Theta]", "]"}]]],
 "?  We can cut and paste these two expression and enter the operator ",
 Cell[BoxData["\[Equal]"]],
 " from the ",
 Cell[BoxData["BasicMathInput"]],
 " palette and arrive at"
}], "Text",
 CellChangeTimes->{{3.391965351946105*^9, 3.3919655364450808`*^9}, {
  3.391965585196153*^9, 3.3919655936484756`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"Cos", "[", "\[Theta]", "]"}], 
    RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}], "\[Equal]", 
  RowBox[{"Sin", "[", "\[Theta]", "]"}]}]], "Input",
 CellChangeTimes->{{3.3919655217035894`*^9, 3.3919655418830085`*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.3919655263603783`*^9, 3.39196554234368*^9}}]
}, Open  ]],

Cell[TextData[{
 "Note that ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " returns ",
 Cell[BoxData["True"]],
 ", acknowledging that this is an identity that holds for all ",
 Cell[BoxData["\[Theta]"]],
 "."
}], "Text",
 CellChangeTimes->{{3.391965545748644*^9, 3.3919655680611725`*^9}, {
  3.3919655988861113`*^9, 3.391965602230988*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Figure creation", "Subsection",
 CellChangeTimes->{{3.3905860823323727`*^9, 3.390586086017672*^9}}],

Cell["\<\
The final ingredients in any well-done report or presentation are compelling \
2D and 3D figures.  While text can be useful for explaining a concept, \
nothing beats a nice figure.  In many of your modules, the bulk of your work \
will be building visual elements that help explain and interpret your answers.\
\>", "Text",
 CellChangeTimes->{{3.3919656446328044`*^9, 3.3919657364566717`*^9}, 
   3.392212996554317*^9, {3.408886832206571*^9, 3.408886834029999*^9}}],

Cell[TextData[{
 "The simplest way to create a 2D figure is to use the ",
 Cell[BoxData[
  RowBox[{"New", " ", "Graphic"}]]],
 " command in the ",
 Cell[BoxData["Graphics"]],
 " menu.  To use this feature, place your cursor inside an existing cell (or \
create a new one) and select ",
 Cell[BoxData[
  RowBox[{"New", " ", "Graphic"}]]],
 ".  ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " will insert a resizeable rectangle corresponding to the figure.  To add \
content to the figure, select ",
 Cell[BoxData[
  RowBox[{"Drawing", " ", "Tools"}]]],
 " from the same menu.  This action will open a palette that allows you to \
draw lines and shapes as well as add text and formulas to your figure.  The \
elements of your figure can be selected, copied, pasted and deleted using the \
standard commands from the ",
 Cell[BoxData["Edit"]],
 " menu.  You may also group/ungroup and bring to front/back elements of the \
figure using the ",
 Cell[BoxData["Operations"]],
 " submenu.  Finally, you can edit the properties of a selected element(s) \
using the ",
 Cell[BoxData[
  RowBox[{"Graphics", " ", "Inspector"}]]],
 "."
}], "Text",
 CellChangeTimes->{{3.391964687287117*^9, 3.3919646892599936`*^9}, {
  3.3919657689340196`*^9, 3.3919659073157625`*^9}, {3.391965982956036*^9, 
  3.391966145052352*^9}, {3.392213043244549*^9, 3.3922130723265142`*^9}, {
  3.458484752078125*^9, 3.458484752078125*^9}}],

Cell[TextData[{
 "Another way to create a nice figure is to edit the output of a ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " graphics function.  For example, the ",
 Cell[BoxData["Plot"]],
 " command"
}], "Text",
 CellChangeTimes->{{3.391966153935302*^9, 3.3919662173076906`*^9}, {
  3.392213115055595*^9, 3.392213121769609*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   FractionBox[
    RowBox[{"Sin", "[", 
     RowBox[{"6", "x"}], "]"}], "x"], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.391442586820806*^9, {3.391442695709552*^9, 3.3914427659319267`*^9}, {
   3.391444206061451*^9, 3.3914442147741528`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwUV3k4lN8XZ+y7MZQioURSqZBE5yZSiKIoISkp+SYqUpZIKknZIyFbIiWy
x7WvgzF2kp2h7GMnv/n99T6f59yzfc557zlXytrByIbAxMTUyMrE9P+vtddb
uf/edkOFlMoMS8YcJM7zgvnlX3BHtCImrHIaPMZWnn1/9AtUMrlVjUym4WIP
jcwe+QuIeK1zkjwFvBXlZt87fsGkVGIxj+AkOIW4ObOb9IBpQqhqTew4oEN/
09LP/obCiBRn06lB+C/XJoCwow/EMysUUizqYd/pc5LMSn1wpXo6QlmiFqY7
1TM2tPpA0U10wmuoEu6vktrWbvSBXGzxrWDvYnh0rHTbYkofxNVX3N4tGgu+
5RJpfw72w+AZI9em2jJ86gI3jJ/oh27u52uayZWYa2SeQjvfDy75ceuKnjXY
n6OePuzcD9Zc6h8vbmnEwbqP1fvy+0FhY5vl738tOJbSXteiOQDuDyeczKAX
W18ts2g2HgC0a+jJr6N9eMfs16mm6wOgLMkze7KtDyeRfEmNvgPg6JspVck2
gNNMlC7X1A7AK62GC8cMh/Cd0e0TVd0D4LC0ee/mniGs+JDHs/LvAIymme+R
uDWMf0QMxJXxD4Lim2ti3x+P4Pxfb8cLjQYh9uhvpSo/Gnb7z83t57VBkLGe
PTvBNYY1/tnyF9wfhC+6W2cOPx/DxdvhYG7YIPTEF0youI3jKusJ14yuQYif
PCtZbvgXt9BOc32yHgLeM0/E/KKm8FSEnPZTpyFYbXnnorI4hbn1OLyueA+B
ckehlYTcNEZp5Uub44bADstcSfWYxqmOQHvRPwSfOLmXeqVmcKW0xE6bmSEg
CyQ+/XBqBvc1r105zjwMCwvLci/uzOBNKvnty5LD8NTk+YHhnBnsvaJUZWc1
DL5d+21K0Sz+kEpi0bk7DGZVryv/Ws3iXPPZYzueMPT58uO1n8ziiaJv2d0x
w/Cita736c9ZzHk3YDbn2zBYdyw33eqcxdJS/+0LwcOwbuVxw3N+Fl98Kp+k
3zsMvexiVLU9c/ieEteA3NQwJKRNWvdrzeGA4dFtbBvDECDly5VnMYfLdRJD
CyVGoO1iHKz7z+H9vJLP9lmOAH/Mmz/D/XNYt/BfMfedEXi8cjRRan4OX7/T
szbiPgJLhQc1gjjoOJISeT/mwwg4cRedEJan4ywv1/THaSMQ1ejZvUuNjikH
L/41LRwBn+nO+Lun6Zg9VOS6YM8IdOGR019s6FjqJD3m798RAHaH+zFOdKy+
SO2uXhuBKpe9t8gedGyS/H1zIu8orDm5dR7yo2PHS2+NvcRHIa+U63FbCB37
czu8sVAYBZ+3jRxZ0XScVHCm7oj6KPSp8x2jfKLjEnsFjk36oxC6DfXJpdPx
r208J2Yvj4K2tHgWzqHjxYYxj4bbo/Dxis/z0CI6FnpSnZ/yeBROez3dlVpO
x3sPfFrwfTUKWdJaNsy1dHxq4NnBa+9HwU6ASyyigY6vBV+/A6mjEG4ns+Me
lY49tE6kiBWMglcR3fxtKx2/m5caWawdhd9z1NSZdjrOTGKSbukaBacDwovh
nXTcYNprkT4+CnIJa7t9uuiYxlkU4b8yCiP7cw/lMDBLflTrTW4a3OAy4jjI
wBK3HxO1t9JA78iX9/MddHxE3OyMlDwNCjld/hAY9s/Xq75cP0KDBlO5ebMW
Onbw2FzReZoGUz2z+f8odOy3f4Ep+xIN0s4Xak6R6fiRy+k9I3Y0ULqQEYar
6PgWjrqwyY0GIbzOC7iEji9yTHuefE0DnZKmwpl8Rv6GJ1Kco2lw65LzGZNM
OlYND2tJ+kYDC59J7qkUOpbrHfvXVkwDgfK3VoUf6ZjD4a3x4UEa2G4YhzK9
puOF7EF3WzoNrv/4YPXQi45H/qkkh7ONwZrcyag9D+i4MqBnbVF2DOTOizro
mtFxdpuirNyRMdD0fLUpT4+OEyV8zl3UHYOfsVSDW+p07PNVPinXfgxoEssl
IWJ0fH/BnUJzH4PC97b7SdyM+hxrWhF9MwZSZZ+DOhfnsGaDi6Hr9zFQS8sk
azXNYebJ8qUjC2NwvmiIVvZ4Dk8ri+6w4xgHpWGl0vTrc7jP/faZSNFxOG4d
sWVOfw4X8wnFraiNQ6xNpb6n2Bz22HtFr8BzHMbtnOtG02fxnQcZD/68HYe5
5F7vjJBZbFHIFisWNw5+F/GOfpdZrH7mC/1x+ThIn6YFO6rP4lX75Q/qXH/g
+72kyeCiGfzwS/B0YdAf4N/+8Obr5Gl8kz6ydTL+D9TWi5Y8fjqNTdXVtCWy
/kDkB49/fy2msQq5L8Kj/Q8oXH6pYkWcxvQ/e0+A+F8Yf/elxWd4EjvuqQ4t
TvwLG79OKj/V/IuHbIaexGb/hahfqbmaf/9gk1gm+ydVf0H23pz72dA/WE3k
iCYa+wt9KzMZN4bHMWHj8yRWmABDr1zjCfcxHER9pYMzJ4AnrHt+IHgEZ7ga
LheWTMIvLmPNBw59eOeP20MfqJOQ9sRsbz53Hw6bfN7oPjgJzq4ljRF6vfjR
teJEDbYpsOGjjbZl92DNMweMCk9NwTW2r3/mXnbhZklS6s/GKYis4xBw2d2C
V67d/tpzZxoKgyYdLTmLsBVx7uFP52ngndI59F6yAFcUPTrx3mMaxCRifn9X
y8Vvt/h1XAyYhiIhoRMV9zOwbGMyoSVtGoxMnesieaLwebURk9q/08Cxkhcc
T/4KXwWvbmTbzUBnk9lOrn4yCBfRakKdZkB+LjXl/I4GcL19N+T+oxk403Rz
0OVaI2hVeu4+6DcDLO/e0gInKdD9ONo47fMMmGUO9YaaNQPnaPeneNoMVDTs
j3uz1A53Qq45eU/PwKHk1ewQ3w5oPv5H/erSDGyftZY+ReqE6KiVJgnOWbgq
4Gr9Ra4LlI22rEXIzkK/EFmD/8QvsC40Ofv2xixMltV3Fm/pg4PZokJbHGah
RfPLwEOzPiB862r+6DIL+h4wfiaSsQfEWppmvpiF2fCHT05t7oeBpzcs21Jm
4Rmraf559gHIcJOTvJI5C3p4zKYGBsD7wXj/aMEsnIu5KWP4cACkbe/YLJNn
oZLHJunFyABY6zrbi0/NwhGt1lOBOYNw8ITqvsTFWfj0bHzk9tggENRXpvYy
zUGP2yk5g61DELfX4x4Q52BrEIqUcR2CAUHfR9aH5sBg4lIg+55hyOA6pf7n
6ByMiwxdYr0wDN4E7n/3tObA0b+0heAxDNL0117PLsxBctAe2Q0yY861h75I
dpmDsT/DF4YYc+kgxVT3wJM5sBVV8G57MgKEmi28+S/mwPtZ+FT5xxGIy//w
pi5iDswt9IRC+xhzKfPKufNxc3Cm9oW0878R0PwiRepJmYNQdfJuI7FRGPiQ
GDZZMAczzFWwcm4UMsJsL7qUz0F3h9pSBWMueL/ZvZWpfg52j0qtvvIZBWmv
tA/E33OwrAAx7JmjMOvqcCVyZA7CJdRVC6pHodTpgNSOqTlovLyHx65nFKyv
ZyUoMdGh/HRObjYLDQ5auNwo5KSDy8qxjvMiNCCYHJE7SaQD8xaPggkZGlAN
VscattAh3aosykuZBnE6hamm0nQ4db0dC2rRwAl5/tcnT4dJvjnH9+dooHnk
+P5bh+jARc3ikrakgdBBlpmZo3T4GCo2mnCLBgPyFRmPtOjw9ZTTvZ33aZCx
4/l9ljN06FcylProTgNv8dMq/hfoYMfsYy/mSwMjEZ4lYUs6HLEndQUz7n1p
/vq8DzfocDxPZok7hAaz7G8e73Kgw+WONQuvCBqUbpzV+OZCByVNWuriBxoE
LQltHH5Ch1l/1Vd3PtLg2kxLcfELOgjnHfw6Ek8Dq0dvTXPfMuKJa/c3TKSB
OYv+5Ld3dBjMy0rtZuBL/hzPPsXSATYXpr9iYBORMrGYZDqwlj89ZZXAiC/a
IyMsnQ6F1Ud3mcXRwFBW7XRALh28+T+zPIqhgX76fO+zYjo8IG3+WPyeBqeO
fHd2r6Yz6mJQsS+cBtql9nwPKHQIQ34aFYEM/vTkEuw76HBH7b8en1c0ONYy
qHa9jw47yAsed3xocNQipukyjQ5i4y6Ep4y5qDpidtN4mg5CJc8Nyu4x5qbD
pg3dJTq0H10yVGTM0X1erxXUOOdBwkNaO+Q8DeS5T5cdEJyHgOPqB16fooFs
MKvZbtF5qPa3LMs+SgPJxMfPReXm4V5kJW/sdhps23dYQlBxHtw5rv29KkiD
rTmzPzhU5+E4Iar0IhMNSDW3BhZ05sHHLGNwjNFfgkYyrpOG81C579Qz37pR
4O3uExgxnQcWQlOtee4osE+YarTazkO6Nc/egjejsCR48l3m83mQCXKYtlYe
BXoE8/7UN/Mg4nRVYZqxV81IF1bEhc9DlEWnQwnLKIwrKc0FfmL4EzeKV24c
gZ6L0gZ3q+bBzPvQtL8FY4/r7xmybZyHB8+TXKyBsUfaRTy+0j4Pq6w487nk
CFDcBD8bjM7D3Zzmx1V9w1Aa+49lL8cCfH3tkXzq0jAU7c6P3CmwAA0sXYLV
ysNQkPHggPjmBaCs27MnEIfhR/lfSx7ZBYg/GGz6sIqxd9O68sZOLsDCoZuf
S/cMgb9ijkOS7wKwEu7duN0xALUH20ceBCyAwJ+5W7e+DACn8qKFdtgC/OZk
GRr2HACfI4f1hxIXINLSy+GqzAA81syRk65YYNzjYbRQu36wO5/T/4FlEUwG
wnt2417QeZhjHPpkETiuWfaWEjqBUJxz2OfRElzP23oh5Fw5pPAJJa17L8F2
rzsR4afKwOiyvbDLqyUI1pKwfAOlEL8gOXMragkojYannu0tBq29fimGRUvA
5nrG1EAkF3wjzbeJEZbhzmcNVeuQaOB+wMyS8XIZTFOtnde0c3FG6WXHPUHL
kHnTnS1WKR+bCWb3JkQuQxlnb+ec5E+cmmr3Mzx1GUrkllNvzGKsP9D8wL1+
GZrfuXvpF5ThAMMk2iniCsR/+Hi2ZaUWE+X1GnrfrUBK+LhAqGgLHuGIIVbH
rsBqYOD683stOH949nx68gqcU7G+HFjfgq9/jOx+krsCevf5PXs8WnGu6DhN
qmMFnO97Com2tWFLjpcs1zevAu2OYvXWC5340PCvk/rbV8EhS2/WMrYTc5Yp
+inJrsL8TJ9y2HgnzvDoEGQ7vAoUydwXbY+7MNuCrESSySrUNo9z2Qd24y9D
laq00FXQJw7vdX3eg71Kt7pRPqxC8nwbWbqkh7Gv3MG5iaug1nZiW9JyD2Yy
33TyZdYqrBd87ley/Y2Nm22M5VtXoV7jxxcjpV4s9z0vTKhnFUrYgzU/X+/F
awF8XStDq/BqoiaXEtyLk3SzrOroqxD4OTgxYLIXr5Sw3rEXXoPa64FZ7bp9
uDHm4vfz4msQN3yMqmbZhxPcv9DVd67BcMlPHRbHPmxw5PxjPqU1eL3WL1IW
wngPb04umj+6Bg+st9LyEvvwEn2V+feJNbi2dIJdJLsPf0yPf/HVeA3CDkYY
L7b0YeeAxbqwy2swc/vFLo/BPqxrryfgeW0Nzt2d8L8504fpsnOhhvfW4FD9
w1Bbnn5cw6bTefjxGny9ZM/mtrkfRw9Giks+XYMMVfuEOel+fCpGM346aA2M
nTK1eFX78fNqSo/3+zVQIPAKPdDsx5UzlqIiCWsgrTfoJ6Pfj9nFJow+fVkD
GW6Ngm0X+rG21uPXR7LWgNUFZVtY9GOf/7iq6wrXGP19KGz4ej8uDwsnWFau
Aap94JZ1ux+zFMtoTDesQfmVx4H1jv1YcyzTxbt9Db4crGLd59KPvYQ0M4T7
1iDaYJi3/XE/Lj5K+ZtEW4OblOuj1Z79mMnGUvbIzBpoRTV1sDztxxDw92rd
MiPeljSFF8/6sUfOoygLwjrk8d9WNnnej4v6ONunuNehxeCa/p0X/XidK5zo
TVqHpJ9NTRQGVj8koy8svg7bJOsUPBj4sXmmb9LOdXi1TaXOmaGf/+x4iere
dYhUKpMqYNhf+dq4Wqu8DhLeQ6l6DP9HOixULI6tg6J2xR+5J/34IfPfu1Mn
12FS9ridsVs/zpV/lOpluA6W+t3ZdYz8Fo05R0gX12FoW5ZtkFM/VnEPk0yy
WoecUZ8tyfb9+EHSzsuqt9ahQ9Hfge9GP/7RmBFa67gOiz2vSWWW/Zi+hCjm
j9ahfEt5Vo1JPz4k3cg95b0Oe1jbeKUN+rGTnoW216t1mJarbyVr9eOM+388
SSHroFTE3VKr1o8VqzjmDyeuw9pFow9lO/uxw3To/tq0deg+7chfLNqPv27Z
aWeevQ43PcaYSLz9eK896n1StQ7CbJnLeLoP24c2bCFR1uGHJV+72EAf/lJk
fj6xYx1Sr+QPNlH7sDzRtaZmbB14Z5Ifnc3ow7fUOFjNZxlydgsesY99OPla
6LHJlXUg++/rOPGmD8tmf88U4v0HMfYWTj9uMd4Dl8c/XN73D6p2FS0pbu7D
13wedkyo/ANC0s9AXuY+HJfGTnoC/6Aidef2mJZeLMW040XC2X8wF+F0S8q5
F0skXnaacPoHe0wltXVSf+PNU+STnjn/AK8+83nY9wu/C8RXx/A/uF6bsPYk
/hcWVcpwM67+B0LpobOvbRjYNTxDtvMfOAhtMJWMdOOtLNYSlJV/YOGnPv+7
pwtLbF6clzy2AbreDZ5fPnbgXSCVWFq+AXZdElr3wppxUj+pWKF+A2682RZ6
EDXjXT7s3WGtG1C87wGb1RgVy9b8Ebw9sgFYNquGpEbFIbsvF3GxMqEIbQlN
7VYKDsuUkc+QYUKHrD+Pif6tw5FV+cwst5hQwXvJsIEJzChBuuuUPRPKf3jv
MNvTIqyzkjTTfZcJeT2LEazfXIjpCsH9Px4yoanLPC/dUT42CLpdcuMFE+I+
Ph2d++YHJliIe9V+YkJp7IWNnlZx+PasO1PQCBPqKdat0LZJgVKe+w89xpnQ
K2+bv8w70kBUxm7abpIJXXfJKnT7/Q0qTU36TiwwIfOppnj5TxkgWbiveJ6N
GQnQ5X1COHKh5Xmv5yUZZmTnM1gRg0pAfdvxDcnrzIjn4MVAKc46OGXe4mR9
kxnNBfkerfpUB+ff247E2zOjGmaW+2wnyXB7S0D9rgfMKHlZ8YmyRz1EinS/
V/BlRu7BPGfrfzXCEt8DVdVkZjRymb1vvywVWM9wfnH9woxs7x7WDrCjgqD/
++0F6cxo9uRYk2AaFWS5S9mP5TEj8W7fD677m8GEXaD1RC0zOqLXVxy9uwV+
/Et2NPzLjKb3vaW5z7RCsYb68NtpZpRYfPKowq42ILs1XqTSmVFeDItc36U2
GFyZhwvrzCj/0b8go6I2EFrU5L/MT0BL0fUmqo/bQUKlzStKiIB8qGYdY5/a
Qf7BrfmeTQRE0U8NCG1uh+Nzb35ZbSegxn3GGW2yHXB36lfKDUUCkvYz6O8t
6wC3fXclkpUIKL7uaI0mrQNe/McSNKZKQG21iQfCeToh5s9uV/vjBPTz0K5l
QcNOSJEv/JumTUBTxFNflRw6IfvWWaup0wQkKsz69mRAJzSMOus4GTHszVj8
O1DTCV27uAsyTQgo+5rgEe7hThi2+bBv3oyA7hx/uVa/0Qlrg2UiD68RUBO/
1pzIwS7g3GH6Ms+WgLiutipEnO4CYevxtZXbBMQaU7fKZtUFe/oEh9zvE5D+
zo7eyJddYDAqWer8kIC+K7ie93nfBXcnFWMd3AgoaOmCzKMvXRA0jzxuPiEg
qxXNXW4/u+DH2lnzqz4E9Hf59iG/ui5oY7mqZvaCgMSbzh1I6OyCJW5HUWN/
AsoaqOKtHemCrUJeC3pvCeiq3kz+6mwXqG8JbNEKISD1eo0jR/51gaXkxwyN
dwREcL7x2puzG57Ifn+rEkVA25nsKtqJ3RC3r+TO/lgCGpl8sai6tRvKlZv0
5RIYfN04rpkk1Q0j6v3yUskEtPJTl7xdrhs4tWY4t34hIMP6t+WJe7tBXo95
VCidgIz+7bNWPdgN+kbECp4fBCTGe3uoXbkb7lySimfNJaCIV9+CfFS74a3V
Aa/1AgK6t8f35zG1bsiwPX5lARPQtozAPPaj3dBy55zGVBkB2eQ9H/vFkC88
uCpGqyKgeln5HyVHukHU3XG5r46AVm3Ry6zD3aDm49Xe2UhAHyzf9uUqdYP5
q8AsajMBcWxvP0JW7AaPoI/Bde0ENGlZIj69pxtiI747lncTkPfnQVGZXd2M
fbrEsLCXgP4zyqi4vb0bhj417c0eJKAeOdfS8s3dwP6tn+fbKAHt+GOUrSjQ
DXLZM2Of/hCQzGPJs+ls3aBbyFwdO0VAu1s8T2qtdoF9OTEpYo6A1EpLTSem
uiCgTsonaJGAPl4ePv1lsAvSqQesX60SULu6z7hXWxfQ+85JuLOwoO/xb4Lv
53XBJtrVtQccLMipas08+HMXqE45dt3hYUH8QDUhv+sCt/XAMCsSC6KNJ397
e78Lolnj7l/azIIyn3PzSFztgmKeDCMjMRb05bjHmxr9LmDdSuXX2sGCtGTN
zD2lusBfRei57CEWdNPqbPCz4k74qiFtI3mYBT0/GBO4I6kTKFoHT2w5yoKu
VVAIY36dIGxstMF9ggXdvd53Y+pcJ0Q5BLlMGrEg6rXmeoG2DihyjrswasKC
+nX46vizOqDPPeNQnxkLylEIUEPBHbDTnzrVZM2CNp513UZnOiAtWehmlhML
msqsM+nPaQefVnycxYUFCUTFaRm8bgdzwn9i5x4z4tklXd9xtR24zasa/j5l
QaxdKycNOdvhhoCb8s5QFmR9XKNqQ7cNJJ2HCcE5LGjy8Ngul88tsBgX9Kuv
gAWp59v5Njq2QEMjZO8rZkHhZ5f0bh9pAffdkbdqq1mQz1kNB5fKZuj6ZUBh
7mJBzt/Njyp0UCHkRO6Hu2ssCPHf3mP/iwK379q4FDGxor1RRuIQSQHND0Ln
eNlY0cyJpkQvUwrMLNizJvOxouQnoj6lsY1gkCJ1u1eCFTXKJoUVuNQDJ/GV
qsFxVhT2U99paKka3H5bNO/xZUXv/Eq33hktArqOxgcbP1aU+mFdiPVHIdh/
F7eNCWBFrGOR5yY9f8Jln+4VoXBW1Cxvmzgtkg9q8pekVz6xojL+yGEW9SxY
fnDesbqGFX17vFlKdSEJnPn0BGz42JDugfTfjeExeNJZvjOayIY8YVDAd18c
vtHHFd8hwobefA+ef/gmAZtkVqvoS7Chu913xJn1P2PlSyctD+1nQ2RbcnCA
yXdMTziexnyODYmF+PqsuedjR3VVvegQNkR7dMywrL4CM90J8Xzzjg3Bs8dR
f7UrcUDMdOaTKDbEzSrlLVtYiVMIn8WvJbCh7/xPL5QlV+GB6i2Tsj/YUOlr
5Ym992vw+Qurb783s6FHMTumKjrIeMDXtCKunQ0xF6u7W6N6fDc3czm4mw09
bLTZ2ZVUj/3F7K2dB9nQak3Ca4O7Dbii/9eho3NsKPqN8NgSvRGr3ClqKxdi
R6cS2Nkcrzbh8pitPNmb2NExweUl+1dN2KjJGT5tZUdIjfqt+EcTvqO0P/ml
NDu69qug1I6Nij+txLgaHGRHrr9zzVOiqVhFYS0NVNjRiTMUce0yKi63uDig
qMaOHu7XXN43SsV9xYJ6JE12ZO35Wv6vQjMWfe4l3nGOHZWPvqyZ/cbYf3J7
ztZcYEcXKdrv/zY0Y6XxI8/yL7GjEMVvD/ZNNOOzZ2Ynoq6yo9RnVUrPZVvw
bw8D6QAbdmRR3fAx6kQLtk9PMfG8xY7kFdXlFi1b8EvSNXzVkR3N8Wd2Pgxu
waLaeM7oATv6o3+2JPpLC05yFpPTcmVHBn5eRzkqWnBpZ/PbXV4M+2bEzx/m
WvBKjJb1n7fsCLIf7aTqtOJjixpBB0LZka5cU3KQeSv2Mjhc6hLBjpJlYlYc
7rZizvXd0qxx7Iif87CGZ2gr1ju/w0g3iR19XT5qlZ7UigNSxb3fprCj2O79
WWvZrVjETGBAPJMdrUsbFw23tOKL3zmFruWwI/+SPZNeA604ipOg+bmAHakf
0NJRnWrFvVdWHacwO1KqsozmXG3F0jn0j8rl7OgKybZplq0N3+CfbHpczY4C
OxyqFgTa8GebUeZSMjsyTUm/K7ylDf/92XeAs4kdze5/Wqkn1YYVhbuuGrSy
Iwc+q7oouTZ873ZzYEgnO3Jz6vbj2N+Gs0vJJV097Cjd8OMWf6U2vLKlckZy
gB1pHnQMlT/ShjUcsZTtCDt6U7lFZlC9DT+pzj2XNs6O2pjvL2VBGy7fnuE1
N8mOdOYsTsUfb8McLqnfj8wx5OpZJqmabVi3IaHfc5FRL6VzdxoYOEAmmli5
yo76U9cGeBm4yS38OC8TByq2cSDaojYs3PLW0YiVA43u1bnSo9GGL+7x+/iO
kwNFxzAdvavWht97P236zcuBtoVMiUmqtOHfnW7MMkQO9OboYe8JxTYsfcD5
wG0RDkTvK1nokG/DNi8crn7fwoH2XlLlGdzRhpN7bwYubuNAqduWL/GKM/hS
sS7RkOZAh0kCvhdIbXh/wOWZp7s4kNW67FHM1Yadhs9L1cpzoM5ov726G604
W93gnOB+DvTiOe/WxblWvBys42VyiAM9f8tRWTnaip9oqvUPHOVAYz47o5rI
rbgs4hBxN+JANm4Kj/mLWjH7jMJxBy0OZOZg/dTxayt+HbP946o+B3pKTW9J
82/FlAXRpuPnOJCFAZvIy0etWNhAiPnFBQ6UJT9iH2DbiiPXWK8KW3Kgiead
qWLQin8b/3trZs2B/GNdaxJ3t2Kp1MXi2BsciD1PwcGS1IqTL41L7nXgQFSx
yM1WQy04K7uxT/sJgz+eyxtVbi14ia9G0N+HA90z+nVizKoFq9uUIuoLDuSb
b2tzQovxv5CyYi0DOdDPfN3lT5wtmHI30soljgP1vWzmM3/RjOXfCq7eT+JA
ipc7szNvNuOn33xDnVIY+XjGn7l5qhmrTDrV/pfBgezLouIm2Jrxh9t6StdL
GfVJs4l440rFdjfWOM4NcKD1CA0DZy3G/fTMKc5ghAP97R4QPSXWhLcl0tT1
xznQf8tvPAJmKJgy2OKoM8uByHpcSZ5RFHz4alq3BoETSTlFq2h1NGJWc8tv
8tKcSGZE9lXLKBlbPm45LbeLEz25yvcp4RkZ50TqDsnIc6Kqb7d+hUqTsV2n
yhapg5zodEL+s/FLdbjJRODpZk1OVCLcX19ZVIOjzxWbsFoz7G15u5R2vRIf
0ZH+1/ORE7l9M1mPfFSEleJrX1QlcqK+W3ki/wUV4n0bTqTvnzlRJ6/3Db/P
Pxn/b5mcz3dO9GyFL7+yNR/zyNoYy5dwolCbIB5Z2Rzcw56c7NzHiX7/avaT
u/UNe1XuNRbYzoWOfbgV333+BnaTbutZkuZCujIOm89rGoCzh8fNgV1c6IWW
WtvRbCewU2l0z9rHOP9L3paGXoBx0t3ky8e4UEDU50Tv2UiQ8c1c/2TBhQqW
k8N1Nn2BGu0jySiKC10QDn93j+snPKzy2OcZyzi/5hXoNvsT5E6X/yhM4EL2
V8tPkboKwVffsEQtjQsZZ0a4VSVg0DK26VIq4kKRX9g6vgaXQLFVIO/uPi50
W3rTW+6Jcrg70BZkO8SFOmeuOfOcr4Dt18W3JNG4kMIDnkSh/ArwsP0ks2OG
Cz3n59ou87QS1O8UHttG4EbhJ1lb5zmrIefx2F3iTm4UrzE1f7KvFm6s71s0
lONGkbn3lLlV6mCT5333AAVuFJS8eWu0Xx3c9954yaPMjQQ5xLcoKJLh4EuR
eLaT3OjMypsfgfb1MMB9ebeWLjeSiNf088uth0D/2G/eBtzoa7jrqAZLA0y/
2fNzw4QbbfDRZGtDGuBr2PHWZVtuVKpHPaOc3AiWos8vq9pzo1pRxYCisUbg
iyT3O9/lRo0xYg2LwhSw/2A6OfeQG3mfOGkraUwB+YT/OCZfciNt0TwlpSoK
dMlkvlYI4EZhW/JOuQ1Q4OWnJdLtIG50TcoxVXCdArSUp5K0SG604FCwVUyx
CRK/RxwZSOVGp51U7T++bgK71cvyHd+4UQPTslrdxyZQ1JYQa8jkRpRbxLfG
WU3wsyNuLa+AEf/cxJB7VxN4S9tMfMPciOyV/k/ibxOcspf9nVjGjfg1yVTx
9SZo3kjFgXXciH46XHzvNiq8O30n/XkjN1KJr+08pkAFy2DFj+7NDLmmdV+q
GhXGd2V53+rmRtwZ4eFhF6iQftfl3pVebkb/3SkkWVPBOf/I9QuD3KiDXXzz
n/+owGxQpH38DzfqrLv25tNTKlSGP1E5PMWwd4/5nP9rKvj3a8runWPEa+/u
XxtGBaM9bKI7FrnRrNRnKesYKog+qOLcssqN1N7zLxh9osLvopfL/BvcaODn
FD3qKxUSOPXHWVl4kI+xtgDKooKdEX/3CjsP2jJdeFS9gAr7oyh109w8qCzo
p3NgMRXow0E/R/h5UNpO01KooEL+/gtpv4R40ETx+V06NVR44ro5mrqJB5HJ
e9I/kalwsqwzoHorD/qvd8PpaiMVePmiPIskeNDgw5jn95uojFeH5d0f0jxo
9oUXbz+VwV+s5NWUXTwosqJU5lMzFSzGB87FyvMgvybp9UoGllZK1Azbx4Pe
HWQuRQxMc7c95H+QBz0SNfsszND/WrV7p7cKD/o1VzqhSaHCfeJf4YdqPGij
50ZjXT0V1C5/ZbtzjAfxNhFCvtVSgSnx7sI1TR507nu/72Qlg9/Jg6OXTjL8
yXYsvSilwivV+XZDXR7kpI+QZyEVznrnVGsb8KBKmfncphwqbCK75h014kHL
9DPlT75T4ZeIesoBEx7003RLjX8KFeKu/IuUNeNByWrvDi3EUeHm5+JX2yx5
0L7ohw8KI6mwb87bjWTNg9j2UdgGA6mQ58thuXGLB92Wl+TS86CCB6XGYP4/
HqQuvflZwD0qaG31hz+OPEjtnPPVgzepQEkTlGp35UHaLWXPPxhSIWyRSqx3
50GmcRusNzSpYH48lFDmxYM4FQ+cDlSiwmjLlqGvL3lQsbNOpdBmKnyR+NWS
8Jphb3zmsh0HFZxuRldEBjLq1cjvJLvYBP9WpT/5RvCgA2ekia0tTSCyQ8HO
8jMPMjuRVE962QRvg16ZfE5j9Is2i+u0UxNwE/5o0r8z6qGucHy7eRMw9X8W
88vnQWIbApkuCk3wN1q2PquOB93/mnhRuYICtvzP85goPIhE2LxY9pkCA+4j
iXotPMhS4/3dr68p0GGe6NH/iwfdjSfrRTHug/KtOxT5JnkQNVc7jTW9EcDP
W/ziLA9q1PBNVXBohPzlfs74BR6012l8VnpvI6R3xParbjDqYeDz1DexAaLC
JIKvC/KikZdMMl4v6uG+0NaFgoO8iE34P8EdW+tgyst1gP0wLxovv3Ipo6oW
7GY6Gs4d5UXGLh262vdrwYoS/mn0BC+a3OHc4lNbA/oBIpdIF3jR3l9fZJpv
V8MObuJPOxde9OahQwHvswqgMnN6b/nJiz4yXWJqNy+CybQIy7PFvKiv7uRB
cf9C4DLbc/R5OS/S4YCXLvk/AWUY0OlkXhQut88wSLgAvlqH3qD08CKrGzYy
2jgHXpVJ6z3f4EXN5Ro6mxfSQeuZhvC8Jh+6MfAssWXvS7A60Di9R4cPcfDN
tNRresPjHqt6az0+tJYR8EQ8wxkylH18KcZ86L6L4KTBF2MsOVK7lHqdD5md
msv7svgar5282GPty4deOqQYHBRJxFmc95IoNXwooeO/orGQHDzi5jVRVM+H
nvFG/kw3zMWiM2+U0pr4kCGd3+AeVx526/xS+rKTD52tOLGn2TUfa6WM/NYc
Y/hL5Npz8UwhpuqZbc7i5EcR/7ITD1uUYNbim5bxvPyoy23lotj3Eqyi5JIY
KMiPCkUm/jNkLcWR4iGH7ojyI5k/r45GJ5fiqxP1hrJy/GjN0dA0gFaGpwOO
v4jQ4UcJF6/seHOiEkuznG18rsePOJj/7Nd/VYnPu1hucjbkR0/t6+sOUitx
7pXHCUam/CjWu5X5vkUV9lTMKuax5UeJ5xXOv7pVjdMTyjhW7PgRsf950KWU
ajwgSjWg3eFHP+M8KGi8Gp9knvpV7syPvl01iDayrcH8VLlld19+9HZpKsrQ
pBajk4eRvR8/8ry0nvf9TS12ytd+bhbAj3wjwi9KVNfitjhrkcNh/Kjg61cP
QZU6/OFe1IHpRH604+0DUQV2Mm4YTXn4+zM/+jxr+i3rMBkzmedhchoj/0N7
nTVukvF1rbYzn7P4kWsFv4hmJRkriAjaWVfwo+NyDdtXH9Rj0reCL4k1/Iid
tY1eGlePV07ZTtHqGXwspyYZNtTjarei+w5t/Mji6PttGVIN+Nsmu5yMLn6k
oe1y/NnpBhyWLrIy/5sfvbfM39jMeP9eH7L3dBvlRwvMgu9c8hqwnodoKf7D
yJ9b8ojmrwZ8ULSclWWaH8U4fiRUrzdgJn0xv5dL/Ghvtu1eZo1GPDpcSSav
8SPtvs6iDLNG3ODpJCDILIB2S+3oFHNpxB8ya0LCuARQuA5fJPFLI/Y586C9
k08A1UJhV1R5I7Yfldy6TUgAbbO61fGruxEbe5HNrTYJoB8FZ5ibZhqxmtjD
mPitAsj2ietNdRYKlsraMTAiIYB+8YjSxngpmNOwcaf8DgE0+SG0dlqEgtu8
d6Wk7xFAI4KlbNy7KLhQnPp3br8A4i/5LSK+l4ITst33H1YSQDWXshZ9D1Hw
q7O7nR6pCiBd0+hw3SMU7DTe8qNQXQDZpYTTbhyj4Es+TxaZjgugb3dPDHVr
UjCSUFDTYozSyVsjfp9PUrBsbrvb89OM+PbcGGw8TcH8Rk9x7RkBlCeos2qg
T8Hzf/YR+I0Yo3f888guAwr+9axL65yJADpsf7rY1JCCy7b7Pg8xE0BGF1w+
9zNwSt6B2nZLBj/mW2rLGTjQuIdX7JoAOtKReJaZgR9OvDC0tBVAM9KSTuFn
KPjKc6Wgj7cF0HSZsN1zPQo+KdXXMuQggJaMQh81naLgvQWvNsvdF0A7tyn9
faBNwcIXDpvdfiiAFF9u8D04TsGrkwNRX90EUNxRd+VGdQoeeBHQO/OEUb/V
hCKfwxRcI60mrfxMALle6OYJO0DB6T+Hrz98KYCqWf8+Y9lDweEmgZ8KXjPy
38QaVb+Dgj2m1cf/BQqgEGpqGV2Mgm38aAqaYQJo3qb4oSuJgvV3hjg8ixRA
K/r/aZhzU/DWi3/oPPEC6HGr6lG3v42YeTbssOEnAdQs5Z7n1taIaa80HwWl
MvKROT+sgRtxNo7YEP0hgI7d0zDneM3or0vamua5AmhT1+5zQk6M/pqb9on5
KYB6Ko/qDF5oxEayp7h3VQggC+8sgZ4tjXgqYEH4UJsA8iCtvr8c3ID/TkuU
7u1i8GvDckPNsQGPG+k4yP0WQGNnV38IGTTgoU3varaNCCCqLb0xi7UBd0Uf
8eBcYPRn4U3LGZt63MFkvYdlRQDxMY04Vx2tx63Wfh3r6wKoo3t7Q7xgPb4Z
/F/EMkEQDXDsV3LOIWNr06K5SW5BpFq/w/vHch2++sJI9y+vINLoY1qZrKrD
VnkjsWP8gih4ZMH5WGgdthATMBgSEkS0Q5YuO/fW4Yu9V5I7twqihWGdRW2j
WnzGltmiXF4QlU0FN5fcq8b670IzSxQEkZj+zRRdpWqsW7ObG+8TRK3jsvE8
9Cp8ao9RTt5BQRT2Si4NHKuw5lQc8ZuaIPK2EbbMsq7Eqi5alRG6gsgw+ZmK
8M5yvOP58/0OdoJocU6N97BtEXZqU/KwthdEekXHO5rKCnGxzAD5wh1BtOm9
Q03I9kJsWa5up+4kiJhUsxs/txTgSObZBK5HguhC88yrdOU8LORmvjXhpSCy
F7IPPt6RiQmOB9g6kxnxrjl+sgv8iM8V/zYmpwgi2aP39E7uicWxAv5x+Isg
kpcmVLa9/ICPfR2BpHRBpCJALHw6FY4f/Xn/6F6uIKrbtcJUeO8lnrVhn+ar
FkR79l7+Rzz+FAbMurs0RwXR4Lahm8+yU4BXw/ST1ZggOqZq5h+7+wsob2++
5/FHEN1QAfkT79PgxWAtb/6UILr8olVxTj0d9tvnHzuwJIj81ZtGA4iZ4OYe
Ebedi4huH/7O/s0/F5KuiDho8BBRfM0X+rHDedB4PPDoZT4iooT2vUrqywNp
9pctYUQG/v71/OD+AqgOeMjOv5WIYho446/jQhCJNbVbkyci5wT1pRiDEjjm
3ayydS8RtZZ+UjkcUQI3rxuyqO4nogsyHBTuwRL4KacTde8QEWmeIemY3y8F
6+8qDeNHichp2vmV5esy8A/OiOQ8RkS0HfQvAU1lkPVgn+0uRETc7q/vjgiX
A6faLiZrLcb5SnV5lohy+FoqcrBTn4hkzaa9voVVQEdC4L8FAyJKO1/+pqu5
Apif89UJnyMi3oXE2q2ClXBej+362QtE1C3voEl9VgmrzfTQKgsi4km8UTRo
UwWnhpuXs+4Q0fdmHYmRhWpw3xPw+Ntdhr1mgf57UjWQ4XhqPdmJiCwaBj+K
6dWA2L+fTFHORFQXv0f7x/samNyUxOHtQUQ5gQ3TYwdqYYeF1cvHT4ioN3Di
tOyFWrgYv5XngTcRZa3lVTxwqYWS/W/4b/oS0fuP5y5o5tVCyKmHIgYBRGQq
zrH65EAd1AQcDNd5S0SJ5IIL+87Uwb+Wv6LHg4joi5su/4htHdhevSquFEZE
keWUdsfIOoj6JBa99x0RWReGfdDKqAPKROt22Ugi6hntkt9eUwdqj3R3bI0m
orOeHdfG5urAoZg1kRRLRI+0iVwdHGRIYMe7+OKISIiDfJO8lQwd+q7J7AlE
lHvtgkilAhn4gg/JMyUR0fmzUZ/LNcig2TmRuvyJiOYiD9VUnSGD8/bkvXOf
iYh1p7FkozkZ+lLFD4ykEdGeTafPjbmQQWS2LaP3GxEFezZ+XX1KBl3VQKXO
70T059UxPeIbMnh46GVTM4koxVfg3+4IMmSWs6mSs4jo8fLVT9pxZKBxF+dV
5BDRt/aV/ddTyCB+7tFRnEdEbFdOvHz2nQznwpUKcwuIqCxNJ+1zDhl8eyaP
ZRQSkRR/VjTlJxkKdnwuTsVEdH2x/eZKMRmmb13TTCwhonflEdtly8mwM31b
eXQZEZGkPHpNKslwaaFd+10Foz/2xNa/rCJDgHpQVWAVEanof9tczMCl3vqn
X9UQUUX1n7llxvnFavY6nzoiamPd8fFwBRkUBEr0PeqJKORJ6g3XUjJcvfC4
waWRiHa+sgrBRWQIe6981rGJiKq/fPDmzidDbf9Uk10zEclVHwky+0GGDdkU
4+utRLR7zkshPY0MSneut1q0E1Egh1IZTxIZbv6QMDXtJKLPfx5S/vtAhg8r
HR1nu4loPuh3W1swGago2Ey3h4jycs5d1XlJBo7nZ36d6CWiNf3NLMXuZFCv
57DU6Ceiys8VpscdyXCXVNqrMkhEJf9psJCvkSHxkttVxWEiQtvjvltdIENX
jMrg7lEiSnhqtJnpJBn4R6av7xhj+P/eN52iTIaHTjY3N00w+nE4besuITK8
0Ju0VZti6JPJ586u10H4ThdbyxkiEhFTE7oyWgfZbS9uJM0z+BJ2a9iXWwcV
34g3aheJaHt7kPJsdB20vIi0mVwmogNalmvRPnUwp/bluso/IroscXUxT78O
CMLK182YhBBdKHlCfn8dCE0UXvMgCKFs949VfoJ1oBjTaF3JLoQkncu3b6PU
wh2WOSsTASH0swa75mrWgvuvx1aPiIzzCb8vk8VrwT+L1SqaJISiO29J/Zqv
gVTbTVdGNgshynph+EJCDdDqjlg4Swoh+8NlEvqL1XAt5MmlsANCyHhx/TK6
UwVO/3Fdyj8khKY+Bq9tqFaB98mgi7+VhZB6NrnpF6EKYpfiTXepCSFOn1uf
F4Mr4bd51YVsTSHEdk28diG1Ai7K8Bu1GQuhgBHzEbOsMrj5L+zcygUhxL/V
SXfbvTJwad9+TuKiEHqicyZrl2IZhL08cPaGuRDiqgkjbU0uheaJ8wYL14VQ
uEyIf8ubEjDIfq+7yVkIGVnGRDl5F8HNOesNkYdCqPBE2ZvquUJ4qij/Q+SR
ELpdMXdU8Xoh5KbkbhPxEELFAS7ppzV/gnRM6zTJVwg1XhiWOELPg4XnAuHE
MCEUqnZSFB/KguhLTwd5sxnnP67z732bBLlhuu94c4VQ/4Fwu2v6idDcTDzD
my+Etn0e997OmQCcBrHZPEVCqIVdvtDE4yM4aRa+5K4UQvFVdpmsDe/g5J7F
/ZxtQqhDgeSdGukIk2t2biwLjPjKy1RvLX3Ely7q7V5eFEKvUg9oHtgfj8sz
97RNLjP40Zq+SbJJwBF2f/d3rQuhxdIBifX6JKzV8d9gOhsJVTjZ/z0dnIrf
Z97VtRQhIT2pfW6+jhmYXeDcovFmEhL9oLfpKksmvmt3IOH0FhJiru146RqS
ydhHZ9eVtpGQrdRHsXM/fuDZgHvfeWRI6KoZzz3R8Wx8ys5ZNE+JhF6aRZoL
yBfgzAqTiq8qJCSgk/DvY1oBlpA67JSgSkKaupM/5RV/4rn2xbo36iRE/yXy
m+9gIY7WdvW8oUVCoXwHhJPlMKZLuo2QzpPQbqWpll93SvAVN/NgLhMSOiWc
+p/tpxJc266ONkxJqLOwcpNBbwmOCViPGL9MQj+MZaPlzpRi3TWPMyXXSOip
z+6/A5Jl+GO7148790goJNt8heVTOR6pUOwNeEBCsQv1uy06yrHCj16uby4k
tNiYX9TOWYGz32pcmXpMQvUKWEXetgKTTy9z3fUhoU8ru1U3banEQqrJSm99
SeiCka6CPuM9a7rL9Er6CxJqiCr/EWZfiQcIWT+m/UmIdvR3w7WflXip4O4V
x1AS6sfm5rlnq/CxlO1+geEkdJ00M2R/rwo/fdfw43sECREjV8P3hFZh/gcK
3LMfGHzVK7OWtVZh42vdSkKxJKSUQ4mIYOx/7875XTkYR0IPQmuEnIWq8Y59
tB9OSSTkGfC6TV2vGt8UD+8NSmbw9fKNgcyNavyV+yR3ZgoJCZ24zSr4pBqr
jsZfmftKQuKtQKelV2OPViM/0ncS+tgsltZaVY3LypizDmWSUF9S3MeSnmps
EHuF+34Og++pwC8h7DU4JIBfOSSPhHiuq4Q82lKDO90Kr/woICHFfWxmFntq
sMRte7+WQkb+f1yeqKvX4OuXxLLomISe37QJ2axfgz/r1PYKlzL4mmLZO2lW
gyeVXbmVy0lIWvXPH3yzBivtlFO+UElCbwdF3P0fMC4pofYrD6pJqC18IMzY
qwYXMfn6hdaSEDlNeEXYvwazTillZZFJaMSlxZESWoNP9wz2tjaQUNf2b83P
omtwQF0Q9wKFoS8WtqGUVINb8o4rb2pm+Dv6u7fnSw3ekjx9RaWVwa/usVtP
MmqwZViMn0k7CaUb1EeK59TgBB+DLOdOEjp2mckjI78Gjzut94Z1k5DJ6qdd
moU1eP/VL9w5PSRkfXgio66oBt83vKzc3ktClw8Y6BniGpyvwW212E9CU5ci
pesZ8o09eX6bh0go+djkA22GvtbWm1mHR0jo4MxX/1yGfT/OzX2mNBJa43iW
u4vhv3GhgvvhOAklqZpeeMuIT3j4vvK7vySk7a9VM8+I36x5h1XuJAmJ7Iv2
MWXkF1NC9euYJqGylj7mbEb+Q9+8spZmSSigMq2CGFaD5aMV+0TnSWjsYZnl
bQZ/Dv693EcWSSi/bt6mjMHvj0cBypeWSci/T8Zjq3MNXrmpYeW6SkIPA46c
d7xVg3UL5NGDdYa939SyPPMa/J5PVNJxg4SW6yIO7zSsweoZs703WYRRvumx
sqsHarA/ax++ziaMhgbDjqhI1eAek/oYKw5hdGiCxXG/YA32WP105SKPMCJN
5RwI/lONG86Ewnk+YXShKOP8Rns13h7rvf2sgDDaWiJqH1xWjYu1LHp1SMLI
xbxyVeVdNWYJELpyWEwYpe3bVffscDU+37dx7NA2YTQfWOOnt60aJxyckNi/
XZhRf3Gm44RqfLK96veuHcJIoemyE66pwi8k3S037RFGrS0C5fKGVbjDye6Y
0F5hdNtgxCBgXxXeXWEqwb9fGBFr+vj28FXh2lsHf7MdEkaJZ7NuiFRXYt7M
UYt5NWEUcS80oVmpEpuztWrMqAsjpsSC0l38lTjNtHTbxDFh5Jooe6RopAIb
rEX1DGkKI/pxC9Xi0Ar8VtvIokVXGFXr6m9S/1OOhTt+mmeaCTPuBybNpw/K
8HX5FPVv5sJI+Vsi6jlRhrPcwsVTLYWRpErx1TBiGTaRcvoVZy2M9sjv9tib
Worf2cmaB9kJI2GBXZY720vwtvXAy46PhFHK5GPPSVIxPjVwJi/cTRg9fl+u
dSMZ4/tVXJuLPIRRydFHh0pkMa4N9KJyP2X4a+icYN5RhJ13OZ5OeCWMBjqP
XdLl/YkphmcPt0cJI5AzfDX3NQd7x/GTNLAwSraNHfb9+QWnPa+9e62Ewd9d
PhTwIhV32Ps2vCwTRpsTaPI5xil43+F/L9uqhNFYuJBn7Ogn3F03wXSXIoye
2f9HU+aIx0rz5Mm4fmGks9Vhq/rVIDyi86qWk1UE9afuoQ7MhYC1npWkDLsI
Wi4PtIk0CYceA2Xn45wiiPN73euJnAhoudAr9YhXBBWEeERyOkdD6bVDrn+E
RVDAYw320sl4+ODZLdsgI4LUqecmcqTTQPRpuvu4rAiaDjB59+zEVwjxfdbM
Li+CEsR/249bfwO/1/s9YZ8IqvbOmUhqSIeH75+2pauIoI5EennSRgacz9nz
LFhHBJHi52TcD+cAJZ+p+9tpEXTfnn5MMj8H9IpaFcl6IsjeuDCr4GguaFZ4
/mI9K4K2lxVdrD6aB4rNzYecL4qg2W2CJzL3FQDv1OOBi7dEkOt7PdaG7iJ4
MXtW9cFtEZRnP7G7Vg8Dy4JMQOB/IujpUG2qcz6GlbXGI7WOIsjyPlmHdrqY
8T7YGXj0kQjCpKZiXrESKNtFBolXIuiTIG/G78hS0A3o1d30miF/mpbsXV4K
lPnZC/xvRNDx9FdWjydK4Xf5Fvt/QSIoWHGG9YZGGSxZ2777HSmCyiN6+f61
lIFH7aP4tigRxHyvsUlmuQzYDgZ8bYgWQcqqsp3vxMtBiDmrvChOBCmt8tuZ
Xy0HhRjCTHSKCPqye4igMVAOGeyb1sK+iKCfR4R3xjFVwJE7uznefBVBD9pb
Y3QlKuCkxtltnhki6NS/o/usTSugPuGanMsPEWRSsxDS6FQB53ldDjlki6DQ
ksf/3F5XwNXuD6ev5Isg97xddSHFFUDT/H7e9KcIsnZKylnvqIA7KeVXDItE
UB/xa178dAW4uf55AKUi6MMC++WEbZUQtvlI3PZaEeR3mGuz7Z1KEPfUT9tM
FkHXxX75fHpSCfEjV3IFGkSQSvZuJ8mgSkjP8m3YaGLwz/uHOT+jEg5vi+xc
bGbk3zlC6SyphCKftKGpVkb9Djg9VKRUQp1xy0pvp8j/Kq7zcCzaLw7gUUib
evXMDHmLNrTQo1KEOZYs9UZZE6KUEEURSUoKeYUkiiRlbSGVkOXgmXkeeVMS
bSJriiglW6Xf/P78XHPd5z7zvc9cMwMdbdOGT/YKacvSHonXzTyIWyFQDxoW
0q8X/pxd38KDLxWu0rliIto5apZCzXseJJlKG8+cIaI/DCopV7bz4H5QaX4W
T0R72a/VKO7kgepVb9J/voj+Xmmqe7ebB+EDE9aBS0V0kIqjaU4PD6aVaJvc
XSmiJ8UdtLr2iQfX6dcvFNaI6PCRUzsv9XH5ugT1lGuJ6JnOiR5x/TwwnJTv
f0FPRCcIc/0iv/Agd8NAYKqBiJZXKz9xcpAHh+wvf2veKKLTL9ZHBX7nQUrY
WK+5qYhW+d150ecHDz4a6vkOm4novD0j19xHeLCMPZbSsElEr30y7bbLGA/U
3uSEd3IuWz2/aPtPHjgLrtiqcjZI4Vdv/c25ZoZmBlfvsfjGOtM/3PN66qyt
tbGI3uq5/TWIEfDw57GvWoYi+uXz/Z3rJxMgHr3Q0IYW0U5aJwZWSRCgH3Iu
IUtbRHddix9TkSLg+9EUvtpaEe05NWuKkjQBdfd+eH9WE9H/iUeeM5xOQP3p
7mBQFtErfnsQbjMJuHf5fH4Ol2fMyOa0SBkCjt6J/XcJl/eXwZUqt+YQEGqB
aUXTuH4+yxTUyRJg7W5w2vmPkL73YVDrK49bv9v/7d/fhbRfc+HmtfJcP9ct
YtteCemmpqRGOwUC5PIid36oEdKa9UedguYTwI6cOilRIqRHGd2DuJCr7/BI
7EKikLbHBaPtiwkwPzssN/m0kH5UIhY6RZmAWqplONZHSB/PY+PNlhPAS61o
mGzC/T/lZM/zWknAnrqm559XCWm4cTYjRp0AgUzxxWE5IS1+acvDF6sJ6Pi+
/InPJ5YOD21646RDgPqCRwGKISzdc6xo90k9Al7zyzvVd7G06ZHLfdeBAPlu
7fsehiw9fb/T7x4jAtrm+fftkmDpOOtuxUNbCLit3xEXfYKhB81FuQkWXP24
HXmEI0NbmuVqFG0jIGtdR+vLdQzN0/M2+mVDgG2AZM+fzwI6WfnHvvCdBBRn
B9KLzAV0xviU/OSDBGR6Fmbr9FfREj8+rCv3JUBYZKQzWl5Fu32pqXx/mIAP
moX9kjFVtGpXdMPiQAIOdEY2L1lRRefVzR3OO0nA3r/0H2S4VNJF1xbrCs4T
8LLlZ5iSfTm9+I/RsaoLBPQq2oVcHSij45z2luBF7nxWq1YvDyuj3eWz1pZd
JkBi97H68NxSWj5BWa0wnQBLh9R/8vpK6OCIZQuyCwjwOFOVYGX2kDY4sErs
3+cE6M7ReOwjc4d+ukGHtZxDwvBms4Bx7RMYVez/01iWBEJFvtL1VhiarM3n
b+CRoPAmKWOwKAIr1RZeXSRHQoXarfyjT2LxvtLUgCFFEmoCuiaXf0nCS1KN
KomrSLg2JOXX1nkDXV/sj35jQUL0N2dDsfACVNyaWV23jQTRueZO/fECfPek
dbTKioRX9JzcRu97aCvctvemHQmfvpilt1veR9OSdXrHnEmwEH9Uxp9biGpp
k78qHCThomyt5xmfYuydp7t0ji8JlH7QozWvizH70hFHicMkFOfedP+tV4KK
8Z9q+o+Q8FyirLxO+hHKnnmWXhFCQtcZR/7shFIc9UyxcokhQUNstbl7YAXG
Bt2QOhFHgtD3oOTVVxW4NOpWaWo81983siVqLaJNbumi5kQSVJs8Zgf3I97r
af5uk0aCQZKZS35WJZqNdGb7pZOQ3FGSNlJfiW2Snx0u3CChVjHPPGa8EmWW
/hLUZ5NwNnH027XNVei1RyFh810S6tRrizW6q3Cy32JTz3sk/KiJzGSlqzE5
bMWvyAckVK3Pu5eyshofX9fZIywmgddnR8w4XI1L2x3X6FeR0KeRM+vdUDWW
f93z0VlAAvoXNu6VFaD1JO8rISwJUxTdbFX5AgxbcHxK2WPu/jzSfOw9Bdjm
lNqo2UBCu5/3H4MXAgzwzoy0aSRBSfWpx4k+Ac46fkfH7yUJ8v66ywbEGdS9
Up5R8Jabj6H2i87qDDbeYrfXvyOhPEm21sWIQa/SuhlfWknoCdvudn47g8lv
W/xWdJJQmZxgFBLCIL+3W2VzNwmzhCstteIYrBnrf+fRQ4L+XmVnpXQGR6gJ
o+w+EhL3NXgeqWQwRkVyjO0nQWXMKbDjKYNL18/iXlAk1L+bcuPoOwat7ebz
Fg6RwH9sWKv8g8E+t6WPYZiE+3q2cnqTWDx1RO248ygJLYXBy0KmsSgfrskP
GSfB2Fi5rEeWxYKLet1XfpGQP9vwYpACi6aZxpdLJ0hom9A+o7mYxbYH5lve
TqJASm3Udd5yFgMYW7ExcQruTu6Yo8pncVbjzkJSgoLk/pYAZ00WMzvdPDSl
KJj2xDyiQptFne8H/raR5tZLzdU21mOxUTzg+eHpFMSYR8YPA4v7/zpxJn4m
BTkSJ1OeGbAovjBCq0CGAna7iftzQxaT+bH9z+ZQsP5P2txfnPn6SekDshTo
5FQwFpxrtqbZzCQo8Jc1zXyiz6In010hRVFgL/J4k06zOHP9ChVxeQoKYwW7
y3RYvHvr0Plf8yioS/U6qqDFouWCkvHhvymIHn3pUL2GxaH4P66DC7j9LZ6Y
56mzmChpXNenRMHeS56pbaosrg+K1vywiIIuX8XL9otYbO5vSGtbQgHPJvey
HJdfyC456WZlClyjpX8rzmVRscn5UJMqBdU/zir7TGex2jSr+dlyCsJj7odJ
ibO4p+yzUe1KCujHm071jDAouWp1HqNOQcWdTcmz+xnMvXGURD4F1wTvTcPa
GRyIkuy9v5aCI8utjpvUMBg38Y9V3joKWl22KSQ/YnD1oQtlOVoUaH+lTq+/
zWCgvWJsqi4F+4TWixzOMShf5zaaRFOw41hsRlswg+VwZ1e8PgU2S2VPPdjP
oLiK9pqIjRREbvFX3mTCYEbKydRQEwpm1H52n7mGQRMZkWSwGbe/a/2YkiKD
0cNWb3y2cHl3oa7BsAB5rHfIDhsKQq1h4kiyAIvXP+ixtqOgY1K9/rtQAe64
Pb7Vwp47z707Gy67C/DqhYhFRk4UKG8cY5TWCFBld3rNyr0UxH+piQkVVGNt
Uw9fZR8FfvnHC9jMavQ2U0tZ6EHBA4Oo054R1XhvVak36U3BnIPbXrw1rUad
P41/iflTYGf/0yGAqcLWQ/OCfx7h5m9b1OKO9CoM/bCr+0cgBUGqvpZFIVUo
rBso6g3m5qdpGZWlWYUWV6Y6NZ6m4GZL5cCjtErcraWTnZ1Awa0Uwu1XfgW+
p7fFPEmkwKw66Y6CZQU6Grv5D16iuO+jSf/Jfi9HW6s4ww2pFFzRfv8wkV+O
m7y73j/N5OapQVvcNb0UNdKjqeGHFPj6+XxstChGcemWs0ZvKJhVlHBzQqoA
r78+7tX+txwkRxGXpOwP4orw8ReDnFvd7XcnNh/Ah6sDNojPl4OMm8ciluw8
gP/F+ExbxDnY7/cHI1dvHDJyzdnD+V+zrfMivfejcYFpVw/n4Z1jDkqn9mHv
WVnHgQVy4LKPzDK3c0a/dXGCCc5RD7Z6RTjuxImuGctlFDnv09Co2uWEsiA5
rs5ZqmCZcJ2XA+oMjyb5cm6wOW/BD7XDmN2tL4Y4i5a7vc23tUBqtsMGCSU5
iBR/ecZw1xa8Xv7qOo9zeqhP0Jv9m7GIeu6ryTk3LnnbjFATbHsqkAnkHLG9
y1fBjkbPYAiI5HxU85mTh9cGHFItb73EmZVvX1Iaug6nnnl4p4SzlQW2vt2u
jvEaq3m1nFHphOSVMGVUaMsPfsu5WeKBy1PHBZh1bkVXL+fnblNLB/fIIH9D
7uaf/7/u/fH61oMnK/4Hm82Y9A==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{0, 2 Pi}, {-1.3033973713199827`, 1.2309607908556341`}}, {{
     0, 6.283185307179586}, {-1.3033973713199827`, 1.2309607908556341`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.3914427684155474`*^9, {3.3914442099170713`*^9, 3.3914442153049264`*^9}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXWuMXddVvpk7b4899nge9nhsz3g8Y3vGM7YTv18zHs/LbydO86AKresE
4h9VqxAEEkIC/kQqGCoCDaGBUEEpUoyqCIkIlSqhhT5MSNoCBUFFVYRS/iCQ
CpQKSvDae52993fvt88+547nD6qluZ575uy1v/Ve+3H2uXT92aef+uD1Z2/e
uD689Mz1Dz9988aPDS9+6Jm7l6r3VSpNX6lU7nt5uCK/v1upZB8zlXffeadS
tV/u/mZ+5NN8fNR8r/zgJnrTsvlsXv+db/zjC7d+7o8+/VPPvLr7W2/+nW87
H7Q1TZfMhdb2733rn75488YrT7/6iS9c/fyrb8nv+//+C3/rW56N92pptP3S
88995sOvvPSn2XXp+e0bT3xKaAfw5+KEFu016Vga2m/2E4k7YmeSxEQOwlVI
bNO/fP0fvvnoQ79dgyyH2IK9Jg3+9cLSb5iGLfbay8/99Gvvf+13v1SDbDZJ
TBpJY/NNiR396zf+SmRfmpioWhRn1WmvCYvD3/7qN2qIzcSJzRM223IVkCY2
+/Znvvb6h57+fWsk9tryl//wK6/9+Ac/XZoYoGgjaMsQExsTWzPf2okcPbHT
cWJnCYoOe02QCuLSxEBmHcQrihNr+pmXf/mNNbkGcSqJR3QlOjPfOu21T/3s
T/zBY5+9/WZpYiIliVAhsYikQmKG1px34G8/eOkT5tuaXPnk4FFiom5Ru/nW
Za99d2Hu49aegNjJJLGf/OQLn3vuxV/4bEhMNCkaLU0MRNyV64dpYqD8LsJ6
IWI2RlZFf6JH822tvSbx/m+eePSTpYlB0FuXq4ATSWIiL5FbSAwcvQwx0aRo
NCQGCaUMMQgt63LtPk0MWFpH5FiGGAh7HdFwIWKzxAzWE9vzxI4niUGiWE/k
WIYYCHs90TAnZmjNEuWvJxZXBg9EVSUWiWJpYiJyEX1ITHQqui1NDAxiQ64O
j8WJzRCD6CGslyEGBqHEIiExTUw0KRoNicG1MsTAknpyPTJNDCK/EoOkV4aY
IBAk5ttGew2SsCd2NElMEAiSkFgkwSkxtZ/KN2/NVrJ/reazetevbrkObAnc
XHn9prutsnzrji1/pKS9XXm2Ev6brbx0551OAvU0Mf9e4sB1UPtCqAqtIwN3
59bd8VXY/a2saHTYnr39TqUpu2buNxizEo6BBO9QkFBEFALZyWWX4ZPLd786
tObz9k3XvD2ODxxO8UXKhhx8fUQozUR4OUDAMXuJ8EoBscZ4s/K6MzwrpcrN
2+ZbWxwIOHovMbU6IE3QaY0HKIig0zhgvQaA9Zpp2yJ4bcGF41KlAknCwzxS
UF413YfXcuQF0UHpReL/6gKBDKb0IrljdYFAelV6kUqwKBA126hl1ACxoyIs
8vqJw69YIimfOkUcuT/XuQsAaSTKKBAYeQ/ofTOnXnT3eSCH40D6CfdF464C
gdmhAWLAdUBsnm2FHCAdKbCBGkFIPmgKMeXkKoPJzCRsIj5dh6Q3FImi2Kxm
8dJsJYRnumQ5XMUA+VpZiMy4aeesdlFiMHIYcDzV2VYOCailFE9kAJDGA/pU
YpGSMU0MrFSJRUrGHGKaPASVoDPfrOpiQ/JDSWLAkhKLZKKQWDVIZlBxKIlI
DknjgUpCiUXyQIqYsZ9B+9dIBE/jAXveTBguQwykosQikTRNDGYZlFik1EkT
g5HDILnmiR1MEgNrHyS+WYjYCWLtW+y1yPRmmhhYuxKLzDKkiYEZbCHmW4YY
pBQlFsn2KWLG7odyrSuNB3xO8USmndLEwIkUWWSQ+0BAzNBSEpDUhogHcBIc
DzRUYpGZqzQxcBMlFhnJpomB6yixyIgzh9hx4jpb7bVIPkwTA0vaStypDDGo
5JRYJB+miQFL24gcPbH7k8QgUSixSGmXImb8cDsx3zJ4wHW2kWtliIGNb3MY
ywgbGFE8kaCXxgOCVWKRoJcmBiXQNmK0hYjZGTtMpNvJNU7M0DpGvG/YXosE
vQNJPDD1rMQi4S9NDLxPiUUKtjQx8D4lFgl/aWKQBYeJgaY0Z24fIcTKoIDc
N0xkVoYY1CrDxDTKEAPvG841yzQxsB+VWaTm258kBq48kmugaWLgykoskp9z
iB0l8tmRa6BpYqA5JRbJz2li4NQ7co02TQwMdEeu0YbEDK2jpO8duaaaxgNJ
YUeuqaaIGafemWug+5J4QOWj9lpkUJImBk49mmugaWLg1EosMuRNEwOfG801
0DQxcGolBvH+YfNp9rSJbEVPIk9D/utJ8lCkjRKTvWbJi1QFiqhQumgyNWfV
m0HG1tfiXR4hFriTmPhD3hVEoSZZ6+xgVu1aici1v7T92ZW21kpkFcxO2kXX
zsKFh6AVm3c7QgCPEVleJbJs8W2FCSu8QGi6kFlJLZe1ZdTIklubcur/ZtZP
cCbTzm6ymUxlD8LiGHH7K/aafJfizuiojbBs2PsqspdabctYqFFWtvpjZkh1
0rgZ2LLSYZPGRwi0MRKArpDY0k6Cl2HLFmpu/TY1qz5I8LMpf8UKUxtjJL5d
ttegWO/wahH1eQurwZpa3tsc3pezTnLEu6rLWmNEXoqV7ZOrnxZ822ItuipY
JVjZOk+UJ7MqaOfnME6PkWuXiIOs8YFNYoKX+ttE6jlLYoAwZSEmI4/bv0JC
uERspSsm67caQyg2LDadsAuwAZUmTFhc9BHRRdO1XpoScuxYrQGsPQHWLORV
w2s5i0yKH0b5YwSr4odSYR25ZvD/BcGfsy4Z4hfs8n81s39tl8AP/qa2Alnq
PLHcbmLhUfw5y5m1+APZMKxQgilWKH4UK8RF3chVX0S+iVhTsXljOayAa5xg
UKyQRxRr/ehCsYbpMW9RtCRWSNvjBNc5bwNug/aGmA/WYE0tlvaWwwq2OU78
SLFCvOshscZg/XOLtVctlK2s9gX4sn/NLsfYe2Ixzq4S4oz8LnsNMsY5InPF
XD/RpphZ+XyYxJ9dxKaWiT57iS2Y/u4k+4N4rf1BHbVMMGh/9es66f6A9i7C
s/YHsbmXYC3YH+De5WXnhijaH8wb9pE4YPr7crn+dhPai4SXfuILhfozVcIe
+1cYly66vw7EbDGkbUgfJlpVDiDTLJL++olVFpQYaHo3ubZAPFE3YtTPCHwp
2R+02e3kpFxB/tlEdFqwF8h3uwmdBaLzTcQfCvYHOwp2E50vEK1FdyN8Mdkf
+Ib2BzXFPNHaYMzO0/1B7thNaM8T/Q2Sa6n+DpEYMWGvwaTpWcLLYMwL0v2B
zieIXs4S/W0htvaI+WyXPCC2JjhEdv92fuk3//nqxd8SUxdcBtbTSViwvDNB
upsjqhhyTmXBNEtiFCriAHKnrSWaBaPcJXy7Sa0fTWKCFDJBAgZ7smmImOjD
3i0lfZsQ3WqvCTTpwwY9ufYjSVzQn+KCYDpHrunSLKSIYIbMhYt2b1rSh8f1
VBIX0FFcMHc8R/S6lcj1QXtNVCX3GvPu9Liyp2YtrieTuGC4OkFkOEfcbivh
6arXmZsW6fJuJdd8iXsjgcvY7aTn1CXpM8SCthHnVTSQMtcS1AbNB5JSggAz
4Tl1C/lniEa322sQpHWSBoprHQzWp9HrAa5qMIEC9qBSgtA8S+5TNFDCX/J2
44am6z13+Hzy9aSUgINJwr3igvC5ndjcJeKjG4i9GlzvT+ICn5ok12a8HFy6
0WVHiKkXiWx6iAwL4oLhrOKCIYy2hVjLFh0vECvdGLP29yVxgc4mCe0ZoosR
ct95Iq8+gt/g+uEkLhhaTRIMM8QOR4jHnSdt+4gdFsQFvjdJ+pshclVcELWC
aQJnSwNEXo+bz1b5e7YeJT/Cj9zz/Tjig8TS99prEGdPe825GDdKuNCBG8Q9
tiX5UfPZLO3kmtCU+02crzSLEoRBKU8kXP93kgEQ215y7TRRpzIAYXGZiHeA
qOERz5Tca1zUlinNUp5JoskW0r6XRA8F3RQxIt1PDQFwlDi0PfYCxxibiXE/
7J3TFVkdXkISXAyX/5WEDrFoiliEQmervaCgJRLvNpN4cc1DN8Yi34LH7d1K
5XeT0EFKCh1CsEKHMnAnuRaMhcWQDUwdBUB6NaWaMfF1XgAiGAP4P5OAQdVT
JLadJObElrEWiJdu8TJ0ldRV4jTdvg8RlhHCfyShQ1dTXoUuNZwkLI4Ry2Uj
5iGiu8sepjvwZQNh598T0I26pu1fYYrxJGFijMhwnlzbSoAEtZfcZ4aYG0kf
T3hjc/70fMCE4eEgaTjlI5YLwyeJc455IG68zI462Uqi4iVy30Z/nxuM2ITV
KddE4+KFEu+kP8Eiv4sniSUIrpzjhZRTiOFTJDSdJH47TrifI1xtJ1xdIH30
YRgyktNEJ6oWlxScEnfsgkiLkBfYQkJ+jPn+YkPcQjA9QQLBLmfOZ4n5bSdm
GqxUOc0NEFfQ7TBynyATmoKmA0VkEtetJG+gjSmPwJUn7DGEXeQaO7BkmESK
c4SjAcL5NS9nuWbk3+U5l7bSt/z+8+W41PAC5azu7oWMv8u7vhuCnCHeOkJi
rtY1kEo1vUKh96DnUjAazru9dOWa8Z+PJFmEKkBZhLDNdmfvJvfpKBFSw4gX
hUu5y0Thg+TaFWTRYNyAtmrovddc65DfBZ94jvQvf5f/5bu4srl3LCkO0O40
Yf04uU/FAVWEigOmMnYQeovEo7cQK7jsRSlWECYeoZ/ZdOUxc22tiEvwCE75
m4hBVCOik//lu2CTv0vENOIdTYoHyl019OTxDEc8O25UooEMNmq1ZW0vfsxZ
UDDGd44zSPpt0t6zrRf6k4WaJSL5bLU43EyVkclWZPUnyylss46dXYzulGsl
Me89tkkWjyT2G7v5zhsfEWFYEB2VcJn17o+oXkCISUizIIhQlT1AorIdc7WE
OxRcRD3urcnV23Vqunk7m+a1cnvf75hsptYOVYtdkUnutxOSTR6qW1RfII7R
D3Bg0wLMYLLNJyW2/7WSXGPzSltWqcrf7CSbtoMdicG1Zk9L2pl8NpxUGhko
g9JclGUPBg1nMLIdn3cl3EbC1mkSdXUZDbYlNIPUgVUIefPEyZjGWgjm88SA
2gMsedsaW0m/NkG2iTG7Ot3K2G/LAL40Xuk1uV8yiCkftifVBRUcUZerP48T
sY3UqutuG8bSKRIKRzT4hLuj7v5ktQIb1QyEXKNGoJw+5y3RrQJkm4ZCjWhb
+bvcZxKJjkiFRZeYcNMibrB8adZHumaPJcvfulaQpwGo8IkGnIZUA2wnOux9
ayZGeopEyJGQLW2rrEJpNUc0mokzzEBZAg0zUJVg0TIKKlS2/0wtCRaeNI2J
aMUSzTW2/4/tBzOBxIxPtq5YKS41sYfkdhJAVWLPqhQYbI2Egg2VYoDPESo9
RHRui1ngKa3EU7S4gHTB6LURNV70bd0goJoJHzMVcxavjaGkNqAy36vGEeK7
+5MNvI+SuDYeKkQdOEjcLiad9NdcMh8BUVpLqpI+2IGH4a6+rLyL7/2n81Aw
v5TRC3eZaqphOxUhJTXXqGZ51tBAR7Gi6XCq2XJPVJPtaDhKYGWVuA0koBpg
6QTxy+FQHJoZW0iQVPgwKMk2MYabMHNUA16zQPAxVbcTFZ7zgdjllxaNL2Gw
yvIUYrJ/09loqBE3JzUFTh7RVDY8UE2RTWGtENXe9QMM9R2oD7ZmjNU80xJU
qjCHMEMY69NoEZZ15idQUjvxn7PEPtdCHIjvHu8kElvyodfNUbQSxckVodWk
2TAcCnWRGLEpUJzR2wPO+6a4krJ8cZRQy5RUgygbw6mSIL2zmrvFe4wb9wYH
DLqA2a/KsTWtf3yDKAc8KNg/JMHBXFsXKCJva/wa4n3BAomr5Npr6Mm3YO3c
zYaGCuCeAza9V+NojVKMwlQjMFTZozYS7AB3Yj3hbar2eVVweFUHVEyniM0P
qPbDh7ECVbATus8Ql6vVhHzb4KG6qWd2DLs7HbJ+czuMcweSUoeyKBKvsuhx
xOvfTVxmggy33rcEAgpsKvMHf7xEVleHftRCIpZqAfbsZVoInaBeC+APs0S6
3XH7BW2dJVrtJG1VC5BB+5NaAOVGtJBFF9UCTPc6cw5GvTmjclD6MeLpW5L0
YFwIOV+jH1m8DtwzoMEeZlNRwTxajqZY1IN6YE2NLKR9rzPDtH7IjuPoaXhN
JNwcJjxmxp+RYRNEIqsqcQj2PP/WQD519ILpuTYi2xPEDDOdOee8VaczyFJs
a8b6uIdAfTrr6bnZGFtG1I1y2MHAvUkFsj1ZcIhgk7dkl4tVa5CYslGn01DF
FyHh3DKzAnZQwbaaEBjSCwuxVtKWHZS0RaXmZ5uNxlgxq1EVivhQYdk/9lTP
WqKFGSKu7jCWwT9Dq9tL3eWstDKhsLInheDUANuIZ88LwJXjI9Hoi6Z9nEgv
2C5aG/rAVYP9+y7pqKtAkhgnYXNjUhRQBKkoIE0eImzvI8o77Nl2g3Jd3oL5
3+BYEhdx9xLxHCf3TZD7gskAwW3UypbLepKigKWnAyTIHSQubg7vMEmAPec+
TUIVc+K9xNlVADC6CWzGmTsb0e0m4bAxAUCmZxum9pNr7GGlaeIW7NAOtp/p
KHEVFRlkRHa8mooMpic3xEVxPwmJ9zsds83xKgAoatlzP/uIMxwmep/2gF15
dpQY/hQRXuBczhn2OvSNsF1jqAcJEwcIELYdcz9xBpYh9xF6h4kFTBNt5wgK
gnl3UhRAll07SGAeIOwcjNsMBMvg2SbnIHoflESHiQr2EafJsS0obRsTBUyq
KouQQg/ErQeCak6cgTTIctNBwuJ+YimBaN02nv2kj3VJUYDx3u/JuvVvtl7H
nCtYO3fa1vsglOZYGVjUQWIBB4gz+M2M9xNl2KrMAnlX+DcfL8vHfXHZbCDX
esg1NrHRUrAt66OJyGZtwbZW1S14NpScDFXJDjRK02gjMmcnQiTk4/RTVI5r
iMtUV6AXbQtRa03Btlrv22MK9XpR+bH32rGn/VlbPVEert39yWyruyAZNgxp
WoEog/kMNPv7nA/dK0cyTty6cvcB8Zd0H3w2rTH3gXDQgPu4jFDSfSCrrcR9
VI6wB7GrnPuIvcj1cPmwqPwg+xWV370Op8ovZPuVyHRDYZ8Zj/kHf/y7qBQg
GJbzCqxR+sppE6yyAW9wBUZRSavmYB6ARUAm5ybiwSP5mJ0+ikYplmSHyH26
DwxK5aJ6W+O90J2o11yw7XhhS9WCC9L2dFyqUJpoKccOPmDSgrJS20Kly7TZ
RSxfq2R2Vi6TDJS4OihhT7xAW90v9taNJ37v8T9+5U4oF7ZzENruSYobSGjV
DVX8AQKTPSC8nxgiO/SAsc3mCdneb70Pxmc6fCXnheSxDdDZbqkDRBTsqfZ9
xKLY8VbTxHrYiZZT5Bo7eHrS9+umMhYbYhuMUtmGqSl2RMQ+IrIjpO0UEQ87
rVqnq2C0pffB8jp7rDrNNkxos530OcYLE1f7SPdsvVDZhnx/jIhxklxjr/zY
Q6xiqSG2wSiVbUjI7IycaXLfUXJNtQhTSWy/5wS5dpK0Dc68chMTy0m2YS7+
ICEb+KzLFuxYRfbImD9Hnk1Ks4eu9pBrp3xbt2jhHzw7l2QRjJdNOuZEWShH
lEVIfuwNBczv2JuG2INJ7OWLY0QAOWyz/H6IkFW2IWrnRFn2YBGEpT2+XzcR
eYrokx12Fzw54yL0TmLQ55NsgyYOEY3tI6I4SpwhSBouGp8g9PYQdk4TzQbP
wLpFKN2KA5lh1Jn2hYaYZamHrYCwk1QAiDILY9E9JEKwtXb2mLXuhWCPE4Bp
p9mG9HGImKyyzWIwQJoktnCSRIhdpI9ZouNRouOzxLSH/TW3pnYxYNtwfYDo
hOXZYDXM+Tt718kkAcz2xyizEN1niY7Z+frzREHsUeeQWa5jtk4B/smKv+Pk
PjVZWGkNnk5xehr397nJ/jkishFy36Lz2W0E/aUksxA8DpNO2YP27FnXnGBU
f6pA9MFt9p4Q3QwLEX+Lj0LuqZvLSWYherKzGqeIV7JHx/YQT2Wvm9ZgBFXa
WdIvOyYqeMbZrZIHp/+5xHQlwXa4rM9WFFl2Bc8PluFddp0lOhklTMx7obih
4DbCxHnfr0SD8IFuwFeGWZh6UGYhLgebM1ye3U0EMEtMe5QIgJ23uZVYzwVi
jQPE8q4mDRoi5WHiqcE2Hheh2TEZuwj0WaL3HST0LRJDHfL+KSI3or3kFNTv
fnuoIRYhyLMC/ySxgF3EF9mG5BHi20vEAtjJmJcJvY2O2WtJZmFgHewWcOlj
LzGdk0QA4yQYsee5hn0fLqWcI1g2EwFc9QpyZxdt8GbsrqXZBhmq98IyPKuW
2HlGrPg7S/pghcE5EqqC03JdmtGjM4U9sRFzn06Zy98lXBmM70myDXn2CAlQ
kyQCsjctjxEWWXYNIq8rPnKCEdC75qOLe0Bb51qzp4cNnkeSbIMHsvcMsMMV
2RMIO73U3TBBYzDMn7AYfJH02+c8VQ+VzY6FEhMXJHYlo1l0JjKVxnL50STL
AIfNYUx4Vlx1zQqKnV4LLsYvEPaGiKYveV9354rpk2mQ7uzRGM2CTdpmp900
G1Nozk5iyBT+eJJ5mAXxbx5hB6CyowTZuXbsjLIhIobLPuS556h6iE+/14tB
+DOiqNpPYd055A/FmQ02Q7lMyzZJstNxZwiLoyS8LZKwFZSETtNXvV+65/7W
e7bdOTGvJ9mBYT57SR3bzDpD2GYvs1vyBumSD3vV94OEHjtz7o2AHcPNfuJB
7JmBCRIMZsh9ygSkoWUigE1EJ9c8Ey5tdKF5Gib+JKkTkOEx4mN7SNCZJZ6l
lQ6kHHay0iaik4d9IHLzCJ3etF2A+VxD7LCj39lBUewln6Cx8+S+fk/PLVgE
AV+uZUf92I0p5rwz4TI7BeDzSaYg7bKVFDbOOOPd1k2JKFNQyQYHz7qFXvZ+
h8e83kQgpuir2jNJs2NKBaOY358lOWKLJFAj7yZWws7zGibSuEDa9nrndfWY
jdOtgjg7FlZ+BINJaw1xAbJlm+7ZmRTbvA5ccX7Rc+vm23oJt+bg3Zw1X78b
n70cWxHCROgckR97r/MlYmE9RDIG4UQJhJDF2TtJ5ohzbiOy0YwNqTBIXXjQ
+mRS3+APx4jOdpFr8yQuDpH7rhB9d/tr7qFfg3VvEivwzI76GCfaU6yQkoaI
Rq96PbkHCKLvGWsMK8hrnFjkPIl5ihVS74PEctnWLIN1KokV7ItNXY6TaMbG
EYPEBjStiyu4GNIZwzrdEFbQj2KFoeMC0QmrozRni524srDd94FYc14sy7bT
sFnScWLDC8SGFStENDt6rmZvjTV8tfhrYmtWJnLtQBIrFBTsBDcdQkOpuERs
YBO5z47/OrL3oYRnCcr/2XfrG3Jv3dvm95OejpOexrwEXHWhKCFjbSJRwQ7U
zCGt2QGQ8r8/0v9gUopQZQazp27Aw953ueQjj8sQ7Axyg+H5chhOEO3uJN68
TCIU22qXwrCPRAA2nbqTeMgykU0/iUYFMUAmZU/PBSuCTj/nCP4+fw1fifEr
SQxgm2zOVTGwc3gh4vuH0E3Pv5rsmZ2GzJYI2YsR4L7gPGe0xMYwAKejxAvZ
+zKjL7NIY2DnX8NAaZRYGHuhRg+x2IIYALfO00Ek20G87wKxYnaiucHwsSQG
dk4G5JMR4g3sPbfrY3JIYTDWy46K1J4h/rF3AHfHuH+hcM/mtx1EIpdJfFgX
4zTVXw2dU8QS2etSLpM4E31p0a8lMUC1c4rIeITEmStOSl0ejRtDm55fTPYM
2j3l6biIOkJ8IBgruPmSNQRhHQYDgT2qrrYGo6ztBA17pVZHTO6/nuSeYWCv
PILqir1uLHhUwC35GgwfT2KAfM98TjGQk2mr2cHXwWFoxufc6x8MhpcawgD9
bSfRxVbgrSIHkVn2sjq5KnJoMo5fdcWyU0taJGAGbF+UwoEgrAcsy/fwRX6i
Ymlrun452TVUZNo1e4UZ5CVDO+dNODm0IYZvI56foq3bliD3zBLxsHWjFdAG
S1Da9e8cTtNme8HYC//qI3uaNtv3AJFdacOYLqRtaxmZN/UHudh/wXlUzXBo
0PKtOx3aKnI+Smc5wCAg9lZGA/h/LODaF1HXnxcUns1Yf7ygnJpT4szsjjgr
EB1nic+weR3GSngiG3v/dwa3RgkakJPnSLPnuRgLOvkLaVA3TdRPOSkL2dG8
qdetDxKs7KHbaeLCigvSLtvMwXCxU5nD8902h/fhebb1uMJTdkEiigZiehSN
9gJo9FoUTYuA2VuLAUpGlTAM8QyG76cxhNcAQ1pTUNaxTcqDJCitBFd4hmpJ
XMVePFwSV0+AKwsa7NjQHC8Ey1bdQmLbHLN2hhXPLwf7CrHmnaKZg5W9roic
v0YSTgG5hp5Zi1W+rYvjYssrUN7pFFt9XvlfxJWKZBvL4WKHpRd7obji6iGy
YUniHuCC2KG46gueGlzhmwcwgVoZ9pbDxV6oDXGVvYEyxNWrFhUeBZdh6avx
VfnHjonLiStQ4J4lthd97f27Fh8r5tiLpthLz5R2ffGcpg0F7jyxOaVdXzw3
Rpu93wSGfAVpA68LxEb6iD0XpA15ip3b3Uv487TDh64N/fgzs6jG3pjL15Hl
uKHhArmmHUAOXGkHoNDeXKGnO4DIvEi8PNj0RSTflOjAFEns3UjRtfNCZGuG
bYuuq4258k6ThYaLxDh7cuXdWAcQoYITnDE7mo9qsgMoYdgDIDpPGwkv6Q6A
2JKT/Aai5JWRrZF8sD/Abar3HTQnOwCVLRFi3aTThjtYJuKI7hoo2AH45TJR
47pc40x3ACl1mTj+2lzjbCnXgS6pQf3QlSuisIOqG4jVzNqedyapaGEYXQgt
e3G0Lj9BZcZOEvIdtCY7AGK6rgNpT6dv6ku/gh0AMu0AIr5OqsB2YN9BW0Md
wDoFO/OtTAdQoV8k4mBv/vAdtCc7gAx0kdg3O6aq4Q50+QrqL/ZuLN9BR6ID
Y+lshUjJQqIsSVaXXmDGoEr04sl2JsUBeGwHbdnKgjicmKL8HVcVzMeaJHHI
rnbjVku2G1+ip3uroSfaVY6ob3g92bB+eapgw/rphXvXMIybkUSR7qfhhvUT
cwUbQuZY3Yb6eEWk4v3A6jWsnzEs2DCSgFaxYf0kYsGGkYJ/1Rr6rTHm40bj
t5u72TEhZbiIxJJVbBgJCavYECqYMg0jUWUVG9bPjRZsGIkqK22IiyX2X6v5
xBce29weXQyMLCGyxcDgRHlXQdfZf18IS2F0ZEDIqp57u1BiZZAt6SmgSBDN
AdTJZZJhSS3tsZn2hrH0EWbZFHZOp5HQXKDT1Eobm1O9N53mLKj5xTN9xgHm
5lbcVWrVUPmLJJH/h53CimT5TnOWrqKd1uTOJ1dgNClLLd/VCjwxkuxzRNlP
eCkZcyL5XjvV069jb5AaqGEwtiKUE3/z++8Nmda+s9c9seWenMwTmTDMKdS0
YaQ+WcWGsBJcpmGkPlnFhpHCpq6ezc6Q5VVJup/yDfUR20hOfXL1GkZGV+mG
kaS4ig0juTHdMJJqVrFhZFos1bAmgD91b2+Pxuw0P5G4FzY07YrfzvuJzA2l
G0ai1yo2jIS9Yj2SyZ6chv6mj/7gpjI3Ve77PwV9jkw=\
\>"]]
}, Open  ]],

Cell[TextData[{
 "produces a ",
 Cell[BoxData["Graphics"]],
 " object as output.  We can copy this object to a new cell and add a text \
tag using the ",
 Cell[BoxData[
  RowBox[{"Drawing", " ", "Tool"}]]],
 ".  Note that the background color changed, since the cell type changed from \
an ",
 Cell[BoxData["Output"]],
 " cell to an ",
 Cell[BoxData["Input"]],
 " cell.  Try editing my text!"
}], "Text",
 CellChangeTimes->{{3.391966221724129*^9, 3.3919662654779167`*^9}, {
  3.391966309371908*^9, 3.3919663526249657`*^9}, {3.392213146515511*^9, 
  3.392213165286693*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwUV3k4lN8XZ+y7MZQioURSqZBE5yZSiKIoISkp+SYqUpZIKknZIyFbIiWy
x7WvgzF2kp2h7GMnv/n99T6f59yzfc557zlXytrByIbAxMTUyMrE9P+vtddb
uf/edkOFlMoMS8YcJM7zgvnlX3BHtCImrHIaPMZWnn1/9AtUMrlVjUym4WIP
jcwe+QuIeK1zkjwFvBXlZt87fsGkVGIxj+AkOIW4ObOb9IBpQqhqTew4oEN/
09LP/obCiBRn06lB+C/XJoCwow/EMysUUizqYd/pc5LMSn1wpXo6QlmiFqY7
1TM2tPpA0U10wmuoEu6vktrWbvSBXGzxrWDvYnh0rHTbYkofxNVX3N4tGgu+
5RJpfw72w+AZI9em2jJ86gI3jJ/oh27u52uayZWYa2SeQjvfDy75ceuKnjXY
n6OePuzcD9Zc6h8vbmnEwbqP1fvy+0FhY5vl738tOJbSXteiOQDuDyeczKAX
W18ts2g2HgC0a+jJr6N9eMfs16mm6wOgLMkze7KtDyeRfEmNvgPg6JspVck2
gNNMlC7X1A7AK62GC8cMh/Cd0e0TVd0D4LC0ee/mniGs+JDHs/LvAIymme+R
uDWMf0QMxJXxD4Lim2ti3x+P4Pxfb8cLjQYh9uhvpSo/Gnb7z83t57VBkLGe
PTvBNYY1/tnyF9wfhC+6W2cOPx/DxdvhYG7YIPTEF0youI3jKusJ14yuQYif
PCtZbvgXt9BOc32yHgLeM0/E/KKm8FSEnPZTpyFYbXnnorI4hbn1OLyueA+B
ckehlYTcNEZp5Uub44bADstcSfWYxqmOQHvRPwSfOLmXeqVmcKW0xE6bmSEg
CyQ+/XBqBvc1r105zjwMCwvLci/uzOBNKvnty5LD8NTk+YHhnBnsvaJUZWc1
DL5d+21K0Sz+kEpi0bk7DGZVryv/Ws3iXPPZYzueMPT58uO1n8ziiaJv2d0x
w/Cita736c9ZzHk3YDbn2zBYdyw33eqcxdJS/+0LwcOwbuVxw3N+Fl98Kp+k
3zsMvexiVLU9c/ieEteA3NQwJKRNWvdrzeGA4dFtbBvDECDly5VnMYfLdRJD
CyVGoO1iHKz7z+H9vJLP9lmOAH/Mmz/D/XNYt/BfMfedEXi8cjRRan4OX7/T
szbiPgJLhQc1gjjoOJISeT/mwwg4cRedEJan4ywv1/THaSMQ1ejZvUuNjikH
L/41LRwBn+nO+Lun6Zg9VOS6YM8IdOGR019s6FjqJD3m798RAHaH+zFOdKy+
SO2uXhuBKpe9t8gedGyS/H1zIu8orDm5dR7yo2PHS2+NvcRHIa+U63FbCB37
czu8sVAYBZ+3jRxZ0XScVHCm7oj6KPSp8x2jfKLjEnsFjk36oxC6DfXJpdPx
r208J2Yvj4K2tHgWzqHjxYYxj4bbo/Dxis/z0CI6FnpSnZ/yeBROez3dlVpO
x3sPfFrwfTUKWdJaNsy1dHxq4NnBa+9HwU6ASyyigY6vBV+/A6mjEG4ns+Me
lY49tE6kiBWMglcR3fxtKx2/m5caWawdhd9z1NSZdjrOTGKSbukaBacDwovh
nXTcYNprkT4+CnIJa7t9uuiYxlkU4b8yCiP7cw/lMDBLflTrTW4a3OAy4jjI
wBK3HxO1t9JA78iX9/MddHxE3OyMlDwNCjld/hAY9s/Xq75cP0KDBlO5ebMW
Onbw2FzReZoGUz2z+f8odOy3f4Ep+xIN0s4Xak6R6fiRy+k9I3Y0ULqQEYar
6PgWjrqwyY0GIbzOC7iEji9yTHuefE0DnZKmwpl8Rv6GJ1Kco2lw65LzGZNM
OlYND2tJ+kYDC59J7qkUOpbrHfvXVkwDgfK3VoUf6ZjD4a3x4UEa2G4YhzK9
puOF7EF3WzoNrv/4YPXQi45H/qkkh7ONwZrcyag9D+i4MqBnbVF2DOTOizro
mtFxdpuirNyRMdD0fLUpT4+OEyV8zl3UHYOfsVSDW+p07PNVPinXfgxoEssl
IWJ0fH/BnUJzH4PC97b7SdyM+hxrWhF9MwZSZZ+DOhfnsGaDi6Hr9zFQS8sk
azXNYebJ8qUjC2NwvmiIVvZ4Dk8ri+6w4xgHpWGl0vTrc7jP/faZSNFxOG4d
sWVOfw4X8wnFraiNQ6xNpb6n2Bz22HtFr8BzHMbtnOtG02fxnQcZD/68HYe5
5F7vjJBZbFHIFisWNw5+F/GOfpdZrH7mC/1x+ThIn6YFO6rP4lX75Q/qXH/g
+72kyeCiGfzwS/B0YdAf4N/+8Obr5Gl8kz6ydTL+D9TWi5Y8fjqNTdXVtCWy
/kDkB49/fy2msQq5L8Kj/Q8oXH6pYkWcxvQ/e0+A+F8Yf/elxWd4EjvuqQ4t
TvwLG79OKj/V/IuHbIaexGb/hahfqbmaf/9gk1gm+ydVf0H23pz72dA/WE3k
iCYa+wt9KzMZN4bHMWHj8yRWmABDr1zjCfcxHER9pYMzJ4AnrHt+IHgEZ7ga
LheWTMIvLmPNBw59eOeP20MfqJOQ9sRsbz53Hw6bfN7oPjgJzq4ljRF6vfjR
teJEDbYpsOGjjbZl92DNMweMCk9NwTW2r3/mXnbhZklS6s/GKYis4xBw2d2C
V67d/tpzZxoKgyYdLTmLsBVx7uFP52ngndI59F6yAFcUPTrx3mMaxCRifn9X
y8Vvt/h1XAyYhiIhoRMV9zOwbGMyoSVtGoxMnesieaLwebURk9q/08Cxkhcc
T/4KXwWvbmTbzUBnk9lOrn4yCBfRakKdZkB+LjXl/I4GcL19N+T+oxk403Rz
0OVaI2hVeu4+6DcDLO/e0gInKdD9ONo47fMMmGUO9YaaNQPnaPeneNoMVDTs
j3uz1A53Qq45eU/PwKHk1ewQ3w5oPv5H/erSDGyftZY+ReqE6KiVJgnOWbgq
4Gr9Ra4LlI22rEXIzkK/EFmD/8QvsC40Ofv2xixMltV3Fm/pg4PZokJbHGah
RfPLwEOzPiB862r+6DIL+h4wfiaSsQfEWppmvpiF2fCHT05t7oeBpzcs21Jm
4Rmraf559gHIcJOTvJI5C3p4zKYGBsD7wXj/aMEsnIu5KWP4cACkbe/YLJNn
oZLHJunFyABY6zrbi0/NwhGt1lOBOYNw8ITqvsTFWfj0bHzk9tggENRXpvYy
zUGP2yk5g61DELfX4x4Q52BrEIqUcR2CAUHfR9aH5sBg4lIg+55hyOA6pf7n
6ByMiwxdYr0wDN4E7n/3tObA0b+0heAxDNL0117PLsxBctAe2Q0yY861h75I
dpmDsT/DF4YYc+kgxVT3wJM5sBVV8G57MgKEmi28+S/mwPtZ+FT5xxGIy//w
pi5iDswt9IRC+xhzKfPKufNxc3Cm9oW0878R0PwiRepJmYNQdfJuI7FRGPiQ
GDZZMAczzFWwcm4UMsJsL7qUz0F3h9pSBWMueL/ZvZWpfg52j0qtvvIZBWmv
tA/E33OwrAAx7JmjMOvqcCVyZA7CJdRVC6pHodTpgNSOqTlovLyHx65nFKyv
ZyUoMdGh/HRObjYLDQ5auNwo5KSDy8qxjvMiNCCYHJE7SaQD8xaPggkZGlAN
VscattAh3aosykuZBnE6hamm0nQ4db0dC2rRwAl5/tcnT4dJvjnH9+dooHnk
+P5bh+jARc3ikrakgdBBlpmZo3T4GCo2mnCLBgPyFRmPtOjw9ZTTvZ33aZCx
4/l9ljN06FcylProTgNv8dMq/hfoYMfsYy/mSwMjEZ4lYUs6HLEndQUz7n1p
/vq8DzfocDxPZok7hAaz7G8e73Kgw+WONQuvCBqUbpzV+OZCByVNWuriBxoE
LQltHH5Ch1l/1Vd3PtLg2kxLcfELOgjnHfw6Ek8Dq0dvTXPfMuKJa/c3TKSB
OYv+5Ld3dBjMy0rtZuBL/hzPPsXSATYXpr9iYBORMrGYZDqwlj89ZZXAiC/a
IyMsnQ6F1Ud3mcXRwFBW7XRALh28+T+zPIqhgX76fO+zYjo8IG3+WPyeBqeO
fHd2r6Yz6mJQsS+cBtql9nwPKHQIQ34aFYEM/vTkEuw76HBH7b8en1c0ONYy
qHa9jw47yAsed3xocNQipukyjQ5i4y6Ep4y5qDpidtN4mg5CJc8Nyu4x5qbD
pg3dJTq0H10yVGTM0X1erxXUOOdBwkNaO+Q8DeS5T5cdEJyHgOPqB16fooFs
MKvZbtF5qPa3LMs+SgPJxMfPReXm4V5kJW/sdhps23dYQlBxHtw5rv29KkiD
rTmzPzhU5+E4Iar0IhMNSDW3BhZ05sHHLGNwjNFfgkYyrpOG81C579Qz37pR
4O3uExgxnQcWQlOtee4osE+YarTazkO6Nc/egjejsCR48l3m83mQCXKYtlYe
BXoE8/7UN/Mg4nRVYZqxV81IF1bEhc9DlEWnQwnLKIwrKc0FfmL4EzeKV24c
gZ6L0gZ3q+bBzPvQtL8FY4/r7xmybZyHB8+TXKyBsUfaRTy+0j4Pq6w487nk
CFDcBD8bjM7D3Zzmx1V9w1Aa+49lL8cCfH3tkXzq0jAU7c6P3CmwAA0sXYLV
ysNQkPHggPjmBaCs27MnEIfhR/lfSx7ZBYg/GGz6sIqxd9O68sZOLsDCoZuf
S/cMgb9ijkOS7wKwEu7duN0xALUH20ceBCyAwJ+5W7e+DACn8qKFdtgC/OZk
GRr2HACfI4f1hxIXINLSy+GqzAA81syRk65YYNzjYbRQu36wO5/T/4FlEUwG
wnt2417QeZhjHPpkETiuWfaWEjqBUJxz2OfRElzP23oh5Fw5pPAJJa17L8F2
rzsR4afKwOiyvbDLqyUI1pKwfAOlEL8gOXMragkojYannu0tBq29fimGRUvA
5nrG1EAkF3wjzbeJEZbhzmcNVeuQaOB+wMyS8XIZTFOtnde0c3FG6WXHPUHL
kHnTnS1WKR+bCWb3JkQuQxlnb+ec5E+cmmr3Mzx1GUrkllNvzGKsP9D8wL1+
GZrfuXvpF5ThAMMk2iniCsR/+Hi2ZaUWE+X1GnrfrUBK+LhAqGgLHuGIIVbH
rsBqYOD683stOH949nx68gqcU7G+HFjfgq9/jOx+krsCevf5PXs8WnGu6DhN
qmMFnO97Com2tWFLjpcs1zevAu2OYvXWC5340PCvk/rbV8EhS2/WMrYTc5Yp
+inJrsL8TJ9y2HgnzvDoEGQ7vAoUydwXbY+7MNuCrESSySrUNo9z2Qd24y9D
laq00FXQJw7vdX3eg71Kt7pRPqxC8nwbWbqkh7Gv3MG5iaug1nZiW9JyD2Yy
33TyZdYqrBd87ley/Y2Nm22M5VtXoV7jxxcjpV4s9z0vTKhnFUrYgzU/X+/F
awF8XStDq/BqoiaXEtyLk3SzrOroqxD4OTgxYLIXr5Sw3rEXXoPa64FZ7bp9
uDHm4vfz4msQN3yMqmbZhxPcv9DVd67BcMlPHRbHPmxw5PxjPqU1eL3WL1IW
wngPb04umj+6Bg+st9LyEvvwEn2V+feJNbi2dIJdJLsPf0yPf/HVeA3CDkYY
L7b0YeeAxbqwy2swc/vFLo/BPqxrryfgeW0Nzt2d8L8504fpsnOhhvfW4FD9
w1Bbnn5cw6bTefjxGny9ZM/mtrkfRw9Giks+XYMMVfuEOel+fCpGM346aA2M
nTK1eFX78fNqSo/3+zVQIPAKPdDsx5UzlqIiCWsgrTfoJ6Pfj9nFJow+fVkD
GW6Ngm0X+rG21uPXR7LWgNUFZVtY9GOf/7iq6wrXGP19KGz4ej8uDwsnWFau
Aap94JZ1ux+zFMtoTDesQfmVx4H1jv1YcyzTxbt9Db4crGLd59KPvYQ0M4T7
1iDaYJi3/XE/Lj5K+ZtEW4OblOuj1Z79mMnGUvbIzBpoRTV1sDztxxDw92rd
MiPeljSFF8/6sUfOoygLwjrk8d9WNnnej4v6ONunuNehxeCa/p0X/XidK5zo
TVqHpJ9NTRQGVj8koy8svg7bJOsUPBj4sXmmb9LOdXi1TaXOmaGf/+x4iere
dYhUKpMqYNhf+dq4Wqu8DhLeQ6l6DP9HOixULI6tg6J2xR+5J/34IfPfu1Mn
12FS9ridsVs/zpV/lOpluA6W+t3ZdYz8Fo05R0gX12FoW5ZtkFM/VnEPk0yy
WoecUZ8tyfb9+EHSzsuqt9ahQ9Hfge9GP/7RmBFa67gOiz2vSWWW/Zi+hCjm
j9ahfEt5Vo1JPz4k3cg95b0Oe1jbeKUN+rGTnoW216t1mJarbyVr9eOM+388
SSHroFTE3VKr1o8VqzjmDyeuw9pFow9lO/uxw3To/tq0deg+7chfLNqPv27Z
aWeevQ43PcaYSLz9eK896n1StQ7CbJnLeLoP24c2bCFR1uGHJV+72EAf/lJk
fj6xYx1Sr+QPNlH7sDzRtaZmbB14Z5Ifnc3ow7fUOFjNZxlydgsesY99OPla
6LHJlXUg++/rOPGmD8tmf88U4v0HMfYWTj9uMd4Dl8c/XN73D6p2FS0pbu7D
13wedkyo/ANC0s9AXuY+HJfGTnoC/6Aidef2mJZeLMW040XC2X8wF+F0S8q5
F0skXnaacPoHe0wltXVSf+PNU+STnjn/AK8+83nY9wu/C8RXx/A/uF6bsPYk
/hcWVcpwM67+B0LpobOvbRjYNTxDtvMfOAhtMJWMdOOtLNYSlJV/YOGnPv+7
pwtLbF6clzy2AbreDZ5fPnbgXSCVWFq+AXZdElr3wppxUj+pWKF+A2682RZ6
EDXjXT7s3WGtG1C87wGb1RgVy9b8Ebw9sgFYNquGpEbFIbsvF3GxMqEIbQlN
7VYKDsuUkc+QYUKHrD+Pif6tw5FV+cwst5hQwXvJsIEJzChBuuuUPRPKf3jv
MNvTIqyzkjTTfZcJeT2LEazfXIjpCsH9Px4yoanLPC/dUT42CLpdcuMFE+I+
Ph2d++YHJliIe9V+YkJp7IWNnlZx+PasO1PQCBPqKdat0LZJgVKe+w89xpnQ
K2+bv8w70kBUxm7abpIJXXfJKnT7/Q0qTU36TiwwIfOppnj5TxkgWbiveJ6N
GQnQ5X1COHKh5Xmv5yUZZmTnM1gRg0pAfdvxDcnrzIjn4MVAKc46OGXe4mR9
kxnNBfkerfpUB+ff247E2zOjGmaW+2wnyXB7S0D9rgfMKHlZ8YmyRz1EinS/
V/BlRu7BPGfrfzXCEt8DVdVkZjRymb1vvywVWM9wfnH9woxs7x7WDrCjgqD/
++0F6cxo9uRYk2AaFWS5S9mP5TEj8W7fD677m8GEXaD1RC0zOqLXVxy9uwV+
/Et2NPzLjKb3vaW5z7RCsYb68NtpZpRYfPKowq42ILs1XqTSmVFeDItc36U2
GFyZhwvrzCj/0b8go6I2EFrU5L/MT0BL0fUmqo/bQUKlzStKiIB8qGYdY5/a
Qf7BrfmeTQRE0U8NCG1uh+Nzb35ZbSegxn3GGW2yHXB36lfKDUUCkvYz6O8t
6wC3fXclkpUIKL7uaI0mrQNe/McSNKZKQG21iQfCeToh5s9uV/vjBPTz0K5l
QcNOSJEv/JumTUBTxFNflRw6IfvWWaup0wQkKsz69mRAJzSMOus4GTHszVj8
O1DTCV27uAsyTQgo+5rgEe7hThi2+bBv3oyA7hx/uVa/0Qlrg2UiD68RUBO/
1pzIwS7g3GH6Ms+WgLiutipEnO4CYevxtZXbBMQaU7fKZtUFe/oEh9zvE5D+
zo7eyJddYDAqWer8kIC+K7ie93nfBXcnFWMd3AgoaOmCzKMvXRA0jzxuPiEg
qxXNXW4/u+DH2lnzqz4E9Hf59iG/ui5oY7mqZvaCgMSbzh1I6OyCJW5HUWN/
AsoaqOKtHemCrUJeC3pvCeiq3kz+6mwXqG8JbNEKISD1eo0jR/51gaXkxwyN
dwREcL7x2puzG57Ifn+rEkVA25nsKtqJ3RC3r+TO/lgCGpl8sai6tRvKlZv0
5RIYfN04rpkk1Q0j6v3yUskEtPJTl7xdrhs4tWY4t34hIMP6t+WJe7tBXo95
VCidgIz+7bNWPdgN+kbECp4fBCTGe3uoXbkb7lySimfNJaCIV9+CfFS74a3V
Aa/1AgK6t8f35zG1bsiwPX5lARPQtozAPPaj3dBy55zGVBkB2eQ9H/vFkC88
uCpGqyKgeln5HyVHukHU3XG5r46AVm3Ry6zD3aDm49Xe2UhAHyzf9uUqdYP5
q8AsajMBcWxvP0JW7AaPoI/Bde0ENGlZIj69pxtiI747lncTkPfnQVGZXd2M
fbrEsLCXgP4zyqi4vb0bhj417c0eJKAeOdfS8s3dwP6tn+fbKAHt+GOUrSjQ
DXLZM2Of/hCQzGPJs+ls3aBbyFwdO0VAu1s8T2qtdoF9OTEpYo6A1EpLTSem
uiCgTsonaJGAPl4ePv1lsAvSqQesX60SULu6z7hXWxfQ+85JuLOwoO/xb4Lv
53XBJtrVtQccLMipas08+HMXqE45dt3hYUH8QDUhv+sCt/XAMCsSC6KNJ397
e78Lolnj7l/azIIyn3PzSFztgmKeDCMjMRb05bjHmxr9LmDdSuXX2sGCtGTN
zD2lusBfRei57CEWdNPqbPCz4k74qiFtI3mYBT0/GBO4I6kTKFoHT2w5yoKu
VVAIY36dIGxstMF9ggXdvd53Y+pcJ0Q5BLlMGrEg6rXmeoG2DihyjrswasKC
+nX46vizOqDPPeNQnxkLylEIUEPBHbDTnzrVZM2CNp513UZnOiAtWehmlhML
msqsM+nPaQefVnycxYUFCUTFaRm8bgdzwn9i5x4z4tklXd9xtR24zasa/j5l
QaxdKycNOdvhhoCb8s5QFmR9XKNqQ7cNJJ2HCcE5LGjy8Ngul88tsBgX9Kuv
gAWp59v5Njq2QEMjZO8rZkHhZ5f0bh9pAffdkbdqq1mQz1kNB5fKZuj6ZUBh
7mJBzt/Njyp0UCHkRO6Hu2ssCPHf3mP/iwK379q4FDGxor1RRuIQSQHND0Ln
eNlY0cyJpkQvUwrMLNizJvOxouQnoj6lsY1gkCJ1u1eCFTXKJoUVuNQDJ/GV
qsFxVhT2U99paKka3H5bNO/xZUXv/Eq33hktArqOxgcbP1aU+mFdiPVHIdh/
F7eNCWBFrGOR5yY9f8Jln+4VoXBW1Cxvmzgtkg9q8pekVz6xojL+yGEW9SxY
fnDesbqGFX17vFlKdSEJnPn0BGz42JDugfTfjeExeNJZvjOayIY8YVDAd18c
vtHHFd8hwobefA+ef/gmAZtkVqvoS7Chu913xJn1P2PlSyctD+1nQ2RbcnCA
yXdMTziexnyODYmF+PqsuedjR3VVvegQNkR7dMywrL4CM90J8Xzzjg3Bs8dR
f7UrcUDMdOaTKDbEzSrlLVtYiVMIn8WvJbCh7/xPL5QlV+GB6i2Tsj/YUOlr
5Ym992vw+Qurb783s6FHMTumKjrIeMDXtCKunQ0xF6u7W6N6fDc3czm4mw09
bLTZ2ZVUj/3F7K2dB9nQak3Ca4O7Dbii/9eho3NsKPqN8NgSvRGr3ClqKxdi
R6cS2Nkcrzbh8pitPNmb2NExweUl+1dN2KjJGT5tZUdIjfqt+EcTvqO0P/ml
NDu69qug1I6Nij+txLgaHGRHrr9zzVOiqVhFYS0NVNjRiTMUce0yKi63uDig
qMaOHu7XXN43SsV9xYJ6JE12ZO35Wv6vQjMWfe4l3nGOHZWPvqyZ/cbYf3J7
ztZcYEcXKdrv/zY0Y6XxI8/yL7GjEMVvD/ZNNOOzZ2Ynoq6yo9RnVUrPZVvw
bw8D6QAbdmRR3fAx6kQLtk9PMfG8xY7kFdXlFi1b8EvSNXzVkR3N8Wd2Pgxu
waLaeM7oATv6o3+2JPpLC05yFpPTcmVHBn5eRzkqWnBpZ/PbXV4M+2bEzx/m
WvBKjJb1n7fsCLIf7aTqtOJjixpBB0LZka5cU3KQeSv2Mjhc6hLBjpJlYlYc
7rZizvXd0qxx7Iif87CGZ2gr1ju/w0g3iR19XT5qlZ7UigNSxb3fprCj2O79
WWvZrVjETGBAPJMdrUsbFw23tOKL3zmFruWwI/+SPZNeA604ipOg+bmAHakf
0NJRnWrFvVdWHacwO1KqsozmXG3F0jn0j8rl7OgKybZplq0N3+CfbHpczY4C
OxyqFgTa8GebUeZSMjsyTUm/K7ylDf/92XeAs4kdze5/Wqkn1YYVhbuuGrSy
Iwc+q7oouTZ873ZzYEgnO3Jz6vbj2N+Gs0vJJV097Cjd8OMWf6U2vLKlckZy
gB1pHnQMlT/ShjUcsZTtCDt6U7lFZlC9DT+pzj2XNs6O2pjvL2VBGy7fnuE1
N8mOdOYsTsUfb8McLqnfj8wx5OpZJqmabVi3IaHfc5FRL6VzdxoYOEAmmli5
yo76U9cGeBm4yS38OC8TByq2cSDaojYs3PLW0YiVA43u1bnSo9GGL+7x+/iO
kwNFxzAdvavWht97P236zcuBtoVMiUmqtOHfnW7MMkQO9OboYe8JxTYsfcD5
wG0RDkTvK1nokG/DNi8crn7fwoH2XlLlGdzRhpN7bwYubuNAqduWL/GKM/hS
sS7RkOZAh0kCvhdIbXh/wOWZp7s4kNW67FHM1Yadhs9L1cpzoM5ov726G604
W93gnOB+DvTiOe/WxblWvBys42VyiAM9f8tRWTnaip9oqvUPHOVAYz47o5rI
rbgs4hBxN+JANm4Kj/mLWjH7jMJxBy0OZOZg/dTxayt+HbP946o+B3pKTW9J
82/FlAXRpuPnOJCFAZvIy0etWNhAiPnFBQ6UJT9iH2DbiiPXWK8KW3Kgiead
qWLQin8b/3trZs2B/GNdaxJ3t2Kp1MXi2BsciD1PwcGS1IqTL41L7nXgQFSx
yM1WQy04K7uxT/sJgz+eyxtVbi14ia9G0N+HA90z+nVizKoFq9uUIuoLDuSb
b2tzQovxv5CyYi0DOdDPfN3lT5wtmHI30soljgP1vWzmM3/RjOXfCq7eT+JA
ipc7szNvNuOn33xDnVIY+XjGn7l5qhmrTDrV/pfBgezLouIm2Jrxh9t6StdL
GfVJs4l440rFdjfWOM4NcKD1CA0DZy3G/fTMKc5ghAP97R4QPSXWhLcl0tT1
xznQf8tvPAJmKJgy2OKoM8uByHpcSZ5RFHz4alq3BoETSTlFq2h1NGJWc8tv
8tKcSGZE9lXLKBlbPm45LbeLEz25yvcp4RkZ50TqDsnIc6Kqb7d+hUqTsV2n
yhapg5zodEL+s/FLdbjJRODpZk1OVCLcX19ZVIOjzxWbsFoz7G15u5R2vRIf
0ZH+1/ORE7l9M1mPfFSEleJrX1QlcqK+W3ki/wUV4n0bTqTvnzlRJ6/3Db/P
Pxn/b5mcz3dO9GyFL7+yNR/zyNoYy5dwolCbIB5Z2Rzcw56c7NzHiX7/avaT
u/UNe1XuNRbYzoWOfbgV333+BnaTbutZkuZCujIOm89rGoCzh8fNgV1c6IWW
WtvRbCewU2l0z9rHOP9L3paGXoBx0t3ky8e4UEDU50Tv2UiQ8c1c/2TBhQqW
k8N1Nn2BGu0jySiKC10QDn93j+snPKzy2OcZyzi/5hXoNvsT5E6X/yhM4EL2
V8tPkboKwVffsEQtjQsZZ0a4VSVg0DK26VIq4kKRX9g6vgaXQLFVIO/uPi50
W3rTW+6Jcrg70BZkO8SFOmeuOfOcr4Dt18W3JNG4kMIDnkSh/ArwsP0ks2OG
Cz3n59ou87QS1O8UHttG4EbhJ1lb5zmrIefx2F3iTm4UrzE1f7KvFm6s71s0
lONGkbn3lLlV6mCT5333AAVuFJS8eWu0Xx3c9954yaPMjQQ5xLcoKJLh4EuR
eLaT3OjMypsfgfb1MMB9ebeWLjeSiNf088uth0D/2G/eBtzoa7jrqAZLA0y/
2fNzw4QbbfDRZGtDGuBr2PHWZVtuVKpHPaOc3AiWos8vq9pzo1pRxYCisUbg
iyT3O9/lRo0xYg2LwhSw/2A6OfeQG3mfOGkraUwB+YT/OCZfciNt0TwlpSoK
dMlkvlYI4EZhW/JOuQ1Q4OWnJdLtIG50TcoxVXCdArSUp5K0SG604FCwVUyx
CRK/RxwZSOVGp51U7T++bgK71cvyHd+4UQPTslrdxyZQ1JYQa8jkRpRbxLfG
WU3wsyNuLa+AEf/cxJB7VxN4S9tMfMPciOyV/k/ibxOcspf9nVjGjfg1yVTx
9SZo3kjFgXXciH46XHzvNiq8O30n/XkjN1KJr+08pkAFy2DFj+7NDLmmdV+q
GhXGd2V53+rmRtwZ4eFhF6iQftfl3pVebkb/3SkkWVPBOf/I9QuD3KiDXXzz
n/+owGxQpH38DzfqrLv25tNTKlSGP1E5PMWwd4/5nP9rKvj3a8runWPEa+/u
XxtGBaM9bKI7FrnRrNRnKesYKog+qOLcssqN1N7zLxh9osLvopfL/BvcaODn
FD3qKxUSOPXHWVl4kI+xtgDKooKdEX/3CjsP2jJdeFS9gAr7oyh109w8qCzo
p3NgMRXow0E/R/h5UNpO01KooEL+/gtpv4R40ETx+V06NVR44ro5mrqJB5HJ
e9I/kalwsqwzoHorD/qvd8PpaiMVePmiPIskeNDgw5jn95uojFeH5d0f0jxo
9oUXbz+VwV+s5NWUXTwosqJU5lMzFSzGB87FyvMgvybp9UoGllZK1Azbx4Pe
HWQuRQxMc7c95H+QBz0SNfsszND/WrV7p7cKD/o1VzqhSaHCfeJf4YdqPGij
50ZjXT0V1C5/ZbtzjAfxNhFCvtVSgSnx7sI1TR507nu/72Qlg9/Jg6OXTjL8
yXYsvSilwivV+XZDXR7kpI+QZyEVznrnVGsb8KBKmfncphwqbCK75h014kHL
9DPlT75T4ZeIesoBEx7003RLjX8KFeKu/IuUNeNByWrvDi3EUeHm5+JX2yx5
0L7ohw8KI6mwb87bjWTNg9j2UdgGA6mQ58thuXGLB92Wl+TS86CCB6XGYP4/
HqQuvflZwD0qaG31hz+OPEjtnPPVgzepQEkTlGp35UHaLWXPPxhSIWyRSqx3
50GmcRusNzSpYH48lFDmxYM4FQ+cDlSiwmjLlqGvL3lQsbNOpdBmKnyR+NWS
8Jphb3zmsh0HFZxuRldEBjLq1cjvJLvYBP9WpT/5RvCgA2ekia0tTSCyQ8HO
8jMPMjuRVE962QRvg16ZfE5j9Is2i+u0UxNwE/5o0r8z6qGucHy7eRMw9X8W
88vnQWIbApkuCk3wN1q2PquOB93/mnhRuYICtvzP85goPIhE2LxY9pkCA+4j
iXotPMhS4/3dr68p0GGe6NH/iwfdjSfrRTHug/KtOxT5JnkQNVc7jTW9EcDP
W/ziLA9q1PBNVXBohPzlfs74BR6012l8VnpvI6R3xParbjDqYeDz1DexAaLC
JIKvC/KikZdMMl4v6uG+0NaFgoO8iE34P8EdW+tgyst1gP0wLxovv3Ipo6oW
7GY6Gs4d5UXGLh262vdrwYoS/mn0BC+a3OHc4lNbA/oBIpdIF3jR3l9fZJpv
V8MObuJPOxde9OahQwHvswqgMnN6b/nJiz4yXWJqNy+CybQIy7PFvKiv7uRB
cf9C4DLbc/R5OS/S4YCXLvk/AWUY0OlkXhQut88wSLgAvlqH3qD08CKrGzYy
2jgHXpVJ6z3f4EXN5Ro6mxfSQeuZhvC8Jh+6MfAssWXvS7A60Di9R4cPcfDN
tNRresPjHqt6az0+tJYR8EQ8wxkylH18KcZ86L6L4KTBF2MsOVK7lHqdD5md
msv7svgar5282GPty4deOqQYHBRJxFmc95IoNXwooeO/orGQHDzi5jVRVM+H
nvFG/kw3zMWiM2+U0pr4kCGd3+AeVx526/xS+rKTD52tOLGn2TUfa6WM/NYc
Y/hL5Npz8UwhpuqZbc7i5EcR/7ITD1uUYNbim5bxvPyoy23lotj3Eqyi5JIY
KMiPCkUm/jNkLcWR4iGH7ojyI5k/r45GJ5fiqxP1hrJy/GjN0dA0gFaGpwOO
v4jQ4UcJF6/seHOiEkuznG18rsePOJj/7Nd/VYnPu1hucjbkR0/t6+sOUitx
7pXHCUam/CjWu5X5vkUV9lTMKuax5UeJ5xXOv7pVjdMTyjhW7PgRsf950KWU
ajwgSjWg3eFHP+M8KGi8Gp9knvpV7syPvl01iDayrcH8VLlld19+9HZpKsrQ
pBajk4eRvR8/8ry0nvf9TS12ytd+bhbAj3wjwi9KVNfitjhrkcNh/Kjg61cP
QZU6/OFe1IHpRH604+0DUQV2Mm4YTXn4+zM/+jxr+i3rMBkzmedhchoj/0N7
nTVukvF1rbYzn7P4kWsFv4hmJRkriAjaWVfwo+NyDdtXH9Rj0reCL4k1/Iid
tY1eGlePV07ZTtHqGXwspyYZNtTjarei+w5t/Mji6PttGVIN+Nsmu5yMLn6k
oe1y/NnpBhyWLrIy/5sfvbfM39jMeP9eH7L3dBvlRwvMgu9c8hqwnodoKf7D
yJ9b8ojmrwZ8ULSclWWaH8U4fiRUrzdgJn0xv5dL/Ghvtu1eZo1GPDpcSSav
8SPtvs6iDLNG3ODpJCDILIB2S+3oFHNpxB8ya0LCuARQuA5fJPFLI/Y586C9
k08A1UJhV1R5I7Yfldy6TUgAbbO61fGruxEbe5HNrTYJoB8FZ5ibZhqxmtjD
mPitAsj2ietNdRYKlsraMTAiIYB+8YjSxngpmNOwcaf8DgE0+SG0dlqEgtu8
d6Wk7xFAI4KlbNy7KLhQnPp3br8A4i/5LSK+l4ITst33H1YSQDWXshZ9D1Hw
q7O7nR6pCiBd0+hw3SMU7DTe8qNQXQDZpYTTbhyj4Es+TxaZjgugb3dPDHVr
UjCSUFDTYozSyVsjfp9PUrBsbrvb89OM+PbcGGw8TcH8Rk9x7RkBlCeos2qg
T8Hzf/YR+I0Yo3f888guAwr+9axL65yJADpsf7rY1JCCy7b7Pg8xE0BGF1w+
9zNwSt6B2nZLBj/mW2rLGTjQuIdX7JoAOtKReJaZgR9OvDC0tBVAM9KSTuFn
KPjKc6Wgj7cF0HSZsN1zPQo+KdXXMuQggJaMQh81naLgvQWvNsvdF0A7tyn9
faBNwcIXDpvdfiiAFF9u8D04TsGrkwNRX90EUNxRd+VGdQoeeBHQO/OEUb/V
hCKfwxRcI60mrfxMALle6OYJO0DB6T+Hrz98KYCqWf8+Y9lDweEmgZ8KXjPy
38QaVb+Dgj2m1cf/BQqgEGpqGV2Mgm38aAqaYQJo3qb4oSuJgvV3hjg8ixRA
K/r/aZhzU/DWi3/oPPEC6HGr6lG3v42YeTbssOEnAdQs5Z7n1taIaa80HwWl
MvKROT+sgRtxNo7YEP0hgI7d0zDneM3or0vamua5AmhT1+5zQk6M/pqb9on5
KYB6Ko/qDF5oxEayp7h3VQggC+8sgZ4tjXgqYEH4UJsA8iCtvr8c3ID/TkuU
7u1i8GvDckPNsQGPG+k4yP0WQGNnV38IGTTgoU3varaNCCCqLb0xi7UBd0Uf
8eBcYPRn4U3LGZt63MFkvYdlRQDxMY04Vx2tx63Wfh3r6wKoo3t7Q7xgPb4Z
/F/EMkEQDXDsV3LOIWNr06K5SW5BpFq/w/vHch2++sJI9y+vINLoY1qZrKrD
VnkjsWP8gih4ZMH5WGgdthATMBgSEkS0Q5YuO/fW4Yu9V5I7twqihWGdRW2j
WnzGltmiXF4QlU0FN5fcq8b670IzSxQEkZj+zRRdpWqsW7ObG+8TRK3jsvE8
9Cp8ao9RTt5BQRT2Si4NHKuw5lQc8ZuaIPK2EbbMsq7Eqi5alRG6gsgw+ZmK
8M5yvOP58/0OdoJocU6N97BtEXZqU/KwthdEekXHO5rKCnGxzAD5wh1BtOm9
Q03I9kJsWa5up+4kiJhUsxs/txTgSObZBK5HguhC88yrdOU8LORmvjXhpSCy
F7IPPt6RiQmOB9g6kxnxrjl+sgv8iM8V/zYmpwgi2aP39E7uicWxAv5x+Isg
kpcmVLa9/ICPfR2BpHRBpCJALHw6FY4f/Xn/6F6uIKrbtcJUeO8lnrVhn+ar
FkR79l7+Rzz+FAbMurs0RwXR4Lahm8+yU4BXw/ST1ZggOqZq5h+7+wsob2++
5/FHEN1QAfkT79PgxWAtb/6UILr8olVxTj0d9tvnHzuwJIj81ZtGA4iZ4OYe
Ebedi4huH/7O/s0/F5KuiDho8BBRfM0X+rHDedB4PPDoZT4iooT2vUrqywNp
9pctYUQG/v71/OD+AqgOeMjOv5WIYho446/jQhCJNbVbkyci5wT1pRiDEjjm
3ayydS8RtZZ+UjkcUQI3rxuyqO4nogsyHBTuwRL4KacTde8QEWmeIemY3y8F
6+8qDeNHichp2vmV5esy8A/OiOQ8RkS0HfQvAU1lkPVgn+0uRETc7q/vjgiX
A6faLiZrLcb5SnV5lohy+FoqcrBTn4hkzaa9voVVQEdC4L8FAyJKO1/+pqu5
Apif89UJnyMi3oXE2q2ClXBej+362QtE1C3voEl9VgmrzfTQKgsi4km8UTRo
UwWnhpuXs+4Q0fdmHYmRhWpw3xPw+Ntdhr1mgf57UjWQ4XhqPdmJiCwaBj+K
6dWA2L+fTFHORFQXv0f7x/samNyUxOHtQUQ5gQ3TYwdqYYeF1cvHT4ioN3Di
tOyFWrgYv5XngTcRZa3lVTxwqYWS/W/4b/oS0fuP5y5o5tVCyKmHIgYBRGQq
zrH65EAd1AQcDNd5S0SJ5IIL+87Uwb+Wv6LHg4joi5su/4htHdhevSquFEZE
keWUdsfIOoj6JBa99x0RWReGfdDKqAPKROt22Ugi6hntkt9eUwdqj3R3bI0m
orOeHdfG5urAoZg1kRRLRI+0iVwdHGRIYMe7+OKISIiDfJO8lQwd+q7J7AlE
lHvtgkilAhn4gg/JMyUR0fmzUZ/LNcig2TmRuvyJiOYiD9VUnSGD8/bkvXOf
iYh1p7FkozkZ+lLFD4ykEdGeTafPjbmQQWS2LaP3GxEFezZ+XX1KBl3VQKXO
70T059UxPeIbMnh46GVTM4koxVfg3+4IMmSWs6mSs4jo8fLVT9pxZKBxF+dV
5BDRt/aV/ddTyCB+7tFRnEdEbFdOvHz2nQznwpUKcwuIqCxNJ+1zDhl8eyaP
ZRQSkRR/VjTlJxkKdnwuTsVEdH2x/eZKMRmmb13TTCwhonflEdtly8mwM31b
eXQZEZGkPHpNKslwaaFd+10Foz/2xNa/rCJDgHpQVWAVEanof9tczMCl3vqn
X9UQUUX1n7llxvnFavY6nzoiamPd8fFwBRkUBEr0PeqJKORJ6g3XUjJcvfC4
waWRiHa+sgrBRWQIe6981rGJiKq/fPDmzidDbf9Uk10zEclVHwky+0GGDdkU
4+utRLR7zkshPY0MSneut1q0E1Egh1IZTxIZbv6QMDXtJKLPfx5S/vtAhg8r
HR1nu4loPuh3W1swGago2Ey3h4jycs5d1XlJBo7nZ36d6CWiNf3NLMXuZFCv
57DU6Ceiys8VpscdyXCXVNqrMkhEJf9psJCvkSHxkttVxWEiQtvjvltdIENX
jMrg7lEiSnhqtJnpJBn4R6av7xhj+P/eN52iTIaHTjY3N00w+nE4besuITK8
0Ju0VZti6JPJ586u10H4ThdbyxkiEhFTE7oyWgfZbS9uJM0z+BJ2a9iXWwcV
34g3aheJaHt7kPJsdB20vIi0mVwmogNalmvRPnUwp/bluso/IroscXUxT78O
CMLK182YhBBdKHlCfn8dCE0UXvMgCKFs949VfoJ1oBjTaF3JLoQkncu3b6PU
wh2WOSsTASH0swa75mrWgvuvx1aPiIzzCb8vk8VrwT+L1SqaJISiO29J/Zqv
gVTbTVdGNgshynph+EJCDdDqjlg4Swoh+8NlEvqL1XAt5MmlsANCyHhx/TK6
UwVO/3Fdyj8khKY+Bq9tqFaB98mgi7+VhZB6NrnpF6EKYpfiTXepCSFOn1uf
F4Mr4bd51YVsTSHEdk28diG1Ai7K8Bu1GQuhgBHzEbOsMrj5L+zcygUhxL/V
SXfbvTJwad9+TuKiEHqicyZrl2IZhL08cPaGuRDiqgkjbU0uheaJ8wYL14VQ
uEyIf8ubEjDIfq+7yVkIGVnGRDl5F8HNOesNkYdCqPBE2ZvquUJ4qij/Q+SR
ELpdMXdU8Xoh5KbkbhPxEELFAS7ppzV/gnRM6zTJVwg1XhiWOELPg4XnAuHE
MCEUqnZSFB/KguhLTwd5sxnnP67z732bBLlhuu94c4VQ/4Fwu2v6idDcTDzD
my+Etn0e997OmQCcBrHZPEVCqIVdvtDE4yM4aRa+5K4UQvFVdpmsDe/g5J7F
/ZxtQqhDgeSdGukIk2t2biwLjPjKy1RvLX3Ely7q7V5eFEKvUg9oHtgfj8sz
97RNLjP40Zq+SbJJwBF2f/d3rQuhxdIBifX6JKzV8d9gOhsJVTjZ/z0dnIrf
Z97VtRQhIT2pfW6+jhmYXeDcovFmEhL9oLfpKksmvmt3IOH0FhJiru146RqS
ydhHZ9eVtpGQrdRHsXM/fuDZgHvfeWRI6KoZzz3R8Wx8ys5ZNE+JhF6aRZoL
yBfgzAqTiq8qJCSgk/DvY1oBlpA67JSgSkKaupM/5RV/4rn2xbo36iRE/yXy
m+9gIY7WdvW8oUVCoXwHhJPlMKZLuo2QzpPQbqWpll93SvAVN/NgLhMSOiWc
+p/tpxJc266ONkxJqLOwcpNBbwmOCViPGL9MQj+MZaPlzpRi3TWPMyXXSOip
z+6/A5Jl+GO7148790goJNt8heVTOR6pUOwNeEBCsQv1uy06yrHCj16uby4k
tNiYX9TOWYGz32pcmXpMQvUKWEXetgKTTy9z3fUhoU8ru1U3banEQqrJSm99
SeiCka6CPuM9a7rL9Er6CxJqiCr/EWZfiQcIWT+m/UmIdvR3w7WflXip4O4V
x1AS6sfm5rlnq/CxlO1+geEkdJ00M2R/rwo/fdfw43sECREjV8P3hFZh/gcK
3LMfGHzVK7OWtVZh42vdSkKxJKSUQ4mIYOx/7875XTkYR0IPQmuEnIWq8Y59
tB9OSSTkGfC6TV2vGt8UD+8NSmbw9fKNgcyNavyV+yR3ZgoJCZ24zSr4pBqr
jsZfmftKQuKtQKelV2OPViM/0ncS+tgsltZaVY3LypizDmWSUF9S3MeSnmps
EHuF+34Og++pwC8h7DU4JIBfOSSPhHiuq4Q82lKDO90Kr/woICHFfWxmFntq
sMRte7+WQkb+f1yeqKvX4OuXxLLomISe37QJ2axfgz/r1PYKlzL4mmLZO2lW
gyeVXbmVy0lIWvXPH3yzBivtlFO+UElCbwdF3P0fMC4pofYrD6pJqC18IMzY
qwYXMfn6hdaSEDlNeEXYvwazTillZZFJaMSlxZESWoNP9wz2tjaQUNf2b83P
omtwQF0Q9wKFoS8WtqGUVINb8o4rb2pm+Dv6u7fnSw3ekjx9RaWVwa/usVtP
MmqwZViMn0k7CaUb1EeK59TgBB+DLOdOEjp2mckjI78Gjzut94Z1k5DJ6qdd
moU1eP/VL9w5PSRkfXgio66oBt83vKzc3ktClw8Y6BniGpyvwW212E9CU5ci
pesZ8o09eX6bh0go+djkA22GvtbWm1mHR0jo4MxX/1yGfT/OzX2mNBJa43iW
u4vhv3GhgvvhOAklqZpeeMuIT3j4vvK7vySk7a9VM8+I36x5h1XuJAmJ7Iv2
MWXkF1NC9euYJqGylj7mbEb+Q9+8spZmSSigMq2CGFaD5aMV+0TnSWjsYZnl
bQZ/Dv693EcWSSi/bt6mjMHvj0cBypeWSci/T8Zjq3MNXrmpYeW6SkIPA46c
d7xVg3UL5NGDdYa939SyPPMa/J5PVNJxg4SW6yIO7zSsweoZs703WYRRvumx
sqsHarA/ax++ziaMhgbDjqhI1eAek/oYKw5hdGiCxXG/YA32WP105SKPMCJN
5RwI/lONG86Ewnk+YXShKOP8Rns13h7rvf2sgDDaWiJqH1xWjYu1LHp1SMLI
xbxyVeVdNWYJELpyWEwYpe3bVffscDU+37dx7NA2YTQfWOOnt60aJxyckNi/
XZhRf3Gm44RqfLK96veuHcJIoemyE66pwi8k3S037RFGrS0C5fKGVbjDye6Y
0F5hdNtgxCBgXxXeXWEqwb9fGBFr+vj28FXh2lsHf7MdEkaJZ7NuiFRXYt7M
UYt5NWEUcS80oVmpEpuztWrMqAsjpsSC0l38lTjNtHTbxDFh5Jooe6RopAIb
rEX1DGkKI/pxC9Xi0Ar8VtvIokVXGFXr6m9S/1OOhTt+mmeaCTPuBybNpw/K
8HX5FPVv5sJI+Vsi6jlRhrPcwsVTLYWRpErx1TBiGTaRcvoVZy2M9sjv9tib
Worf2cmaB9kJI2GBXZY720vwtvXAy46PhFHK5GPPSVIxPjVwJi/cTRg9fl+u
dSMZ4/tVXJuLPIRRydFHh0pkMa4N9KJyP2X4a+icYN5RhJ13OZ5OeCWMBjqP
XdLl/YkphmcPt0cJI5AzfDX3NQd7x/GTNLAwSraNHfb9+QWnPa+9e62Ewd9d
PhTwIhV32Ps2vCwTRpsTaPI5xil43+F/L9uqhNFYuJBn7Ogn3F03wXSXIoye
2f9HU+aIx0rz5Mm4fmGks9Vhq/rVIDyi86qWk1UE9afuoQ7MhYC1npWkDLsI
Wi4PtIk0CYceA2Xn45wiiPN73euJnAhoudAr9YhXBBWEeERyOkdD6bVDrn+E
RVDAYw320sl4+ODZLdsgI4LUqecmcqTTQPRpuvu4rAiaDjB59+zEVwjxfdbM
Li+CEsR/249bfwO/1/s9YZ8IqvbOmUhqSIeH75+2pauIoI5EennSRgacz9nz
LFhHBJHi52TcD+cAJZ+p+9tpEXTfnn5MMj8H9IpaFcl6IsjeuDCr4GguaFZ4
/mI9K4K2lxVdrD6aB4rNzYecL4qg2W2CJzL3FQDv1OOBi7dEkOt7PdaG7iJ4
MXtW9cFtEZRnP7G7Vg8Dy4JMQOB/IujpUG2qcz6GlbXGI7WOIsjyPlmHdrqY
8T7YGXj0kQjCpKZiXrESKNtFBolXIuiTIG/G78hS0A3o1d30miF/mpbsXV4K
lPnZC/xvRNDx9FdWjydK4Xf5Fvt/QSIoWHGG9YZGGSxZ2777HSmCyiN6+f61
lIFH7aP4tigRxHyvsUlmuQzYDgZ8bYgWQcqqsp3vxMtBiDmrvChOBCmt8tuZ
Xy0HhRjCTHSKCPqye4igMVAOGeyb1sK+iKCfR4R3xjFVwJE7uznefBVBD9pb
Y3QlKuCkxtltnhki6NS/o/usTSugPuGanMsPEWRSsxDS6FQB53ldDjlki6DQ
ksf/3F5XwNXuD6ev5Isg97xddSHFFUDT/H7e9KcIsnZKylnvqIA7KeVXDItE
UB/xa178dAW4uf55AKUi6MMC++WEbZUQtvlI3PZaEeR3mGuz7Z1KEPfUT9tM
FkHXxX75fHpSCfEjV3IFGkSQSvZuJ8mgSkjP8m3YaGLwz/uHOT+jEg5vi+xc
bGbk3zlC6SyphCKftKGpVkb9Djg9VKRUQp1xy0pvp8j/Kq7zcCzaLw7gUUib
evXMDHmLNrTQo1KEOZYs9UZZE6KUEEURSUoKeYUkiiRlbSGVkOXgmXkeeVMS
bSJriiglW6Xf/P78XHPd5z7zvc9cMwMdbdOGT/YKacvSHonXzTyIWyFQDxoW
0q8X/pxd38KDLxWu0rliIto5apZCzXseJJlKG8+cIaI/DCopV7bz4H5QaX4W
T0R72a/VKO7kgepVb9J/voj+Xmmqe7ebB+EDE9aBS0V0kIqjaU4PD6aVaJvc
XSmiJ8UdtLr2iQfX6dcvFNaI6PCRUzsv9XH5ugT1lGuJ6JnOiR5x/TwwnJTv
f0FPRCcIc/0iv/Agd8NAYKqBiJZXKz9xcpAHh+wvf2veKKLTL9ZHBX7nQUrY
WK+5qYhW+d150ecHDz4a6vkOm4novD0j19xHeLCMPZbSsElEr30y7bbLGA/U
3uSEd3IuWz2/aPtPHjgLrtiqcjZI4Vdv/c25ZoZmBlfvsfjGOtM/3PN66qyt
tbGI3uq5/TWIEfDw57GvWoYi+uXz/Z3rJxMgHr3Q0IYW0U5aJwZWSRCgH3Iu
IUtbRHddix9TkSLg+9EUvtpaEe05NWuKkjQBdfd+eH9WE9H/iUeeM5xOQP3p
7mBQFtErfnsQbjMJuHf5fH4Ol2fMyOa0SBkCjt6J/XcJl/eXwZUqt+YQEGqB
aUXTuH4+yxTUyRJg7W5w2vmPkL73YVDrK49bv9v/7d/fhbRfc+HmtfJcP9ct
YtteCemmpqRGOwUC5PIid36oEdKa9UedguYTwI6cOilRIqRHGd2DuJCr7/BI
7EKikLbHBaPtiwkwPzssN/m0kH5UIhY6RZmAWqplONZHSB/PY+PNlhPAS61o
mGzC/T/lZM/zWknAnrqm559XCWm4cTYjRp0AgUzxxWE5IS1+acvDF6sJ6Pi+
/InPJ5YOD21646RDgPqCRwGKISzdc6xo90k9Al7zyzvVd7G06ZHLfdeBAPlu
7fsehiw9fb/T7x4jAtrm+fftkmDpOOtuxUNbCLit3xEXfYKhB81FuQkWXP24
HXmEI0NbmuVqFG0jIGtdR+vLdQzN0/M2+mVDgG2AZM+fzwI6WfnHvvCdBBRn
B9KLzAV0xviU/OSDBGR6Fmbr9FfREj8+rCv3JUBYZKQzWl5Fu32pqXx/mIAP
moX9kjFVtGpXdMPiQAIOdEY2L1lRRefVzR3OO0nA3r/0H2S4VNJF1xbrCs4T
8LLlZ5iSfTm9+I/RsaoLBPQq2oVcHSij45z2luBF7nxWq1YvDyuj3eWz1pZd
JkBi97H68NxSWj5BWa0wnQBLh9R/8vpK6OCIZQuyCwjwOFOVYGX2kDY4sErs
3+cE6M7ReOwjc4d+ukGHtZxDwvBms4Bx7RMYVez/01iWBEJFvtL1VhiarM3n
b+CRoPAmKWOwKAIr1RZeXSRHQoXarfyjT2LxvtLUgCFFEmoCuiaXf0nCS1KN
KomrSLg2JOXX1nkDXV/sj35jQUL0N2dDsfACVNyaWV23jQTRueZO/fECfPek
dbTKioRX9JzcRu97aCvctvemHQmfvpilt1veR9OSdXrHnEmwEH9Uxp9biGpp
k78qHCThomyt5xmfYuydp7t0ji8JlH7QozWvizH70hFHicMkFOfedP+tV4KK
8Z9q+o+Q8FyirLxO+hHKnnmWXhFCQtcZR/7shFIc9UyxcokhQUNstbl7YAXG
Bt2QOhFHgtD3oOTVVxW4NOpWaWo81983siVqLaJNbumi5kQSVJs8Zgf3I97r
af5uk0aCQZKZS35WJZqNdGb7pZOQ3FGSNlJfiW2Snx0u3CChVjHPPGa8EmWW
/hLUZ5NwNnH027XNVei1RyFh810S6tRrizW6q3Cy32JTz3sk/KiJzGSlqzE5
bMWvyAckVK3Pu5eyshofX9fZIywmgddnR8w4XI1L2x3X6FeR0KeRM+vdUDWW
f93z0VlAAvoXNu6VFaD1JO8rISwJUxTdbFX5AgxbcHxK2WPu/jzSfOw9Bdjm
lNqo2UBCu5/3H4MXAgzwzoy0aSRBSfWpx4k+Ac46fkfH7yUJ8v66ywbEGdS9
Up5R8Jabj6H2i87qDDbeYrfXvyOhPEm21sWIQa/SuhlfWknoCdvudn47g8lv
W/xWdJJQmZxgFBLCIL+3W2VzNwmzhCstteIYrBnrf+fRQ4L+XmVnpXQGR6gJ
o+w+EhL3NXgeqWQwRkVyjO0nQWXMKbDjKYNL18/iXlAk1L+bcuPoOwat7ebz
Fg6RwH9sWKv8g8E+t6WPYZiE+3q2cnqTWDx1RO248ygJLYXBy0KmsSgfrskP
GSfB2Fi5rEeWxYKLet1XfpGQP9vwYpACi6aZxpdLJ0hom9A+o7mYxbYH5lve
TqJASm3Udd5yFgMYW7ExcQruTu6Yo8pncVbjzkJSgoLk/pYAZ00WMzvdPDSl
KJj2xDyiQptFne8H/raR5tZLzdU21mOxUTzg+eHpFMSYR8YPA4v7/zpxJn4m
BTkSJ1OeGbAovjBCq0CGAna7iftzQxaT+bH9z+ZQsP5P2txfnPn6SekDshTo
5FQwFpxrtqbZzCQo8Jc1zXyiz6In010hRVFgL/J4k06zOHP9ChVxeQoKYwW7
y3RYvHvr0Plf8yioS/U6qqDFouWCkvHhvymIHn3pUL2GxaH4P66DC7j9LZ6Y
56mzmChpXNenRMHeS56pbaosrg+K1vywiIIuX8XL9otYbO5vSGtbQgHPJvey
HJdfyC456WZlClyjpX8rzmVRscn5UJMqBdU/zir7TGex2jSr+dlyCsJj7odJ
ibO4p+yzUe1KCujHm071jDAouWp1HqNOQcWdTcmz+xnMvXGURD4F1wTvTcPa
GRyIkuy9v5aCI8utjpvUMBg38Y9V3joKWl22KSQ/YnD1oQtlOVoUaH+lTq+/
zWCgvWJsqi4F+4TWixzOMShf5zaaRFOw41hsRlswg+VwZ1e8PgU2S2VPPdjP
oLiK9pqIjRREbvFX3mTCYEbKydRQEwpm1H52n7mGQRMZkWSwGbe/a/2YkiKD
0cNWb3y2cHl3oa7BsAB5rHfIDhsKQq1h4kiyAIvXP+ixtqOgY1K9/rtQAe64
Pb7Vwp47z707Gy67C/DqhYhFRk4UKG8cY5TWCFBld3rNyr0UxH+piQkVVGNt
Uw9fZR8FfvnHC9jMavQ2U0tZ6EHBA4Oo054R1XhvVak36U3BnIPbXrw1rUad
P41/iflTYGf/0yGAqcLWQ/OCfx7h5m9b1OKO9CoM/bCr+0cgBUGqvpZFIVUo
rBso6g3m5qdpGZWlWYUWV6Y6NZ6m4GZL5cCjtErcraWTnZ1Awa0Uwu1XfgW+
p7fFPEmkwKw66Y6CZQU6Grv5D16iuO+jSf/Jfi9HW6s4ww2pFFzRfv8wkV+O
m7y73j/N5OapQVvcNb0UNdKjqeGHFPj6+XxstChGcemWs0ZvKJhVlHBzQqoA
r78+7tX+txwkRxGXpOwP4orw8ReDnFvd7XcnNh/Ah6sDNojPl4OMm8ciluw8
gP/F+ExbxDnY7/cHI1dvHDJyzdnD+V+zrfMivfejcYFpVw/n4Z1jDkqn9mHv
WVnHgQVy4LKPzDK3c0a/dXGCCc5RD7Z6RTjuxImuGctlFDnv09Co2uWEsiA5
rs5ZqmCZcJ2XA+oMjyb5cm6wOW/BD7XDmN2tL4Y4i5a7vc23tUBqtsMGCSU5
iBR/ecZw1xa8Xv7qOo9zeqhP0Jv9m7GIeu6ryTk3LnnbjFATbHsqkAnkHLG9
y1fBjkbPYAiI5HxU85mTh9cGHFItb73EmZVvX1Iaug6nnnl4p4SzlQW2vt2u
jvEaq3m1nFHphOSVMGVUaMsPfsu5WeKBy1PHBZh1bkVXL+fnblNLB/fIIH9D
7uaf/7/u/fH61oMnK/4Hm82Y9A==
     "]]}, 
   InsetBox[Cell[
    "This is a wavy graph!"], {2.6871813218349567`, 0.7295427467642408}, \
{-1., 0.}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{0, 2 Pi}, {-1.3033973713199827`, 1.2309607908556341`}}, {{
     0, 6.283185307179586}, {-1.3033973713199827`, 1.2309607908556341`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Input",
 CellChangeTimes->{
  3.3914427684155474`*^9, {3.3914442099170713`*^9, 3.3914442153049264`*^9}, {
   3.391966278406765*^9, 3.3919662980554104`*^9}, {3.3919663298217216`*^9, 
   3.391966334218131*^9}}],

Cell[TextData[{
 "You now have an idea of most the tools available in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to create cool looking documents.  Instead of assigning you lots of little \
problems, I want you to focus on a single big problem to test how much you \
have learned."
}], "Text",
 CellChangeTimes->{{3.3919663619986315`*^9, 3.3919664278446264`*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Exercise", "Exercise"]], "Exercise",
 CellChangeTimes->{{3.3907459437850847`*^9, 3.3907459449768457`*^9}, {
  3.459166704625*^9, 3.45916670584375*^9}}],

Cell[TextData[{
 StyleBox["Your task is to write a two-page calculus quiz in ",
  FontColor->RGBColor[0.5, 0, 0.5]],
 StyleBox["Mathematica",
  FontSlant->"Italic",
  FontColor->RGBColor[0.5, 0, 0.5]],
 StyleBox[". I suggest creating this document in a separate notebook.",
  FontColor->RGBColor[0.5, 0, 0.5]]
}], "ExerciseText",
 CellChangeTimes->{{3.390746133084834*^9, 3.3907461339661365`*^9}, {
  3.3907468243063297`*^9, 3.3907468331193542`*^9}, {3.3919664369579124`*^9, 
  3.391966590952417*^9}, {3.3919666300694447`*^9, 3.3919667157042885`*^9}}],

Cell[TextData[{
 StyleBox["This quiz should contain a variety of cell types, including a \
title, sections and text.  I also suggest that you experiment with other \
types of style sheets to make the look of your quiz more unique.  Also, \
explore the ",
  FontColor->RGBColor[0.5, 0, 0.5]],
 Cell[BoxData["Format"],
  FontColor->RGBColor[0.5, 0, 0.5]],
 StyleBox[" menu to control the style of individual elements of your quiz \
(think tastefully colorful).  Your quiz should also include lots of \
appropriate 2D mathematical expressions.  I recommend including at least one \
figure that you edited to demonstrate that you have a basic understanding of \
how figure creation works in ",
  FontColor->RGBColor[0.5, 0, 0.5]],
 StyleBox["Mathematica",
  FontSlant->"Italic",
  FontColor->RGBColor[0.5, 0, 0.5]],
 StyleBox[". ",
  FontColor->RGBColor[0.5, 0, 0.5]]
}], "ExerciseText",
 CellChangeTimes->{{3.390746133084834*^9, 3.3907461339661365`*^9}, {
   3.3907468243063297`*^9, 3.3907468331193542`*^9}, {3.3919664369579124`*^9, 
   3.391966590952417*^9}, {3.3919666300694447`*^9, 3.3919667175970483`*^9}, {
   3.3919668057255287`*^9, 3.3919668363802185`*^9}, {3.3919669615126457`*^9, 
   3.3919669645971427`*^9}, {3.3922132141423607`*^9, 3.392213231105241*^9}, 
   3.392213385595048*^9, {3.4088869492430363`*^9, 3.4088869787187*^9}, {
   3.459167307171875*^9, 3.459167309546875*^9}}],

Cell[TextData[{
 StyleBox["As you build your quiz, ask me to take a look at it and give you \
some feedback.  My main criteria for success here is whether you made an \
effort to be creative on this task.  Just trying to mail in a minimal effort \
won't cut it.  Save your quiz once it is done and save the result as a ",
  FontColor->RGBColor[0.5, 0, 0.5]],
 Cell[BoxData["PDF"],
  FontColor->RGBColor[0.5, 0, 0.5]],
 StyleBox[" (portable document format) file.  Print out the ",
  FontColor->RGBColor[0.5, 0, 0.5]],
 Cell[BoxData["PDF"],
  FontColor->RGBColor[0.5, 0, 0.5]],
 StyleBox[" version of your quiz and turn it in with your module.",
  FontColor->RGBColor[0.5, 0, 0.5]]
}], "ExerciseText",
 CellChangeTimes->{{3.390746133084834*^9, 3.3907461339661365`*^9}, {
  3.3907468243063297`*^9, 3.3907468595083523`*^9}, {3.3919667307762623`*^9, 
  3.39196678552608*^9}, {3.3919668507912283`*^9, 3.3919669277934875`*^9}, {
  3.3922132781476517`*^9, 3.3922132978678226`*^9}, {3.458484770203125*^9, 
  3.458484793*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"RulerBar",
WindowSize->{1221, 1065},
WindowMargins->{{-1, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
PrintingOptions->{"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->True,
"PrintingMargins"->{{54, 54}, {72, 72}}},
Magnification->2.,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Classroom.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 168, 5, 109, "Title"],
Cell[716, 27, 159, 2, 73, "Subtitle"],
Cell[CellGroupData[{
Cell[900, 33, 271, 7, 107, "Section"],
Cell[1174, 42, 1220, 28, 212, "Text"],
Cell[2397, 72, 312, 8, 48, "Text"],
Cell[2712, 82, 345, 8, 48, "Text"],
Cell[3060, 92, 328, 8, 48, "Text"],
Cell[3391, 102, 333, 8, 48, "Text"],
Cell[3727, 112, 252, 7, 48, "Text"],
Cell[3982, 121, 321, 8, 48, "Text"],
Cell[4306, 131, 312, 8, 48, "Text"],
Cell[4621, 141, 269, 7, 48, "Text"],
Cell[4893, 150, 327, 10, 48, "Text"],
Cell[5223, 162, 587, 11, 80, "Text"],
Cell[5813, 175, 670, 16, 114, "Text"],
Cell[CellGroupData[{
Cell[6508, 195, 105, 1, 86, "Subsection"],
Cell[6616, 198, 1541, 34, 250, "Text"],
Cell[CellGroupData[{
Cell[8182, 236, 94, 1, 74, "Exercise"],
Cell[8279, 239, 766, 16, 147, "ExerciseText"],
Cell[9048, 257, 439, 7, 113, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[9536, 270, 106, 1, 86, "Subsection"],
Cell[9645, 273, 537, 12, 115, "Text"],
Cell[CellGroupData[{
Cell[10207, 289, 94, 1, 74, "Exercise"],
Cell[10304, 292, 416, 7, 80, "ExerciseText"],
Cell[10723, 301, 466, 7, 146, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11238, 314, 100, 1, 86, "Subsection"],
Cell[11341, 317, 1444, 35, 216, "Text"],
Cell[CellGroupData[{
Cell[12810, 356, 94, 1, 74, "Exercise"],
Cell[12907, 359, 767, 17, 115, "ExerciseText"],
Cell[13677, 378, 846, 18, 114, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14560, 401, 94, 1, 74, "Exercise"],
Cell[14657, 404, 727, 14, 47, "ExerciseText"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15433, 424, 183, 5, 86, "Subsection"],
Cell[15619, 431, 1057, 22, 179, "Text"],
Cell[16679, 455, 854, 22, 180, "Text"],
Cell[CellGroupData[{
Cell[17558, 481, 94, 1, 74, "Exercise"],
Cell[17655, 484, 673, 11, 47, "ExerciseText"],
Cell[18331, 497, 152, 3, 91, "Input"],
Cell[18486, 502, 996, 26, 149, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19519, 533, 94, 1, 74, "Exercise"],
Cell[19616, 536, 858, 13, 113, "ExerciseText"],
Cell[CellGroupData[{
Cell[20499, 553, 244, 6, 91, "Input"],
Cell[20746, 561, 1536, 32, 261, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22355, 601, 231, 6, 107, "Section"],
Cell[22589, 609, 785, 18, 114, "Text"],
Cell[23377, 629, 327, 9, 81, "Text"],
Cell[CellGroupData[{
Cell[23729, 642, 117, 2, 91, "Input"],
Cell[23849, 646, 94, 1, 91, "Output"]
}, Open  ]],
Cell[23958, 650, 922, 28, 150, "Text"],
Cell[CellGroupData[{
Cell[24905, 682, 148, 3, 91, "Input"],
Cell[25056, 687, 92, 1, 91, "Output"]
}, Open  ]],
Cell[25163, 691, 993, 30, 182, "Text"],
Cell[CellGroupData[{
Cell[26181, 725, 192, 5, 91, "Input"],
Cell[26376, 732, 265, 5, 43, "Message"],
Cell[26644, 739, 258, 5, 43, "Message"],
Cell[26905, 746, 245, 5, 43, "Message"]
}, Open  ]],
Cell[27165, 754, 712, 16, 147, "Text"],
Cell[27880, 772, 812, 20, 114, "Text"],
Cell[CellGroupData[{
Cell[28717, 796, 94, 1, 74, "Exercise"],
Cell[28814, 799, 1115, 21, 48, "ExerciseText"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29966, 825, 94, 1, 74, "Exercise"],
Cell[30063, 828, 1919, 45, 166, "ExerciseText"],
Cell[31985, 875, 1521, 35, 91, "ExerciseText"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33543, 915, 94, 1, 74, "Exercise"],
Cell[33640, 918, 1182, 25, 81, "ExerciseText"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34859, 948, 122, 2, 74, "Exercise"],
Cell[34984, 952, 1087, 24, 82, "ExerciseText"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[36120, 982, 231, 6, 107, "Section"],
Cell[36354, 990, 749, 17, 146, "Text"],
Cell[CellGroupData[{
Cell[37128, 1011, 136, 3, 117, "Input"],
Cell[37267, 1016, 70, 1, 91, "Output"]
}, Open  ]],
Cell[37352, 1020, 579, 12, 114, "Text"],
Cell[CellGroupData[{
Cell[37956, 1036, 122, 2, 74, "Exercise"],
Cell[38081, 1040, 1460, 39, 83, "ExerciseText"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39578, 1084, 122, 2, 74, "Exercise"],
Cell[39703, 1088, 1512, 38, 143, "ExerciseText"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41252, 1131, 122, 2, 74, "Exercise"],
Cell[41377, 1135, 1643, 38, 115, "ExerciseText"],
Cell[43023, 1175, 484, 11, 81, "Text"],
Cell[CellGroupData[{
Cell[43532, 1190, 197, 5, 91, "Input"],
Cell[43732, 1197, 191, 6, 113, "Output"]
}, Open  ]],
Cell[43938, 1206, 782, 24, 194, "Text"],
Cell[CellGroupData[{
Cell[44745, 1234, 218, 6, 91, "Input"],
Cell[44966, 1242, 410, 8, 43, "Message"],
Cell[45379, 1252, 378, 7, 43, "Message"],
Cell[45760, 1261, 101, 2, 91, "Output"]
}, Open  ]],
Cell[45876, 1266, 545, 15, 114, "Text"],
Cell[CellGroupData[{
Cell[46446, 1285, 289, 8, 91, "Input"],
Cell[46738, 1295, 203, 6, 91, "Output"]
}, Open  ]],
Cell[46956, 1304, 389, 9, 80, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47382, 1318, 122, 2, 74, "Exercise"],
Cell[47507, 1322, 1459, 27, 81, "ExerciseText"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49003, 1354, 122, 2, 74, "Exercise"],
Cell[49128, 1358, 2053, 48, 115, "ExerciseText"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51218, 1411, 122, 2, 74, "Exercise"],
Cell[51343, 1415, 1498, 30, 82, "ExerciseText"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[52890, 1451, 225, 6, 107, "Section"],
Cell[53118, 1459, 785, 19, 146, "Text"],
Cell[CellGroupData[{
Cell[53928, 1482, 95, 1, 86, "Subsection"],
Cell[54026, 1485, 1132, 25, 214, "Text"],
Cell[55161, 1512, 940, 27, 182, "Text"],
Cell[56104, 1541, 621, 15, 114, "Text"],
Cell[56728, 1558, 1032, 24, 262, "Input"],
Cell[57763, 1584, 805, 18, 149, "Text"],
Cell[58571, 1604, 855, 15, 180, "Text"],
Cell[59429, 1621, 489, 12, 47, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59955, 1638, 144, 2, 86, "Subsection"],
Cell[60102, 1642, 971, 22, 149, "Text"],
Cell[61076, 1666, 822, 14, 179, "Text"],
Cell[61901, 1682, 659, 12, 148, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62597, 1699, 246, 3, 86, "Subsection"],
Cell[62846, 1704, 627, 15, 115, "Text"],
Cell[63476, 1721, 1061, 24, 146, "Text"],
Cell[64540, 1747, 808, 23, 120, "Text"],
Cell[CellGroupData[{
Cell[65373, 1774, 291, 7, 119, "Input"],
Cell[65667, 1783, 98, 1, 91, "Output"]
}, Open  ]],
Cell[65780, 1787, 346, 11, 48, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66163, 1803, 105, 1, 86, "Subsection"],
Cell[66271, 1806, 475, 7, 113, "Text"],
Cell[66749, 1815, 1409, 34, 284, "Text"],
Cell[68161, 1851, 340, 9, 81, "Text"],
Cell[CellGroupData[{
Cell[68526, 1864, 384, 11, 121, "Input"],
Cell[68913, 1877, 38078, 632, 479, 26166, 435, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[107006, 2512, 572, 16, 116, "Text"],
Cell[107581, 2530, 26472, 442, 479, "Input"],
Cell[134056, 2974, 375, 8, 80, "Text"],
Cell[CellGroupData[{
Cell[134456, 2986, 175, 2, 74, "Exercise"],
Cell[134634, 2990, 551, 11, 80, "ExerciseText"],
Cell[135188, 3003, 1385, 26, 213, "ExerciseText"],
Cell[136576, 3031, 1017, 19, 148, "ExerciseText"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)