Goldenes Rechteck
Author: Haftendorn
Date: Jan 05

Goldenes Rechteck: Nach Abspaltung des Quadrates

bleibt ein Rechteck mit gleichem Seitenverhältnis übrig.

Variiere k mit den Pfeiltasten

Ziel ist: k=ver, also differenz=0

Ha 1/05

A = Intersect(xAxis, yAxis)
B = Point(yAxis)
k = 1.62
C: (k y(B), y(B))
D: (k y(B), 0)
P, a, b, c, d = Polygon(A, B, C, D)
e = Circle(A, B)
f = Line(A, D)
E, F = Intersect(e, f)
g = OrthogonalLine(F, xAxis)
G = Intersect(b, g)
ver: y(B) / (x(D) - x(F))
differenz: k - ver
h = Segment(G, F)