Mathematica Stack Exchange is a question and answer site for users of Mathematica. Join them; it only takes a minute:

Sign up
Here's how it works:
  1. Anybody can ask a question
  2. Anybody can answer
  3. The best answers are voted up and rise to the top

This question already has an answer here:

I'm learning how use this program. And I have problem with how graph the solid of revolution.Here i write one exercise.
y=2-1/2x, y=0,x=1,x=2; about the x-axis. This is the graph also the volume enter image description here

x=1 and x=2 limited the size of the graph and I don't know how do that in Wolfram Mathematica. The steps i think are: RevolutionPlot3d [2-1/2x,{x,0,4},{y,0,4}] ....

share|improve this question

marked as duplicate by m_goldberg, Michael E2, Öskå, ubpdqn, bobthechemist Aug 23 '14 at 12:59

This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.

RevolutionPlot3D[2 - 1/2 x, {x, 1, 2}] – Dr. belisarius Aug 23 '14 at 1:51
up vote 5 down vote accepted

Usage is like this.

RevolutionPlot3D[2 - x/2, {x, 1, 2},
 RevolutionAxis -> "X", Boxed -> False,
 PlotRange -> {{0, 3}, All, All},
 AxesOrigin -> {0, 0, 0},
 Mesh -> {5, 0},
 PlotStyle -> Opacity[0.7]


And you can use Manipulate.

Manipulate[RevolutionPlot3D[2 - x/2, {x, a, b},
  RevolutionAxis -> "X", Boxed -> False,
  PlotRange -> {{0, 5}, All, All},
  AxesOrigin -> {0, 0, 0},
  Mesh -> {5, 0},
  PlotStyle -> Opacity[0.7]
  ], {{a, 1}, 0, 2}, {{b, a + 1}, a + 0.01, 4}]


share|improve this answer

Not the answer you're looking for? Browse other questions tagged or ask your own question.