Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

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


  • Prev by Date: Re: troubling simple integral
  • Next by Date: NDSolve
  • Previous by thread: Re: Connecting pipes
  • Next by thread: Re: Connecting pipes