Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.soft-sys.math.mathematica > #3260 > unrolled thread
| Started by | tolga <tlgclk@gmail.com> |
|---|---|
| First post | 2011-06-23 11:31 +0000 |
| Last post | 2011-06-25 09:32 +0000 |
| Articles | 3 — 2 participants |
Back to article view | Back to comp.soft-sys.math.mathematica
RevolutionPlot3D Help tolga <tlgclk@gmail.com> - 2011-06-23 11:31 +0000
Re: RevolutionPlot3D Help Helen Read <readhpr@gmail.com> - 2011-06-24 11:45 +0000
Re: RevolutionPlot3D Help tolga <tlgclk@gmail.com> - 2011-06-25 09:32 +0000
| From | tolga <tlgclk@gmail.com> |
|---|---|
| Date | 2011-06-23 11:31 +0000 |
| Subject | RevolutionPlot3D Help |
| Message-ID | <itv865$pdh$1@smc.vnet.net> |
How can I do revolve a region between two curves around the x axis with "RevolutionPlot3D" command?
[toc] | [next] | [standalone]
| From | Helen Read <readhpr@gmail.com> |
|---|---|
| Date | 2011-06-24 11:45 +0000 |
| Message-ID | <iu1tdj$9ft$1@smc.vnet.net> |
| In reply to | #3260 |
On 6/23/2011 7:31 AM, tolga wrote:
> How can I do revolve a region between two curves around the x axis
> with "RevolutionPlot3D" command?
It would be helpful if you post a specific example, so that people don't
have to guess what you are trying to do.
That said, I will make up an example for you. Suppose you wish to
revolve the region bounded by y=x^2, y=8-x^2, x=-2, x=2 about the x-axis.
To begin, let's define a function for each curve.
f[x_] := x^2
g[x_]:=8-x^2
You can easily revolve each curve separately, then combine with Show.
plot1=RevolutionPlot3D[f[x], {x, -2, 2}, RevolutionAxis -> x];
plot2 = RevolutionPlot3D[g[x], {x, -2, 2}, RevolutionAxis -> x];
Show[{plot1, plot2}, PlotRange -> Automatic]
You can also revolve both curves together at the same time, like this.
RevolutionPlot3D[{{f[x]}, {g[x]}}, {x, -2, 2}, RevolutionAxis -> x]
Note the extra set of braces { } around each function. If you omit the
extra braces, you are in effect telling Mathematica to revolve the
parametric curve {f[x],g[x]} instead of two separate functions f[x] and
g[x]. Try it:
RevolutionPlot3D[{f[x], g[x]}, {x, -2, 2}, RevolutionAxis -> x]
Now plot the parametric curve {f[x],g[x]} to see what is being revolved.
ParametricPlot[{f[x], g[x]}, {x, -2, 2}, AxesOrigin -> {0, 0}]
--
Helen Read
University of Vermont
[toc] | [prev] | [next] | [standalone]
| From | tolga <tlgclk@gmail.com> |
|---|---|
| Date | 2011-06-25 09:32 +0000 |
| Message-ID | <iu49v6$jpk$1@smc.vnet.net> |
| In reply to | #3274 |
Heike and Helen, thanks for your answer... I have done a few examples and your solution suggestions seems working.
[toc] | [prev] | [standalone]
Back to top | Article view | comp.soft-sys.math.mathematica
csiph-web