Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

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