Pascal-Schnecken
Author: Dörte Haftendorn
Date: Okt 04

Ergänzt Jan 09

Ziehe Q,
variiere k

Ort

Ha 04

r = 5
B = Intersect(xAxis, yAxis)
A = Point(xAxis)
c = Circle(A, r)
Q = Point(c)
g = Line(Q, B)
k = 7 (slider from 0 to 12, step 0.1)
kr: (x - x(Q))^(2) + (y - y(Q))^(2) = k^(2)
C, P = Intersect(kr, g)
Leine = Segment(Q, P)
loc1 = Locus(P, Q)
a = false