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

This notebook plots the sample function for the problems at the end of Chapter 8.

See Chapter 8 : Data Fitting for details.

Updated July 2008

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

f[x_]:=(x/10)+(1/7) Cos[3 (x^3)]+((x^3)/4);

pic=Plot[f[x],{x,-2,2},PlotStyle->{{Thickness[0.01`]},{Thickness[0.01`]}},BaseStyle->{"FontFamily"->"Helvetica","FontSize"->11},ColorOutput->GrayLevel]

Export["samplefct.eps",pic]