Gegeben: Streckzentrum Z und Punkt P,
                   ferner Gerade AB mit Punkt T, wobei die
                   Strecke von Z nach P im Verhältnis
                   Länge[AT] zu Länge[AB] gestreckt werden soll.

1. Gerade ZP

2. Verschiebe A, P, T gemäß
    Bildpunkte A_1=Z, B_1, T_1
    (siehe Extra-Anleitung Verschiebung)

 \vec{ AZ } 

3. Gerade PB_1

5. P_1 ist Schnittpunkt der Geraden g mit ZP

4. Parallele g zu PB_1 durch T_1
    (siehe Extra-Anleitung Parallelen)

P_1 ist der gesuchte Punkt

Zentrische Streckung (Strecken-Vorgabe)

v 1.0 (haj)

Bei >Schritte< mit der Maus ziehen!

Z = (-2, 6)
A = (0, 0)
B = (3, 0)
T = (5, 0)
P = (3, 4)
ZP = Line(Z, P)
B_1: B + Vector[A, Z]
T_1: T + Vector[A, Z]
PB_1 = Line(B_1, P)
g = Line(T_1, PB_1)
P_1 = Intersect(g, ZP)
k_1 = Circle(B, Distance[A, Z])
k_2 = Circle(Z, Distance[A, B])
k_3 = Circle(T, Distance[A, Z])
k_4 = Circle(Z, Distance[A, T])
k_5 = Circle(P, Distance[B_1, T_1])
k_6 = Circle(T_1, Distance[B_1, P])
C, Q = Intersect(k_5, k_6)
Schritte = 0 (slider from 0 to 6, step 1)