Re: surface intersection
- To: mathgroup at smc.vnet.net
- Subject: [mg61136] Re: surface intersection
- From: Peter Pein <petsie at dordos.net>
- Date: Tue, 11 Oct 2005 03:20:49 -0400 (EDT)
- References: <did2rf$qdh$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
David Turner schrieb: > Hello, > > I wish to plot the intersection of the surfaces x = Sqrt[2 - y^2] and z = Sqrt[2 - y^2] which lies in the first octant. I wish for the plot to be limitd to only the intersection. My best attempt is > > ParametricPlot3D[{{Sqrt[2-t^2+0.00001], t, u}, {u, t, Sqrt[2-t^2+0.00001]}}, > {t, 0, Sqrt[2]}, {u, 0, Sqrt[2]}, ViewPoint -> {2.75, 2.4, 1}]; > > However, this shows more than the intersection > > Any ideas? > > Thanks in advance. > Hi David, obviously x==z, so ParametricPlot[{Sqrt[2-y^2],y,Sqrt[2-y^2]},{y,0,Sqrt[2]}] should do it. Peter