Next(l) = 1.0 / 2.0 * (l + 2.0 / l)
S = Point(xAxis)
a = OrthogonalLine(S, xAxis)
A = Intersect(Next, a, (15.851612456278364, 7.988891293002973))
c = Line(A, xAxis)
B = Intersect(m_1, c)
d = OrthogonalLine(B, xAxis)
C = Intersect(d, xAxis)
D = Intersect(Next, d, (7.988891293002973, 4.11961946140567))
v = Vector(A, B)
w = Vector(B, D)
f = Segment(S, A)
E, F, G, H, b, u, z = Stufe(C, Next, m_1)
I, J, K, L, e, g, h = Stufe(G, Next, m_1)
M, N, O, P, i, j, k = Stufe(K, Next, m_1)

Tool: Stufe
Input: S, Next, b
Output: A, B, C, D, f, v, w

Next(l) = 1.0 / 2.0 * (l + 2.0 / l)
a = OrthogonalLine(S, xAxis)
A_1 = Intersect(Next, a, (2.3025505977582563, 1.5855762870848125))
A = Intersect(Next, a, (2.3025505977582563, 1.5855762870848125))
c = Line(A, xAxis)
B_1 = Intersect(b, c)
B = Intersect(b, c)
d = OrthogonalLine(B, xAxis)
C = Intersect(d, xAxis)
D = Intersect(Next, d, (1.5855762870848125, 1.4234736603134515))
v = Vector(A, B)
w = Vector(B, D)
f = Segment(S, A)