Lichtbrechung am Prisma
Author: Günter vom Stein

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

gesamter Ablenkungswinkel

Winkel an der Spitze des Prismas

Höhe des Einfallsstrahls

gespiegeltes Prisma

α = 0.767944870877505 rad (slider from 25*° to 1.4835298641951802, step 0.017453292519943295)
A = Point(yAxis)
B = Intersect(xAxis, yAxis)
B' = Rotate(B, -(α / 2), A)
β = Angle(B', A, B)
a = Ray(A, B')
C = Intersect(xAxis, a)
b_1 = Segment(A, C)
A'_1 = Mirror(A, yAxis)
C'_1 = Mirror(C, yAxis)
b' = Segment(A'_1, C'_1)
γ = Angle(C, A, C'_1)
Vieleck1, a_1, c, c' = Polygon(C, C'_1, A)
b = 2.6 (slider from 0.5 to 3.5, step 0.0010)
D: (-5, b)
d = Line(D, xAxis)
E = Intersect(d, b_1)
e = Ray(E, D)
F: (-3, b)
u = Vector(D, F)
n = 1.41 (slider from 1 to 2.5, step 0.01)
f = OrthogonalLine(E, b_1)
G = Point(f)
G' = Mirror(G, b_1)
g = Segment(G, G')
H = Rotate(G', asin(sin(α / 2) / n), E)
h = Ray(E, H)
I = Intersect(b', c)
J = Intersect(b', c)
K = Intersect(h, b')
i = Segment(E, K)
j = OrthogonalLine(K, c)
L = Point(j)
L'_1 = Mirror(L, b')
M = (-7.11421935483871, 7.633522580645161)
k = Segment(L, L'_1)
L' = Rotate(L, -asin(sin(Angle[H, K, L'_1]) * n), K)
m = false
p = Line(K, L')
N = Intersect(p, d)
q = Ray(N, K)
l = Ray(K, L')
O = Point(l)
w = Vector(L', O)
δ = Angle(q, d)
C' = Mirror(C, xAxis)
P = Mirror(C'_1, xAxis)
A' = Mirror(A, xAxis)
Vieleck1', a', c'_1, p_1 = Polygon(C', P, A')
E'_1 = Mirror(E, xAxis)
D' = Mirror(D, xAxis)
e' = Ray(E'_1, D')
E' = Mirror(E, xAxis)
K'_1 = Mirror(K, xAxis)
i' = Segment(E', K'_1)
K' = Mirror(K, xAxis)
L'' = Mirror(L', xAxis)
l' = Ray(K', L'')
o = false