基于颜色直方图的图像斑点提取源码程序 - vb源码程序

下载频道> 资源分类> 编程语言> VB源码> 基于颜色直方图的图像斑点提取源码程序

所属分类: VB源码资源类型：文件大小: 129.98 KB 上传时间: 2016-01-25 19:47:29 下载次数: 8 资源积分：1分提供者: xiaopeng2 20160125074705337

内容：
基于颜色直方图的图像斑点提取源码程序，程序员在编程的过程中可以参考学习使用，希望对IT程序员有用，此源码程序简单易懂、方便阅读，有很好的学习价值！

function [meanRGB, areas, numberOfBlobs] = MeasureBlobs(maskImage, redBand, greenBand, blueBand)

[labeledImage numberOfBlobs] = bwlabel(maskImage, 8); % Label each blob so we can make measurements of it

if numberOfBlobs == 0

% Didn't detect any yellow blobs in this image.

meanRGB = [0 0 0];

areas = 0;

return;

end

% Get all the blob properties. Can only pass in originalImage in version R2008a and later.

blobMeasurementsR = regionprops(labeledImage, redBand, 'area', 'MeanIntensity');

blobMeasurementsG = regionprops(labeledImage, greenBand, 'area', 'MeanIntensity');

blobMeasurementsB = regionprops(labeledImage, blueBand, 'area', 'MeanIntensity');

meanRGB = zeros(numberOfBlobs, 3); % One row for each blob. One column for each color.

meanRGB(:,1) = [blobMeasurementsR.MeanIntensity]';

meanRGB(:,2) = [blobMeasurementsG.MeanIntensity]';

meanRGB(:,3) = [blobMeasurementsB.MeanIntensity]';

% If redBand etc. are double, the intensities will be in the range of 0-1.

% Multiply by 255 to get them back into the uint8 range of 0-255.

if ~strcmpi(class(redBand), 'uint8')

meanRGB = meanRGB * 255.0;

end

% Now assign the areas.

areas = zeros(numberOfBlobs, 3); % One row for each blob. One column for each color.

areas(:,1) = [blobMeasurementsR.Area]';

areas(:,2) = [blobMeasurementsG.Area]';

areas(:,3) = [blobMeasurementsB.Area]';

%return; % from MeasureBlobs()

文件列表（点击上边下载按钮，如果是垃圾文件请在下面评价差评或者投诉）: