141 reputation
16
bio website withparadox2.com
location
age
visits member for 2 years, 4 months
seen Aug 10 '13 at 6:20

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


141 Reputation

5 Aug 10
+5 20:15 upvote
100 Aug 18 '12
+100 11:56 assoc
-2 Aug 13 '12
+5 / -7 01:39 3 events
20 Aug 12 '12
5 Aug 6 '12
12 Aug 5 '12