Программа 1
> |
restart;t1:=time():with(ImageTools):# Фильтр Собеля
|
> |
MPEI:=Read("C:\\MPEI.jpg"):
|
> |
img0:= RGBtoGray(MPEI):
|
Initializing Java runtime environment.
> |
local IMG,s,G1,G2,i,j,A,X,Y,w,h:
|
> |
w:=Width(im): h:=Height(im):
|
> |
IMG:=convert(im,Matrix):
|
> |
G1:=Matrix([s,[0,0,0],-s]);
|
> |
A:=SubMatrix(IMG,[i-1,i,i+1],[j-1,j,j+1]):
|
> |
X:=add(add(A[k,m]*G1[k,m],k=1..3),m=1..3);
|
> |
Y:=add(add(A[k,m]*G2[k,m],k=1..3),m=1..3);
|
> |
img[i,j]:=sqrt(X^2+Y^2):
|
> |
Фильтр(1,img0):img1:=1-img: View(img0,img1): time()-t1;
|
13.030
> |
Write("C:\\MPEI2.jpg",img1);
|
10929
|