Image Segementation with K means für VCL und FMX Framework, Teil #2

[TiGü]

Zitat von bernhard_LA:

( PS: vielleich probiert jemand den Code auch aus )

Dafür wäre ein durchkompilierbares Projekt als Zip-Archiv ganz hilfreich.
So muss man ganz schön viel machen, bis das der Quelltext am Laufen ist.

[TiGü]

Was ist das denn für ein Anfängerfehler in procedure TKMeans<T>.GroupData2NearestCluster?

Delphi-Quellcode:

    SetLength(UpdateCluster.ClusterElements,
      length(UpdateCluster.ClusterElements) + 1);

Das wird doch bei jeden neuen Vergrößern alle Daten umkopiert! Und das wird sehr schnell sehr groß!

[bernhard_LA]

*.zip bzw. Download link kommt heute noch



was wäre die Lösung um das unkopieren zu sparen bzw. schneller zu machen?

[TiGü]

TCluster wird eine Klasse und ClusterElements eine Liste.
Ich bin gleich soweit und stelle das Ergebnis gleich rein.

[TiGü]

Hier meine Verbesserungen.
LoadData kann analog wie SaveData verbessert werden, dass überlasse ich dir aber als Übung.
Lesetipp: https://blog.dummzeuch.de/2019/12/12...lls-in-delphi/

Die Bitmap am besten auch in C:\Temp werfen oder über den anderen Button eine neue Öffnen.

Project1_2024-01-16.zip

[bernhard_LA]

die Projekte gibt es hier zum Download, https://github.com/ImageProcessingFM...in/VCL_AND_FMX

[TiGü]

Zitat von TiGü:

Hier meine Verbesserungen.
LoadData kann analog wie SaveData verbessert werden, dass überlasse ich dir aber als Übung.
Lesetipp: https://blog.dummzeuch.de/2019/12/12...lls-in-delphi/

Die Bitmap am besten auch in C:\Temp werfen oder über den anderen Button eine neue Öffnen.

Anhang 56553

@bernhard_LA Hast du hier mal in die ZIP geguckt oder ging das jetzt unter?

[bernhard_LA]

( bin gerade am testen )


Zwischenstand : 4032*3024 pixel pf32bit

Delphi-Quellcode:

start kmean
 image segmentation ...
MyKMeans.LoadData elapsed time: 55577,86 ms
MyKMeans.Execute elapsed time: 52690,50 ms
MyKMeans.SaveData elapsed time: 2724,70 ms
kmean image segmentation done in 110993,06 ms