Wasser  n = 1,33

Luft

A = Point(yAxis)
P = Point(xAxis)
u = Vector(A, P)
a = OrthogonalLine(P, xAxis)
A' = Mirror(A, a)
b = Line(P, A')
C = (11, 0.036363636363636154)
c = OrthogonalLine(C, xAxis)
D = Intersect(b, c)
r_1 = Vector(P, D)
r_2 = Vector(P, D)
r_3 = Vector(P, D)
β: atan(x(P) / (-y(A)))
α: asin(1.33 * sin(β))
d: -x(P) / tan(α)
e: y = tan(3.141592653589793 / 2.0 - α) * x + d
E = Intersect(c, e)
d_1 = Vector(P, E)
d_2 = Vector(P, E)
d_3 = Vector(P, E)
F = (-1, 0)
X = (-1, -3.963636363636364)
Y = (11, -3.963636363636364)
Vieleck1, f, c_1, G, H = Polygon(F, C, Y, X)
g = Segment(F, C)
Text1: "Winkel α = " + (α * 180.0 / 3.141592653589793)
Text2: "Winkel β = " + (β * 180.0 / 3.141592653589793)