raggio incidente

indice di rifrazione

raggio emergente

Deviazioni parziali e totale (δ) di un raggio di luce
che subisce un'unica riflessione interna

trascinare il punto P

O = Intersect(xAxis, yAxis)
B = Point(xAxis)
c = Circle(O, B)
P = Point(c)
a = Line(O, B)
b = Line(P, a)
D = Point(b)
d = Ray(P, D)
e = Ray(O, P)
C'_1 = Mirror(P, e)
D' = Mirror(D, e)
f = OrthogonalLine(O, a)
E = Intersect(b, f)
F = Point(e)
α = Angle(D, P, F)
n = 1.33 (slider from 1 to 2, step 0.01)
A' = Rotate(O, -1.0 * asin(sin(α) / n), P)
β = Angle(A', P, O)
g = Ray(P, A')
Q = Intersect(c, g, 2.0)
h = Ray(O, Q)
i = Segment(P, Q)
R = Mirror(P, h)
G' = Mirror(Q, h)
i' = Segment(R, G')
j = Ray(O, R)
H = Point(j)
H' = Rotate(H, α, R)
γ = Angle(H, R, H')
k = Ray(R, H')
I = Point(h)
I' = Rotate(I, α, G')
ε = Angle(O, G', P)
ζ = Angle(O, R, G')
η = Angle(R, G', O)
J = Point(k)
m = Line(J, R)
T = Intersect(b, m)
ι = Angle(R, T, E)
l = Ray(Q, R)
A = Point(l)
λ = Angle(T, P, Q)
C = Point(g)
θ = Angle(C, Q, R)
κ = Angle(A, R, H')
G = Point(b)
δ = Angle(G, T, R)
testo7: "deviazione in R = " + κ
testo8: "deviazione in Q = " + θ
testo9: "deviazione in P = " + λ
testo6: "devizione totale δ = " + δ