Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.03.2012, 23:27   #1
Don Karleone
Форумчанин
 
Регистрация: 05.04.2010
Сообщений: 410
По умолчанию Медианная фильтрация изображения

Уважаемые форумчане, ответьте мне пожайлуста, правильно ли я понял смысл медианной фильтрации:
1) есть маска размером 3х3; (к примеру), которая двигается по исходному изображению;
2) пикселы изображения, которые попадают в эту маску записываются в вектор, количество элементов которого соответственно Sqr(3) (тобишь 9):
3) вектор сортируется (например по возрастанию), после чего средний элемент этого вектора присваивается пикселю в центре маски;


вот мой код:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
Index, i, j, s, k, z: Integer;
n: Byte;
Dx: Integer;
begin
Dx:=CN div 2;
for i:=0 to BitMap.Width - 1 - CN do //движение маски по горизонтали
for j:=0 to BitMap.Height - 1 - CN do //движение маски по вертикали
begin
//заносим значения пикселей в вектор MyMas
Index:=1;
for k:=i to i + (CN - 1) do
for s:=j to j + (CN - 1) do
begin
MyMas[Index]:=BitMap.Canvas.Pixels[k,s];
Inc(Index);
end;
n:=Sort(MyMas); //сортируем вектор с возвратом значения среднего элемента
BitMap.Canvas.Pixels[i+Dx, j+Dx]:=n;
end;

Image2.Canvas.CopyRect(Rect(0, 0, BitMap.Width, BitMap.Height), BitMap.Canvas,
Rect(0, 0, BitMap.Width, BitMap.Height));
end;

вот проект:
Вложения
Тип файла: rar MedianFiltr.rar (435.4 Кб, 99 просмотров)
ICQ: 593-013-807
Don Karleone вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Медианная фильтрация изображения Don Karleone Помощь студентам 4 08.04.2012 22:40
Фильтрация изображения (в Системе распознавания лица на Делфи) agatamen Помощь студентам 4 08.10.2009 07:07
Фильтрация Screame Microsoft Office Excel 7 01.07.2009 22:37
Чтение изображения из базы данных, Вместо изображения - "System.Byte[]" ruelCrow Общие вопросы .NET 3 10.07.2008 23:29
Медианная фильтрация game87 Помощь студентам 2 14.12.2006 21:15