Re: Connecting pipes
- To: mathgroup at smc.vnet.net
- Subject: [mg91379] Re: Connecting pipes
- From: hocaosau at gmail.com
- Date: Tue, 19 Aug 2008 07:14:50 -0400 (EDT)
- References: <200808151054.GAA11099@smc.vnet.net> <g88v4l$gst$1@smc.vnet.net>
On Aug 17, 5:39 am, Selwyn Hollis <sh2.7... at earthlink.net> wrote:
> Place a sphere at the connection point? e.g.,
>
> Graphics3D[
> {EdgeForm[], Cylinder[{{0, 0, 0}, {0, 0, 1}}, .1],
> Cylinder[{{0, 0, 0}, {1, 0, 0}}, .1],
> Cylinder[{{1, 0, 0}, {1, 0, 1}}, .1],
> Cylinder[{{1, 0, 1}, {0, 0, 1}}, .1],
> Sphere[{0, 0, 0}, .1],
> Sphere[{1, 0, 0}, .1],
> Sphere[{0, 0, 1}, .1],
> Sphere[{1, 0, 1}, .1]
> }]
>
> - Selwyn Hollis
>
> On Aug 15, 2008, at 6:54 AM, hocao... at gmail.com wrote:
>
> > Hi,
>
> > I'd like to draw a network of connecting of pipes (like that 3D pipe
> > screen saver). Supposed I have the coordinates stored in Coord, and
> > I'd like to connect, say, Coord[[4]] to Coord[[2]], etc.
>
> > I figure I could use the cylinder function (damned Euler angle!) to
> > draw a single pipe, but haven't quite figured out how to connect them
> > together. Any suggestion?
>
> > Thanks
>
> > Caosau
> > PS. Bonus if I can do it with cartesian coords.
Many thanks to Jens and Selwyn,
I'll take a look at MathGl3D and the ref.
Selwyn,
Is this Cylinder function from a newer version of Mathematica? I use
5.2 and it does not seem to accept the syntax.
Regards,
Caosau
- References:
- Connecting pipes
- From: hocaosau@gmail.com
- Connecting pipes