user avatar
user avatar
user avatar
withparadox2
  • Member for 10 years, 2 months
  • Last seen more than a month ago
Stats
2,451
reputation
54k
reached
6
answers
11
questions
Loading…
About

ParametricPlot3D[ {(1 + Cos[v]) Cos[u] + 0.085 Cos[5 u] + (0.994 v/[Pi])^100, (1 + Cos[v]) Sin[u], 6 Sin[v] + 2 Cos[v] - 0.7 Log[1 - v/[Pi]]}, {u, -[Pi], Pi}, {v, -[Pi], Pi}, Mesh -> False, BoxRatios -> 1, PlotStyle -> {Green, Specularity[Yellow, 10]}, ImageSize -> 350]

Then we get:

enter image description here

1
gold badge
22
silver badges
28
bronze badges
54
Score
5
Posts
29
Posts %
27
Score
1
Posts
6
Posts %
23
Score
2
Posts
12
Posts %
23
Score
2
Posts
12
Posts %
14
Score
3
Posts
18
Posts %
9
Score
3
Posts
18
Posts %
Top posts
View all questions and answers