Schweizerkreuz-Quadrat Lösung
Author: Prof. Dr. Haftendorn
Date: Nov. 05

Anregung A. Gächter, SChweiz, in Mahematik-Lehren 132 Okt 05

O = Intersect(xAxis, yAxis)
A = Point(xAxis)
B = (1, 1)
C = (0, 1)
P, o, a_1, b_1, c_1 = Polygon(O, A, B, C)
t = 0.33000000000000007
X: (t, 0)
d = Segment(C, X)
X_1: (1, t)
X_2: (1 - t, 1)
X_3: (0, 1 - t)
e = Segment(O, X_1)
f_2 = Segment(A, X_2)
g = Segment(B, X_3)
D = Intersect(d, e)
E = Intersect(e, f_2)
F = Intersect(f_2, g)
G = Intersect(g, d)
Q, a, e_1, f_1, g_1 = Polygon(D, E, F, G)
b = Segment(O, D)
c = Segment(X, D)
R, d_1, o_1, x = Polygon(O, X, D)
S, e_2, a_2, x_1 = Polygon(A, X_1, E)