0°

90°

180°

270°

360°

1

0.5

-0.5

-1

1

0.5

-0.5

-1

B = Point(Ray[(0, 0), (-1, 0)])
A: B + (1, 0)
θ = 0.5235987755982988 rad (slider from 0 to 6.28318530717959, step 3*°)
P = Rotate(A, θ, B)
A' = Rotate(A, θ, B)
α = Angle(A, B, A')
A'_1 = Rotate(A, θ, B)
β = Angle(A, B, A'_1)
γ = 0.017453292519943295 rad
Q: (θ / (360 * γ) * 3, y(P))
f = Function(sin(120° * x), 0, x(Q))
e = Segment(Q, (x(Q), 0))
text1: "" + θ + ""
c = Circle(B, A)
a = Segment(B, P)
u = Vector((x(B), y(Corner[1])), (x(B), y(Corner[4])))
w = Vector((0, y(Corner[1])), (0, y(Corner[4])))
z = Vector((0, 0), (x(Corner[2]), 0))
list1 = Sequence(Segment[(0.75 * i, 0), (0.75 * i, -0.025)], i, 1, 4)
A0 = (0, -0.025)
A1 = (0.75, -0.025)
A2 = (1.5, -0.025)
A3 = (2.25, -0.025)
A4 = (3, -0.025)
b = Segment(P, (x(P), 0))
v = Vector(B - (1.2, 0), B + (1.2, 0))
list2 = Sequence(Segment[(0, 0.5 * i - 1), (-0.025, 0.5 * i - 1)], i, 0, 4)
list3 = Sequence(Segment[(x(B), 0.5 * i - 1), (x(B) - 0.025, 0.5 * i - 1)], i, 0, 4)
d = Segment(P, Q)
list4 = Sequence(Segment[B + (0.5 * i - 1, 0), B + (0.5 * i - 1, -0.025)], i, 0, 4)
text2: "" + (y(P)) + ""
B_1 = Point(Ray[(0, 0), (-1, 0)])
A_1: B_1 + (1, 0)
P_1 = Rotate(A_1, θ, B_1)
A'_2 = Rotate(A_1, θ, B_1)
A'_3 = Rotate(A_1, θ, B_1)
text1_1: "" + θ + ""
c_1 = Circle(B_1, A_1)
a_1 = Segment(B_1, P_1)
text2_1: "" + (y(P_1)) + ""