MathGroup Archive 2007

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

Search the Archive

Re: RE: Combining surfaces


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



  • Prev by Date: RE: Combining surfaces
  • Next by Date: FindRoot[ NIntegrate[...] ...] works but generates "NIntegrate::nlim" limit error message!?
  • Previous by thread: RE: Combining surfaces
  • Next by thread: Re: Combining surfaces