D:\Documents\docs-actual\z-ahora mismo\momento angular2

anima

Animar

r = 1 (slider from 0 to 1, step 0.01)
m = 1 (slider from -5 to 5)
L: 3
t = 6.07 (slider from 0 to (2 * pi), step 0.01)
h = false
xx: (r * cos(t))
yy: (r * sin(t))
zz: 0
P: (xx, yy, zz)
Q: (0, 0, 0)
g = Segment(Q, P)
w: L / ((m * r^(2)))
v_1: (0, 0, 1)
v_{2} = Vector(Q, P)
v = UnitVector(Vector[v_1 ⊗ v_{2}])
R: P - v
flecha = UnitVector(Vector[R, P])