Luft

Plexiglas

n = 1.495 (slider from 1 to 2, step 0.0010)
r = 5
O = (0, 0)
c = Circle(O, r)
α = 0.8552113334772214 rad (slider from 0 to 90*°, step 1*°)
P: (r; 90° - α)
PP: (0, y(P))
b_1 = Segment(O, P)
Q: (r; 270° - asin(sin(α) / n))
QQ: (0, y(Q))
b = Segment(Q, QQ)
a = Segment(PP, P)
e = Segment(Q, O)
d: a / b
Text1: "$ \frac{a}{b} =  \frac{" + (LaTeX[a]) + "}{" + (LaTeX[b]) + "}  =  " + (LaTeX[d]) + " $"
β = Angle(b_1, yAxis)
A = Point(yAxis)
f = Ray(O, A)
γ = Angle(Q, O, A)