1,046 reputation
319
bio website withparadox2.com
location
age
visits member for 1 year, 1 month
seen 39 mins ago
stats profile views 58

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


1,046 Reputation

10 May 15
+10 08:38 upvote
5 May 11
5 May 7
5 May 3
5 Apr 29
5 Apr 19
20 Apr 15
5 Apr 5
5 Mar 14
5 Jan 28
5 Jan 22
5 Jan 13
7 Jan 12
15 Jan 11
10 Dec 3 '12
10 Nov 17 '12
5 Nov 14 '12
10 Nov 13 '12
5 Nov 1 '12
5 Oct 28 '12
5 Oct 27 '12
22 Oct 23 '12
20 Oct 22 '12
6 Oct 16 '12
10 Oct 15 '12
15 Oct 8 '12
5 Oct 7 '12
10 Oct 2 '12
5 Sep 18 '12
15 Sep 16 '12