(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[    241960,       4257]
NotebookOptionsPosition[    240312,       4196]
NotebookOutlinePosition[    240667,       4212]
CellTagsIndexPosition[    240624,       4209]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[StyleBox["Lab05 - Partial derivatives - part 1", "Title"]], \
"Section",
 CellChangeTimes->{{3.652701791462523*^9, 3.652701806633205*^9}, {
  3.684763928425887*^9, 
  3.6847639388810177`*^9}},ExpressionUUID->"038f7119-296f-4f49-a2ed-\
19e00f88b5a0"],

Cell[CellGroupData[{

Cell["[Your name(s) here...]", "Section",
 CellChangeTimes->{{3.652701868911021*^9, 
  3.6527018752636967`*^9}},ExpressionUUID->"33567496-6b63-417b-8d28-\
f92fb75dd262"],

Cell[TextData[{
 "A partial derivative of a multivariable function is a derivative with \
respect to one of the variables, while holding the other variables constant.\n\
\nIf ",
 Cell[BoxData[
  FormBox["z", TraditionalForm]],ExpressionUUID->
  "7e653007-ed73-4da0-b172-066683c9dd7c"],
 " is a function of two variables-- ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "=", 
    RowBox[{"z", "(", 
     RowBox[{"x", ",", "y"}], ")"}]}], TraditionalForm]],ExpressionUUID->
  "58d1fb81-cdce-41cc-bb88-bbacb4b60ce4"],
 " -- then holding ",
 Cell[BoxData[
  FormBox["y", TraditionalForm]],ExpressionUUID->
  "50925773-e9dc-459a-9066-eb415541558c"],
 " constant, for example, ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", "1"}], TraditionalForm]],ExpressionUUID->
  "80c81122-7058-4f2a-adf4-abf3c6a70b7b"],
 ", leaves us with a function that depends on only one variable:  ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "(", 
    RowBox[{"x", ",", "1.0"}], ")"}], TraditionalForm]],ExpressionUUID->
  "f4b187d6-4e76-4baf-a4ee-9f5dada66e67"],
 ".  This is a \[OpenCurlyDoubleQuote]vertical\[CloseCurlyDoubleQuote] trace \
of the function.  It\[CloseCurlyQuote]s the intersection of the surface ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", "1"}], TraditionalForm]],ExpressionUUID->
  "6d149ae1-2faa-4930-9fac-30d4798a75a4"],
 "with the surface given by ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "(", 
    RowBox[{"x", ",", "y"}], ")"}], TraditionalForm]],ExpressionUUID->
  "ec2530ef-958a-4b71-b1ff-c6533e022c1e"],
 ".  \[LineSeparator]\nBelow, a surface is plotted together with the planes \
",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "=", 
    RowBox[{"\[Pi]", "/", "2"}]}], TraditionalForm]],ExpressionUUID->
  "4c965b2b-1b5e-4007-8a6d-20547df7a1cf"],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", "1"}], TraditionalForm]],ExpressionUUID->
  "3ed51136-a554-4082-9e56-896e655684f6"],
 ".   \n"
}], "Text",
 CellChangeTimes->{{3.5449747202189164`*^9, 3.544974758762624*^9}, {
  3.684764001656188*^9, 3.6847643770949917`*^9}, {3.6847646102052794`*^9, 
  3.6847646785143147`*^9}},ExpressionUUID->"87db4518-fb25-45f7-b3e1-\
afcda702458c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"z", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{"y", " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"x", " ", 
     SuperscriptBox["y", "3"]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.684764466531251*^9, 3.684764466745426*^9}},
 ExpressionUUID -> "392b0e89-45ff-4271-8fce-46c214326c49"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"plot1", "=", 
   RowBox[{"Plot3D", "[", "    ", 
    RowBox[{
     RowBox[{"z", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", "\[IndentingNewLine]", 
     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.6847644816443863`*^9, 3.684764496866026*^9}},
 ExpressionUUID -> "5d37901f-5117-4970-9072-4a543e7f2e1d"],

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:eJzs+1VU1G/89ouDYKEgIShIGIiElDQCb2kUVMBACQkpSZGSVFBASRVEkAYp
[encoded data, 95160 characters]
5pb+l08diOcYy/Ec4z8E3ntG
     "]], 
   {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,
  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}]], "Output",
 CellChangeTimes->{3.7357713878747663`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Problem 1 4pts", "Subsection",
 CellChangeTimes->{{3.684764563547155*^9, 3.6847645651925077`*^9}, {
  3.735771474940928*^9, 3.735771477066227*^9}},
 ExpressionUUID -> "2ab100f7-e622-4018-a4d7-c07cfc65b9ef"],

Cell[TextData[{
 "Rotate the plot above as needed, and make a hand sketch of the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "("}], TraditionalForm]],ExpressionUUID->
  "280850d2-1e63-4009-8347-c41e2291368d"],
 "x,1).  Think carefully about identifying the ",
 StyleBox["positive",
  FontSlant->"Italic"],
 " direction for the independent variable ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]],ExpressionUUID->
  "954eeee2-c7fe-4723-bca3-3e1e1df8fea5"],
 "!\[LineSeparator]\[LineSeparator]Rotate the plot above as needed, and make \
a hand sketch of the function ",
 Cell[BoxData[
  FormBox[
   RowBox[{"z", "("}], TraditionalForm]],ExpressionUUID->
  "43745a8d-f8e0-4534-b129-37329e048b72"],
 "\[Pi]/2,y).\n(Insert a snapshot of your sketches)"
}], "Text",
 CellChangeTimes->{{3.684764572385273*^9, 3.684764572712884*^9}, {
  3.6847646852973537`*^9, 3.6847647674988947`*^9}, {3.6847648848511744`*^9, 
  3.684764906625369*^9}, {3.7349507357410297`*^9, 
  3.734950749588648*^9}},ExpressionUUID->"3160dabb-974d-4b3a-ab5d-\
d9d5e6976cb0"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Problem 2 2pts", "Subsection",
 CellChangeTimes->{{3.684764797841548*^9, 3.684764799672821*^9}, {
  3.7357715149792633`*^9, 3.735771519094263*^9}},
 ExpressionUUID -> "550c875b-bab5-4b5c-8c53-ef1aab87832a"],

Cell[TextData[{
 "Now, use Mathematica\[CloseCurlyQuote]s Plot[...] function to plot each of \
the 2 functions above.  (And then see how well your hand sketches worked \
out.)  Think carefully about identifying the ",
 StyleBox["positive",
  FontSlant->"Italic"],
 " direction for the independent variable ",
 Cell[BoxData[
  FormBox["y", TraditionalForm]],ExpressionUUID->
  "6c3b0165-5e49-42fc-84dd-82957198e940"],
 "!\[LineSeparator]\n"
}], "Text",
 CellChangeTimes->{{3.684764805817299*^9, 3.684764857353046*^9}, {
  3.6847649202344522`*^9, 3.6847649263135242`*^9}, {3.734950723232758*^9, 
  3.7349507237573833`*^9}},ExpressionUUID->"149a1bb1-fbcd-4598-a3b4-\
652d5549585f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{"x", ",", "1"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.73577176620363*^9, 3.735771766887496*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwt1wkw180fB3BXv9/3p4ueqChEh1wdSEKfJTmfhB4pR45SqIhKB+mJ0CVy
[encoded data, 4819 characters]

      "]]}}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->
   NCache[{{0, Pi}, {-0.9999999999999979, 0.9999999999999979}}, {{
     0, 3.141592653589793}, {-0.9999999999999979, 0.9999999999999979}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.735771769608569*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{
     RowBox[{"\[Pi]", "/", "2"}], ",", "y"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.735771805275282*^9, 3.735771820017457*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJw9d3k81F/0d6ESspYisheyhSwppyTZspRKZd+ShERUZFeWUkiFZCkksiSi
[encoded data, 13786 characters]
/A==
      "]]}}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 2}, {-1.8182460281961714`, 1.9999999591830815`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.735771822461083*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Problem 3 4 pts", "Subsection",
 CellChangeTimes->{{3.684764997433465*^9, 3.684764999320423*^9}, {
  3.686332226127349*^9, 3.686332227492296*^9}, {3.7349504093866034`*^9, 
  3.7349504099058943`*^9}, {3.735771536804811*^9, 3.7357715399637537`*^9}},
 ExpressionUUID -> "abc1ed55-d6a0-47dd-a609-279152afe673"],

Cell[TextData[{
 "Calculate the functional form of ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["f", "x"], TraditionalForm]],ExpressionUUID->
  "963aa4fe-a5a9-4125-ba97-e4951d19177e"],
 "and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["f", "y"], TraditionalForm]],ExpressionUUID->
  "7f682bd5-bb67-4c3d-9755-6b31725a24a0"],
 "by hand, and then evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "x"], "(", 
    RowBox[{
     RowBox[{"\[Pi]", "/", "2"}], ",", "1"}], ")"}], TraditionalForm]],
  ExpressionUUID->"2e64084c-6918-46fb-a85d-146f25a0c85c"],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "y"], "(", 
    RowBox[{
     RowBox[{"\[Pi]", "/", "2"}], ",", "1"}], ")"}], TraditionalForm]],
  ExpressionUUID->"b414c904-4db1-4251-8cac-d34b8f55951b"],
 ". (Insert a snapshot of your calculations)."
}], "Text",
 CellChangeTimes->{{3.6847650062933273`*^9, 3.684765149537427*^9}, {
  3.686332231905582*^9, 3.686332332017026*^9}, {3.68633243145387*^9, 
  3.686332440983087*^9}, {3.686332809868019*^9, 3.686332814789694*^9}, {
  3.734950494911561*^9, 3.7349505100233803`*^9}, {3.734950760702487*^9, 
  3.73495076327635*^9}},ExpressionUUID->"1549eae7-5454-472e-85ec-\
b5e5941f3961"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Problem 4 2pts", "Subsection",
 CellChangeTimes->{{3.684764997433465*^9, 3.684764999320423*^9}, {
  3.686332398438055*^9, 3.686332399487547*^9}, {3.734950550526775*^9, 
  3.734950550800234*^9}, {3.735771566261832*^9, 3.73577158819416*^9}},
 ExpressionUUID -> "9951a8db-bbcb-4172-8ad1-63ee8cb083c9"],

Cell[TextData[{
 "Using Mathematica, Calculate ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["f", "x"], TraditionalForm]],ExpressionUUID->
  "48c800fb-fe77-46d5-a4eb-5f1c9f552fca"],
 "and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["f", "y"], TraditionalForm]],ExpressionUUID->
  "b8114224-c21c-4591-a190-2730d8a53c6e"],
 ", using ",
 StyleBox["D[ ... , x]", "Code"],
 " and ",
 StyleBox["D[ ... , y]", "Code"],
 " functions and evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "x"], "(", 
    RowBox[{
     RowBox[{"\[Pi]", "/", "2"}], ",", "1"}], ")"}], TraditionalForm]],
  ExpressionUUID->"ce75800d-4c03-4b63-b695-2fedefac81d3"],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "y"], "(", 
    RowBox[{
     RowBox[{"\[Pi]", "/", "2"}], ",", "1"}], ")"}], TraditionalForm]],
  ExpressionUUID->"59e1284a-ddf0-46ac-92aa-dc8ce7357cef"],
 ". "
}], "Text",
 CellChangeTimes->{{3.6847650062933273`*^9, 3.684765149537427*^9}, {
  3.686332344353776*^9, 3.686332390219552*^9}, {3.734950519791419*^9, 
  3.734950543507484*^9}, {3.734950610245812*^9, 
  3.7349506385980997`*^9}},ExpressionUUID->"449a7aa1-ca0c-4533-aec0-\
6291c6717abd"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     RowBox[{"\[Pi]", "/", "2"}]}], ",", 
    RowBox[{"y", "->", "1"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"z", "[", 
    RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"z", "[", 
     RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     RowBox[{"\[Pi]", "/", "2"}]}], ",", 
    RowBox[{"y", "->", "1"}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.7357718898638783`*^9, 3.735771930480955*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["y", "4"]}], " ", 
  RowBox[{"Sin", "[", 
   RowBox[{"x", " ", 
    SuperscriptBox["y", "3"]}], "]"}]}]], "Output",
 CellChangeTimes->{3.7357718970954323`*^9, 3.735771932025976*^9}],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Output",
 CellChangeTimes->{3.7357718970954323`*^9, 3.735771932035376*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Cos", "[", 
   RowBox[{"x", " ", 
    SuperscriptBox["y", "3"]}], "]"}], "-", 
  RowBox[{"3", " ", "x", " ", 
   SuperscriptBox["y", "3"], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"x", " ", 
     SuperscriptBox["y", "3"]}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.7357718970954323`*^9, 3.7357719320396347`*^9}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"3", " ", "\[Pi]"}], "2"]}]], "Output",
 CellChangeTimes->{3.7357718970954323`*^9, 3.735771932043767*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{657, 880},
WindowMargins->{{Automatic, 114}, {Automatic, 70}},
FrontEndVersion->"11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (July 28, \
2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[400, 13, 263, 5, 139, "Section"],
Cell[CellGroupData[{
Cell[688, 22, 169, 3, 50, "Section"],
Cell[860, 27, 2150, 58, 211, "Text"],
Cell[3013, 87, 335, 9, 35, "Input"],
Cell[CellGroupData[{
Cell[3373, 100, 2271, 62, 201, "Input"],
Cell[5647, 164, 205060, 3394, 344, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[210744, 3563, 212, 3, 44, "Subsection"],
Cell[210959, 3568, 1050, 25, 109, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[212046, 3598, 212, 3, 44, "Subsection"],
Cell[212261, 3603, 678, 15, 108, "Text"],
Cell[CellGroupData[{
Cell[212964, 3622, 262, 7, 32, "Input"],
Cell[213229, 3631, 6451, 120, 229, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[219717, 3756, 289, 8, 32, "Input"],
Cell[220009, 3766, 15336, 265, 238, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[235394, 4037, 312, 4, 44, "Subsection"],
Cell[235709, 4043, 1224, 34, 57, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[236970, 4082, 304, 4, 44, "Subsection"],
Cell[237277, 4088, 1174, 37, 57, "Text"],
Cell[CellGroupData[{
Cell[238476, 4129, 925, 31, 96, "Input"],
Cell[239404, 4162, 239, 7, 35, "Output"],
Cell[239646, 4171, 111, 2, 32, "Output"],
Cell[239760, 4175, 349, 10, 35, "Output"],
Cell[240112, 4187, 160, 4, 106, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

