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

[Sinspin]

Die VCL Variante des GitHub Demo Projektes habe ich zum laufen bekommen.
- Canvas.Pixel entfernt.
- SetLength(..., Length+1) verbessert
-> 10 Sekunden für 800*600 Punkte! Immernoch viel viel viel zu lange. Ich habe vor bald 20 Jahren Bilder mit 10K*10K Pixeln in zwei Sekunden untersucht, wobei 5-Tausend bis 10-Tausend Zonen gefunden wurden.

[bernhard_LA]

die generic Code Verions VCL und FMX sollten eigentlich komplett sein unter

Delphi-Quellcode:

https://github.com/ImageProcessingFMX/kmeans/tree/main/VCL_AND_FMX

für die Variante

Delphi-Quellcode:

https://github.com/ImageProcessingFMX/kmeans/tree/main/VCL_ONLY

muss ich noch eine DEMO app erstellen

[bernhard_LA]

@ Sinspin : kannst du Deine Variante hier Posten?

[Sinspin]

Was? Mein Programm von vor 20 Jahren? Das funktioniert anders. Da ist anfangs komplett unbekannt wieviele Zonen es geben könnte. Ist ein watershed.

Bei deinem Algo verstehe ich noch nicht was es mit "Cluster.Center" auf sich hat. Init mit Zufall gibt oft grottige Resultate. Init mit Festwert gab immer grottige Resultate (wobei ich eben kapiert habe woran es liegt, denke ich). Aber, muss das wirklich initialisiert werden? Dann ist der Algo von Anfang an zum Scheitern verurteilt.

Was wirklich toll wäre, wenn Du dein Testbild mit uns teilen würdest. Sonst ist es nicht möglich unsere Resultate ordentlich zu vergleichen.

[TiGü]

Zitat:

Zitat von TiGü (Beitrag 1531985)

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

[Sinspin]

Mal meine Variante.
Lesen/schreiben ist schnell, bei KMeans hatte ich ein bisschen was probiert, nutzte aber nix um besseres Resultat zu bekommen.
Wie gesagt, dein Testbild wäre schön.