Advertisement
Guest User

Untitled

a guest
Apr 23rd, 2017
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.38 KB | None | 0 0
  1. k = 1/2;
  2. facegrids = {#, {{k}, {k}}} & /@ Join[#, -#] &@IdentityMatrix[3];
  3.  
  4. ContourPlot3D[x^2 + 2 z^2 == 1, {x, -1, 1}, {y, -1, 1}, {z, -1, 1},
  5. ContourStyle -> Directive[Orange, Opacity[0.8], Specularity[White, 30]],
  6. MeshFunctions -> {# &, #2 &, #3 &},
  7. Mesh -> {{{k, Directive[Thick, Red]}}, {{k, Directive[Thick, Green]}},
  8. {{k, Directive[Thick, Blue]}}},
  9. FaceGrids -> facegrids]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement