lentille

axe optique

foyer image

foyer objet

objet

A_1: (12, 0.5)
B_1: (12, 5.5)
f = Segment(B_1, A_1)
g = LineBisector(f)
B = (7, 5)
h = OrthogonalLine(B, g)
A = Intersect(h, g)
E = Point(g)
E' = Mirror(E, f)
u = Vector(A, B)
O = Intersect(f, g)