c=1

0°     20°     40°    60°     80°   100°   120°  140°  160°   180°   200°  220°  240°  260°   280°  300°   320°  340°   360°

1 -

0.5 -

α_R = 0 (slider from 0 to 360, step 0.1)
bog: ((α_R * 2) * π / 360)
A = Intersect(xAxis, yAxis)
c_2 = Circle(A, 2.5)
B = Intersect(c_2, xAxis, 2)
B' = Rotate(B, bog, A)
α = Angle(B, A, B')
f = OrthogonalLine(B', xAxis)
C = Intersect(f, xAxis)
Vieleck1, b', a, c = Polygon(A, C, B')
g = Line(B', xAxis)
x_1: 4 + (α_R / 360 * 18)
P: (x_1, y(B'))
y_1: y(B') / 2.5
Text1: "P(" + α_R + "|" + y_1 + ")"
h = OrthogonalLine(P, xAxis)
D = Intersect(h, xAxis)
i = Segment(P, D)
b = Segment(A, C)
Text2: "sin(" + α_R + "°)=" + y_1 + ""
Text4: "Q( " + α_R + "|?)"
Text5: "cos(" + α_R + "°)=?"