Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

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

I'm trying to graph the revolution of the area between two functions about an axis, but I'm new to Mathematica, and not sure how to proceed. My area is defined by

Plot[{x^2,x},{x,-5,5}, Filling -> {1->{2}}]

Just to clarify, the figure I'm looking is 3-dimensional, and could loosely be called a toroid.

How could I model this in 3D?

share|improve this question
closely related – Kuba Jan 13 '14 at 16:13
@Kuba somewhat related; I'm just trying to graph the toroid (and not the actual curves), not calculate the area. – Jules Jan 13 '14 at 16:17
Show[Plot3D[{(x x + y y), -Sqrt[(x x + y y)]}, {x, -5, 5}, {y, -5, 5},
            RegionFunction -> (#1^2 + #2^2 < 25 &)], 
     RevolutionPlot3D[{5, t}, {t, -5, 25}, Mesh -> None, 
                      PlotStyle -> Directive[Orange, Opacity[.5]]]]

Mathematica graphics

share|improve this answer

Your Answer


By posting your answer, you agree to the privacy policy and terms of service.

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