AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Code-Bibliothek Neuen Beitrag zur Code-Library hinzufügen Delphi Bildvergleich mit Summe der quadratischen Unterschiede (SSD)
Thema durchsuchen
Ansicht
Themen-Optionen

Bildvergleich mit Summe der quadratischen Unterschiede (SSD)

Ein Thema von christian.noeding · begonnen am 13. Dez 2009 · letzter Beitrag vom 14. Dez 2009
Antwort Antwort
Benutzerbild von christian.noeding
christian.noeding

Registriert seit: 26. Mai 2005
Ort: Knw.-Remsfeld
119 Beiträge
 
Delphi XE2 Professional
 
#1

Bildvergleich mit Summe der quadratischen Unterschiede (SSD)

  Alt 13. Dez 2009, 13:28
Ein kleiner, schneller Algorithmus, um Bilder miteinander zu vergleichen ist der SSD (Sum of Squared Differences) Algorithmus. Die Formel ist im Anhang zu diesem Post.

Das Bild wird zunächst in den L*a*b*-Farbraum umgerechnet, um das Bild nur über die Helligkeit eines Pixels zu vergleichen. Anschließend wird der Algorithmus ausgeführt. Der zurückgegebene Wert wird größer, je UNTERSCHIEDLICHER die Bilder sind.

Der SSD-Algorithmus ist allerdings nicht wirklich super. Besser ist der ZNCC, den ich ebenfalls hier in der CodeLib beschrieben habe (Link zum ZNCC)

Delphi-Quellcode:
function SSD(Canvas1, Canvas2: TCanvas; Pixel:integer):Single;
var
  x, y:integer;
  Gamma, Intensity1, PixelValue1, Intensity2, PixelValue2:single;
  R1, G1, B1, R2, G2, B2, Grayscale1, Grayscale2:byte;
  MyColor1, MyColor2:TColor;

  SSDvalue:Extended;
begin
  SSDvalue:=0.0;
  Gamma:=2.2;

  for x:=0 to (Pixel-1) do
  begin
    for y:=0 to (Pixel-1) do
    begin
      MyColor1:=Canvas1.Pixels[x, y];
      TColor2RGB(MyColor1, R1, G1, B1);

      MyColor2:=Canvas2.Pixels[x, y];
      TColor2RGB(MyColor2, R2, G2, B2);

      // Graustufenbild 1 (Umrechnung auf L*a*b - Farbraum)
      Intensity1:=0.2126 * Power(R1/255, Gamma) + 0.7152 * Power(G1/255, Gamma) + 0.0722 * Power(B1/255, Gamma);
      Grayscale1:=255-round(116*Power(Intensity1, 1/3)-16);
      PixelValue1:=Grayscale1/255;

      // Graustufenbild 2 (Umrechnung auf L*a*b - Farbraum)
      Intensity2:=0.2126 * Power(R2/255, Gamma) + 0.7152 * Power(G2/255, Gamma) + 0.0722 * Power(B2/255, Gamma);
      Grayscale2:=255-round(116*Power(Intensity2, 1/3)-16);
      PixelValue2:=Grayscale2/255;

      // SumOfSquaredDifferences (SSD) (wird MINIMAL (<1) bei guter Übereinstimmung)
      SSDvalue:=SSDvalue+Power((PixelValue1-PixelValue2), 2);
    end;
  end;

  result:=SSDvalue;
end;
Miniaturansicht angehängter Grafiken
ssd_172.png  
Christian Nöding
  Mit Zitat antworten Zitat
Benutzerbild von rollstuhlfahrer
rollstuhlfahrer

Registriert seit: 1. Aug 2007
Ort: Ludwigshafen am Rhein
1.529 Beiträge
 
Delphi 7 Professional
 
#2

Re: Bildvergleich mit Summe der quadratischen Unterschiede (

  Alt 13. Dez 2009, 17:45
es wäre vielleicht noch besser, wenn man nicht nur quadratische Bilder vergleichen kann. Die meisten Bilder die man im Internet zu, Beispiel findet sind ja alle rechteckig. Gleiches gilt auch für den anderen Algorithmus.

Bernhard

PS: Bei totaler Übereinstimmung sollte der Rückgabewert doch eigentlich 0 sein, oder?
Bernhard
Iliacos intra muros peccatur et extra!
  Mit Zitat antworten Zitat
Benutzerbild von christian.noeding
christian.noeding

Registriert seit: 26. Mai 2005
Ort: Knw.-Remsfeld
119 Beiträge
 
Delphi XE2 Professional
 
#3

Re: Bildvergleich mit Summe der quadratischen Unterschiede (

  Alt 13. Dez 2009, 18:55
Hi,

du hast recht, der Wert ist =0, wenn identisch. Wird gleich angepasst

Ich habe den Algorithmus derzeit nur für 32x32 Icons getestet. Wenn ich etwas Zeit habe, baue ich den Code noch aus.


bis dann,
Christian
Christian Nöding
  Mit Zitat antworten Zitat
Benutzerbild von rollstuhlfahrer
rollstuhlfahrer

Registriert seit: 1. Aug 2007
Ort: Ludwigshafen am Rhein
1.529 Beiträge
 
Delphi 7 Professional
 
#4

Re: Bildvergleich mit Summe der quadratischen Unterschiede (

  Alt 13. Dez 2009, 22:03
Hi,

reicht es denn nicht einfach aus, dass man die Schleifen so umschreibt, dass die eine von 0 bis Breite -1 und die andere von 0 bis Höhe -1 geht?

Bernhard
Bernhard
Iliacos intra muros peccatur et extra!
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

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

Re: Bildvergleich mit Summe der quadratischen Unterschiede (

  Alt 13. Dez 2009, 22:08
Zitat von christian.noeding:
Ein kleiner, schneller Algorithmus,
nja, .Pixels ist nicht unbedingt schnell.
gegenüber .ScanLine arbeitet man damit sogar arschlangsam
$2B or not $2B
  Mit Zitat antworten Zitat
schöni

Registriert seit: 23. Jan 2005
Ort: Dresden
445 Beiträge
 
Delphi 7 Personal
 
#6

Re: Bildvergleich mit Summe der quadratischen Unterschiede (

  Alt 14. Dez 2009, 00:03
Hallo,

Klasse Arbeit. Hab mir die Formeln auch angeschaut. Wofür stehen u, i, v j, n? Img ist sicher ein zu untersuchendes Bild?
Damit der Topf nicht explodiert, lässt man es ab und zu mal zischen.
  Mit Zitat antworten Zitat
Benutzerbild von christian.noeding
christian.noeding

Registriert seit: 26. Mai 2005
Ort: Knw.-Remsfeld
119 Beiträge
 
Delphi XE2 Professional
 
#7

Re: Bildvergleich mit Summe der quadratischen Unterschiede (

  Alt 14. Dez 2009, 08:19
@himitsu: ich bezog mich auf den Algorithmus - nicht auf das auslesen des Bildes aber du hast recht - eine Scanline-Optimierte Variante sollte deutlich schneller sein

@schöni:
n = Pixelanzahl "Pixel"
i,j = Laufvariablen "x","y"
u1,u2,v1,v2 = Bildmittelpunkt - die Formel geht eigentlich vom Zentrum aus
Img1, Img2 = das eigentliche Bild, korrekt


bis dann,
Christian
Christian Nöding
  Mit Zitat antworten Zitat
schöni

Registriert seit: 23. Jan 2005
Ort: Dresden
445 Beiträge
 
Delphi 7 Personal
 
#8

Re: Bildvergleich mit Summe der quadratischen Unterschiede (

  Alt 14. Dez 2009, 14:41
Zitat von christian.noeding:
@himitsu: ich bezog mich auf den Algorithmus - nicht auf das auslesen des Bildes aber du hast recht - eine Scanline-Optimierte Variante sollte deutlich schneller sein

@schöni:
n = Pixelanzahl "Pixel"
i,j = Laufvariablen "x","y"
u1,u2,v1,v2 = Bildmittelpunkt - die Formel geht eigentlich vom Zentrum aus
Img1, Img2 = das eigentliche Bild, korrekt


bis dann,
Christian
Ok, Danke so weit!

Da müssen u und v also mit weiteren Formeln erst berechnet werden. Die Potenzen treten nämlich in der angegebenen Formel nicht auf. Erst im konkreten Algorhithmus.

u1 wäre dann x-Koordinate Bild 1, u2 -> x-Koordinate Bild 2, analog v1,v2 die y Koordinaten.

Wenn vom Zentrum des Bildes aus verglichen wird, verstehe ich den Lauf von -n bis +n nicht.
Ich kann ihn im obigen Quellcode zumindest nicht erkennen.
Einleuchtend wäre für mich, vom Zentrum des Bildes aus in 4 Richtungen zu vergleichen.

Die Umwandlung in ein Graustufenbild verstehe ich als eine Anpassung an praktische Erfordernisse. Komplexität reduzieren um nur noch die reine Bildinformation vergleichen zu müssen.
Das ist aber in der Formel zunächst auch nicht enthalten. Wird erst bei der Implementation des konkreten Algorhithmus eingeführt.
Damit der Topf nicht explodiert, lässt man es ab und zu mal zischen.
  Mit Zitat antworten Zitat
Benutzerbild von christian.noeding
christian.noeding

Registriert seit: 26. Mai 2005
Ort: Knw.-Remsfeld
119 Beiträge
 
Delphi XE2 Professional
 
#9

Re: Bildvergleich mit Summe der quadratischen Unterschiede (

  Alt 14. Dez 2009, 15:31
Zitat:
u1 wäre dann x-Koordinate Bild 1, u2 -> x-Koordinate Bild 2, analog v1,v2 die y Koordinaten.
Korrekt


Zitat:
Wenn vom Zentrum des Bildes aus verglichen wird, verstehe ich den Lauf von -n bis +n nicht.
Ich kann ihn im obigen Quellcode zumindest nicht erkennen.
Einleuchtend wäre für mich, vom Zentrum des Bildes aus in 4 Richtungen zu vergleichen.
In der Formel wird u und v als Bildmittelpunkt angegeben. Das Aufsummieren von -n bis n lässt also Zeilenweise von linkem Rand bis rechten Rand des Bildes aufsummieren. Ich habe der Einfachheit halber gleich von 0 bis Bildbreite und dann von 0 bis Bildhöhe aufsummiert. Sollte das gleiche Resultat bringen.


Zitat:
Die Umwandlung in ein Graustufenbild verstehe ich als eine Anpassung an praktische Erfordernisse. Komplexität reduzieren um nur noch die reine Bildinformation vergleichen zu müssen.
Das ist aber in der Formel zunächst auch nicht enthalten. Wird erst bei der Implementation des konkreten Algorhithmus eingeführt.
Richtig. Ich habe ehrlich gesagt keine Möglichkeit gefunden, alle drei Bildfarben gleichzeitig in den Algorithmus einzubinden. Hast du da eine Lösung?


bis dann,
Christian
Christian Nöding
  Mit Zitat antworten Zitat
Antwort Antwort


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 06:29 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