Ver vectores

amplitud

Ver amplitud

punto de reposo

punto de equilibrio

m = 2 (slider from 0.5 to 2, step 0.1)
k = 3 (slider from 2 to 4, step 0.1)
O: (0, 0)
h = 3 (slider from -5 to 10)
P0: (0, 17)
P: P0 - (0, h)
M = (0, -17.27)
a: (k / m * (O - M))
g: (0, -9.81)
O': O - (0, (m / k * abs(g)))
P': P - (0, abs(g))
Q = Point(Segment[(2 * O') - P', O'])
A: abs(y(Q - O'))
t0: {0, 0, 0}
t1: {0, 0, 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 = 154
dt = 0.023
n: 50
v = (0, 0)
anima = 0 (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' + (-15, 0)
verAmplitud = true
F: M + (0, 3)
comenzado = false
cir_{1} = Circle(M, r)
texto1: "Amplitud: " + A + "
Período teórico MAS: " + T_0 + "''

Oscilaciones completas: " + osci + "
Período animación (media) : " + T + "''"
i: {Polygon[P0 - ((2 * s), 0), P0 + ((2 * s), 0), P0 + ((2 * s), s / 2), P0 + ((-2 * s), s / 2)]}
puntoReposo: {Line[O, xAxis]}
puntoEquilibrio: {Line[O', xAxis]}
j = Segment((x(B) + 0.1, y(Q)), (x(B) + 0.1, y(O')))
cir = Circle(M, abs(g))
C': O' + (14, 0.4)
C: O + (14, 0.4)
puntosRetorno: {Line[Q, xAxis], Line[(2 * O') - Q, xAxis]}
l5: {Polygon[Q + (-1000, 0), Q + (1000, 0), O' + (1000, 0), O' + (-1000, 0)]}
muelle = CurveCartesian((1.2 * sin(((20 * pi) * (t - (y(M) + 0.5)) / (y(P0) - (y(M) + 0.5))))), t, t, y(M), y(P0))
aux = (0, 0)