Stehende Welle 2 Sender
Author: Lgm

Reflektor_1

Reflektor_2

Phase in  π

Zeit t

Überlagerung zeigen

Sender

dokspeicher.de/125190

Start Animation

Stopp Animation

w = 7.75 (slider from 3 to 7.75, step 0.125)
W: (w, 0)
k = OrthogonalLine(W, xAxis)
c = Circle(W, 2)
reflex2 = false
p_1 = 0 (slider from 0 to 1, step 0.1)
t = 5.8 (slider from 0 to 28, step 0.05)
p = 3.141592653589793 (slider from -5 to 5, step 0.1)
g = If(t > w, If[Max[(2 * w) - t, 0] ≤ x ≤ w, (-sin((((2 * w) - x - t + p_1) * p)))])
f(x) = If[0 ≤ x ≤ Min[t, w], (-sin(((x - t + p_1) * p)))]
over = false
Z: ((2 * w) - (2 * t), 0)
if = Integral(f, 0, Min[t, w])
ig = Integral(g, Max[0, (2 * w) - t], w)
h = If(t > (2 * w) ∧ reflex2, If[0 ≤ x ≤ Min[t - (2 * w), w], (-sin((((2 * w) + x - t + p_1) * p)))])
ih = Integral(h, 0, Min[w, t - (2 * w)])
e_2 = If(over, If[(2 * w) - t > 0 ∨ (¬reflex2), f(x) + g(x)])
A, B = Intersect(c, k)
Reflektor_1 = Segment(B, A)
e_3 = If(reflex2 ∧ over, f(x) + g(x) + h(x))
C: (0, 2)
D = Point(Circle[C, 4])
Reflektor_2 = Segment(C, D)
E: (-1, -0.5)
F: (-0.05, -1)
G: (-1, 0.5)
H: (-0.05, 1)
v1, g_1, h_1, f_1, e = Polygon(G, H, F, E)