Фильтрация шумов в растровых изображениях методами усредняющего, порогового и медианного фильтров
Категория реферата: Рефераты по информатике, программированию
Теги реферата: контрольная 2, доклад по истории на тему
Добавил(а) на сайт: Рыжанов.
Предыдущая страница реферата | 1 2 3 4 5 6 | Следующая страница реферата
Summ := Summ + PrevisionLine^[J];
if J + 1 < Image1.Picture.Bitmap.Width then begin
Summ := Summ + PrevisionLine^[J + 1]; end; end;
if J > 0 then begin
Summ := Summ + CurrentLine^[J - 1]; end;
Summ := Summ + CurrentLine^[J];
if J + 1 < Image1.Picture.Bitmap.Width then begin
Summ := Summ + CurrentLine^[J + 1]; end;
if I + 1 < Image1.Picture.Bitmap.Height then begin
NextLine := Image1.Picture.Bitmap.ScanLine[I + 1]; if J > 0 then begin
Summ := Summ + NextLine^[J - 1]; end;
Summ := Summ + NextLine^[J];
if J + 1 < Image1.Picture.Bitmap.Width then begin
Summ := Summ + NextLine^[J + 1]; end; end;
if (Summ div 9) = 0) and (VertB < Image1.Picture.Bitmap.Height) then
BoxCurrentLine := Image1.Picture.Bitmap.ScanLine[VertB];
for HorB := (Hor - (Value div 2)) to (Hor + (Value div 2)) do begin
if (HorB >= 0) and (VertB >= 0) and
(HorB < Image1.Picture.Bitmap.Width) and
(VertB < Image1.Picture.Bitmap.Height) then
PixelArray[Counter] := BoxCurrentLine^[HorB] else
PixelArray[Counter] := 0;
Inc(Counter); end; end;
// Сортируем массив for VertB := 0 to Value*Value - 1 do begin for HorB := VertB to Value*Value - 1 do begin if PixelArray[VertB] > PixelArray[HorB] then begin
Temp := PixelArray[VertB];
Рекомендуем скачать другие рефераты по теме: экзамены, реферат деловой.
Предыдущая страница реферата | 1 2 3 4 5 6 | Следующая страница реферата