Re: Connecting pipes

• To: mathgroup at smc.vnet.net
• Subject: [mg91392] Re: Connecting pipes
• From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
• Date: Wed, 20 Aug 2008 04:02:51 -0400 (EDT)
• Organization: The Open University, Milton Keynes, UK
• References: <200808151054.GAA11099@smc.vnet.net> <g88v4l\$gst\$1@smc.vnet.net> <g8e9v8\$4b5\$1@smc.vnet.net>

```hocaosau at gmail.com wrote:

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

The graphics directive *Cylinder[]* has been introduced with version 6.0.

http://reference.wolfram.com/mathematica/ref/Cylinder.html

Regards,
-- Jean-Marc

```

• Prev by Date: Re: Fourier-Motzkin elimination
• Next by Date: Re: NDSolve[] with nested If[] and Piecewise[] usage:
• Previous by thread: Re: Connecting pipes
• Next by thread: Re: Connecting pipes