A message from our CEO about the future of Stack Overflow and Stack Exchange. Read now.
2,381
reputation
1
17
27

withparadox2

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

6
answers
11
questions
~46k
people reached
  • Member for 7 years, 9 months
  • 101 profile views
  • Last seen Jan 16 at 13:58

Top tags (24)

Score 54
Posts 5
Posts % 29
Score 27
Posts 1
Score 23
Posts 2
Score 23
Posts 2
Score 14
Posts 3
Score 9
Posts 3

Top posts (17) All Questions Answers | Votes Newest

View all questions and answers

Badges (45)

Gold

1

Rarest

Silver

17

Rarest

Bronze

27

Rarest