tlist sort problema

[Narciso]

Ho costruito una tlist in cui metto dei record adesso ho il problema di ordinarli...
usando list.sort e la seguente funzione di comparazione, pre avere la lista ordinata devo eseguire 4 5 chiamate di sort.

function comparevincoli(Item1 : Pointer; Item2 : Pointer) : Integer;
var
va1,va2:integer;
begin
va1:= vincoliattivi(ptlezione(Item1)^.num,[1,2,3,4]); la funzione vincoliattivi restituisce un integer da 0 a 100
va2:= vincoliattivi(ptlezione(Item2)^.num,[1,2,3,4]);
if va1 < va2 then
Result := 1
else if va1 > va2 then
Result := -1
else
Result := 0;
end;

tale comparazione e' chiamata con sort(@comparevincoli)


usando quest'altra funzione invece l'ordinamento è immediato

(anche se i parametri sono diversi)

function comparedurata(Item1 : Pointer; Item2 : Pointer) : Integer;
var va1,va2:integer;
begin

va1:= ptlezione(Item1)^.durata;
va2:= ptlezione(Item2)^.durata;
if va1 < va2 then
Result := 1
else if va1 > va2 then
Result := -1
else
Result := 0;
end;       

tale comparazione e' chiamata con sort(@comparedurata)

Mi spiegate come mai?

Giacchè ci siamo, la mia lista contiene record...
immaginiamo che un item abbia i seguenti campi : num, ord, tempo, peso;
posso ordinare la lista in modo che la lista sia ordinata prioritariamente per peso e quindi per num?
Mi spiego:

se:
 item1.num=0 item1.ord=3 item1.tempo=5 item1.peso=0

 item2.num=3 item2.ord=1 item2.tempo=2 item2.peso=3

 item3.num=0 item3.ord=3 item3.tempo=5 item3.peso=1

 item4.num=4 item4.ord=3 item4.tempo=5 item4.peso=0

e volessi ordinarla come criterio principale = peso e secondario=num

in modo tale che l'ordinamento diventasse:
 item2.num=3 item2.ord=1 item2.tempo=2 item2.peso=3
 item3.num=0 item3.ord=3 item3.tempo=5 item3.peso=1
item4.num=4 item4.ord=3 item4.tempo=5 item4.peso=0
item1.num=0 item1.ord=3 item1.tempo=5 item1.peso=0


Grazie a chi avra' la pazienza di rispondere



       

[Stilgar]

Ciao.
Una nota a margine.
Visto che lavori con interi cambia la result con:

Codice: [Seleziona]

result := va1 - va2;

public procedure TFPList.Sort(  Compare: TListSortCompare );

    If the result of this function is negative, the first pointer is assumed to be 'less' than the second and will be moved before the second in the list.
    If the function result is positive, the first pointer is assumed to be 'greater than' the second and will be moved after the second in the list.
    if the function result is zero, the pointers are assumed to be 'equal' and no moving will take place.

Anche i controlli che fai tu hanno il loro impatto sui tempi

Codice: [Seleziona]

if va1 < va2 then
Result := 1
else if va1 > va2 then
Result := -1
else
Result := 0;

rifà i controlli che vengono fatti dentro la quick sort della classe lista.

Non avendo la funzione "vincoliattivi" sotto gli occhi non possiamo dirti dove "perdi" tempo nei controlli.

La differenza che posso dirti è :
Nella sort veloce fai un confronto tra 2 numeri.
Nella sort lenta fai 2 chiamate ad una funzione.

 

Per l'altro quesito
Una cosa simile potrebbe essere d'aiuto?

Codice: [Seleziona]

function confrontoPesoENumero(item1 : TItem; item2: TItem): integer;
begin
  result := item1.peso - item2.peso;
  if (result = 0) then  
    begin
      result := item1.num -item2.num;
    end;
end;

In questo modo puoi mettere in cascata i criteri di ordinamento.
Prima il peso e poi il numero associato.


Stilgar

[Narciso]

//Anche i controlli che fai tu hanno il loro impatto sui tempi  ....
il problema non è nei tempi di esecuzione, ma nelle volte che devo richiamare la funzione per avere una lista completamente ordinata.

se non la richiamo 4 o 5 volte non si ordina.

Hai ragione, per la parte n2,  nel dire che va1-va2 sarebbe la stessa e farebbe risparmiare tempo.
Provero' la funzione confrontoPesoENumero quando avro' la certezza che almeno la prima funzioni al primo colpo.
Grazie

[Stilgar]

Se posti il codice di vincoliattivi possiamo vedere come mai da esiti incerti...

[Narciso]

sono sicuro dei risultati... li mostro in un tmemo e sono giusti..
comunque:
function vincoliattivi(lez:integer;V:TNUMS):integer ;
var d,h:integer;
  begin
  result:=0;
  objlezione:=listalezioni[lez];
  for d:= 0 to o.giorniasettimana-1 do
  for h:=0 to o.maxorealgiorno-1 do
  if objlezione^.quadrovincoli[d,h] in V then inc(result);
  end;       

[Stilgar]

Apparentemente è tutto a posto.
Non vedo cose che possano essere "casuali".
Forse, ma la sparo, questo è solo il sintomo, ma il problema è altrove ...
Siamo nel caso delle ipotesi ...

Stilgar

[Stilgar]

PS:
Prova a precalcolare il peso dei vincoli.
Ogni lezione il suo peso.

Codice: [Seleziona]

for d:= 0 to o.giorniasettimana-1 do
  for h:=0 to o.maxorealgiorno-1 do
  if objlezione^.quadrovincoli[d,h] in V then inc(result);

Qui lo calcoli ad ogni compare. Presupponendo che "o" sia un oggetto/record globale/di classe.
Non vorrei che nel confronto e nella stampa (che non vedo quindi presuppongo sia in un altro ciclo) uscissero valori diversi tra di loro.
Nella stampa, salvati il valore. Poi usi il valore calcolato per fare i confronti.
Così possiamo iniziare a isolare il problema.

Stilgar

[Narciso]

Prova a precalcolare il peso dei vincoli.
Ogni lezione il suo peso.

l'ho già fatto, mostro i dati di ogni lezione in una listview.. ed i calcoli sono giusti

[Stilgar]

Allora non saprei.

Stilgar