r(t) = t*sin(t)

plot( r, 0, 5*pi, 200, "polar" )