διάθλαση_κύματα
Author: jt
Date: 18 Φεβρουάριος 2015

ακτίνες

κύματα

Η συχνότητα είναι ίδια

n_1 +

n_1  -

n_2 +

n_2  -

φ_π +

φ_π  -

start

stop

n_1 = 1 (slider from 1 to 3, step 0.1)
n_2 = 1.9000000000000008 (slider from 1 to 3, step 0.1)
φ_π = 29 (slider from -90 to 90, step 1)
n_σ: n_2 / n_1
a: tan(-φ_π * π / 180)
t = 4.05 (slider from 0 to 20, step 0.025)
nn: n_σ - abs(sin(φ_π * π / 180))
th: -asin(sin(φ_π * π / 180) / n_σ)
b: tan(th)
y_1 = If(x < 0, a * x, 0)
y_2 = If(x > 0, b * x, 0)
y_3 = If((x < 0) ∧ (nn < 0), -a * x, 0)
f_r = 1.5 (slider from 0.5 to 2, step 0.5)
v_1 = 1 (slider from 0.5 to 2, step 0.5)
v_2: v_1 / n_σ
λ_1: v_1 / f_r
λ_2: λ_1 / n_σ
h = true
e = false
A = 0.5 (slider from 0.25 to 1, step 0.25)
f = If(x < 0, a * x + A * sin(2 * π * (f_r * t - (1 + a^(2))^(0.5) * x / λ_1)), 0)
g = If(nn < 0, If[x > 0, 0, -a * x + A * sin(2 * π * (f_r * t + (1 + a^(2))^(0.5) * x / λ_1))], If[x > 0, b * x + A * sin(2 * π * (f_r * t - (1 + b^(2))^(0.5) * x / λ_2)), 0])
Α = Point(f)
Β = Point(g)
Δ = Intersect(y_2, d, (-1.875, 0))
Ε = Point(y_1)
Γ = Point(y_3)
Ζ = Intersect(y_1, y_2, (0, 0))
α = Angle(Δ, Ζ, Γ)
Η = Point(y_2)
Θ = Intersect(y_1, y_3, (1.5, 0))
β = Angle(Ε, Ζ, Δ)
γ = Angle(Η, Ζ, Θ)
δ = Angle(Δ, Ζ, Ε)
ε = Angle(Θ, Ζ, Η)
ζ = Angle(Γ, Ζ, Δ)
Ι = Point(c)
Κ = Point(c)
πολύγ1, ι, κ, i, j, Λ, Μ = Polygon(Ι, Κ, 4)
πολύγ2, κ_1, ι_1, k, l, Ν, Ξ = Polygon(Κ, Ι, 4)
κείμενο2: "n_1=" + n_1 + ""
κείμενο3: "n_2=" + n_2 + ""
m: φ_π + φ_π - 1
n: φ_π + φ_π - 1
o: φ_π + φ_π - 1
p: φ_π + φ_π - 1
q: φ_π + φ_π - 1
r: φ_π + φ_π - 1
s: φ_π + φ_π - 1
κείμενο4: "φ_π=" + φ_π + "⁰"
u: φ_π + φ_π - 1
v: φ_π + φ_π - 1
w: φ_π + φ_π - 1
z: φ_π + φ_π - 1
a_1: φ_π + φ_π - 1
b_1: φ_π + φ_π - 1
c_1: φ_π + φ_π - 1
d_1: φ_π + φ_π - 1
e_1: φ_π + φ_π - 1
f_1: φ_π + φ_π - 1
g_1: φ_π + φ_π - 1
h_1: φ_π + φ_π - 1
i_1: φ_π + φ_π - 1