Parallelgerade
Author: Mag. G. Wengler

Die (rote) Gerade soll parallel zur blauen Gerade sein. Das Geodreieck soll eine kleine Hilfe sein.
Überlege, wie die beiden (roten) Punkte liegen müssen.

PARALLEL

Bewege mich

neue Aufgabe

B: (Random[-10, 10], Random[-10, 10])
A: (Random[-6, 6], Random[-6, 6])
a = Segment(A, B)
C = (0, 0)
D = (5, 9)
b = Line(C, D)
E = (-5, 10)
c = Line(B, A)
s: b ∥ c
Meldung = If(s, Text["Hurra, ich bin parallel!", E])
w: atan(y(D) / x(D))
k: (y(B) - y(A)) / (x(B) - x(A))
d: y(A) - k * x(A)
Bild2 = If(d ≥ 0, Rotate[Bild1, w, D], Rotate[Bild1, w + 180°, D])
Bild3 = If(d ≥ 0, Rotate[Bild1, w, D], Rotate[Bild1, w + 180°, D])