Re: RevolutionPlot3D: Specifying the axis of rotation

*To*: mathgroup at smc.vnet.net*Subject*: [mg105320] Re: [mg105306] RevolutionPlot3D: Specifying the axis of rotation*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Sat, 28 Nov 2009 01:04:51 -0500 (EST)*Reply-to*: hanlonr at cox.net

f[x_] := x^2 RevolutionPlot3D[{f[x]}, {x, 0, 2}, AxesLabel -> {x, z, y}] RevolutionPlot3D[{f[x], x}, {x, 0, 2}, AxesLabel -> {y, z, x}, BoxRatios -> {1, 1, .5}] f2[X_] := Sin[x] RevolutionPlot3D[{f2[x]}, {x, 0, 2 Pi}, AxesLabel -> {x, z, y}] RevolutionPlot3D[{f2[x], x}, {x, 0, 2 Pi}, AxesLabel -> {y, z, x}, BoxRatios -> {1, 1, Pi}] Bob Hanlon ---- davef <davidfrick2003 at yahoo.com> wrote: ============= When I plot y=x^2 as... f[x_] := x^2 Plot[f[x], {x, 0, 2}] RevolutionPlot3D[{f[x]}, {x, 0, 2}, AxesLabel -> {x, z, y}] ... I get the function rotated about the y-axis (i.e., a parabola). But what If I want to rotate the function about the x-axis so I get a funnel-shaped graphic? Is there an easy way to do this? I can plot the function in terms of y (x=y^1/2) and get the funnel but it would easier to just specify the axis of rotation. Can this be done?