1

I plot a table in Mathematica using ListPlot3D. The table contains very simple data but the resulting plot is very weird at least for me. I expect that the plot should look like a rectangle in 3D but there is a jump in the plot. Could you please help me to figure out what is the problem? Here is the information about the table and the plot picture.

Let

wpb1New = Table[{1/10000 + i/100000}, {i, 0, 90}];

and

wb1New = Table[{1 + i/100}, {i, 0, 200}];

Then the ListPlot3D of the following table looks like

TItest = Flatten[Table[{wb1New[[i]], wpb1New[[j]], wpb1New[[j]]}, {i, 1, 201}, {j, 1, 91}], 1];

enter image description here

user64494
  • 26,149
  • 4
  • 27
  • 56
HadamardN2
  • 109
  • 4
  • ListPlot3D[TItest] gives an error on Mathematica v12.2 – Ulrich Neumann Oct 18 '23 at 15:31
  • 2
    To start, re-define wpb1New and wb1New without braces in the Table: that will give you a more reasonable list structure for TItest. That does not solve the problem you mention though. – MarcoB Oct 18 '23 at 16:19
  • 1
    This is caused by a bug (wierd clippings occur when the axes have very different scales). Try this: (1) Remove braces in the first argument of Table in definitions of wpb1New and wb1New as MarcoB suggested in comments; (2) Use undoScaling[TItest]@ListPlot3D[reScale@TItest] where the functions reScale and undoScaling are from this answer . – kglr Oct 18 '23 at 19:26
  • The code should be wpb1New = Table[1/10000 + i/100000, {i, 0, 90}]; wb1New = Table[1 + i/100, {i, 0, 200}]; – cvgmt Oct 18 '23 at 22:39
  • @MarcoB Thank you for your comment! – HadamardN2 Oct 18 '23 at 23:36
  • @kglr Thanks a lot! That fixed the problem. – HadamardN2 Oct 18 '23 at 23:37
  • @cvgmt Thank you for your comment! – HadamardN2 Oct 18 '23 at 23:37

0 Answers0