Leitgeradenkonstruktion aller Kegelschnitte
Author: Prof. Dr. Dörte Haftendorn

Variiere k

FP= k*QA

Ha 08

F = Point(yAxis)
O = Intersect(xAxis, yAxis)
A = Mirror(F, O)
a = OrthogonalLine(A, yAxis)
Q = Point(yAxis)
e = OrthogonalLine(Q, a)
f = OrthogonalLine(Q, e)
b = Segment(Q, A)
k = 0.7000000000000001
c = Circle(F, k b)
P, P' = Intersect(c, f)
loc1 = Locus(P, Q)
loc2 = Locus(P', Q)
d = Segment(P, F)
T1: "k = " + k