Add Point to Plot3D

Question

I'd like to simply add a nice thick point in $(0,0,0)$ to Plot3D[(y^2/x), {x, -3, 3}, {y, -3, 3}].

The solutions I came across to add anything to Plot3D, mostly involved MeshFunctions. However I don't see how I could manipulate the mesh to give the desired result.

Any help would be appreciated.

Use Show and add Graphics3D[{PointSize@.5, Point[{0,0,0}]}]. And welcome to Mathematica.SE :) — Kuba, Jan 30 '14 at 21:04

score 15 · Accepted Answer · edited Jan 31 '14 at 00:01

15

Show[
  Plot3D[(y^2/x), {x, -3, 3}, {y, -3, 3}, 
    PlotStyle -> Opacity[0.3]], 
  Graphics3D[{Red, PointSize[0.1], Point[{0, 0, 0}]}]]

edited Jan 31 '14 at 00:01

m_goldberg

107,779
16
103
257

answered Jan 30 '14 at 22:33

Zviovich

9,308
1
30
52

score 3 · Answer 2 · edited Apr 13 '17 at 12:56

This may be an overkill but it is useful (no joke!) cause when you export points and lines they tend to look odd the thicker they are. You can fake a red point by re-difining your ColorFunction like so:

With[{colf = Function[{x, y, z},
    If[Norm@{x, y} < .15,
     Red,
     ColorData["BlueGreenYellow"][z]]]},
(* Define a color function that is red within some radius (here 0.15) and something else outside*)
 Plot3D[(y^2/x), {x, -3, 3}, {y, -3, 3},  
  ColorFunction -> colf, 
  ColorFunctionScaling -> False,
   PlotRange -> All, 
  PlotPoints -> 80]
 ]

and the result will not suffer from the problems that a thick point would have:

re point

Add Point to Plot3D

2 Answers2

Linked

Related