A = Point(yAxis)
B = Point(xAxis)
b_1 = Length(Vector[Vector[A, B]])
a_1 = OrthogonalLine(B, xAxis)
c = Circle(B, b_1 / 2.0)
C = Intersect(c, a_1, 2.0)
d = Segment(A, C)
e = Circle(C, B)
D = Intersect(e, d, 1.0)
f = Circle(A, D)
T = Intersect(f, g, 2.0)
a = Segment(A, T)
b = Segment(B, T)
h: a / b
Text1: "Goldener \quad Schnitt: \quad a/b \approx " + h