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 https://github.com/ImageProcessingFMX/kmeans/tree/main/VCL_AND_FMX für die Variante 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 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

markieren

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.

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

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

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

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

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

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

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

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

Forumregeln

bernhard_LA Registriert seit: 8. Jun 2009 Ort: Bayern 1.136 Beiträge Delphi 11 Alexandria	#12 AW: Image Segementation with K means für VCL und FMX Framework, Teil #2 16. Jan 2024, 18:52 die generic Code Verions VCL und FMX sollten eigentlich komplett sein unter https://github.com/ImageProcessingFMX/kmeans/tree/main/VCL_AND_FMX für die Variante https://github.com/ImageProcessingFMX/kmeans/tree/main/VCL_ONLY muss ich noch eine DEMO app erstellen
	Zitat

bernhard_LA Registriert seit: 8. Jun 2009 Ort: Bayern 1.136 Beiträge Delphi 11 Alexandria	#13 AW: Image Segementation with K means für VCL und FMX Framework, Teil #2 16. Jan 2024, 18:58 @ Sinspin : kannst du Deine Variante hier Posten?
	Zitat