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

activado = false
nada = -4.4 (slider from -5 to 5, step 0.1)
Frecuencia = 440 (slider from 100 to 1000, step 10)
A1 = 1.5 (slider from 0 to 1.5, step 0.1)
A2 = 1.5 (slider from 0 to 1.5, step 0.1)
A3 = 1.4 (slider from 0 to 1.5, step 0.1)
A4 = 1.5 (slider from 0 to 1.5, step 0.1)
A5 = 1.5 (slider from 0 to 1.5, step 0.1)
verC = true
ver1 = true
ver2 = true
ver3 = true
ver4 = true
ver5 = true
t = 942.87 (slider from 0 to 1000, step 0.001)
k = 2.5
Velocidad: -250
v: Frecuencia / ((-Velocidad))
a1 = Function((((A1 * k) * sin((pi * (x / 18 + 1 / 2)))) * sin((((2 * pi) * t) * v))), -9, 9)
a2 = Function(((((-A2) * k / 2) * sin(((2 * pi) * (x / 18 + 1)))) * sin((((4 * pi) * t) * v))), -9, 9)
a3 = Function((((A3^(2) * k / 6) * sin(((3 * pi) * (x / 18 + 3 / 2)))) * sin((((6 * pi) * t) * v))), -9, 9)
a4 = Function(((((-A4^(4)) * k / 24) * sin(((4 * pi) * (x / 18 + 2)))) * sin((((8 * pi) * t) * v))), -9, 9)
a5 = Function((((A5^(5) * k / 120) * sin(((5 * pi) * (x / 18 + 5 / 2)))) * sin((((10 * pi) * t) * v))), -9, 9)
f = Function(a1(x) + a2(x) + a3(x) + a4(x) + a5(x), -9, 9)
b1(x) = (A1 * sin((((Frecuencia / 1000 * 2) * pi) * x)))
b2(x) = (((-A2)) / 2 * sin((((Frecuencia / 1000 * 4) * pi) * x)))
b3(x) = (A3^(2) / 6 * sin((((Frecuencia / 1000 * 6) * pi) * x)))
b4(x) = (((-A4^(4))) / 24 * sin((((Frecuencia / 1000 * 8) * pi) * x)))
b5(x) = (A5^(5) / 120 * sin((((Frecuencia / 1000 * 10) * pi) * x)))
P = (12.9, 4.13)
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.3 (slider from 0 to 1, step 0.1)
A = (8.28, 5.35)
texto1: "Velocidad = 1/ " + (LaTeX[(-Velocidad)]) + ""
rastroC = false
rastro1 = false
rastro2 = false
rastro3 = false
rastro4 = false
rastro5 = false
fR = Function(a1(x) + a2(x) + a3(x) + a4(x) + a5(x), -9, 9)
a1R = Function((((A1 * k) * sin((pi * (x / 18 + 1 / 2)))) * sin((((2 * pi) * t) * v))), -9, 9)
a2R = Function(((((-A2) * k / 2) * sin(((2 * pi) * (x / 18 + 1)))) * sin((((4 * pi) * t) * v))), -9, 9)
a3R = Function((((A3^(2) * k / 6) * sin(((3 * pi) * (x / 18 + 3 / 2)))) * sin((((6 * pi) * t) * v))), -9, 9)
a4R = Function(((((-A4^(4)) * k / 24) * sin(((4 * pi) * (x / 18 + 2)))) * sin((((8 * pi) * t) * v))), -9, 9)
a5R = Function((((A5^(5) * k / 120) * sin(((5 * pi) * (x / 18 + 5 / 2)))) * sin((((10 * pi) * t) * v))), -9, 9)
g2(x) = (b1(x) + b2(x) + b3(x) + b4(x) + b5(x)) / 2.5
g(x) = (b1(x) + b2(x) + b3(x) + b4(x) + b5(x)) / 2.5 + 8