(*** ** ** ** ** ** * Banana Function ** ** *****) (*** **    z (x, y) = 100 * (y - x^2)^2 + (1 - x)^2 ***)

In[7]:=

f := 100 * (y - x^2)^2 + (1 - x)^2 ;

Plot3D[f, {x, -3, 3}, {y, -3, 3}, PlotRange -> All, PlotLabel->"Banana Function: 100*(y-x^2)^2+(1-x)^2"] ;

Plot3D[f, {x, -3, 3}, {y, -3, 3}, PlotRange -> {0, 300}, ViewPoint-> {0.41, -0.91, 1.91}] ;

[Graphics:HTMLFiles/index_5.gif]

[Graphics:HTMLFiles/index_6.gif]

Created by Mathematica  (October 3, 2007) Valid XHTML 1.1!