NhanChap(ImagIn,ImagOut: anh; H: Nhan chap;N:kich thuoc;w:kich thuoc nhan chap)

/* Vao: ImagIn

nhan chap H

Ra: ImagOut */

Begin

For i:=1 to N do

For j:=1 to N do

Begin Sum :=0; Lc:=(w+1) div 2;

For k:=1 to w do

For l:=1 to w do

Begin Col:=i-k+Lc;Row:=j+l+Lc

If (Col<>0)and (Col <=N) then

If (Row<>0)and (Row <=N) then

Sum:= Sum + ImagIn[Col,Row] * H[k,l];

End;

ImagOut[i,j]:=Sum

End;

End;