A_1 = 1.9 (slider from 0 to 5, step 0.1)
J = Intersect(xAxis, yAxis)
I = Point(xAxis)
n = Segment(J, I)
φ_1 = 4.4505895925855405 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
A = Point(yAxis)
ω = 0.58 (slider from 0 to 3, step 0.01)
a = 0.398 (slider from 0 to 1, step 0.0010)
β: a * 2.0 * 3.141592653589793
λ: 2.0 * 3.141592653589793 / ω
D = (30, 0)
B = Point(yAxis)
C = Point(yAxis)
φ_2 = 3.473205211468716 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
A_2 = 5 (slider from 0 to 5, step 0.1)
Cosine_2 = CurveCartesian(t, y(B) + A_2 * cos(ω * t + φ_2 - β), t, 0.0, x(I))
c = Circle(D, A_1)
d = Circle(D, A_2)
E = Point(n)
φ_∆: x(E) / λ * 360.0°
U_2: D + (A_2; 3.141592653589793 / 2.0 - φ_2 + β - φ_∆)
u_2 = Vector(D, U_2)
U_1: D + (A_1; 3.141592653589793 / 2.0 - φ_1 + β - φ_∆)
u_1 = Vector(D, U_1)
a_1 = OrthogonalLine(E, xAxis)
Cosine_1 = CurveCartesian(t, y(A) + A_1 * cos(ω * t + φ_1 - β), t, 0.0, x(I))
W_1: Cosine_1(x(E))
W_2: Cosine_2(x(E))
b = OrthogonalLine(W_2, yAxis)
e = OrthogonalLine(W_1, yAxis)
U_Σ: D + (A_1; 3.141592653589793 / 2.0 - φ_1 + β - φ_∆) + (A_2; 3.141592653589793 / 2.0 - φ_2 + β - φ_∆)
u_∑ = Vector(D, U_Σ)
poly1, d_1, u_3, u_ς, u_4 = Polygon(D, U_1, U_Σ, U_2)
Cosine_Σ = CurveCartesian(t, y(C) + A_2 * cos(ω * t + φ_2 - β) + A_1 * cos(ω * t + φ_1 - β), t, 0.0, x(I))
W_3: Cosine_Σ(x(E))
f = OrthogonalLine(W_3, a_1)
A_Σ: sqrt((A_1 + A_2 * cos(φ_2 - φ_1))^(2.0) + (A_2 * sin(φ_2 - φ_1))^(2.0))
g = Circle(D, A_Σ)
h = OrthogonalLine(C, a_1)
i = OrthogonalLine(A, a_1)
j = OrthogonalLine(B, a_1)
F = Intersect(a_1, h)
G = Intersect(i, a_1)
H = Intersect(j, a_1)
k = Ray(C, F)
l = Ray(A, G)
m = Ray(B, H)
u = Vector(F, W_3)
v = Vector(G, W_1)
w = Vector(H, W_2)