adv
Author: asd

\frac {E_2}{2}

E_2

E_1

E_Σ

Результат сложения
обеих волн

φ = 3.12413936106985 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
S_2 = Point(yAxis)
λ = 4.26 (slider from 1 to 10, step 0.01)
j = 1.4 (slider from 1 to 2, step 0.1)
A = 3.87 (slider from 0 to 5, step 0.01)
A1: A
S_1 = Point(yAxis)
A2: A
B_1: (0.0, y(S_1) - j * A2)
B_2: B_1 + (1.0, 0.0)
a = Ray(B_1, B_2)
F_1 = Point(a)
F_5: (x(F_1 + 1.0), y(F_1))
g = Ray(F_1, F_5)
F_2 = Point(g)
i = OrthogonalLine(F_2, xAxis)
Z_1 = Intersect(i, xAxis)
Z_2: (x(Z_1) + 1.0, y(Z_1))
k = Ray(Z_1, Z_2)
screen = Point(k)
Δy: y(S_1)
n = 2.26 (slider from 1 to 5, step 0.01)
λ_1: λ / n
F_3: (x(F_1), y(F_1) + 2.0 * j * A2)
F_4: (x(F_2), y(F_3))
poly1, b, c, e, f = Polygon(F_1, F_2, F_4, F_3)
φ_1: φ - x(F_1) / λ * 360.0°
d: x(F_2) - x(F_1)
φ_2: φ_1 - d / λ_1 * 360.0°
Y_2 = CurveCartesian(t, A2 * cos(2.0 * 3.141592653589793 / λ * t - φ) + Δy, t, 0.0, x(F_1))
Y_3 = CurveCartesian(t + x(F_1), A2 * cos(2.0 * 3.141592653589793 / λ_1 * t - φ_1) + Δy, t, 0.0, d)
Y_4 = CurveCartesian(t + x(F_2), A2 * cos(2.0 * 3.141592653589793 / λ * t - φ_2) + Δy, t, 0.0, x(screen) - x(F_2) + 2.0)
h = OrthogonalLine(screen, xAxis)
Y_1 = CurveCartesian(t, A1 * cos(2.0 * 3.141592653589793 / λ * t - φ) + y(S_2), t, 0.0, x(screen) + 2.0)
D_2: Y_1(x(screen))
D_1: Y_4(x(screen) - x(F_2))
S_{11}: (x(S_1) + 1.0, y(S_1))
r_1 = Ray(S_1, S_{11})
S_{21}: (x(S_2) + 1.0, y(S_2))
r_2 = Ray(S_2, S_{21})
D_{11} = Intersect(r_1, h)
D_{21} = Intersect(r_2, h)
E_1 = Vector(D_{11}, D_1)
E_2 = Vector(D_{21}, D_2)
φ_3: φ_1 - d / λ * 360.0°
Δφ: φ_2 - φ_3
text1: "Сдвиг \,\, фазы \,\,  первой \,\, волны \,\, относительно \,\,  второй \,\, \,\, ∆φ =" + Δφ
text2: "Толщина \,\, пластинки  \,\, d =" + d
D_3: screen
D_4: (x(D_3) + 7.0, y(D_3))
E_5 = Translate(D_4, E_2)
E_4 = Vector(D_4, E_5)
D_5 = Translate(E_5, E_1)
E_3 = Vector(E_5, D_5)
E_6: E_4 + E_3
E_7 = Vector(E_6)
B = Translate(D_4, E_7)
D_6: (x(D_5) + 1.0, y(D_5))
D_7: (x(D_4) + 1.0, y(D_4))
E_Σ = Vector(D_7, D_6)
screen' = Translate(screen, E_Σ)
u = Vector(screen, screen')
l = OrthogonalLine(F_2, xAxis)
Y_5 = CurveCartesian(t + x(F_2), A2 * (cos(2.0 * 3.141592653589793 / λ * t - φ_2) + cos(2.0 * 3.141592653589793 / λ * t - φ_2 + Δφ)), t, 0.0, x(screen) - x(F_2) + 2.0)
Z: Y_5(0.0) - (5.0, 0.0)