%%%%  5－1－1－3  采用對數形式的變換函數進行動態范圍壓縮源程序：
clear all;
X1=imread('E:\temp\originalimage.tif');
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))