\textrm{Wind = Geschwindigkeit der} \
\textrm{Luft relativ zur Schallquelle}

\textrm{Frequenz}

\textrm{Zeit}

\textrm{Q}

\textrm{Q}

\textrm{Quellsystem (Quelle ruht)}

\textrm{Luftsystem (Luft ruht)}

\textrm{Schallgeschwindigkeiten in} \
\textrm{verschiedene Richtungen}

\textrm{Der Kreis steht für die} \
\textrm{Schallgeschwindigkeit}

\textrm{Geschwindigkeit der} \
\textrm{Quelle relativ zur Luft}

B = (9.210509005162711, 3.4829464195772784)
D = (9.796982296315402, -1.631292423921388)
A = (8.806781640924857, 3.0792190553394287)
Wind = Vector(A, B)
c = Circle(A, 1)
t = 0 (slider from 0 to 5, step 0.05)
f = 5 (slider from 1 to 20, step 0.1)
Liste2 = Sequence(If[t > n / f, Circle[D + (abs(t - n / f) * Wind), abs(t - n / f)]], n, 0, 50)
Liste1 = Sequence(Sequence[Vector[(m, n), (m, n) + Wind], m, -20, 20, 2], n, -20, 20, 2)
C = (3.1238747482563793, -1.474703257631195)
g = Ray(A, B)
E = Intersect(c, g, 1)
h = OrthogonalLine(A, g)
F = Intersect(c, h, 1)
v = Vector(A, F)
G = Intersect(c, h, 2)
w = Vector(A, G)
a = Vector(A, E)
H: D + w
I: D + v
J: D + a + Wind
K: D - a + Wind
b = Vector(D, J)
d = Vector(D, I)
e = Vector(D, K)
i = Vector(D, H)
L: C - (t * Wind)
M: C + a
N: C - a
O: C + w
P: C + v
Q: L - Wind
j = Vector(C, O)
k = Vector(C, M)
l = Vector(C, P)
m = Vector(C, N)
R = (6.532700445189057, 1.8498051959144426)
S: R - (0, 1)
p = Ray(R, S)
Quelle = Vector(L, Q)
Liste3 = Sequence(If[t > n / f, Circle[C - (Wind * n / f), abs(t - n / f)]], n, 0, 50)