Abbildung mit der Sammellinse
Author: Günter vom Stein

Simulation für Diaprojektor, Kamera, Auge

Mit Regler  f  wird die Brennweite verändert.
Mit Regler R  kann das gesamte Lichtbündel angezeigt werden.

Der Gegenstand kann an Punkt B vergrößert/verkleinert werden
und an Punkt A gezogen werden.

Die Linse kann an Punkt D gezogen werden

Mit den Punkten M und N kann man eine Leinwand bestimmter Größe an 
einer gewünschten Stelle darstellen und die erforderliche Brennweite suchen.

Lichtbündel anzeigen

virtuelles Bild, 
kann nicht auf einem Schirmaufgefangen werden
(das Auge/Gehirn denkt sich das Bild)

A = Point(xAxis)
a_2 = OrthogonalLine(A, xAxis)
B = Point(a_2)
c = Circle(A, B)
u = Vector(A, B)
D = Point(xAxis)
b = OrthogonalLine(D, xAxis)
e = Line(B, xAxis)
I = Intersect(b, e)
i = Segment(B, I)
j = Ray(B, D)
f = 3.85 (slider from 0 to 5, step 0.01)
d = Circle(D, f)
g_1 = Line(A, D)
C = Point(b)
f_1 = Circle(D, C)
E = Intersect(f_1, b, 2)
h = Segment(C, E)
F = Intersect(d, g_1, 1)
F' = Intersect(d, g_1, 2)
k = Ray(I, F')
l = Ray(F', I)
m = Ray(D, B)
H = Intersect(j, k)
n = OrthogonalLine(H, g_1)
J = Intersect(g_1, n)
v = Vector(J, H)
K = Intersect(l, m)
p = OrthogonalLine(K, g_1)
L = Intersect(g_1, p)
w = Vector(L, K)
poly1, b_1, e_1, h_1, c_1 = Polygon(B, E, H, C)
N = Point(xAxis)
q = OrthogonalLine(N, xAxis)
O = Point(q)
M = Point(q)
r = Circle(N, M)
P = Intersect(r, q, 2)
a = Segment(P, M)
o = false