Einfallswinkel

Brechungsquotient

n = 1.6 (slider from 1.2 to 2, step 0.1)
α = 0 rad (slider from 0 to 0.6981317007977318, step 0.017453292519943295)
A = Point(yAxis)
B = Point(yAxis)
C = Point(xAxis)
a = Segment(A, C)
b = Segment(B, C)
c = Segment(A, B)
e: y = -tan(α) * x + 2.0
β: asin(1.0 / n * sin(α))
w: y = -tan(β) * x + 2.0
D = Intersect(a, w)
d = OrthogonalLine(D, a)
E = Point(w)
f = OrthogonalLine(E, d)
E' = Mirror(E, d)
g = Line(D, E')
F = Intersect(g, b)
h = OrthogonalLine(F, b)
E'' = Mirror(E', h)
i = Line(E'', F)
G = Intersect(c, i)
P = (0, 2)
l = Segment(P, D)
m = Segment(D, F)
j = Segment(G, F)
n_1 = Line(G, e)
H = Intersect(q, e)
I = Intersect(n_1, q)
k = Segment(H, P)
p = Segment(I, G)
Vieleck1, b_1, a_1, c_1 = Polygon(A, C, B)