求一幅数字图像的熵值

求一幅数字图像的信息熵值%求一幅数字图像的熵值 %作者：（Peter Chan） %完成日期：2009-07-30 %--------------------------------- I=imread('lena.bmp'); %I=double(I); [C,R]=size(I); %求图像的规格 Img_size=C*R; %图像像素点的总个数 L=256; %图像的灰度级