Re: Graphics3D. How to join random points with a single line
- To: mathgroup at smc.vnet.net
- Subject: [mg113087] Re: Graphics3D. How to join random points with a single line
- From: Patrick Scheibe <pscheibe at trm.uni-leipzig.de>
- Date: Tue, 12 Oct 2010 13:50:28 -0400 (EDT)
Usually I never do someones homework!!
liste[n_] :== RandomReal[{0, 1}, {n, 3}];
points[n_] :== With[{pts == liste[n]}, Graphics3D[{PointSize[0.03], Table[
{Hue[i/n], Point[pts[[i]]]}, {i, 1, n}]},
PlotRange -> {{0, 1}, {0, 1}, {0, 1}}]
];
ligne[n_] :==
With[{pts == liste[n]}, Graphics3D[{Line[pts], PointSize[0.03], Table[
{Hue[i/n], Point[pts[[i]]]}, {i, 1, n}]},
PlotRange -> {{0, 1}, {0, 1}, {0, 1}}]
]
Cheers
Patrick
On Oct 12, 2010, at 6:06 PM, Deepsstroat Blade wrote:
> Hello,
> i tried. but it only works if i am generation only one random point for H=
ue and that my list of point is know.
> The liste of points is random as week for thte coordonate and for the num=
ber of points.
> And i need all the points genereted to be of a different color. Then i wa=
nt i line to link them.
> I have enclose a pdf so you can see what i need to do. It s in french but=
you have the graphics which will hekp you have an idea
>
>
> lnci
>
>
>
>
> > Subject: Re: [mg113066] Graphics3D. How to join random points with a si=
ngle line
> > From: pscheibe at trm.uni-leipzig.de
> > To: deepstroat at hotmail.com
> > CC: mathgroup at smc.vnet.net
> > Date: Tue, 12 Oct 2010 11:24:56 +0200
> >
> > Hi,
> >
> > create the list of random points and then use it like that:
> >
> > pts == RandomReal[{-1, 1}, {10, 3}];
> > Graphics3D[
> > {PointSize[0.05], {Hue[RandomReal[]], Point[#]} & /@ pts, Line[pts]}]
> >
> > > I have a work. I need to have n points with different color. ANd then=
i need to link them with the same line.
> > > NB: i don t even know if my way is ok.
> > > thx
> >
> > I think I don't completely get what you want if it's something differen=
t
> > from what I showed above. Can you explain it a bit better?
> >
> > Cheers
> > Patrick
> >