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 am seeking to revolve the are between the functions function $d(x) = Exp(x)$ and $e(x) = 4 - x^2$ around the line $x = 2$. I am using RevolutionPlot3D, so I thought it best to use the Y axis instead. Here is the modified code:

d[x_] := E^(x + 2)
e[x_] := 4 - (x + 2)^2

RevolutionPlot3D[{{d[x]}, {e[x]}}, {x, -1.96464 - 2, 1.05801 - 2}, 
                RevolutionAxis -> "Y"]

However, I find that the code does not produce the revolution that I am seeking. Is there a syntax error or an error in my methodology? Any push in the right direction would be quite helpful.

share|improve this question

marked as duplicate by Kuba, ciao, Sjoerd C. de Vries, m_goldberg, Michael E2 Mar 24 '14 at 3:37

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.

Possible duplicate Arbitrary axis approach by J. M. and strongly related almost the same case – Kuba Mar 23 '14 at 18:40
The region you want to rotate is ambiguous! Is the region you want rotated the "quasi-triangular" region bounded by the line $x = 1$ on its left, the curve $y = 4 - x^2$ above, and the curve $y = exp(x)$ below? – murray Mar 23 '14 at 21:20
Have you tried RevolutionAxis -> "Z"? – Michael E2 Mar 24 '14 at 3:42
up vote 2 down vote accepted

Is this what you are seeking ?

RevolutionPlot3D[{{x, d[x], 0}, {x, e[x], 0}}, 
 {x, -1.96464 - 2,  1.05801 - 2}, RevolutionAxis -> "Y"]

enter image description here

share|improve this answer

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