The formula for Vogels model is:
And it should give a graph like this:
But I'm getting just a spiral in mathametica:
My code looks like this: Manipulate[ PolarPlot[2 Sqrt[t/2.417281], {t, 0, s}, PlotRange -> Automatic], {s, 1, 100, 1}]
Any idea how I can make the code output a spiral like how it should be in Vogels model?