AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Laufzeitoptimierung eines Consolen-Programms
Thema durchsuchen
Ansicht
Themen-Optionen

Laufzeitoptimierung eines Consolen-Programms

Ein Thema von stpolster · begonnen am 1. Sep 2023 · letzter Beitrag vom 11. Sep 2023
Antwort Antwort
Seite 1 von 4  1 23     Letzte »    
stpolster

Registriert seit: 18. Okt 2011
34 Beiträge
 
#1

Laufzeitoptimierung eines Consolen-Programms

  Alt 1. Sep 2023, 09:21
Hallo,
auf dem Forum "Matheplanet" läuft gerade eine Art Wettbewerb, bei dem es um möglichst schnelle Berechnung von langen Zahlen geht. Die Berechnung hat eigentlich wenig Sinn, es geht nur um Geschwindigkeit.
25 Millionen mal werden zwei lange Zahlen multipliziert, dann unter eine Grenze reduziert und das Ergebnis mit 2^128 div und mod geteilt.
Nachdem ich mit Delphi 5 im Vergleich zu anderen Programmiersprachen nicht ganz so gut war, habe ich es jetzt auf Console umgestellt und es wurde etwas schneller. Es nutzt die Langzahlroutinen von Wolfgang Ehrhardt.
Delphi-Quellcode:
program matheplanet_projekt2;
{$APPTYPE CONSOLE}
uses SysUtils,
  mp_base, mp_types;

var
  a, b, soll, sub, produkt, filter: mp_int;
  Time1: TDateTime;
  nn, nad, nsu: integer;

begin
  Writeln('hyperG-Problem');
  Writeln;
  mp_init6(a, b, soll, sub, produkt, filter);
  nad:=0;
  nsu:=0;
  mp_read_decimal_astr(a,'170141183460469231731687303715884105757');
  mp_read_decimal_astr(b,'170141183460469231731687303715884105703');
  mp_read_decimal_astr(soll,'57896044618658097711785492504343953926634992332820282019728792003956564819968');
  mp_read_decimal_astr(sub,'11111111111111111111111111111111111111111111111111111111111111111111111111111');
  mp_read_decimal_astr(filter,'340282366920938463463374607431768211455');
  time1 := now;
  for nn:=1 to 25000000 do begin
     mp_mul(a,b,produkt);
     while mp_cmp_mag(produkt,soll)<0 do begin
      mp_add(produkt,sub,produkt);
      inc(nad);
     end;
     repeat
      mp_sub(produkt,sub,produkt);
      inc(nsu);
     until mp_cmp_mag(soll,produkt)>0;
     mp_shr(produkt,128,a);
     mp_and(produkt,filter,b);
    end;
  Writeln(FormatDateTime('SS:ZZZ', now - Time1));
  Writeln(mp_adecimal(produkt));
  Writeln(nad);
  Writeln(nsu);
  Writeln;
  Writeln('Programmende mit ENTER');
  mp_clear6(a, b, soll, sub, produkt, filter);
  readln;
end.
Das Ergebnis ist

13:325
47306219819553867530681020915755484915944251665601 642944764215683054098939729
83884810
25000000

Da ich gern die "Ehre von Delphi" verteidigen würde, suche ich noch nach Ideen zur Beschleunigung. Bei mir läuft die Routine in etwa 13,3 Sekunden durch.
In der ZIP-Datei sind auch die nötigen Quelltexte von Wolfgang Erhardts Routinen.

Danke für evtl. Ideen
Steffen
Angehängte Dateien
Dateityp: zip matheplanet_problem.zip (91,9 KB, 24x aufgerufen)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.063 Beiträge
 
Delphi 12 Athens
 
#2

AW: Laufzeitoptimierung eines Consolen-Programms

  Alt 1. Sep 2023, 16:59
Schau auch mal nach dem DEC Math vom Delphi Encryption Compendium.

Im Forum und inzwischen auf GitHub sollte sich das finden lassen.


[ADD]
Ich glaub das war im Part II drin, oder einzeln.
Beim Michael lag nur Part I rum. http://backups.geheimniswelten.de/ww.../DEC/index.htm
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.

Geändert von himitsu ( 1. Sep 2023 um 17:08 Uhr)
  Mit Zitat antworten Zitat
stpolster

Registriert seit: 18. Okt 2011
34 Beiträge
 
#3

AW: Laufzeitoptimierung eines Consolen-Programms

  Alt 1. Sep 2023, 17:30
Danke.
Sehe ich mir an.
  Mit Zitat antworten Zitat
Andreas13

Registriert seit: 14. Okt 2006
Ort: Nürnberg
719 Beiträge
 
Delphi XE5 Professional
 
#4

AW: Laufzeitoptimierung eines Consolen-Programms

  Alt 1. Sep 2023, 18:58
Hallo Steffen,
wenn ich Deinen Code mit XE5 kompiliere, dann brauche ich auf meinem PC knapp 7,4 Sekunden, während Dein Original matheplanet_projekt_console.exe von https://matheplanet.de/index.php etwa 9,4 Sekunden benötigt. Das ist leider nur ca. 21 % schneller.

Die Benutzung der neuesten (= letzten) Dateien von Wolfgang Ehrhardt vom November 2018 und das Hinzufügen der Zeile Winapi.MMSystem.timeBeginPeriod(1); bringen lediglich noch eine weitere 1/10 Sekunde. Mein bestes Ergebnis war 7,28 Sekunden. Weitere Optimierungsmöglichkeiten in Deinem Code habe ich noch nicht entdeckt.
In den extrem konzentrierten Code von Wolfgang Ehrhardt reinzupfuschen halte ich für ziemlich gefährlich...

Summa summarum: Ein noch neuerer Compiler könnte eventuell einen weiteren Geschwindigkeitsvorteil bringen.
Grüße, Andreas
Wenn man seinem Nächsten einen steilen Berg hinaufhilft, kommt man selbst dem Gipfel näher. (John C. Cornelius)
  Mit Zitat antworten Zitat
Andreas13

Registriert seit: 14. Okt 2006
Ort: Nürnberg
719 Beiträge
 
Delphi XE5 Professional
 
#5

AW: Laufzeitoptimierung eines Consolen-Programms

  Alt 1. Sep 2023, 20:40
Mit Lazarus (FreePascal 3.2.2) kompiliert braucht es knapp 16 Sekunden...
Grüße, Andreas
Wenn man seinem Nächsten einen steilen Berg hinaufhilft, kommt man selbst dem Gipfel näher. (John C. Cornelius)
  Mit Zitat antworten Zitat
stpolster

Registriert seit: 18. Okt 2011
34 Beiträge
 
#6

AW: Laufzeitoptimierung eines Consolen-Programms

  Alt 1. Sep 2023, 21:40
Vielen Dank für den Test und die deutlich kleineren Zeiten.
Ich hatte es mit dem vor Jahren freien RAD Studio 10 versucht. Da kamen zumindest bei mir schlechtere Zeiten heraus.
In Wolfgang Ehrhardts Code etwas zu ändern, würde mir nicht in den Sinn kommen.

Ist es möglich, mir die EXE zu senden ?

Danke Steffen
  Mit Zitat antworten Zitat
Andreas13

Registriert seit: 14. Okt 2006
Ort: Nürnberg
719 Beiträge
 
Delphi XE5 Professional
 
#7

AW: Laufzeitoptimierung eines Consolen-Programms

  Alt 1. Sep 2023, 21:49
Hallo Steffen,
die gezipte EXE ist im Anhang!
Angehängte Dateien
Dateityp: zip matheplanet_projekt2 (XE5).zip (70,5 KB, 5x aufgerufen)
Grüße, Andreas
Wenn man seinem Nächsten einen steilen Berg hinaufhilft, kommt man selbst dem Gipfel näher. (John C. Cornelius)
  Mit Zitat antworten Zitat
stpolster

Registriert seit: 18. Okt 2011
34 Beiträge
 
#8

AW: Laufzeitoptimierung eines Consolen-Programms

  Alt 1. Sep 2023, 21:53
Hallo Steffen,
die gezipte EXE ist im Anhang!
Vielen Dank.
  Mit Zitat antworten Zitat
Andreas13

Registriert seit: 14. Okt 2006
Ort: Nürnberg
719 Beiträge
 
Delphi XE5 Professional
 
#9

AW: Laufzeitoptimierung eines Consolen-Programms

  Alt 1. Sep 2023, 22:03
Sorry, es war die falsche Version, die zwar sehr schnell war, aber falsch gerechnet hat...

Hier ist die korrekte Fassung
Angehängte Dateien
Dateityp: zip matheplanet_projekt2 (XE5).zip (70,5 KB, 6x aufgerufen)
Grüße, Andreas
Wenn man seinem Nächsten einen steilen Berg hinaufhilft, kommt man selbst dem Gipfel näher. (John C. Cornelius)
  Mit Zitat antworten Zitat
stpolster

Registriert seit: 18. Okt 2011
34 Beiträge
 
#10

AW: Laufzeitoptimierung eines Consolen-Programms

  Alt 1. Sep 2023, 22:52
Nochmals Danke.
Ich sehe es mir sofort an.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 4  1 23     Letzte »    


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 21:28 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