Start

Stop

Reset

StepbyStep

x(x,t)=A·sin(ω ·(t-\frac{x}{v}))

x

Kugelwellen

v: 3
λ: 10
f: v / λ
A: 0.9
t = 30 (slider from 0 to 30, step 0.01)
T: 1 / f
g(x) = If[t - x / v > 0, (A * sin((((2 * π) * f) * (t - x / v)))), 0]
dt: 0.1
Text1: "T=" + T + " s"
Text2: "f= " + f + " Hz"
ω: ((2 * π) * f)
Text3: "ω=2 π f=" + (LaTeX[ω]) + " \frac{1}{s}"
w = Vector((0, 0), (31, 0))
L_1 = Sequence(Point[{(i + g(i), 0)}], i, 0, 30, 1)
O = Point(w)
a: t / T - floor(T - t)
L_2 = Sequence(Circle[O, ((t - (i * T)) * v)], i, 0, 30, 1)
b = false