Windkracht = 2.95 (slider from 0 to 10, step 0.05)
α = 1.038470904936626 rad (slider from 20° to 70°, step 0.5°)
Staart = Intersect(xAxis, yAxis)
B = Point(xAxis)
Kop = Rotate(B, α, Staart)
vlieger = Segment(Kop, Staart)
center = Midpoint(Kop, Staart)
C: (2.5, Windkracht)
Aero = Rotate(C, α, Staart)
Faero = Vector(center, Aero)
c = Circle(center, Aero)
a = OrthogonalLine(center, xAxis)
b = OrthogonalLine(center, yAxis)
d = OrthogonalLine(Aero, xAxis)
e = OrthogonalLine(Aero, a)
Flift = Intersect(a, e)
Fdrag = Intersect(b, d)
Lift = Vector(center, Flift)
Drag = Vector(center, Fdrag)
A = Point(a)
Fz = Vector(center, A)
Touw_y: center - Lift - Fz
Touw_x: center - Drag
Ftouw_x = Vector(center, Touw_x)
Ftouw_y = Vector(center, Touw_y)
f = OrthogonalLine(Touw_x, xAxis)
g = OrthogonalLine(Touw_y, yAxis)
Ftouw = Intersect(g, f)
Ftouw_1 = Vector(center, Ftouw)
D = (5.552748502720253, -0.2323358490474947)
E = (11.210283633694328, -0.2323358490474947)