1,196 reputation
723
bio website withparadox2.com
location
age
visits member for 2 years, 11 months
seen Feb 27 at 0:50

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,196 Reputation

10 Feb 24
5 Jan 12
5 Jan 11
5 Nov 11 '14
5 Nov 9 '14
5 Oct 11 '14
5 Sep 19 '14
5 Aug 22 '14
5 Aug 12 '14
10 Aug 5 '14
10 Aug 4 '14
5 Aug 3 '14
5 Apr 9 '14
5 Dec 23 '13
5 Nov 3 '13
10 Oct 29 '13
15 Oct 15 '13
5 Oct 4 '13
0 Sep 18 '13
-5 Sep 13 '13
5 Aug 4 '13
5 Jul 17 '13
20 Jun 24 '13
5 Jun 4 '13
10 May 15 '13
5 May 11 '13
5 May 7 '13
5 May 3 '13
5 Apr 29 '13
5 Apr 19 '13