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

Diskussion Arens: Mathematik /718
Das Urbild des Einheitskreises wird hier geometrisch exakt erzeugt. 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)
d = OrthogonalLine(P', a)
f = Segment(P', F)
H = Rotate(P', 45.0*°, F)
b = Line(F, H)
P = Intersect(d, b)
E = (-1, 1)
G = (1, -1)
e = Conic(E, P, A, G, D)
F_1, F_2 = Focus(e)
g = Line(F_2, O)
K = Intersect(e, g, 2.0)
h = OrthogonalLine(O, g)
h_1 = Vector(O, K)
I, J = Intersect(e, h)
h_2 = Vector(O, I)
i = Segment(P, F)