MathGroup Archive 1997

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

Search the Archive

Re: join


Quick solution;

f[x_]= 4  E^-x + Sin[x];
surface=ParametricPlot3D[{x,f[x] Cos[t],f[x]Sin[t]},
		{x,0,Pi/2},{t,0,2 Pi},Boxed->False,PlotRange->All];

another view

Show[surface, ViewPoint->{2.7,1.6,1.2}]

This can be embelished a lot.
See Calculus&Mathematica: Integrals page 124.

D Piele


On Thu, 6 Mar 1997, RyanB wrote:

> To: mathgroup at smc.vnet.net
> 
> I have a question for someone. 
> How do I take a defined 2D area and revolve it around an axis or a line and
> have Mathematica draw a good picture of it?  In my AP Calulus class we are
> figuring the volume of these types of problems.  Thanks!			Ryan Birkenholz
> --
> Check out StaticEz Emporium >>http://members.tripod.com/~Hypes_World/ryan.
> html
> 
> 
> 


  • Prev by Date: Communication
  • Next by Date: Re: Creating an Attribute AntiSymmetric ?!?!?!
  • Previous by thread: Communication
  • Next by thread: Re: join