132 reputation
bio website withparadox2.com
location
age
visits member for 2 years, 3 months
seen Feb 16 '13 at 13:29

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


This user has not answered any questions
This user has not participated in any tags
This user has not asked any questions
This user has not earned any badges

0 Votes Cast

This user has not cast any votes