Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

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



  • 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