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

This notebook plots a function used in Exercise 4 in Chapter 10.
Figures 10.8 was generated with this notebook.

See Chapter 10: Finding Roots for details.

Updated July 2008

(* Specify the output folder *)

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

(* Create a function *)
f[x_]:=(x^4)+(1/40) Cos[40 x];

(* Plot it *)
pic=Plot[f[x],{x,-0.7`,0.7`},PlotStyle->{{Thickness[0.01`]},{Thickness[0.01`]}},BaseStyle->{"FontFamily"->"Helvetica","FontSize"->11}]

(* Output to a postscript file *)

Export["find_zeroes.eps",pic]