MathGroup Archive 2005

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

Search the Archive

Re: Plot3D gives serrated ridge


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