im2obj.m

模式识别工具箱,本人毕业论文时用到的,希望对大家有用!

%IM2OBJ Convert Matlab image to PRTools dataset object
%
%	A = im2obj(image,A)
%
% This adds a standard Matlab image as an object to an existing
% dataset A. If A is not given a new dataset is created.
%
% uint8 images are converted to doubles and divided by 256.
%
% See datasets, im2feat, data2im

% Copyright: R.P.W. Duin, [e-mail]
% Faculty of Applied Physics, Delft University of Technology
% P.O. Box 5046, 2600 GA Delft, The Netherlands

function a = im2obj(im,a)
if isa(im,'cell')
	if nargin < 2, a = []; end
	im = im(:);
	for i=1:length(im)
		a = [a; im2obj(im{i})];
	end
else
	imheight = size(im,1);
	n = size(im,3);
	mm = length(im(:))/n;
	im = reshape(im,mm,n);
	if isa(im,'uint8') im = double(im)/256; end
	if nargin > 1
		if ~isa(a,'dataset')
			error('Input not dataset')
		end
		if mm ~= size(a,2)
			error('Sizes of image and dataset do not match')
		end
		a = [a; im'];
	else
		a = dataset(im',[],[],[],[],imheight);
	end
end