Fuente TeX:
U = \frac{kR^2cos^2\theta}{2} - mgRcos\theta