Brille zeigen

Gegenstand symmetrisch

 Weitsichtigkeit
   (Lesebrille)

Hier wird Weitsichtigkeit durch eine
zu schwache Brechkraft der Linse simuliert.
Ein zu kurzer Augapfel kann ebenfalls
Ursache für Kurzsichtigkeit sein.

1. Stelle die Gegenstandsweite g=200 ein und mit f_A ein scharfes Bild auf der Netzhaut.
2. Stelle nun g=9 ein, das Bild entsteht jetzt hinter der Netzhaut. Ändere f_A: Offensichtlich 
     kann die Linse nicht mehr scharf einstellen. Das Bild bleibt hinter der Netzhaut.
3. Zeige nun die Brille. Das Bild entsteht jetzt vor der Netzhaut. 
4. Entspanne nun das Auge, indem f_A=3.1 gewählt wird. Verändere nun f_B solange, 
    bis wieder ein scharfes Bild auf der Netzhaut entsteht.

R = (2, 1)
Q = (2, -1)
f_1 = Line(R, Q)
G = 1 (slider from 0 to 1, step 0.0010)
g = 200 (slider from 9 to 200, step 0.0010)
K: (-g, 0)
M: K + (0, G)
f_B = 8.342 (slider from 4 to 9.2, step 0.0010)
d = 0.1 (slider from -2 to 2, step 0.0010)
B: (f_B - d * (1 + 6 / sqrt(f_B)), 0)
e = Circle(B, f_B)
U: -B
q = Ray(M, U)
A: (-f_B + d * (1 + 6 / sqrt(f_B)), 0)
c = Circle(A, f_B)
g_2(x) = 1.5
C, D = Intersect(g_2, e)
E, F = Intersect(g_2, c)
a = Segment(F, C)
F_1 = Intersect(a, yAxis)
f(x) = -g_2(x)
I, J = Intersect(f, e)
G_1, H = Intersect(f, c)
b = Segment(H, I)
H_1 = Intersect(b, yAxis)
e_1 = Line(H_1, F_1)
Z = Intersect(q, e_1)
s = Line(Z, xAxis)
h = CircleArc(A, H, F)
k = CircleArc(B, C, I)
O = (0, 0)
L: K + (0, G)
j = Line(L, xAxis)
u = Vector(K, M)
u' = Mirror(u, xAxis)
L' = Mirror(L, xAxis)
L'_1 = Mirror(L, xAxis)
O' = Mirror(O, xAxis)
A' = Mirror(A, xAxis)
n = Segment(R, Q)
S = (5, 0)
p = CircumcircleArc(Q, S, R)
T = (2, 0)
f_A = 2.695 (slider from 2.5 to 3.1, step 0.0010)
P: T + (f_A, 0)
k_1 = CircleArc(P, R, Q)
o = false
n_1 = Segment(F_1, H_1)
o_1 = true
L'_2 = Mirror(L, xAxis)
r: 10 / f_B
L_1 = Point(h)
M_1 = Point(h)
N_1 = Point(h)
O_1 = Point(h)
P_1 = Point(h)
Q_1 = Intersect(h, xAxis, 1)
R_1 = Point(h)
S_1 = Point(h)
T_1 = Point(h)
U_1 = Point(h)
V_1 = Point(h)
W_1 = Point(k)
Z_1 = Point(k)
A_2 = Point(k)
B_2 = Point(k)
C_2 = Point(k)
D_2 = Point(k)
E_2 = Point(k)
F_2 = Point(k)
G_2 = Point(k)
H_2 = Point(k)
I_2 = Point(k)
Vieleck5, f_2, l_2, m_3, n_2, o_2, p_2, q_2, r_1, s_1, t_1, u_2, v_2, h_2, i_3, w_2, z_1, a_2, b_2, c_4, d_3, e_2, f_3, g_3, h_3, i_4, c_5 = Polygon(F, L_1, M_1, N_1, O_1, P_1, Q_1, R_1, S_1, T_1, U_1, V_1, H, I, W_1, Z_1, A_2, B_2, C_2, D_2, E_2, F_2, G_2, H_2, I_2, C)
L_2 = Intersect(n, xAxis)
Q_2 = (0, 0)
V = Intersect(n, xAxis)
d_1 = Circle(V, f_A - 45 / f_B^(2))
Text1: "Dioptrie = " + (r * 1.7) + ""
L'_3 = Mirror(L, xAxis)
i = Line(M, xAxis)
l = Ray(M, O)
N = Intersect(i, n_1)
m = Ray(N, B)
W = Intersect(l, m)
t = Segment(V, W)
A_1 = Intersect(s, f_1)
a_1 = Segment(A_1, P)
B_1 = Intersect(t, a_1)
C_1: (0, -G * 0.7)
b_1 = Segment(C_1, W)
D_1 = Intersect(b_1, f_1)
I_1 = Intersect(m, f_1)
Vieleck1, m_1, c_1, d_2, b_3, i_1, n_3 = Polygon(M, C_1, D_1, B_1, I_1, N)
g_1 = Ray(M, V)
J_1 = Intersect(i, f_1)
h_1 = Ray(J_1, P)
K_1 = Intersect(g_1, h_1)
J_2 = Mirror(J_1, xAxis)
Vieleck2, m_2, j_2, k_2, j_1 = Polygon(M, J_2, K_1, J_1)
p_1 = Mirror(k_1, n)
M' = Mirror(M, xAxis)
E_1 = Mirror(C_1, xAxis)
K_2 = Mirror(D_1, xAxis)
M_2 = Mirror(B_1, xAxis)
N_2 = Mirror(I_1, xAxis)
N' = Mirror(N, xAxis)
Vieleck1', m', e_3, k_3, m_4, n_4, n' = Polygon(M', E_1, K_2, M_2, N_2, N')
M'_1 = Mirror(M, xAxis)
O_2 = Mirror(J_2, xAxis)
P_2 = Mirror(K_1, xAxis)
R_2 = Mirror(J_1, xAxis)
Vieleck2', m'_1, o_3, p_3, r_2 = Polygon(M'_1, O_2, P_2, R_2)