[Date Index] [Thread Index] [Author Index]

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