Diagonales d'un polygone régulier
À 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)