AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Primzahlen ermitteln?

Ein Thema von Jan13490 · begonnen am 10. Mai 2007 · letzter Beitrag vom 12. Mai 2007
Antwort Antwort
Seite 3 von 3     123   
Benutzerbild von Nikolas
Nikolas

Registriert seit: 28. Jul 2003
1.528 Beiträge
 
Delphi 2005 Personal
 
#21

Re: Primzahlen ermitteln?

  Alt 11. Mai 2007, 20:09
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.
Erwarte das Beste und bereite dich auf das Schlimmste vor.
  Mit Zitat antworten Zitat
Benutzerbild von 3_of_8
3_of_8

Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
 
Turbo Delphi für Win32
 
#22

Re: Primzahlen ermitteln?

  Alt 11. Mai 2007, 20:16
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.
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
  Mit Zitat antworten Zitat
ThE_-_BliZZarD

Registriert seit: 15. Sep 2006
Ort: Wiesbaden/Hessen
89 Beiträge
 
Delphi 2010 Professional
 
#23

Re: Primzahlen ermitteln?

  Alt 11. Mai 2007, 22:53
*Interesse anmeld*
Poste mal bitte den Code
MSVC2008 (C/C++ with QT), Delphi RAD 2010, Flash CS5 (FDT/Adobe), Java EE (Eclipse), PHP5
Antwortsprachen: Deutsch, Englisch, Französisch, Japanisch
  Mit Zitat antworten Zitat
Benutzerbild von 3_of_8
3_of_8

Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
 
Turbo Delphi für Win32
 
#24

Re: Primzahlen ermitteln?

  Alt 11. Mai 2007, 23:24
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.
Angehängte Dateien
Dateityp: pas eratosthenes_171.pas (2,5 KB, 22x aufgerufen)
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
  Mit Zitat antworten Zitat
alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#25

Re: Primzahlen ermitteln?

  Alt 12. Mai 2007, 08:05
Es geht auch in ca. 1.5 Sekunden, hier
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat
Benutzerbild von 3_of_8
3_of_8

Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
 
Turbo Delphi für Win32
 
#26

Re: Primzahlen ermitteln?

  Alt 12. Mai 2007, 09:19
Aber nur mit einer Art hartkodierten Primzahltabelle bis ~2^15, wenn ich das richtig sehe.
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
  Mit Zitat antworten Zitat
alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#27

Re: Primzahlen ermitteln?

  Alt 12. Mai 2007, 10:19
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.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 3 von 3     123   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:44 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz