mostra cateto 1

mostra cateto 2

mostra ipotenusa

mostra soluzione

A = (0, 0)
lato = 13 (slider from 1 to 50, step 1)
B: (lato, 0)
tEquilatero, a, l, c, C = Polygon(A, B, 3)
r = OrthogonalLine(C, a)
H = Intersect(a, r)
h = Segment(C, H)
tRettangolo, AH, AB, CH = Polygon(H, B, C)
α, β, γ = Angle(tRettangolo)
poli1, b, d, e, f, D, E = Polygon(C, B, 4)
poli2, g, i, j, k, F, G = Polygon(B, H, 4)
poli3, m, n, p, q, I, J = Polygon(H, C, 4)
mc = false
mh = false
ml = false
ms = false
testo1: "lato=ipotenusa=BC=" + (LaTeX[AB]) + ""
testo3: "CH=\sqrt{\frac{3}{4}l^2}=\frac{l}{2}\sqrt{3}=\frac{" + (LaTeX[AB]) + "}{2}\sqrt{3}=" + (LaTeX[AH]) + "\sqrt{3}≈" + (LaTeX[h]) + ""
testo5: "CH=cateto 2=" + (LaTeX[AH]) + "\sqrt{3}"
testo4: "cateto 1=BH=" + (LaTeX[AH]) + ""
testo2: "CB=ipotenusa=" + (LaTeX[l]) + "
\\BH=cateto 1=\frac{lato}{2}=\frac{" + (LaTeX[AB]) + "}{2}=" + (LaTeX[AH]) + ""