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

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

This site is currently not accepting new answers.

Not the answer you're looking for? Browse other questions tagged .