Saturday, December 21, 2019

Surfaces' Intersection


h=x^4+y^4+z-3; g=x^3+y^2-z^3;
ContourPlot3D[{h==0,g==0},
{x,-2,2},{y,-2,2}, {z,-2,2},
MeshFunctions->{Function[{x,y,z,f},h-g]},
MeshStyle->{{Thick,Blue}}, Mesh->{{0}},
ContourStyle ->Opacity[0.5],ImageSize->Medium,
ColorFunction->"DeepSeaColors",
Boxed->False,Axes->False,
PlotLabel->"Surfaces' Intersection"]

No comments:

Post a Comment