Brille zeigen

symmetrischer Gegenstand

Kurzsichtigkeit

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

1. Stelle die Gegenstandsweite g=4 ein und mit f_A ein scharfes Bild auf der Netzhaut.
2. Stelle nun g≈40 ein, das Bild entsteht jetzt vor der Netzhaut scharf. Ändere f_A: Offensichtlich 
     kann die Linse nicht mehr scharf einstellen. Das Bild bleibt vor der Netzhaut scharf.
3. Zeige nun die Brille, es sollte f_B=100 sein, die Brille hat dann praktisch keine Wirkung.
4. Verändere nun f_B solange, bis wieder ein scharfes Bild auf der Netzhaut entsteht.

g = 4 (slider from 4 to 50, step 0.0010)
f_B = 100 (slider from 2 to 100, step 0.0010)
d = 0.1
B: (f_B + d, 0)
A: (-f_B - d, 0)
c = Circle(A, f_B)
e = Circle(B, f_B)
g_2(x) = 1.5
f(x) = -g_2(x)
C, D = Intersect(g_2, e)
E, F = Intersect(g_2, c)
G_1, H = Intersect(f, c)
I, J = Intersect(f, e)
h = CircleArc(A, H, F)
k = CircleArc(B, C, I)
a = Segment(F, C)
b = Segment(H, I)
O = (0, 0)
K: (-g, 0)
G = 0.5 (slider from 0 to 0.5, step 0.0010)
u = Vector(K, K + (0, G))
L: K + (0, G)
i = Ray(L, O)
j = Line(L, xAxis)
M = Intersect(j, yAxis)
l = Segment(L, M)
m = Ray(A, M)
u' = Mirror(u, xAxis)
L' = Mirror(L, xAxis)
L'_1 = Mirror(L, xAxis)
O' = Mirror(O, xAxis)
i' = Ray(L'_1, O')
A' = Mirror(A, xAxis)
N = Intersect(i, m)
Q = (2, -1)
R = (2, 1)
n = Segment(R, Q)
S = (5, 0)
p = CircumcircleArc(Q, S, R)
T = (2, 0)
q = Ray(N, T)
W = Intersect(m, n)
A_1 = Intersect(i', n)
B_1 = Intersect(i, n)
t = Segment(M, W)
b_1 = Segment(L, B_1)
f_A = 2.244 (slider from 1.7 to 2.5, step 0.0010)
P: T + (f_A, 0)
s = Line(N, xAxis)
U = Intersect(s, n)
d_1 = Ray(U, P)
V = Intersect(q, d_1)
f_1 = Segment(B_1, V)
a_1 = Ray(W, V)
Z = Intersect(p, a_1)
W' = Mirror(W, xAxis)
c_1 = Segment(N, W')
C_1 = Intersect(c_1, yAxis)
g_1 = Segment(L, C_1)
h_1 = Segment(C_1, W')
i_1 = Ray(W', V)
D_1 = Intersect(p, i_1)
j_1 = Segment(W', D_1)
e_1 = Segment(W, Z)
Vieleck1, w, w', v = Polygon(W', V, W)
Vieleck2, z, v_1, d_2 = Polygon(V, D_1, Z)
Vieleck3, m_1, l_1, c_2 = Polygon(L, C_1, M)
Vieleck4, m_2, c_3, w'_1, w_1 = Polygon(M, C_1, W', W)
u_1 = Vector((x(N), 0), N)
E_1: T - (f_A, 0)
k_1 = CircleArc(P, R, Q)
p_1 = CircleArc(E_1, Q, R)
o = false
F_1 = Intersect(a, yAxis)
H_1 = Intersect(b, yAxis)
n_1 = Segment(F_1, H_1)
o_1 = false
L'_2 = Mirror(L, xAxis)
I_1 = Mirror(C_1, xAxis)
M' = Mirror(M, xAxis)
Vieleck3', m', l'_2, i_2 = Polygon(L'_2, I_1, M')
M'_1 = Mirror(M, xAxis)
J_1 = Mirror(C_1, xAxis)
W'' = Mirror(W', xAxis)
W'_1 = Mirror(W, xAxis)
Vieleck4', m'_1, j_2, w'', w'_2 = Polygon(M'_1, J_1, W'', W'_1)
W''_1 = Mirror(W', xAxis)
V' = Mirror(V, xAxis)
W'_2 = Mirror(W, xAxis)
Vieleck1', w'_3, w''_1, v' = Polygon(W''_1, V', W'_2)
V'_1 = Mirror(V, xAxis)
K_1 = Mirror(D_1, xAxis)
Z' = Mirror(Z, xAxis)
Vieleck2', z', v'_1, k_2 = Polygon(V'_1, K_1, Z')
r: 10 / f_B
Text1: "Dioptrie = " + r + ""
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)