Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Intersection' topicStudent Support Forum > General > Archives > "Intersection"

< Previous CommentHelp | 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 CommentHelp | Reply To Comment | Reply To Topic