首先，我们需要获取要处理的图片中所有像素的色彩分布统计，也就是上面的几个通道所作那样。

　　假设有一张图（我们直接用灰度来表示）：

100 50 20
20 40 50
100 250 200
　　统计入下：

20：2
40：1
50：2
100：2
200：1
250：1
　　这张图一共有9个像素，我们用比例来表示每种颜色的出现比例：

20：2 / 9
40：1 / 9
50：2 / 9
100：2 / 9
200：1 / 9
250：1 / 9
　　由于所有的色彩出现的次数不可能超过图片的总像素，因此，将所有色彩的比例相加也不会超过1（大家已经可以看出正好是1）

　　最后我们按照从低到高的顺序，把各个色彩的比例进行加权统计，也就是当前点的“权”等于该点的原有比例加上前一个点的“权”，我们得到一个新的统计表：

20：2 / 9
40：3 / 9
50：5 / 9
100：7 / 9
200：8 / 9
250：9 / 9
　　最后，根据这个新的统计表，我们来把像素的亮度用一个新的亮度来代替，算法为：

　　新亮度＝该点“权”×255

20：2 / 9 >> 20 （第一点不动，依然用20）
40：3 / 9×255＝85
50：5 / 9×255＝141
100：7 / 9×255＝198
200：8 / 9×255＝226
250：9 / 9×255＝255
　　这时我们得到了新的图：

100 50 20 198 141 20
20 40 50 >> 10 85 141
100 250 200 198 255 226
　　原图中相对出现频率多的部分的宽度变大了。而出现较少的部分则变窄了。

　　所以，灰度直方图均衡的作用就是把一张图片上出现多的色彩拓展，而把出现少的色彩压缩。

　　从而得到了更“均衡”的色彩分布。

　　下面附上我的例程：

Private Type ColorChart
　ColorCount(255) As Long '统计原来图片中的亮度出现次数
　PixcelCount As Long '记录图片的像素个数
　ColRatio(255) As Single '记录每一个亮度的出现比例
　NewVal(255) As Byte '存放新的亮度索引
End Type

Dim ColChart As ColorChart

Public Sub StatisticsChart()
　Dim R As Byte
　Dim G As Byte
　Dim B As Byte
　Dim Gray As Integer
　Dim X As Long
　Dim Y As Long
　Dim I As Long
　Dim L As Long
　Dim M As Long
　Dim C As Double
　On Error GoTo ErrLine

　Done = False
　TimeFilter = timeGetTime
　With ColChart
　　For X = 0 To 255 '先把数组清零
　　　.ColorCount(X) = 0
　　Next
　　For X = 0 To OutPutWid '这两个循环用来扫描图片数据，记录每个点的灰度和出现次数
　　　For Y = 0 To OutPutHei
　　　　R = ColVal(2, X, Y)
　　　　G = ColVal(1, X, Y)
　　　　B = ColVal(0, X, Y)
　　　　Gray = R * 3 G * 6 B
　　　　Gray = Gray \ 10
　　　　.ColorCount(Gray) = .ColorCount(Gray) 1
　　　Next
　　Next

　　.PixcelCount = X * Y '获得图片的像素总量
　　C = 1 / .PixcelCount

　　.ColRatio( 0) = .ColorCount(M, 0) * C '计算每个亮度的出现比例
　　.NewVal( 0) = 0 '色值最小的色彩总是为0，不参与计算
　　L = 0
　　For I = 1 To 255
　　　.ColRatio(I) = .ColorCount( I) * C .ColRatio( L) '进行加权
　　　.NewVal(I) = .ColRatio( I) * 255 '计算新的颜色索引
　　　L = L 1
　　Next

　　For X = 0 To OutPutWid
　　　For Y = 0 To OutPutHei
　　　　R = Colval(2, X, Y) '读取原来点的颜色
　　　　G = Colval(1, X, Y)
　　　　B = Colval(0, X, Y)
　　　　R = .NewVal( R) '查表得到新的颜色
　　　　G = .NewVal( G)
　　　　B = .NewVal( B)
　　　　ColOut(2, X, Y) = R '把新的颜色放到输出数组中
　　　　ColOut(1, X, Y) = G
　　　　ColOut(0, X, Y) = B
　　　Next
　　Next
　End With

　Done = True
　TimeFilter = timeGetTime - TimeFilter
　Exit Sub
ErrLine:
　Done = True
　MsgBox Err.Description
End Sub
　　如果读者对这个过程中的一些数组和变量不清楚，请参考我前面的几篇文章，其中有详细说明：

　　VB图像处理之像素的获取和输出

　　VB图像处理之二次线性插值的应用

　　VB图像处理之几个常用滤镜的实现

　　VB图像处理之铅笔画算法和木雕算法

　　下一篇将继续为大家讲述颜色对比度和亮度的调节算法，以及彩色图片转换到灰度图片的算法。

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!