1,156 reputation
622
bio website withparadox2.com
location
age
visits member for 2 years, 5 months
seen Aug 6 at 4:22

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

5 Aug 22
5 Aug 12
10 Aug 5
10 Aug 4
5 Aug 3
5 Apr 9
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
20 Apr 15 '13
5 Apr 5 '13
5 Mar 14 '13
5 Jan 28 '13
5 Jan 22 '13
5 Jan 13 '13
7 Jan 12 '13