Ho aggiunto al mio programmino la stampa delle aree con la formula di Gauss e ho ottenuto l'area massima = 75. 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
!'=================
Vedi esempio. Dovrò adattare il metodo di Gauss oppure escludere i poligoni intrecciati.
A proposito, nel tuo problema i poligoni intrecciati sono ammessi tra le soluzioni?