# Making a 3D plot of xyxyx\,y that looks like the one I get from Maple [closed]

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

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

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]

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