Pascal-Schnecken-Inversion
Author: Prof. Dr. Dörte Haftendorn
Date: März 06

Ziehe an t oder bewege t mit den Pfeiltasten.
Variiere k

r(t)=cos(t)+k

Ha 06

k = 0.9000000000000004 (slider from -5 to 5, step 0.1)
t = 4.21 (slider from 0 to 6.283185307179586, step 0.01)
F: (t, 0)
d = Circle(F, 1)
r: cos(t) + k
Q: (t, r)
g = Line(Q, F)
e = Polar(Q, d)
O = (0, -2.7755575615628914E-17)
P: (r cos(t), r sin(t))
h = Line(P, O)
b = Segment(P, O)
c = Circle(O, 1)
a = Segment(Q, F)
f = Polar(P, c)
P' = Intersect(f, h)
Q' = Intersect(e, g)
wink: t / 3.141592653589793 * 180 °
T1: "Winkel= " + wink
fi(x) = 1 / (cos(x) + 1)