Das gelbe Dreieck
Author: Anita Dorfmayr und Walter Klinger
Date: 2.10.2005

Gegeben sind je drei gleich lange Strecken. Du kannst jede Strecke bei den Endpunktenanfassen und so verschieben und drehen.  1. Schritt: Erzeuge mit diesen Strecken drei Dreiecke. Verwende dabei jeweils drei Strecken von unterschiedlicher Länge.  2. Schritt: Das gelbe Dreieck kannst du auch verschieben und drehen. Beobachte, was passiert, wenn du den Drehpunkt schnell nach unten ziehst? Probiere das aus!  3. Schritt: Lege das gelbe Dreieck über jedes deiner Dreiecke und vergleiche sie. Was erkennst du?

Schreibe auf, was bei diesen vier Dreiecken gleich ist.

a = 3
b = 4
c = 5
B_1 = (-6, 10)
C_2 = Point(Circle[B_1, a])
d = Segment(B_1, C_2)
B_2 = (-6, 9.5)
C_1 = Point(Circle[B_2, a])
e = Segment(B_2, C_1)
B_3 = (-6, 9)
C_3 = Point(Circle[B_3, a])
f = Segment(B_3, C_3)
A_1 = (-6, 8)
C_4 = Point(Circle[A_1, b])
g = Segment(A_1, C_4)
A_2 = (-6, 7.5)
C_5 = Point(Circle[A_2, b])
h = Segment(A_2, C_5)
A_3 = (-6, 7)
C_6 = Point(Circle[A_3, b])
i = Segment(A_3, C_6)
A_4 = (-6, 6)
B_4 = Point(Circle[A_4, c])
j = Segment(A_4, B_4)
A_5 = (-6, 5.5)
B_5 = Point(Circle[A_5, c])
k = Segment(A_5, B_5)
A_6 = (-6, 5)
B_6 = Point(Circle[A_6, c])
l = Segment(A_6, B_6)
Schieben = (13.9, 6.3)
Drehen = Point(Circle[Schieben, c])
m = Segment(Schieben, Drehen)
p = Circle(Schieben, b)
q = Circle(Drehen, a)
C = Intersect(p, q, 2)
P, c_1, a_1, b_1 = Polygon(Schieben, Drehen, C)