Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

Re: PlotMarkers Broken

  • To: mathgroup at smc.vnet.net
  • Subject: [mg84536] Re: PlotMarkers Broken
  • From: Helen Read <hpr at together.net>
  • Date: Thu, 3 Jan 2008 05:32:06 -0500 (EST)
  • References: <200801020617.BAA10488@smc.vnet.net> <flfu5h$jpe$1@smc.vnet.net>
  • Reply-to: HPR <read at math.uvm.edu>

Jaccard Florian wrote:
> 
> I'm afraid Wolfram has also completely forgotten useful things for
students. For example SurfaceOfRevolution.
> 
> If you want to rotate around the x-axis, with 5.2, it was very easy :
> 
> 
> <<Graphics` 
> SurfaceOfRevolution[Cos[x],{x,0,2*Pi]},RevolutionAxis->{1,0,0}];
> 
> But with 6.0, you have to know much more maths... so the average
> student may not be able to obtain the surface!
> 
> ParametricPlot3D[{x,Sin[x]Cos[\[Theta]],Sin[x]Sin[\[Theta]]},{x,0,2\[Pi]},{\[Theta],0,2\[Pi]},AxesLabel->{x,y,z}]

In 6.0 you can use the built-in function RevolutionPlot3D.

To revolve around the y-axis:

RevolutionPlot3D[{x, Cos[x]}, {x, 0, 2 \[Pi]}]

It's a little clunkier to revolve around the x-axis, since inexplicably 
RevolutionPlot3D does not have an option for setting the revolution 
axis, which I'm hoping will soon be fixed in a future release. However, 
in the meantime you can revolve around the x-axis by interchanging x and 
y and setting the ViewVertical.


RevolutionPlot3D[{Cos[x], x}, {x, 0, 2 \[Pi]},
  ViewVertical -> {-1, 0, 0}]

My calculus students have no problem with this, and it's much better to 
have a built-in function instead of having to deal with loading a 
package (something they often forgot to do in past versions of Mathematica).

-- 
Helen Read
University of Vermont


  • Prev by Date: Re: PlotMarkers Broken
  • Next by Date: Re: Re: Timing and Pi
  • Previous by thread: RE: PlotMarkers Broken
  • Next by thread: Re: PlotMarkers Broken