Ver vectores

A

Ver amplitud

a

ω

m = 4 (slider from 2 to 8, step 0.1)
k = 2 (slider from 1 to 4, step 0.1)
O: (0, 0)
h: 3
P0: (-20, 0)
P: P0 + (h, 0)
Q = Point(Segment[O, (2 * O) - P])
A: abs(x(Q - O))
M = Point(Segment[((-A), 0), (A, 0)])
a: (k / m * (O - M))
t0: {275,53,0}
t1: {531,54,0}
reg: {0}
regDif = If(Length[reg] ≟ 1, {reg(1)}, Sequence[reg(k) - reg(k + 1), k, 1, Length[reg] - 1])
T = mean(regDif)
t: ((t1(3) < t0(3)) * 3600) + ((t1(3) - t0(3)) * 60) + t1(2) - t0(2) + (t1(1) - t0(1)) / 1000
tt = 484
dt = 0.047
n: 50
v = (-9.319744119557074, 0)
anima = 0.121 (slider from 0 to 1, step 0.001)
osci = 0
verVectores = true
sep: y(P0 - M) / n
s: 3
dis: sqrt(s^(2) - sep^(2)) / 2
T_0: ((2 * pi) * sqrt(m / k))
r: m^(1 / 3)
B: (O + Q) / 2 - (1, -20)
verAmplitud = true
i: {Polygon[P0 - (0, (2 * s)), P0 + (0, (2 * s)), P0 + (((-s)) / 2, (2 * s)), P0 + (((-s)) / 2, (-2 * s))]}
F: M + (0, 3)
comenzado = true
C: (x(O), -3)
j = Segment((x(Q), y(B) + 0.1), (x(O), y(B) + 0.1))
cir_{1} = Circle(M, r)
texto1: "Amplitud: " + A + "
Período teórico MAS: " + T_0 + "''

Oscilaciones completas: " + osci + "
Período animación (media) : " + T + "''"
puntosRetorno: {Line[Q, yAxis], Line[(2 * O) - Q, yAxis]}
puntoReposo: {Line[O, yAxis]}
cir = Circle(O, A)
MM = Point(cir)
ω: sqrt(k / m)
c: ((UnitVector[Vector[MM, O]] * ω^(2)) * A)
f = Segment(MM, O)
g = Segment(M, MM)
l = Segment(MM + c, (x(MM), y(MM + c)))
Mc: MM + (0, y(c))
u = Translate(a, Mc)
l2: {Polygon[MM, O, M]}
α = Angle(O + (-4, 20), O, Rotate[O + (-4, 20), ω])
l3: {Polygon[M, Mc, Mc + a, M + a]}
i2: {Polygon[P0 + (0, (-r)), P0 + ((3 * x(O - P)), (-r)), P0 + ((3 * x(O - P)), (-r) - s / 2), P0 + (0, (-r) - s / 2)]}
muelle = CurveCartesian(t, (1.2 * sin(((20 * pi) * (t - (x(M) + 0.5)) / (x(P0) - (x(M) + 0.5))))), t, x(P0), x(M))
aux = (-9.062829939285006, 0)