dioptre

normale

milieu d'indice n1 = 1 (air)

milieu d'indice n2

angle d'incidence i1 
choisi sur votre dispositif expérimental

ATTENTION l'angle de réfraction i2 à indiquer
ci-dessous est celui mesuré sur votre dispositif expérimental

angle de réfraction mesuré :

angle d'incidence choisi :

Il faut rentrer ci-dessus le couple de valeurs (i1;i2) : 
  l'angle d'incidence i1, puis  la valeur mesurée de l'angle 
de réfraction i2 qui correspond 
sur le dispositif expérimental à  cette valeur de i1. 
On observe que, pour un couple de valeurs (i1,i2), 
le rapport IA/IB reste constant, et que sa valeur est proche
du rapport des indices des milieux : n2/n1.

incidchoisi = 0.5235987755982988 rad (slider from 0 to 1.5707963267948966, step 1°)
D: (2, -3)
D': (12, -3)
I = Midpoint(D, D')
N: (7, 2)
refractmesure = 0.3490658503988659 rad (slider from 0 to 1.5707963267948966, step 1°)
dioptre = Segment(D, D')
N': (7, -8)
normale = Segment(N, N')
S = Rotate(N, incidchoisi, I)
SI = Segment(S, I)
i1 = Angle(N, I, S)
S' = Mirror(S, I)
delta2 = Segment(I, S')
N'' = Rotate(N', refractmesure, I)
IN'' = Segment(I, N'')
i2 = Angle(N', I, N'')
ChampTexte1 = Textfield(refractmesure)
ChampTexte2 = Textfield(incidchoisi)
A = Point(IN'')
delta1 = Line(A, normale)
B = Intersect(delta1, delta2)
C = Intersect(delta1, dioptre)
distanceIA = Distance(I, A)
TexteIA: Name[I] + (Name[A]) + " = " + distanceIA
distanceIB = Distance(I, B)
TexteIB: Name[I] + (Name[B]) + " = " + distanceIB
IAsurIB: distanceIA / distanceIB
texte7 = LaTeX(IAsurIB, true, true)
E = Point(dioptre)
F = Point(dioptre)
G = (12, -8)
H = (2, -8)
q1, e, f, g, h = Polygon(E, F, G, H)
α = Angle(C, A, I)
β = Angle(C, B, I)