Re: a question about intersection curve.
- To: mathgroup at smc.vnet.net
- Subject: [mg59852] Re: a question about intersection curve.
- From: Paul Abbott <paul at physics.uwa.edu.au>
- Date: Wed, 24 Aug 2005 06:30:19 -0400 (EDT)
- Organization: The University of Western Australia
- References: <deeort$3tv$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
In article <deeort$3tv$1 at smc.vnet.net>,
Zhou Jiang <jiangzhou_yz at yahoo.com> wrote:
> Hi, Dear Group,
> I want to plot the intersection curve between two semispheres. The two
> semispheres are descriped by the following equations,
>
> x^2+y^2+(z+1)^2=1
> and
> (x+1)^2+y^2+z^2=1
>
> I am only interested in the halves that can intersect.
The solution has two branches:
branches = {x, y, z} /.
Solve[x^2 + y^2 + (z + 1)^2 == 1 && (x + 1)^2 + y^2 + z^2 == 1, {y, z}]
After loading the Graphics stubs,
<<Graphics`
and determining the range for which the solution is real,
Reduce[-x^2 - x > 0, x]
we can display both branches together as follows:
DisplayTogether[ParametricPlot3D[#, {x, -1, 0}]& /@ branches]
Cheers,
Paul
_______________________________________________________________________
Paul Abbott Phone: 61 8 6488 2734
School of Physics, M013 Fax: +61 8 6488 1014
The University of Western Australia (CRICOS Provider No 00126G)
AUSTRALIA http://physics.uwa.edu.au/~paul