Reflektordipol

EFeld

BFeld

reflektiertes EFeld

reflektiertes BFeld

Summe EFelder

Summe BFelder

Hier wird nur das Fernfeld betrachtet 
(Nahfelder - E und B - sind nicht Phasengleich)

Abstand Reflektordipol

Zum starten, auf den 
Pfeil unten rechts klicken

a = Segment((-0.2, -1), (-0.2, 1))
t = 0.32 (slider from 0 to 4 * π / ω, step 0.01)
r = 7.5 (slider from 0 to 10, step 0.1)
ω = 2 (slider from -5 to 5, step 0.1)
c = 1.3 (slider from -5 to 5, step 0.1)
A = (-0.2, 1)
B = (-0.2, -1)
qA: sin(ω * t)
qB: -sin(ω * t)
C: (r + 0.1, -1)
D: (r + 0.1, 1)
d = Segment((r + 0.1, -1), (r + 0.1, 1))
e = false
f = true
g = true
h = false
i = false
j = false
k = false
u = Vector((0, 0), (0, -sin(ω * t - ω / c * 0)))
EFeld = Sequence(Segment[(k / 10, 0), (k / 10, -sin(ω * t - ω / c * k / 10))], k, 0, r * 10)
EFeldr = Sequence(Segment[(r - k / 10, 0), (r - k / 10, sin(ω * t - ω / c * (r + k / 10)))], k, 0, r * 10)
EFeldSumme = Sequence(Segment[(k / 10, 0), (k / 10, sin(ω * t - ω / c * (2 * r - k / 10)) - sin(ω * t - ω / c * k / 10))], k, 0, r * 10)
BFeld = Sequence(Segment[(k / 10, 0), (k / 10, 0) + (0.7, 0.7) * (-sin(ω * t - ω / c * k / 10))], k, 0, r * 10)
BFeldr = Sequence(Segment[(r - k / 10 + 0.01, 0), (r - k / 10 + 0.01, 0) + (0.7, 0.7) * (-sin(ω * t - ω / c * (r + k / 10)))], k, 0, r * 10)
BFeldSumme = Sequence(Segment[(k / 10, 0), (k / 10, 0) - (0.7, 0.7) * (sin(ω * t - ω / c * k / 10) + sin(ω * t - ω / c * (2 * r - k / 10)))], k, 0, r * 10)
Text2: "Zeit t = " + t