Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

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 at 16:13
    
@Kuba somewhat related; I'm just trying to graph the toroid (and not the actual curves), not calculate the area. –  Jules Mazur Jan 13 at 16:17
add comment

1 Answer 1

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
add comment

Your Answer

 
discard

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.