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:
1,046 reputation
319
badges
10 questions
6 answers
English Language & Usage
Q&A for linguists, etymologists, and serious English language enthusiasts
Joined 1 year ago, last seen 1 month ago
136 reputation
6
badges
3 questions
0 answers
Stack Overflow
Q&A for professional and enthusiast programmers
Joined 1 year ago, last seen yesterday
123 reputation
5
badges
5 questions
1 answers
Chinese Language & Usage
Q&A for students, teachers, and linguists wanting to discuss the finer points of the Chinese language
Joined 1 year ago, last seen 8 days ago
117 reputation
1
badges
1 questions
2 answers
101 reputation
0 questions
0 answers
Mathematics
Q&A for people studying math at any level and professionals in related fields
Joined 9 months ago, last seen 3 months ago
101 reputation
1
badges
0 questions
0 answers
