liugur1 = -2.45 (slider from -5 to 5, step 0.05)
liugur2 = 5 (slider from -5 to 5, step 0.05)
A = (-4, 0)
B = (-2.32, 0)
A' = Rotate(A, liugur2, B)
α = Angle(A, B, A')
c = Circle(B, A)
b = Line(A', B)
C = Intersect(c, b, 2)
d = Segment(A', C)
D = Point(xAxis)
E = (-20, 1.68)
e = Circle(D, E)
f_{1} = Line(E, D)
F = Intersect(e, f_{1}, 2)
v = Vector(F, E)
f(x) = sin((liugur1 * x))
u = Vector(A', C)
G = Point(c)
h_{1} = Line(G, yAxis)
β = Angle(C, B, G)
g(x) = If[-30 ≤ x ≤ -2.32, f(x)]
h(x) = (sqrt((cos(β))^(2)) * sin((liugur1 * x)))
k(x) = If[-2.32 ≤ x ≤ 15, h(x)]
tekst1: "Laine võnkesagedus=" + liugur2 + ""
tekst2: "Polariseeriate vaheline nurk=" + liugur1 + ""