Brechung an der Grenzfläche von Luft und einem Medium
Author: Günter vom Stein

β

Brechungszahlen (n):
Glas:          1.45 .. 2.14   
Wasser:     1.33
Eis:            1.31
Plexiglas:   1.49
Diamant:    2.42

Aus Luft in Medium

Aus Medium in Luft

                                              Luft
Grenzfläche zwischen
                                            
                                              Medium

Wasser
Plexiglas


Diamant

α-β-Diagramm

β

α

Totalreflexion

Grenzwinkel

B = Point(yAxis)
C = (8, -11.17378)
D = Point(xAxis)
E = Point(xAxis)
F = (-10.852454995224337, -11.13965734522997)
Vieleck1, e, f, c_1, d = Polygon(E, F, C, D)
α = 0.6478662183402951 rad (slider from 0 to 1.5707963267948966, step 1.7453292519943296E-4)
A = Point(d)
G = Point(yAxis)
G'_1 = Rotate(G, -α, A)
β_1 = Angle(G'_1, A, G)
I = (-7.733272521789826, 5.687056490461217)
a = Ray(A, G'_1)
H = (0, -2)
n = 1.33 (slider from 1 to 2.5, step 0.0010)
H' = Rotate(H, -asin(sin(α) / n), A)
γ: -Angle[H, A, H']
b = Ray(A, H')
δ = Angle(H', A, H)
g = Line(H, G)
h = false
i = false
J = Point(a)
u = Vector(J, G'_1)
v = Vector(A, H')
A'_1 = Mirror(A, g)
G'' = Mirror(G'_1, g)
a' = Ray(A'_1, G'')
K = (-4.5, -2)
j = OrthogonalLine(K, d)
k = OrthogonalLine(K, g)
L = (-2, -2)
M = (-4.5, -0.5)
w = Vector(K, M)
z = Vector(K, L)
B1 = -2
f1(x) = asin(sin((x + 4.5) * 40 * 3.141592653589793 / 180) / 1.33) * 180 / 3.141592653589793 / 40 - 2
f2(x) = asin(sin((x + 4.5) * 40 * 3.141592653589793 / 180) / 1.49) * 180 / 3.141592653589793 / 40 - 2
f3(x) = asin(sin((x + 4.5) * 40 * 3.141592653589793 / 180) / 2.42) * 180 / 3.141592653589793 / 40 - 2
q = Function(f2, -4.5, -2.25)
fn(x) = asin(sin((x + 4.5) * 40 * 3.141592653589793 / 180) / n) * 180 / 3.141592653589793 / 40 - 2
s = Function(fn, -4.5, -2.25)
c = false
β = 1.0084512418023237 rad (slider from 0 to 1.5707963267948966, step 1.7453292519943296E-4)
B' = Rotate(B, -β, A)
ε = Angle(B', A, B)
m = Ray(A, B')
N = Point(m)
t = Vector(B', N)
β1: asin(sin(β) * n)
G' = Rotate(G, -asin(sin(β) * n), A)
ζ = Angle(G', A, G)
a_1 = Ray(A, G')
u_1 = Vector(A, G')
A'_2 = Mirror(A, g)
B''_1 = Mirror(B', g)
m'_1 = Ray(A'_2, B''_1)
A' = Mirror(A, g)
B'' = Mirror(B', g)
m' = Ray(A', B'')
xx: -4.5 + α / ° / 90 * 2.25
P: (xx, s(xx))
p = Function(f1, -4.5, -2.25)
r = Function(f3, -4.5, -2.25)
D' = (20, 0)
O = (0, 0)
Q = Point(g)
d_1 = Circle(O, Q)
R = Rotate(Q, -asin(1 / n), O)
e_1 = CircleSector(O, R, Q)
l = Ray(O, R)
b_1 = Ray(O, R)
S = Point(m')
v_1 = Vector(O, S)