AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Speichern ist ziemlich langsam

Ein Thema von Jelly · begonnen am 12. Okt 2004 · letzter Beitrag vom 12. Okt 2004
Antwort Antwort
Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#1

Speichern ist ziemlich langsam

  Alt 12. Okt 2004, 10:37
Hallo,

ich nutze folgenden Code um ein 3-dimensionales Array in ein Matlabfile zu speichern:
Delphi-Quellcode:
    { 3D-Matrix mit Parametern }
    for iz := 0 to G.z-1 do begin
       V_line := format('%s (:,:,%d) = [',[ArrayName,iz+1]) ;
       for ix := 0 to G.x-1 do begin
          for iy := 0 to G.y-1 do with Thread.Cells[ix,iy,iz] do begin
             V_line := V_line + format('%s ',[FloatToStr(C)]) ;
             if (iy = G.y-1) and (ix < G.x-1) then begin
                V_line := V_line + '; ' ;
             end ;
          end ;
       end ;
       V_line := V_line + '] ;' ;
       writeln (FF,V_line) ;
       V_line := '' ;
    end ;
Das klappt auch soweit, nur ist das alles sehr zäh und lahm. G.x, G.y, G.z betragen 100. Es wird also 100^3=1.000.000 mal durchlaufen, was ja im Grunde nicht viel ist für ein 2.5GHz Rechner. Kann es eventuell sein daß FloatToStr extrem langsam ist und sich nach 1000000 mal bemerkbar macht?
  Mit Zitat antworten Zitat
Benutzerbild von alcaeus
alcaeus

Registriert seit: 11. Aug 2003
Ort: München
6.537 Beiträge
 
#2

Re: Speichern ist ziemlich langsam

  Alt 12. Okt 2004, 11:31
Hi Tom,

durch FloatToStr wirst du wohl durchmüssen. Die einzige Zeitersparnis erreichst du, wenn du die Daten im Speicher ablegst (z.B. in einem FileStream) und anschließend alles in einem Zug in die Datei schreibst. Inwiefern dies schneller ist, kann ich dir nicht genau sagen.
Ich habe bei einem Filespeicher-Algorithmus jedenfalls festgestellt, dass er am schnellsten läuft, wenn ich 512 Bytes auf einmal schreibe.

Greetz
alcaeus
Andreas B.
Die Mutter der Dummen ist immer schwanger.
Ein Portal für Informatik-Studenten: www.infler.de
  Mit Zitat antworten Zitat
Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#3

Re: Speichern ist ziemlich langsam

  Alt 12. Okt 2004, 11:36
Du benutzt G.z mal :

writeln (FF,V_line) ; Könnte man das nicht auch zuerst mal in ein Array legen und auf einen Schlag wegschreiben ?
Gruß
Hansa
  Mit Zitat antworten Zitat
Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#4

Re: Speichern ist ziemlich langsam

  Alt 12. Okt 2004, 11:53
Zitat von Hansa:
Könnte man das nicht auch zuerst mal in ein Array legen und auf einen Schlag wegschreiben ?
Können schon, aber nur wenns was bringt. Deshalb frage ich ja. Wenns nachher 3ms bringt, werd ichs wohl belassen

Aber vielleicht ist ja das Schreiben mittels writeln(FF,V_Line) auch der Grund, und ich tät besser dran, mit FileStreams o.ä. zu arbeiten.

Danke aber schon mal.
  Mit Zitat antworten Zitat
Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#5

Re: Speichern ist ziemlich langsam

  Alt 12. Okt 2004, 12:13
FloatToStr ist sehr langsam, das stimmt. Aber Du könntest doch die Werte im nativen Format speichern, oder? Dann würdest Du eine Million Aufrufe zu FloatToStr eingespart.

......
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat
Benutzerbild von nailor
nailor

Registriert seit: 12. Dez 2002
Ort: Karlsruhe
1.989 Beiträge
 
#6

Re: Speichern ist ziemlich langsam

  Alt 12. Okt 2004, 12:19
aber er will sie doch danach in MatLab reinsaugen. Und ich glaube, es ist besser die Verrenkungen in Delphi zu machen, und MatLab normal einlesen zu lassen, als andersrum.
Michael N.
http://nailor.devzero.de/code/sharpmath/testing/ --- Tests, Feedback, Anregungen, ... aller Art sehr willkommen!
::: don't try so hard - it'll happen for a reason :::
  Mit Zitat antworten Zitat
choose

Registriert seit: 2. Nov 2003
Ort: Bei Kiel, SH
729 Beiträge
 
Delphi 2006 Architect
 
#7

Re: Speichern ist ziemlich langsam

  Alt 12. Okt 2004, 12:32
Hallo Jelly,

ich habe Dein Programm mit diesen Daten
Delphi-Quellcode:
const
  GX = 50;
  GY = 50;
  GZ = 50;
  arrayname = 'AnArrayName';
  g:record x,y,z: Integer end = (x:GX; y:GY; z:GZ);

var
  iz, iy, ix: Integer;
  v_line: string;
  Thread: record Cells: array[0..GX-1, 0..GY-1, 0..GZ-1] of record c: double; end; end;
  FF: Textfile;
in AQTime untersucht und mein Verdacht, dass die Stringverarbeitung der limitiernde Faktor ist, hat sich bestätigt. Hier die Ergebnisse:

Code:
Routine Name | % with Children | with Count
-------------+-----------------+------------
Format      |           32,15 |     125050
FloatToStr  |           28,51 |     125000
LStrCat     |           26,81 |     127500
über 85% der Zeit innerhalb der Schleife wird folglich mit der Zusammensetzung verbracht und nur ein geringer Teil des Rests mit dem Schreiben auf den (lokalen) Datenträger.

Suche im Forum einmal nach Beiträgen von Hagen aka negaH zum Thema String-Konkatenation uä, um einen genaueren Überblick über die Thematik zu erlangen.
gruß, choose
  Mit Zitat antworten Zitat
Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#8

Re: Speichern ist ziemlich langsam

  Alt 12. Okt 2004, 12:39
Îch würde es testen, um zuerst einmal zu sehen, wie sich das ganze auswirkt. Also 100mal 10.000Byte wegschreiben und 1mal 1.000.000. Das Zeitverhalten des 100mal Schreib-Programmes 8) kannst du dann vergleichen mit deinem. Der Unterschied ist FloatToStr. Anderenfalls bleibt das hier nur Raterei.

Ich habe hier ein Programm, das schreibt 100.000 Datensätze in DB. Lasse ich hierbei nur einen Zähler in einem Memo mitlaufen, so ist es um den Faktor 3 langsamer. Das sind so Effekte, die man nicht unbedingt erwarten würde.
Gruß
Hansa
  Mit Zitat antworten Zitat
Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#9

Re: Speichern ist ziemlich langsam

  Alt 12. Okt 2004, 12:45
Zitat von nailor:
aber er will sie doch danach in MatLab reinsaugen. Und ich glaube, es ist besser die Verrenkungen in Delphi zu machen, und MatLab normal einlesen zu lassen, als andersrum.
Sorry, da war das Tippen-vor-dem-vollständigen-Lesen-Syndrom

......
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat
Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#10

Re: Speichern ist ziemlich langsam

  Alt 12. Okt 2004, 13:59
Zitat von choose:
Code:
Routine Name | % with Children | with Count
-------------+-----------------+------------
Format      |           32,15 |     125050
FloatToStr  |           28,51 |     125000
LStrCat     |           26,81 |     127500
Na das nenn ich doch mal aussagekräftig. Somit sollte doch eigentlich klar sein, warums so lange dauert. Erstaunlich daß so Stringroutinen sich dermaßend gravierend auf das Ergebnis auswirken. Die "Format" Funktion kommt ja auch noch im Code vor, und die wird wohl nicht viel schneller sein. Somit wäre klar, daß nicht das Schreiben das Ganze langsam macht, sondern diese ganzen Stringroutinen... Ist jetzt aber auch nicht weiter gravierend, mir ists nur aufgefallen. Nach 12 Stunden rechnen, kommts dann nachher auch nicht mehr auf 5 Sekunden Speichern an...

Vielen Dank für dir zahlreichen Antworten.

Gruß
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 09:53 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