hoekre = 0.9250245035569946 rad (slider from 0 to 179° - hoekbl, step °)
hoekbl = 1.0995574287564276 rad (slider from 0 to 179°, step °)
A = (1, -2)
lengtezw = 5 (slider from 0 to 8, step 0.1)
D = Point(Circle[A, lengtezw])
D' = Rotate(D, hoekbl, A)
m = Ray(A, D')
A' = Rotate(A, (-hoekre), D)
l = Line(D, A')
H = Intersect(l, m)
C = (3, 2)
B = (6, -2)
f = Segment(A, B)
N = Midpoint(D, H)
p = Segment(A, N)
c = Circle(N, A)
q = Ray(A, N)
F = Intersect(c, q, 2)
r = Segment(F, N)
s = Segment(F, B)
j = Segment(A, D)
k = Ray(A, D)
c_1 = Circle(D, 2)
E, G = Intersect(c_1, k)
b = Segment(D, G)
δ = Angle(A', D, A)
ζ = Angle(D, A, D')
g = Segment(A, H)
h = Segment(N, H)
i = Segment(D, N)
β = Angle(A, H, N)
γ = Angle(N, D, F)
I, J = Intersect(c_1, l)
e = Segment(I, D)
ε = Angle(A, D, I)