Lichtleitung in der Glasfaser mit Brechungszahl 1,6
Grenzwinkel für Totalreflexion 38,68°.
Der Winkel α muss über diesem Wert liegen, sonst bleibt
der Lichtstrahl nicht in der Faser.

Ziel ist, experimentell das Verhältnis R:d zu bestimmen.
(R ist der Radius des inneren Bogens.)

Anleitung: An Punkt A kann der innere Bogen des Lichtleiters verstellt werden,
an Punkt B der äußere Bogen. 
Der einfallende Lichtstrahl kann mit L parallel verschoben werden.

Totalreflexion unterschritten (α < 38.68°)
Der Lichtstrahl tritt aus.

B_1 = Point(xAxis)
C = Intersect(xAxis, yAxis)
d_1 = Circle(C, B_1)
B, E = Intersect(d_1, xAxis)
A = Point(xAxis)
c = Circle(C, A)
F = Intersect(c, xAxis, 2)
d = Segment(E, F)
L = Point(d)
m = Line(L, yAxis)
e = Semicircle(F, A)
f = Semicircle(E, B_1)
L_1, O = Intersect(f, m)
n = Segment(L_1, C)
P = Intersect(e, n)
a = Line(F, yAxis)
b = Line(E, yAxis)
g = Line(A, yAxis)
h = Line(B_1, yAxis)
G = Point(b)
H = Point(a)
I = Point(g)
J = Point(h)
i = Segment(G, E)
j = Segment(H, F)
k = Segment(I, A)
l = Segment(J, B_1)
p = Mirror(m, n)
M, N = Intersect(f, p)
q = Segment(L_1, M)
r = Ray(L_1, L)
s = Segment(C, M)
L' = Mirror(L_1, s)
M' = Mirror(M, s)
t = Segment(L', M')
a1 = Segment(C, L')
L''_1 = Mirror(L', a1)
α = Angle(L, L_1, C)
T1: "R/d = " + (Segment[C, P] / Segment[A, B_1])
R = Segment(P, C)
b1 = Segment(F, A)
a_1 = Segment(C, L''_1)
L'' = Mirror(L', a_1)
M'' = Mirror(M', a_1)
t' = Segment(L'', M'')
b_1 = Segment(C, M'')
c_1 = Segment(L_1, N)
e_1 = Ray(C, N)
p' = Mirror(p, e_1)
D = Intersect(f, p', 2)
f_1 = Ray(C, D)
p'' = Mirror(p', f_1)
K, Q = Intersect(f, p'')
g_1 = Segment(C, Q)
p''' = Mirror(p'', g_1)
S, T = Intersect(f, p''')
h_1 = Ray(C, T)
i_1 = Mirror(p''', h_1)
j_1 = Segment(N, D)
k_1 = Segment(D, Q)
l_1 = Segment(Q, T)
U, V = Intersect(f, i_1)
m_1 = Segment(T, U)
n_1 = Segment(C, U)
p_1 = Mirror(i_1, n_1)
W, Z = Intersect(f, p_1)
q_1 = Segment(U, Z)