Besondere Scherung mit goldenem Schnitt
Author: Prof. Dr. Dörte Haftendorn

Diskussion aus Arens: Mathematik / 718 
Erzeugung der Ellipse geometrisch aus der Scherung der Einheitskreises.  Beachte Scherung-golden.pdf

A = Point(xAxis)
O = Intersect(xAxis, yAxis)
c = Circle(O, A)
B = (1, 1)
C = (-1, -1)
D = Point(c)
P = Point(c)
a = OrthogonalLine(P, xAxis)
F = Intersect(a, xAxis)
E' = Rotate(P, 315.0*°, F)
b = Line(F, E')
d = OrthogonalLine(P, a)
P' = Intersect(d, b)
e = Segment(F, P')
f = Segment(P, F)
g = Conic(C, D, P', B, A)
F_1, F_2 = Focus(g)
h = Line(F_1, F_2)
H = Intersect(g, h, 2.0)
i = OrthogonalLine(O, h)
I, J = Intersect(g, i)