withparadox2

less info
meta site favicon meta user | stack exchange network profile network profile
1,046 reputation
319
bio website withparadox2.com
location
age
visits member for 1 year, 1 month
seen 3 hours ago
stats profile views 58

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


21 Favorites

added views newest activity votes
3
18
votes
8
answers
1
kviews

Shading between polar graphs

jul 23 at 17:37 belisarius 30.2k