Plot3D gives serrated ridge

*To*: mathgroup at smc.vnet.net*Subject*: [mg54778] Plot3D gives serrated ridge*From*: "Hugh Goyder" <h.g.d.goyder at cranfield.ac.uk>*Date*: Tue, 1 Mar 2005 01:58:40 -0500 (EST)*Organization*: University of Warwick, UK*Sender*: owner-wri-mathgroup at wolfram.com

The function f, below, has two sharp ridges. The interaction between the mesh positions and the ridges gives the impression of a very jagged rather than a smooth ridge. Consequently the plot is difficult to interpret. Unfortunately the plot has to be in black and white for publication. Any suggestions for improving the plot? Is it possible to plot contours and lines of steepest decent in three dimensions? f = -((2*I)/(4 - 100*((9.42477796076938 + 0.01*I) - 2*k)*(0.047123889803846894*I - k + k1))); Plot3D[Evaluate[Abs[f]], {k1, 4, 5.5}, {k, 4.5, 5}, PlotPoints -> {50, 50}, ColorFunction -> (RGBColor[1, 1, 1] & )]; Thanks Hugh Goyder