x\,\,\textrm{(cm)}

y\,\,(\textrm{cm})

Lichtuhr L'

L

L'

B: (0, 0)
b = 3 (slider from 0.1 to 3, step 0.1)
t = 0 (slider from 0 to 10, step 0.01)
β = 0.6 (slider from 0 to 1, step 0.01)
A: (((30 * t) * β), 0)
h = 30 (slider from 0 to 50, step 0.1)
v1, f, g, i, j = Polygon(B + (b / 2, 0), B + (b / 2, h), B + (((-b)) / 2, h), B + (((-b)) / 2, 0))
v2 = Lichtuhr((((β * t) * 30), 0), b, h)
c: 30
Dt: h / c
γ: 1 / sqrt(1 - β^(2))
Dt': (Dt * γ)
t': t / γ
C: B + (0, (c * t))
d = If(0 < t < (h / c * γ), CircleArc[B, ((c * t), 0), (0, (c * t))])
Ds: ((β * c) * Dt')
e = If((2 * Dt') < t < (3 * Dt'), CircleArc[((2 * Ds), 0), ((2 * Ds) + (c * (t - (2 * Dt'))), 0), ((2 * Ds), (c * (t - (2 * Dt'))))])
l1 = Sequence(If[((2 * k) * Dt') < t < (((2 * k) + 1) * Dt'), CircleArc[(((2 * k) * Ds), 0), (((2 * k) * Ds) + (c * (t - ((2 * k) * Dt'))), 0), (((2 * k) * Ds), (c * (t - ((2 * k) * Dt'))))]], k, 0, 20)
l3 = Sequence(If[(((2 * k) + 1) * Dt') < t < (((2 * k) + 2) * Dt'), CircleArc[((((2 * k) + 1) * Ds), h), ((((2 * k) + 1) * Ds), h - (c * (t - (((2 * k) + 1) * Dt')))), ((((2 * k) + 1) * Ds) + (c * (t - (((2 * k) + 1) * Dt'))), h)]], k, 0, 20)
F = If(0 < t < Dt, (0, (c * t)))
dd: 1.7
l5 = Sequence(If[((2 * k) * Dt) < t < (((2 * k) + 1) * Dt), Front[(0, (c * (t - ((2 * k) * Dt)))), 90°, dd]], k, 0, 30)
l6 = Sequence(If[(((2 * k) + 1) * Dt) < t < (((2 * k) + 2) * Dt), Front[(0, h - (c * (t - (((2 * k) + 1) * Dt)))), -90°, dd]], k, 0, 30)
φ: acosd(β)
l2 = Sequence(If[((2 * k) * Dt') < t < (((2 * k) + 1) * Dt'), Front[(((β * c) * t), (c / γ * (t - ((2 * k) * Dt')))), φ, dd]], k, 0, 30)
l4 = Sequence(If[(((2 * k) + 1) * Dt') < t < (((2 * k) + 2) * Dt'), Front[(((β * c) * t), h - (c / γ * (t - (((2 * k) + 1) * Dt')))), (-φ), dd]], k, 0, 30)
l7 = Sequence(If[((2 * k) * Dt') ≤ t, (((2 * k) * Ds), 0)], k, 0, 30)
l8 = Sequence(If[(((2 * k) + 1) * Dt') ≤ t, ((((2 * k) + 1) * Ds), h)], k, 0, 30)
D: (((β * c) * t), h)
Text2: "v = " + (LaTeX[β]) + "\,c"
a = false
Text7: "t = " + (LaTeX[t]) + "\,\mathrm{ns}"
Text3: "t' = " + (LaTeX[t']) + "\,\mathrm{ns} <t"
E: (-15, h)
G: (-5, 20)
H: (((β * c) * t) + 5, 20)

Tool: LichtpulsDown
<Punkt>,<Radius>,<Winkel>
Input: E, r_1, α
Output: c

K: E - (r_1 * (sin(α), cos(α)))
L: E + (r_1 * (sin(α), (-cos(α))))
c = CircleArc(E, K, L)

Tool: LichtpulsUp
<Punkt>,<Radius>,<Winkel>
Input: B, r_0, α
Output: k

M: B + (r_0 * (sin(α), cos(α)))
N: B - (r_0 * (sin(α), (-cos(α))))
k = CircleArc(B, M, N)

Tool: Flash
<Punkt>,<Radius>
Input: E, r
Output: Vieleck3, f', f_2, g_2, h_2, i_2, j_2, m_2, n_2, o, p_2, q_2, r_2, t_2, s_2, l_2, k_2

r: 10
k = Circle(E, r)
q = Circle(E, r / 3)
l = OrthogonalLine(E, yAxis)
F = Intersect(k, l, 2)
F' = Rotate(F, 45°, E)
Vieleck1, m, n, s, f_1, g_1, h_1, i_1, j_1, G, H, I, J, K, L = Polygon(F, F', 8)
k_1 = LineBisector(F, F')
M = Intersect(q, k_1, 1)
l_1 = LineBisector(G, F')
N = Intersect(q, l_1, 2)
Vieleck2, m_1, n_1, p_1, q_1, r_1, s_1, t_1, a_1, O, P, Q, R, S, T = Polygon(M, N, 8)
Vieleck3, g_2, o, h_2, p_2, i_2, q_2, j_2, r_2, k_2, s_2, l_2, t_2, f_2, m_2, f', n_2 = Polygon(G, O, H, P, I, Q, J, R, K, S, L, T, F, M, F', N)

Tool: Wellenfront
Wellenfront[ <Ausgangspunkt>, <Strecke>, <Richtungswinkel>, <Öffnung> ]
Input: B, r, α, β
Output: c

B: (0, 0)
A: B + ((r * sin(α + β)), (r * cos(α + β)))
C: B + ((r * sin(α - β)), (r * cos(α - β)))
c = CircleArc(B, A, C)

Tool: Lichtuhr
<Fusspunkt>,<Breite>,<Höhe>
Input: B, b, h
Output: v1

B: (0, 0)
b: 3
v1, f, g, i, j = Polygon(B + (b / 2, 0), B + (b / 2, h), B + (((-b)) / 2, h), B + (((-b)) / 2, 0))

Tool: Front
Front[ <Punkt>, <Winkel>, <Strecke> ]
Input: G, α, dd
Output: k

H = Rotate(G + (dd / 2, 0), α, G)
I = Rotate(H, 90°, G)
J = Rotate(H, -90°, G)
k = Segment(I, J)