Mathematical Principles for Scientific Computing and Visualization  
http://www.farinhansford.com/books/scv
by Gerald Farin and Dianne Hansford

This notebook is used for the Problems and Experiments for Chapter 11.

Figure 11.5 was created with this notebook.

See Chapter 11: Computing with Multivariate Functionsfor details.

Updated May 2008

(* Set output folder *)

(SetDirectory[ToFileName[Extract["FileName"/.NotebookInformation[EvaluationNotebook[]],{1},FrontEnd`FileName]]];) 

(* Create the function we want *)(f[x_,y_]:=2 Sin[6 x y]+(x^2) (y^2)+2 (x^3);) 


(* Plot it *)(pic=Plot3D[f[x,y],{x,-1,2},{y,-2,2},Mesh->False,Axes->False,ViewPoint->{-1,-3,0.9`},PlotPoints->90,ColorOutput->GrayLevel]) 

(* Output to a postscript file *)
(* Export["problem_multi.eps",pic] *)