position

grand triangle

?

arbre

petit triangle

?

longueurs

A = Point(xAxis)
a = 1.7 (slider from 1 to 2, step 0.1)
O: A + (0, a)
B = Point(xAxis)
b = 8.2 (slider from 4 to 30, step 0.1)
H: B + (0, b)
l = 0.6 (slider from 0 to 1, step 0.1)
O': O + (l, 0)
L: O' + (0, (-l))
O1: O'
O2: O1 + (0, l)
f = Segment(O, O')
g = Segment(O1, O2)
h = Ray(O, O2)
i = Ray(O, O1)
C: B + (((-b) * 330 / 598 / 2), 0)
D: C + ((b * 348 / 598), 0)
α = Angle(O1, O, O2)
d = false
e = false
texte2: "longueur\ AB \approx " + (LaTeX[If[e ≟ 1, Distance[A, B], ""]]) + ""
texte1: "hauteur\ de\ l'arbre = " + (LaTeX[If[d ≟ 1, Distance[B, H], ""]]) + ""
BH = Distance(B, H)
A': B + ((-BH), 0)
AO = Distance(A, O)
O'': A' + (0, AO)
k = Segment(O'', B)
O''': O'' + (l, 0)
m = OrthogonalLine(O''', f)
E = Intersect(m, k)
image2' = Dilate(image2, a / 1.7, O)
F: A + (-0.82, -0.07)
G: F + (1.021, 0)
c = false
n = Segment(H, B)
β = Angle(O2, O', O)
p = OrthogonalLine(O, n)
J = Intersect(p, n)
γ = Angle(H, J, O)
o = true
K = (14.490383422275537, 1.7)
O1' = Translate(O1, Vector[O, K])
O2' = Translate(O2, Vector[O, K])
O''_1 = Translate(O', Vector[O, K])
r = Segment(K, O''_1)
s = Segment(O2', O1')
t = Segment(O1', K)
f_1 = Segment(K, O2')
δ = Angle(O2', O''_1, K)
j = Line(A, B)
u = false
g_1 = Segment(H, J)
I = Midpoint(J, H)
h_1 = Segment(J, B)
i_1 = Segment(A, O)
B' = Rotate(B, (-(45°)), H)
ε = Angle(B, H, B')
j_1 = Line(B', H)
M = Intersect(p, j_1)
k_1 = OrthogonalLine(M, i)
N = Intersect(k_1, j)
l_1 = Segment(M, H)
q = Segment(M, J)
v = false
w = false
n_1 = Segment(J, H)
p_1 = Segment(K, O''_1)
q_1 = Segment(O2', O1')
r_1 = Segment(H, B)
P = Midpoint(B, H)
m_1 = Segment(M, J)
a_1 = false
s_1 = Ray(A, A + (0, -1))
Q = Point(s_1)
R: Q + Vector[A, B]
u_1 = Vector(Q, R)
v_1 = Vector(R, Q)
S = Midpoint(Q, R)
AB = Distance(A, B)
texte5: "" + (LaTeX[AB]) + ""
T = Midpoint(B, J)
texte6: "" + (LaTeX[Distance[B, J]]) + ""
t1, o2, o_1, o' = Polygon(O, O', O2)
t2, o2', k_2, o''_1 = Polygon(K, O''_1, O2')