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