5－1－1－3 采用对数形式的变换函数进行动态范围压缩源程序：

%%%%  5－1－1－3  采用对数形式的变换函数进行动态范围压缩源程序：
clear all;
X1=imread('E:\role0\001i.bmp');
figure,
imshow(X1)
c=255/log(256);
x=0:1:255;
y=c*log(1+x);
figure,plot(x,y)
axis tight,xlabel('f'),ylabel('g')
title('intensitytransformation')
%绘制变换曲线
[m,n]=size(X1);
X2=double(X1);
for i=1:m
    for j=1:n
        g(i,j)=0;
        g(i,j)=c*log(X2(i,j)+1);
    end
end
figure, imshow(mat2gray(g))