Hvor lang tid tager det at multiplicere 2262 store tal sammen?

Kan du ikke bare teste det!?

var
  C: Cardinal;
begin
  C := GetTickCount; //GetTickCount returnerer antallet af milisekunder siden Windows blev startet.
  LavEnMasseBeregninger(12343245);
  C := GetTickCount - C;
  ShowMessage('Beregningerne tog ' + IntToStr(C) + ' milisekunder.');
end;

//hermandsen

Problemet er at jeg jo gerne vil vide om det kan passe, at det tager så lang tid at beregne. Tiden har jeg holdt for mig selv, fordi jeg gerne vil vide hvor lang tid nogle af jer mener det bør tage? Bør det tage under 5 min, under en halv time, en time eller ?????

PÅ min gamle 600 Mhz tager det 20 milli-sekunder 

Stoney

20 milli-sekunder hmmm det var kort tid...og så ender du med et resultat på mange cifre ?

procedure TForm1.Button1Click(Sender: TObject);
var
i,resultat : integer;
C: Cardinal;

begin
C := GetTickCount;
resultat := 1;
for i := 2 to 20000 do
begin
if isprime(i) then
resultat := resultat * i;

end;
C := GetTickCount - C;
  ShowMessage('Beregningerne tog ' + IntToStr(C) + ' milisekunder.');
  showmessage(inttostr(resultat));
end;

Stoney

Når jeg har ganget tallene, til og med Primtallet 37, så har jeg et resultat der ser sådanne ud. 7420738134810...og hvis resultatet skal være en integer??
Du må få en fejl undervejs?

Jeg får 4693139312821112818 med primtal fra 2- 20000

resultat skal være int64 og IKKE integer

Stoney

Beregningerne tog 1732 milisekunder.
Resulatat: 4693139312821112818

Lavet på en 533MHz med 265MB RAM

Snowball

Hvis jeg ganger alle primtal mellem 2 og 20000, får jeg et resultat der er på mere end 8000 cifre....det er derfor jeg benytter tabeller og pointere??!

penta > du må gøre et eller andet forkert.
Forkerte tabeller, pointere whatever ?

Læg mærke til Snowballs og mit resultat er identiske

Stoney

Vil du have en liste over primtallene ?

Stoney

stoney: Tror penta har ret. Prøv og skriv de fundne primtal og melleregningerne ud. resultatet går jo i minus flere gange hvilke det jo ikke burde, men kun gør fordi en Int64 åbenbart ikke er stor nok (hvad er større !?)

  C := GetTickCount;
  resultat := 1;
  Memo1.Clear;
  for i := 2 to 20000 do begin
    if isprime(i) then Begin
      Memo1.Lines.Add('Primtal fundet: ' + IntToStr(i));
      Memo1.Lines.Add('Temp. resultat: ' + IntToStr(resultat));
      resultat := resultat * i;
    end;
  end;
  C := GetTickCount - C;

  Memo1.Lines.Add('Beregningerne tog ' + IntToStr(C) + ' millisekunder.');
  Memo1.Lines.Add('Resultat: ' + IntToStr(resultat));

Snowball

Det største tal en Int64 kan indeholde er jo 9223372036854775807 og det overskrider vi jo allerede inden vi når til primtal der ligger over 60 !

Så vidt jeg ved findes der ikke lige noget større end Int64 !?

Snowball

Nej tak. Jeg har en liste over samtlige primtal mellem 2 og 20000.
Hvis jeg tager en almindelig lommeregner får jeg:
(2*3*5*7*9*11*13*17*19*23*29*31*37*41*43*47)= 5534008043296422690
Dvs. jeg har ganget 16 af de 4203 primtal der findes mellem 2 og 20000. Dette giver et resultat på 19 cifre. Så mangler jeg kun at gange resultatet med de resterende 4184 primtal...og det siger I alt i alt skal give et resultat på  19 cifre...det kan jeg ikke få til at passe.

Problemet er at der ikke er plads i en alm INt64, Det bliver jo et enormt tal... Hvad skal du bruge det til ?

Jeg forsøger at lave et program der kan lave en form for krypteringskode...altså et meget stort primtal ganget med et meget stort primtal.

...ikke fordi jeg har så meget forstand på det, men jeg prøver.

Hvis du skal lave kryptering, så start på et niveau hvor du kan være med ....

Tilbage til dit SPM. Jeg har lige lavet en test.

På "min" computer en p4 1620 Mhz skal jeg bruge 343 ms på at generer de 2262 primtal, og ydligere 1 ms på at gange dem sammen.

Det tager "ingen" tid at gange dem sammen, assembler instruktionen imul bruger kun en enkelt instruktion på at gange to heltal sammen. det har den gjort siden P2. Derfor giver det ikke meningen at tage tid på så lille et regne stykke, 2262 er ikke ret meget !

Hvis dit regne stykke tager langtid, er det fordi du bruger langtid på dine primtal.

Jens B

Her er lidt hjælp til kryptering ;

unit Tools;

interface

uses
  Sysutils, Classes;

procedure FastCrypt(ptrBuffer: Pointer; iSize: Integer; uiInit: Byte = $00);
procedure FastDeCrypt(ptrBuffer: Pointer; iSize: Integer; uiInit: Byte = $00);

implementation

procedure FastCrypt(ptrBuffer: Pointer; iSize: Integer; uiInit: Byte = $00);
var
  iIdx      : Integer;
  uiCurrByte : Integer;
  uiLastByte : Integer;
begin
  uiLastByte := 0;

  for iIdx := 1 to iSize do
  begin
    uiCurrByte := Byte(ptrBuffer^);
    uiCurrByte := uiCurrByte xor uiLastByte;
    uiCurrByte := not uiCurrByte;
    uiCurrByte := uiCurrByte xor uiInit;
    uiCurrByte := ((uiCurrByte and $0F) shl 4) or ((uiCurrByte and $F0) shr 4);
    uiLastByte := uiCurrByte;
    Char(ptrBuffer^) := Char(uiCurrByte);
    inc(pChar(ptrBuffer));
  end;
end;

procedure FastDeCrypt(ptrBuffer: Pointer; iSize: Integer; uiInit: Byte = $00);
var
  iIdx      : Integer;
  uiCurrByte : Byte;
  uiLastByte : Byte;
begin
  uiLastByte := 0;
  for iIdx := 1 to iSize do
  begin
    uiCurrByte := Byte(ptrBuffer^);
    uiCurrByte := ((uiCurrByte and $0F) shl 4) or ((uiCurrByte and $F0) shr 4);
    uiCurrByte := uiCurrByte xor uiInit;
    uiCurrByte := not uiCurrByte;
    uiCurrByte := uiCurrByte xor uiLastByte;
    uiLastByte := Byte(ptrBuffer^);
    Char(ptrBuffer^) := char(uiCurrByte);
    inc(pChar(ptrBuffer));
  end;
end;


end.


Jens B

Det der taget de mange ms er at skrive dem ud i en Memo ... Hvis jeg ikke skal skrive dem ud så tager der under 1 ms for det hele

jens > køb en ny PC eller optimer din kode.
Det tager kun 31 msek på min p600 at finde dem og putte dem i en Tstringlist.

-:)

Stoney

Stoney .. Prøv samme trick, blot med en Tlist ....

Jeg er nede på 15 ms for at lave dem samt putte dem i  en TList !

Jens B

Ved Tlist ender jeg på
20 ms på en P3 600 mhz

Stoney

Ok jeg er stået af, men siger tak for hjælpen alle sammen. Jens B kunne du ikke give et "svar", så du kan få dine berettigede point. Jeg opretter et nyt spørgsmål...for dette bliver vist ikke til mere. Jeg må jo finde ud af hvad jeg gør forkert. Men Jens B jeg vil meget gerne høre fra dig i mit næste indlæg, for jeg synes du har fat i noget interessant og tager mit spørgsmål seriøst, dejligt:) Jeg har meget at lære endnu :=)

penta> jeg tager dig skam også alvorligt, det er bare sjovt
at drille Jens. Gruppens Alpha-han skal altid udfordres.

:-)

Steen

Det er bare helt i orden stoney. Ingen problemer der :)

Ingen points til mig, stoney trænger mere end jeg gør. Til points .. Skulle nogen være i tvivl ?

Jens B

snowball >> Du er da vist ikke helt kvik her til morgen hva ?

afslør nu for den måbende hob hvorfor det giver minus på "halv vejen"

Jens B

Jamen der er jo en grund til at at du har alle de point. Du har vel fortjent dem...og hvad du så herefter vil gøre med dine point, det blander jeg mig ikke i.

OKI ... så får du et svar :-)

Jens B

Tak Mester Borrisholt...ikke så beskeden :)

penta >> Jammen tak da ... Jeg synes blot ikke vi helt har fået belyst problemet .....

Du har 2262 heltal du skal have ganget sammen. Det taget altså under 1 ms, uanset hvad.

Og det faktum har jeg på peget i går, og det er der ingen der har haft noget at føje til. altså må jeg have ret ? (igen)

Ærgo, er der for mig at se kun din primtals algoritme tilbage, som kan tage tiden for dig ! Den har vi ikke hørt eller set meget til !

Endvidere har jeg svært ved at se hvorfor du ikke sætter dig ind i noget allerede eksisterende kryptering ?

På min, nu vist lidt stører computer kan jeg generer de 2262 primtal og gange dem sammen på under 1 ms. Så prcos hvad du har gang i er svært at sige.

Jens B

Her er lidt primtals-fætter-guf:
http://www.swissdelphicenter.ch/en/showcode.php?id=914
http://www.swissdelphicenter.ch/en/showcode.php?id=1210

Hvis det var noget du ville ha' optimeret...

hermandsen >> Assembler fuktionen virker ikke. Den anden er sløv !

Jens B

Og så regner den i øvrigt forkert

Jens B

Den fra 1210 er også den jeg bruger.

Jens B

Det var min multiplikation der var problemet.
Jens B>> Grunden til I ikke har hørt mere om generering af primtallene er: Jeg genererer primtallene, gemmer dem og ved et klik på en knap - begynder multiplikationen og det er så dennes tid jeg har været interesseret i.

Jeg vil lave et program der kan lave en krypteringkode. Men du har ret, jeg bør nok undersøge noget mere.

Jeg har nu fået optimeret min kode, og det går en del stærkere. Jeg har som sagt meget at lære endnu :)
Endnu en gang mange tak for hjælpen-