How can I make the coordinate axis to show the original point?

Questions
, , , ,
1

As shown, the graphs formed by the Wolfram Mathematica was set by default as a bounding box like this:

orbit1.png
orbit1.png876×229 2.92 KB

How can I make the axis to show the original point like this:

example.jpg
example.jpg370×494 54.1 KB

Thanks!

2

You can use the option AxesOrigin:

Plot3D[x^2 + y^2, Element[{x, y}, Disk[]],
 AxesOrigin -> {0, 0, 0}, Boxed -> False,
 AxesLabel -> Automatic]