Re: RE: Combining surfaces
- To: mathgroup at smc.vnet.net
- Subject: [mg72495] Re: [mg72491] RE: Combining surfaces
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Wed, 3 Jan 2007 00:55:01 -0500 (EST)
- Reply-to: hanlonr at cox.net
Needs["Graphics`"];
DisplayTogether[Table[
ParametricPlot3D[
{Cos[n*t],Sin[3t],Sin[t],Hue[1/2+n/10]},
{t,0,2Pi}],{n,1,5,2}],ImageSize->500];
ParametricPlot3D[Evaluate[Table[
{Cos[n*t],Sin[3t],Sin[t],Hue[1/2+n/10]},
{n,1,5,2}]],{t,0,2Pi},ImageSize->500];
Bob Hanlon
---- "Steve Adler (NowComp)" <steve.adler at nowcomp.com> 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
>
--
Bob Hanlon
hanlonr at cox.net