(*^ ::[ Information = "This is a Mathematica Notebook file. It contains ASCII text, and can be transferred by email, ftp, or other text-file transfer utility. It should be read or edited using a copy of Mathematica or MathReader. If you received this as email, use your mail application or copy/paste to save everything from the line containing (*^ down to the line containing ^*) into a plain text file. On some systems you may have to give the file a name ending with ".ma" to allow Mathematica to recognize it as a Notebook. The line below identifies what version of Mathematica created this file, but it can be opened using any other version as well."; FrontEndVersion = "Macintosh Mathematica Notebook Front End Version 2.2"; MacintoshStandardFontEncoding; fontset = title, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M18, N18, O450, bold, e8, 24, "Times"; fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M18, N18, O450, bold, e6, 18, "Times"; fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M18, N18, O450, italic, e6, 14, "Times"; fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M18, N18, O450, bold, a20, 18, "Times"; fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M18, N18, O450, bold, a15, 14, "Times"; fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, N18, O450, bold, a12, 12, "Times"; fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M18, N18, O450, 12, "Times"; fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M18, N18, O450, 10, "Times"; fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M18, N18, O450, bold, L-4, 12, "Courier"; fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M18, N18, O450, L-4, 12, "Courier"; fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M18, N18, O450, R32768, L-4, 12, "Courier"; fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M18, N18, O450, L-4, 12, "Courier"; fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M18, N18, O450, B32768, L-4, 12, "Courier"; fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M18, N18, O450, l34, w282, h287, 12, "Courier"; fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M18, N18, O450, italic, 10, "Geneva"; fontset = header, inactive, noKeepOnOnePage, preserveAspect, M18, N18, O450, 12, "Times"; fontset = leftheader, inactive, M18, N18, O450, L2, 12, "Times"; fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M18, N18, O450, 12, "Times"; fontset = leftfooter, inactive, M18, N18, O450, L2, 12, "Times"; fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M18, N18, O450, 10, "Times"; fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M18, N18, O450, 12, "Times"; fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M18, N18, O450, 12, "Times"; fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M18, N18, O450, 12, "Times"; fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M18, N18, O450, 12, "Times"; fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M18, N18, O450, 12, "Times"; fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M18, N18, O450, 12, "Times"; fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M18, N18, O450, 12, "Times"; paletteColors = 128; showRuler; currentKernel; ] :[font = subsection; inactive; noKeepOnOnePage; preserveAspect] Math 225: Calculus III Assignment 5 :[font = subsection; inactive; noKeepOnOnePage; preserveAspect] Name: :[font = subsection; inactive; noKeepOnOnePage; preserveAspect] Section: :[font = text; inactive; preserveAspect; startGroup] I affirm that the solutions presented in this assignment are entirely my own work :[font = subsection; inactive; noKeepOnOnePage; preserveAspect; endGroup] Signature: :[font = subsection; inactive; preserveAspect; startGroup] Instructions :[font = text; inactive; preserveAspect] This assignment contains problems involving functions of several variables: the chain rule, tangent planes, the gradient of a function, local maxima/minima & saddle points on the graph of a function, see Chapter 13 in Finney & Thomas or Chapter 3 in the Lecture Notes. Before starting this assignment you may want to review the notebooks Derivatives, TangentsNormals, and AdvancedCalculusDemo (in the Notebook folder or the back of the Lecture Notes). The functions Grad[], CriticalPoints[], and Discriminant[] are used for the first time in this assignment. Recall that to substitute a value into an expression use: expr /. var -> value. For example, x^2 - y^2 /. x->2 4 - y^2 If an expression has already been defined as a function, then just use the function notation to get values. For example f[x_,y_] = x^2 - y^2; f[2,y] 4 - y^2 To plot the level curve f[x,y] == c, use ContourPlot[f[x,y],{x,minx,maxx},{y,miny,maxy}, Contours->{c}, ContourShading->False] To plot a level surface f[x,y,z] == c, use ContourPlot3D[f[x,y,z],{x,minx,maxx},{y,miny,maxy}, {z,minz,maxz}, Contours->{c}] To get a line segment from p to q representing a 3D vector use Vector[p,q] and combine it with other plots with the Show[] command. Be sure to type in comments explaining what you are doing. Remember to uncheck Show In/Out Names in the File menu and close this group before printing. ;[s] 44:0,0;339,3;350,0;351,3;367,0;372,3;393,0;467,1;473,0;475,1;491,0;496,1;511,0;619,1;641,0;654,1;675,0;676,1;680,2;687,0;808,1;849,2;856,1;857,0;882,1;893,0;899,1;988,0;1013,1;1026,0;1031,1;1117,0;1145,1;1146,0;1150,1;1151,0;1181,1;1192,0;1235,1;1241,0;1332,1;1349,0;1357,1;1361,0;1405,-1; 4:21,13,9,Times,0,12,0,0,0;18,13,10,Courier,1,12,0,0,0;2,13,10,Courier,0,12,0,0,0;3,13,9,Times,1,12,0,0,0; :[font = subsubsection; inactive; noKeepOnOnePage; preserveAspect; startGroup] Initialization :[font = input; initialization; noKeepOnOnePage; preserveAspect] *) <