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

[Jenizix]

Вощем есть картинки типа такой: http://jenizix.net.ru/tmp/1.bmp
есть еще вот такие картинки с цифрами: http://jenizix.net.ru/tmp/0.bmp 10 штук с цифрами от 0 до 9

Известно: координата левого края первой цифры - 10, все цифры шириной 5, между 1 и 2 цифрой интервал - 2, между 2,3,4,5 интервал - 3, между 5 и 6 интервал - 2, и дальше опять между следующими интервал 3, но положение по вертикали у цифр разное на разных картинках!

Вопрос: как можно определить хотябы сходство 1 цифры на картинке1 с цифрой на картинке2

Хм... думаю понятно написал... вощем даже вот так можно:
есть картинка: http://jenizix.net.ru/tmp/2.bmp и есть картинка: http://jenizix.net.ru/tmp/0.bmp как их сравнить, так чтобы условие оказалось true тоесть картинки одинаковы... опятьже, на картинке1 цифра может быть выше или ниже...

Хелп...

[SSecurity]

Э ... я как нехороший человек в своё время когда ещё только познакомился с любимой девушкой ... задался вопросом как сохранить картинки, передаваемые MSN Web-камерой.Сначала я сделал так что у меня прога принтскринила кртинки и сохраняла в файл каждые 0,1 сек но тут я столкнулся с траблой - картинки обновляются намного реже и у меня в директории было полным полно дубликатов.
Вообщем думал я не особо долго навоял программу, котрая сравнивает две картинки причем не все пикселы, а лишь определенные (к примеру с шагом в 20 пикселов). Если точки по цветам совпадали - значит не менялась картинка ... я и не сохранял. В итоге теперь можно делать анимашки из тех картинок:)

Теперь к твоей проблеме. Я предлагаю тебе такое решение .... возможно не самое лучшее, сравни кол-во черных точек, ну или проще говоря НЕ БЕЛЫХ точек...

И вот ещё что, каждая цифра имеет свою ширину? ии они стандартны например 8х12

[SSecurity]

А вот решение, которое мне пришло в голову ... сразу.

Короче - сканишь всю картинку целиком.

Код: Выделить всё

Dim Fragments() as Long
ReDim Fragments(0)
Picture1.ScaleMode= 3
Picture1.AutoSize = True

For J = 0 to Picture1.Width - 1 
  LastPCount = PCount
  PCount = 0
  For I = 0 to Picture1.Height-1
     IF Picture1.Point(J,I) <> RGB(255,255,255) THEN PCount=PCount+1
  Next I
  'Здесь мы тестим
  If LastPCount=0 And PCount<>0 Then
    'Это когда мы создаем новый элемент
    Redim Preserve Fragments(Ubound(Fragments)+1)
    Fragments(Ubound(Fragments)) = PCount
  End if

  If LastPCount<>0 And PCount<>0 Then
    'Это когда мы считаем точки в элементе
    Fragments(Ubound(Fragments)) = Fragments(Ubound(Fragments)) + PCount
  End if
Next J


Вообщем, на выходе долен получится массив, где кол-во элементов должно быть равно кол-ву знаков.
После этого можно посмотреть по кол-ву точек.

[CodeName33]

Jenizix, У тебя между цифрами есть пробелы по горизонтали в 1 пиксел.
Просматривешь все строки по вертикали, если вся белая - значит промежуток.
Разделяешь картинку на несколько картинок с одной цифрой на каждой.
Дальше путём анализирования строк по горизонтали и вертикали можно отрезать пустоту и у тебя получатся картинки с ровно написаными цифрами без лишнего белого вокруг - вот и сравнивай!

[SSecurity]

Мой способ не прокатит:)
Там точек одинаково:)

[SSecurity]

Вот рабочий алгоритм, поподставляешь значения в Case, как определишься с остальными числами пока они будут выдаваться как "X":)

Он без картинок тебе циферки даст:)

Код: Выделить всё

Function strCode() as String
Dim Fragments() as long
ReDim Fragments(0)
For J = 0 To Picture1.Width - 1
  LastPCount = PCount
  PCount = 0
  For i = 0 To Picture1.Height - 1
     
     If Picture1.Point(J, i) = RGB(0, 0, 0) Then PCount = PCount + 1
     
  Next i
  'Здесь мы тестим
  If LastPCount = 0 And PCount <> 0 Then
    'Это когда мы создаем новый элемент
    ReDim Preserve Fragments(UBound(Fragments) + 1)
    Fragments(UBound(Fragments)) = PCount
  End If

  If LastPCount <> 0 And PCount <> 0 Then
    'Это когда мы считаем точки в элементе
    Fragments(UBound(Fragments)) = Fragments(UBound(Fragments)) * PCount
  End If
Next J
strCode = ""
For i = 1 To UBound(Fragments)
   Select Case Fragments(i)
     Case 128: strCode = strCode & "0"
     Case 32: strCode = strCode & "1"
     Case 180: strCode = strCode & "3"
     Case 540: strCode = strCode & "6"
     Case 675: strCode = strCode & "8"
     Case Else: strCode = strCode & "X"
   End Select
Next i
End Function


[BV]

Нейросети вам в помощь.

[CodeName33]

Вот тебе прогу накатал, рисует символы выбранным шрифтом со сдвигом по вертикали и потом распознаёт их все.

[Sasha_karasov]

Вот тут по теме есть:

[GAGArin]

Нейросети вам в помощь.

Пробовал разобраться и забросил. Потом написал прогу которая распозновала цифры. И учитель к ней. Прога работала по анализу горизонтальных, вертикальных и диагональных отрезков, цифры распозновала на ура все какие только можно по паре примеров (правда на цифры 6,8,9,0 был свой алгоритм, но это уже детали).
Теперь по теме, а что так трудно найти первый пискель сбоку, отступить n клеток вправо и в этом пространстве найти первый сверху и снизу? Вот вам и границы картинки, а остальное если шрифт один, дело техники.

[CodeName33]

Я же уже скинул пример, который всё делает, а вы всё продолжаете толочь воду в ступе...

[v-adix]

можно наложить изображения: цифру из картинки 2 на цифру из картинки 1. потом анализировать полученное изображение ... если результат совпадает с цифрой 1 (или с цифрой 2) - то цифры одинаковы , если нет - то разные.