Re: RE: Combining surfaces

*To*: mathgroup at smc.vnet.net*Subject*: [mg72503] Re: [mg72491] RE: Combining surfaces*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Wed, 3 Jan 2007 01:27:09 -0500 (EST)*Reply-to*: hanlonr at cox.net

Either of the methods I sent should produce a single output. I do not know how you are using Show since you have not presented any code. Bob Hanlon ---- "Steve Adler (NowComp)" <steve.adler at nowcomp.com> wrote: > Isn't DisplayTogether the same as Show, which I am already using? > Is it possible to combine all the graphics objects into one object > first? > Steve > > > -----Original Message----- > From: Bob Hanlon [mailto:hanlonr at cox.net] > Sent: Tuesday, January 02, 2007 4:13 AM > To: Steve Adler (NowComp); mathgroup at smc.vnet.net > Subject: [SPAM] - Re: [mg72491] RE: Combining surfaces - Bayesian Filter > detected spam > > 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