Mathematica 9 is now available
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: [mg91349] Re: [mg91321] Connecting pipes
  • From: Selwyn Hollis <sh2.7183 at earthlink.net>
  • Date: Sun, 17 Aug 2008 06:39:22 -0400 (EDT)
  • References: <200808151054.GAA11099@smc.vnet.net>

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



  • Prev by Date: Re: Exporting ContourPlot data into text file to plot somewhere else..
  • Next by Date: Re: debugging code that contains compile
  • Previous by thread: Connecting pipes
  • Next by thread: Re: Connecting pipes