Delphi-PRAXiS
Seite 3 von 3     123   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Primzahlen ermitteln? (https://www.delphipraxis.net/91830-primzahlen-ermitteln.html)

Nikolas 11. Mai 2007 20:09

Re: Primzahlen ermitteln?
 
Du musst für fast jede untersuchte Zahl eine Muliplikation machen, und ich nur eine Wurzel ziehen. Bei größeren Zahlen könnte sich das bemerkbar machen.

3_of_8 11. Mai 2007 20:16

Re: Primzahlen ermitteln?
 
Ja, bei größeren Zahlen mit Sicherheit.

Übrigens: Ich habe hier gerade ein Sieb des Erathostenes mithilfe eines Bitvektors realisiert und innerhalb von 74 Sekunden alle Zahlen von 0 bis 2^28 überprüft. Sollte Interesse bestehen, kann ich den Code mal posten.

ThE_-_BliZZarD 11. Mai 2007 22:53

Re: Primzahlen ermitteln?
 
*Interesse anmeld*
Poste mal bitte den Code :-D

3_of_8 11. Mai 2007 23:24

Re: Primzahlen ermitteln?
 
Liste der Anhänge anzeigen (Anzahl: 1)
Bittesehr, sogar ein kleines bisschen schneller als die verbesserte Version in der CL, die ich erst nachträglich gefunden habe. Im übrigen, die reine Berechnung von 2^28 Werten geht in 20 Sekunden, die restlichen 54 gingen für die Ausgabe in die Dateien (56 MB) drauf.

alzaimar 12. Mai 2007 08:05

Re: Primzahlen ermitteln?
 
Es geht auch in ca. 1.5 Sekunden, hier

3_of_8 12. Mai 2007 09:19

Re: Primzahlen ermitteln?
 
Aber nur mit einer Art hartkodierten Primzahltabelle bis ~2^15, wenn ich das richtig sehe.

alzaimar 12. Mai 2007 10:19

Re: Primzahlen ermitteln?
 
Auch Ohne wär es schneller, denn es verwendet eine Optimierung von Atkin. Das Erzeugen aller 16-bit Primzahlen dauert doch auch nur ein paar 100ms.


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:33 Uhr.
Seite 3 von 3     123   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz