I could not re-parametrize the curve
r[s_] := {-(5 + 2*Cos[2*s])*Sin[3*s], (5 + 2*Cos[2*s])*Cos[3*s],
2*Sin[2*s]}
neither by hand nor with Mathematica. Is there any method else to parametrize the curve with uniform velocity (edit: not velocity, speed) without taking the integral with respect to parameter s?
Thank you.
UPDATE2:
http://citeseerx.ist.psu.edu/viewdoc/download?doi=10.1.1.49.3151&rep=rep1&type=pdf
http://algorithmist.net/docs/arcparam.pdf
I have not read them all thoroughly but I think this is the solution. I would like to ask a question on Mathematica SE for coding these but I cannot due to the rules of the website. Does anyone know about these methods, how and which one to use?
Thanks.

system obtained by direct rationalization of inexact numbers present
in the system. Since many of the methods used by Solve require exact
input, providing Solve with an exact version of the system may help" – user230541 Apr 15 '15 at 12:19
NIntegrate[...]rather thanN[Integrate[...]]. The first goes straight to numerical techniques while the second attempts symbolic evaluation before following back on numerical techniques. – Mark McClure Apr 15 '15 at 12:38