How do I put a data point in a 3D graph? I need it in (0,0,1)

Question

This is what I have now

Clear[x, y, f]; 
f[x_, y_] = E^(-x^2+y);

surface = Plot3D[f[x, y], {x, -2, 2}, {y, -2, 2}]; 
threedims = Axes3D[3];
datapoint = Graphics[{Red, PointSize[0.03], Point[{0,0,1}]}];

Show[threedims, datapoint,surface, ViewPoint -> CMView, PlotRange -> All, Boxed -> False]

http://mathematica.stackexchange.com/questions/41439/add-point-to-plot3d — IPoiler, Sep 14 '15 at 00:43
I don't know the command Axes3D; I am also unfamiliar with the CMView option value for ViewPoint. Are you using some special plotting package? — MarcoB, Sep 14 '15 at 00:53

anderstood · Answer 1 · 2015-09-14T02:03:44.503

3

Replace Graphics with Graphics3D.

Also, note that you might prefer the result using Sphere instead of Point.

datapoint = Graphics3D[{Red, Sphere[{0, 0, 1}, 0.1]}]

edited Sep 14 '15 at 02:03

answered Sep 14 '15 at 00:48

anderstood

14,301
2
29
80

I suppose you meant Point rather than Dot. – MarcoB Sep 14 '15 at 01:11
@MarcoB right, edited. – anderstood Sep 14 '15 at 01:23

m_goldberg · Answer 2 · 2015-11-22T16:06:52.777

This is an extended comment on anderstood's answer, which basically correct. However, some changes in details are in order.

Better to define your function with SetDelayed ( := ).

f[x_, y_] := E^(-x^2 + y)

The plot theme "NoAxes" is the easy way to get rid of both axes and bounding box. Also, making sure surface is not clipped.

surface = 
 Plot3D[f[x, y], {x, -2, 2}, {y, -2, 2},
   PlotRange -> All,
   PlotTheme -> {"NoAxes", "ZMesh"}];

The directive PointSize has no effect on spheres and so is not needed.

datapoint = Graphics3D[{Red, Sphere[{0, 0, 1}, .1]}];

Show[surface, datapoint, BoxRatios -> {1, 1, 1}]

The above code produces

How do I put a data point in a 3D graph? I need it in (0,0,1)

2 Answers2

Linked