Group Abstract Group Abstract

Message Boards Message Boards

0
|
5.5K Views
|
4 Replies
|
3 Total Likes
View groups...
Share
Share this post:

Undesirable surfaces being generated while 3D Plotting using ListPlot3D

Joseph Joseph
Posted 6 years ago

I solved a set of cubic polynomials and got a set of discrete points for plotting a 3D surface. Using ListPlot3D, I got the surface; but somehow, the plot has extra and undesirable surfaces towards the end of the 'time' variable domain. I checked out the code, and the points generated; but could not find any reason as to why these extra surfaces were getting generated. I tried limiting the time domain, but the surface still shows up with the same problems.

I then separately plotted 2D graphs versus the 'x' variable domain and another one versus the 't' variable domain. The variation of the dependent variable 'Gamma33' is almost a constant with time. This should obviously mean that the 3D surface should only be an extension of the first plot ( Gamma33 vs x) along the time domain. But what I get as the surface shows a difference, which I cannot understand.

Is it a problem with my code or the way I have complied the points generated? I've been stuck with this problem for a few days now; so it would be of great help if you guys could help me correct my errors. I've attached the notebook below.

P.S.: I'm just getting started on Mathematica, so please do forgive any of my mistakes you come across. It would be of great help if you'd come out to correct me.

Cheers..!

Attachment

Attachments:
Gamma33.PNG
Gamma33.nb
POSTED BY: Joseph Joseph
4 Replies
Sort By:

Well, yes: There seems to be something seriously wrong with ListPlot3D!

data0[\[FormalY]_] = Table[{x, \[FormalY], Sin[x]}, {x, 0, 6, .1}];
Manipulate[
 With[{data = Flatten[Table[data0[y], {y, 0, 10 10^v, 10^v}], 1]}, 
  Show[ListPlot3D[data, ImageSize -> Large], 
   ListPointPlot3D[data]]], {v, 1, 5}]

enter image description here

At least for:

$Version
(* Out:  "12.0.0 for Linux x86 (64-bit) (April 7, 2019)"  *)

Given that ListPlot3D is a rather "popular" function, this should be fixed soon ...

Addendum:

Case reported with the identification [CASE:4362592]

POSTED BY: Henrik Schachner

I have reported a similar problem a couple of months ago. Until today the issue still exists.

https://community.wolfram.com/groups/-/m/t/1786870
POSTED BY: Jürgen Kanz
Joseph Joseph
Joseph Joseph
Posted 6 years ago

Hi Henrik,

Thank you so much. Recalling the axes has kind of solved the problem for now; with only the time values being reduced to 1/10th their values. I had 5 sets of similar files with data points and graphs, and all of them had shown the same problem. They seem to look fine now; thanks to you..! I'm still pondering as to why this problem arose. Anyone in the forum could maybe give this a try and help us figure it out.

Regards,

Joseph
POSTED BY: Joseph Joseph

Hi Joseph,

You are right: In fact this seems to be a strange effect! Your data points data6 look like this:

ListPointPlot3D[data6]

enter image description here

There is actually no "undisirable surface"! But ListPlot3D in its simplest form is doing this:

ListPlot3D[data6, InterpolationOrder -> 0]

enter image description here

Even a simple rescaling of one axis helps:

ListPlot3D[{#1, #2/10, #3} & @@@ data6]

enter image description here

Maybe someone from the community can comment on this ...

Regards -- Henrik

Edit: To make things easier for anyone who wants to try I have the respective data attached.

data6 = << "data6.txt"
Attachments:
data6.txt
POSTED BY: Henrik Schachner
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard