Winkel α 

sinα =

cosα = 

A = Intersect(xAxis, yAxis)
c = Circle(A, 1)
B = Intersect(c, xAxis, 2)
α_1 = 0.9250245035569946 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
P = Rotate(B, α_1, A)
α = Angle(B, A, P)
a = Segment(A, P)
b = OrthogonalLine(P, xAxis)
C = Intersect(b, xAxis)
sinα = Segment(P, C)
cosα = Segment(A, C)
X: (0, y(P))
Y: (x(P), 0)
d = Segment(X, A)
text2: sinα + ""
e = Segment(X, P)
text5: cosα + ""
poly1, p, a_1, c_1 = Polygon(A, C, P)