golden point

κάντε κλίκ σε ένα δοσμένο τμήμα

a = Segment(A, B)
C = Midpoint(a)
C' = Rotate(C, 270.0*°, B)
c = Circle(C', Segment[B, C'])
d = Line(A, C')
D = Intersect(c, d, 1.0)
e = Circle(A, Segment[D, A])
E = Intersect(e, a, 1.0)