Skip to main content
added 298 characters in body
Source Link
kglr
  • 400.5k
  • 18
  • 488
  • 929

You can use the option BoundaryStyle to mark the intersection of the two contour surfaces as follows:

ContourPlot3D[{x^3 == y^2, y == z^3}, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
 Mesh -> None, ContourStyle -> Opacity[.3], 
 BoundaryStyle -> {1 -> None, 2 -> None, {1, 2} -> Directive[Thick, Red]}]

enter image description here

Also

SliceContourPlot3D[y - z^3,  x^3 == y^2, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
 Contours -> {{0}}, BoundaryStyle -> None, ContourShading -> None, 
 ContourStyle -> Directive[Red, Thick]]

enter image description here

You can use the option BoundaryStyle to mark the intersection of the two contour surfaces as follows:

ContourPlot3D[{x^3 == y^2, y == z^3}, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
 Mesh -> None, ContourStyle -> Opacity[.3], 
 BoundaryStyle -> {1 -> None, 2 -> None, {1, 2} -> Directive[Thick, Red]}]

enter image description here

You can use the option BoundaryStyle to mark the intersection of the two contour surfaces as follows:

ContourPlot3D[{x^3 == y^2, y == z^3}, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
 Mesh -> None, ContourStyle -> Opacity[.3], 
 BoundaryStyle -> {1 -> None, 2 -> None, {1, 2} -> Directive[Thick, Red]}]

enter image description here

Also

SliceContourPlot3D[y - z^3,  x^3 == y^2, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
 Contours -> {{0}}, BoundaryStyle -> None, ContourShading -> None, 
 ContourStyle -> Directive[Red, Thick]]

enter image description here

Source Link
kglr
  • 400.5k
  • 18
  • 488
  • 929

You can use the option BoundaryStyle to mark the intersection of the two contour surfaces as follows:

ContourPlot3D[{x^3 == y^2, y == z^3}, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
 Mesh -> None, ContourStyle -> Opacity[.3], 
 BoundaryStyle -> {1 -> None, 2 -> None, {1, 2} -> Directive[Thick, Red]}]

enter image description here