数字图像处理作业(第三次)直方图处理

数字图像处理作业(第三次)直方图处理
数字图像处理作业（第三次）直方图处理
第一题第二题(例3.6)
1. 问题：
1）编写函数Y=MyHisteq(X), 对灰度图象X进行直方图均衡化，得到均衡化后的图像Y，假设X的数据类型为uint8。

2）利用自己编写的直方图均衡化函数，重现例3.6中的实验，即对图3.16中的图像进行直方图均衡化。

2．程序：
(1) 函数程序：
function Y = MyHisteq(X)
%对灰度图象X进行直方图均衡化，得到均衡化后的图像Y
[m,n]=size(X);
A=zeros(1,256);
for k=0:255
A(k+1)=length(find(X==k))/(m*n);
end
S1=zeros(1,256);
for i=1:256
for j=1:i
S1(i)=A(j)+S1(i); %算Sk end
end
S2=round(S1*256);
for i=1:256
B(i)=sum(A(find(S2==i)));
end
figure,bar(0:255,B,'b');
title('均衡化后的直方图');
xlabel('灰度'),ylabel('出现概率')
Y=X;
for i=0:255
Y(find(X==i))=S2(i+1);
end
end
(2)主程序：
X=imread('Fig0316(1)(top_left).tif');
figure,imshow(X);
Y=MyHisteq(X); figure,imshow(Y);
3. 实验结果：
第三题(例3.12)
1. 问题：
编写程序，重现例3.12中的实验，产生图3.27。

2．程序：
X=imread('Fig0327(a)(tungsten_original).tif');
figure,imshow(X);
Y=histeq(X);
figure,imshow(Y);
E=4.0;k0=0.4;k1=0.02;k2=0.4;
[m,n]=size(X);
X1=X;
Mg=sum(X1(:))/(m*n);
Vg=sum(sum((X1-Mg).^2))/(m*n);
for i=2:m-1
for j=2:n-1
X2=X1(i-1:i+1,j-1:j+1);
Ms=sum(X2(:))/9;
Vs=sum(sum((X2-Ms).^2))/9;
if(Ms<=k0*Mg&&k1*Vg<=Vs&&Vs<=k2*Vg)
X1(i,j)=E*X1(i,j);
end
end
end
figure,imshow(X1);
3. 实验结果：
放大了约130倍的钨丝的SME图像：全局直方图均衡的
结果：
使用局部直方图统
计增强后的图像：
1. 问题：
用自己编写编程实现中值滤波，用96页例3.14的图测试。

2．程序：
(1) 函数程序：
function Y=mid_filter(X,n)
%自编的中值滤波函数。

X是需要滤波的图像,n是模板大小(即n×n)
[height, width]=size(X); %输入图像是p×q 的,且p>n,q>n
X1=double(X);
X2=X1;
for i=1:height-n+1
for j=1:height-n+1
C=X1(i:i+(n-1),j:j+(n-1)); %取出X1中从(i,j)开始的n行n列元素,即模板(n×n的)
E=C(1,:); %是C矩阵的第一行
for k=2:n
E=[E,C(k,:)]; %将C矩阵变为一个行矩阵
end
mm=median(E); %mm是中值
X2(i+(n-1)/2,j+(n-1)/2)=mm;%将模板各元素的中值赋给模板中心位置的元素
end
end
Y=uint8(X2);
end
(2) 主程序：
X=imread('Fig0335(a)(ckt_board_saltpep_prob_pt05).tif');
figure,imshow(X);
n=3;Y=mid_filter(X,n);
figure,imshow(Y);
3. 实验结果：。