Student Support Forum: 'Intersection' topicStudent Support Forum > General > Archives > "Intersection"

 < Previous Comment Help | Reply To Comment | Reply To Topic
 Author Comment/Response Bill 01/31/12 11:01pm Hi: Here's an example... Clear[x, y, z] Solve[x^2 + y^2 + z^2 == 4 && (x - 1)^2 + (y + 1)^2 + (z - 1)^2 == 4, {x, z}] // N; Flatten[{{x, y, z}} /. {%[[1]], %[[2]]}]; curve2 = ParametricPlot3D[{%}, {y, -Pi, Pi}, PlotRange -> All, PlotStyle -> {Magenta, Thickness[.01]}]; sphereA = ContourPlot3D[ x^2 + y^2 + z^2 == 4, {x, -4, 4}, {y, -4, 4}, {z, -4, 4}, Mesh -> False, ColorFunction -> Function[RGBColor[.5, 1, 1]]]; sphereB = ContourPlot3D[(x - 1)^2 + (y + 1)^2 + (z - 1)^2 == 4, {x, -4, 4}, {y, -4, 4}, {z, -4, 4}, Mesh -> False]; Show[sphereA, sphereB, curve2, Boxed -> False, AxesLabel -> (StyleForm[#, "Subtitle", FontSize -> 12, FontWeight -> "Bold"] & /@ {"X", "Y", "Z"}), ImageSize -> 500, ViewPoint -> {5, 1.8, 5}] Hth, Bill URL: ,

 Subject (listing for 'Intersection') Author Date Posted Intersection Ana L B Squa... 01/31/12 6:37pm Re: Intersection Bill 01/31/12 11:01pm
 < Previous Comment Help | Reply To Comment | Reply To Topic