H variieren

A = (4.2, -7)
B = (19.9, -6.4)
H = (18.16, 1.54)
s_1 = Ray(A, H)
s_{3} = OrthogonalLine(B, s_1)
P = Intersect(s_{3}, s_1)
f = Segment(A, B)
s_2 = Ray(B, P)
γ = Angle(A, P, B)