| 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: , |
|
