συμβολή κυμάτων
Author: jt
Date: 12 Δεκέμβριος 2014

Μετακίνησε το σημείο Α και παρατήρησε την αλλαγή στη διαφορά των αποστάσεων και την επίδρασή της στο πλάτος της ταλάντωσης.
 

start

step

restart

εμφάνιση y(t)

A_y+

A_y-

A_x+

A_x-

v+

v-

A_2+

f2+

εμφάνιση y(t)

ναι

όχι

A_1 = 1 (slider from 0.5 to 2, step 0.5)
v = 1 (slider from 1 to 3, step 1)
t = 0 (slider from 0 to 20, step 0.01)
Β = Intersect(xAxis, yAxis)
A_x = 0 (slider from -7 to 7, step 0.05)
A_y = 2.760000000000001 (slider from -2 to 10, step 0.05)
Α: (A_x + 5, A_y)
Γ = Point(xAxis)
b = Line(Γ, Α)
Δ = Intersect(b, yAxis)
i = Line(Δ, Β)
Θ = Intersect(i, j)
ΘΔ = Distance(Θ, Δ)
ΘΒ = Distance(Θ, Β)
y_Δ: ΘΔ - ΘΒ
α_2 = Slope(b)
f1 = 1 (slider from 0.25 to 5, step 0.25)
A_2 = 1 (slider from 0.5 to 2, step 0.5)
f2 = 1 (slider from 0.25 to 5, step 0.25)
a = Line(Β, Α)
α_1 = Slope(a)
c = OrthogonalLine(Α, xAxis)
Η = Intersect(c, j)
Ε = Intersect(c, xAxis)
ΔΒ = Distance(Δ, Β)
y_1: Distance[Η, Α] - Distance[Η, Ε]
p = If(t > abs(x) / v * (1 + α_1^(2))^(0.5), If[x > 0, A_1 * sin(2 * π * f1 * (t - x / v * (1 + α_1^(2))^(0.5))) + α_1 * x, A_1 * sin(2 * π * f1 * (t + x / v * (1 + α_1^(2))^(0.5))) + α_1 * x], α_1 * x)
f = If(t > abs(x - 10) / v * (1 + α_2^(2))^(0.5), If[x < 10, A_2 * sin(2 * π * f2 * (t + (x - 10) / v * (1 + α_2^(2))^(0.5))) + α_2 * x + y_Δ, A_2 * sin(2 * π * f2 * (t - (x - 10) / v * (1 + α_2^(2))^(0.5))) + α_2 * x + y_Δ], α_2 * x + y_Δ)
g(x) = f(x) + p(x) - y_1
Ζ = Intersect(g, c, (5, 2.759999999999991))
ΖΒ = Distance(Ζ, Β)
ΖΓ = Distance(Ζ, Γ)
ΑΒ = Distance(Α, Β)
ΑΓ = Distance(Α, Γ)
e: ΑΒ - ΑΓ
Λ = Point(p)
Κ = Point(f)
κείμενο2: "Δr=" + e + ""
ΖΑ = Distance(Ζ, Α)
ΕΖ = Distance(Ε, Ζ)
ΕΑ = Distance(Ε, Α)
y_Z: Distance[Η, Ζ] - Distance[Η, Α]
λ_1: v / f1
λ_2: v / f2
r: ΑΒ + ΑΓ
max = Max(ΑΒ, ΑΓ)
min = Min(ΑΒ, ΑΓ)
κείμενο1: "λ_1=" + λ_1 + "  λ_2=" + λ_2 + ""
q1 = If(x < t, If[x > ΑΒ / v, A_1 * sin(2 * π * (f1 * x - ΑΒ / λ_1)), 0], 0)
q2 = If(x < t, If[x > ΑΓ / v, A_1 * sin(2 * π * (f2 * x - ΑΓ / λ_2)), 0], 0)
q = If(0 ≤ x < 15, q1(x) + q2(x) - 5)
Ι = (0, -2.4958725851853067)
Μ = (0, -6.495872585185307)
y_A = Segment(Μ, Ι)
Ν = Point(q)
Ξ = (15.1460765270902, -4.986249910677445)
h = Segment(Ν, Ξ)
Ο = (-0.7, -2.1)
Π = (15.15, -2.1)
Ρ = (15.15, -7.5)
Σ = (-0.7, -7.5)
πολύγ1, ο, π, ρ, σ = Polygon(Ο, Π, Ρ, Σ)
d = false
text1: "A_1=" + A_1 + ""
text2: "f1=" + f1 + ""
text3: "f2=" + f2 + ""
text4: "A_2=" + A_2 + ""