Taille objet

Distance focale

Position objet

G = (-40, 0)
H = (150, 0)
a = Line(G, H)
O = Point(a)
D = (0, 40)
E = (0, -40)
u = Vector(O, D)
v = Vector(O, E)
f = 50 (slider from 0 to 50, step 0.5)
F' = Point(Circle[O, f])
b = Segment(O, F')
F = Mirror(F', O)
l = 20 (slider from -40 to 40, step 0.1)
e = OrthogonalLine(O, a)
d = -30 (slider from -200 to 200, step 1)
A: (d, 0)
B: (x(A), l)
w = Vector(A, B)
c = OrthogonalLine(B, w)
g = OrthogonalLine(O, a)
C = Intersect(c, g)
h = Segment(B, C)
i = Line(B, O)
j = Line(C, F')
B' = Intersect(j, i)
k = Segment(C, B')
m = Segment(B, B')
n = OrthogonalLine(B', a)
A' = Intersect(a, n)
p = Vector(A', B')
distanceAB = Distance(A, B)
TexteAB: Name[A] + (Name[B]) + " = " + distanceAB
distanceB'A' = Distance(B', A')
TexteB'A': Name[B'] + (Name[A']) + " = " + distanceB'A'
distanceAO = Distance(A, O)
TexteAO: Name[A] + (Name[O]) + " = " + distanceAO
texte4_1: "Distance focale:	
	f = " + f + " cm
Distance objet-lentille:	
	d = " + distanceAO + " cm
Taille objet: 		
	AB = " + distanceAB + " cm
Taille image:		
	A'B' = " + distanceB'A' + " cm"