Goldener Schnitt - Konstruktionsbeschreibung

A = (1, 1)
B = (11, 1)
s = Segment(A, B)
m = LineBisector(A, B)
M = Intersect(s, m)
a = OrthogonalLine(B, s)
c = Circle(B, M)
C, C_2 = Intersect(c, a)
s_H = Segment(B, C)
b = Segment(A, C)
d = Circle(C, B)
D_2, D = Intersect(d, b)
e = Circle(A, D)
T, T_2 = Intersect(e, s)
x_s = Segment(D, A)