Advertisement
Guest User

4)

a guest
Apr 25th, 2018
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.81 KB | None | 0 0
  1. raz = Plot3D[x^2 - y^2, {x, -3, 3}, {y, -3, 3}, BoundaryStyle -> None,
  2. BoxRatios -> {1, 1, 2}, PlotStyle -> Orange,
  3. ViewCenter -> Automatic, ViewVector -> Automatic];
  4.  
  5. dva = ContourPlot3D[x, {x, -100, 100}, {y, -100, 100}, {z, -100, 100},
  6. Contours -> {-2, 0, 2}, ContourStyle -> {Opacity[0.6]},
  7. PlotPoints -> 50, Mesh -> {{0}}, BoxRatios -> {1, 1, 1}];
  8.  
  9. Show[{raz, dva}, Boxed -> False]
  10.  
  11.  
  12. raz = Plot3D[x^2 + y^2, {x, -3, 3}, {y, -3, 3}, BoundaryStyle -> None,
  13. BoxRatios -> {1, 1, 2}, PlotStyle -> Orange,
  14. ViewCenter -> Automatic, ViewVector -> Automatic];
  15.  
  16. dva = ContourPlot3D[x, {x, -100, 100}, {y, -100, 100}, {z, -100, 100},
  17. Contours -> {-2, 0, 2}, ContourStyle -> {Opacity[0.6]},
  18. PlotPoints -> 50, Mesh -> {{0}}, BoxRatios -> {1, 1, 1}];
  19.  
  20. Show[{raz, dva}, Boxed -> False]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement