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


Jul
2
awarded  Curious
May
17
awarded  Popular Question
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