r[t_]:={(1/2500)*(t^3)*Cos[t],(1/2500)*(t^3)*Sin[t],t}