Inicializar

Animar

Mostrar ejes

P_0

θ_0

f/m

θ_f

w_0

w_f

C2 = 0
h: 0.1
B2 = 0.5235987755982988
g = 10 (slider from 0.1 to 20, step 0.1)
vg: (0, 0, (-g))
O: (0, 0, 0)
L = 5 (slider from 1 to 10, step 0.1)
A2: L
D2: (A2 * ((-cos(B2)), 0, (-sin(B2))))
E2: vg - ((g * sin(B2)) * UnitVector[Vector[O, D2]])
F2 = If(x(E2) > 0, abs(E2), (-abs(E2)))
m = 1 (slider from 0.1 to 4, step 0.1)
PX: (-1, 0, 0)
v0: (0 * Vector[O, PX])
α0 = 0.5235987755982988 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
minv: 1
numpun: 15
rutinaprincipal = 303 (slider from 0 to 1000, step 1)
anima = false
e_0: 28
saltoinicial: (2 * e_0 / (numpun - 1))
a: 0
ejes = false
P_0: (L * ((-cos(α0)), 0, (-sin(α0))))
modv0: 0
vz: (0, 0, 1)
PZ = Point(zAxis)
u = Vector(O, D2)
V0: (0, 0, 0)
factor = 1.0002 (slider from 1 to 1.1, step 0.0001)
O2 = Segment(O, D2)
G2: C2 + (h * F2 / A2)
H2: B2 + (h * G2)
energiapotencial: ((m * g) * (L + z(D2)))
energiacinetica: ((0.5 * m) * (abs((C2 * L)))^(2))
energia: energiacinetica + energiapotencial