StummerDiener

B = (0, b)

A = (a, 0)

α

Hüllkurve

α = 1.2217304763960306 rad (slider from 0 to 1.5707963267948966, step 0.1°)
L: 20
gl1: x / ((L * cos(α))) + y / ((L * sin(α))) = 1
B = Intersect(gl1, yAxis)
A = Intersect(gl1, xAxis)
Leiter = Segment(B, A)
P: (3.8, 3.4)
O: (0, 0)
abstandPf = Distance(P, Leiter)
Abstand: "Abstand = " + abstandPf + ""
β = Angle(B, A, O)
gl3:=x^(2 / 3) + y^(2 / 3) = L^(2 / 3)
posS = 30 (slider from 0 to 100, step 1)
S: (((cos(α) * posS / 100) * L), ((sin(α) * (1 - posS / 100)) * L))
r_{1} = Segment(B, S)
r_{2} = Segment(S, A)