(*^
::[	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 6
:[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 on finding the extreme values of functions of several variables, including problems that use Lagrange multipliers, see Chapter 13 in Finney & Thomas or Chapter 3 in the Lecture Notes. Before you begin, you may want to review the notebooks MaxMin and AdvancedCalculusDemo in the Notebook folder or the back of the Lecture Notes. There are also many examples of how to do these problems in the Quizzes folder.

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]
9:0,0;273,2;279,0;284,2;304,0;523,1;540,0;548,1;552,0;596,-1;
3:5,13,9,Times,0,12,0,0,0;2,13,10,Courier,1,12,0,0,0;2,13,9,Times,1,12,0,0,0;
:[font = subsubsection; inactive; noKeepOnOnePage; preserveAspect; startGroup]
Initialization
:[font = input; initialization; noKeepOnOnePage; preserveAspect]
*)
<<Calculus`Math225`
(*
:[font = input; initialization; preserveAspect]
*)
Needs["Graphics`ContourPlot3D`"]
(*
:[font = input; initialization; noKeepOnOnePage; preserveAspect; endGroup; endGroup]
*)
i = {1, 0, 0}; j = {0, 1, 0}; k = {0, 0, 1};
(*
:[font = subsubsection; inactive; noKeepOnOnePage; preserveAspect; startGroup]
Problem 1
:[font = text; inactive; preserveAspect]
Find the absolute maximum and minimum values of
	f[x_,y_] = x^3 -  x^2 y - 3 x y^2 + (1/4)y^2
on the rectangular region bounded by the lines x == -1, x == 1,
y == -1/2, and y == 1.
;[s]
11:0,0;49,1;93,0;141,1;148,0;150,1;156,0;158,1;167,0;173,1;179,0;181,-1;
2:6,13,9,Times,0,12,0,0,0;5,13,10,Courier,1,12,0,0,0;
:[font = subsubsection; inactive; noKeepOnOnePage; preserveAspect]
Solution
:[font = input; noKeepOnOnePage; preserveAspect; endGroup]

:[font = subsubsection; inactive; noKeepOnOnePage; preserveAspect; startGroup]
Problem 2
:[font = text; inactive; preserveAspect]
Find the point(s) nearest the origin on the curve
 x^2 - x y + y^2 - 2 x  +  y == 5
by using Lagrange multipliers to find the minimum of the squared-distance function
f[x_,y_] = x^2 + y^2 subject to the above constraint.
;[s]
5:0,0;50,1;83,0;167,1;187,0;221,-1;
2:3,13,9,Times,0,12,0,0,0;2,13,10,Courier,1,12,0,0,0;
:[font = subsubsection; inactive; noKeepOnOnePage; preserveAspect]
Solution
:[font = input; preserveAspect; endGroup]

:[font = subsubsection; inactive; noKeepOnOnePage; preserveAspect; startGroup]
Problem 3
:[font = text; inactive; preserveAspect]
Find the extreme values of
	f[x_,y_] = x^2 + 3y^2 + 2y
on the circular disk x^2 + y^2 <= 1.
;[s]
5:0,0;28,1;54,0;76,1;90,0;92,-1;
2:3,13,9,Times,0,12,0,0,0;2,13,10,Courier,1,12,0,0,0;
:[font = subsubsection; inactive; noKeepOnOnePage; preserveAspect]
Solution
:[font = input; noKeepOnOnePage; preserveAspect; endGroup]

:[font = subsubsection; inactive; noKeepOnOnePage; preserveAspect; startGroup]
Problem 4
:[font = text; inactive; preserveAspect]
Suppose that the temperature T in degrees at the point {x,y,z} on the sphere
x^2 + y^2 + z^2 == 1 is
T[x_,y_,z_] = 10(1-z^2) + x^2 y^2.
Locate where the highest and lowest temperatures on the sphere occur and what the temperatures are at those points. (Use Lagrange multipliers and be sure to ignore any complex numbers that arise.)
;[s]
9:0,0;29,1;30,0;55,1;62,0;77,1;97,0;101,1;134,0;333,-1;
2:5,13,9,Times,0,12,0,0,0;4,13,10,Courier,1,12,0,0,0;
:[font = subsubsection; inactive; noKeepOnOnePage; preserveAspect]
Solution
:[font = input; preserveAspect; endGroup]

:[font = subsubsection; inactive; noKeepOnOnePage; preserveAspect; startGroup]
Problem 5
:[font = text; inactive; preserveAspect]
Your firm has been asked to design a storage tank for liquid petroleum gas. The customer's specifications call for a cylindrical tank that holds 8000 m^3 of gas. The customer also wants to use the smallest amount of material possible in building the tank. What radius and height do you recommend for the tank?
:[font = subsubsection; inactive; noKeepOnOnePage; preserveAspect]
Solution
:[font = input; preserveAspect; endGroup]

^*)