Date: 15 Juni 2013

f_1

f_2

f_3

f_4

f_5

e = true
Liste2 = Sequence(Random[-15, 15] / 10, i, 1, 5)
Liste1 = Sequence(Random[0, 15] / 10, i, 1, 5)
anteil_1 = If(e, 1, 0)
g = true
anteil_2 = If(g, 1, 0)
h = true
anteil_3 = If(h, 1, 0)
i = true
anteil_4 = If(i, 1, 0)
j = true
anteil_5 = If(j, 1, 0)
f(x) = ((anteil_1 * Element[Liste1, 1]) * sin(x + Element[Liste2, 1])) + ((anteil_2 * Element[Liste1, 2]) * sin((2 * x) + Element[Liste2, 2])) + ((anteil_3 * Element[Liste1, 3]) * sin((3 * x) + Element[Liste2, 3])) + ((anteil_4 * Element[Liste1, 4]) * sin((4 * x) + Element[Liste2, 4])) + ((anteil_5 * Element[Liste1, 5]) * sin((5 * x) + Element[Liste2, 5]))
daempfung = 0 (slider from 0 to 0.4, step 0.01)
Vieleck1, a, b, c, d = Polygon(((-daempfung), (-10)), (0, -10), (0, 10), ((-daempfung), 10))
u = Function(f, -10, (-daempfung))
a_1 = 0.6 (slider from 0 to 1.5, step 0.1)
p_1 = 0 (slider from -1.5 to 1.5, step 0.1)
a_2 = 0.3 (slider from 0 to 1.5, step 0.1)
p_2 = 1.5 (slider from -1.5 to 1.5, step 0.1)
a_3 = 1 (slider from 0 to 1.5, step 0.1)
p_3 = -0.5 (slider from -1.5 to 1.5, step 0.1)
a_4 = 0.5 (slider from 0 to 1.5, step 0.1)
p_4 = -0.7 (slider from -1.5 to 1.5, step 0.1)
a_5 = 1.1 (slider from 0 to 1.5, step 0.1)
p_5 = 0.7 (slider from -1.5 to 1.5, step 0.1)
nc(x) = (f(x) * (1 - daempfung)) - ((a_1 * sin(x + p_1)) + (a_2 * sin((2 * x) + p_2)) + (a_3 * sin((3 * x) + p_3)) + (a_4 * sin((4 * x) + p_4)) + (a_5 * sin((5 * x) + p_5)))
anti = Function((a_1 * sin(x + p_1)) + (a_2 * sin((2 * x) + p_2)) + (a_3 * sin((3 * x) + p_3)) + (a_4 * sin((4 * x) + p_4)) + (a_5 * sin((5 * x) + p_5)), 0, 12)
Gegenschall = Mirror(anti, xAxis)
Text1: "" + a_1 + "sin(x + " + p_1 + ") + " + a_2 + "* sin(2x + " + p_2 + ") +" + a_3 + "*sin(3x+" + p_3 + ")+" + a_4 + "*sin(4x+" + p_4 + ") + " + a_5 + "*sin(5x + " + p_5 + ")"
null = Function(nc, 0, 12)
Störschall = Function((f(x) * (1 - daempfung)), 0, 12)
angabe = Function((Element[Liste1, 1] * sin(x + Element[Liste2, 1])) + (Element[Liste1, 2] * sin((2 * x) + Element[Liste2, 2])) + (Element[Liste1, 3] * sin((3 * x) + Element[Liste2, 3])) + (Element[Liste1, 4] * sin((4 * x) + Element[Liste2, 4])) + (Element[Liste1, 5] * sin((5 * x) + Element[Liste2, 5])), -10, 0 - daempfung)