Избавление от шума на каптче

[Arsenx777]

Можете пожалуйста любой пример привести, а то я чатал много статей, там всякие формулы, а как ими распорядится не вдупляю

[Luuzuk]

Могу привести выдержку из кода одной старой своей программы

type:
{изображение представлено в виде матрицы (двумерного массива)}
TImageMatrix = array of array of TMatrixValue;
{каждый элемент масссива может быть пустым или сигнальным (черные и белые пиксели)}
TMatrixValue = (mvSpace = 0,mvSignal = 1);

{r,c - это Row (строка) и Column (столбец) элемента матрицы, для которого мы хотим узнать значение
 ImageMatrix - это сама матрица изображения
 если в матрице нет такого столбца или строки, то функция посчитает элемент пустым 
 (считаем, что наше изображение лежит в центре бесконечного пустого пространства)}
function GetMatrixPoint(r,c: integer; ImageMatrix: TImageMatrix): TMatrixValue;
begin
  if (c < 0) or (c >= length(ImageMatrix))
   then result:=mvSpace
  else if (r < 0) or (r >= length(ImageMatrix[0]))
   then result:=mvSpace
  else result:=ImageMatrix[c,r];
end;  

{возвращает "вес" пикселя, расположенного по координатам [r;c], где r - строка, а c - столбец, то есть
 количество сигнальных пикселей, окружающих его.
 IsCross: если установлено в true, то учитываются только пиксели сверху,снизу, и по бокам (диагональные идут лесом)
}
function GetMatrixPointWeight(r,c: integer; ImageMatrix: TImageMatrix; IsCross: boolean = false): integer;
begin
   result:=0;
   if (not IsCross) then
   begin
     result:=Result+Integer(GetMatrixPoint(r-1,c-1, ImageMatrix));
     result:=Result+Integer(GetMatrixPoint(r+1,c+1, ImageMatrix));
     result:=Result+Integer(GetMatrixPoint(r+1,c-1, ImageMatrix));
     result:=Result+Integer(GetMatrixPoint(r-1,c+1, ImageMatrix));
   end;

   result:=Result+Integer(GetMatrixPoint(r-1,c, ImageMatrix));
   result:=Result+Integer(GetMatrixPoint(r,c-1, ImageMatrix));
   result:=Result+Integer(GetMatrixPoint(r,c+1, ImageMatrix));
   result:=Result+Integer(GetMatrixPoint(r+1,c, ImageMatrix));
end;

{Функция, выполняющая эрозию матрицы изображения.
 Sensitivity - пороговое значение. Если число сигнальных пикселей вокруг указанного
 будет меньше, чеи пороговое, то указанный пиксель будет считаться пустым  
 IsCross: если установлено в true, то учитываются только пиксели сверху,снизу, и по бокам (диагональные идут лесом)
 ImageMatrix: обрабатываемая матрица
 Вернёт матрицу, к которой применена эрозия
}
function Erode(Sensitivity: integer; IsCross: boolean;
                                         ImageMatrix: TImageMatrix): TImageMatrix;
var i,r,c: integer;
    outimg: TImageMatrix;
begin
  SetLength(outimg,Length(ImageMatrix));
  for i:=0 to Length(ImageMatrix)-1 do
    SetLength(outimg[i],Length(ImageMatrix[0]));

  for r:=0 to length(ImageMatrix[0])-1 do
  for c:=0 to length(ImageMatrix) -1 do    
    if (GetMatrixPoint(r,c,ImageMatrix) = mvSignal) AND
       (GetMatrixPointWeight(r,c,ImageMatrix,IsCross) >= Sensitivity)
      then outimg[c,r]:=mvSignal;
  result := outimg;
end;

[Arsenx777]

спсибо большое)

[suzanna_molodets]

код на делфи реализованного алгоритма математической морфологии у кого-нибудь есть?

[suzanna_molodets]

еще нужен метод на основе вейвлет-преобразования. это для устранения шумов на изображении!
помогите с кодом,пожалуйста!