图像相似度算法

第第页图像相似度算法一种图像相像度匹配的算法,

1、图片大小规格化

为了比较两个图像，应当使其大小完全全都，这里可以设置为两个图片中较大的那个大小，长宽。

functionResize(constSource:TBitmap;varDest:TBitmap):Boolean;

begin

ifnotAssigned(Dest)then

Dest:=TBitmap.Create;

Dest.pi*elformat:=pf24bit;

Dest.Width:=BMPWIDTH;

Dest.Height:=BMPHEIGHT;

Dest.Canvas.CopyRect(Rect(0,0,Dest.Width-1,Dest.Height-1),Source.Canvas,Rect(0,0,Source.Width-1,Source.Height-1));

end;

2、图像灰度化

图像灰度化的方法有多种，这里介绍两种。一种是绝对平均值，一种是加权平均值。其实质就是将RGB三原色的色值相加，平均后给予新值。不同的只是RGB三原色的权重不同。

绝对平均值

functionGray1(constSource:TBitmap):Boolean;

var

p:PByteArray;

w:Integer;

i,j:Integer;

begin

fori:=0toSource.Height-1do

begin

p:=Source.ScanLine[i];

forj:=0to(Source.Width-1)do

begin

w:=p[3*j]+p[3*j+1]+p[3*j+2];

w:=wdiv3;

w:=byte(w);

一种图像相像度匹配的算法,

p[3*j]:=w;

p[3*j+1]:=w;

p[3*j+2]:=w;

end;

end;

end;

加权平均值

functionTForm1.Gray2(constSource:TBitmap):Boolean;

var

p:PByteArray;

w:Integer;

i,j:Integer;

begin

fori:=0toSource.Height-1do

begin

p:=Source.ScanLine[i];

forj:=0to(Source.Width-1)do

begin

w:=(p[3*j]*28+p[3*j+1]*151+p[3*j+2]*77);

w:=wdiv3;

w:=byte(w);

p[3*j]:=w;

p[3*j+1]:=w;

p[3*j+2]:=w;

end;

end;

end;

3、抽取直方图

由于是灰度图，所以只会有256种灰度值，计算直方图

functionGetHisogram(constSource:TBitmap;varHis:TSamp):Boolean;var

i,j,c:Integer;

p:PByteArray;

一种图像相像度匹配的算法,

begin

try//取样

fori:=0to255do

His[i]:=0;

fori:=0toSource.Height-1do

begin

p:=Source.ScanLine[i];

forj:=0toSource.Width-1do

begin

c:=p^[j*3];

Inc(His[c]);

end;

end;

finally

tb.Free;

end;

end;

4、判断相像度

这里采纳的是一个公式，

直方图抽样个数。

，g，s分别为两附图片的直方图，N为

functionGetSimilar(constHisA,HisB:TSamp):Double;var

i,j:Integer;

functionDivideAbs(constNumA,NumB:Integer):Double;var

一种图像相像度匹配的算法,

Tabs:Integer;

begin

Tabs:=Abs(NumA-NumB);

ifNumA=NumBthen

Result:=NumA

else

Result:=NumB;

ifResult0then

Result:=Tabs/Result;

end;

begin

Result:=0.0;

ifLength(HisA)Length(HisB)then

E*it;

fori:=0toLength(HisA)do

begin

Result:=Result+1-DivideAbs(HisA[i],HisB[i]);end;

Result:=Result/Length(HisA);

end;

一种图像相像度匹配的算法,

1、图片大小规格化

为了比较两个图像，应当使其大小完全全都，这里可以设置为两个图片中较大的那个大小，长宽。

functionResize(constSource:TBitmap;varDest:TBitmap):Boolean;

begin

ifnotAssigned(Dest)then

Dest:=TBitmap.Create;

Dest.pi*elformat:=pf24bit;

Dest.Width:=BMPWIDTH;

Dest.Height:=BMPHEIGHT;

Dest.Canvas.CopyRect(Rect(0,0,Dest.Width-1,Dest.Height-1),Source.Canvas,Rect(0,0,Source.Width-1,Source.Height-1));

end;

2、图像灰度化

图像灰度化的方法有多种，这里介绍两种。一种是绝对平均值，一种是加权平均值。其实质就是将RGB三原色的色值相加，平均后给予新值。不同的只是RGB三原色的权重不同。

绝对平均值

functionGray1(constSource:TBitmap):Boolean;

var

p:PByteArray;

w:Integer;

i,j:Integer;

begin

fori:=0toSource.Height-1do