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
- References:
- Connecting pipes
- From: hocaosau@gmail.com
- Connecting pipes