1
$\begingroup$

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

$\endgroup$
7
  • $\begingroup$ ListPlot3D[TItest] gives an error on Mathematica v12.2 $\endgroup$ Oct 18, 2023 at 15:31
  • 2
    $\begingroup$ 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. $\endgroup$
    – MarcoB
    Oct 18, 2023 at 16:19
  • 1
    $\begingroup$ 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 . $\endgroup$
    – kglr
    Oct 18, 2023 at 19:26
  • $\begingroup$ The code should be wpb1New = Table[1/10000 + i/100000, {i, 0, 90}]; wb1New = Table[1 + i/100, {i, 0, 200}]; $\endgroup$
    – cvgmt
    Oct 18, 2023 at 22:39
  • $\begingroup$ @MarcoB Thank you for your comment! $\endgroup$
    – HadamardN2
    Oct 18, 2023 at 23:36

0