Question

Using ONLY the program Mathematica! please and thank you!

5. Consider the monkey saddle fix, y) -x-3xy. Find the critical points of this function and then draw a contour diagram for fnear the unique critical point. Identify which level curves are positive and which are negative. (Try using the commands: ContourLabels All Contour:Shading → None. Also, experiment with graphing particular contour values using Contours -2, -1, 0, 1, 2, 3.5 where we have chosen some particular contour values. You should choose your own values to improve the clarity of your plot.)

Answer 1

04作x3-3xy' fy(x, y] = D[f(x, y], y] ЗУ (x, y}, Reals] raot: Solve [f, [x, y] =0 && fy[x, y] = 0, 0])))) 0, f[0, Point1= Graphics3D [(PointSize [.05], Point [ { 0, rail:

Point! = Graphics 3D [ { PointSise [-05] , Point [ {0 , 0 , f [0 , 0 ] } ] } ] rail: surfce1= ContourPlot3D [f(x, y], {x, -5, 5), {y, -5, 5), {s, -5, 5), Contours→(-2, -1, 0, 1, 2, 3.5)) ra꺄

n33- Show [surfcel, Pointl] axes backgroundr E remove bounding box more...