MathGroup Archive 2007

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

Search the Archive

Re: Combining surfaces


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