transverse waves
Author: Φ. Ζαφειριάδης

F. Zafiriadis

fzafiriadis@sch.gr

phase of source

phase of point Κ

t = 36.6 (slider from 0 to 60, step 0.1)
A = 3 (slider from 1 to 5, step 0.5)
T = 2.5 (slider from 1 to 10, step 0.5)
λ = 3 (slider from 1 to 4, step 0.5)
υ_κ: λ / T
f = If(x < 0, 1000, If[x > υ_κ * t, 0, A * sin(2 * 3.141592653589793 * (t / T - x / λ))])
y1: A * sin(2 * 3.141592653589793 * t / T)
fasi_p: 2 * t / T
d = 1.6 (slider from 0 to 20, step 0.1)
Κ: (d, f(d))
fasi = If(d ≤ υ_κ * t, 2 * (t / T - d / λ), 0)
a = true
κείμενο4: "φ_π = " + fasi_p + "π rad"
b = true
κείμενο3: "wavelength: λ = " + λ + " cm
period: Τ = " + T + " sec
amplitude: Α = " + A + " cm

speed:  v = " + υ_κ + " cm/s"
κείμενο5: "phase of point Κ: φ = " + fasi + "π rad"
κείμενο6: "position  of  point Κ,  x = " + d + " cm"
Γ: (0, y1)
Β: (-0.15, y1)
c = Segment(Γ, Β)
e = Segment(Γ, Β)