[b]À placer dans ALGEGRA (dans cet ordre et les uns à la suite de autres)[br][/b][br]n=Curseur(3,20,1)[br][br]s=Curseur(0,n-2,1)[br][br]a=sin((180°) / n) / (2 sin(9°))[br][br]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"}[br][br]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))[br][br]diagonalesPartielles=Elément(diagonales,s)[br][br]nbDiagonales=Somme(Séquence(Longueur(Elément(diagonales, i)), i, 1, Longueur(diagonales)))[br][br]nbDiagonalesPartielles=Longueur(diagonalesPartielles)[br][br]texte2="Nombre de diagonales "+Elément(couleurs,s+1)+" : "+Si(s<>0,LaTeX(nbDiagonalesPartielles),LaTeX(nbDiagonales))[br][br][b]À placer dans le curseur s (onglet Script>Par actualisation)[/b][br]SoitCouleur(diagonalesPartielles,Elément(couleurs,s+1))[br]SoitCouleur(texte2,Elément(couleurs,s+1))[br][br][b]À placer dans le booleen trace (onglet Script>Par actualisation)[/b][br]SoitTrace(diagonalesPartielles,trace)[br][br][b]À placer dans le curseur n [b](onglet Script>Par actualisation)[/b][/b][br]Agrandir(1)