Re: surface intersection

*To*: mathgroup at smc.vnet.net*Subject*: [mg61142] Re: [mg61097] surface intersection*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Tue, 11 Oct 2005 03:21:25 -0400 (EDT)*Reply-to*: hanlonr at cox.net*Sender*: owner-wri-mathgroup at wolfram.com

pp3d=ParametricPlot3D[{Sqrt[2-y^2], y, Sqrt[2-y^2]}, {y, 0, Sqrt[2]}]; Needs["Graphics`"]; Shadow[pp3d]; Bob Hanlon > > From: "David Turner" <dturner at faulkner.edu> To: mathgroup at smc.vnet.net > Date: 2005/10/10 Mon AM 02:39:58 EDT > Subject: [mg61142] [mg61097] surface intersection > > 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. > >