Reflexion am  Winkelspiegel (2)
Author: G. vom Stein

Probiere die Regler aus.
Stelle eine Gesetzmäßigkeit fest.

A = Intersect(xAxis, yAxis)
c = Circle(A, 3.0)
R1 = 1.3264502315156905 rad (slider from 0 to 1.5707963267948966, step 0.017453292519943295)
C, D = Intersect(c, xAxis)
D' = Rotate(D, R1, A)
β = Angle(D, A, D')
a = Segment(A, D')
b_1 = OrthogonalLine(A, a)
B, E = Intersect(c, b_1)
d = Segment(B, A)
R2 = 0.38 (slider from 0 to 1, step 0.01)
R3 = 0.97 (slider from 0 to 1, step 0.01)
g(x) = R2 * x + R3
F = Intersect(g, a)
e = OrthogonalLine(F, a)
G = Point(e)
f = Segment(F, G)
H = Point(g)
h = Ray(F, H)
F' = Mirror(F, e)
H' = Mirror(H, e)
h' = Ray(F', H')
I = Intersect(d, h')
i = OrthogonalLine(I, d)
J = Point(i)
j = Segment(I, J)
k = Segment(F', I)
F'' = Mirror(F', j)
H'' = Mirror(H', j)
h'' = Ray(F'', H'')
l = Ray(I, F'')
γ = Angle(f, h)
δ = Angle(k, f)
ε = Angle(J, I, F')
ζ = Angle(l, j)
K = Point(h)
L = Point(h)
M = Point(l)
N = Point(l)
u = Vector(L, K)
v = Vector(M, N)