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

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