Dear reader, if you got someting out of my blog and if it helped you, it would be great if you supported me by clicking on the Google ads-banner at the right. This will not cost you anything but time but will generate a little bit of revenue for my time invested ;)
I'm as well happy if you LIKE or 1+ it and about comments that help to improve my articles.

Monday, April 13, 2015

Math Gems: the Snail Shell

Previous post: the Breather


Snail Shell faceted (facets have been post processed with Blender, not Mathematica output)

Snail shell smooth

The pearl material has been based on Kaluura's Post on Blenderartists


The snail shell is given by (see e.g.

The shape above is the result of setting the factors to:
  • aa:=0.1
  • bb:=0.1
  • cc:=0.2
  • dd:=0
  • ee:=-1 
The corresponding Mathematica script looks like this:

aa := 0.1;
bb := 0.1;
cc := 0.2;
dd := 0;
ee := -1;
r := s (aa + bb Cos[u]);
vv := v + (v + ee)^2/16;
s := Exp[\[Minus]cc*vv];
x = r*Cos[vv]
z = r*Sin[vv]
y = dd*(1 \[Minus] s) + s*bb*Sin[u]
thePlot =
 ParametricPlot3D[{x, y, z}, {u, 0, 2 Pi}, {v, 0, 2 Pi},
  NormalsFunction -> None, Boxed -> False, Axes -> False]

Export["Snailshell.ply", thePlot, VertexNormals -> Automatic]