Advertisement
Guest User

Untitled

a guest
Jun 20th, 2019
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.37 KB | None | 0 0
  1. ParametricPlot3D[{(3 + Cos[v]) Sin[u], (3 + Cos[v]) Cos[u],
  2. Sin[v]}, {u, -Pi, Pi}, {v, 0, 2 Pi},
  3. RegionFunction -> (-Pi + Pi/16 <= #4 <= Pi - Pi/16 &)]
  4.  
  5. ParametricPlot3D[{(3 + Cos[v]) Sin[u], (3 + Cos[v]) Cos[u],
  6. Sin[v]}, {u, -Pi, Pi}, {v, 0, 2 Pi}, MeshFunctions -> {#4 &},
  7. Mesh -> {{-Pi + Pi/16, Pi - Pi/16}},
  8. MeshShading -> {None, Automatic, None}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement