Irrationale Zahlen
Author: 13.07.2011

Quadrat drehen

a_2 = ?

a = 1 cm

?

A = 1 cm²

Wie lang ist die Seite des roten Quadrats?

D = Point(yAxis)
α = 0.7853981633974483 rad (slider from 0 to 0.7853981633974483, step 0.017453292519943295)
E = Point(xAxis)
E' = Rotate(E, α, D)
β = Angle(E, D, E')
a_4 = Segment(D, E')
c = Circle(D, 1.4142135)
A = Intersect(c, a_4)
d = OrthogonalLine(A, a_4)
e = OrthogonalLine(D, a_4)
B_1, C = Intersect(c, e)
f = OrthogonalLine(C, e)
B = Intersect(f, d)
Vieleck1, a_1, f_1, d_1, a_2 = Polygon(A, B, C, D)
F = Point(yAxis)
G = Point(xAxis)
H = (1, 1)
I = Point(yAxis)
J = Point(xAxis)
Vieleck2, h, i, d_2, a = Polygon(H, I, D, J)
b = Segment(A, C)
g = Segment(B, D)
K = (-1, 1)
L = Point(yAxis)
M = Point(yAxis)
Vieleck3, m, k, l = Polygon(K, L, M)
N = Intersect(l, m)
O = (-1, 2)
P = Point(l)
Vieleck4, p, n, o = Polygon(N, O, P)