wave
Author: jt ΕΚΦΕ ΚΑΛΛΙΠΟΛΗΣ

y(x)

y(t)

φ(x)

φ(t)

v+

v-

fr+

fr-

X_A+

X_A-

X_B+

X_B-

φάσεις

y(t)

start

restart

step

ναι

όχι

ναι

όχι

εμφάνιση φάσεων

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

fr = 0.5 (slider from 0.25 to 2, step 0.25)
v = 2 (slider from 1 to 5, step 1)
λ: v / fr
t = 0 (slider from 0 to 20, step 0.0050)
X_A = 2.5 (slider from -5 to 5, step 0.1)
H: (X_A, -1)
a = OrthogonalLine(H, xAxis)
g = If(x / λ < fr * t, sin(2 * π * (fr * t - x / λ)), 0)
A = Intersect(g, a, (2.5, 0))
Ο = Intersect(g, yAxis, (0, 0))
X_B = 7.9 (slider from 3 to 8, step 0.1)
E: (X_B, -1)
b = OrthogonalLine(E, xAxis)
B = Intersect(g, b, (7.9, 0))
T: 1 / fr
κείμενο1: "Τ=" + T + ""
κείμενο4: "λ=" + λ + ""
φ: 2 * abs(X_A - X_B) / λ
κείμενο6: "Δφ_Α_Β=" + φ + "π"
g_1 = If(x / λ < fr * t, 2 * π * (fr * t - x / λ) + 12, 12)
f0 = If(0 < x < t, sin(2 * π * fr * x) + 6)
f0_1 = If(0 < x < t, 2 * π * fr * x + 6)
f_Γ1 = If((X_A / λ < fr * x) ∧ (fr * x < fr * t), 2 * π * (fr * x - X_A / λ) + 6)
f_Γ = If((X_A / λ < fr * x) ∧ (fr * x < fr * t), sin(2 * π * (fr * x - X_A / λ)) + 6)
f_Δ1 = If((X_B / λ < fr * x) ∧ (fr * x < fr * t), 2 * π * (fr * x - X_B / λ) + 6)
f_Δ = If((X_B / λ < fr * x) ∧ (fr * x < fr * t), sin(2 * π * (fr * x - X_B / λ)) + 6)
e = false
f = false
κείμενο5: "v=" + v + ""
κείμενο9: "  X_A=" + X_A + ""
κείμενο10: "   X_B=" + X_B + ""
κείμενο11: "f=" + fr + ""