Strahlengang im Mikroskop

Ein - verkehrtes - Objekt G wird durch die Objektivlinse auf ein vergrößertes, aufrechtes, reelles Zwischenbild Z abgebildet. Die Okularlinse vergrößert dieses Zwischenbild Z als Lupe und liefert ein aufrechtes, vergrößertes, viruelles Bild B.

Die Vergrößerung des Mikroskops ist das Produkt aus der Objektivvergrößerung mal die Okularvergrößerung.

f_1 = 2 (slider from 0 to 5, step 0.1)
f_2 = 6.2 (slider from 0 to 10, step 0.1)
G_F = Point(xAxis)
M_1 = Point(xAxis)
M_2 = Point(xAxis)
a = OrthogonalLine(G_F, xAxis)
Objektiv = OrthogonalLine(M_1, xAxis)
Okular = OrthogonalLine(M_2, xAxis)
d = Line(M_1, M_2)
A = Point(a)
u = Vector(G_F, A)
e = Circle(M_1, f_1)
f = Circle(M_2, f_2)
F_2, F_1 = Intersect(e, d)
F_3, F_4 = Intersect(f, d)
g = Ray(A, F_2)
h = Ray(A, M_1)
B_1 = Intersect(Objektiv, g)
i = OrthogonalLine(B_1, Objektiv)
Z = Intersect(h, i)
D = Intersect(Okular, i)
j = Ray(F_3, D)
k = Ray(M_2, Z)
B = Intersect(j, k)
l = OrthogonalLine(B, d)
m = OrthogonalLine(Z, d)
Z_F = Intersect(d, m)
F_B = Intersect(d, l)
v = Vector(A, B_1)
w = Vector(B_1, Z)
z = Vector(A, Z)
n = Vector(Z_F, Z)
p = Vector(M_2, B)
q = Vector(Z, D)
r = Vector(F_3, B)
s = Vector(F_B, B)
T1: "Vergrößerung des Objektivs: " + (Length[n] / Length[u]) + "
Vergröperund des Okulars: " + (Length[s] / Length[n]) + "
Vergrößerung des Mikroskops: " + (Length[s] / Length[u])