求大神帮我把MATLAB的程序 表明每一步是什么意思 急 ！！！！

杀猪刀

程序代码：
用Roberts算子实现图像锐化的程序，利用Roberts算子法对灰度数字图像lena.jpg进行微分锐化的程序代码如下：
clear all;
I=imread('C:\MATLAB7\toolbox\wavelet\wavedemo\lena.jpg');   
I=im2double(I);
figure;
imshow(I);title('org img');
[height width R]=size(I);
for i=2:height-1
    for j=2:width-1
        R(i,j)=abs(I(i+1,j+1)-I(i,j))+abs(I(i+1,j)-I(i,j+1));
    end
end
figure;
imshow(R,[]);
for i=1:height-1
    for j=1:width-1
        if (R(i,j)<0.25)
            R(i,j)=1;
        else R(i,j)=0;
        end
    end
end
figure;
imshow(R,[]);

用Sobel算子实现图像锐化的程序，图像lena.jpg进行锐化的程序代码如下：
clear all;
I=imread('C:\MATLAB7\toolbox\wavelet\wavedemo\lena.jpg');   
I=im2double(I);
figure;
imshow(I);title('org img');
[height width R]=size(I);
%Dx=[-1 -2 -1
    %0   0  0
    %1   2  1];
%Dy=[-1 0 1
    %-2 0 2  
    %-1 0 1];
for i=2:height-1
    for j=2:width-1
        Dx=[I(i+1,j-1)-I(i-1,j-1)]+2*[I(i+1,j)-I(i-1,j)]+[I(i+1,j+1)-I(i-1,j+1)];
        Dy=[I(i-1,j+1)-I(i-1,j-1)]+2*[I(i,j+1)-I(i,j-1)]+[I(i+1,j+1)-I(i+1,j-1)];
       S(i,j)=sqrt(Dx^2+Dy^2);
       end
end
figure;
imshow(S);
for i=1:255
    for j=1:255
       if (S(i,j)<1)
            S(i,j)=1;
        else S(i,j)=0;
        end
    end
end
figure;
imshow(S,[]);

用Prewitt算子实现图像锐化的程序，利用Prewitt算子对灰度数字图像lena.jpg进行图像锐化，程序代码如下
clear all;
I=imread('C:\MATLAB7\toolbox\wavelet\wavedemo\lena.jpg');   
I=im2double(I);
%figure;
%imshow(I);title('org img');

[height width R]=size(I);
for i=2:height-1
    for j=2:width-1
        Dx=[I(i+1,j-1)-I(i-1,j-1)]+[I(i+1,j)-I(i-1,j)]+[I(i+1,j+1)-I(i-1,j+1)];
        Dy=[I(i-1,j+1)-I(i-1,j-1)]+[I(i,j+1)-I(i,j-1)]+[I(i+1,j+1)-I(i+1,j-1)];
       P(i,j)=sqrt(Dx^2+Dy^2);
      
    end
end
%figure;
%imshow(P,[]);
for i=1:height-1
    for j=1:width-1
        if (P(i,j)<0.5)
            P(i,j)=1;
        else P(i,j)=0;
        end
    end
end
figure;
imshow(P,[]);

    用Laplacian算子实现图像锐化的程序，利用Laplacian算子对灰度数字图像lena.jpg进行图像锐化，程序代码如下
clear all;
I=imread('C:\MATLAB7\toolbox\wavelet\wavedemo\lena.jpg');
[H,W]=size(I);
M=double(I);
J=M;
for i=2:H-1
  for j=2:W-1
      J(i,j)=4*M(i,j)-[M(i+1,j)+M(i-1,j)+M(i,j+1)+M(i,j-1)];
     end;
end;
subplot(1,2,1);imshow(I);title('原图');
subplot(1,2,2);imshow(uint8(J));title('锐化处理后的图');



    用Wallis算子实现图像锐化的程序，利用Wallis算子对灰度数字图像lena.jpg进行图像锐化程序代码如下
%Wallis微分算子
clear all;
I=imread('C:\MATLAB7\toolbox\wavelet\wavedemo\lena.jpg');
%figure
%imshow(I);
I=im2double(I);
[height width R]=size(I);
for i=2:height-1
    for j=2:width-1
   II(i,j)=log10(I(i,j)+1)-0.25*(log10(I(i-1,j)+1)+log10(I(i+1,j)+1)+log10(I(i,j-1)+1)+log10(I(i,j+1)+1));
    end
end
min1=min(II);
min2=min(min1);
for i=2:height-1
   for j=2:width-1
      II(i,j)=46*II(i,j)-min2+0.4;
  end
end
%figure
%imshow(II,[]);
for i=1:height-1
    for j=1:width-1
        if (II(i,j)<-0.035)
           II(i,j)=0;
        else II(i,j)=1;
        end
    end
end
figure;
imshow(II,[]);

杀猪刀

求大神帮忙啊     明天要交的毕业论文