Optimering af søgning

then
  begin
    fundet := m;
    break;
  end;

break forlader løkken den befinder sig i.

Det gav da noget, og ihvertfald lidt mere end at lave den inderste løkke til en while som jeg også lige har prøvet.

Kom det i er træ i stedet for et Array.

Du kan fx anvende et binært træ, b træ, b+ træ, eller endnu bedere et ballanceret 2-3 træ

Jens B

Og hvordan gør man så det? Hvor kan jeg læse noget om det?

borrisholt -> "træ"?

OKI giv mig to oplysninger :

1)
  Hvordan ser dine elementer ud i dit array ?
2)
  Hvordan finder du ud af hvilkent element der er størst ?

Når jeg har de to oplysninger så skal jeg nok svare mere konkret !

Jens B

dkklein >> Hvor man kan læse om den slags ? Tjooo køb en matematisk orienteret programmerings bog. Jeg vender tilbage med en tittel senere, nok i morgen.

athlon-pascal >> Følg du trygt denne tråd !

Jens B

Hvis man kan få konstrueret en god hash funktion så bør en hash tabel
faktisk være endnu hurtigere end et træ.

borrisholt-> dine spørgsmål:

1: elementerne er tekst elementer af varierende længde. Ved een type søgning er det 1 til 7 karakterer der søges efter. Ved en anden søgning er det fra 10 til 100+ karakterer der søges efter.

2: Det gør jeg ikke. Alt er gemt i et array of records i "tilfældig" rækkefølge.

Hmmn .. Send mig lige din kode så kigger jeg på det ....

Den bog jeg vil anbefale hedder Algorithems And Datastructures.

Jens B

2 arrays er defineret som følger:


  DBquery : Array of record
    iPid : integer;
    TransType,
    Date,
    Time,
    PID,
    where, filename, key, weight, keytype, records, seconds, query, sortfields, extracttime, sorttime, db12    : string;
  end;
  DBquerystats : Array of record
    Query,Filename,Keytype,Key,Seconds,PID : string;
    Antal : integer;
    iPid : integer;
  end;


Denne kode er ændret på grundlag af et forslag jeg har fået andetsted men det gjorde rutinen langsommere.

For n:=0 to pred(TransCount) do begin
  fundet:=pred(TransCount);

  if (donotcount.Checked=false) then begin
    while fundet>=0 do
      if (DBquery[n].query=DBquerystats[fundet].query) and
        (DBquery[n].keytype=DBquerystats[fundet].Keytype) and
        (DBquery[n].key=DBquerystats[fundet].Key) then
            break
      else
        dec(fundet);
   
  end;
  if fundet>-1 then
  DBqueryStats[fundet].Antal:=DBqueryStats[fundet].Antal+1
  else begin
  DBqueryStats[SortTrans].Antal:=1;
  DBqueryStats[SortTrans].PID:=DBquery[n].PID;
  DBqueryStats[SortTrans].iPid:=strtoint(DBquery[n].PID);
  DBqueryStats[SortTrans].Query:=DBquery[n].query;
  DBqueryStats[SortTrans].Filename:=DBquery[n].filename;
  DBqueryStats[SortTrans].Keytype:=DBquery[n].keytype;
  DBqueryStats[SortTrans].Key:=DBquery[n].key;
  DBqueryStats[SortTrans].Seconds:=DBquery[n].seconds;
  SortTrans:=SortTrans+1;
  end;
end;


Her kommer min egen version af ovenstående:


For n:=0 to TransCount-1 do with DBquery[n] do begin
  fundet:=-1;
    For m:=0 to SortTrans-1 do with DBquerystats[m] do begin
      if (DBquery[n].query=DBquerystats[m].query) and (DBquery[n].keytype=DBquerystats[m].Keytype) and (DBquery[n].key=DBquerystats[m].Key) then
      fundet:=m;
    end;
  if fundet>-1 then
  DBqueryStats[fundet].Antal:=DBqueryStats[fundet].Antal+1

  else begin
  DBqueryStats[SortTrans].Antal:=1;
  DBqueryStats[SortTrans].PID:=DBquery[n].PID;
  DBqueryStats[SortTrans].Query:=DBquery[n].query;
  DBqueryStats[SortTrans].Filename:=DBquery[n].filename;
  DBqueryStats[SortTrans].Keytype:=DBquery[n].keytype;
  DBqueryStats[SortTrans].Key:=DBquery[n].key;
  DBqueryStats[SortTrans].Seconds:=DBquery[n].seconds;

  SortTrans:=SortTrans+1;
  end;
end;

--> Borrisholt

Ved du hvor jeg kan købe bogen du anbefalede "Algorithems And Datastructures" ?

Er det denne bog du tænker på:

http://www.amazon.com/exec/obidos/tg/detail/-/1556227361/ref=pd_sim_books_1/102-8841637-5828121?v=glance&s=books

Jeg tror vist ikke vi kommer tættere på en løsning her og nu. Jeg har bestilt den foreslået bog.

borrisholt, lav et svar så får du også point.

Nej det var godtnok ikke den jeg tænkte på, men den ser også god ud.

Jens B