今天看到个不错的曲面,画一下

代码如下:

ParametricPlot3D[{(3 + Sin[v] + Cos[u]) Sin[
    2 v], (3 + Sin[v] + Cos[u]) Cos[2 v], (Sin[u] + 2 Cos[v])}, {u, 0,
   2 Pi}, {v, 0, 2 Pi}, Mesh -> None, Axes -> False, Boxed -> False, 
 PlotPoints -> 150, 
 ColorFunction -> (RGBColor[#, 0, 1 - #, 4/5] &[
     1/2 + {1, -1}.{#1, #2}/2] &), PlotTheme -> "Classic", 
 ImageSize -> Large]