distance focale

cm

Régler la distance focale et/ou déplacer le point B

B_2 = (-1, -2)
A_2 = (-1, 2)
D = (-51.73, 2)
E = (-51.57, -2)
A_1 = Point(yAxis)
O = Intersect(xAxis, yAxis)
B_1 = Point(yAxis)
poly2, e, g, h, i = Polygon(A_2, D, E, B_2)
B = PointIn(poly2)
f' = 30 (slider from 10 to 100, step 5)
F': (f' / 10, 0)
F: ((-f') / 10, 0)
c = CircleArc(F', A_1, B_1)
d = CircleArc(F, B_1, A_1)
b = Ray(B, O)
K = (-3995.0199999999995, 2000.3000000000004)
L = (3004.9800000000005, 2000.3000000000004)
M = (3004.9800000000005, -1999.6999999999996)
N = (-3995.0199999999995, -1999.6999999999996)
j = Line(F, O)
a = Segment(A_1, B_1)
p = OrthogonalLine(B, a)
C = Intersect(p, a)
q = Segment(B, C)
r = Ray(C, F')
s = Line(C, F')
t = Line(B, O)
B' = Intersect(s, t)
a_1 = OrthogonalLine(B, j)
b_1 = OrthogonalLine(B', j)
G = Intersect(a_1, q)
A = Intersect(a_1, j)
A' = Intersect(b_1, j)
Q = Point(a)
w = Vector(Q, B_1)
z = Vector(B_1, Q)
c_1 = Segment(A, B)
d_1 = Segment(B', A')
liste1 = Sequence(Segment[B, (0, -1.75 + 0.5 * i)], i, 0, 7)
liste2 = Sequence(Ray[(0, -1.75 + 0.5 * i), B'], i, 0, 7)
liste3 = Sequence(Segment[B', (0, -1.75 + 0.5 * i)], i, 0, 7)
liste4 = Sequence(Ray[B', (0, -1.75 + 0.5 * i)], i, 0, 7)
R = Point(liste4)
S = Point(liste4)
T = Point(liste4)
U = Point(liste4)
V = Point(liste4)
W = Point(liste4)
Z = Point(liste4)
C_1 = Point(liste4)
e_1 = Ray((0, -1.75), R)
f_1 = Ray((0, -1.25), S)
g_1 = Ray((0, -0.75), T)
h_1 = Ray((0, -0.25), U)
i_1 = Ray((0, 0.25), V)
j_1 = Ray((0, 0.75), W)
k_1 = Ray((0, 1.25), Z)
l_1 = Ray((0, 1.75), C_1)
f: x < 0
k: x > 0
ma2 = If(y(B') < y(A'), -Distance[A', B'], Distance[A', B'])
texte2: "\overline{A'B'} = " + (LaTeX[ma2]) + ""
ma1 = If(y(B) < y(A), -Distance[A, B], Distance[A, B])
texte1: "\overline{AB} = " + (LaTeX[ma1]) + ""