withparadox2's user avatar
withparadox2's user avatar
withparadox2's user avatar
withparadox2
  • Member for 11 years, 11 months
  • Last seen more than a month ago
Stats
2,481
reputation
58k
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
24
silver badges
28
bronze badges
56
Score
5
Posts
29
Posts %
27
Score
1
Posts
6
Posts %
25
Score
2
Posts
12
Posts %
25
Score
2
Posts
12
Posts %
14
Score
3
Posts
18
Posts %
9
Score
3
Posts
18
Posts %
Top posts
View all questions and answers