Diagonales d'un polygone régulier

Thème :
Polygones
À placer dans ALGEGRA (dans cet ordre et les uns à la suite de autres) n=Curseur(3,20,1) s=Curseur(0,n-2,1) a=sin((180°) / n) / (2 sin(9°)) couleurs={"Gray","Blue","Green","Maroon","Red","Magenta","Indigo","Orange", "Gold","Lime", "Cyan", "Light Blue", "Aqua","Dark Blue","Dark Green","Crimson","Purple","Brown","Pink", "Violet", "Yellow"} diagonales=Union({Séquence(Segment(Elément({Sommet(Polygone((-a,0),(a,0),n))}, 1), Elément({Sommet(Polygone((-a,0),(a,0),n))}, i)), i, 3, n-1, 1)},Séquence(Séquence(Segment(Elément({Sommet(Polygone((-a,0),(a,0),n))}, j), Elément({Sommet(Polygone((-a,0),(a,0),n))}, i)), i, j + 2, n, 1), j, 2, n)) diagonalesPartielles=Elément(diagonales,s) nbDiagonales=Somme(Séquence(Longueur(Elément(diagonales, i)), i, 1, Longueur(diagonales))) nbDiagonalesPartielles=Longueur(diagonalesPartielles) texte2="Nombre de diagonales "+Elément(couleurs,s+1)+" : "+Si(s<>0,LaTeX(nbDiagonalesPartielles),LaTeX(nbDiagonales)) À placer dans le curseur s (onglet Script>Par actualisation) SoitCouleur(diagonalesPartielles,Elément(couleurs,s+1)) SoitCouleur(texte2,Elément(couleurs,s+1)) À placer dans le booleen trace (onglet Script>Par actualisation) SoitTrace(diagonalesPartielles,trace) À placer dans le curseur n (onglet Script>Par actualisation) Agrandir(1)