Сравнение картинок

[Tolik_P]

Заменил значения RGB в рисунках таким методом: значениям от и до
0..30 - присвоил значение 0
31..120 - значение 70
121..220 - значение 150
221..255 - значение 255
Теперь искомое изображение и ответ очень похожи друг на друга. Но вот как его найти ((((

[x128]

Попробуй как я предлагал, конвертируй в YCbCr и по хроматическим компонентам построй гистограмму, наглядно будет видно, что я имел ввиду. Теоретически достаточно будет проверить на сколько отличается гистограмма.

[koshel]

Я сейчас тоже пытаюсь понять как сравнивать например фото из паспортов. один мой знакоми(опытний в отличии от меня) сказал что нужно все изображения переделать не только под один размер а и перегнать из RGB в grayscale, а потом по формулам в которих есть коєфициент схожести сравнивать фото. формулы у меня есть но написаные от руки. найду в електроном виде сброшу.
в grayscale я переделываю так:

var
  i,j:integer;
  ptr:PByteArray;
begin
  try
    for i:=0 to (form1.Image1.Height-1) do
    begin
      ptr:=form1.Image1.Picture.Bitmap.ScanLine[i];
      for j:=0 to (form1.Image1.Width-1) do
      begin
        if form1.Image1.Picture.Bitmap.PixelFormat=pf24bit then
        begin
          ptr[3*j]:=round(0.114* ptr[3*j]
            +0.587*ptr[3*j+1] + 0.299*ptr[3*j+2]);
          ptr[3*j+1]:=ptr[3*j];
          ptr[3*j+2]:=ptr[3*j];
        end;
      end;
      form1.Image1.Refresh;
    end;
    except
      ShowMessage('Cannot complete the operation');
    end
end;

[Tolik_P]

Сообщение от koshel

формулы у меня есть но написаные от руки. найду в електроном виде сброшу.

Может отсканируешь или телефоном сфоткаешь и выложешь картинки формул?

[koshel]

завтра выложу. но там почерк страшненький.
вот выкладываю.IMG.jpg.
на сколько я понял здесь формула квадратического отклонения переделана под координаты картинок.

[koshel]

Ребята вот я попробовал сделать то что написал мой знакомый, получилось естественно криво и не рационально но все же, я думаю часть правильно.перед этим изображение перегнал в оттенки серого.

procedure TForm1.Button8Click(Sender: TObject);
var
q,w,p:integer;
X,koef,koeff, alfa0, alfaK, alfaKMY, rrr,Y, alfa:extended;
begin
  alfa0:=1/sqrt(2);
  koeff :=0;
  rrr:=0;


   for p:=0 to 10 do
     begin

  for q:=0 to (form1.Image1.Height-1) do
  begin
  for w:=0 to (form1.Image1.Width-1) do
  begin
    X:=form1.Image1.Canvas.Pixels[q,w];
    Y:=alfa0*X;
  alfaK:=Y*X+rrr;
  rrr:=alfaK;
  alfaKMY:= (alfaK/sqrt((alfa0*alfa0)+(alfa0*alfa0)));

end;
end;
  for q:=0 to (form1.Image1.Height-1) do
  begin
  for w:=0 to (form1.Image1.Width-1) do
  begin

  X:=form1.Image1.Canvas.Pixels[q,w];
  Y:=alfa0*X;
  koef:=(sqr(X-alfaK*(Y)))+ koeff;
  koeff:=koef;
  edit1.Text:=floattostr(koef);
  alfa0:=alfaKMY;

 end;
 end;
 end;
 end;

прошу не смеяться над кривостью, а давать дельные советы.
я думаю что полученный коэффициент и есть это среднеквадратическое отклонение, и если этот коэффициент будет похож с каким то другим коэффициентом то картинки одинаковы.

[koshel]

ребята подскажите как мне из канвы имеджа сохранить изображение с некоторыми изменениями??? например можно ли задать размер в пикселях сохраняемого изображения?