1,121 reputation
620
bio website withparadox2.com
location
age
visits member for 2 years
seen yesterday

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


Apr
1
awarded  Yearling
Jan
21
awarded  Notable Question
Dec
23
awarded  Good Question
Oct
15
comment Make all the lines equally sharp
I get the same result by using your first method, but Thin and Thickness contribute nothing. Have you changed the opacity in last two methods?
Oct
15
asked Make all the lines equally sharp
Aug
8
awarded  Popular Question
May
15
awarded  Enlightened
May
15
awarded  Nice Answer
Apr
6
comment How to save a web page in mathematica?
@Mr.Wizard Nope, I don't have an answer, but consider using a feasible method of java which I am not familiar with.
Apr
4
awarded  Popular Question
Apr
1
awarded  Yearling
Jan
17
awarded  Popular Question
Jan
12
accepted Label both sides in BarChart
Jan
12
comment Label both sides in BarChart
Your answer is excellent!
Jan
11
asked Label both sides in BarChart
Nov
17
awarded  Nice Answer
Nov
13
awarded  Nice Question
Oct
24
comment How to save a web page in mathematica?
@J.M. It still doesn't work, give the same result
Oct
24
asked How to save a web page in mathematica?
Oct
24
comment How to speed up the function DelaunayTriangulation?
@OleksandrR.,halirutan Wow,it runs perfectly on my laptop,and without a window flickering(happened in my updated method), what else can I say? Both of you deserve credit for unremitting exploration.