Frecuencia = %v Hz

Cuerda

1º Armónico

2º Armónico

3º Armónico

4º Armónico

5º Armónico

Rastro

Rastro

Rastro

Rastro

Rastro

Rastro

Espacio de fase

Cadena de círculos

Gráfica

O: (0, 0)
Velocidad = -250 (slider from -1000 to -50, step 50)
c: 1.5
t = 35.727 (slider from 0 to 1000, step 0.001)
h = 440 (slider from 100 to 1000, step 10)
v: h / ((-Velocidad))
θ: (((-2 * π) * v) * t)
A1 = 1.4 (slider from 0 to 1.5, step 0.1)
k1: A1
f: (h / 500 * π)
A5 = 1.5 (slider from 0 to 1.5, step 0.1)
k5: A5^(5) / 120
A4 = 0 (slider from 0 to 1.5, step 0.1)
k4: ((-A4^(4))) / 24
A3 = 1.5 (slider from 0 to 1.5, step 0.1)
k3: A3^(2) / 6
A2 = 0 (slider from 0 to 1.5, step 0.1)
k2: ((-A2)) / 2
activado = false
nada = -0.9 (slider from -5 to 5, step 0.1)
verC = true
ver1 = true
ver2 = false
ver3 = true
ver4 = false
ver5 = true
a1(x) = If[-9 ≤ x ≤ 9, (((k1 * c) * sin((π * (x / 18 + 1 / 2)))) * sin(θ))]
a2(x) = If[-9 ≤ x ≤ 9, (((k2 * c) * sin(((2 * π) * (x / 18 + 1)))) * sin((2 * θ)))]
a3(x) = If[-9 ≤ x ≤ 9, (((k3 * c) * sin(((3 * π) * (x / 18 + 3 / 2)))) * sin((3 * θ)))]
a5(x) = If[-9 ≤ x ≤ 9, (((k5 * c) * sin(((5 * π) * (x / 18 + 5 / 2)))) * sin((5 * θ)))]
a4(x) = If[-9 ≤ x ≤ 9, (((k4 * c) * sin(((4 * π) * (x / 18 + 2)))) * sin((4 * θ)))]
F = Function(a1(x) + a2(x) + a3(x) + a4(x) + a5(x), -9, 9)
b2(x) = (k2 * sin(((2 * f) * x)))
b3(x) = (k3 * sin(((3 * f) * x)))
b4(x) = (k4 * sin(((4 * f) * x)))
b1(x) = (k1 * sin((f * x)))
b5(x) = (k5 * sin(((5 * f) * x)))
P = (5.52, 4.93)
pol1: {Polygon[P, P + (0, (1.5 * A1)), P + (0.3, (1.5 * A1)), P + (0.3, 0)]}
pol2: {Polygon[P + (0.5, 0), P + (0.5, (1.5 * A2 / 2)), P + (0.8, (1.5 * A2 / 2)), P + (0.8, 0)]}
pol3: {Polygon[P + (1, 0), P + (1, (1.5 * A3^(2) / 6)), P + (1.3, (1.5 * A3^(2) / 6)), P + (1.3, 0)]}
pol4: {Polygon[P + (1.5, 0), P + (1.5, (1.5 * A4^(4) / 24)), P + (1.8, (1.5 * A4^(4) / 24)), P + (1.8, 0)]}
pol5: {Polygon[P + (2, 0), P + (2, (1.5 * A5^(6) / 120)), P + (2.3, (1.5 * A5^(6) / 120)), P + (2.3, 0)]}
Volumen = 0.6 (slider from 0 to 1, step 0.1)
A = (8.28, 5.35)
rastroC = false
rastro1 = false
rastro2 = false
rastro3 = false
rastro4 = false
rastro5 = false
M: (0, F(0))
O1: O + ((k1 * c) * (cos(θ), sin(θ)))
G(x) = If[-10 ≤ x ≤ 5.1, (b1(x) + b2(x) + b3(x) + b4(x) + b5(x)) / 2.5 + 5]
c1 = Circle(O, (abs(k1) * c))
O3: O1 + ((k3 * c) * (cos((3 * θ)), sin((3 * θ))))
c3 = Circle(O1, (abs(k3) * c))
O5: O3 + ((k5 * c) * (cos((5 * θ)), sin((5 * θ))))
s = Segment(O5, M)
c5 = Circle(O3, (abs(k5) * c))
r1 = Segment(O, O1)
r3 = Segment(O1, O3)
r5 = Segment(O3, O5)
T = 0.568 (slider from 0 to 1 / v, step 0.001)
α: (((2 * π) * v) * T)
P5: O + (c * ((k1 * (cos(α), sin(α))) + (k3 * (cos((3 * α)), sin((3 * α)))) + (k5 * (cos((5 * α)), sin((5 * α))))))
locus = Locus(P5, T)
ps = false
cc = false
p(x) = If[x ≥ (2 * π), (c * ((k1 * sin((f * (x - (2 * π))) + θ)) + (k3 * sin((3 * ((f * (x - (2 * π))) + θ)))) + (k5 * sin((5 * ((f * (x - (2 * π))) + θ))))))]
prueba: ((2 * π) * f)
u = Vector(O5, ((2 * π), p((2 * π))))
g = false
texto1: "Velocidad = 1/ " + (LaTeX[(-Velocidad)]) + ""
g2(x) = (b1(x) + b2(x) + b3(x) + b4(x) + b5(x)) / 2.5