Advertisement
Guest User

Untitled

a guest
Jun 19th, 2019
99
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.69 KB | None | 0 0
  1. ParametricPlot3D[{x,y,x^2+y^2-5},{y,-3,3},{x,-3,3},PlotStyle->Opacity[.8],ColorFunction->(If[#3>0,Yellow,Blue]&),Mesh->False,BoundaryStyle->{Black,Thickness[.01]}]
  2.  
  3. ParametricPlot3D[{x, y, x^2 + y^2 - 5}, {y, -3, 3}, {x, -3, 3},
  4. MeshShading -> {Directive[Opacity[.8], Blue],
  5. Directive[Opacity[.8], Yellow]}, Mesh -> {{0}},
  6. MeshFunctions -> {#3 &}, BoundaryStyle -> {Black, Thickness[.01]},
  7. Lighting -> "Neutral"]
  8.  
  9. ParametricPlot3D[{x, y, x^2 + y^2 - 5}, {y, -3, 3}, {x, -3, 3},
  10. PlotStyle -> Opacity[.8], Mesh -> None, BoundaryStyle -> {Black, Thickness[.01]},
  11. ColorFunction -> cf, ColorFunctionScaling -> False,
  12. Exclusions -> {x^2 + y^2 == 5}, ExclusionsStyle -> Blue]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement