1,176 reputation
623
bio website withparadox2.com
location
age
visits member for 2 years, 8 months
seen 4 hours ago

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

5 Nov 11
5 Nov 9
5 Oct 11
5 Sep 19
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