P_f

Inicializar

Animar

Mostrar ejes

P_0

θ_0

ftensión

f/m

θ_f

v_0

V_f

v_f

PX: (-1, 0, 0)
O: (0, 0, 0)
v0: (0 * Vector[O, PX])
α0 = 0.08726646259971647 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
h: 0.2
L = 5 (slider from 1 to 10, step 0.1)
B2 = 0.08726646259971647
D2: (L * ((-cos(B2)), 0, (-sin(B2))))
g = 1.7 (slider from 0.1 to 4, step 0.1)
m = 0.8 (slider from 0.1 to 4, step 0.1)
vgm: (0, 0, ((-g) * m))
E2: (((g * m) * sin(B2)) * UnitVector[Vector[O, D2]])
F2: (vgm - E2) / m
minv: 1
numpun: 15
rutinaprincipal = 276 (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)
C2: (0, 0, 0)
G2: C2 + (h * F2)
H2: D2 + (G2 * h)
I2 = Angle(PX, O, H2)
vf: G2
A2 = 5 (slider from -5 to 10)
V0: (0, 0, 0)
A1: L
v = Vector(O, D2)
J2: H2 + G2
K2 = Line(D2, F2)
L2 = OrthogonalPlane(J2, K2)
A = Intersect(K2, L2)
M2 = Intersect(K2, L2)
N2: O + Vector[H2, M2]
O2: D2 + (N2 * h)
P2 = Angle(PX, O, O2)