2,391
reputation
1
18
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
~48k
people reached
  • Member for 8 years, 4 months
  • 103 profile views
  • Last seen Jul 27 at 12:13

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)

View all questions and answers

Badges (46)

Gold

1

Rarest

Silver

18

Rarest

Bronze

27

Rarest