Author: B. Spier

Lot

Brechungszahl

Q

Q

Totalreflexion

Wasser

Glas

Diamant

Luft

Verschiebe Punkt P auf dem Kreis,
ändere den Wert von n.

Brechung an einer
Oberfläche

A = (-0.46, -0.96)
B = (10.3, -0.96)
a = Segment(A, B)
M = Midpoint(A, B)
m = OrthogonalLine(M, a)
c = Circle(M, B)
D = Intersect(c, m, 2)
P = Point(c)
α = Angle(P, M, D)
n: 1.5
b = OrthogonalLine(P, m)
C = Intersect(m, b)
H_1 = Dilate(P, -1 / n, C)
d = Line(H_1, m)
Q_1 = Intersect(c, d, 1)
H_2 = Dilate(P, (-n), C)
e = Ray(M, P)
f = Ray(M, Q_1)
g = Line(H_2, m)
Q_2 = Intersect(c, g, 2)
h = Ray(M, Q_2)
P' = Mirror(P, m)
k_r = If(α > 90° ∧ Distance[H_2, C] > a / 2, 1, (1 - n)^(2) / (n - sin(α))^(2))
i = Ray(M, P')
k = Semicircle(B, A)
E = Intersect(c, k, 1)
k_t: sqrt(1 - k_r^(2))
F = (-3.9822763797621397, -2.1643203547671863)
G = (-1.95655930659141, -2.1643203547671863)
H = (-3.665433452932872, 0.5678006208425725)
I = (-2.1591310139084827, 0.5678006208425725)
J = (-3.8731993065914097, -4.003048159645233)
K = (-1.9773358919572634, -4.003048159645233)