Ellpipse als affines Bild des Kreises
Author: Haftendorn
Date: Apr. 05

Ha 05

Ellipse als affines Bild des Kreises

Variiere k und r

Achsenstreckung (~stauchung) einfach ausgerechnet

r = 6
c: x^(2) + y^(2) = r^(2)
Q = Point(xAxis)
a = OrthogonalLine(Q, xAxis)
B, C = Intersect(c, a)
k = 1.2 (slider from 0 to 2, step 0.05)
P: (x(Q), k * y(C))
loc1 = Locus(P, Q)
P' = Mirror(P, Q)
loc2 = Locus(P', Q)