1

\frac{ π }{2 } 

π

 \frac{ 3π }{2 } 

2π

-  \frac{ π }{ 2} 

- π

-  \frac{ 3π }{2 } 

-2π

sinus

cosinus

J

J'

I'

I

k = 0 (slider from 0 to 1, step 0.01)
W = (1, 0)
d = OrthogonalLine(W, xAxis)
M = Point(d)
a: y(M)
O = (0, 0)
c_2 = Circle(O, W)
M' = Rotate(W, a, O)
M_1 = If(a > 0.0, (cos(a * k) - a * (1.0 - k) * sin(a * k), sin(a * k) + a * (1.0 - k) * cos(a * k)), (cos(a * k) - a * (1.0 - k) * sin(a * k), sin(a * k) + a * (1.0 - k) * cos(a * k)))
f = CurveCartesian(cos(a * t) - a * (1.0 - t) * sin(a * t), sin(a * t) + a * (1.0 - t) * cos(a * t), t, 0.0, k)
b = Segment(W, M)
T: (1.0; k * a)
e = Segment(M_1, T)
g = If(a > 0.0, Arc[c_2, W, T], Arc[c_2, T, W])
h = CurveCartesian(If[a > 0.0, cos(a * k * t) - a * (1.0 - k * t) * sin(a * k * t), cos(a * k * t) - a * (1.0 - k * t) * sin(a * k * t)], If[a > 0.0, sin(a * k * t) + a * (1.0 - k * t) * cos(a * k * t), sin(a * k * t) + a * (1.0 - k * t) * cos(a * k * t)], t, 0.0, 1.0)
T1: "(" + (y(M)) + ")"
i = OrthogonalLine(M', yAxis)
j = OrthogonalLine(M', xAxis)
s = Intersect(i, yAxis)
c = Intersect(j, xAxis)
l = Segment(M', s)
m = Segment(M', c)
p = Segment(O, s)
q = Segment(O, c)
A, B = Intersect(c_2, yAxis)
r = OrthogonalLine(A, yAxis)
C = Intersect(d, r)
t = Segment(A, C)
text1: "" + (y(s))
text4: "" + (x(c))
u = UnitVector(d)
list1 = Sequence(n * 3.14 / 2.0 * u + W, n, -20.0, 20.0)
n = true
o = true
D = Intersect(c_2, xAxis, 2.0)