a question about intersection curve.
- To: mathgroup at smc.vnet.net
- Subject: [mg59835] a question about intersection curve.
- From: Zhou Jiang <jiangzhou_yz at yahoo.com>
- Date: Tue, 23 Aug 2005 04:51:35 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
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. I plot these two semi-spheres as
f1=Sin[theta] Cos[phi];
f2=Sin[theta] Sin[phi];
f3=-1+Cos[theta];
s1=ParametricPlot3D[{f1,f2,f3},{theta, -Pi/2, Pi/2}, {phi, 0, Pi}];
f1=-1+Cos[theta];
f2=Sin[theta] Cos[phi];
f3=Sin[theta] Sin[phi];
s2=ParametricPlot3D[{f1,f2,f3}, {theta, -Pi/2, Pi/2}, {phi, 0, Pi}];
Show[s1,s2];
I can see the intersection curve between these two spheres. But I do not know how to plot the intersection curve directly. Can anyone give me some help?
Thanks a lot.