Maßangaben in 1 cm

x-Position

Zeigeraddition

resultierender Zeiger

Reflexion - ausgekratzter Spiegel

U. Konrad (C) 2013

Die magenta-Linie erfüllt das Reflexionsgesetz.
Die Positionen von Sender und Empfänger 
können verschoben werden. Die Zeiger unter den 
Positionen R bis R3 zeigen die Phasenlage.
Die Positionen von R1 bis R3 können auf verscho-
ben werden.

E = (19.42577224847669, 4.400932235841738)
B = Point(xAxis)
A = Point(xAxis)
a = Segment(A, B)
R2 = Point(a)
n = Segment(R2, E)
R1 = Point(a)
m = Segment(R1, E)
w = 1.36 (slider from 0.5 to 3.5, step 0.02)
q = 15.1 (slider from 1 to 20, step 0.1)
Q: (0, q)
f = Segment(Q, R2)
l2: f + n
p2: l2 / w
e = Segment(Q, R1)
l1: e + m
r = 15 (slider from 2 to 20, step 0.1)
R: (r, 0)
b = Segment(Q, R)
c = OrthogonalLine(R, a)
Q' = Mirror(Q, c)
d = Ray(R, Q')
R3 = Point(a)
g = Segment(Q, R3)
p = Segment(R3, E)
l3: g + p
c_1 = Segment(R, E)
p1: l1 / w
l0: b + c_1
o = Div(p1, 1)
w1: ((p1 - Div[p1, 1]) * 360)°
p3: l3 / w
w2: ((p2 - Div[p2, 1]) * 360)°
w3: ((p3 - Div[p3, 1]) * 360)°
p0: l0 / w
w0: ((p0 - Div[p0, 1]) * 360)°
C = (0, -2)
h = OrthogonalLine(C, yAxis)
i = OrthogonalLine(R1, h)
j = OrthogonalLine(R2, a)
k = OrthogonalLine(R3, a)
D = Intersect(h, i)
F = Intersect(j, h)
G = Intersect(k, h)
H = Intersect(c, h)
s = Circle(D, 1)
I, J = Intersect(s, h)
t = Circle(F, 1)
d_1 = Circle(G, 1)
e_1 = Circle(H, 1)
K, L = Intersect(t, h)
M, N = Intersect(d_1, h)
O, P = Intersect(e_1, h)
I' = Rotate(I, w1, D)
α = Angle(I, D, I')
K' = Rotate(K, w2, F)
β = Angle(K, F, K')
M' = Rotate(M, w3, G)
γ = Angle(M, G, M')
O' = Rotate(O, w0, H)
δ = Angle(O, H, O')
u = Vector(D, I')
v = Vector(F, K')
z = Vector(G, M')
l = Vector(H, O')
frq: 340 / (w / 100)
Text2: "Frequenz f = " + frq + " Hz"
epx: x(E)
epy: y(E)
Text3: "Position Empfänger E(" + epx + ";" + epy + ")"
S = Point(yAxis)
a_1 = OrthogonalLine(S, yAxis)
b_1 = OrthogonalLine(D, a_1)
T = Intersect(a_1, b_1)
xt: x(T)
f_1 = true
Text4: "Position x(T) = " + xt + ""
g_1 = true
U = (26.62948269913749, 2.317228597506745)
U' = Translate(U, l)
u_1 = Vector(U, U')
U'' = Translate(U', v)
v_1 = Vector(U', U'')
U''' = Translate(U'', z)
w_1 = Vector(U'', U''')
V = Translate(U''', u)
z_1 = Vector(U''', V)
h_1 = Vector(U, V)
i_1 = true