\textrm{Q}

\textrm{S}_1

\textrm{S}_2

\textrm{B}

\textrm{H}

\textrm{Zeit- und Streckenmessung} \
\textrm{starten im Ursprungn (bei H)}

\textrm{Laufzeitdifferenz} \
\Delta t = t_1-t_2 =

\Delta s

\textrm{“Ätherwind”}

c: 0.3
α = 1.5707963267948966 rad (slider from 0° to 90°, step 0.017453292519943295)
A: (cos(α), sin(α))
t = -34.72222222222222 (slider from (-t1) to e + t2b, step 1)
B: (0, 0)
f = Line(B, A)
g = OrthogonalLine(B, f)
β = 0.795 (slider from 0 to 1, step 0.001)
C: ((c * β), 0)
d = Circle(C, c)
S_1 = Intersect(d, g, 2)
w = Vector(B, S_1)
o: abs(w)
t2b: 10 / o
G = Intersect(d, g, 1)
v = Vector(B, G)
b: abs(v)
t2: 10 / b
K: B + (t2 * v)
R_1 = Intersect(d, f, 1)
u_1 = Vector(B, R_1)
o_1: abs(u_1)
t1b: 10 / o_1
D = Intersect(d, f, 2)
u = Vector(B, D)
a: abs(u)
t1: 10 / a
J: B + (t1 * u)
E: B - (u / a * 10)
F = If(t < 0, E + ((t + t1) * u))
H = If(0 < t < t1, B + (t * u))
I = If(0 < t < t2, B + (t * v))
N = If(t1 + t1b < t < t1 + t1b + t2b, B + (w * (t - (t1 + t1b))))
O = If(t2 + t2b < t < t2 + (2 * t2b), B + (w * (t - (t2 + t2b))))
e = Max(t1 + t1b, t2 + t2b)
P = (11.108032954044736, -7.287205185397455)
Q: P + u
h = Line(P, Q)
i = OrthogonalLine(P, h)
breite = 0.34 (slider from 0 to 1, step 0.01)
k = Circle(P, breite)
R, S = Intersect(k, i)
j = Segment(R, S)
l = Wellenfront(F, u, breite)
m = Wellenfront(H, u, breite)
n = Wellenfront(I, v, breite)
L = If(t1 < t < t1 + t1b, J + (u_1 * (t - t1)))
p = Wellenfront(L, u, breite)
M = If(t2 < t < t2 + t2b, K + (w * (t - t2)))
q = Wellenfront(M, v, breite)
s = Wellenfront(O, v, breite)
rohr = 0.85 (slider from 0 to 1.2, step 0.05)
c_1 = Circle(B, rohr)
U, V = Intersect(c_1, g)
W, Z = Intersect(c_1, f)
f_1 = OrthogonalLine(E, f)
g_1 = OrthogonalLine(J, f)
h_1 = OrthogonalLine(K, g)
K' = Mirror(K, B)
i_1 = OrthogonalLine(K', g)
j_1 = OrthogonalLine(V, g)
k_1 = OrthogonalLine(U, g)
l_1 = OrthogonalLine(Z, f)
m_1 = OrthogonalLine(W, f)
A_1 = Intersect(f_1, j_1)
B_1 = Intersect(f_1, k_1)
C_1 = Intersect(j_1, m_1)
D_1 = Intersect(j_1, l_1)
E_1 = Intersect(k_1, l_1)
F_1 = Intersect(k_1, m_1)
G_1 = Intersect(h_1, l_1)
H_1 = Intersect(h_1, m_1)
I_1 = Intersect(g_1, k_1)
J_1 = Intersect(g_1, j_1)
K_1 = Intersect(i_1, m_1)
L_1 = Intersect(i_1, l_1)
Vieleck1, b_1, f_2, h_2, g_2, e_1, i_2, j_2, d_1, l_2, k_2, c_2, a_1 = Polygon(B_1, F_1, H_1, G_1, E_1, I_1, J_1, D_1, L_1, K_1, C_1, A_1)
n_1 = Segment(C_1, E_1)
O_1: K + ((rohr * v) * 3)
P_1: K' - ((rohr * v) * 3)
M_1: E - ((rohr * u) * 3)
N_1: J + ((rohr * u) * 3)
Q_1: B + (rohr * (cos(α + 45°), sin(α + 45°)) / 1.3)
p_1 = Segment(O, N)
q_1 = If(t > 0, If[t < t1, (t * a), If[t1 < t < t1 + t1b, (t1 * a) + ((t - t1) * o_1), If[t > t1 + t1b + t2b, (t1 * a) + (t1b * o_1) + (t2b * o), (t1 * a) + (t1b * o_1) + ((t - t1 - t1b) * o)]]])
Text6: "\textrm{Wegstrecke } s_1 = " + (LaTeX[q_1]) + "\,\textrm{m}"
r_1 = If(t > 0, If[t < t2, (t * b), If[t2 < t < t2 + t2b, (t2 * b) + ((t - t2) * o), If[t > t2 + (2 * t2b), (t2 * b) + ((2 * t2b) * o), (t2 * b) + (t2b * o) + ((t - t2 - t2b) * o)]]])
Text7: "\textrm{Wegstrecke } s_2 = " + (LaTeX[r_1]) + "\,\textrm{m}"
ds: q_1 - r_1
Text9: "" + (LaTeX[t1]) + "\,\textrm{ns}"
Text10: "" + (LaTeX[t2]) + "\,\textrm{ns}"
r = Wellenfront(N, v, breite)
t2tot: t2 + t2b
t1tot: t1 + t1b
Text13: "\textrm{Laufzeit } t_1 =\phantom{" + (LaTeX[t1tot]) + "\,\textrm{ns}}"
Text11: "\phantom{\textrm{Laufzeit } t_1 =} " + (LaTeX[t1tot]) + "\,\textrm{ns}"
Text12: "\phantom{\textrm{Laufzeit } t_2 =} " + (LaTeX[t2tot]) + "\,\textrm{ns}"
Text14: "\textrm{Laufzeit } t_2 = \phantom{" + (LaTeX[t2tot]) + "\,\textrm{ns}}"
dt: t1tot - t2tot
s_1 = Max(t1tot, t2tot)
Text16: "" + (LaTeX[dt]) + "\,\textrm{ns}"
Text17: "\textrm{Vorsprung der Welle 1} \\
\Delta s = s_1-s_2 = " + (LaTeX[ds]) + "\,\textrm{m}"
T = Midpoint(O, N)
t_1 = OrthogonalLine(T, p_1)
d_2 = Circle(T, (2 * rohr))
T_1 = Intersect(d_2, t_1, 2)
U_1 = (-13.713709884217046, 7.3236757864968185)
pfeil: 5
Liste1 = Sequence(Vector[U_1 + (n * (0, 1.5)), U_1 + (n * (0, 1.5)) + (5, 0)], n, 0, 2)

Tool: Wellenfront
Werkzeug1[ <Punkt>, <Vektor>, <Zahl> ]
Input: P, u, breite
Output: j

Q: P + u
h = Line(P, Q)
i = OrthogonalLine(P, h)
k = Circle(P, breite)
R, S = Intersect(k, i)
j = Segment(R, S)