rød bølge: kildefelt

grøn bølge: resulterende felt (kilde+atomer)

atom 1

atom 2

atom 3

atom 4

atom 5

kamp = 1.5 (slider from 0 to 3)
aamp = 0.5 (slider from -3 to 3)
df: atand(aamp / kamp)
tid = -2.141592653589793 (slider from (-π) to π)
p(x) = If[6 ≤ x ≤ 16, (-0.2 * sin(x - tid))]
A = (3, 1)
c = Circle(A, 0.2)
A_1 = (0, 2)
c_1 = Circle(A_1, 0.2)
A_2 = (6, 0)
c_2 = Circle(A_2, 0.2)
A_3 = (9, -1)
c_3 = Circle(A_3, 0.2)
A_4 = (12, -2)
c_4 = Circle(A_4, 0.2)
kilde(x) = (kamp * cos((2 * x) - tid)) + 4
q(x) = If[9 ≤ x ≤ 12, If[9 ≤ x ≤ 12, (kamp * ((cos((2 * x) - tid) * cos((4 * df))) - (sin((2 * x) - tid) * sin((4 * df))))) + 4]]
h(x) = If[6 ≤ x ≤ 9, (kamp * ((cos((2 * x) - tid) * cos((3 * df))) - (sin((2 * x) - tid) * sin((3 * df))))) + 4]
g(x) = If[3 ≤ x ≤ 6, (kamp * ((cos((2 * x) - tid) * cos((2 * df))) - (sin((2 * x) - tid) * sin((2 * df))))) + 4]
f(x) = If[0 ≤ x ≤ 3, (kamp * ((cos((2 * x) - tid) * cos(df)) - (sin((2 * x) - tid) * sin(df)))) + 4]
r(x) = If[12 ≤ x ≤ 30, (kamp * ((cos((2 * x) - tid) * cos((5 * df))) - (sin((2 * x) - tid) * sin((5 * df))))) + 4]
atom1(x) = If[0 ≤ x ≤ 30, ((-aamp) * sin((2 * x) - tid)) + 2]
atom2(x) = If[3 ≤ x ≤ 30, ((-aamp) * sin((2 * x) - tid)) + 1]
atom3(x) = If[6 ≤ x ≤ 30, ((-aamp) * sin((2 * x) - tid))]
atom4(x) = If[9 ≤ x ≤ 30, ((-aamp) * sin((2 * x) - tid))] - 1
atom5(x) = If[12 ≤ x ≤ 30, ((-aamp) * sin((2 * x) - tid))] - 2