R

t

https://www.geogebra.org/haftendorn
Haftendorn, Buch (Springer):
Kurven erkunden und verstehen
Kap 8.3.2: S. 247
www.kurven-erkunden-und-verstehen.de

Ha 2016

anderes A

ρ

ziehe Q

Aliste: {2.4, 2.5, 3, 4, 2.2, 2.1}
a_w: (4 / π * 180)
b: tan(4)
C = Point(xAxis)
O: (0, 0)
c = Circle(O, C)
A: (Element[Aliste, Random[1, 6]], 0)
d = Segment(C, A)
e = Circle(O, A)
Q = Point(e)
f = Circle(Q, d)
g = Line(O, Q)
D, E = Intersect(c, g)
t_b = CircleArc(O, C, E)
R: x(C)
ρ: x(A) - x(C)
α: (t_b / ((ρ * π)) * 180)
P = Rotate(E, α°, Q)
t = Angle(E, Q, P)
h = CircleArc(Q, E, P)
i = Segment(Q, P)
Ortslinie1 = Locus(P, Q)
j = Ray(Q, P)
k = 1.8 (slider from 0 to 5, step 0.05)
p = Circle(Q, (k * ρ))
P_k = Intersect(p, j)
l = Segment(Q, P_k)
m = Segment(Q, E)
Ortslinie2 = Locus(P_k, Q)
q = Circle(Q, E)
n = Segment(E, O)
β = Angle(C, O, E)
o = false
r = Segment(Q, P)