Assegnata la lista di [i]n[/i] punti [b]{A,B,...}[/b] si determina [math]poli1.= Poligono[punti][/math], il comando [math] Vertice[poli1,k] [/math]restituisce il [i]k-esimo[/i] vertice.
Costruita la lista [math] vert= [Aggiungi[punti,Elemento[punti,1]] [/math] si costruisce la lista dei lati
[math]Lati = Successione[Segmento[Elemento[vert,k],Elemento[vert,k+1]],k,1,n][/math]
