This code rotates the curve defined by f[x] about the y-axis.
In[]:=
f[x_]:=x^2
In[]:=
Plot[f[x],{x,0,1}]
Out[]=
In[]:=
fpp=ParametricPlot3D[{rCos[ang],rSin[ang],f[r]},{r,0,3},{ang,0,2Pi}]
Out[]=
This code rotates the curve defined by f[x] about the x-axis.
In[]:=
ParametricPlot3D[{r,f[r]Cos[ang],f[r]Sin[ang]},{r,0,1},{ang,0,2π}]
Out[]=
Rotating about y=-2 can be done fairly easily.
In[]:=
ParametricPlot3D[{r,(f[r]+2)Cos[ang],(f[r]+2)Sin[ang]},{r,0,1},{ang,0,2π}]
Out[]=
Rotating about x=3 takes a little skill, but it is possible.
In[]:=
fpp=ParametricPlot3D[{rCos[ang],rSin[ang],f[r+3]},{r,-3,-2},{ang,0,2Pi}]
Out[]=
