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

Re: RE: Combining surfaces

• To: mathgroup at smc.vnet.net
• Subject: [mg72502] Re: [mg72491] RE: Combining surfaces
• From: "Steve Adler \(NowComp\)" <steve.adler at nowcomp.com>
• Date: Wed, 3 Jan 2007 01:23:08 -0500 (EST)

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: [mg72502] [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
> 

--

Bob Hanlon
hanlonr at cox.net