Air

Eau

Plexiglas / Verre

Glycérine

Verre Flint dense

saphire

Diamant

Eau

Plexiglass/verre

Glycérine

Verre Flint dense

Saphire

Diamant

Air

La lumière n'est plus transmise au 
milieu 2 : il y a réflexion totale !

Rayon réfléchi f

Rayon réfléchi  !

Normale

Le rayon réfracté se approche de la normale, on dit 
que le milieu 2 est plus réfringent que le milieu 1.

Le rayon réfracté s'écarte de la normale, on dit 
que le milieu 2 est moins réfringent que le milieu 1.

Les deux milieux sont identiques :
le rayon n'est pas dévié !

Cacher photos !

photos g

W = (-10.114736746742924, -3.4998046825018676)
c_1 = Line(W, xAxis)
h = Circle(W, 14)
A_1, B_1 = Intersect(h, c_1)
O = (12, 4)
A: W + (0, 10)
a = Segment(W, A)
B = Point(a)
C = Point(a)
D = Point(a)
liste3 = Sequence(Rotate[A, k, W], k, 10°, 90°, 10°)
liste5 = Sequence(Rotate[A, k, W], k, 100°, 180°, 10°)
liste6 = Sequence(Rotate[A, k, W], k, (-(10°)), (-(90°)), (-(10°)))
liste9 = Sequence(Rotate[A, k, W], k, (-(100°)), (-(170°)), (-(10°)))
b = Line(A, W)
E = Point(b)
d = OrthogonalLine(W, b)
F = Point(d)
F' = Mirror(F, W)
F'_1 = Rotate(F, 90°, W)
α = Angle(F, E, F'_1)
e = CircumcircleSector(F', F'_1, F)
F'' = Mirror(F', d)
G = Mirror(F'_1, d)
F'_2 = Mirror(F, d)
e' = CircumcircleSector(F'', G, F'_2)
J, K = Intersect(h, b)
k = CircleArc(W, B_1, A_1)
L = Point(k)
i = Ray(L, W)
n_1 = 1 (slider from 1 to 2.5, step 0.1)
n_2: 1.33
p = Circle(W, (5 * n_1))
q = Circle(W, (5 * n_2))
M = Intersect(p, i, 2)
j = OrthogonalLine(M, xAxis)
N, P = Intersect(q, j)
Q = Intersect(b, i)
r = Segment(W, L)
O' = Mirror(O, b)
L' = Mirror(L, b)
r' = Segment(W, L')
i_1 = Angle(J, W, L)
i_2 = Angle(G, W, N)
R = Midpoint(r)
S = Midpoint(r')
u = Vector(L, R)
lim: n_2 / n_1
o = 0.5235987755982989
lambda: asin(lim)
t = false
t_1 = true
t_2 = false
t_3 = false
t_4 = false
t_5 = false
t_6 = false
t_8 = false
t_9 = false
t_{10} = false
t_{11} = false
t_{12} = false
t_{13} = false
T = Midpoint(L', W)
t_7 = true
Z = (-34.020240839575195, 1.9496525168765728)
i_r = Angle(L', W, J)
texte2 = LaTeX(i_1, true, true)
texte3 = LaTeX(i_2, true, true)
texte4 = LaTeX(i_r, true, true)
f = false
Z': Mirror[Z, c_1] + (0, -3.5)
U = Point(b)
V = (-17.420174295182584, -11.101251904139323)
texte12: "Milieu 1 : n_1 = " + n_1 + ""
texte13: "Milieu 2 : n_2 =  " + n_2 + ""
g = true
c = Circle(W, 10)
liste1 = Sequence(Segment[Rotate[A, k, W], Rotate[B, k, W]], k, 1°, 360°, 1°)
liste2 = Sequence(Segment[Rotate[A, k, W], Rotate[C, k, W]], k, 10°, 360°, 10°)
s = Ray(W, L')
w = Vector(W, T)
m = Ray(W, N)
u_1 = Vector(W, N)
v = Vector(W, S)
a_1 = Ray(W, L')
b_1 = Ray(W, N)
v_1 = Vector(W, N)
liste7 = Sequence(Text[k + "0", Element[liste6, k] - (0.17 * Vector[W, Element[liste6, k]])], k, 1, 9)
liste10 = Sequence(Text[9 - k + "0", Element[liste9, k] - (0.15 * Vector[W, Element[liste9, k]])], k, 1, 8)
liste8 = Sequence(Text[9 - k + "0", Element[liste5, k] - (0.15 * Vector[W, Element[liste5, k]])], k, 1, 9)
liste4 = Sequence(Text[k + "0", Element[liste3, k] - (0.15 * Vector[W, Element[liste3, k]])], k, 1, 9)
n = Segment(W, L')
L'_1 = Rotate(L, 10°, W)
β = Angle(L, W, L'_1)
H = Mirror(L'_1, r)
d_1 = CircleArc(W, H, L'_1)
I = Midpoint(L, H)
C_1 = Midpoint(I, H)
D_1 = Mirror(C_1, r)
w_1 = Vector(D_1, L'_1)
l = Vector(C_1, H)