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