Ettagono e Ottagono

[Gianfranco]

Confermo.
Ho aggiunto al mio programmino la stampa delle aree con la formula di Gauss e ho ottenuto l'area massima = 75.

maxareaottagono.jpg (96.17 KiB) Visto 5672 volte

Il frammento di codice per il calcolo dell'area è questo:

Codice: Seleziona tutto

      !'=================
      !'Calcola l'area con la formula di Gauss
      !'Vale solo se il poligono non è intrecciato
      !'Coordinate c(x,y) da 1 a 8
         LET somma=0
         FOR x=1 TO 7
            LET somma=somma+c(x,1)*c(x+1,2)-c(x+1,1)*c(x,2)
         NEXT x
         LET somma=somma+c(8,1)*c(1,2)-c(1,1)*c(8,2)
         LET areap=ABS(somma/2)
         IF areap>maxarea THEN
            LET maxarea=areap
            LET numpmax=perm
         END IF
         IF areap<minarea THEN
            LET minarea=areap
            LET numpmin=perm
         END IF       
         !'=================

Purtroppo, non funziona per la ricerca dell'area minima perché trova poligoni intrecciati che hanno area 0.
Vedi esempio.

minareaottagono1.jpg (89.27 KiB) Visto 5672 volte

Dovrò adattare il metodo di Gauss oppure escludere i poligoni intrecciati.
A proposito, nel tuo problema i poligoni intrecciati sono ammessi tra le soluzioni?

[Maurizio59]

...
A proposito, nel tuo problema i poligoni intrecciati sono ammessi tra le soluzioni?

Ottimo lavoro Gianfranco.

Io ho escluso i poligoni intrecciati proprio perchè, in alcuni casi, calcolarne l'area non è una cosa banale.