Skip to main content
Mathematica

Return to Question

Formatted code
Source Link
MarcoB
MarcoB
  • 67.7k
  • 18
  • 96
  • 198

While plotting a slow to evaluate function and trying to get some sense of progress, I noticed that Mathematica traverses the grid of points twice. Here's the reduced example:

points = {};
Dynamic[Show[Dynamic[
 Show[
   ListPlot[Take[points, Max[0, Length@points - 5]], 
   PlotRange -> All],
  ListPlot[Take[points ListPlot[
     Take[points, -Min[Length@points, 5]], PlotRange -> All, 
     PlotStyle -> Directive[PointSize[Large], Opacity[0.1], Red]]Red]
   ],
   AspectRatio -> Automatic]]Automatic
 ]
]
Monitor[Plot3D[Pause[0
Monitor[
  Plot3D[Pause[0.05]; 0, {a, -5, 5}, {b, -5, 5}, 
     PlotRange -> All, PlotPoints -> 10, MaxRecursion -> 0], 
 AppendTo[points, {a, b}];]];
]

If you watch the plot, you'll see that the red points move twice over the grid. If you inspect the plots variable after plotting, you'll see that not all the points are duplicates: some are offset from their originals by $\sim10^{-8}$.

Why does Plot3D do this, even though I asked for MaxRecursion ->0> 0? Is there any way to convince it to only scan the function once (not having to resort to ListPlot3D+ + Table)?

While plotting a slow to evaluate function and trying to get some sense of progress, I noticed that Mathematica traverses the grid of points twice. Here's the reduced example:

points = {};
Dynamic[Show[
  ListPlot[Take[points, Max[0, Length@points - 5]], 
   PlotRange -> All],
  ListPlot[Take[points, -Min[Length@points, 5]], PlotRange -> All, 
   PlotStyle -> Directive[PointSize[Large], Opacity[0.1], Red]],
  AspectRatio -> Automatic]]

Monitor[Plot3D[Pause[0.05]; 0, {a, -5, 5}, {b, -5, 5}, 
  PlotRange -> All, PlotPoints -> 10, MaxRecursion -> 0], 
 AppendTo[points, {a, b}];]

If you watch the plot, you'll see that the red points move twice over the grid. If you inspect the plots variable after plotting, you'll see that not all the points are duplicates: some are offset from their originals by $\sim10^{-8}$.

Why does Plot3D do this, even though I asked for MaxRecursion->0? Is there any way to convince it to only scan the function once (not having to resort to ListPlot3D+Table)?

While plotting a slow to evaluate function and trying to get some sense of progress, I noticed that Mathematica traverses the grid of points twice. Here's the reduced example:

points = {};
Dynamic[
 Show[
   ListPlot[Take[points, Max[0, Length@points - 5]], PlotRange -> All],
   ListPlot[
     Take[points, -Min[Length@points, 5]], PlotRange -> All, 
     PlotStyle -> Directive[PointSize[Large], Opacity[0.1], Red]
   ],
   AspectRatio -> Automatic
 ]
]

Monitor[
  Plot3D[Pause[0.05]; 0, {a, -5, 5}, {b, -5, 5}, 
     PlotRange -> All, PlotPoints -> 10, MaxRecursion -> 0], 
 AppendTo[points, {a, b}];
]

If you watch the plot, you'll see that the red points move twice over the grid. If you inspect the plots variable after plotting, you'll see that not all the points are duplicates: some are offset from their originals by $\sim10^{-8}$.

Why does Plot3D do this, even though I asked for MaxRecursion -> 0? Is there any way to convince it to only scan the function once (not having to resort to ListPlot3D + Table)?

edited tags
Link
MarcoB
MarcoB
  • 67.7k
  • 18
  • 96
  • 198
Tweeted twitter.com/StackMma/status/952394451854528512
Source Link
Ruslan
Ruslan
  • 7.2k
  • 1
  • 23
  • 53

Why does Plot3D appear to traverse the points twice?

While plotting a slow to evaluate function and trying to get some sense of progress, I noticed that Mathematica traverses the grid of points twice. Here's the reduced example:

points = {};
Dynamic[Show[
  ListPlot[Take[points, Max[0, Length@points - 5]], 
   PlotRange -> All],
  ListPlot[Take[points, -Min[Length@points, 5]], PlotRange -> All, 
   PlotStyle -> Directive[PointSize[Large], Opacity[0.1], Red]],
  AspectRatio -> Automatic]]

Monitor[Plot3D[Pause[0.05]; 0, {a, -5, 5}, {b, -5, 5}, 
  PlotRange -> All, PlotPoints -> 10, MaxRecursion -> 0], 
 AppendTo[points, {a, b}];]

If you watch the plot, you'll see that the red points move twice over the grid. If you inspect the plots variable after plotting, you'll see that not all the points are duplicates: some are offset from their originals by $\sim10^{-8}$.

Why does Plot3D do this, even though I asked for MaxRecursion->0? Is there any way to convince it to only scan the function once (not having to resort to ListPlot3D+Table)?