Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: ListPointPlot3D - how to join points

  • To: mathgroup at smc.vnet.net
  • Subject: [mg105364] Re: [mg105338] ListPointPlot3D - how to join points
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Sun, 29 Nov 2009 05:12:23 -0500 (EST)
  • Reply-to: hanlonr at cox.net

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 <Serych at panska.cz> wrote: 

=============
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



  • Prev by Date: Re: ListPointPlot3D - how to join points
  • Next by Date: Re: ListPointPlot3D - how to join points
  • Previous by thread: Re: ListPointPlot3D - how to join points
  • Next by thread: Re: ListPointPlot3D - how to join points