I made a 3D plot of xyxyx\,y in Maple:

plot3d(x*y, grid = [10, 10], color = “Red”, style = pointline,axes = framed)

How can I make the same graphic in Mathematica? I tried the basic

Plot3D[x y, {x, -10, 10}, {y, -10, 10}]

but don’t how to modify it to get the look I want.

=================

=================

2 Answers

2

=================

Show[Plot3D[x y, {x, -10, 10}, {y, -10, 10}, BoundaryStyle -> Red,

MeshStyle -> Red, PlotStyle -> None, Mesh -> 8,

AxesLabel -> {x, y}],

ListPointPlot3D[

Table[{x, y, x y}, {x, -10, 10, 2 + 2/9}, {y, -10, 10, 2 + 2/9}],

PlotStyle -> {{Red, PointSize[0.015]}}], AspectRatio -> 1]

How about this?

ListPlot3D[Table[x y, {x,0, 10}, {y,0, 10}], Mesh -> 10,

MeshStyle -> Red, MeshShading -> {{None, None}, {None, None}},

BoxRatios -> 1, Boxed -> False, BoundaryStyle -> Red,

AxesLabel -> {“x”, “y”, “z”}]

Or with Plot3D

Plot3D[x y, {x, 0, 10}, {y, 0, 10}, Mesh -> 10, MeshStyle -> Red,

MeshShading -> {{None, None}, {None, None}}, BoxRatios -> 1,

Boxed -> False, BoundaryStyle -> Red, AxesLabel -> {“x”, “y”, “z”}]

You forgot BoundaryStyle -> Red.

– J. M.♦

Jun 29 at 13:46

Thanks @J.M. (and also AxesLabel)

– Sumit

Jun 29 at 14:02