α

α/n

B

C

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

Ha 2016

a = 0.6
r(x) = (a * x)
b = CurveCartesian((r(t) * cos(t)), (r(t) * sin(t)), t, 0, 40)
A = Point(xAxis)
O: (0, 0)
α = 1.412354372069645 rad (slider from 0 to 6.283185307179586, step 1)
A' = Rotate(A, α, O)
β = Angle(A, O, A')
f = Ray(O, A')
B: (((a * 2) * π) + (a * α); α)
n = 5 (slider from -5 to 10, step 1)
pktli = Sequence(((a * ((2 * π) + (i * α / n))); α), i, 0, n)
kreisli = Sequence(Circle[O, ((2 * π) * a) + ((a * (i - 1)) * α / n)], i, 1, n + 1)
schnittli = Sequence((((a * 2) * π) + ((a * i) * α / n); (i * α / n)), i, 0, n)
g = Ray(O, Element[schnittli, 2])
γ = Angle(A, O, Element[schnittli, 2])
Text2: "n=" + (LaTeX[n]) + ""
c = false