(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    923894,      15530]
NotebookOptionsPosition[    922335,      15480]
NotebookOutlinePosition[    922767,      15497]
CellTagsIndexPosition[    922724,      15494]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[StyleBox["Lab05 - Partial derivatives", "Title"]], "Section",
 CellChangeTimes->{{3.652701791462523*^9, 3.652701806633205*^9}}],

Cell[CellGroupData[{

Cell["[Your name(s) here...]", "Section",
 CellChangeTimes->{{3.652701868911021*^9, 3.6527018752636967`*^9}}],

Cell[CellGroupData[{

Cell["Compare and contrast partial derivatives and derivatives.", \
"Subsubsection",
 CellChangeTimes->{{3.544970385620432*^9, 3.5449704104994016`*^9}}],

Cell["\<\
A partial derivative of a multivariable function is a derivative with respect \
to one of the variables holding the other variables constant.\
\>", "Text",
 CellChangeTimes->{{3.5449747202189164`*^9, 3.544974758762624*^9}}],

Cell[TextData[{
 "Write out how you understand  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"g", "'"}], 
    RowBox[{"(", "a", ")"}]}], TraditionalForm]]],
 ", ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "x"], "(", 
    RowBox[{"a", ",", "b"}], ")"}], TraditionalForm]]],
 ", and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "y"], "(", 
    RowBox[{"a", ",", "b"}], ")"}], TraditionalForm]]],
 "."
}], "Text",
 CellChangeTimes->{{3.5449747790706844`*^9, 3.5449748108460383`*^9}, {
  3.652701917912669*^9, 3.652701952150083*^9}}],

Cell["\[LineSeparator]", "Text",
 CellChangeTimes->{
  3.652701961320652*^9, {3.652702106002652*^9, 3.6527021077648087`*^9}}],

Cell[TextData[{
 "Suppose ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", "(", 
     RowBox[{"x", ",", "y"}], ")"}], "=", 
    RowBox[{"y", " ", 
     RowBox[{"cos", "(", 
      RowBox[{"x", " ", 
       SuperscriptBox["y", "3"]}], ")"}]}]}], TraditionalForm]]],
 ". Find the following partial derivatives by hand (before executing the ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " code below):\[LineSeparator]\[LineSeparator]",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", 
    RowBox[{
     RowBox[{"\[Pi]", "/", "2"}], ",", "1"}], ")"}], TraditionalForm]]],
 "=\[LineSeparator]\[LineSeparator]",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "x"], "(", 
    RowBox[{
     RowBox[{"\[Pi]", "/", "2"}], ",", "1"}], ")"}], TraditionalForm]]],
 "=\[LineSeparator]\[LineSeparator]",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "y"], "(", 
    RowBox[{
     RowBox[{"\[Pi]", "/", "2"}], ",", "1"}], ")"}], TraditionalForm]]],
 "=\[LineSeparator]\[LineSeparator]\[LineSeparator]"
}], "Text",
 CellChangeTimes->{{3.5449747698848476`*^9, 3.544974771021075*^9}, {
  3.5449748160940876`*^9, 3.54497490227332*^9}, {3.652701995602105*^9, 
  3.652702100349679*^9}}],

Cell["\[LineSeparator]\[LineSeparator]\[LineSeparator]", "Text",
 CellChangeTimes->{{3.544973822884418*^9, 3.5449738459381123`*^9}, {
  3.6527021206747427`*^9, 3.652702124175516*^9}}],

Cell[TextData[{
 StyleBox["Mathematica", "Subsubsection",
  FontSlant->"Italic"],
 StyleBox[" function approach.", "Subsubsection"]
}], "Text",
 CellChangeTimes->{{3.5449734575689535`*^9, 3.544973467727937*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{"y", " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"x", " ", 
     SuperscriptBox["y", "3"]}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"f", "[", 
  RowBox[{
   RowBox[{"\[Pi]", "/", "2"}], ",", "1"}], "]"}]}], "Input",
 CellChangeTimes->{
  3.5449704321339664`*^9, {3.5449709788060093`*^9, 3.54497101080587*^9}, {
   3.544971046692422*^9, 3.5449710606324377`*^9}, {3.5449710948067226`*^9, 
   3.5449711110028067`*^9}, {3.5449712868874073`*^9, 3.544971333740814*^9}, {
   3.544973326874024*^9, 3.5449733457361374`*^9}, 3.5449733889498158`*^9, {
   3.652702184360031*^9, 3.652702316246817*^9}, {3.65270237222145*^9, 
   3.652702378472372*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Derivative", "[", 
    RowBox[{"1", ",", "0"}], "]"}], "[", "f", "]"}], "[", 
  RowBox[{
   RowBox[{"\[Pi]", "/", "2"}], ",", "1"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     RowBox[{"\[Pi]", "/", "2"}]}], ",", 
    RowBox[{"y", "\[Rule]", "1"}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.652702388982826*^9, 3.652702397819915*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Derivative", "[", 
    RowBox[{"0", ",", "1"}], "]"}], "[", "f", "]"}], "[", 
  RowBox[{
   RowBox[{"\[Pi]", "/", "2"}], ",", "1"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     RowBox[{"\[Pi]", "/", "2"}]}], ",", 
    RowBox[{"y", "\[Rule]", "1"}]}], "}"}]}]}], "Input"],

Cell[TextData[{
 StyleBox["Mathematica", "Subsubsection",
  FontSlant->"Italic"],
 StyleBox[" expression approach.", "Subsubsection"]
}], "Text",
 CellChangeTimes->{{3.544973472511459*^9, 3.5449734793987703`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{"y", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"x", " ", 
      SuperscriptBox["y", "3"]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"z", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     RowBox[{"\[Pi]", "/", "2"}]}], ",", 
    RowBox[{"y", "\[Rule]", "1"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{"z", ",", "x"}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     RowBox[{"\[Pi]", "/", "2"}]}], ",", 
    RowBox[{"y", "\[Rule]", "1"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{"z", ",", "y"}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     RowBox[{"\[Pi]", "/", "2"}]}], ",", 
    RowBox[{"y", "\[Rule]", "1"}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.5449711475743637`*^9, 3.544971208922214*^9}, {
  3.5449714735532413`*^9, 3.544971488045455*^9}, {3.544971545000325*^9, 
  3.5449715781343*^9}, {3.544973354230288*^9, 3.5449733604556656`*^9}}],

Cell[TextData[{
 "\[LineSeparator]\[LineSeparator]",
 StyleBox["Plotting the surface to enable graphical intuition.", 
  "Subsubsection"]
}], "Text",
 CellChangeTimes->{{3.544974922467358*^9, 3.5449749298048253`*^9}, {
  3.652703978082403*^9, 3.652704003678563*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"plot1", "=", 
   RowBox[{"Plot3D", "[", 
    RowBox[{"z", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "0", ",", "2"}], "}"}], ",", 
     RowBox[{"ViewPoint", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"10", ",", "10", ",", "20"}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y", ",", "\"\<z\>\""}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Bold", ",", " ", "Medium"}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plot2", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Opacity", "[", ".5", "]"}], ",", "Blue", ",", 
      RowBox[{"Polygon", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", 
           RowBox[{"-", "2"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Pi]", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Pi]", ",", "1", ",", 
           RowBox[{"-", "2"}]}], "}"}]}], "}"}], "]"}], ",", "Gray", ",", 
      RowBox[{"Polygon", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           FractionBox["\[Pi]", "2"], ",", "0", ",", 
           RowBox[{"-", "2"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           FractionBox["\[Pi]", "2"], ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           FractionBox["\[Pi]", "2"], ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           FractionBox["\[Pi]", "2"], ",", "2", ",", 
           RowBox[{"-", "2"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"plot1", ",", "plot2"}], "]"}]}], "Input",
 CellChangeTimes->{{3.544971220280616*^9, 3.544971255714212*^9}, {
   3.544971500587694*^9, 3.5449715162654934`*^9}, {3.5449715936405015`*^9, 
   3.544971606557136*^9}, {3.544971774841895*^9, 3.544971819251676*^9}, {
   3.5449718508390436`*^9, 3.544971858872374*^9}, {3.544971900926469*^9, 
   3.544971929378498*^9}, {3.5449719601859303`*^9, 3.5449719611686487`*^9}, {
   3.544972006545267*^9, 3.5449721786134777`*^9}, {3.5449732238753247`*^9, 
   3.544973239913721*^9}, 3.6527025602945147`*^9, {3.6527027174278097`*^9, 
   3.6527027390562077`*^9}, {3.652703150643643*^9, 3.6527031792356033`*^9}, {
   3.652703762605221*^9, 3.652703762769603*^9}, {3.652703802337981*^9, 
   3.652703904067348*^9}, {3.652703939217157*^9, 3.6527039538071117`*^9}, {
   3.652704520349531*^9, 3.652704554745331*^9}, 3.652704587477647*^9, {
   3.652704626612331*^9, 3.652704651275301*^9}}],

Cell[BoxData[
 Graphics3DBox[{GraphicsComplex3DBox[CompressedData["
1:eJx0nXlcTd/3/xMNhgwRkdBEEaVCKKdkKJkyRIbIWMgsQmYypRRRiVIZUkSJ
[encoded data, 49044 characters]

    "], {{
      {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[
        GrayLevel[1], 3], 
       StyleBox[GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJxFnXX8FcX3xu+9u3f7I2IgiqKYiIVB2F0YKCpiIWA3ioKJqGCggtiYYGGj
[encoded data, 24827 characters]
xH4k3iR74iJPsjfTiSrzW9P4IftJEUuWWLP/B1gAbVE=
           "]], 
          Polygon3DBox[CompressedData["
1:eJw1nHX8G9XThZN8Y5ukuBSnUNzdtTjF3X+4u7tDcbcWKe4Opbh7cXcp7g5F
[encoded data, 18605 characters]
9X8x8b3I
           "]], Polygon3DBox[CompressedData["
1:eJwt13l0V8UVB/DHkh04eAgWZBUStqDWImq1IIpYUBMQgYR9EYKASLFGcGFR
tC4pYKtSFYFSJSwila2VipUWlG5aiVWOB4q2VgMICIioLNLP9fHHN7/5fud7
750382be5PwxU/rfXjtJkirIgFPZSXJa4zFojo/Ax9WjZ9GhlPl52ry8JBlc
N0k+zUyScnpVbpJshL21kmS32Em0DXjdnCTJ5XmG1km+28T2lu8lWlvtTPpL
fn9Eq6TliStRY4fYL+nH9E+HRmIH4t35Huf7BfSjPUDLV6NC3fV+X8RXw+dw
UNwckCopxmuLvRK/RHus+Evx1jq7ip2GH1Z7LO1b/Wf45kFLsaPwS+ijeCp5
rqkjv7gM9fJoz/IV8U3mu4KvgvYFNPQcH9LWwpSYY9py6MXzQ5iqfQTq8f2b
5205i7Vz1XiEfiXPB7TZ+AKYqm5t876Ed5IxP8/TDS7iq6LXivmBW4ynIW2e
9nB1m8YY4Sra3+WbLld2PIccMz3Do7ReeF0YKrY+32mx32r/HFrIMRJP1Jhs
DBto3XgrxB2lH8YfjTiWfvgXcASvhAa0m/C+chaIKYSn1a1W9we0UuPaCdtp
r/KV0abwLIXfqfUR7SZaJ7wIfstXI/bCWEtxVbTtfI/zlRrPMfU2x7tFL8NP
0E8ax8/gPH3D8Ati/nlW8PxV7HzaFjkP6G9BaxnvIM839K/FzYbv6RuM5/G1
ykznPtZgJX4UqvEscb2s33Xqtqe1j+eCZXx78E/gaXk60Dry9lOjP3TWvgA2
833D0402l2ce9OW/X91htMU8+2CkfddUjdW8e/U3ozWHYp6j1qiV8V4oZqX4
tTxLYT/f1fjVfDfzbdX/QjwTPgQG0lbKudsYPhA/nrYCP8x3CH8o47vlT0rw
jTBDe718G+D62M+8E8Ts4ntF32q8D31N7Gn+PxnzmphP+IpnJpzLVxbvSuxX
/GEQkvTFh2j8VL4743nNaQ3tFajU/7qcW+BGnuO0L8XdA/n6BuHzPW+x56gv
dga8ZyxDeRdpfyRuj74+sddy0/OsEX1JzA1PCa2Mlk/bRLuBdjlM1N4PX4t9
R41r1RiMPxRr5x36j7iT9FPG8Qg0M5bh+Bix1Tw7stL57sv3Ff04z33QmFaK
T5PvgXivaF1p0/GZvD0ijt5ajV34HaHjJ6HAONvSblFjJ9/78RwxP/KNsFiv
4+v47oux4A1gtjzP0NvAgDivc9I99U91B/Feg98ND2qfhnZqtOOroN2Pn4JC
WiHt2oD2O2LfivnhmavGQGv9Cb5GjZ54M75y2gH89viGGG8ryIn9K/Yy45to
zE3i/cXnQyvazbQTOem+KI2zib84xiFnD/l2x7tB6yJucJyn+F3B+fup+Zz4
hVAkpka+zn6PZadnepzt9/JOoXWMsyn2aqyd2DdpQ8S3k++1+HbRhuI59HPw
38Q3RI675Ho3J+3/I70ELo7zy/iaGt8/Yq/RLufpSh+j/WGcEfrm8IyivRbn
cGa6P1/m+2+cp/qb+V2nbwRPW8iPvazujXyz9I2kvaq/e2Z6BiwRW5Cbrk2s
0Wy4k9aar572yjiz+aaKLaA1pq2jFdNm0hbDImivr2W8136PxHch3m18Ypy9
MSf0JvhGsUPFzhWz3bM09tso1tBcjFL32Tjr+BJxXYypi9jzxdanrRLbXddP
+HNpZfiZeKd5fy3XJPib9l9glXwfy1VO24ZvjT0o9mLaILGTaVNoRXxN1BjP
19D8vUHrEO9HfKOgt+f4mDY6auBtctP9E/toBkyVr418DbRfNJ6r1LgjvrP0
22j/gxo1Gom7jG8cvlquanlnqfkkHIpzOO4s6r+P1xabwfekfIXyjdfXIdaT
to02K94bnjOwRbt/nMPxTcc78XXMTPdW7LGe6u6kL+bbRv8zvIevkHN5QHuC
vhV+D6mdH3cSeue4B+FVfpcF9N/KV+V3VXwj4j07e3/aELH4ZzE2iE/+Df40
N5Za6i2mXUQbTdsFb3j2tcb8MgznOUjbzzMj47tlT67Hi9X+fZw32rXoe+Ke
ok5d+Z7AC/jKoxCtDu2XtLbouLiDxZ0t7nq0NrSx2em3Or7Zy+VcqK+HunXE
Zmo/xdeO71ae/uoc5Hsu7j2895i/hTBMew/tHM87UNymvPTbVBj7Asrleyzu
RHE/kO8K+SrxWXCp9rK4S8T+wu/NSc/qF+L7GOcsPicnPc/iXHuY9mB8e+Wt
waeBUsmP4wxSJzszzRd5J8Ra0Ypo1bQ/GN9xsS1oWZlpja5nn+0z2IvfnZHe
2XvjB2BfnGkQ264Pfp7YE/ivoD1tCG1rnO1yr2XqDd/n2Rx7y8Dq6W8dZ5Z5
2qf9qbgKMI3JdfhTYp+Ic53Wk7YALxR/Lm09rYQ2O+704t9U41+0EfpK+Yri
Dqe9g7ZJ3zFaCQyjvZuZvv9xUW8a9y6eBWfXMu5co2lvG9dbsIj2efxPkZOe
UyvrpWd8nPXZtIa0pWK78FXQBugfEM+Uld69NtGaxSWDb1HckzTH0P4PLB+g
Kg==
           "]], 
          Polygon3DBox[{{2220, 2219, 3142, 1706, 1707, 3143}, {2323, 1570, 
           1698, 3140, 2217, 2218}, {2321, 1568, 1696, 3138, 2213, 2214}, {
           2322, 1569, 1697, 3139, 2215, 2216}}]}],
        Lighting->{{"Ambient", 
           RGBColor[0.30100577, 0.22414668499999998`, 0.090484535]}, {
          "Directional", 
           RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
           ImageScaled[{0, 2, 2}]}, {"Directional", 
           RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
           ImageScaled[{2, 2, 2}]}, {"Directional", 
           RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
           ImageScaled[{2, 0, 2}]}}]}, {}, {}, {}, {}}, {
      {GrayLevel[0], Line3DBox[CompressedData["
1:eJwl0l9ojXEcx/GvHZwzMyMtLWzOlkuudRqyImVX5MLmQisXdmF2sViSNmn+
NAlNrSzELlZGmUbmBpdqNX9m/s1BcseWNK72+qXOc97f9+f7+/M8v+fJt7Tt
PrwgIsZcNxZGpLqYidik2J6LWM73YA224EZsx814EhuxF5vxGg64WtX3sBOr
FkWMqM+o16hH1VfVhbKIF/YZVNerx9UP1FvVk+rn6vySiNKSiGH+ku/FHC9a
5xXfgWX8etZ+eq9l+7Bc9kXvDd+Js4sjKmT39SZlv/kK/tPzvuVN8pV8FKf4
H/1K/pC/4/txFf9qrff8rHlV/JH8Az+Aq/k3/Y/8gv5a/lj+ic9Zr5qP8el0
jljDn+Bn/lc/z2fNK/KLuI7P4A/nNZHegbFZ2Z10T7Jn6b71f3lPtc5sQD4i
2yKbklXKLstuy9bLMs7yqfycrE92ELfJGqzZw8dLI67od8uP8Vvm95tX0L9r
v0OyVv1+dZM641mbeda4DnN2yb5jo2xINmxuvazN+A3pjLAaj9inYMxN/Qp+
Cevs0Wu9Zfw8lqczxqXYk94xnka3G6fQEtGFufQNotcfJ9AxxnH0i05/lo6j
6LaiA20T/wyqLfn/rc8D8cVc/A==
        "]]}, 
      {GrayLevel[0.2], 
       Line3DBox[{2117, 2414, 1509, 2116, 3175, 2281, 2118, 3176, 2282, 2119, 
        3177, 2283, 2120, 3178, 2284, 2121, 3179, 2285, 2122, 3180, 2286, 
        2123, 1516, 2124, 3181, 2287, 2125, 3182, 2288, 2126, 3183, 2289, 
        2127, 3184, 2290, 2128, 3185, 2291, 2129, 3263, 2415, 2292, 2416}], 
       Line3DBox[{2131, 3096, 3219, 2130, 1523, 2132, 3186, 2293, 2133, 3187, 
        2294, 2134, 3188, 2295, 2135, 3189, 2296, 2136, 3190, 2297, 2137, 
        3097, 3220, 2138, 3098, 3221, 2139, 3191, 2298, 2140, 3192, 2299, 
        2141, 3193, 2300, 2142, 3194, 2301, 2143, 3195, 2302, 2144}], 
       Line3DBox[{2146, 3099, 3222, 2145, 3100, 3223, 2147, 3196, 2303, 2148, 
        3197, 2304, 2149, 3198, 2305, 2150, 3199, 2306, 2151, 3200, 2307, 
        2152, 3101, 3224, 2153, 3102, 3225, 2154, 3103, 3226, 2155, 3201, 
        2308, 2156, 3202, 2309, 2157, 3264, 2417, 2594, 2310, 2158, 3266, 
        2420, 2596, 2311, 2159}], 
       Line3DBox[{2161, 3104, 3227, 2160, 3105, 3228, 2162, 3106, 3229, 2163, 
        1551, 2164, 3203, 2312, 2165, 3204, 2313, 2166, 3268, 2423, 2424, 
        2167, 2427, 2428, 3270, 2168, 2431, 2432, 3351, 2169, 2435, 2436, 
        3343, 2170, 2438, 3230, 2439, 2171, 3271, 2442, 2443, 2172, 3265, 
        2418, 2595, 2419, 2173, 3267, 2421, 2597, 2422, 2890, 2812, 2986}], 
       Line3DBox[{2175, 3107, 3231, 2174, 3108, 3232, 2176, 3109, 3233, 2177, 
        3133, 3234, 2449, 2178, 3134, 3235, 2451, 2179, 3275, 2453, 2454, 
        2180, 3269, 2425, 2598, 2426, 2181, 2429, 2599, 2430, 2763, 3300, 
        2182, 2433, 2600, 2434, 3318, 2764, 2183, 2765, 2437, 2601, 3236, 
        3131, 2766, 2184, 2767, 2440, 2602, 2441, 2768, 2185, 2769, 3132, 
        3319, 2603, 2444, 2770, 2186, 2771, 3272, 2445, 2604, 2446, 2772, 
        2187, 3320, 2773, 2447, 2605, 2448, 2897, 2813, 2823}], 
       Line3DBox[CompressedData["
1:eJwVzzdOQ1EUhOHziA54ETR0NqmBCnqiMBuABUBBWAXRRAdMkAgSeRkgakIB
VGwD+F7xa+bMHOme2z2/OLOQRMQc1jMRPV0R51jjG9mIC34EG+am+ZIfxaa5
SJ9QkQ/nI4awJS/JnrErn5WVsS0fo58Yx4HuLxdxzf/Sij4pREyYvzCJQzvL
uht+ie7YmeK/MY2qflUe/Ar9Sd+0UzV38jVakr8h4V/pnr7OZ/QN2iu74j9o
i/md7ts54rPyJu2TtdFbtKa3649pTn9CC+7ut9PB36E9vd3OKc3bOaMD+gf6
iPv0dv1LeqM/DOrqtCb7BzoJM+s=
        "]], Line3DBox[CompressedData["
1:eJwVz70yQ1EUxfFtoiC58ZEEtT4PQKlSaTKaoDAKJSUNHcEzGFUmE0QoYgjv
IH1UCI2XyO8U/1lr7bXPufcs7x3WDiYiYhM3UxFnWUR+OuKar9I7fJgV6C2O
8hFDHKMjb+gGqS9EZPI9TnSfOMW5rmtW41/tFPkH1PlcMWJX/yRvyTP0Edv8
pG6Hrjg3m75D1+w2sMrPmfX0TXphNk9b/rlFL+USbctt+m+v4r5yeo9Zjz6j
go68bv8KL/ICvux/Y4Qf9M3e6DsW+T7dt1925x//mzrzLL0PS3yTjgExzCyI

        "]], Line3DBox[CompressedData["
1:eJwVzTtOAlAQheGRipe9rZWFMTY+ejFGSzEqHYkJrdYKibgOYxCQEEBBIKJx
D+zBBbgIvlv8OXP+O5O7eXNXvl2LiHNMshG/uYhpMeIMY/1H/zSf4kNf6BPz
CUb6XB+bZ3KgH6c9HOYj+lyfK+nvOOB6XI87SvfY57rcG/dViPjGAnvJy6Kd
jfWImuzaafJ5/kl23F2b/3CFjvesnCOHtvcLd0tc6o9u2nbqcqY35Kudf+8P
5jJ3n5ydijnj36q3lp0dtPhdfYgXfRvP3EDfSs68Ah4BLfU=
        "]], 
       Line3DBox[CompressedData["
1:eJwNzbkyg2EUBuCjMGNJ1NYQGjq1pdQqYukIQcs92I3lWoQ2i9gZxlrqE8Yy
o9V4imfe857zf/OncyuZ5bqIyHLYEFFojCjRn4h4omhebYpY48Q8bvdMq7nM
uv0bG5zqVbcJc6E5ok2vMGOeZdftXG/njEF9jyHfd+h5/x/T9+nUj/RHc978
632XPLa7kJcMuL1QdavxwTtXbkVZImXOyjlyzHNjV/Nu0n9b9G79mk39jy2G
maLs3uN2y7ae9G5HHsgROU3FN2n3OxbM9cmIRTnqtiR77e959eZL/+aTH/rs
H/gHSqQ5iQ==
        "]], Line3DBox[CompressedData["
1:eJwVzbkuRAEUBuCjEcvQeQCJZTQY1LbSJCQa24xlJNaE90CCd2FqCZ1EbGM3
lqnQECR0PsWXc/7/3nNvfW51eKUsIrLsVES8V0e0VkZ8mCNVEaO8JCKOdWv2
NvOUId0v97oxTnTtnPOqH9dNcCan5E265QZ5138G5C1+/KdRl9cV5IL9kiYu
/unmvJOyX5PxjU85a17J6+aX3GG/ZVKel6fMN7c3ug17kU57jznNAzPc6Ra8
v0iXvVdXctdsL3LII0kGPUt7ts2T3MKeu2/qaiKO5Gf25QOWKNcvmyV9v/sc
te5nzT7+AAJWORs=
        "]], Line3DBox[CompressedData["
1:eJwV0MkuQ2EYxvG3IaFFgjuwLVvzsBGxkaB3oDEP1ZruwhAXo2zdhJUQWham
SKTU/DuLf97n+X/n/U7O6cpv5gqpiFhCuTmi1hLR2RrRm454l+czESf6DKrc
vt5n3mOWK2OBu9P7MS5nudME902Zx3h0lsUDCu5taosYkDflRTt1c8l85g7M
awzKt+YybrCCF27Ofc32i3aG9Al+FRWs4ZUrOdvCsPyGbjtnOOc+ccnV0MNd
4Jv7wRVXR45Le8c2t+7OD+7Q/NJH5El5Azt6IfHckVnFk91R/S/5vuTfoIhf
fdfzexiTU1wJW5hG3l7GOyvOGvV2z3WgQf4HFl49gA==
        "]], 
       Line3DBox[CompressedData["
1:eJwV0LkuhGEUBuBvOuvYhVhiQrgCorMTdFqdVmLuQaKRSAjXYN/N0Kkllhnb
2N0BidgKSzyKJ++Z857vLyY2Eh8ai4QQ4txmhfCRE0J9bgifcpAFc2FeCPMy
mh/CjZte8xV9tNDDj5tuea2vk6fEKPeNX12XeYrO/7du2mWaDsrc7DFp3pUZ
/aw5wxxJ75vlDNNc6mtkiloGvHmnwN2bvNB/mxPmJKXsMOF2W57rq8wnVFNi
N5odwr43Z7pDu2OOKNZtEdFtylN9o30TRX4/2LeStq+wO6Dy/z/TvdpvyBfW
SblZlWskdAVyhXH3y/JE32D+0g3Tb/fME8e6R7tF8xJR7t3e0cYf/7hDBw==

        "]], Line3DBox[CompressedData["
1:eJwVzrcuxWEcxvHXQNSBQW9nkOg9Ea6AxIBBCwaxaZcikSiXwB3ovY9KIlGO
c3C4ABIsfAzfPL+nvPn/I+OzfTNJIYRJvKeG0JIRQit600O4QCIzhGG86b75
et0P7caqO1u3QhP6M1md+5yWY0IXRwoW5a82J/Ib9yktwzEW+CP6oj+kn/ZD
6HEv65bwrNvna90HtBR7mOd3aVw/5k3ICuFW1oU2TKeFENNVu69RgxL7HSTb
59oP0iebJl0zinUxWQei8krZFapQpBv432OO3+YfbRrcjSjko7p2PMgrZJfI
8Z0RWYF+C1/YxL3NBv3Q9SPfPeWf7+Sj/C86vc+Tr2MNEfwBT6Y+fg==
        "]], 
       Line3DBox[CompressedData["
1:eJwVzkkuhFEUhuFDIkERiVILsAVDE13p+8IGMNSMEWIL+mZuEapKH3vAzEjf
hIhEdM8/ePPd837n3v+vH5/NzZRExCQyqYjdyoiRiogymZPLXLEqYgxn5RE7
/B83rCt1HpKX5oy+DmksmpcwqAs7A7LAn7pfw/+Yu/hvuWc+4bfNL3b6uS/0
YUG3xR/rN+UjevlP9ODBvIEj/YS7qeqIeXe6dR/JN3Coe5cd9t6Sf7V3wJ3b
6zS/Jh1+zet2iro1eYd2/lpmk39y78Z5FWm7tZhDm+4JF/oGFNy/kvdcNnlH
5rk81+p8ixas6Pb5Uf4Zzdy095rklGzEP2BQPFY=
        "]], 
       Line3DBox[CompressedData["
1:eJwVzccuBHAUxeG/EqYmJDKT2AivoC2UhxC9G92CJQuJCFFCvIDe96ztmDHD
E+ABxEZ7AZ/Fye/cc+7Nrc0sdMwXhRDmqS4ewnUshLloCEmcxT3ZFf+TCOE5
EkK7uZSf0bXw01hi3uWf9FW4Q1PyhLtEMoRm/YqsoG/DSd0yTuA2XtqrwQss
tttEtxQ3j9vZ0p3zefcb/CZl5DHZGD7KK/zJyUfNUfkIrpvP+Go8xV8aln/g
EP7gCVW6LdjJU/B3UJfGAbzDFOX8yOr7ZRE337JGWpMdm7P6I/yiPjvv/17f
QJ/8IaXtpmiV6uU3VC7vtf/g/s3cw5fJuvEA7+Wv8n2+S7bkthNfcJFa6Q8C
aTkG
        "]]}, 
      {GrayLevel[0.2], 
       Line3DBox[{1397, 1510, 3175, 1398, 1523, 1424, 3223, 1537, 1438, 3228, 
        1549, 1450, 3232, 1557, 1458, 3238, 1690, 1561, 1462, 3242, 1597, 
        1699, 1567, 3278, 1472, 1858, 1603, 1922, 1821, 1822, 3282, 1477, 
        1866, 1611, 1924, 3321, 1828, 1829, 1481, 1616, 1740, 3255, 1834, 
        1835, 1487, 1622, 3258, 1581, 1492, 1630, 3292, 1759, 1586, 1498, 
        3323, 1949, 1760, 1769, 2021, 2022, 1502, 3316, 1901, 1647, 1937, 
        1848, 2034, 1849, 1952}], Line3DBox[CompressedData["
1:eJwVzj0vg3EUhvFDUjqUwdCkKlELsUhIm24Wxi58gSaWspRYGGxWCZ0qqZeY
OtiQaKL9ApJGlxqoxdIwGXwAP8OV677POf8nz9zW7mZ1JCJKOEhEDLGdijjk
X+zLNR4diziSr+VLntRv5Rs5Ld/LTbkhN8cjpvnx/91ExJO+qrc5ixm8uK3z
GtbtjnkWQ/Mcp5IR51yy62Be/rZb4Gff3TBr6Yvc07v8pr/yEvpmF27vzMr6
QF7GB1bwbr/DD/YnXHFzynmcoYCMf5jy/1fyF/bc/KCIT+//ACsfKhs=
        "]], 
       Line3DBox[CompressedData["
1:eJwVzbFKQnEUgPEToS1Bz9Bj2KJDuYgNLrUU6ZQNRTolOLiIEBo4N0Q0FDT1
ANnq1FLoFk0KNpShs787fHzfOefPvduVi9L5WkQUcZWKmKK6GdHgBeq6z+vp
iKa+01v6me/NXd3DDYbmDD9uROzwE99yln/csrqlc9w25/SD3uU9fuM8X7sN
9IsucJFfsZ/8xy1tN0jeo29+5zEf8AiH+PTmA2N9xB38enOSfF+XucvH+NZn
/O9+qqe6yhOe8Zf9Jf+hhqX9AnO9Ao1kMD0=
        "]], Line3DBox[CompressedData["
1:eJwVy71KAmAUgOETljYYdAtegRdgizXoFhgKtQS2GdiQW9ES4uKgNjdE1BA4
RK16Af3h2tAPbllLKA1NPQ0v73vO951Mda9Un4uIdRwsRHyglo445B809AnP
JyOO9Jle1se6r8+5Y+6ihztzji9TESt8xaf8aJ/XeT3kVR5wYiniQhdwjSLa
/ia83ehbdMzZRTdYQ8nuCSm3G/zg7z1GusxNbOpfdy29pSv8zNv8bV/Vb3qH
X3nML/Y1nmAXn/YTfOl3b/X/xr55xg2e8oz/AJGCMNQ=
        "]], 
       Line3DBox[{1405, 1514, 3179, 1406, 1527, 3189, 1428, 1541, 3199, 1442, 
        1553, 3204, 1454, 1683, 3275, 2079, 1278, 1279, 3037, 1000, 1009, 
        1008, 1284, 3040, 1014, 1021, 1020, 3332, 1793, 1702, 1703, 3213, 
        1478, 1729, 3285, 1730, 1732, 703, 812, 2784, 705, 815, 721, 3070, 
        1329, 1328, 2070, 1387, 3261, 2066, 1335, 1336, 3073, 752, 1122, 1120,
         1773, 3297, 1653, 1779, 764, 858}], Line3DBox[CompressedData["
1:eJwVzb0ug2EYBuCnEv1JGBoJHdUBSBDawcARaDgBam3U1LVNSWw2i0HTWDiC
lqFLdSR0kHSuzYwOmrgMV+77fZ/n/b58ubp/koiIA+qzEZ9U5iIackJNv5LJ
pDv9Vm/qT/qZnHLOwDmTjsizzAqdVERiPqIrb+w8yge2zXLuf/UpC7TML3xj
Rr/TX/V7uWp3h136//81fzfrywF7XFPizTztuy/6MymG7kb2s96vs8YGh2ZL
Mmv/SB/bO5aXlPlwrtDzNmdvi00KLHpTtdPmlC97E1k0+5Hfzn/a7C3h
        "]], 
       Line3DBox[{8, 2123, 23, 2137, 38, 2152, 53, 2167, 68, 2181, 996, 83, 
        2195, 593, 98, 2212, 1213, 2996, 113, 2227, 128, 415, 2520, 143, 439, 
        2545, 158, 2238, 461, 173, 921, 2842, 486, 188, 2259, 509, 1127, 203, 
        2273, 532, 218}], Line3DBox[CompressedData["
1:eJwVzzFLgmEUhuHTUAqVRRkOQRhEhotDBBrUf7Cf0FrkWKtCUHMSbTW0OQRZ
UGNDOjRFoBBBgzVlrRE4dDncPM+5z3k/+Ba3K1t7IxFRRnU0oo8a6hMRf/IU
Z3piLOJSP5Qt84y8Mu8nIj7MBzKJE2Tsbuw29E+7TZnCPH/HN7gLPYsj/YG7
1XPJiBfzkt7mWt608WhekV92y/qT3ZTbaaRwz+f5Z77jrovxyYhXrqAfo6B3
7NPDd3Zzchar/Bu/42bgO+dyFz/8t1xws6a/uwnvrof/wTXlL78uS+ai3nPz
DxSOK+g=
        "]], 
       Line3DBox[{1411, 1517, 3181, 1412, 3221, 1530, 1431, 3225, 1544, 1445, 
        1670, 3351, 2106, 1555, 1456, 778, 3318, 1801, 878, 879, 2817, 794, 
        1807, 1564, 1465, 3244, 1697, 1569, 3209, 1474, 1718, 1985, 1221, 
        3006, 1222, 695, 810, 2783, 622, 1484, 1734, 2096, 3287, 1579, 1490, 
        724, 2796, 830, 637, 1495, 1098, 2951, 1099, 645, 1253, 3023, 923, 
        1134, 651, 938, 2860, 768, 862, 661, 953}], Line3DBox[CompressedData["

1:eJwNza9LA2AUheEruulE2YIYRMNWVFBYkC048B8YDDQYbDLrxOKwWfyRxya6
NZFhMYkIVoMW0WicaDBtacniE17OOffc737Z3f3N2khEbOEkEdFHbSrilP6h
zl/SNk0lI7r8GU1PR4xORIwhgSSOxiNu7J3rJ/kmWrjAMW51TV2GX6BPbt2Z
XfM5zLj5bLbk1gYezZZp1v6vvRy9QhkV3QsW8a178+7d/FX+oCm3VugqOtjG
jm5gd5bP85/eVPl7s6q85q+e/IV5vk8fdHP8nt2BXEARPXmoO+APvW3QdZTw
o/sHwuIrTw==
        "]], 
       Line3DBox[{1415, 1519, 3183, 1416, 1532, 3192, 1433, 1546, 3201, 1447, 
        3230, 327, 554, 2602, 328, 560, 2608, 344, 1467, 3246, 373, 2485, 374,
         240, 2619, 572, 399, 2528, 423, 259, 2631, 582, 2632, 446, 469, 1077,
         2940, 283, 492, 2581, 1105, 295, 515, 2591, 848, 308, 1167, 541}], 
       Line3DBox[CompressedData["
1:eJwVzjEvQ2EYhuFXUtqk7SDxB6z+gtnApmkTA0sTNiUWxWaQtJomHRi6WoTW
WQmTRcyWJkwSY6MmRJTrDE/u+zzv+33fma1ulWoTEVGWxmTESLYLEU38lT3e
xfxUxCE/5w3+wLM5e3wex7ifjfjUH/M8b+EB/uEPFosRJ3yan+KduxL7F/xS
mryH9+aLOOfeJWzrF3QZGcu1bgZvsGP2iMu+y3iEQ12Fl/gTrsqt7hnX0nf0
K/LCB1jwX+u8xzfwFfvyxq/SN53d5Ge8hh+YyHu6azbiu/wb67iDX/gPB7U1
DA==
        "]], 
       Line3DBox[{1419, 1521, 3185, 1420, 1534, 3194, 1435, 1660, 3264, 1661, 
        1787, 1662, 3265, 2056, 1363, 1364, 789, 3272, 1804, 791, 1369, 3083, 
        1176, 1810, 1687, 1469, 3248, 1709, 2083, 1287, 3044, 1288, 683, 1034,
         1033, 3333, 1797, 1723, 2061, 3349, 1315, 1316, 713, 1060, 2934, 
        1059, 1748, 1081, 3033, 1273, 1080, 1963, 1108, 3075, 1340, 982, 1954,
         3325, 989, 1144, 757, 1380, 3089, 1183, 1817, 850, 866}], 
       Line3DBox[CompressedData["
1:eJwVzb0uA2AUh/HTJqoptYgQiUGCpVwCY+0SQztKamTwMWhpXQAziWuQSDCI
kLC0jaVYEBPR3YRI2l+HJ897/ufjnVxZX1pLRMQyDvoidlIRt4MRZT5Ud1BW
n3BVdudd43/s41593h9xiQv8oYIf+S5nUcUeAkd2HvQy6Yhj7xt3z9Sn3gOy
aUxhOBsxw3k7i7jSn1M/m53lHJqyul4TKfMNnpd3en/xCGfkj9zCEwoo4tqd
d/uv3i94Qwnf8lX+0vvkCXc+eIETGHIvyaOytpmx3qydDd7EOLaxhV/9LiCz
MHc=
        "]], 
       Line3DBox[{1505, 1590, 1957, 1956, 1969, 1968, 3327, 1501, 1588, 1843, 
        1768, 1896, 3294, 1895, 1497, 1585, 1840, 1758, 1884, 3291, 1883, 
        1491, 1580, 1838, 1749, 3310, 1876, 1875, 1486, 1576, 1833, 3254, 
        1739, 1870, 1869, 1480, 1573, 3305, 1827, 1724, 1865, 1864, 1476, 
        1571, 3281, 1712, 1711, 1471, 3205, 1566, 3241, 1461, 1560, 3237, 
        1457, 1556, 3231, 1449, 1548, 3227, 1437, 1536, 3222, 1423, 1522, 
        3219, 1396, 1509, 1657, 1786}]}, {}, {}}},
    VertexNormals->CompressedData["
1:eJxkm3c8lf///yVbFC0UDSW7kJH1lKyiiJAysiKzSETIDElGZET23nu/7L33
[encoded data, 95587 characters]
t/QfPnUQ9jHKsY/xb85uceM=
     "]], 
   {RGBColor[0, 0, 1], Opacity[0.5], 
    Polygon3DBox[
     NCache[{{0, 1, -2}, {0, 1, 2}, {Pi, 1, 2}, {Pi, 1, -2}}, {{0, 1, -2}, {0,
        1, 2}, {3.141592653589793, 1, 2}, {3.141592653589793, 1, -2}}]], 
    {GrayLevel[0.5], 
     Polygon3DBox[
      NCache[{{Rational[1, 2] Pi, 0, -2}, {Rational[1, 2] Pi, 0, 2}, {
        Rational[1, 2] Pi, 2, 2}, {Rational[1, 2] Pi, 2, -2}}, {{
        1.5707963267948966`, 0, -2}, {1.5707963267948966`, 0, 2}, {
        1.5707963267948966`, 2, 2}, {1.5707963267948966`, 2, -2}}]]}}},
  Axes->True,
  AxesLabel->{
    FormBox["x", TraditionalForm], 
    FormBox["y", TraditionalForm], 
    FormBox["\"z\"", TraditionalForm]},
  BoxRatios->{1, 1, 0.4},
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  ImageSize->{354.4968119911419, 284.5090424256346},
  LabelStyle->Directive[Bold, Medium],
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0.3]], "RotationControl" -> "Globe"},
  PlotRange->
   NCache[{{0, Pi}, {0, 2}, {-1.999999857142404, 1.9999998571426558`}}, {{
     0, 3.141592653589793}, {0, 2}, {-1.999999857142404, 
     1.9999998571426558`}}],
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{10, 10, 20},
  ViewVertical->{0., 0., 1.}]], "Output",
 CellChangeTimes->{
  3.544971257227625*^9, 3.5449715170454836`*^9, 3.5449716880496154`*^9, 
   3.54497193499403*^9, {3.544972036073606*^9, 3.544972048880139*^9}, 
   3.54497217911263*^9, {3.5449732295047617`*^9, 3.5449732407446375`*^9}, 
   3.6527037678531237`*^9, {3.6527038044408073`*^9, 3.652703824499473*^9}, {
   3.65270385904935*^9, 3.652703905022072*^9}, 3.652703959526525*^9, {
   3.652704522451293*^9, 3.652704555717723*^9}, 3.652704588278244*^9, {
   3.652704627999878*^9, 
   3.652704652322784*^9}},ImageCache->GraphicsData["CompressedBitmap", "\<\
[encoded data, 77958 characters]
nb/MPZQ9CnifgtfobOuf/g/NaH/g\
\>"]]
}, Open  ]],

Cell[TextData[{
 "Based on the surface plot above, hand sketch first each of the 2 plots \
below, before executing the ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " commands to plot them.  Think carefully about identifying the ",
 StyleBox["positive",
  FontSlant->"Italic"],
 " direction for the dependent variable!\n\[LineSeparator]\nThen, execute the \
plots and print the part of this notebook that includes the two plots and \
(further below) the contour plots. ",
 StyleBox[" Draw points and lines on your printout",
  FontWeight->"Bold"],
 " to estimate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "x"], "(", 
    RowBox[{
     RowBox[{"\[Pi]", "/", "2"}], ",", "1"}], ")"}], TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "y"], "(", 
    RowBox[{
     RowBox[{"\[Pi]", "/", "2"}], ",", "1"}], ")"}], TraditionalForm]]],
 "."
}], "Text",
 CellChangeTimes->{{3.5449737035773497`*^9, 3.544973724662241*^9}, {
  3.54497377536917*^9, 3.5449738036223445`*^9}, {3.5449741477959237`*^9, 
  3.544974155419161*^9}, {3.544974207032999*^9, 3.5449742159521074`*^9}, {
  3.652704184545804*^9, 3.6527043375440807`*^9}, {3.652704425287261*^9, 
  3.652704475409451*^9}, {3.6527047509191847`*^9, 3.6527048576491537`*^9}, {
  3.6527108917160807`*^9, 3.652710902160705*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{
     RowBox[{"\[Pi]", "/", "2"}], ",", "y"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5449736185158567`*^9, 3.5449736500876994`*^9}, {
  3.544973738351872*^9, 3.5449737485898485`*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "1"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5449736185158567`*^9, 3.5449736500876994`*^9}}],

Cell[TextData[{
 "\n\[LineSeparator]\[LineSeparator]Use your printout of the contour plot  to \
estimate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "x"], "(", 
    RowBox[{
     RowBox[{"\[Pi]", "/", "2"}], ",", "1"}], ")"}], TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "y"], "(", 
    RowBox[{
     RowBox[{"\[Pi]", "/", "2"}], ",", "1"}], ")"}], TraditionalForm]]],
 "."
}], "Text",
 CellChangeTimes->{{3.544974314875214*^9, 3.5449743301726837`*^9}, 
   3.652704491517529*^9, {3.652704925065371*^9, 3.652704930984291*^9}, {
   3.652711262812628*^9, 3.652711263354219*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"p3", "=", 
   RowBox[{"ContourPlot", "[", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "0", ",", "2"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p4", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\[Pi]", "/", "2"}], ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\[Pi]", "/", "2"}], ",", "2"}], "}"}]}], "}"}], "]"}], 
      ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Pi]", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"p3", ",", "p4"}], "]"}]}], "Input",
 CellChangeTimes->{{3.544973964791226*^9, 3.544973987701935*^9}, {
  3.544974018259878*^9, 3.544974113882315*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJx03Qu0tudZF/ikbZpGEbAjCoIKpVMUFUSwCHWxw4hUZgqCtY7QQQ5CHZHi
[encoded data, 212219 characters]
IoM200thDI0OsuKd/e8+kcHT3hImZ0wH/wcx+e3L
    "], {{
      {RGBColor[0.148, 0.33, 0.54], EdgeForm[None], 
       GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFnHd4VlW2xo8EKQFRDCWEkooJJPCFIC0hISE9QVQcsSEiOFZQEGHGMiJY
[encoded data, 13969 characters]
/wH7fA8P
          "]], PolygonBox[CompressedData["
1:eJwtmnmcz9X3x699mZFlxjaMGUPMmBkzlrHMDGPMjJnPjBIiFRKSNiVUVETp
[encoded data, 7259 characters]
FnrT9RaeYVhvvnr7nZvn2lxvngfQ5f8DCj3MFA==
          "]]}]}, 
      {RGBColor[0.4109375, 0.448125, 0.5775], EdgeForm[None], 
       GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFnXWYldXaxjcwdHcMzFDTPcT0ML33ngHBVmwFxD6ChUlZICiYYCJiIAqK
[encoded data, 28060 characters]
3r/g7LA9om3c3/hSZT1zniNnov2s6f8HSQiHFQ==
          "]], 
         PolygonBox[CompressedData["
1:eJwtnHWc1sUTx7/AwdF1B9Kp3HHNEdedzx0lBoIiKKnys1ExCMEADEJRkFIQ
[encoded data, 17324 characters]
nQ==
          "]], PolygonBox[CompressedData["
1:eJwtklFL01EYxp+Gqw1ByogyGqaQBhu7WGubC11uIJsUTus2Cusyjbab6qJt
LhFE2ahvURdGUheF4EewsBWCeKMGiW4URTXFfofzv/jtPTvnfZ/znPf9d40/
GJt0SeoGNxyL83NS2gtKuctSHrwByQOtF6XCGWlgUHqbkOKnpXfE91ekD7Ca
lJY6pM/EEjlTUOuTNtvZQ8+PVgA+9kor4I5I1eNSC1HsH4a5t19qnJLqxGFq
M1ChdgGNadZHnZqCHx8hKRGymka7Rt4WeV/JC1P/CJ1LxO/o7sAM+685rwat
rtF3oXMEsrw7yrtHiTn+l7ljE80f1P2ET/jNt+GB+8vwDK5Tfw3mYBHdF+iW
qC3CPLVZNDzkZVmPwDfOf5O3S/4TevOKXo4F7LvN+41H4/Uh9SVqN9i7M0T/
fdJtYoT9KDTQqcME52nyvHi+y/k4/M1I2+elP0QfNDulc8QK/qtw36m55+Sb
uh38/MLXdtD6NH7NPM1cbzLLW8z0RtLO08x1Edbw/jJgNY32hZi0fELqidl+
mb5F6f1jZhAhNtPSOl7+pe23ZL6pg5T05ay0n7IzMLN4joc3eJl1emt6XKCH
T+FqyM6gyPo/eL541A==
          "]]}]}, 
      {RGBColor[0.6065625, 0.516875, 0.4625], EdgeForm[None], 
       GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFnXm8llP3xp/mTrOm02k+nerMU2eex+eMaULKGKV4zYRIpjJkiAZEmSp5
[encoded data, 26108 characters]
0yP8fSDwSJ3qbFuDb3DwuoRNQc4AH4SdHLwQ30LhrMRO6/8AHQKIlg==
          "]], 
         PolygonBox[CompressedData["
1:eJw1nHecVUXy9g95GDJDGnAYUGFyzjkPM0NWSeoaAEXXCKIoCiqwKgYkKiig
[encoded data, 18300 characters]
b7oTogX1/x/bBVXt
          "]], PolygonBox[CompressedData["
1:eJwtlM9L1FEUxY9COBaEvwZTCqlITcfMX6NOmj8HalOkoSRJaahBpllWGoRS
i34shNJV7qIsN7bIRegfYFlQ46admKZWLiIIMyqnz+XN4nDuvO+795573nuz
u7W7ritaUgnYAkKl0mKCNAdf8kk94GmlFE6WnsC1rAfBswJpDKyXSz+90gYc
XyzFgaUsOE5KIC6vksrA8hHpdZr0GZ4row/wsN6yQ9oKV4BB4qrIfsvr8Evt
4D215+kRgsfy0AM60RJC0wX4YiR+k+XqWv2/hU7Dd3JOZUpNYIVa2+KlVXhP
vrQXXGfwNdbO50gvqTsJurOlLlCMhptoKq1yPpgfI8x0lv3DcGsR+sEw/ZLR
N2IzBaSoRCkWTqdGRrbrY/1+k/OY3A3Yi3cVMZIffSWgFCSxlgj68HecM+g3
nzOkGmp/ofYxdB8Hf9A45cEjNPvQnwMSzS+0JsAp9ErNd+dk5zV0QJqg3m3i
GPIf4IsHLkRbEYg6jCZ6CH6Eb6OghvxqcIN9H9g/z75mfp8G/YekvCSAjhJm
KQab6P9FjX9wI3oawDKaq1lbhY/iRyG+FOQ6z8y7q6ydYK034Pw238eZ9zn4
xPdb9F2AJ0EncTPfM4n3gz5y6sltzHW9rKedsZ31lWrpcgqAp7lvo9y7KXiW
um/BNLn3yX1BbjtxR8DNbLNf44zLOKMGZrpLzXXiO3A96yfBAhrm0DLod/6Y
T6bHdO1j9h7mTYdXguTtlL7Ci2Ap6Lw2z8PsHaLGZpHrbRom0HIPTa+ID+Lr
ALkfg85v872X3gG01EX8Nt/b0dsG3jFTE31jy939tXvcwd34xv5etA/yPgaA
N3JHltGwhv7tfK/0uTdmb22YOg9BC/EM+s753f21exyNrjB3KAr20TuL3Daf
+w+w/wLzxjzaVSv9SJXS4GZ6zvIuz1S6N2tv9z9yyLiN
          "]]}]}, 
      {RGBColor[0.8021875, 0.5856250000000001, 0.3475], EdgeForm[None], 
       GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFnGd4lMXXxheldwIkBEILJWTTezYk2bQNEMAKAhZsIKJixYq9AmIXK6JY
[encoded data, 19825 characters]
7lA=
          "]], PolygonBox[CompressedData["
1:eJwtnAd0lcXTxl+p0hJqIBC6lHSS3FTSG5CgKNIVKygWUMAOdpRuB9G/oiIK
[encoded data, 15738 characters]
qzS/8VW9dPCNYr+51dtbvQHTWzD5BLUeFE+rRF7/B060kOo=
          "]], 
         PolygonBox[CompressedData["
1:eJwtlXtM1lUYx794CbK1lGuCjWheXngBe8E3LvJyebm4+iO7gOLCAKdhF8pS
W1xcsazsajattTUQFeTiVtPphLxCVlQrq9VKjVIrrHTaWms2eOvz7Lx/fPac
3znPeW7nOeeXsuKxex6dJKkepsJGn/QspOZJa6MlDzIpW0qE4ULW46Uh5Gq+
G+DjAskfJ40gh+A47JkvpSRJlWVSVI4UCaleaeIafDDOuk16d7rkQ87JkubC
hXJpDH6FdyKln9HvWCC1w378teL3APKtEulN2JEufX2j1M94LJV9UI7u4Ruk
RcgL2ByDz/Axji8P+g94pFWwmBjyZkh3Im8mh2RoR+8n9LYjW4ul7xOkFuSL
fL9kc+xvgXPs2cbe88h7ye9V9kz4pT5y7ocnM6T1sClXugm9aegtoZ5V8AV2
QuifRBZQ12eo732ZUi/++2Ap9pPZE82eCXIIQQ12fmCuGpvbyacTkiARZuQ4
/RhkF3X4knrsKnG+zOefAekKjGPn6GRskXsEfgTVjC9zbhdZn8T3VWo+xvg3
+B2iYBnrn86jbuxvgFbOpAX+Jf4E/F5FJpL7TPiRcSRzC8jhDsaHyPN25K3E
6YMq8jjFeiXyWvxNC2PjfPT2o78QGUX/9MYyjywhryAcJ5ZviGU44HyZz9P0
Sdss6QwyjZi8sIv9OyEffxHk08m4mTMqoxc3lLnYLYcKar+R2q+g9k3YaoYu
8muaIp2lLkfps2PQSy2/oqad6a7nrPdeId6X4boi6SA9eX2Ry8/yvIvcviPH
u5EniPVbYq7AXh226+EKZ3IZkomhlHxr8TuIrQHYiv4+9H0ep2t7yj0u7yHW
ZmW5e/ELe2OIIxbmsN+Dnbmsn+WczkEmcxmQHb5jR9Af4PsgTPU6/UHG8UF0
Z0pxQdfX1t9bqHUt8b+R4+6J3ZdG1hvRe5D+O0Sch7NdD1ovLmNuFP3l5FuL
7fshMtw3Hxa7nrberqHObdS7kLp3wjDjvcxVkeMS2IG/BuzsRNZZ/jCInZPY
eT/g7rHd50fw8zCcSaM/yKOR8XsQjb32DHcudj4t+Ohjrhl5Ct3TEGIcYk75
0mvkvxkSOLsjnGE8MgZi4XHm18DFTKf/H/sCeS7+ImQctuLBS6xpkG7vAG9O
AnMeYn2CmOchK7FRBRP2/sBK7G3CxmK798w/bWdHnj3ot6H/R8Ddx0vIdayt
97uett7uKnb9WsreW0qxyXnMRi5Ftxp8XtfvIfYIXxGw1mKB15l7m7U1jP/x
ujeug/WF1LMAXmD9edjgdW/ZuN+diZ3NPmI+gd8u/B6w/iXPY2nu3bf3fzm6
NZAazvs8/VfPnjoYoc5bY3g/kIvwVwF/4W8zsXzidffa7vcItkfx8Tl79nCW
0xn357r33N713fjthkLO9wN6ZD5rXhhinJPh/g/2n7C+tP58iLlLrDWjE8Tn
ADmVIrvNVqo7YzvrbvQ6qGMv/b2O8d/seY49DcS4GlKyXd1GifUp9jfZW8Z5
7SXPLQF3Z+3urrL8yHNlvjtTO9sS7H2EPX+u+2/a/9MT/v9FoDcZpkBP0MXQ
F3T/XPv3Wu/bHegJvz27kf8DX5NHCw==
          "]]}]}, 
      {RGBColor[0.915625, 0.6590625, 0.33843749999999995`], EdgeForm[None], 
       GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNnXmczlX7x28M2QbZBmM3Zuaefd/XexbLSE9PpRIVRVLRilBIoX2RLS0q
[encoded data, 25010 characters]
/X8a4jgk
          "]], PolygonBox[CompressedData["
1:eJwtnAmYztUXx3/W7GPGMhjboFles5h9xuybvVVRskSplChCISohUUrZol2p
[encoded data, 16043 characters]
Yv/Wmsb0GPD/AaPvrO8=
          "]], PolygonBox[CompressedData["
1:eJwtlVlM1FcUxk9MRWK0olChFQ1WAoUBdYZhBh0GUSDBjRqgfVCLASyChhFE
aAYRR60Jxrg81MQtSitatS6DKT4ottaFEU3UPohWUUOKNlFxidUKNcbfyZ2H
L9+d/733nHO/s8z4kuX5nkEiUgYGgxCnSPRI1nCKTcQOFqWIFIHWdJGET0T8
sJvv6aDFIdITJtJvERmbyl1wcorItVEi7RNF9lhFdoM/0kTG8e0cXDZDpPxT
AEcncg/UY8sLNuN3If53JYkcwGcLGHCLvMZvP5ySLGID2+z4HSESg72VWSKz
PxOpgZvwtRE8dIn0gn84N4T4HrFeQKwXWc+HA3Eil4GLWKeCdFCIvUP4u5Qp
MiFKpAMejM8Q8J47UcQ1m7i+wX4RaCX+/bzDDy//QqQKfMv7s/ExHj1ecOYl
iGc/g3MJ8HG0OwEysN0WKZKZafRRnSrw0cnd29w9StzHwFbetwW8Abno9xZ+
Ml1kGPYew3e5160+OBsHAujnI84OeC2xzMXeWuJfA3xuE6PGWsv+PM7VwbG8
eQJ4gN8/Ob+aOBqyRVaBejBjCHCbeDSuJax3kY9y2E/uutHte7upEa2VOdhM
U63gNvZPgX183wsO8vZY7v4M5+LnDP6u4PcZuX8OHmDnPpiM7VrOWYP6ax5C
wVV8LWW/m9ytjxDpcpl36/tVV9V3IZp2ou1x/BYQg4tYCuFKcucBBeiVD5aR
82Y09VGneVPRCmzAxxH8JqHR7QyRW6AP25s+ogb5donfF8GwHGIfg26TRSLw
E641TP19SR02ZJka1Fr0c7ePmFvtRn/Nwx3u+qJF/oIt2DyMv3Vu41/jKAHF
wIoueehTynrWJJGZYF0wpxV8q2V/JTiFjn18a3OYftW+3c9+XTj9A1cmiIxC
jw3TqEHOJIKfgn37I2zDRgpYn2r8vYMHwP/ARr1ZQRS5OxNKvSab77pfQG3E
oEE+nIeuc8Egzr3+GEbvTuK4DBpZF5KDreyfIz9W3vs7vAobDSDCZmrMSwyv
+P0v6CavG8nvPZfJlebMi58s/AXQIRu9ckA1tqtAP+eaOT8AF2PHwztOYycO
xIMofESCv9nrYq+Jd8fzlpPEFcb7HrP3BPTh5ylwEutQ9h46TF1qfXZy9zR3
c4IaqpZNaBqOth40riaevbytym36SfvqMDUWoMZ+nWji1Hi/4t557HwNj+ZM
JDjL/nU9N8XMUJ2lXfi7CWx887JnhZeiQRoaLMs2c0vnl/aX9lkH63ucC8DX
QQ/rG/AO9nYGoeur1GczdXoF9jBDWph1VdONL/V5F1wjvhXEF8a7R4Jj8fQ+
qHaYvRqdVcRYx7rcYnpWe/c7vteBEdxpD6E+HUZ/zYMFXWrQJxGOwd8K/H4O
/8f9t6ACzZPR3OY0c1/nfzE5esS3SnL0DPvP7Wbe6dw7j+03+L8AN7L/knO+
NNMT2huaT83rQfq1ZjT24B7OhnIuNcnkWfPdiEa/oNVmclDK78XgN+I9q/2A
zuPQex68IDhX5meafo8I/nfpf9gS/PZitwz2EuNNev5Iopl5Ovt286ZS9pvx
G816LGglnnri8sM/cGc7iGWetONveI6ZMzpv9Kze2cfdEmzsZL2HdRHrbU7z
v6n/nzrbdMbN5JuTvVx4i8471g1O04vak5vQ4Ba69VpMT2hvfADq3GAL
          "]]}]}, 
      {RGBColor[0.946875, 0.7371875, 0.4353125], EdgeForm[None], 
       GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxFnXV8ltX7xx82NrpHDhiwsbHugHUPhn4VMZEQxaANEANEsQu7wELBwO4A
[encoded data, 26657 characters]
cWnJeQ==
          "]], PolygonBox[CompressedData["
1:eJwtnHe8z9Ufxz+4Vva+17XJdfce7t73usavpCGkNDRRKaqflYymCpFIiAZS
[encoded data, 17080 characters]
c0//vaf79jH4+/8YMGG/
          "]], PolygonBox[CompressedData["
1:eJwtlFlI1VEQhydL6iH1XktbHoRs1etS7po3l0J7EdNI0xYtC1zSa4VLi0Kl
mUVZWlJCiyaRpNS18iEVssQeQk0IK6++BEklaL1kpUbf4dyHj/n/zzkz85uZ
w1l10JJc4CAi8eAI00Eiv+CkSeSSgf9gkR8wBd8iRba5iUxg3fl3gwV8P1iK
73qRGz4iaUaRqlCRogCRYshkLQPOsJbC3lnsbLjIDHR5i3x3EZnjO40zu6E3
VqR9hUgf9ifrv13Jj33B2U7oIc9L6CB3PvqeY4PJY3EWaY4QueIvUgM7iJUI
Ifa9ohiRMb5HoWQL++7ow9rQb6amMeyjQJFWaAnSurLNIs4bRFygAf83y0Vu
xeh6VF2qPlVnNTWlU1s9a4/Rlkm+CyEi56EK/OmlH5jwLSGGN/YQurPgMCRw
fnIT9fMdQ017sHeo9S7khKEDvqJpaBGxfUXCydmxkL4R8yHxW2AeGlaiwQHb
6iXS5qVrUTUN4yvEfU88K/qegBPnPDi/GFtO39KXiOz313NW83bGzwn20oM6
+rMPm4iOD/jsRIMPGnwD7HmghJpaqK0Ym4dfIP3LxVrZa4d4P5GjzHIts6xh
/Wqg9ldxdhHvk4pLfFf+jWpG1DSI5jFqTEZ/EqyOYgbMzRObjebtaM6J0L1V
PXbDL4NeHsfXxv+oSc9OzTAPXU3oy8VaqOU2Nbmyfg//RuhCYyd0Edu8jG9s
Af3IIUcd+yX0pBQc0VqP1i+h+i6pO2UmXwda+0y6Z6p38fjG4ZuFbwV+lWAk
nwE82Z9Pf46gIwz/UKiN0LmuY5u4C41QRs0fOVeO7fbSPmXkOgWnoRauwRQY
0DSJ7edOX6ZHA1gDeYxwIFrkLTVlRuu4Kv5f4v2Bi/R8Gt9qrJXaPJlRX5ju
t+p7NBqjoBj9N3koJrg7Q2H67qRw3wf5fgep7KfAMebbTIxKPz13Nf9+1k/Q
n4FgrUfpSsBnmBjJ5JylJ+c8uJc8Qj3svYJS+31KIsdTZvEMLPgXKOzzy8du
hXK+Y8363VLvVz0aA1nrjdT9UX16zXti5V0pIPYIsWxROo/K95leNdCzGXT4
cLYNrb4h+p1R7426q+rOrqG2QmqLo7bJdbw1vHvjm7kL5BxXECeYGVk4O0es
fzBCHEfqtIXo91K9mxX43ydOYbjuWar9fqh70o3mjWjvwv4HgFn3Pw==
          "]]}]}, 
      {RGBColor[0.978125, 0.8153125, 0.5321874999999999], EdgeForm[None], 
       GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNnXWc18X2/z8ssUg3C7ssC9vdsGyxnXgVELvjewVELGzFVrADmxAJKQkx
[encoded data, 23485 characters]
nM8f6XOJe4zeKXWeNXdRk/vfPsjM/w9t1+/X
          "]], PolygonBox[CompressedData["
1:eJwtnAd4V8XSxg+9l1BCCb0lIT0kIaSRXuHSREVEEcuVjgVs2FERRVERUEQE
[encoded data, 15128 characters]

          "]], PolygonBox[CompressedData["
1:eJwlkUlLlWEYhi+CatVgZIMRKHmOnpMjeRzIo30RSkIQtek0LZosMi1yDG1Z
tmjTMmwf+Q9Kl+00acDaFthCqUVGQWjH6+VdXDx83zPd9/tUXBk4078JKJfN
cr8WTvvRdxLuHoF7cqMRrsuD4zC6H8aMlYfhkHzrgucH4avxXRXMy80eOFUB
vcbBBF7ug6Ek5kJNuhr+29PWDZM5eCIPZUK2nnBWGXTVQ8qe4hbIGmukNol6
gq7vHTC1B5aMr9uhvhTetMcZYdaMPjK73NcK21tgh5z1f+dOKFP31Sa4JkPH
YHEvjBh3q61ULjXDW+suN0ffwX/4H/INzqkpcZ9x2u9Xcse6Oev7jSt1sO7e
9TZzzp+Wn+6dNP8jF+tDX9ATdL1XX9b6WfUmefXrY8X8H/v/SlqvKUl8l5ID
8NR3eaSe4jZ4bLwgF2UhCx/0MaCPj77DJ0nps9u9t9z7y5rVxjgzzF52x7i7
OvKxP8z50gkFZ/zOQJVvnZY1Zwx7v0wSvQRP/+xfU/NyXbxduGHOW1d68ybj
eb8Lck6eeb8Xarvtnin39eWjn+AraAxaP8tRc4vGDS8qcOU=
          "]]}]}, 
      {RGBColor[1., 0.9, 0.65625], EdgeForm[None], 
       GraphicsGroupBox[{PolygonBox[CompressedData["
1:eJxNnHl4VdXVxg+DgEwyzxnJTYIBkiAkJCEQIMm9uaCCgFosorb1UxBwxKFU
[encoded data, 13725 characters]
xkaEP8GH/wcUUpZE
          "]], PolygonBox[CompressedData["
1:eJwtmXd81lWyxg+oBAEpAZJQ0hBIQiSFFkNIAiR5k7xBpVsQdOXKIggiSrMA
[encoded data, 6649 characters]
+DmX7txGNZFqo/8HpMJmCQ==
          "]]}]}}, {{}, 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["

1:eJwVk1tIk3EYxp9ddaFZWlYLU0fkZrXWPFt20HmYh1I3SUnzQkiCSEVUXBdC
ZAdaQUV1UXaTdqF1k5a6FLvosEmiZqEIluaiS+lCoVCwnxc/nu/7/u/hed//
Zqqpd9UZJP2B/jjp70nJliv9Q2eOSqvod6c0B2+OSZl5Uka2dN0mnc2UrqHz
dukHWI9IZt470Kcwe1gKI34LbAUrMWUJkhuuUDud9zr0Eph5XsqRek5ILyCb
/I546R497kPEcSkSdkA9dQuJPQVF4DskrVNDGZIBqlPpwQwuCOZLIw6plOe2
QqkEdVP3NzGWAikezGDDdzvfrkKzWeok7hmYisg5QA/mL0UrqGewSuWo0Igs
KRz6OR+EAbiMRw+MWKSX6dJzZu+CTlijzw3mb+TMSN5uCCN2M4SA96BUi4fz
kEj/BPDTaxQCEMdu9m3ADP40aZKaEzAOvfjxkncLmpjhLrvYm4IvfDvYpw91
U6MMXLBOLyN5u2An/MT7wsYMnEVR20KPKb5/gQFqe/j+GO9PwM67A++5kAMN
xL5j1iVi/NyHn50H0FHqBCAUP2vsuZW7W0U9aCx3FgOV5F5kJhNeX+OxEq99
6Aq/iWXoSmaHcCdJSqHXbfQCvT4Q9xHy8eMEI33OkGenfhZ7fsXuemET32Px
+4jfyhh9u9nzQ54fQBX509xFKr3TYDux2+A9dYaZpZoZhtBzaDd77QEftd7i
YxAdRtvIX6bOCvzC1yKxScQFUTtqg0jmb+a/1AJN8HU/u0Cj2e0eCLL3RZjm
zr7BBOcNnHupcZN5PjHPaeKKoQQ+s48xcHKHjfw/8tD/uSGvIQ==
          "]], 
         LineBox[CompressedData["
1:eJwVkD1LglEcR09EOTiU36AmQyIzBIveBivNwKD0CWqqxqB2aWgxSNMgo/oI
geDSnkuNStBQa29TLUEfoNNwOPfy/O7vf+8zvHOwtt8DBHIVhdslSOUgH4dJ
varDC/CzDE9paI1DbAU2zW1JKwmRGRiUAXkZg0dzz3rec1XPz+qKntNHzqjb
eyan7utSk7b58iIcS589G3aHzJZT0K8D90X59h5fcmf+w45PeZV3eZNdsxVd
lROp/c+RpvnQNKx7/219noCGFNxn7c1IIgu9MTjM+C9G4GEULvWN77133TU/
5OyS66KZQPb8fm3/xZSd0pCub/31TEe3J+APn3NBlA==
          "]], 
         LineBox[CompressedData["
1:eJwVkD0vg2EUhi+LkNitDPoleEU10Srqq/UxmcVgkbboQFgok0RCUn/BhsXH
5BV/gUFETGxGC1GRiMtw5T7Puc95znme9sXK3GoDsCCJGKTz8NsJnwXY64V5
+YjD0zCcqefqpeRn4UJdz8FdFJamoSij41DrgTH1QD1OQzkLkT449Dxi/jYD
1/a2OSNUt/W3/mucv98PSe9JSZO1BXua1Rv3CiURwJVeOAhVayf1G/UDd27x
jg736ZKoxCUm9+43Zc+KtYG1FbU+ADnrv9QhNSv1JBy5b01eEnrqq/ptvqhf
km7/42HCeMacPBpnzC2n4NkdNnzbppQ9l2TNuFV/1zk78h6BN3OnvuPH/hP1
D49tRc8=
          "]], LineBox[CompressedData["
1:eJwVkDsspGEUQI+GitajkKyww2KwmGU8soasd4FOsokIU3jMSBQiCmKzKqFQ
CxE0EktLIRmNWCXNFpuIxiPZLbw1HMXJ+e/3f/fe794P/fHuWBIwLsPFMFQF
IzquY/KrGbZlOALR9/96UGc0QaZc1ENfCaT7PRuGH/KxFHbaIE/v6ssARBrg
StfUQVgmCiHtM/yrhC3PYyH449m0+TMyZhyXl3x4MH7Wf+11Vw051s2ohSzz
1ipgXW6C1tHX+tk795JqTtRe2eWwVwDfrRctg0lnmJL/1gs0Qr4km7fQCil6
Uc8547x9f+ol9/Bqv4T9NqyxKZEiaHcvHdIp+87RZb9T+53Jb2ucyLGEvsEX
6fZOjwz4zl69/AlW7LGqh4zznP/W9+Xqc+8vtrtfffQVDlog6A5L5NX/D8ZP
8ihR41HrDOqEdQ596xspXFhd
          "]], 
         LineBox[{11708, 14095, 11709, 14101, 14100, 10539, 16182, 16180, 
          16345, 18478, 18479, 18477, 17009, 18797, 11635, 13169, 16101}], 
         LineBox[CompressedData["
1:eJwV1ElMVmcUgOFjuqqtjZqIir8KagHrjMYyiLWKA2ADaLQ2cYorZ1OT6sKx
tptuDF20TRqtojShUUBMHLppnBULVtw4xIRFm1ZFQA04xupzFy/vPeeee873
fff+ZK7atGBjr4go9eflxIjG2RGv+Dhv5y94By/h/0sjXuNejuviiDd4jXq5
OrSNj1g6J2IZluPUlIi+2RFr50Wsw+cz9MMSLNTjVlHEbdQWRnyg/nRWxD9Y
rXYN5qorRQn+VL8geQ7lqEQF3tW/yJzpuGB+R0nEeb5pXYesqRplnt3NX2MX
vsEeFKs7qX429zW/H/ojNdVs+11t33N4DadZ4wCUj7Yf8W+5EU/1eIbHcyOe
oNK9wWoquEv8CPX2UYe7+nar7cFD+Q50YlJBRC4u6/ldmd72cyIvomac8xT/
yr+McQ7OqQzzkf6pOfh2csQG/X6YELGef+TReuVglOtRcln4EAf1aHde1fyQ
p5td6Fzez4846wy2OIMzvJXTzB2IVnsZY91jk/epbgX6TIr4Un4z3nNOVfq1
OqPveeR8MzECg6xvIDqSefbfbV+Vzuwn68o2Owcp82utdQh/ZV9bkIYD6ps9
m61PC+dw09iIT6zvKl+TK9b3tH3M4sPqF+k/XF0GhuGgXI9cNR9CDdLNyTK3
3fUDtHlPF51NobO/It+EV9aTJ74gX8DnOJ/Pc6P3sljPO0lPc7vMP5xY/Agd
6BR38kt1K32DJ+13BZ/iKXpPRrE5szATO/XdgQOeu6ffA9xHprU2qM3g3OQ7
wTF9G/CZ2kb+Q91yrvrIDF6JIrlpeGF+PhdgKvLwMfb6Zn73G2sx8xqak9+B
/bXyDUz0Lq/zX8hwPiXi9e7P4w1cyuu4jnv4KHdzue+lt5k/+z5CfETcZO1t
9nCVj4p7yVf5BjYn5ylerH/Kd7SIz4mfye/x/FDX+1yncwpDUIYsdbWeH65m
gufGY5X4HbX17reY87d5zVwn/le+Rm0q+b+WxPJd7v/Hx8VD5fd7fhtfEi/T
P1PPEXgh12Bvz7nCvXZn1ih/DG8BCkX3kQ==
          "]], LineBox[CompressedData["
1:eJwVkl1MzWEcxz+nC7HZXNVEndZ2KKKIk9eU6JyTl82SvJyLOLHJBc1bNpYL
bl00tnTTiWFItS644KIuDilzYWwumBqVl5tmsmMu8HHx2fd5nt/L831+/39B
4kTd8QDwUj5shDEJl8Mn9aOMS9U2qJRjxTARgUmZksxV0Cxsh4D8NadtBWS4
riuFlvWwW61eC/XqSfc7l0NnDbwy78UmuO66Q04Zmy6CXvv1Sa01MelZCd9j
MOPd4SiUy4DxnKWQvxl+ep6rBiVPZtvjqNos8Qo4IHPNT5l3yF6pxdBYDQel
uwqyPE+q2SrWPFKLy+ChWqqWSE8Y9rmPqhEZK3Rt/bgasn/7athrPG3/K541
1erVdybUI3JY3uvr6Tp4p973DfdknjO468y6rEtK2hk92wrPZVhGS1xvgRF1
2h4Va6DV+ri1C5xdf6VvdjZB6XX9YIN9fEPHMvil74Xm7Ldull5uWHPzP8Y7
jXeri4yF5Kye3/rN3+glqqfXakwN2A8psnehNDjHb0u803dc0O8eaxuky75J
afG+a/Yt8OyqOt99jpzWc1DvZ9Q2zy9KtjlZktBLrrPM1GPInPPmB3xzhjR5
54x9843PMR43P8/1bf+9W9Kq7x/WnFPvuG/3Xx3Vd8R/qUZS3nfZfpdkwtop
+SyTUm9+n++I7YDHznfI+56og+pX41+k0e/6x967/MZl+hxSI/qJym//mbT8
A1Q/lHQ=
          "]]},
        "1.5`"],
       Annotation[#, 1.5, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["

1:eJwV01lszWkYx/GHsV0w1tFSEhK7WtpTa4vqqbaoZCLFhCslkTAzEktiiWVs
48KS2EkQbZ32VGuZK2vElsydGduFQULE7oK5QCX4uPie3/u8y/P+nuf/nt6V
i6f/3iwievi53C/iFU7lRVwaFNEn3xz9S/z3+Iiz9Kr40ZiIK7Q6J2JuYUQV
XWut0dzhRMSJgogGXBtmPRkxD0VDI9LmkrRS/IczZc6mnDlq/hiqkDEkIrso
YjCOi9PWK+w7aH+CbhevMr8O63HJHbPky5F3jTiXLre3fQmfaqkeHbFbzi5q
2UNrxJUTIurofnGG+UzUilOI/hGtpkZsHh7RkrZB6++498vYiK/YqMYNeGF/
z4ERgybxi4FIOpdNE3z8wlcePSz/EbQfaTw44v8pEQvse1Ea8RLlcnS2Po1+
UncTPuI5f7+p6Vd0V/vPZRFZtHYcrxg7IKKFvtcbp1GHzOyIm+qvUMcte2/j
X/yDRfIsVMdO601681oNc8QNfKb4vDfZtzOuKvY9sIa3Q+7oVu5+ZKLQO9jH
a0oP99MD2KWmO/LvpnfpU+eSaim0NhEX1PqnHhbz9FZdk2gFLyXyzaD91NUf
ffHOeh+6mZdNeKwHW+gT+t7aM7lL5X6u9219+x/1sh19q5Y3OOX+cXycpGdw
GtvUUMRHEhd52cpLCQ9nRnnTud6O/LkYjvP6l6DF7phvb7W+pPSkhtbSUv1K
03rU4ag+HcEqvra7p6uaMvATRujVcX3KUk8N3eH+2fyu5PeD9/kRB7ynFeJc
OVbTnO+56Bz7CnhMiPOQ764sHsr0qwdd5Bve9Q0P6cN9vdnA8390Iy3k/aHx
K/2a6d4Hxi+Nrzizle4UN/H2GR3s7eW9bpH/3ET1Y4j5YdjLwz4sUdtSLEN3
fjvy18F8J9pmhP8G0vqcr+91tIDW0+bq/gENxo04gRtqvo5zavsGjVfM7Q==

          "]], LineBox[CompressedData["
1:eJwVkMsrhFEYh3+2KEulLKRcBzGMS4MYtxTKBhs082kaNTNYSdhgJktiFjYW
osyKhSxccv8LpKxIUvjmy2XDmJHH4uk57/ne77y/c3Lcwd5AiqQZuMqTLHiq
lHw10nCJNI3dONgsBfBtg+THWxXSJoyxP0H9yP5uu5QokM7s0g9+qZJM+K6T
vqCb/h5ItUnOeikNu5qkyWLm830W3uh/dUoxHM1nloM1tQl2sgyVSdXYAffM
vIPPWum5lHNbpUz6Nsj/zt5BEXlwEqLsxfE2ziDbKHPTsUGObPJek2GQWSPl
0hR38uI57hVnzjxewouNvEOhtMo6Al6yrOAkM3/Bxv+nZN4j+z7EqE1wc/Yh
9Q2z/C1SuFMKQZD1movzyd7H9wU8TsYs+j3kHGCvH9a5h4EtMvnwB86l56FN
Ou6QjsBDvcP7GfiEnhCzwnDB+hK6yHr+vyZnhIzL5LLgD/q5Zgo=
          "]], 
         LineBox[CompressedData["
1:eJwV011ozmEYx/HLvBfzNlOUvCx7ZjMzM4yNsRcs1MrBLInCiK2ZcIIciYgD
wgHGkjUTCjOjlhxp2YpMmROsnIgDNIl8dvDt99z3fb38rvv+PzO311XWDomI
77iRHlG4JKKJ1hdHDMuN2J0Z8SEvIrcwot/+oZKIK6sjaldG1OH18oheNDob
I+e5+D7r92hdGPFmbkTLAnliU8TkLI6oyVJracQeusg6qyjiWCLi06qI7nkR
HbQfn3FbTKbYLDSLvYXncyLy8yOWOV+OAiTkFdLpNMkMLWo2I8O6yP5Fs0y1
Pw2jMQpbCtRbxL/ed8W2Yq74YvFl4ssxy3qx9Wy6hG4yX5W8zWiSewOnzTWD
n3tl6uCx2YvnR0zUYwJqV0Tsw14ku7uxg7iXl86S6Xn3lOksPUN/Z6Oy+aZZ
yMQjvUv0fkjb6Tt+38rtxWUeL6HL73nOd4hfL79xWUQqL0O9SRvPSXT44Jui
XX4avwNif6PO3Nn89rnb92gwzxdvdl+9Sm8/i7c0lOVE5JVG7PQWu1Aj9rj3
eaH3cR7Oqn0OY9Qbh/HYP1gPbTzV0b98/cMf/boGvyX3dxUD1vXiG8sjnvDX
on4H3aDeRnT6fqbptd7vt3r1Yjh/H+hBeYdRy1+HeT6u9Qb6HbD3zPopjsi9
o+ZRupWPKc4a1O+Sn+L3JEzAGeevzJgwfxOfN9Ft3YMCe9/oZHeXigzrX3z9
xA/0619SEVGKk+Y4hWviP9u/Sq+jEZ3WDb6R897nArr42ebOR/A9ElVmTOOj
mq5U44H/Xo/7z1hjNt9Ign51tk5sBar5PiHuP5lUqQU=
          "]], 
         LineBox[{10159, 13959, 10161, 14092, 14542, 14094, 14545, 14544, 
          11353, 17094, 14102, 16181, 17089, 18811, 18810, 17091, 16347, 
          10746, 14473, 10747, 18796, 13168, 16102, 10494}], 
         LineBox[CompressedData["
1:eJwVk0lMU1EYhU/BIVFjbB2iMlZDcQTBtlGQCiogUk00McaFG6MrtGgiLowT
EAfKUI1shBBN1ODOITFOLSEOtaa+ykpKnXCKc6OBmACa+L3Fx7n3vnv/e85/
i31n7RafRZKFP/PzpKoyybpEOl8idUAn+NdITeBeIHUxn+SShhdJ6UXSEDpj
gzQTrDAdbFDEnruV0h24DUeWSvcKWQOjVGpbLN1CA2hsvTQFPY36oQk64N9y
acQhHa6WruDtDPe7qqQQ/pxoEH1SIIXhJrU81JiGPyvEc6VZZOlHh6gzDAH8
tkGE/c+ob8BIhTQKY/CLPb+hlTpRvrWYntZKDr7lwEF81EEu40vLpHYYZX4O
DVHXtpD8eIqzZkOD3G0n71Gyf/FI3+A7ZFAzHSzs/8w8zJ6zjJtXkBF9zt19
MJ6+TYCJUEI/PdBNH34US0n4S2+S+B1DL6+TPuTjC/2IxvHTD130LIaX13gy
0H2rpFrwQTY9ywI/Xh7iIYHfBNkGoJzsffRpG2tx9rQzf4EmYAB8vLsd3YvO
Q0/g4xo+LuDLTT+mruYtYDZ5csqlOWgIDz0QhEzOZMBmctZQw2Ctmnu98Ia3
HYS3sJv+7IIb5tuTp5laLeCHCPe0ol/J1UieBqgHF3WdsJ1cBXwvhGx+E1mQ
CZvI8p5se8iWZF8N2sm9P80cnA/gp5jxZNSxUqo0f3vkq0DzqJUPaWSL8i5B
3uwq7zuX3N3ofeY72NvopB+cH8TzOzjF/CREyFGPNsB+/B9Hj8FFzvTSvwT/
O6/gJWzku4u7Ur30FB2HpuK7jnEK4wOol3q9nN/K/AGawpkeNAR/3NJTNApp
rMdQAz5xJmx6gUOsP0avU+sR+h8ya8NB
          "]], LineBox[CompressedData["
1:eJwVkDsvQ3EYh59OViXt3kFd2ubE5eC4RBukYhKDgc0gHehZHCnBJm0sFl/A
aLB1a+sb2AwGPgBGt8XgMfzyvJf/+3vf/HO78WY9BWypzDjszUNWHspEfU5B
YH5ShsdVOJbJNLwUYGACnmVGDqrvEH7+5czyInzJt2HrEbzLsrWG/XoA13Mw
68ytXpH81SdfgaIaU4F5zTcl2bcCZ851FpzTp9870urevKsu7FX1vJThOrRk
VNVffazBuXt7S5Az7sjuKJy6tycreg9Nwr5v0iNw487Y+EDF+lzpG3pfTd8H
dyfetlGEtj4N4yN1p09qBrb9pyfrO7KpXvP23PMHc+Q91w==
          "]], 
         LineBox[CompressedData["
1:eJwV0ctTjmEYx/Ff07CwEzurHN6OKmGMUsNQqcZCGBunXktG2ZlRWGZhjCGm
clhhkcM45D8ojGOoGcd/wQxjV/Gx+M73uZ7nuq/7d99PebGv50RJkjt40Jg8
bkjmu5Mn/AgTWFA/5ZFC8oyX1yXvO5Or/JaH+R3/8r25PbmmnlY3VCf96pOo
qkgu7Ewe2qOnK9mD3diHvbhlze0mObBinV78Me+u+tLGZGZ9Mov+5qQPzWY/
N+8FJjFUk0xxo33G2vTLOcqzfJ3Hucm6ezznPPe5y4wKz5VYjQLW4OLm5Lc5
7eZ1oA3delt8a8Wc88xjASPylXS4PPxVD9Qnb2TfZf0Zzz/1n+VBHHbOIziA
QziI0g0ymj/urIutX4ThquSTdzP4iDFnK5pXuyM5Zk4NH+e1fNq9FeUd4El3
PshT3ClDr/lD+pbKVvY/nxk35U2lf6hehqN6ihjdkmzbqrZfEb0ob0lW4pt1
E/b4zj/kW+Vdvb3rcEPWy3wFVa1JNWrwWf/0dpanoP7CH9SnapP9m/w3ucrs
+ZLPWfvV9/P8Wr2EX/EQl/rn/wB8MHyu
          "]], LineBox[CompressedData["
1:eJwV0k9Mz3Ecx/G3LHVCl7T9jClDkX4pfyppqdZsNvycfvlF3IzVHFg2E52c
mrWJ9XPRwUIrIzdbWjOGfsPJOtg42CptbMTRw+G51+f7/rz/f76bzvSkuldE
xHPk10R82R+xip7bHpHbHfGk3Nl3If46Z9oiOnGxKaIXp9h66iMuoHlfRAuW
8B0juyJOHow4Vhnx5kDEO0zKk6iQg/0oe5pmcALFWyOG90RkMV4dMYYJ5xL+
Nc0RtUggb0dEkhZsk6cxYrWcjfwm9VJHu8QdVj8lf5G7WXVbzbLOTCn246jU
2xH6Ss1SMa/pAz4PseQuzfcn/YGzdRF9OyMGa9XQyyifZTXKxG/GEPvT/7Nh
bTJihn8R/WYnb8UtttqpvRbgNt/2vRH1eMneQKf5v8B5c93wPUQvqXuL/qbj
9jxqtgF3WbY/bMvoNX/C3i7TDWqvxx339+xmXn8LqPKd12Bf9JM5y+WqwAfn
j2jSX46O8Hm2JeIrPqvTh2tI4KbYftpFh+Xe6Jxud+88yHaXdutnnn0BZXiv
r1I6pbdoMR+9qr8rKPQuHYf0zCdZFfGL3xq2ObsckGfWXnK4zve+Ov10Ro4F
MdM0zx5XIt+bFXuLOf1n7LUTj+1xAlnvVMI+5h0X7eERPa3Pav1O+Wfa5P0H
ttmErg==
          "]]},
        "1"],
       Annotation[#, 1, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["

1:eJwV1Fds1lUYx/GnCAhKW8DIsIwybFlKoYMCLZKAbIkxeqsGrAgYRluGFuxi
9AKigkoBvdBrAwZBYyKjtKissoIaUBONUoSIlKVYhp//xff9nfOcZ53xfwfM
WfzcopSI2OWnonPEvqERvaZEvD894gOkPRkxcFrEfvbe7FvY6pHOPoj9APtj
7FvZtqEr+76nIhrYG8ZH5E6KyEM39v3sB9kPsuezFaA7+wH2RvZG9jFshXiE
vRUZ2RFzRkY0WT+EMgwaFtGH/Xf6jfm3KMdg877sf9DvzA9jDlbL3zY14g7u
4i3z3kX6xgW+1yZEtOPXSh+g1+nX/K7Se/Q+5rJXissQ0wct4k7MjLhI21sb
nhNRot8LbK/S9U/Ii1es3aAlSV7ad3REHe1gPkLMbv4djfeqMU9cS5ITpTia
5bwLI67gppg653uLXh7uDqz3GBKR6g5yZkUsl6OL8TK6YEbEQvSXMxMD8NC4
iIdxTY0qsf2dU0p+RD9aI64W1ego9yV8z+dPOlS/QzBFvvnu4Zi7Po5mbJTv
jPijxqnFESfFXHIe1RP17Iwuit/C9qg+b+v7N+P/aAv7WeMLdKQejtlnmflr
esvnO9s7yKPb2X5xRhsLIjZgl1qlzuBNOZbSCvovfuX3D/3CPvdgN5ZYX4wa
uTa5t672lo40lOt1IJ+eahRb36nGcDk+oyOSfdtDO31lqldtfl1fD+r1sH0e
QRN7izyNNNXZp6ELGpN3jyPJG6eX5VnCrxRLcYX/M+r9RZ91pqPUyMFx+y9X
Z746ncW+wKcT3ZP0oqet7r8en4vrJ26VvYb1NnrfHo7ye8P8CF1Ja/Taos+/
+a9Xt5P5GroOa5Gd652r26ruSjHvqXvG3b7jjk/TKjnr1Mkc5W6sZ9tHiZ6y
aJPYDLkPmW/QW1frr4vf66wXJt8+bdPrILUX8JuPe2x3UWxchDt6zNHHh2zb
sULdYfzLrJUmPtbGo5nfBDpa3eXsK7ASO0Z457QcxdZHWb9q3CpHd/Mqcd1o
JU2RP5X/KusVmMhexP+U8WmcFZPmPaRjrDc7DnlsPbztXFpo/oN93uB7E7eS
/ux9qH331Hcv1LKtwVp8xbfJuTViHr9PzDP5Dki+OeuZyXk87Tzwkd4m+K+7
Y7zIehu9p+fL4ibxm4wG95DvzAtQou8X9fMSXsYJ31kzZuuzYLJ9u7t8Wk3r
x/r2cF6NT93LOfozfkq+CXkGi6ulWbQjncu3A12tzm2a7n1sk2eKfNvpVLqe
zqSzMA0zMB2V6ufn+V+lW/VVj4/l2GRvm/Gj/ZzDeXzpzb0r5oRcb9OTdIza
BRji/zYbj+MU+ybrFfa/LqmNDuzP+24XeJ9l/JdhOdrreadza3ZnO+j/JKk7
4A==
          "]], LineBox[CompressedData["
1:eJwNjT1LwlEYR08Ozil9AI2wF8UoTSkSMRKiIV8+QINNLUYU/csMCpsbkvaI
hoaaGito7gMEEfkpRAopOsOPc+/vPvc88cZOvTkCVM1bAoY5+DObc7CRglAe
7qchKEHN+2MRKjI3D2HfsvJ2CS5moblgChCdgmu7UTmegV27CXmi99g86XvW
E9fZX4OY/E5CQdePvHEmIxs6tsy53pdl6Mihqa/C1SS82rW9r7t727m0f5K6
zuxO3flRhl+7O3153ZfOdE3ge9H3A1lahEN9R6Zs15YrcpCFln/H/Nd37sF9
e3o+7SJ2ged905uBd/d8yX/94zoy
          "]], 
         LineBox[{10493, 13167, 13170, 11639, 14474, 10745, 16346, 13166, 
          17090, 11710, 15858, 17093, 17092, 11352, 14543, 11350, 14093, 
          10160, 13958, 13960, 12824, 13963, 12822}], LineBox[CompressedData["

1:eJwV0klszGEYx/GHGKLW0ISOAw5aRLdp7fvYTfVAai1tHCgHLhLEEgkqiCUh
xBaliohEEHETS4KEclBKpJZQcbEEBwdRH4fv/N73eZ/9PwOXr527pl1EJPzs
GhKRnBLRD9smRqycFvEwQ9ljZkQ71LD9ZuteGNFjNuh7/s35EZ9GRYzPi7hb
HNHzv70k4h0SoyOe0eIJEUUowM1hEbVpNbEdO7EDLfxGjIsYjlJ0kqdF/gTN
HiPfjIgKvVUVRUzVyy+5CsW81OMJ9ZvpX+9tmCF+Fp56Hzk04oj4o2h0f4zU
8Iim3IjV+k0WROSz5dD2+n3B7znGmueoOd+of2pqxFvaxP4MG/WyAaV6aGE/
6X3f2Iizaiftqp6WeGuwrxQ9T/cOjlgv5jjfE+gmd1d0Ef/OnD/02VFfY9S9
ra8P9lolz0+7aRU33Xy/nKfRSvalSJvxCX3N9pQ2olKerEneaRf6Vcwd9dN8
vjl/xxJ+i7EIb9Q5ZX8n/+/QTtaoPcAuUnbSn3a2k/d6rNPzFL3NU3Odt5D/
M22Td47+y7HaW56YMudWb5+wil8ffdTQHFo2OSKDRKl50VfuVv5Ju8jBWX1k
5KyjZ7DC9+5ltwf1edr9lR4Pux9CRlyuenn+D4ORizT/c7QB9fjiPtv8f3y3
LN+mM/aZu5b9uvhr2G8nB5Bg/0vv2Xe2Htqce9MO7DPN0urcoIePtNgsKWw2
81asspuf5qqhx6b7ns6b2Iv4FCLL/FVqVeMceyW9zG8JXWa3O8XVs9ehnP8c
fFOngs7HRfZL2MVvkL5q6QX30/raaI+95N9Cz/h+1fyX45H3+XxvqHOM/wLn
hXjAfh8rxN4Sd1XcbnHr9LKHXrHbf6GDuZ0=
          "]], LineBox[CompressedData["
1:eJwV0ktIlGEUxvEjtCqCNiEERm262JTpdG8cK8cwuyySICocECqIsEV2QQhq
U0gDEiE4arSpXRctNAJrMYRhOInVRtIgKIJKpqCWQb9Z/HnOeznnPOf9vpXt
5w53VETEcwytjShujhimZ5IRZ5GtjcihsjGitD6isyHiIi4hvS2iAb/t362L
+EW/W8+viWih+/FEjWXVEafEVWXdE3Eax8q4f5JO6floCwOJiId6VdAheY+R
q4+4iW7U7Y6oxQnxYmfj6yJS8p7ye1T9EXqQLnH2Ns0PH41qN+GIXgkeW+kh
dyZWR2TkNqFkv5nek//A3fvl+bdHXN3gPj+zOyN6NunD/wq5STV6rYf1uE1n
9PmZiSjIeYU79iblvhaPyjmwNaLP3nlzpcQtaEaHdSvt1L+bXqA36HX8Eedo
vztd4kG617oJE75FUf0q/SfFb5DXZ0q/fnpcr5feKMPX5X188zvinZ9hFAm1
lrtbTYvmHlvFn7p5VGEAbc6u0SzNe/MB9OKWdR/Nqv3N+UK157zJIvpO7feY
xoT1tH/kh7f8QK/wmqb1qLFXkruR7rL+Kx53v8ecBXU/7Yj4V+N9eSyYbaw8
q+/yglbSBamIpfQj70l+2sw7J57FoPm/0K+Y9+0+0y7fupLO4D8cuYrb
          "]], 
         LineBox[CompressedData["
1:eJwVkltI02EYxh8jSCGV0okdLKaVy5x20v9suuky3bQrL0zwBNaVdKCDa0Lg
TUkUbnrRATekoLsyTUVDodKaA7ccRGDinYHgRWhKEATVz4uH5zu87/M+7/t9
5rZrdVcTJP0Cc3lSjl2KwpHTwCHF4Xn262ekGDzHvipfeg/Psl/mPAJPs/9c
JnnPSbdB51lp0iPVF0g+1iPoPj8l3WGdTnxjufQaHiqVcl2SBWRYiWM/DFqJ
Heb+HrrrR6WX3L8CJqeUCQ5yZqVOTol0CASIPwzvJOeDTQqdkBzUcIK76HWD
/irpSi7aFdIRehjc0qRmFnqxavyDYJFkRvsAZyb0ivB/Cb5OrV68z9dKfXAA
NLmlZhA3JD91nXhtY2ZDFmmgBt+F0nil9BZMgEG0fjKHDbAJKon34PsxPp6A
/XgN4ecp6wheUvFgHKc/atvIfUBsCZyJn0TqJZKfBO5zvkBuN9xAfwnkbwMz
J6UeenlET374IZ595H+htpVZ7CD3Mjpx5hFlHhV4d4Eg/lO5C8EmOAMs08si
b32T+N3s7dT6gU4pvOsYs4a38/6z1F/CS5jat/DQAb6i30VfXtbpxLrwswe9
VWrthVfw9RtdM/rZIIX7ZGCjfja9G/AztAfACPENzLKf2kHQQd0o9bxwKxo+
uJG3duMjxrkHruYt3MBCXjv5efAN5tCF9gvmG0PHwjzWyG1B4x1+p5hHMf4M
4Kf+H+4C8F/4H+jjDXrBReJHqTMG0vC3gM43UIx/A5TT7/jWP4SD/JUwfj6i
P43+DBwGn0AK91n0ngzbyKuhBwexSayd8Hn2tcCE/+/MKw3eR3yImhfo5w37
Tnr0gU3+6Aaw84f+A5PCrFE=
          "]], LineBox[CompressedData["
1:eJwVkTssQ2EYhl+JGLsaTEIcetPWJe7aIhYRkbBIREulbqdI2NSlicXgbrRY
LBILg1DqktglYiUhB8OhiZBYPIY3z3/+//3e7/v/UxhNdJs5khZQi1uyq6V1
dN0gbcKOcmkHbiF3qdRZJ7lgqlHKVEl7nJ/DrlYpDeNozpAG4KdfisFBtOuU
+uBopZRH7U1QKnBJ07VSL/uTMIHGyTHRJblufE5kcB7BawSkY9YX5HuY54y9
FeYZxuvj24vMMmrgBFxuljZqpFyvtAZ/0Cq6LWEWPHfU++l5D80Q/VGMfiHe
YYy1g3vG+T5g5hH8p9zhF/8J/IBZtM+ZRb7NusjHvZqkYuhok8IeaZH5gjBA
3/wKqYecN972FdncpZ/Zs/9vhQL026afxXqWmY7wzsAktfPonf1H8p9QhqzD
dukKTpGfhik8S+ibHDMsfcEHvDYzRvBYMM75M3yph2iIf5Rk9ij8A43wYTU=

          "]], LineBox[CompressedData["
1:eJwV0t1rznEYx/FrZgfalBNyQBoy7N6YeZrNxrYQI0+lNA9JiTIkhhIRORBl
c+Sh7jJP95CnOCBKxu5tJ0LMxNp958A/gEleO3j3+X6v6/v9fK/r+v0Kt+1Z
25QTEd+RMytiGJaXROTRXKTnRHyaHtFJv82OKFsYkSmKKKEz8KEqohdJsV31
EZUVETfLI76KpehHdz7gVllE+byInYmINvHf7g6i3b6vNuIObZdfVRMxe5q7
1tvrIlaURjSINdBTPH5MifjsfFqNFfQLejHevn9+RIuaWzHGejTeTY2olS+W
L6MJulI9Dbhb7V2ksEiuBuuKI7ILItbTpJ6Tcu95XLfO01/NjIirQ+dpeq65
IOO9J/rN0iL+P2mbMzdQoId8XNBzCx7JX6QJPZVgpBq7vdeDCdYz5bvoZR5d
6ulGhXNVGC9eKr+RX7V5JCt5L4l4YCb9eOPsCOQjZ3HELzMtsL6yNKJJLf/s
R9nvtt6g/0H7r+b8w1xf8+7AGvFJ3lo9pL7DbvnJtFBsh/U9759Q230+e83l
oNhZPifFDlk347R9yn9wit6i+8T+qHW4f2Qi37/Wg+g0z8f66KJ/zPOpvn7T
dv9FCr08x/F4YcaX1JDhk0WfeLMevtBnamgUe04PiO1HrhrHqu+Y/HGc49FJ
z9OjzrbyOkyPYJner6nltvn1oUh9HeJvMTBTbfSM+aXpVt5b0GOd4VXv3sDQ
DHn8NO8++kqtk8RK+TzQw0NskmtEne9ej6x8I59N2IyX7iR8//9ZDahs
          "]]},
        "0.5`"],
       Annotation[#, 0.5, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["

1:eJwV0ltoz3EYx/FHG2FXVmPihovJmsMwdsZmM9mNIYdYbQ5xwRaRNAopdgrZ
n0XkZnO6WJrleOnCRJlSbJkLuaEU2ZDT63/x7vN9vt/n/PvNqG+o2TsmIr7i
alZEyuqIVNRVRGxDPRrnRuykJ+ZHbKfH6Q5aOjti7dKI4YURq7Ij0ooiqug7
dqtzC0rKI4pR4L5nScSj3IjH+MJ+SB8gozBi3LyIAXEvkVoQMVn+KcjAVGSi
ZU7EyWURzbSpLGIu3yHkzoq4L0+qHJPkWiz3C/djSgyFy2IuYTefFLlf6zvH
e2VxxDOax39A3JD4fvZTvMEr+7iCX2o3myXTHi6uiOhEAoP8L9B76n+TazCZ
U66xeREVdLm5Z4qptaMZ9Cctr0LyjX85CsS26S2fHjPTcUxgt5vxs/N7+okO
05+lET8wiqPujmCPmSaa6a2ZctVfI2cN7ufY73K7xiNsTvYl7yY6nu7n2222
DnN9cN7gfpw8G2mH9wQyMco+T8v090Stc/pIMceI2qP4yP6nn7/4jVZ3LWjk
mybfO30Vyp8uZrrzd2/TaPcCO/Af/bH3a3LcydeX3bTyu5H0db7A77pzIulP
O/mdEX8OZ5Fgp+utg7axV6pTtEh9PQ/J20qL2XX6KqTN7HzznqYF7LbkvqrN
jm73NbSLLqGLsdX3u7sqohe1zgn9NvgX9qJa3evyZNNuuppuke+wvLfYfWa/
TZvY7eofpBn6zNJnl+9zhe9N74fcT6L75M9Xc53/pN97A7u3Ui260z920f6f
ut8lrk/MiJ300FP2vJ/PATz3vl78f52/rH0=
          "]], LineBox[CompressedData["
1:eJwV0ltMz3EYx/Enohs2cmVLdC6Hov45xTKVY13Q1lwj5+XSHMYo+ZumTAcV
N27dsOHClFjMuIgr685kY8PcFCrDy8V7n+/z+z3P53m+z++Xtff47qaUiPiM
wfyIsYqID3iPZHFEf1VEK71YHfGqJOI8bUEzDhdGjKyPSKyLKEd/WUS93B7a
4X03PZ6IKMMovwQ9hqNoXRqxmvZviKiTe1vcJC7hV4x55RFLt0YU4eTGiO/L
IiblDhREnOV7DtNq8jZFTNEeWuPZKh6l6FoV0Ylec6V6v9k9cs12zRxv0IF2
DJVGXCnio2cbDT518rdti6il2WbLwbjeL7ZEPNI/U+5P8Q9MoNFecuWMqn/I
b6HapHMF/2oz1GAjryw5++R+VzPI6wmSvJ7RpxjCfu9rdkS8VX+r0r5pks9l
fBGX8VmufgmvKnnVeKxuAA/M9mdtRPrOiKsrI+bTdvpS7Yhve9ds9/DLHrJ4
ZCMHe+zoTI1vwf8mWuVfwkfnQv1y5bTYyzfnNp739VnjjkXiBF2NcvTp8VVN
D26gG6fN/4K+/q88M8x5xwynxL+326NZDnp2CFl8G8xy2iy9avrQrKbl/z/p
PIZFZrlglmZ81X+JeDEykSeutOsec4S9TPH+q8c0TRFP0ll0NmYgFTNxQ/4n
3p3ownWcMN8wfY5h/fPsu7Y2Ip8e8o3KnQucy+g43yl9Jug7/9kRuss9Vth9
ursU0wU0jeeg/zmh5oecaTWN7n0A9fLn+BcavJtLM9wjE2niRTTbbv4Bia6l
fQ==
          "]], LineBox[CompressedData["
1:eJwN0ctLFFAUx/HTLoqICqLHLHLTQ8tw0qysBscizZKUVOwlI5VBLwgihPoH
oodFUERkBSHVxtSMlib2sLLB2mQPWoXgNOQ6oT6LH997zzn3d8+5t6DtdMOp
GRHxgoaWR/ymhVUR+TURmXTEYutFVGs/uSHibjLiIN7HA7if8isjDuMR6lsX
cUhtu3WiMOIYjwGxz1upTL1cq9yJooie9RFPaUw8S8V8xnHetoj5dHFLROPa
iAXWw+or1M7i1ej8bGziNRc/8p5ytnV7xK+NeuWxi/bK16st0etOZ5P4lk8e
R3CHWPeqiDTWl0Qcd7YBv1dETHiHK6UR1frvxCSvG9jjrl7aZF8nN+7eAfsu
uSJ3PTfzKz7PsLY8YjfdkZs2S8q6hk6u1huexXN62WNdR0d5XcN2vIwdcp14
lc6ofcN3tFi/9jM3R7TwfedvbrkrK5eV2yf23nqEprxbFa+/fPr1Oo1FfLLm
bTLnw8qIZuwSS/C8h7cxg4/lntBNekTdlOH1QP6rOb/RhPVr75DDSUqnIiqp
2Z/kvGuBHi7wHxMrrI74hKP6OF8T8QFT9n+cm8PjC79hvKTHQfcsM9cQLvWP
vXwS2I999M+8P8xQqs8l4oPe9iVlzD6MbVgul3N3Gf5Ue917dayI+A/2LIo5

          "]], LineBox[CompressedData["
1:eJwVk1tI01Ecx79ze0qF5ZZDkyKEciu7mXlrOltr6cSHHhRnEyx6mA+ZBQoT
ehJKEsILCsWQemmpLM1MSEpGYSVKF6mHXrQQXCFRUaEF2mcPH77n/M7vev7n
v+ts8+kLBknfwLdHun5S6oK4W/oKX8B6QEqvlD6zrj8hhVi3wxnWDznzozoi
GcDGvrQUf3QZ/6J8qSdHcmIrhhfl0gw4DmPnLHmvlI8GisgHT7Bvc1IT0qCc
80mX9OqQNAtP90nTxE+jMbTRIT0okMZhPU9ag8esI7ulu/QVgfkSaRgdgsv7
pRE0Tn92dAUNHKM2tBGbRL6fqAE1089WCLG3E1eH/zj+g/R1G+5ABjNnwnbs
teSoAz+kMJOX+6xh7WKdxhzZxZIFfU/fH2AB3jGHkTxJ4KTOJ7tUhv8SaiGv
FVzYL5HnLf6v8bdhc3OXZrSFPieYdw57KvsUMB+Vxph/A//NRB3m/865jks3
yPucO+73SkFymLAZoYX8V6lzkXzJ5Bjgru8XSqPQhT21TOpEbdxHtgclzxZs
VdjCudwpfivYvMRWYuslz018+9BT2M5Ra5R3UF0hrdLLOn39g78QZ7/ADH9Y
/4ZfYKJ+vY/vAn4ws19kpij4WDcwUwCu8F3OU6cATUd30lMWeA5KefQ5yb26
qd9DH1Ocd6Nh4l28qVtojL6H6b+bnjOIywQT79YIO5jHxt4K97ijCHQQk0Oe
H5x1kLeBuDHurpNv7eD8Ghrl/7GzjibeFXX8YKFuiJzt8Cbx1tBH+LWiQd5V
mLgNcjcxUxBe4v+M/B/pfw6dZ2/EvomP+H4eei6k90Hi/gMEk6SA
          "]], 
         LineBox[CompressedData["
1:eJwVkE0oA2Acxh9J5CM3KRcjsxmbzUe+mY8jq5XPiEijNtvBiSm0ZRcOipyV
XFyR1SSJs6QpB+Wj5WD5qCknvx2efu/7vP//8/7f1zDtdy9kSIqgE7P01iCd
wpVmadMqzdil11YpUS8t4z1WSd4myYeSePEO6QOmTPjd+ChWJy1xXkptCJbB
NRiokY7J88ME96ziLVq4t1HKrpbe8bbbpVqyomTY4TBno2jCJgVbpFvqC53S
EF5RuoaMYugkswReMk9Bn3QF82EeSjL3ATNe4B1CGz1W9Mcsc+Q8kHmE7+Fu
L9k+NIt/x34KBtjfU+Mgx82fjOM98Sdj8MYobZGVQr/IiJdJjQWGOyUzjMAN
ZGNd3sN/oBGyrbz3PJ2Lb3RIZ+yjyIgsnFfA50reDl+gCW+Q9SQ9111SFvsc
5GH2XDgPDZx98q5J6oL0eGAMDfRKLrTbJu3zly7+cp2efhiGIbTDHD/0e/G+
0znsv9AeinP+DxHpYSo=
          "]], LineBox[CompressedData["
1:eJwVk11I02EUxh8jupDKrqaBRCOS2XRb86Na+/uVMDXyIk1BCLK6CEpNxRsV
I5DCoBsDvZKmWVSgWZqmWE0jmlYXCVsbgc4mZhIlDom86reLH8/5n/ec5z3n
HTNfbDhbnyBpGQJHJPdxKYiGs6W5POk7GuY75pK+ov4c6YpVWiTvMCQbNBZI
dSXSAufNxCE3PfDGLl0tllwn8IWnWVIeaoCJWusxKRl1ooOcbeN12SKNFUov
4XOmNMRZab5UBmK2rHTpDPFpiBRJS7BJLsJZDL2ETzFnTuIEciXEHthF/Am/
Hqf0hTtqSyUz3w76cyAbephlhT1XjkqrkEJPMnjZOcoeux3SXfbagxrUucHL
G92HPlij5gdMscca91gypI+50gCzJOGzD9bJP6L2Jxpgjv3x3fl+AK+Y4TAz
deBxA2L4bMEB+uzk5zifRV3sE/RImfiG6LehFex9DgyblMr7tjJ/G7ylPpE+
H+pH/zLTAn5d3H8HksjthQlmqeQ37ae3Cn2IDkIvb/KO+mH6K8gf5O567uzE
Z5S+EfJd/FYv4jE04NPCeSPaif8MsQ9uU/8YvzHmu873v5PSIfxa8Z86JY2T
H2LXSeJ8dptA53kDNz4hfLx4h9HXvOc0lLPbEj47uH+RfBPvd55vE3Xt3BUl
3hl/S86WiSNwDa82tB385DvQbt7uPXoPvcB8teDBO8B8QUhjxg+cW9AIvulo
FXdVwyrfG+z+BN9bzPyHuIb8L3QdvuEzy6w32dFO3zP2M6i1Ej8nHoHf1Jnx
maEujf/LfzwgqvU=
          "]], LineBox[CompressedData["
1:eJwNj8tKQmEURtcRg2b6CFqDAsXwSEVlUF6CCImsaQODpqlFQRl0mTj0FQyD
oHqHokkD36AGzauZgyi6rcFinb3/vb//P8mtenUnANYkFsLBFMT1rm7K7RgM
JuEwBZ/Wx/qoBC0pzcPjBBRmoD8LtYxnzi5ZFyXl7HMZ0vpqAa7dD7PwZO/E
3TM5dX7b3XO9bFZL3+Vhw/wHfWNv3e8v+9/SlsCcrJk190J9YX0ped/9YT2y
CF3rRM5366R+sT+qG965Jx1zfn3jnzT9jpo17kxP58wZmoZh2ffszfl3Cdx/
1RFdScOm/7KiV8348Z77OfgHa6g5hA==
          "]], 
         LineBox[{13562, 17858, 13563, 12599, 17898, 10977, 16508, 13962, 
          17896, 11236, 12823, 11235, 12828, 16660, 12827, 14099, 11351, 
          13566, 15857, 10332, 17088, 13165, 14470, 11636, 12904, 11638, 
          14090, 14089, 14983}]},
        "0"],
       Annotation[#, 0, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["

1:eJwVk11Ik1EYx/9eTKFCMJNIAi3Kcs0sNfOjMsuP/CBxzFxkUTMQDApEitKR
KEHo8i4IhVUGLYU0VKIQCt2FqCHVNMtM3VLHxMuQIAx/78WP/znPeT7Ped89
jlvWm2GSgjCcIK1BKEPKhCyYSZMKk6RZNPqs9B1dPSgtohH5kh+NOyLNoWHs
f6Kjx6SaQ9IX1nWnpc9mKZDJHvVhmzwp3cX3Y7LkzZIuHZa6U6UqNAe/GPzM
xyULeLD/xd9BTXeuVI1uYP8PS/T3G3bTn/8MNWAeJtk7i6RrxDpggv11ND9H
KoB/xFZS1w4m4uM4D6CPU6QU4lPhySmpAzqhmJ5LYCtzLh+VtqD+PGY7IEUx
a/sJyQVL2MzMFEJXYRki8fUUS7n0PcQcQWp8SpdeJHJPaBn5tlF7Hz2scdZF
vVj6q7IQiz0B+w3sf4i9TA4HZ1fQb+gMTOHjg3X8f7DPZj4bs3qJm8Yeoo4p
WwoHK/ZysGCbxXe6kHjIIGYY/zbqvCX3L+5lnTme8Rb9vEkFsw+gZaiXmc6j
I+R+TUwteZqp7ca3BW3jjVzwEFrZt6JfyeuDOfZTaDkzWqGe2JfEeWA/ORt4
9w/GXNyJjbgK6GVut/GuJdJTNLmUvqh7m/e9A13YnkMsubeTZxc6xL0O8h1H
Y99hfBfk2YnGQAPnAWo00ocT3rN+BxH0Ew4jrOfxGeVsAZ1Ag8SNoy6+/3vc
gw2/dtaPoJGex4hxGt8sM9g5e8Ud9nFPvZw/4H770IvYe4h9w7oJ3yTjvyG/
/ZwUj5qY5T52O73uZb/Cf1PJ+gJc5TvbBBsisBE=
          "]], 
         LineBox[{9929, 9968, 17978, 17976, 17977, 17859, 19297, 12570, 17860,
           19295, 17857, 17901, 17900, 13954, 17910, 12600, 17899, 16507, 
          13961, 17895, 17894, 17891, 16512, 11237, 16659, 12826, 14097, 
          14098, 13565, 15856, 13564, 10330, 17010, 10331, 14469, 12903, 
          11637, 14472, 11348, 17439, 14091, 12129}], LineBox[CompressedData["

1:eJwV1FtM1nUYwPEH2gAP4VLTZsFWpikEvC/aAjxgBgqkXig19DIv5CoxUDdb
6pzl1szTctlBKkSdNZ0nDsomWLo5ba1UNtdtm0wzTopzqavPe/Hl+/+dnuf5
Pf//y8vvr13+QVpEJP35+rWIjLcivuHf5kb8ikt5EasXRIzMjGibHdFjvGZW
xBVrayoi6nF1nr34sDKiEevejuisjjiHBs+lSyLKcHxORC2f4JW8CnVYgUax
m9CQiNjI63F5RsRHfEmMi4URO+dH/MzX5byBP/B9TcR3yFJz3SJxka/eQhx8
J6KAm7lcrAa1fSl+Ox/gPHVcczbTmTlq+MrcC/ZmGY9CEgnMs3bY2lRrR3ir
86947uFxyYgLnM3dfEKeg2L2F0WcVt8An+G/+RT/wyf5Hn9r33/TI6rlqMEE
tU7CObG7cB7P6/sXCyP2I6tcrcjAgQJn5DzufLH+tFo/jEM4iiOocrZvccTZ
EvP2P+e+LXzGuMQ7LMVe46f6GmKmYbb7VYk3TZ/TjWs8V+Nd733MGxHv8V/O
PfL+u/S8z/MC6zn2l3Mu7+B1fE2+V91rKnL0sNbZJVURS5HpnofcL4Nb+TN9
W6/WDdivP0n7fxCj1zfUwnfluYMEtrrbTnVv4c85R99z8SKS6n+JM0v1C7fs
Xyhvszt369cu+XZjUP2/qOtfd6ywXqGmR56fMZeOVn39M9Ufe/dhD4bs6/T7
aH89ooPbeFicIeTZ26vfaXLWy/NYrCep2Na2iVfJA8bl8vRzwjiJhB4+Nc53
vlmOUfm+Hx7Ni+WoQiWy5VqUylnsu/LdzHDPce45kyeURYxHoT52GhdwAkXo
V3OjnE3YIW67uU+5g7PVO0WMZ/mhb2AERc63iT/R/H11lTg/zCN4gA713lRr
mXc8yXsp5cm8nT/BVe88132v69/v9i2TZ0DMY+IN8o+8kken/heIN2i8ynis
cT/X2p+pf7fV0Ic680Pmh9GT+h2r9SdnPsZmPBSjTI1v6uUmef8HNHTccg==

          "]], LineBox[CompressedData["
1:eJwVkbsvg1EYh3+GEguJMNRCE1VFiUtFXVpChBi0DXENSYlr1ECI23/AIK1U
d5cY0cSlTQxGE4sEkVakAxIGBrF4DE+ec77z3s75TL45rz9F0iYcWKSuGukQ
x+3SM2RVSfMlUg52NErZeNkhbZRJ79XSGusVuC+WZmqlR/zJ93un9ABTNilG
zjRe5dzE+SJegkiFtICN9FvHSfqd0N9QKh1xloqj5G7R9xwHcQD6iGlqllzQ
CC/t0i0zJnEG+1OXdGaVqqlph1xyr5jFiONFUmaLlMCXfNtnViez/dLPRmyA
WUapf0e9V/wGE3BD3zHsJm8El3NnN29Qhj14h5pheKqnbxt9YZYzP5iJv6De
D/Vj2ExcIfRQ00BuPy5g34ttvEEV8RVgruQe7A3kRLAVColJMOPQ/561BbpZ
DxOTxjrKG1xzPs690tlP4nzOPrhfHu6ok3zEBxv4H8TlsQ6x3gZPK7OXS8fE
7OFOvIsHmWMAvpjpG8IQAi9v8QdJKWG8
          "]], LineBox[CompressedData["
1:eJwV0ttryHEYx/HP5IZw42o3zBRz3phtFstx2kGGnVyYtVEOZQlx5fAHuCFK
orFZKDeKUlyZmlyM5FCKiy2LUrKppRYvF+8+3+f5Pt/n9Pst6OrZfawgyWOU
rUpGKpKK5cmCzUkxBjcktSVJZ3myjT5nF65NvojLsuQrXbg6maxM/mCeu3M1
yXlMW5lcdPe7KpnAnBXJLzqL/hA7SIfV+Mg3sig5W5Zs9KZ9TVK0LpmPXnFl
S5J+OoAhbz6Lv6fHPnannu5uSm6xr9Lb/3vnL0LH9mQfivQy4K4fLWoM6/m+
nFN6e2qeZ5hbmrxS73t18g3D+vi5NZm5Xr9oN//sxckM501yvxTbo9Ybepxe
5ruCM3LeYF9yPqi3nfQE30m+Kucptf6ixvmQ+2vyFujvOm3la8GkHpeasdKs
N/kfud9pT00o4X/CLqbl7hv5qmgdbUA99pjvhX3W0I1olm/It9riPGDuWjqu
p0597PK9Gth1KOVrkrdQ7A7+UTsYM995u3mt5gXauS1pU++0HZ1Bm/gxO2mm
M3y3annu2NMo3wc5Wv1Tp8T1yLnO/j/xXVT3DZ1uJw/F16vb5X033vG/xbjd
PJJvgj7wDd+rv1/dw+brE9+PdnYv3Us7vG2k3e4PoAtH65Ij+AdKjoHU
          "]], 
         LineBox[CompressedData["
1:eJwVk2lI03Echz8LCnKlldCb2ioQbFZaadra5jZ188oIX5UdiEQFZpaEIL7s
TRp0oBNfyEDTlYoKXjPnsSgrO0SlKAtSoUPqhfSiAwny2YuHz+/43r//f1dJ
eeFlg6SfMLpfijsibcuTzElSmPUjmOe81SHZsyUHtLG27pbuoWtSpHMJ0nCq
9OqA9NwtTYIzXXqBVmNfh+1L1o/3EoNzG1ghzD7lkJQMCV7JAlM26VqiVJMJ
Fny5q4eRg1IINpAnL176TLwvEIYPxFlCS6gjlCbNsV9Jlt6jlzxSGZSCjz7a
s6Sv9JZN/hxoprZTVqkF/Y3Pu1zpD9rAmQ+KiXmXvu6AiV7NUM39J5dUhcZg
M8aMxuEtNm+ggXorIzPBJgQn7JJ3j/SQ9Q78d4KJGjzk345+o1c3Pn5qyOLM
znoT9oP0EoNWEPMqbCRXNLjJm0YfTrSIWUzT+0l0BptY5rMFKsi/GW3DP5p8
rWgB90cjNRJ3mdlMMc/X0E/eMeL1U8cAXKSGbt5gkHU5caLwNxD/F2/TiL9/
n3ST3EYn7wH/2Zux3cp7rWefz90S687DzBr14O+FY5zfYBY18J38t3iT2zBL
PTPQRx3TaC/q47s5Tx0/sPtLfz3Ub6KfTmoI4mOgjtOsU6lzkR4WwIXfR/oI
MqMhyCDnBPdudI5zF2qkj1HqaqfmEWw60HH2F6h7GF1HH2sjvbCPhQD3HRnS
dfJZsM8lXjF95KDx7J/wfleIXUvcLr7fPnrrgrO89RkI4FeKlsEs51H0EsTO
j72RdRP6D5u4yL9DX5MwAc/gKVjJMc//uAA29unggON8y/fRBxCAgnzeFlYB
MfOxCQ==
          "]], LineBox[CompressedData["
1:eJwVkL9KgnEUhh9pqLuIJu0PlYqFWiCVkNYgQtASiAhtFdFQiDQIjdIV1BA5
RBcgOUhjXkFDikMQQo1hRkWPw8N7zvnOec/5fVPFw/xBAMjLYAm+5DMG2Tn4
Ni7PQmUDhtZeV2EzDu0EPElhHs6sF9Wq9bTcpmDGmZc0RMNQN+8adyRsvheB
RfXZPBSCc+dLejVkX5ryIFsLsOPee/VxBe7UX3srel+oeNufGjMfN07oe6Mm
1Wv1SiajcKp27Vm33lMvnTn2HbWRh3sGGXj3/iPzMfOABO2bUKdH3stw4rcP
Z3a9Fz37xm/SWoNt/1POd5f0+HFXKwn/R909zQ==
          "]], 
         LineBox[CompressedData["
1:eJwV08lvT1EYxvG3QVJEK7EQoqFCaelgVq1qUmpuqzoYQqiyQFuEhaQSal5I
sBAx1sKODTb6DxQxxcJUMUQIWjUsTGnx+S2efO95zzs859x70+uaKhuTIuIH
HSyISJkV8TcnYobnf1idH1FFTaURjZRVGNEr3lEScSwv4jn2WI8Xz6SMcRGV
8sdig/xxYs/kPKXN8+TOjJieaT0/4glV65E5RT19nBMxRl2GmrGUnRXxQaxZ
/i28h+14F/MXREy0v8WMrfRefIL1O8zCmfavTo64nxGRZr/deSrtlS2JWIb5
eiSLVXgupxLeang5Sb8XR5zAs2qTJ0X0U9MfV8lfSUm5EanuqcG5a511t/65
/Ib4C+c8rvaznlP5yBbPoYnOdYWfCXgNr1OFXuW0h5c78h/ibXyA3YsivlCH
O3pBg+StSfQVW4ufsIs6aQi/53mtwVqqpgH8rsDA1WqTeRvKcyPPK3new3MR
X6/4fUkl8nq9mxazb/D2COe5kw1m1fK0glL0WWf93cw6/Irr8RsOTMykS3wk
6R10aWFEKxW5hwKzCmk2HS2OOELT3MUBNQdpf6LWjFYarTadHuvVSv/4uKjP
BSrTa6keKeoPqSnWI9XzDN/PCD7SqNt5vtIXGuncnzEdO3EUduFe+U3q92G2
O9mVeEdYaa9ZrF7fnWKlnt+6i7yp1u6o2n4NLacc+VV4U8/1cyPasA57eSzh
qQdP4yln2Zj4H/TYhPW+zdd67bDeTocT3yueM++MeZett1mnJuLe1WBscwfn
7PUpiuhLw9x7i1nDsQcP8/Ib/9Ab7+kX/qRadf8BJtisqA==
          "]]},
        RowBox[{"-", "0.5`"}]],
       Annotation[#, -0.5, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], CapForm["Butt"], LineBox[CompressedData["

1:eJwV0ltoz3EYx/HHqZxGypnULjBz2Bj238bM2f42yygXSIkQkZTDhQtSihsM
c1ghh7FCJMyZWOGCkdMOOZMrZ8qhvFy8f5/f9/Q8n+f5flPnLitd2iQi2vts
TYtI5EcMzYpo7BdxIzeigWYZdx4QkRwd0YU2K4zoRJvSjrSob0S2/wSGIxc5
2CHemeyI7bRysnj2thsekYJjfSJeFUS8xr28iPL+EW/8b5LvypCI1hMjWmGX
+dpJEXcHR7yT/z2KeCzGIXH/8HaQZo6NGIwMtBkkp/wpdBttS8vocrE3j5ID
Y4zHYhwaxSwU78S4iA8ZEcfpermT5p5af4ajYhwX+yOvn/Bd3r9q6Dk0YlW6
evRqNX2hhpdoxE7en9NZ+vOQ/4nGXUdGdEN39HC23loX/6n+1zhfPizisb1P
eHqKCTw8o/2KIupoOn2ojwU8jUaDuXrUmvsk1336wDhPnDr+dvNa6MxkJFGi
hjS15KoxDwlsUHMOncnLA7mP8FnM0xSUoANvv63ddy+1SKg1G7v085H7/Szn
PfMLeL0mTpW7vk6vovz/HWJvTkQFvsp10fxlXEIFn4vGe0vi/+D1G07ydyKh
31jvrtahyv/egfpP99BVfK5ENzG7o8R9VOpHMV0m1k89WEorJkRsHOFty7EF
afJfkPcLraaf6TQ1luK1Gg6oqZf3uZ/eojV4Zf6s9Qb7G1Gmzu3YgWq5L6BF
pvuy1pzW0X3q+pXk07hU3umYhhq1LVRPjXv4qS+36BU1zZDvPL2pd9V0hXPn
6BRnztK37rJKb45hrTNJcdLlredrs/s57e28ND5FK/VljrdwmC6ht83V6kFL
PWmF6+73r7XZco3yJgqQj4Viz7d/Hu7I29uexeZmyDXCeCpPmbwPQRaaW8ug
g/APJ33Nmg==
          "]], LineBox[CompressedData["
1:eJwV01tMz2Ecx/EvxRzmQjIb02YzdHQWopJDJYc/5pQL5nBBIdy4YTauNA1z
k8lFrYwLzUYyGxtducr5NEvMaXFF5RgvF++995y+z+d5nt9v3Na9q/f0i4gu
pGVFfCiMqM2MeMdn+UFJxOGMiLW8HuuQXBqRNSOib0LEobKIizkRlyZFlOp/
o0YJd/KLqRHP8WlBxCvtNfnq4IK5f4oimvgjt2dHvOf73JYbcRfHF0VU4621
T60ts+5occQxlBvfhCf6i+31mHOWRWQvjDilfRIvZTtg70zZEvozeBXfmhUx
Oj1itbprkMBY61fx5okRz6x5qT3e+VbaM4Hfsv1Co7wrtB9Pczdq3Jahlk9Y
W4MhxtbLtwEVxipxxb47uTcv4juanKkRSfZq42+TI+5wNzfMiahHq33OqTHM
nj9l+eotfnCP/L3ILXD/5hfOdT4uWuw8UyIKeAEKkZgecc/6a2pVylWBbjUG
6auUfzeOaO/i7fJt+3+n2lu4nEfx0NnOhJvuMuFeJup/b37r/IgbaFbrMors
MWKmMedI5QK58tHnu0nRrp7nuzCWLmue/nOyPLSmxlsk65+vv1ZfPifbLwkt
1lzDVSSZ0x+jfR8dxk7JcBpD3MVgtKuVLe8rWXJ4jHl/ucqcfTgjd6+8PWhy
Lzu0G7jOm9Xzde/Sglz3Nhvn3WUr1/FBXq7+A9/DI3R6z3ZOlWuEN3wtVwr3
Ny8JgQFIRpr1g3gwBmKcdvNS/4N6qXJ/ljOFv/BIXsJ5zrff+1ahS3u4/mp3
f4TL7d3hDBv5H0HvqeA=
          "]], LineBox[CompressedData["
1:eJwVjz1LAlAUQE/Rh/2MKLKQLMWSijDFlBoSgnRpiISGEh1aqqEPsFzCsebA
ucYoqP9QS2NZi4vQFNJip+Fw7n33vvvuG96urJd7gJwUw7A2B91Zkzg8TkJr
EZ5T8CSFcfidh34ZlP0Z+PbOkPFYCHp1ybNiBjor0Lb2o7fM49ZPnHsqqSgc
6dcgVPWL7tMDkrB2Zm/AOKa7zruUjHvk03D8/461K/Nr2fXNPbmbgh19qx/0
hLve2xfUb8uw6dzDBTiQ0SSMSNPzWAQ+9Ls0liDt/+vuXdU30xC1/8K4Jqty
LlnZcG7Hvb7c4VP+AIYtOV8=
          "]], 
         LineBox[{11922, 14669, 11923, 15157, 15158, 17796, 17795, 15294, 
          19522, 19524, 19523, 14728, 19319, 14729, 19296, 12569, 15230, 
          15231, 13953, 11233, 15232, 11234, 17909, 12605, 17908, 12606, 
          17906, 17905, 12598, 17892, 17897, 17890, 16511, 16661, 16658, 
          12825, 14096, 10979, 16762, 13568, 15855, 10329, 17011, 11640, 
          12905, 12902, 14471, 11347, 17437, 17438, 17435, 18107}], 
         LineBox[CompressedData["
1:eJwV1nlwltUVx/EDajUhCA6hwtgZpKgsCaCggAjZhGDCLo6IaFXIgkqNC4u4
AJqwBCQIcQFFVBbHGZlaBdlcEhSCUUcREhAqrWKdgYALUhbbOvh5/vjO77n3
nnPuOefe53nfjhPKbryvWUSsbR4xumdEy0ERrXAhajIivhgQUUvPz43Y0S3i
4LURH9EtV0cU945YTzfgYI+ITwdGNF4f0YC9/Au7RGRcF5GJ5ldF3EFfuDKi
O91fGJGWHzFgWMSL5toPtbfxbHaz8LfBEafMF2XbByW4hN9NXc0PiTiJX8U4
g0VZEQuR3j3isryIar5LMaZ/RJ0cnra2GI1yakCtXDNzIsbfEDFfLdPV+DBm
4PLMiL+odaC968TOojvpAPoJzaEf02xaT9P1Y6Lc/yznCbQTLaId6bco7Rzx
ed+IZWp7PqnXWh3fs3SDXN5Bvrp2mHtPzttpJX1LD9Pl2BaT5HU3xohVrb4m
Ns307Sgdy/dm1OnHDmzHMfMF4k9V50X8S9VYzL8Epfi3Pn1j/XtaqJ+t+RfQ
Yn75chyMP4l/I7+hejSGnitOR3ldYv4itjVqv4b9B3QbatHb+F36Pt7Da1dE
HHJHHhHjUczA43gMlc6lWsxTYs82Pkln0llYjmXYK48l7uRyubZn38F5Xoqt
9plvrRILkNonYlMv58Nngbv6ibgL6QG+p/jup2v0cy1Ou0e59srWhxxs06/N
bD6kUwsipqCDOnvZo5U6t6rjSs+b6BZsxmp17VPXNPtNx1T8LObD9BdndDzJ
zf71xvVyWYCnsMg+C2kV3cvusPUjaGTfgD3oz+8D96av9fXu4tfJPaHz1f+l
2ufRr9TT5MzOyONjeeTxy0UOXnHmVe7kIpww/gU3y3ksLrbXHzFHXe3oXPqy
fgxy39s413ZinzUfenC5flyGTsl9klMH/d0op1Zy2Sen1jSN/9l+7O1VZt8i
OeXIPRf1nr+U363WxrFvYe59fU2jk4wzk3eDZtAP7bkNtehmXCLuTmv/dz+P
yP8wyuXwkfVL5fEcfR5fmN+V9E5eG9VX7nx/Vs9x9HK2vdFNLW/J9R513Itn
2DXq32TPc9T7V7pC7rvZZYmVjXOv8f3xzr6JW5x9jVwGyClFTQPpcDFGoBDD
MBTPOptRdJrYI+l0eoTexv8wHU9fld9Ke71CV2MVXjLeY+8GvJysJzWoJ0Pu
FziTVKSgi7kpYv6YvNe0rzweoj8YP0hX6PX99JjxAzTV+jw92208l3ZOeqS3
czz/oMYf8RN26/ExehRNqLC+XW/zknPkm4dSPZqEcv3apc4Kerdxkz73dO/7
s+9BX1RLE/sX6Fj1PslulfHf9X+mfLqq8U3PRXyLUa0vDXIt8fwE2+X8HmH/
H7XscK9P0BnGy8xfxz9L/7OxKYltvqeaUrz7PehSOVRjCZ7FM+jP52l6rZqq
aD+6mNaJvRPn2Pt8OTSnrdU1UR4TcBeWml+COz3fgS5y74wabDDfQuxa8zWo
1MOHzG/Ws9m00Xi/+QPY67kf21nJGXueSffQ7703u9T3q3fiDE6jrTr3yeVk
8n2g3dW1Scxv1Fsm1v14AKP1YK5+3ed5pTOoEL+tusppG5qOg0lP7fVP+i98
leSE39g8Kv5pe88T9xRNSc6ZT7YzzKU5NINvJv5h7QDeTs7Q/egjpxbu40bf
jM/s3SDep3QPTU36glnJ7zieQDt9bY9U9VxgLYWm0HG4Bavsn6/GE3L5Vp6H
8B1aqTFXzJb2vhBpqEy+yXQ+vcL6g9brk++E8Xr9O8e3dZTcm9PRtIf8e6J7
cjbyH+WdGokRiVpvxm6yvddafw2rsAar8ZjcctU6Tw1zUagvBahiP4KOxCLz
VRjFLovPSDpB7LvQUuw0lLHP904PwfUYjEG43e/+aPZFbCcmv83yac3+OfZd
6RzjaeaP6/MwsYejSl8WJ3fReoX1zvRWeYxLzlsf12GFvmzW43r/xSbaY7iz
Kkr+i/ErwBD3Jt1csblB/NeIk0dX007+W7RxRyr9V3qd7QJaLHYJSjGYXT5W
yqtC7n397yuny7xLy/G1+3vA9/48NWxxHn+g79IZen/UHTiGcck3Fd/JYwrb
Q3Sdvers9Yaer8P/5FbmTv3X/O+F1PJH
          "]], LineBox[CompressedData["
1:eJwNkUkoBFAYx/8mB9tBuThoGJIxZmyzNJbZLCVkrKUsmRlriVLi7uhAhAvl
6Ggt+1JKSZEDDpYclOHGUeR3+PV773vve9/33jOFR5tHYiRNQ0eB1OySOnEj
fi+XGvBajvTqlJKKpbE86dshuTySG1Ls0mSJFCXmYP6JX9j7DHHsT4CITaor
k3rxmFt69EpPcELuKQwS3yqSBvA466nUW6buCmwSX4dtxkaL9Fsj/cEPxFsl
b0AKQDm8EYvQw65PSme8lyvtMD6gdkuF1AZp1Dui9jFEqXeGP3BypeTDPaWS
B1vpY44+QtQNg59a/fia829gk/sFzdItYxv3D+ZLhXiRc5ZgAaaIDeFhejGT
e8DbrfI+reQYyDWxFostnHVHrhU/4HuIZe8W8y5sxtnkdGMj8ws/feJzfMjZ
+3BJr32cfYUT2TvJXScgk3013MnOn4bIn+dPM/AvtQ2sNbHmZM1ErJ5xLWxA
Fn190XMV927nD6vxLPMZsNPfP5r0YHw=
          "]], LineBox[CompressedData["
1:eJwVkk1Ik3Ecx7/Tm2LYaOElYsO2JGel9ewla1st52CpSRQOnSl6UjepEMRO
BdXBQ4dOUYtIEZVddhpo1zypOFM7ZAdhFZjaFiHzEH12+PD9v/y+v5f/81j7
E51xk6Q0hLzSjiG9uCY9h2dgdkrRJqkLBgLSICxdlT5BzWXJXS/9wGNrlIou
qRatxhO5Ih1HDzl76pOG6qQ86wKYGqR9NO+WfsMkfLRLSc7eQYB7m0eaIfd7
9jfwT6Nfrktb8Bme0Mcc92k0Qc033L8FO5yBdfx/gtLEWcnKHKdhivgU8bP0
coTHyT5Mnw3oBjMsELMIy3hXwHxBqmyWDsizDynm/Ysec0hVnPupk6XXLLGj
5HjFPgjdId6OOknOPqAPqHWb805wwT/ezkCH8XluSl4oo67g9SVpDF/xonQq
LL2klp33MXjLEL0u01Mdewd8K82GbqPz1Mzg9xB3i/dZPSfdYaYMHh/aS59+
6i1x/pCeYvTQCwV6q8Dfxmy73Hege+gvqCE2zN7CrDF6zJHjJ+eP+R59vGEX
taNw77x0F80R9x0i1Jui7028I+R4xH8VR13UdYMB5aUZW4kn7j7e7tI/Qy89
6Da+r3CCt46Se4O5TrK2QBv34+RrR1vwrXNXoH8/6yzrNfgP4v6A2g==
          "]]},
        RowBox[{"-", "1"}]],
       Annotation[#, -1, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], Opacity[0.5], CapForm["Butt"], 
         LineBox[{10158, 17434, 17436, 18705, 18704, 11349, 16763, 18355, 
          18354, 11641, 18798, 15854, 13567, 11346, 16761, 10978, 18542, 
          18543, 16510, 19349, 16509, 19350, 10260, 17893, 10259, 19348, 
          12604, 15229, 17907, 15228, 16657, 16656, 19309, 12597, 19308, 
          19307, 18572, 18571, 11921, 19521, 18893, 19231, 19230, 14731, 
          14732, 14668, 14730, 14667, 10326, 14981, 15846, 15845}], 
         LineBox[{10538, 14083, 14084, 11707, 14541, 12900, 12901, 12327, 
          14854, 12014, 13682, 12015, 13677, 13675, 18020, 18018, 18937, 
          17366, 18017, 19327, 18015, 11062, 13950, 12864, 12865, 13957, 
          13955, 10192, 13829, 11135, 12862, 11136, 13709, 13707, 10220, 
          15687, 12205, 13827, 15768, 10291, 14980, 14982, 13995, 13996, 
          12208, 15036, 12895, 12896, 11276, 12894, 14009, 14008, 11259, 
          17874, 11258, 13991, 15227, 15226, 12568, 14722, 14721, 15337, 
          15336, 17793, 17794, 15156, 15155, 11920, 14665, 11919}], 
         LineBox[CompressedData["
1:eJwV1XlM13Ucx/G3W3Jom3kVzczSeaCCtyWi5oGBligeM5ukHV4ryzzSVlqz
UqDymiWaYSsVsRJF11YeW2mr7Pgj/2glIJmtslqiZSu0Ht8/nry+n+N9fj6f
H7fe/2jRwmYRUe9PSXZEvxERpfS10RGVfSOGDI3YTR+mHwyMOIy2/SKKx0e0
o22QcldE60R7RMy/I6KV8QJaSOfQeZiL1t0j1rIvwRkxShMdIjYu5ERMYf/4
mIjFWISlWILp9q6UzyrUyOMgDmHg4IiJefbIr5AupTeb74jpmREn5LjM3CRr
89WVxj4VzficJt499vx9p1ytTbNnKvL6R9RZT2H3yvCIVzHV3pw+ESfNlfJZ
po7jYtfbW58fUd2LDd1P3xoXsRP1fKTa/6bvI+o7igL1bu4ZMZi/s/r1oLUS
ftvL4Xr8wPc5VBVE7MXbqMQetBgrTjf9wp7b5WHuShZ7epW+SF9CJ/WFfpX5
nqe+Kjk+J48U+aVigbntcplPrzFujhocQK0Yhewae9un7nI5HUvOUV0HrR/C
6/Zsx2N6MPs250QrjEtzIz4VJ0dtQ7CN7Vbcba2/e1Atpwa+C40noIivJXox
mU5BF3E2qH0TNuIKv9udRxNdb/wN36v1ahvfQ/nqoIZcup/PGhzAbnle4KeS
NtKV4q9CTza9cJSPdWKvx0x+35N/Md0p/i4cZpPPdqJ8j/j+jO3PYrd2Pz7i
/zhWiPkhzeYjw3kuVcNpezezyx/mjrH5i88C35dpnnuwRd5jaDndK48qdHTX
n7BnOSrF3oPdqBspV/Gz0BunnEWeeGPRYO0Mxom1194CWkU3yGUjJiV9S2qU
b0vz3b2DUuPJ5v+jRfQqHeTsP9fbL3AS3dzFBvOjrc/BQzho/hC+T+z4mYLJ
+FbuG/hfj5dRZj3TfA9sGaRGtNCjenmm02z3cdQAvyejnCc6qvcmdMB4+a8V
4xgfa+gmNTTa31WfLtBLuIgJ8p0l1nm9/Vpuv9DZxj+590ecYVd9OkxrvI01
4q7Vs1PyKaFbxdyGclTY/4L38DzKvb1z4jzD17PY4Twq3KkKWsd3PU4j3fnW
0ia+JiZvjk6iVXL/Ljk32k38WeJea74l2vlteEMtO7DOu8gSZ5S+jUSRWi6K
lyqfS3w1pxdpCm3DdqbvtokPPM1nHt9P0YXyylDjIzTd20zDKnuvWPudNtHf
6ApnuRzV7HP0/x26D+/iE3l1Fj89+T1BGjITWzn+i3+w1V0ux5/6vkuPOos3
UL4D8IdaW7EZwWaueMNpJz4PmO9rb646s+lQ2oc2yXdGcnZsbtT7+2gG7aPW
G3zPYZ9B59LV/M0QY5l4PdhlYpP5zta7JO+NTRaKff/onN9He/190r1pl/we
uRdtk98Wd6lW7H7Of4fvWbSC9qUT+H7A2acbV9v/lfFZZ/4l3WecZr5S726h
NcbnzTc6s1+T/2viFsh9Hs2nw8QYjuu869ykZiy0t1i9i92XRbhXbjNw2dwy
+07oS517fwYN+Nj+Wnoa/wN9J11d
          "]], LineBox[CompressedData["
1:eJwVkztM01EUxj8UJzEO6CAYEEhAbUvLq9AXECnQQgdtdGICA2zge3CTRRM1
kcqgtS9NFCoti7qoi5oAm5qIUItYIwlEo/EZTXzU33/45eu595zvnnt6/xUD
o8GRAkm/Yb9VKvJKzh7JAR0WacgvedFhdHW39NEpfYJ1m3SjU1pDfb3SbJN0
h/WtNVKiTjrskgbgFp7LDikLO7ulUiiBIfwHIbZHirqlOJpqwxt9if6j7im9
5NFnqB3dS34zOtklTcEZziq1S2Po33Zq4A+kTZLbLGXoy4UW0Peheuk9tZc4
exxCYKPfZnIecQc7+hhtQdeocRq14IAnrHdylzQ+E9Rdhm7WuyBLHymfFODM
58Tn2ZsmL4t3Cr1IfAGu0XsY+unjHn1EyG1lv5i5WGuld8Q2NILPIn4ZWIIr
5FTjVc9+A9RBEzTCPH1W4fWB35VoDXlXyU8S54i9nJVhNm7+u1lyXegc6kH3
cU4E/xhEIUheOf3tgjKoggqohA30vxEKjbvj+xn/CTQE7cYMmE8b+gpdqpZu
QiFzCTGz7axvgzFyN1NfBFsgTK+/ODPO+ghnHIFRiBDH4As1UTTMu1rGVwHp
NTpDXRpseFihFq6Td4zaIPc9iiaIzaxboJx5pMgvQ03Epz3SC7xnuH+et3KA
+CH5Cdb85ATJ9aFx4gesl/C+dsA097kNSWhh3WSch8cb4hyscJezzLWvgffL
3iIsQMCYCepHe+Envj3oOp4e/gvxth345TvolzwzHKSHOXoYb2WG8JbvIQfF
fCeTxkzwsLD/g/NWeDNf0e/wDe43SpvYO4HPSTgOSWpOoVPoXbzPcef/3we7
WA==
          "]], LineBox[CompressedData["
1:eJwVks1L03Ecx99ejA7z5jQTNW2tsWUmWi0r3YPuiTFSiBXl07oV1anhMnQx
DyrmxX+gosSSFUSPhzw60LbFHrCLHoxWQRAkA2+9dnjx/v229/f9efj+jozf
GbxdJeklhE9KnrPSFbQfdcOnAekjfACnX3LAXas0xn+BTikIqXPSOkTt0m6X
1O2QvqPfuqUtqMZzADY4dw/fJho8Ld3vlUYtkqlHivE8Ab/ImOqQjOelOrPk
5bwfSu1SCP2B/sbzjpy3cPC4dJlsn0265JEGYQgc5Mdd0kMw0E+20vMF6Y9b
WmGGF/D+IvPBMDkuZk5Tdz4gPaKuifkW0Uaf1ASHIUqNZtRCzzlqhPBvkxOn
J/sZaqFL1LuJ7xC+BpihdgJi9OnC85ffvuL7gi+Hlumnnpyayrxokhmv0muJ
nn7Ca95fwQ7nR3j3sqsMviLzZdE8moN9dnCM7KfUXqXeM3SPbCOeVmasrXjZ
W56aZvrIUD8NEXxP+qQb6BvOxaHglB6zhwfULPI8iR4low2e40viCZ/iO4Hp
E9I/dhVHF9AEd3iL/czS6xzkqbvOt5OCz+yzTO011ECvNTBOlp3MCOplpynu
qECGzctdkWNFW+jhGt7rlX3SwzK+/wepfwo=
          "]], LineBox[CompressedData["
1:eJwNkM0rA2Acx79rF5JCyoWEad5fNjM27+alkVgi2WmHkffl4uUmbvJy4byU
3MYFk4Nx5kD8A5QIZUpe1vgcPn2el9/zfX7Pk+Ob9kwZJK3CWr20DkcOqbxA
2mDcVy1dFUuLrF3iZIuUBPc26QGiVZKdunf8aJYczZITbKxZ4Zn1AOcSObPL
/kwNc7ipkGbxNXY7pQXyv7jzyCodwzx7cxCq5I5O6ZMMe4eUT42VeXaRZMEx
+IGEEvpiL7VbSoMU8HF/mOzDRukE97dIp9hZyrsY12EP/ibXWyhVcJ/VLbnK
ycZteNsubcEmvYfrpAPePEwvT/yLF69QF6FuGZ/hkVapp0zy4zEYhWN6NVMf
xkH+Y4C+jPQadUnpvP+2FjhTTPYdNuE8iDRJ57ADmdwVxFl4n/89gAvme7w7
xDjO//7BEm96aZBe4Q385PzSg4XefnAcYmAgp5c/N+JcahbpyURPfrIcZA6R
NQgf9P1OzQRnAl3SJB6HjHbpH9bnZ7o=
          "]]},
        RowBox[{"-", "1.5`"}]],
       Annotation[#, -1.5, "Tooltip"]& ], {}, {}}}], 
   {RGBColor[1, 0, 0], 
    LineBox[NCache[{{Rational[1, 2] Pi, 0}, {Rational[1, 2] Pi, 2}}, {{
       1.5707963267948966`, 0}, {1.5707963267948966`, 2}}]], 
    LineBox[NCache[{{0, 1}, {Pi, 1}}, {{0, 1}, {3.141592653589793, 1}}]]}},
  AspectRatio->1,
  DisplayFunction->Identity,
  Frame->True,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic},
  PlotRange->NCache[{{0, Pi}, {0, 2}}, {{0, 3.141592653589793}, {0, 2}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.5449739889208126`*^9, 3.544974115166187*^9, {3.652711288563395*^9, 
   3.6527113071649303`*^9}},ImageCache->GraphicsData["CompressedBitmap", "\<\
[encoded data, 70455 characters]
Tfpf1/Kf/ZpfsUkHvrF7P3z8P/8/RE7l8g==\
\>"]]
}, Open  ]],

Cell[TextData[{
 "Your estimates....\[LineSeparator]\[LineSeparator]",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "x"], "(", 
    RowBox[{
     RowBox[{"\[Pi]", "/", "2"}], ",", "1"}], ")"}], TraditionalForm]]],
 "=\[LineSeparator]\[LineSeparator]",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "y"], "(", 
    RowBox[{
     RowBox[{"\[Pi]", "/", "2"}], ",", "1"}], ")"}], TraditionalForm]]],
 "=\[LineSeparator]\nAlso estimate whether these quantities are positive or \
negative:\n\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "xx"], "(", 
    RowBox[{
     RowBox[{"\[Pi]", "/", "2"}], ",", "1"}], ")"}], TraditionalForm]]],
 " \[LineSeparator]\[LineSeparator]",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "xy"], "(", 
    RowBox[{
     RowBox[{"\[Pi]", "/", "2"}], ",", "1"}], ")"}], TraditionalForm]]],
 "\[LineSeparator]\[LineSeparator]Figure out how to calculate those \
second-order derivatives in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"]
}], "Text",
 CellChangeTimes->{{3.652704950742381*^9, 3.652705116184417*^9}}],

Cell["", "Text",
 CellChangeTimes->{{3.5449743363210692`*^9, 3.5449743699577055`*^9}, 
   3.652704666463736*^9, {3.652705120554413*^9, 3.652705122353636*^9}, {
   3.652710927184967*^9, 3.652710929285165*^9}}],

Cell[TextData[{
 "\n\n\nComment: Why is the view point default in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " (positive, negative, positive)?",
 StyleBox["\n\nTo hand in this lab",
  FontWeight->"Bold"],
 ", save your ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " notebook file in your Google Drive folder, but also include snapshots of \
your printouts with estimates."
}], "Text",
 CellChangeTimes->{{3.652710937239979*^9, 3.652710992560966*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{740, 867},
WindowMargins->{{192, Automatic}, {28, Automatic}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
FrontEndVersion->"10.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (July 6, \
2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 141, 1, 83, "Section"],
Cell[CellGroupData[{
Cell[723, 25, 109, 1, 50, "Section"],
Cell[CellGroupData[{
Cell[857, 30, 152, 2, 35, "Subsubsection"],
Cell[1012, 34, 233, 4, 49, "Text"],
Cell[1248, 40, 574, 22, 34, "Text"],
Cell[1825, 64, 125, 2, 49, "Text"],
Cell[1953, 68, 1205, 38, 231, "Text"],
Cell[3161, 108, 183, 2, 87, "Text"],
Cell[3347, 112, 211, 5, 37, "Text"],
Cell[3561, 119, 741, 17, 53, "Input"],
Cell[4305, 138, 562, 17, 46, "Input"],
Cell[4870, 157, 496, 16, 46, "Input"],
Cell[5369, 175, 213, 5, 37, "Text"],
Cell[5585, 182, 1067, 31, 87, "Input"],
Cell[6655, 215, 266, 6, 75, "Text"],
Cell[CellGroupData[{
Cell[6946, 225, 2923, 70, 159, "Input"],
Cell[9872, 297, 284081, 4691, 300, 205526, 3402, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[293968, 4991, 1333, 34, 169, "Text"],
Cell[295304, 5027, 344, 9, 28, "Input"],
Cell[295651, 5038, 267, 7, 28, "Input"],
Cell[295921, 5047, 640, 20, 91, "Text"],
Cell[CellGroupData[{
Cell[296586, 5071, 1217, 38, 63, "Input"],
Cell[297806, 5111, 622703, 10307, 374, 552034, 9147, "CachedBoxData", \
"BoxData", "Output"]
}, Open  ]],
Cell[920524, 15421, 1101, 35, 267, "Text"],
Cell[921628, 15458, 208, 3, 30, "Text"],
Cell[921839, 15463, 468, 13, 144, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
