ΠΥΘΑΓΟΡΕΙΟ ΘΕΩΡΗΜΑ ΚΑΙ ΕΠΕΚΤΑΣΗ ΑΥΤΟΥ ΣΕ ΚΑΝΟΝΙΚΑ ΠΟΛΥΓΩΝΑ

a = 3 (slider from 3 to 10, step 1)
B = (1.9853481262998667, 4.284285113788862)
A = (1.9727842238608506, 0.2860158454961783)
b = Segment(B, A)
c = OrthogonalLine(A, b)
Γ = Point(c)
d = Segment(B, Γ)
e = Segment(A, Γ)
E_2, f, g, h, i, t, c_1, f_1, i_1, l_1, p_1, Δ, Ε, Κ, Ν, Π, Α, Υ, Ψ = Polygon(Γ, A, a)
E_1, j, k, l, q, a_1, d_1, g_1, j_1, m_1, q_1, Ζ, Θ, Λ, Ξ, Ρ, Β, Φ, Ω = Polygon(A, B, a)
E, m, n, p, r, b_1, e_1, h_1, k_1, n_1, r_1, Η, Ι, Μ, Ο, Σ, Τ, Χ, Α_1 = Polygon(B, Γ, a)
πολύγ4, γ, α, β = Polygon(B, A, Γ)
s = Segment(A, Γ)
κείμενο1: "E_{1}+E_{2}=" + (LaTeX[E_1]) + "+" + (LaTeX[E_2]) + "=" + (LaTeX[E]) + ""
δ = Angle(Γ, A, B)