Dear friends:
Why the solution below does not work ? My OS is Windows 8.1, but this is my first problem. This is the link of the above code:
Highlight The Intersection Of Two Surfacesfrom the Documentation Center.
h = x^2 + y^2 + z^2 - 2;
g = x^3 + y^2 - z^2;
ContourPlot3D[{h == 0, g == 0}, {x, -2, 2}, {y, -2, 2}, {z, -2, 2},
MeshFunctions -> {Function[{x, y, z, f}, h - g]},
MeshStyle -> {{Thick, Green}}, Mesh -> {{0}},
ContourStyle -> Directive[Orange, Opacity[0.5], Specularity[White, 30]]]