k=7; f1[x_,y_,z_]=x^2/9+y^2/16-z^2/25;
f2[x_,y_,z_]=x^2/4+y^2/9-z^2/16;
cp1=ContourPlot3D[f1[x,y,z]==1,{x,-k,k},{y,-k,k},{z,-k,k},
Mesh->20,MeshStyle->Blue,ContourStyle->{Blue,Opacity[0.1]}];
cp2=ContourPlot3D[f2[x,y,z]==0,{x,-k,k},{y,-k,k},{z,-k,k},
Mesh->30,MeshStyle->Red,ContourStyle->{Red,Opacity[0.2]}];
Show[cp1,cp2,Boxed->False,Axes->False,ImageSize->Large]
No comments:
Post a Comment