1,631
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
~44k
people reached
  • Member for 7 years, 4 months
  • 101 profile views
  • Last seen Aug 14 at 4:16

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