Re: Plot3D gives serrated ridge

• To: mathgroup at smc.vnet.net
• Subject: [mg54787] Re: Plot3D gives serrated ridge
• From: Jon Harrop <usenet at jdh30.plus.com>
• Date: Wed, 2 Mar 2005 01:26:35 -0500 (EST)
• References: <d01538\$ov0\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Hugh Goyder wrote:
> Any suggestions for improving the plot?

Use Plot3D to do the shaded surface (with a single white light) and then add
your own code to plot the grid at a lower sampling but the same resolution:

\!\(\(With[{n = 128, m = 32, xmin = 4, xmax = 5.5, zmin = 4.5, zmax = 5},
Show[{Graphics3D[
Plot3D[Evaluate[Abs[f]], {k1, xmin, xmax}, {k, zmin, zmax},
PlotPoints -> Evaluate[n + 1], Mesh -> False,
LightSources -> {{{0, 1,  .5}, RGBColor[1, 1, 1]}},
DisplayFunction -> Identity]],
Module[{r}, \[IndentingNewLine]r[i_, j_] :=
Block[{k1 = \(\((n - i)\) xmin + i\ xmax\)\/n,
k = \(\((n - j)\) zmin + j\ zmax\)\/n}, {k1, k,
Abs[f]}]; \[IndentingNewLine]Graphics3D[{Table[
Line[Table[r[i, j], {i, 0, n}]], {j, 0, n, n/m}],
Table[Line[Table[r[i, j], {j, 0, n}]], {i, 0, n, n/m}]}]]},
DisplayFunction -> \$DisplayFunction]];\)\)

--
Dr Jon D Harrop, Flying Frog Consultancy
http://www.ffconsultancy.com

```

• Prev by Date: Re: Bug in Import?
• Next by Date: Re: MathLink
• Previous by thread: Plot3D gives serrated ridge
• Next by thread: Re: Plot3D gives serrated ridge