SHARE
TWEET

Untitled

a guest Jun 19th, 2019 68 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top