MathGroup Archive 2007

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

Search the Archive

Re: Combining surfaces

  • To: mathgroup at smc.vnet.net
  • Subject: [mg72501] Re: Combining surfaces
  • From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
  • Date: Wed, 3 Jan 2007 01:19:07 -0500 (EST)
  • Organization: The Open University, Milton Keynes, UK
  • References: <end7gv$idc$1@smc.vnet.net>

Steve Adler (NowComp) wrote:
> I have created 13 unique individual 3-D surfaces in Mathematica 5.0
> using the ParametricPlot3D function.  Is there a way to "add" or combine
> all these surfaces into a single Graphics3D object?  I want to do this
> in order to export the object to a .DXF or .STL file as a single file
> instead of as 13 separate files.
> Steve
> 

g1 = ParametricPlot3D[{Cos[5*t], Sin[3*t], Sin[t]}, {t, 0, 2*Pi}];
g2 = ParametricPlot3D[{Sin[5*t], Sin[3*t], Sin[t]}, {t, 0, 2*Pi}];
Needs["Graphics`Graphics`"]
DisplayTogether[g1, g2]

Jean-Marc


  • Prev by Date: Re: programming problem about elements taken
  • Next by Date: Re: FindRoot[ NIntegrate[...] ...] works but generates "NIntegrate::nlim"
  • Previous by thread: Re: RE: Combining surfaces
  • Next by thread: Re: RE: Combining surfaces