ListPointPlot3D - how to join points

[Serych Jakub]

Dear community,
I need to draw 3D curve from the points in the table, something what in 2D
is very simply realizable by ListPlot with use of the Joined and InterpolationOrder options. But ListPlot3D function is drawing curved plains to me and I cannot join the points in ListPointPlot3D function.
Does anybody know, how to do it? Here are some simple test data to let you see what I'm talking about:

my2Dtable = {{0, 0}, {1, 1}, {2, 1}, {3, 2}, {4, 5}, {5, 8}, {6, 5}, {7, 4}};
ListPlot[my2Dtable, Joined -> True, InterpolationOrder -> 2]
my3Dtable = {{0, 0, 0}, {1, 1, 1}, {2, 1, 2}, {3, 4, 3}, {5, 6, 4}, {3, 4, 5}, {2, 1, 6}, {7, 7, 7}};
ListPointPlot3D[my3Dtable]
ListPlot3D[my3Dtable]

Thanks in advance for any help

Jakub

[DC]

Would the following help ?

Graphics3D[Line[my3Dtable]]

-Francesco

[SHui...@giganews.com]

This should do the trick:
Graphics3D[Line[my3Dtable], Axes -> True, BoxRatios -> Automatic]

Just making some graphic primitives, and do it yourself, it is really easy as you can see.

[SHui...@giganews.com]

In addition you can use Splines to get a `smoother' line. You could also use an interpolation function (with some interplation order) for your data, and then use parametricplot3d to plot the data...

[David Park]

You could try something like:

my3Dtable = {{0, 0, 0}, {1, 1, 1}, {2, 1, 2}, {3, 4, 3}, {5, 6,
4}, {3, 4, 5}, {2, 1, 6}, {7, 7, 7}};

Graphics3D[
{Line[my3Dtable],
AbsolutePointSize[4],
Point /@ my3Dtable},
Axes -> True]

Or in Version 7:

Graphics3D[
{BSplineCurve[my3Dtable],
AbsolutePointSize[4],
Point /@ my3Dtable},
Axes -> True]

But I'm not certain how one obtains a smooth interpolated curve that goes
through all the points.

David Park
djm...@comcast.net
http://home.comcast.net/~djmpark/

[Bob Hanlon]

my3Dtable = {{0, 0, 0}, {1, 1, 1},
{2, 1, 2}, {3, 4, 3}, {5, 6, 4},
{3, 4, 5}, {2, 1, 6}, {7, 7, 7}};

Graphics3D[{Blue, Line[my3Dtable],
Red, AbsolutePointSize[4], Point[my3Dtable]}]

Table[Graphics3D[{Blue,
f[my3Dtable, SplineDegree -> d],
Red, AbsolutePointSize[4], Point[my3Dtable]}],
{f, {BSplineCurve, BezierCurve}},
{d, Length[my3Dtable]}] // Grid

Bob Hanlon

---- Serych Jakub <Ser...@panska.cz> wrote:

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