5
$\begingroup$

I have the following Mathematica code:

ParametricPlot3D[{{0 + 0*t, 10 - 1*t, 9 - 1*t}, {7 - t, 7 - t, 
6 - t}, {0, 0, -1}}, {t, 12, -20}]

The last "parametric curve" $(0, 0, -1)$ is a point I want to plot as a visible ball or disc or whatever. At the moment I can't see it.

How can I plot visible points in addition to parametric curves? I don't actually think I can state the 3D point and expect it to appear as I currently have it...

Currently the code displays the following:

Mathematica output

UPDATE

A temporary fix for now is the following code:

ParametricPlot3D[{{0 + 0*t, 10 - 1*t, 9 - 1*t}, {7 - t, 7 - t, 
6 - t}, {0 + Sin[t], 0 + Cos[t], -1}}, {t, 12, -20}]

It would be nice to plot a ball though...

Mathematica output

$\endgroup$
8
$\begingroup$
Show[
 ParametricPlot3D[{{0 + 0*t, 10 - 1*t, 9 - 1*t}, {7 - t, 7 - t, 6 - t}}, {t, 12, -20}],
 Graphics3D[{PointSize[0.04], Red, Point[{0, 0, -1}]}]
]

Mathematica graphics

$\endgroup$
  • 3
    $\begingroup$ Also: Graphics3D[{Red, Sphere[{0, 0, -1}]}] $\endgroup$ – Mr.Wizard Jun 1 '15 at 15:56
  • $\begingroup$ @Mr.Wizard I like that one :-) $\endgroup$ – Pixel Jun 1 '15 at 17:11

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.