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