visualizza differenza

Visualizza linee interferenza distruttiva

Visualizza sorgente 1

Visualizza sorgente 2

Elimina percorsi

Visualizza linee di interferenza costruttiva

a = 0.34 (slider from 0 to 2, step 0.01)
L_1 = Sequence((x - a)^(2) + y^(2) = r^(2), r, 0, 10, 0.1)
L_2 = Sequence((x + a)^(2) + y^(2) = r^(2), r, 0, 10, 0.1)
A: (a, 0)
B: ((-a), 0)
C = Point(L_1)
x1 = Segment(A, C)
x2 = Segment(B, C)
differenza: x1 - x2
numeroLunghezze: differenza / 0.1
c = false
L_4 = Sequence(CurveCartesian[(0.1 / 4 * i / cos(t)), (sqrt(a^(2) - ((0.1 / 4 * i))^(2)) * tan(t)), t, -5, 5], i, 1, 60, 2)
d = false
pInt: floor(numeroLunghezze)
pFraz: fractionalPart(numeroLunghezze)
testo1: "|x_1-x_2|=(" + (LaTeX[If[pFraz < 0.5, (2 * pInt), (2 * pInt) + 1]]) + "+" + (LaTeX[If[pFraz < 0.5, (2 * pFraz), (2 * pFraz) - 1]]) + ")\frac{λ}{2}"
e = true
f = true
g = false
L_3 = Sequence(CurveCartesian[(0.1 / 2 * i / cos(t)), (sqrt(a^(2) - ((0.1 / 2 * i))^(2)) * tan(t)), t, -5, 5], i, 0, 60, 1)
b = false